FAktabr, UstAntrag, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -19,6 +19,7 @@ Public Class frmMDM_USTVAntrag
     Dim von, bis As Date
     Dim func As New cMDMFunctionsAllgemein
     Dim dTLANDEU As New DataTable
+    Dim DiffernezbetragEUR As Double
 
     Sub New(UStVAn_ID)
 
@@ -192,7 +193,7 @@ Public Class frmMDM_USTVAntrag
 
         Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
         Dim GesamtErstattungEUR As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
-        Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR
+        DiffernezbetragEUR = GesamtUSteuerEUR - GesamtErstattungEUR
 
         Dim GesamtUSteuer As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetrag),0)", "tblUStVPositionen", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
         Dim GesamtErstattung As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetrag),0)", "tblUStVErstattung", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
@@ -2677,7 +2678,7 @@ Public Class frmMDM_USTVAntrag
             Exit Sub
         End If
 
-        If USTV_ANTRAG.UStVAn_ErstattungsbetragEUR = 0 Then
+        If DiffernezbetragEUR = 0 Then
             If Not vbYes = MsgBox("Der Erstattungsbetrag beträgt 0 EUR." & vbNewLine & "Fortfahren?", vbYesNo) Then Exit Sub
         End If
 
@@ -2694,7 +2695,7 @@ Public Class frmMDM_USTVAntrag
             .Abfertigungsanzahl = 1
             .Packstücke = "MWSt-Rückerstattung " & Antrag_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis
             .VermittlerKundenNr = USTV_ANTRAG.UStVAn_KuNr
-            .Rechnungsbetrag = USTV_ANTRAG.UStVAn_ErstattungsbetragEUR * -1
+            .Rechnungsbetrag = DiffernezbetragEUR * -1
             If .SAVE() Then
                 MsgBox("Sped-Eintrag wurde angelegt")
                 init()