Dekont Silme (VB)

Dekont Silme (VB)



Dim Kernel As New NetOpenX40.Kernel
Dim Sirket As NetOpenX40.Sirket
Dim Dekont As NetOpenX40.Dekont
Dim rs As NetOpenX40.NetRS

Set Sirket = Kernel.yeniSirket(vtOracle, “NETSIS”, “MALIYET2009″, “”, “NETSIS”, “1″, 0)

Set rs = Kernel.yeniNetRS(Sirket)
QueryStr = “SELECT COUNT(*) FROM TBLDEKOTRA WHERE SERI_NO=’” & SeriNo & “‘ AND DEKONT_NO=’” & DekontNo & “‘”
rs.Ac (QueryStr)
While Not rs.EOF
DekontKalemSayi = rs.Fields(0).AsInteger
rs.SonrakiK
Wend
rs.Kapat

If DekontKalemSayi = 0 Then
MsgBox “İlgili Dekont Kaydı Bulunamadı!!!”, vbInformation
Exit Sub
End If

Set Dekont = Kernel.yeniDekont(Sirket)
Dekont.Seri_No = SeriNo
Dekont.Dekont_No = DekontNo


Query = “SELECT SIRA_NO,C_M FROM TBLDEKOTRA WHERE SERI_NO=’” & SeriNo & “‘ AND DEKONT_NO=’” & DekontNo & “‘”
rs.Ac (Query)

While Not rs.EOF
Dekont.Sira_No = rs.FieldByName(“SIRA_NO”).AsInteger
Select Case rs.FieldByName(“C_M”).AsString
Case “C”
Dekont.CDekont (doSil)
Case “M”
Dekont.MDekont (doSil)
Case “B”
Dekont.BDekont (doSil)
Case “S”
Dekont.SDekont (doSil)
End Select
rs.SonrakiK
Wend
rs.Kapat

MsgBox “İşlem Tamamlandı!”, vbInformation

Set rs = Nothing
Set Dekont = Nothing
Set Sirket = Nothing
Kernel.FreeNetsisLibrary
Set Kernel = Nothing

Netopenx ile Stok Kodu Değişikliği (VB)

Netopenx ile Stok Kodu Değişikliği (VB)
Dim Kernel As New NetOpenX40.Kernel
Dim Sirket As NetOpenX40.Sirket

Set Sirket = Kernel.yeniSirket(vtMSSQL, “MALIYET”, “TEMELSET”, “”, “NETSIS”, “NET1″, 0)

Call Sirket.StokKoduDegistir(“EskiKod”, “YeniKod”, True, False) ‘True Virman Yapılsınmı,False Eski Stok Silinsinmi

Set Sirket = Nothing
Kernel.FreeNetsisLibrary
Set Kernel = Nothing

Dinamik Kodlama İle standart raporlara kolon ekleme

Dinamik Kodlama İle standart raporlara kolon ekleme


Başlıktanda anlaşıldığı gibi script yardımıyla standart rapor ekranlarına yeni bir kolon eklemek artık çok kolay. Şimdi bunu bir örnekle açıklayalım, burada ben SMAR’da (Serbest Maliyet Ambar Raporu) kalan tutar-gerçek bakiye farkını gösteren bir kolon eklemeyi yerinde buldum. Bunun için aşağıdaki adımları takip edelim;
SMAR’ı bir kere çalıştırın ve açılan rapor ekranından Netsis Script Kod Desteği’ne girin
RaporForm nesnesinin “onnetscrsys_raporkapanis” olayına aşğdaki kodu;

For i=1 To RaporBook.LastRow

call SetFormat(i)

if RaporBook.TextRC(i, 1) = “Stok Kodu” then

call SetCaption(i)

else

call SetData(i)

end if

Next


Form Global kısmınada aşağıdaki kodu;



Const NewCol = 18

Sub SetCaption(row)

RaporBook.TextRC(row, NewCol) = “Fark Tutar”

End Sub



sub SetFormat(row)

RaporBook.SetSelection row, 17, row, 17

set cf = RaporBook.GetCellFormat

RaporBook.SetSelection row, NewCol, row, NewCol

RaporBook.SetCellFormat cf

end sub



sub SetData(Row)

RaporBook.NumberRC(row, NewCol) = (RaporBook.NumberRC(row, 13)-RaporBook.NumberRC(row, 17))

End Sub


Şimdi raporu tekrar çalıştırın, işte sonuç;

Xml dosyadan select çekme (Read an XML file from SQL Server)

DECLARE @idoc int

DECLARE @doc xml

DECLARE @TEMPSQL NVARCHAR(2000)

DECLARE @DOCPATH NVARCHAR(2000)

set @DOCPATH = ‘C:\param.xml’

SET @TEMPSQL = ‘SET @doc = (SELECT * FROM OPENROWSET(bulk ”’ +@DOCPATH + ”’,single_blob) as doc)’

EXEC SP_EXECUTESQL @TEMPSQL, N’@doc xml OUTPUT’,
@doc = @doc OUTPUT

EXEC sp_xml_preparedocument @idoc OUTPUT, @doc

SELECT * FROM OPENXML (@idoc,‘/ParametreBilgileri/OzelParametreler/PRGOZELPRM/Kayit_1′,2)
WITH (GRUPKOD varchar(20), ANAHTAR varchar(20)) WHERE GRUPKOD=‘BANKA’

EXEC sp_xml_removedocument @idoc

Fatura No Değişikliği (Netopenx)

Fatura No Değişikliği (Netopenx)




Seri kaymalarında yahut benzeri durumlarda bir çok fatura numarasının değiştitilmesi gerekebilir. Böyle durumlarda fatura numaralarını hızlıca değiştirebilirsiniz, nasıl mı….

Sub FatuNoChange()

Dim Kernel As New NetOpenX40.Kernel
Dim Sirket As NetOpenX40.Sirket
Dim Fatura As NetOpenX40.Fatura

Set Sirket = Kernel.yeniSirket(vtMSSQL, “MALIYET2009″, “TEMELSET”, “”, “NETSIS”, “NET1″, 0)

Set Fatura = Kernel.yeniFatura(Sirket, ftSFat)

Call Fatura.OkuUst(“X00000000000009″, “00003″) ‘ Eski Fatura No, Eski CariKod
Call Fatura.OkuKalem
Call Fatura.NumaraDegistir(“X00000000000010″, “00003″, False)
‘Yukarıda girilen parametreler sırasıyla Yeni Fatura No, Yeni Cari Kod, Teslim Cari Değişsinmi

Set Fatura = Nothing
Set Sirket = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing

End Sub

SQL Server Veritabanı Log Dosyasının Küçültülmesi

SQL Server Veritabanı Log Dosyasının Küçültülmesi

MS SQL 2005 VE ALTI
USE veritabaniadi
GO
BACKUP LOG veritabaniadi WITH TRUNCATE_ONLY
DBCC SHRINKFILE(veritabaniadi_log)
GO


MS SQL 2008 sürümünde ise

USE veritabaniadi
GO
ALTER DATABASE veritabaniadi SET RECOVERY SIMPLE WITH NO_WAIT
DBCC SHRINKFILE(veritabani_log)
ALTER DATABASE veritabaniadi SET RECOVERY FULL WITH NO_WAIT
GO