merge

Aviso/usrCntlSND_ATBGestellung.vb

@@ -136,9 +136,9 @@ Public Class usrCntlSND_ATBGestellung
                 Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaID)
                 If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub
 
-                Dim saldo = CDbl(GesSichRef.CalcSaldo())
+            Dim saldo = CDbl(GesSichRef.CalcSaldo_new())
 
-                Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.brgakto_gs_zollsatz / 100)
+            Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.brgakto_gs_zollsatz / 100)
 
                 If sicherheitsbertrag > saldo Then
                     If MsgBox(Standort & vbNewLine & "Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert in EUR: " & WarenwertEUR & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub
@@ -228,7 +228,7 @@ Public Class usrCntlSND_ATBGestellung
             End With
 
             AddHandler frm.FormClosing, Function()
-                                            GesSichRef.CalcSaldo()
+                                            GesSichRef.CalcSaldo_new()
                                             Me.BringToFront()
                                         End Function
             frm.Show()
@@ -305,7 +305,7 @@ Public Class usrCntlSND_ATBGestellung
                 .txtSicherheitATBNr.Text = txtATBT1.Text
             End With
             AddHandler frm.FormClosing, Function()
-                                            GesSichRef.CalcSaldo()
+                                            GesSichRef.CalcSaldo_new()
                                             Me.BringToFront()
                                         End Function
             frm.Show(Me)