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

Stornierung bei POS-Zahlungen eingebaut (Umbuchung BK/Kassa wird ebenfalls storniert).

Browse Source
This commit is contained in:
d.breimaier
2023-03-13 11:47:42 +01:00
parent 5b9cd19eaf
commit 8002d08f8f
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/Classes/cRKSV.vb
View File

@@ -918,7 +918,8 @@ Public Class cRKSV
Shared Function STORNO(BELEG As EABeleg, ByVal grund As String, Firma As String, Optional stornoGegenbuchen As Boolean = False) As EABeleg
If (Not BELEG.gebuchtStorno) Or stornoGegenbuchen Then
' MsgBox("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ(BELEG.BelegDat) & "' AND BelegNr='" & BELEG.BelegNr & "'")
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ_FIRMA(BELEG.BelegDat, Firma) & "' AND BelegNr='" & BELEG.BelegNr & "'", "FMZOLL")
'Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ_FIRMA(BELEG.BelegDat, Firma) & "' AND BelegNr='" & BELEG.BelegNr & "'", "FMZOLL")
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ_FIRMA(BELEG.BelegDat, Firma) & "' AND rksv_BelegId='" & BELEG.rksv_BelegId & "'", "FMZOLL")
' Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, getGJ(BELEG.BelegDat))
If dt IsNot Nothing Then
For Each r In dt.Rows
@@ -2287,6 +2288,7 @@ Public Class cRKSV
' EINTRAG: Umbuchung bei EC-Zahlung
'################
If Finanzwege = "EC" Then
Dim BelegNrEC = -1
For i = 0 To 1
@@ -2295,6 +2297,7 @@ Public Class cRKSV
If i = 0 Then
KBEntryEC.Konto = POSFIBU
BelegNrEC = getNewBelegNr(BELEG, Firma) '& KBEntryEC.Belegart 'zur Generierung von eigenem Buchungssatz
Else
KBEntryEC.Konto = PERSONAL.KassenbuchNr
End If
@@ -2304,7 +2307,7 @@ Public Class cRKSV
KBEntryEC.Buchungsdatum = Now.ToShortDateString
KBEntryEC.BelegDat = BELEG.BelegDat.ToShortDateString
KBEntryEC.Belegart = 3
KBEntryEC.BelegNr = BELEG.BelegNr & KBEntryEC.Belegart 'zur Generierung von eigenem Buchungssatz
KBEntryEC.BelegNr = BelegNrEC
If BELEG.Belegart = 1 Then
If i = 0 Then
KBEntryEC.Soll = Bruttobetrag