Zinsnachberechnung, etc.

2025-10-13 14:59:52 +02:00
parent efa761d74d
commit cd81ff6d90
14 changed files with 2079 additions and 558 deletions
--- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
@@ -24,13 +24,13 @@ Partial Class frmMDM_USTVAntrag
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.pnlBottom = New System.Windows.Forms.Panel()
        Me.pbMail = New System.Windows.Forms.PictureBox()
        Me.pb_Beleg = New System.Windows.Forms.PictureBox()
        Me.Button5 = New System.Windows.Forms.Button()
-        Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSummeEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label27 = New System.Windows.Forms.Label()
        Me.picExcel = New System.Windows.Forms.PictureBox()
        Me.Button4 = New System.Windows.Forms.Button()
@@ -142,6 +142,8 @@ Partial Class frmMDM_USTVAntrag
        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
        Me.FakturiertToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
        Me.pnlBottom.SuspendLayout()
        CType(Me.pbMail, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -173,10 +175,12 @@ Partial Class frmMDM_USTVAntrag
        '
        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.Label18)
+        Me.pnlBottom.Controls.Add(Me.txtSumme)
        Me.pnlBottom.Controls.Add(Me.pbMail)
        Me.pnlBottom.Controls.Add(Me.pb_Beleg)
        Me.pnlBottom.Controls.Add(Me.Button5)
-        Me.pnlBottom.Controls.Add(Me.txtSumme)
+        Me.pnlBottom.Controls.Add(Me.txtSummeEUR)
        Me.pnlBottom.Controls.Add(Me.Label27)
        Me.pnlBottom.Controls.Add(Me.picExcel)
        Me.pnlBottom.Controls.Add(Me.Button4)
@@ -187,7 +191,7 @@ Partial Class frmMDM_USTVAntrag
        Me.pnlBottom.Controls.Add(Me.Button1)
        Me.pnlBottom.Controls.Add(Me.lbl_EintrageVerarbetiet)
        Me.pnlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.pnlBottom.Location = New System.Drawing.Point(0, 649)
+        Me.pnlBottom.Location = New System.Drawing.Point(0, 667)
        Me.pnlBottom.Name = "pnlBottom"
        Me.pnlBottom.Size = New System.Drawing.Size(1444, 100)
        Me.pnlBottom.TabIndex = 3
@@ -195,7 +199,7 @@ Partial Class frmMDM_USTVAntrag
        'pbMail
        '
        Me.pbMail.Image = CType(resources.GetObject("pbMail.Image"), System.Drawing.Image)
-        Me.pbMail.Location = New System.Drawing.Point(1110, 17)
+        Me.pbMail.Location = New System.Drawing.Point(1097, 8)
        Me.pbMail.Name = "pbMail"
        Me.pbMail.Size = New System.Drawing.Size(35, 35)
        Me.pbMail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -205,7 +209,7 @@ Partial Class frmMDM_USTVAntrag
        'pb_Beleg
        '
        Me.pb_Beleg.Image = CType(resources.GetObject("pb_Beleg.Image"), System.Drawing.Image)
-        Me.pb_Beleg.Location = New System.Drawing.Point(899, 60)
+        Me.pb_Beleg.Location = New System.Drawing.Point(891, 60)
        Me.pb_Beleg.Name = "pb_Beleg"
        Me.pb_Beleg.Size = New System.Drawing.Size(35, 35)
        Me.pb_Beleg.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -218,7 +222,7 @@ Partial Class frmMDM_USTVAntrag
        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button5.ForeColor = System.Drawing.Color.Black
        Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button5.Location = New System.Drawing.Point(869, 17)
+        Me.Button5.Location = New System.Drawing.Point(861, 17)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(103, 39)
        Me.Button5.TabIndex = 50
@@ -226,45 +230,45 @@ Partial Class frmMDM_USTVAntrag
        Me.Button5.UseVisualStyleBackColor = True
        Me.Button5.Visible = False
        '
-        'txtSumme
+        'txtSummeEUR
        '
-        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(1158, 67)
-        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
+        Me.txtSummeEUR._DateTimeOnly = False
+        Me.txtSummeEUR._numbersOnly = False
+        Me.txtSummeEUR._numbersOnlyKommastellen = ""
+        Me.txtSummeEUR._numbersOnlyTrennzeichen = False
+        Me.txtSummeEUR._Prozent = False
+        Me.txtSummeEUR._ShortDateNew = False
+        Me.txtSummeEUR._ShortDateOnly = False
+        Me.txtSummeEUR._TimeOnly = False
+        Me.txtSummeEUR._TimeOnly_Seconds = False
+        Me.txtSummeEUR._value = ""
+        Me.txtSummeEUR._Waehrung = True
+        Me.txtSummeEUR._WaehrungZeichen = True
+        Me.txtSummeEUR.ForeColor = System.Drawing.Color.Black
+        Me.txtSummeEUR.Location = New System.Drawing.Point(1145, 75)
+        Me.txtSummeEUR.MaxLineLength = -1
+        Me.txtSummeEUR.MaxLines_Warning = ""
+        Me.txtSummeEUR.MaxLines_Warning_Label = Nothing
+        Me.txtSummeEUR.Name = "txtSummeEUR"
+        Me.txtSummeEUR.ReadOnly = True
+        Me.txtSummeEUR.Size = New System.Drawing.Size(88, 20)
+        Me.txtSummeEUR.TabIndex = 49
+        Me.txtSummeEUR.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(1107, 70)
+        Me.Label27.Location = New System.Drawing.Point(1090, 78)
        Me.Label27.Name = "Label27"
-        Me.Label27.Size = New System.Drawing.Size(45, 13)
+        Me.Label27.Size = New System.Drawing.Size(54, 13)
        Me.Label27.TabIndex = 48
-        Me.Label27.Text = "Summe:"
+        Me.Label27.Text = "Summe €:"
        '
        'picExcel
        '
        Me.picExcel.Image = CType(resources.GetObject("picExcel.Image"), System.Drawing.Image)
-        Me.picExcel.Location = New System.Drawing.Point(1158, 17)
+        Me.picExcel.Location = New System.Drawing.Point(1145, 8)
        Me.picExcel.Name = "picExcel"
        Me.picExcel.Size = New System.Drawing.Size(35, 35)
        Me.picExcel.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -276,7 +280,7 @@ Partial Class frmMDM_USTVAntrag
        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button4.ForeColor = System.Drawing.Color.Black
        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button4.Location = New System.Drawing.Point(979, 17)
+        Me.Button4.Location = New System.Drawing.Point(971, 17)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(103, 39)
        Me.Button4.TabIndex = 28
@@ -286,7 +290,7 @@ Partial Class frmMDM_USTVAntrag
        'picPDF
        '
        Me.picPDF.Image = CType(resources.GetObject("picPDF.Image"), System.Drawing.Image)
-        Me.picPDF.Location = New System.Drawing.Point(1211, 17)
+        Me.picPDF.Location = New System.Drawing.Point(1198, 8)
        Me.picPDF.Name = "picPDF"
        Me.picPDF.Size = New System.Drawing.Size(35, 35)
        Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -298,7 +302,7 @@ Partial Class frmMDM_USTVAntrag
        Me.btnMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnMail.ForeColor = System.Drawing.Color.Black
        Me.btnMail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnMail.Location = New System.Drawing.Point(979, 62)
+        Me.btnMail.Location = New System.Drawing.Point(971, 62)
        Me.btnMail.Name = "btnMail"
        Me.btnMail.Size = New System.Drawing.Size(103, 28)
        Me.btnMail.TabIndex = 26
@@ -1462,7 +1466,7 @@ Partial Class frmMDM_USTVAntrag
        Me.pnlBody.Controls.Add(Me.TabControl1)
        Me.pnlBody.Location = New System.Drawing.Point(0, 206)
        Me.pnlBody.Name = "pnlBody"
-        Me.pnlBody.Size = New System.Drawing.Size(1444, 443)
+        Me.pnlBody.Size = New System.Drawing.Size(1444, 461)
        Me.pnlBody.TabIndex = 1
        '
        'TabControl1
@@ -1473,7 +1477,7 @@ Partial Class frmMDM_USTVAntrag
        Me.TabControl1.Location = New System.Drawing.Point(0, 0)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(1442, 441)
+        Me.TabControl1.Size = New System.Drawing.Size(1442, 459)
        Me.TabControl1.TabIndex = 1
        '
        'TabPage1
@@ -1483,7 +1487,7 @@ Partial Class frmMDM_USTVAntrag
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(1434, 415)
+        Me.TabPage1.Size = New System.Drawing.Size(1434, 433)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Antragspositionen"
        Me.TabPage1.UseVisualStyleBackColor = True
@@ -1493,8 +1497,8 @@ Partial Class frmMDM_USTVAntrag
        Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = 500
        Me.dgvUSTVPositionen.AllowUserToAddRows = False
        Me.dgvUSTVPositionen.AllowUserToDeleteRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
        Me.dgvUSTVPositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1506,14 +1510,14 @@ Partial Class frmMDM_USTVAntrag
        Me.dgvUSTVPositionen.RowHeadersVisible = False
        Me.dgvUSTVPositionen.RowHeadersWidth = 62
        Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1428, 140)
+        Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1428, 158)
        Me.dgvUSTVPositionen.TabIndex = 0
        '
        'pnlAntragsPosDetails
        '
        Me.pnlAntragsPosDetails.Controls.Add(Me.Panel2)
        Me.pnlAntragsPosDetails.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.pnlAntragsPosDetails.Location = New System.Drawing.Point(3, 149)
+        Me.pnlAntragsPosDetails.Location = New System.Drawing.Point(3, 167)
        Me.pnlAntragsPosDetails.Name = "pnlAntragsPosDetails"
        Me.pnlAntragsPosDetails.Size = New System.Drawing.Size(1428, 263)
        Me.pnlAntragsPosDetails.TabIndex = 2
@@ -1633,7 +1637,7 @@ Partial Class frmMDM_USTVAntrag
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(1444, 415)
+        Me.TabPage2.Size = New System.Drawing.Size(1434, 415)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "Erstattungspositionen"
        Me.TabPage2.UseVisualStyleBackColor = True
@@ -1647,7 +1651,7 @@ Partial Class frmMDM_USTVAntrag
        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel3.Location = New System.Drawing.Point(3, 3)
        Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(1438, 409)
+        Me.Panel3.Size = New System.Drawing.Size(1428, 409)
        Me.Panel3.TabIndex = 3
        '
        'dgvErstattungspositionen
@@ -1655,8 +1659,8 @@ Partial Class frmMDM_USTVAntrag
        Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500
        Me.dgvErstattungspositionen.AllowUserToAddRows = False
        Me.dgvErstattungspositionen.AllowUserToDeleteRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
        Me.dgvErstattungspositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1668,7 +1672,7 @@ Partial Class frmMDM_USTVAntrag
        Me.dgvErstattungspositionen.RowHeadersVisible = False
        Me.dgvErstattungspositionen.RowHeadersWidth = 62
        Me.dgvErstattungspositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvErstattungspositionen.Size = New System.Drawing.Size(1438, 143)
+        Me.dgvErstattungspositionen.Size = New System.Drawing.Size(1428, 143)
        Me.dgvErstattungspositionen.TabIndex = 1
        '
        'pnlErstattungsdetails
@@ -1680,7 +1684,7 @@ Partial Class frmMDM_USTVAntrag
        Me.pnlErstattungsdetails.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.pnlErstattungsdetails.Location = New System.Drawing.Point(0, 146)
        Me.pnlErstattungsdetails.Name = "pnlErstattungsdetails"
-        Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261)
+        Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1426, 261)
        Me.pnlErstattungsdetails.TabIndex = 0
        '
        'UstCntlUSTV_AntragErstattungen1
@@ -1688,7 +1692,7 @@ Partial Class frmMDM_USTVAntrag
        Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
        Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
-        Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
+        Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1270, 259)
        Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
        '
        'Panel1
@@ -1809,11 +1813,46 @@ Partial Class frmMDM_USTVAntrag
        Me.FakturiertToolStripMenuItem.Text = "Fakturiert zurücksetzen"
        Me.FakturiertToolStripMenuItem.Visible = False
        '
+        'txtSumme
+        '
+        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(1145, 51)
+        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 = 53
+        Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label18.Location = New System.Drawing.Point(1090, 58)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(45, 13)
+        Me.Label18.TabIndex = 54
+        Me.Label18.Text = "Summe:"
+        '
        'frmMDM_USTVAntrag
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1444, 749)
+        Me.ClientSize = New System.Drawing.Size(1444, 767)
        Me.Controls.Add(Me.pnlHeader)
        Me.Controls.Add(Me.pnlBody)
        Me.Controls.Add(Me.pnlBottom)
@@ -1946,7 +1985,7 @@ 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 txtSummeEUR As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label27 As Label
    Friend WithEvents btnAbfertigungsNrVergeben As Button
    Friend WithEvents Label15 As Label
@@ -1974,4 +2013,6 @@ Partial Class frmMDM_USTVAntrag
    Friend WithEvents FakturiertToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents FakturiertZurücksetzenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents pbMail As PictureBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.vb
@@ -2845,7 +2845,7 @@ Public Class frmMDM_USTVAntrag
        ElseIf TabControl1.SelectedTab Is TabPage2 Then
            initdgvErstattungen()
            posTabisSelected = False
-            txtSumme._value = 0
+            txtSummeEUR._value = 0
        End If


@@ -3446,18 +3446,24 @@ Public Class frmMDM_USTVAntrag

    Private Sub calcSumme()

+        Dim countSummeEUR As Double = 0
        Dim countSumme As Double = 0

        If posTabisSelected Then

            For i As Integer = 0 To dgvUSTVPositionen.SelectedRows.Count - 1
                If Not IsDBNull(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetragEUR").Value) AndAlso IsNumeric(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetragEUR").Value) Then
-                    countSumme += CDbl(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetragEUR").Value)
+                    countSummeEUR += CDbl(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetragEUR").Value)
+                End If
+
+                If Not IsDBNull(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetrag").Value) AndAlso IsNumeric(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetrag").Value) Then
+                    countSumme += CDbl(dgvUSTVPositionen.SelectedRows(i).Cells("UStVPo_USteuerbetrag").Value)
                End If
            Next

        End If

+        txtSummeEUR._value = countSummeEUR.ToString
        txtSumme._value = countSumme.ToString

    End Sub