MDM UST, MSE-API, API-Einstellungen

SDL/USTV/usrCntlUSTV.vb

@@ -111,6 +111,27 @@ Public Class usrCntlUSTV
                 .Columns("UStVAn_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             End If
 
+            Dim GesamtUSteuer As Double
+            Dim GesamtErstattung As Double
+            Dim Differnezbetrag As Double
+
+            If KdSearchBox1.KdNr > 0 Then
+                GesamtUSteuer = SQL.DLookup("isnull(sum(UStVAn_USteuerbetragEUR),0)", "tblUStVAntrag", "UStVAn_KuNr='" & KdSearchBox1.KdNr & "'", "FMZOLL", "0")
+                GesamtErstattung = SQL.DLookup("isnull(sum(UStVAn_ErstattungsbetragEUR),0)", "tblUStVAntrag", "UStVAn_KuNr='" & KdSearchBox1.KdNr & "'", "FMZOLL", "0")
+            Else
+                For Each rows As DataGridViewRow In .Rows
+                    If IsNumeric(rows.Cells("UStVAn_USteuerbetragEUR").Value) Then GesamtUSteuer += rows.Cells("UStVAn_USteuerbetragEUR").Value
+                    If IsNumeric(rows.Cells("UStVAn_ErstattungsbetragEUR").Value) Then GesamtErstattung += rows.Cells("UStVAn_ErstattungsbetragEUR").Value
+                Next
+            End If
+
+
+            Differnezbetrag = GesamtUSteuer - GesamtErstattung
+
+            txtSumUst.Text = GesamtUSteuer.ToString("C2")
+            txtSumErst.Text = GesamtErstattung.ToString("C2")
+            txtSumDiff.Text = Differnezbetrag.ToString("C2")
+
 
         End With
 
@@ -139,6 +160,14 @@ Public Class usrCntlUSTV
             Case CheckState.Indeterminate
         End Select
 
+        Select Case cbxDifferenzbetrag.CheckState
+            Case CheckState.Checked
+                whereStr &= " AND ([UStVAn_USteuerbetrag]-[UStVAn_Erstattungsbetrag]) <> 0"
+            Case CheckState.Unchecked
+                whereStr &= " AND ([UStVAn_USteuerbetrag]-[UStVAn_Erstattungsbetrag]) = 0 "
+            Case CheckState.Indeterminate
+        End Select
+
         If KdSearchBox1.KdNr > 0 Then whereStr &= " AND UStVAn_KuNr=" & KdSearchBox1.KdNr & " "
         Return whereStr
     End Function
@@ -434,7 +463,7 @@ Public Class usrCntlUSTV
         init()
     End Sub
 
-    Private Sub cbxEingereicht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEingereicht.CheckStateChanged
+    Private Sub cbxEingereicht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEingereicht.CheckStateChanged, cbxDifferenzbetrag.CheckStateChanged
         If loaded = False Then Exit Sub
         init()
     End Sub