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

Bugfix bei Stornierung von Beleg mit Steuerbetrag

Browse Source
This commit is contained in:
d.breimaier
2024-04-11 10:14:27 +02:00
parent 4b8ed734fb
commit f3a69d5baa
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Classes/cRKSV.vb
View File

@@ -944,6 +944,7 @@ Public Class cRKSV
KBEntry.Buchungsdatum = Now.ToShortDateString KBEntry.Buchungsdatum = Now.ToShortDateString
KBEntry.Soll = KBEntry.Soll * -1 KBEntry.Soll = KBEntry.Soll * -1
KBEntry.Haben = KBEntry.Haben * -1 KBEntry.Haben = KBEntry.Haben * -1
KBEntry.Steuerbetrag = KBEntry.Steuerbetrag * -1
KBEntry.INSERT() KBEntry.INSERT()
Next Next
End If End If
@@ -990,6 +991,7 @@ Public Class cRKSV
KBEntry.Buchungsdatum = Now.ToShortDateString KBEntry.Buchungsdatum = Now.ToShortDateString
KBEntry.Soll = KBEntry.Soll * -1 KBEntry.Soll = KBEntry.Soll * -1
KBEntry.Haben = KBEntry.Haben * -1 KBEntry.Haben = KBEntry.Haben * -1
KBEntry.Steuerbetrag = KBEntry.Steuerbetrag * -1
KBEntry.INSERT() KBEntry.INSERT()
Next Next
End If End If

4
SDL/kassenbuch/frmKassenbuch.vb
View File

@@ -1039,7 +1039,7 @@ Public Class frmKassenbuch
'FEHLER!! 'FEHLER!!
If KASSETmp.rksv_StornoIncreaseBelegCnt Then BELEGTmp.rksv_BelegIdStorno = Nothing If KASSETmp.rksv_StornoIncreaseBelegCnt Then BELEGTmp.rksv_BelegIdStorno = Nothing
BELEGTmp = cRKSV.STORNO_RUECKGAENGIG(BELEGTmp, grund, KASSETmp.rksv_firma) 'Beleg storno und Kassenbuch Gegenbuchung BELEGTmp = cRKSV.STORNO_RUECKGAENGIG(BELEGTmp, grund, KASSETmp.rksv_firma) 'Beleg storno und Kassenbuch Gegenbuchung
MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) MessageBox.Show("Fehler bei der RKSV-Stornierung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub Exit Sub
End If End If
End If End If
@@ -1048,7 +1048,7 @@ Public Class frmKassenbuch
'FEHLER!! 'FEHLER!!
If KASSETmp.rksv_StornoIncreaseBelegCnt Then BELEGTmp.rksv_BelegIdStorno = Nothing If KASSETmp.rksv_StornoIncreaseBelegCnt Then BELEGTmp.rksv_BelegIdStorno = Nothing
BELEGTmp = cRKSV.STORNO_RUECKGAENGIG(BELEGTmp, grund, KASSETmp.rksv_firma) 'Beleg storno und Kassenbuch Gegenbuchung BELEGTmp = cRKSV.STORNO_RUECKGAENGIG(BELEGTmp, grund, KASSETmp.rksv_firma) 'Beleg storno und Kassenbuch Gegenbuchung
MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) MessageBox.Show("Fehler bei der RKSV-Stornierung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub Exit Sub
End If End If
End If End If