MDM

SDL/USTV/usrCntlUSTV.vb

@@ -153,13 +153,20 @@ Public Class usrCntlUSTV
             Dim Gesamt3470 As Double = 0
             Dim GesamtVZBetrag As Double = 0
             Dim VorschaubetrGes As Double = 0
+            Dim OPSaldo As Double = 0
+            Dim Risiko As Double = 0
+            Dim calcRisiko As Boolean = False
 
             If KdSearchBox1.KdNr > 0 Then
                 Dim dt As New DataTable
+
                 dt = SQL.loadDgvBySql("SELECT Kunden.KundenNr as KundenNr, Kunden.UStV_SummeUmsatzsteuerbetragEUR, Kunden.UStV_SummeErstattungsbetragEUR, Kunden.UStV_Summe3470BetragEUR, Kunden.UStV_SummeVZBetragEUR, Kunden.UStV_SummeVorschaubetragEUR                                                                
                                 FROM Kunden 
                                 WHERE Kunden.KundenNr = " & KdSearchBox1.KdNr, "FMZOLL")
 
+
+                OPSaldo = CInt((New SQL).getValueTxtBySql("SELECT sum(Gesamtausstand) FROM [Offene Posten] WHERE [Kontonummer]='" & KdSearchBox1.KdNr & "'", "FMZOLL"))
+                calcRisiko = True
                 If dt.Rows.Count = 1 Then
                     GesamtUSteuer = dt.Rows(0).Item("UStV_SummeUmsatzsteuerbetragEUR")
                     GesamtErstattung = dt.Rows(0).Item("UStV_SummeErstattungsbetragEUR")
@@ -188,17 +195,25 @@ Public Class usrCntlUSTV
                     If IsNumeric(rows.Cells("UStVAn_VZBetrag").Value) Then GesamtVZBetrag += rows.Cells("UStVAn_VZBetrag").Value
                 Next
                 VorschaubetrGes = 0
+                Risiko = 0
             End If
 
 
             Differnezbetrag = GesamtUSteuer - GesamtErstattung
 
+
+            If calcRisiko Then
+                Risiko = OPSaldo - Differnezbetrag - Gesamt3470 + GesamtVZBetrag - VorschaubetrGes
+            End If
+
             txtSumUst.Text = GesamtUSteuer.ToString("C2")
             txtSumErst.Text = GesamtErstattung.ToString("C2")
             txtSumDiff.Text = Differnezbetrag.ToString("C2")
             txt3470Betrag.Text = Gesamt3470.ToString("C2")
             txtVZBetrag.Text = GesamtVZBetrag.ToString("C2")
             txtVorschaubetrGes.Text = VorschaubetrGes.ToString("C2")
+            txtOPSaldo.Text = OPSaldo.ToString("C2")
+            txtRisiko.Text = Risiko.ToString("C2")
 
 
         End With