BU_Mahnlauf, ustva

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1283,8 +1283,11 @@ Public Class frmMDM_USTVAntrag
 
         If dgvUSTVPositionen.SelectedRows.Count > 0 Then
             initPosition(dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID").Value)
+            calcSumme()
         End If
 
+
+
     End Sub
 
     Private Sub dgvErstattungspositionen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvErstattungspositionen.SelectionChanged
@@ -2141,6 +2144,7 @@ Public Class frmMDM_USTVAntrag
         ElseIf TabControl1.SelectedTab Is TabPage2 Then
             initdgvErstattungen()
             posTabisSelected = False
+            txtSumme._value = 0
         End If
 
 
@@ -2311,7 +2315,7 @@ Public Class frmMDM_USTVAntrag
             Next
 
 
-            cProgramFunctions.genExcelFromDT_NEW(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, "Statement itemising VAT amounts relating to the period covered by this application", "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & "    " & "Name/Company: " & USTV_ANTRAG.UStVAn_Name & "    " & "VAT in " & Antrag_LandKz & ": " & txtStNr.Text, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "E")
+            cProgramFunctions.genExcelFromDT_NEW(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, "Statement itemising VAT amounts relating to the period covered by this application", "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & "    " & "Name/Company: " & USTV_ANTRAG.UStVAn_Name & "    " & "VAT in " & Antrag_LandKz & ": " & txtStNr.Text, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "E", True, True)
         End If
 
 
@@ -2388,6 +2392,23 @@ Public Class frmMDM_USTVAntrag
 
     End Sub
 
+    Private Sub calcSumme()
+
+        Dim countSumme As Double = 0
+
+        If posTabisSelected Then
+
+            For i As Integer = 0 To dgvUSTVPositionen.SelectedRows.Count - 1
+                countSumme += CDbl(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetragEUR").Value)
+
+            Next
+
+        End If
+
+        txtSumme._value = countSumme.ToString
+
+    End Sub
+
 
 
 End Class