From f3a69d5baac09f7b5c91e4ebb589b52dd39ac82f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 11 Apr 2024 10:14:27 +0200 Subject: [PATCH] Bugfix bei Stornierung von Beleg mit Steuerbetrag --- SDL/Classes/cRKSV.vb | 2 ++ SDL/kassenbuch/frmKassenbuch.vb | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 449493ce..4f121c6e 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -944,6 +944,7 @@ Public Class cRKSV KBEntry.Buchungsdatum = Now.ToShortDateString KBEntry.Soll = KBEntry.Soll * -1 KBEntry.Haben = KBEntry.Haben * -1 + KBEntry.Steuerbetrag = KBEntry.Steuerbetrag * -1 KBEntry.INSERT() Next End If @@ -990,6 +991,7 @@ Public Class cRKSV KBEntry.Buchungsdatum = Now.ToShortDateString KBEntry.Soll = KBEntry.Soll * -1 KBEntry.Haben = KBEntry.Haben * -1 + KBEntry.Steuerbetrag = KBEntry.Steuerbetrag * -1 KBEntry.INSERT() Next End If diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb index 77af8635..72efa8a3 100644 --- a/SDL/kassenbuch/frmKassenbuch.vb +++ b/SDL/kassenbuch/frmKassenbuch.vb @@ -1039,7 +1039,7 @@ Public Class frmKassenbuch 'FEHLER!! If KASSETmp.rksv_StornoIncreaseBelegCnt Then BELEGTmp.rksv_BelegIdStorno = Nothing 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 End If End If @@ -1048,7 +1048,7 @@ Public Class frmKassenbuch 'FEHLER!! If KASSETmp.rksv_StornoIncreaseBelegCnt Then BELEGTmp.rksv_BelegIdStorno = Nothing 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 End If End If