From 27765bcf12e2993aaa18ed76045f3746474299c8 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Mon, 31 Aug 2026 17:05:54 +0200
Subject: [PATCH] kasse, abrechnung

---
 SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 20 ++++++++++++++------
 SDL/kassenbuch/frmBelegNeu.vb             |  1 +
 2 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
index 380f8928..31ec40fc 100644
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -5261,13 +5261,19 @@ mwst:
                                         r.Cells("Preis").Value = sumVZAntrag
                                     Else
 
-                                        Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
-                                        Dim GesamtErstattungEUR As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
-                                        Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR
+                                        'vorher wurde der Differenzbetrag zuerst verrechnet und dann erst ausgetragen, nun umgekehrt!
+                                        'Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
+                                        'Dim GesamtErstattungEUR As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
+                                        'Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR
+
+                                        'If DiffernezbetragEUR <> 0 Then
+                                        '    r.Cells("Preis").Value = DiffernezbetragEUR
+                                        'Else
+                                        '    r.Cells("Preis").Value = 0
+                                        'End If
+                                        'quickfix!
+                                        r.Cells("Preis").Value = sumFremdAntrag + sumRMCAntrag
 
-                                        If DiffernezbetragEUR <> 0 Then
-                                            r.Cells("Preis").Value = DiffernezbetragEUR
-                                        End If
 
                                     End If
 
@@ -5286,6 +5292,8 @@ mwst:
                                 If Not IsDBNull(r.Cells("Preis").Value) Then
                                     Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr), OffertNr, True)
                                     Call prBearbGeb_NEW(r, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, IIf(Not IsDBNull(r.Cells("BGebMinBetrag").Value), r.Cells("BGebMinBetrag").Value, 0), r.Cells("Preis").Value * If(RECHNUNG.Vorzeichen = "-", -1, 1), summeRMC, summeFremd, OFFERT_RMC, OFFERT_FREMD, FremdUndRMC, changed, sumRMCAntrag, sumOffertRMC, sumFremdAntrag, sumOffertFremd, sumVZAntrag, POSChanged)
+                                Else
+                                    'MsgBox("kein Preis im Offert hinterlegt!")
                                 End If
 
                             End If
diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb
index a2d11657..396a5833 100644
--- a/SDL/kassenbuch/frmBelegNeu.vb
+++ b/SDL/kassenbuch/frmBelegNeu.vb
@@ -420,6 +420,7 @@ Public Class frmBelegNeu
         End If
         If PERSONAL.Niederlassung = "SBG" Then where = "Preislisten_visibleSBG = 1"
         If PERSONAL.Niederlassung = "WAI" Then where = "Preislisten_visibleWAI = 1"
+        If PERSONAL.Niederlassung = "KLP" Then where = "Preislisten_visibleWAI = 1"
         If PERSONAL.Niederlassung = "NKD" Then where = "Preislisten_visibleNKD = 1"
         If PERSONAL.Niederlassung = "IME" Then
             where = "Preislisten_visibleIMEX = 1"