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

Änderungen POS

Browse Source
This commit is contained in:
d.breimaier
2023-03-10 16:35:13 +01:00
parent ece87982b4
commit 5181503bbc
8 changed files with 144 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
SDL/Classes/cRKSV.vb
View File

@@ -2299,24 +2299,20 @@ Public Class cRKSV
KBEntryEC.Konto = PERSONAL.KassenbuchNr
End If
If i = 0 Then
KBEntryEC.Buchungstext = "-"
Else
KBEntryEC.Buchungstext = "Umbuchung Kassa/Bankomat"
End If
KBEntryEC.Buchungstext = "Umb. BK/KASSA"
KBEntryEC.Buchungsdatum = Now.ToShortDateString
KBEntryEC.BelegDat = BELEG.BelegDat.ToShortDateString
KBEntryEC.BelegNr = BELEG.BelegNr
KBEntryEC.Belegart = BELEG.Belegart
If KBEntryEC.Belegart = 1 Then
KBEntryEC.Belegart = 3
KBEntryEC.BelegNr = BELEG.BelegNr & KBEntryEC.Belegart 'zur Generierung von eigenem Buchungssatz
If BELEG.Belegart = 1 Then
If i = 0 Then
KBEntryEC.Soll = Bruttobetrag
Else
KBEntryEC.Haben = Bruttobetrag
End If
ElseIf KBEntryEC.Belegart = 2 Then
ElseIf BELEG.Belegart = 2 Then
If i = 0 Then
KBEntryEC.Haben = Bruttobetrag
Else

4
SDL/Classes/cRKSV_POS.vb
View File

@@ -27,6 +27,8 @@ Public Class cRKSV_POS
Property pos_storno As Object = Nothing
Property pos_wartezeit As Object = Nothing
Property pos_FIBU As Object = Nothing
Property pos_XML As Object = Nothing
Property pos_Protokollpfad As Object = Nothing
Public hasEntry = False
@@ -71,6 +73,8 @@ Public Class cRKSV_POS
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_storno", pos_storno))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_wartezeit", pos_wartezeit))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_FIBU", pos_FIBU))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_XML", pos_XML))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_Protokollpfad", pos_Protokollpfad))
Return list
End Function