BU_Mahnlauf, ustva

2025-04-04 11:49:54 +02:00
parent 30ac9b018b
commit 3d39da0357
5 changed files with 171 additions and 76 deletions
--- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
@@ -27,6 +27,7 @@ Partial Class frmMDM_USTVAntrag
        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
        Me.pnlBottom = New System.Windows.Forms.Panel()
+        Me.picExcel = New System.Windows.Forms.PictureBox()
        Me.Button4 = New System.Windows.Forms.Button()
        Me.picPDF = New System.Windows.Forms.PictureBox()
        Me.btnMail = New System.Windows.Forms.Button()
@@ -113,8 +114,10 @@ Partial Class frmMDM_USTVAntrag
        Me.Button3 = New System.Windows.Forms.Button()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.picExcel = New System.Windows.Forms.PictureBox()
+        Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label27 = New System.Windows.Forms.Label()
        Me.pnlBottom.SuspendLayout()
+        CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlHeader.SuspendLayout()
        Me.Panel9.SuspendLayout()
@@ -134,13 +137,14 @@ Partial Class frmMDM_USTVAntrag
        CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlErstattungsdetails.SuspendLayout()
        Me.Panel1.SuspendLayout()
-        CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'pnlBottom
        '
        Me.pnlBottom.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.pnlBottom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlBottom.Controls.Add(Me.txtSumme)
+        Me.pnlBottom.Controls.Add(Me.Label27)
        Me.pnlBottom.Controls.Add(Me.picExcel)
        Me.pnlBottom.Controls.Add(Me.Button4)
        Me.pnlBottom.Controls.Add(Me.picPDF)
@@ -155,6 +159,16 @@ Partial Class frmMDM_USTVAntrag
        Me.pnlBottom.Size = New System.Drawing.Size(1454, 100)
        Me.pnlBottom.TabIndex = 3
        '
+        'picExcel
+        '
+        Me.picExcel.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.picExcel.Location = New System.Drawing.Point(1026, 13)
+        Me.picExcel.Name = "picExcel"
+        Me.picExcel.Size = New System.Drawing.Size(35, 35)
+        Me.picExcel.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.picExcel.TabIndex = 29
+        Me.picExcel.TabStop = False
+        '
        'Button4
        '
        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -170,7 +184,7 @@ Partial Class frmMDM_USTVAntrag
        'picPDF
        '
        Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf
-        Me.picPDF.Location = New System.Drawing.Point(1067, 39)
+        Me.picPDF.Location = New System.Drawing.Point(1079, 13)
        Me.picPDF.Name = "picPDF"
        Me.picPDF.Size = New System.Drawing.Size(35, 35)
        Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -1416,15 +1430,40 @@ Partial Class frmMDM_USTVAntrag
        Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
        Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
        '
-        'picExcel
+        'txtSumme
        '
-        Me.picExcel.Image = Global.SDL.My.Resources.Resources.Excel_logo
-        Me.picExcel.Location = New System.Drawing.Point(1014, 39)
-        Me.picExcel.Name = "picExcel"
-        Me.picExcel.Size = New System.Drawing.Size(35, 35)
-        Me.picExcel.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
-        Me.picExcel.TabIndex = 29
-        Me.picExcel.TabStop = False
+        Me.txtSumme._DateTimeOnly = False
+        Me.txtSumme._numbersOnly = False
+        Me.txtSumme._numbersOnlyKommastellen = ""
+        Me.txtSumme._numbersOnlyTrennzeichen = False
+        Me.txtSumme._Prozent = False
+        Me.txtSumme._ShortDateNew = False
+        Me.txtSumme._ShortDateOnly = False
+        Me.txtSumme._TimeOnly = False
+        Me.txtSumme._TimeOnly_Seconds = False
+        Me.txtSumme._value = ""
+        Me.txtSumme._Waehrung = True
+        Me.txtSumme._WaehrungZeichen = True
+        Me.txtSumme.ForeColor = System.Drawing.Color.Black
+        Me.txtSumme.Location = New System.Drawing.Point(1026, 63)
+        Me.txtSumme.MaxLineLength = -1
+        Me.txtSumme.MaxLines_Warning = ""
+        Me.txtSumme.MaxLines_Warning_Label = Nothing
+        Me.txtSumme.Name = "txtSumme"
+        Me.txtSumme.ReadOnly = True
+        Me.txtSumme.Size = New System.Drawing.Size(88, 20)
+        Me.txtSumme.TabIndex = 49
+        Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label27.Location = New System.Drawing.Point(975, 66)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(45, 13)
+        Me.Label27.TabIndex = 48
+        Me.Label27.Text = "Summe:"
        '
        'frmMDM_USTVAntrag
        '
@@ -1441,6 +1480,7 @@ Partial Class frmMDM_USTVAntrag
        Me.Text = "USTV Antrag"
        Me.pnlBottom.ResumeLayout(False)
        Me.pnlBottom.PerformLayout()
+        CType(Me.picExcel, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlHeader.ResumeLayout(False)
        Me.pnlHeader.PerformLayout()
@@ -1465,7 +1505,6 @@ Partial Class frmMDM_USTVAntrag
        CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlErstattungsdetails.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
-        CType(Me.picExcel, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
@@ -1558,4 +1597,6 @@ Partial Class frmMDM_USTVAntrag
    Friend WithEvents Label14 As Label
    Friend WithEvents txtEingereichtAm As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents picExcel As PictureBox
+    Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label27 As Label
 End Class
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/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