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