edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Zahlungsmittel in Kassabuch

Browse Source
This commit is contained in:
d.breimaier
2023-03-07 17:30:37 +01:00
parent 544cd355d6
commit 013146d491
7 changed files with 67 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/Classes/cKassenbuch.vb
View File

@@ -23,6 +23,7 @@ Public Class cKassenbuch
Property Referenz As String = ""
Property Belegverbuchung As Boolean = False
Property gebucht As Boolean = False
Property Finanzwege As String = ""
Property rksv_id As Object = Nothing
Property rksv_BelegId As Object = Nothing
Property rksv_aktiv As Boolean = False
@@ -97,6 +98,7 @@ Public Class cKassenbuch
Me.Referenz = cSqlDb.checkNullStr(dr.Item("Referenz"))
Me.Belegverbuchung = cSqlDb.checkNullBool(dr.Item("Belegverbuchung"))
Me.gebucht = cSqlDb.checkNullBool(dr.Item("gebucht"))
Me.Finanzwege = cSqlDb.checkNullStr(dr.Item("Finanzwege"))
Me.rksv_id = cSqlDb.checkNullReturnValue(dr.Item("rksv_id"), Nothing)
Me.rksv_BelegId = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegId"), Nothing)
Me.rksv_aktiv = cSqlDb.checkNullReturnValue(dr.Item("rksv_aktiv"), False)
@@ -141,6 +143,7 @@ Public Class cKassenbuch
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Referenz", Referenz))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Belegverbuchung", Belegverbuchung))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("gebucht", gebucht))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Finanzwege", Finanzwege))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_id", rksv_id))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_BelegId", rksv_BelegId))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_aktiv", rksv_aktiv))

4
SDL/Classes/cRKSV.vb
View File

@@ -2118,7 +2118,7 @@ Public Class cRKSV
Return GJ.INCREASE_JOURNAL()
End Function
Public Shared Function insertKB(PERSONAL As cPersonal, BELEG As EABeleg, RKSV_id As Integer, RKSV_Beleg_Id As Integer, RKSV_aktiv As Integer, ByRef JournalNr As Integer, Firma As String)
Public Shared Function insertKB(PERSONAL As cPersonal, BELEG As EABeleg, RKSV_id As Integer, RKSV_Beleg_Id As Integer, RKSV_aktiv As Integer, ByRef JournalNr As Integer, Firma As String, Optional Finanzwege As String = "Bar")
Try
If BELEG.POS.Count = 0 Then
MsgBox("Keine Positionen gefunden")
@@ -2190,6 +2190,7 @@ Public Class cRKSV
KBEntry.Belegverbuchung = True
KBEntry.gebucht = True
KBEntry.Finanzwege = Finanzwege
If Not KBEntry.INSERT() Then
Return False
@@ -2241,6 +2242,7 @@ Public Class cRKSV
KBEntryGB.Belegverbuchung = True
KBEntryGB.gebucht = True
KBEntryGB.Finanzwege = Finanzwege
If Not KBEntryGB.INSERT() Then
Return False