ustva

2025-02-14 09:30:15 +01:00
parent f18807908c
commit bab0a87512
2 changed files with 120 additions and 56 deletions
--- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
@@ -63,11 +63,11 @@ Partial Class frmMDM_USTVAntrag
        Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Panel6 = New System.Windows.Forms.Panel()
-        Me.lblGesamtUSteuer = New System.Windows.Forms.Label()
+        Me.lblGesamtUSteuerFW = New System.Windows.Forms.Label()
        Me.Label12 = New System.Windows.Forms.Label()
-        Me.lblDiffernezbetrag = New System.Windows.Forms.Label()
+        Me.lblDiffernezbetragFW = New System.Windows.Forms.Label()
        Me.Label10 = New System.Windows.Forms.Label()
-        Me.lblGesamtErstattung = New System.Windows.Forms.Label()
+        Me.lblGesamtErstattungFW = New System.Windows.Forms.Label()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.Panel5 = New System.Windows.Forms.Panel()
        Me.Panel7 = New System.Windows.Forms.Panel()
@@ -95,6 +95,9 @@ Partial Class frmMDM_USTVAntrag
        Me.btnNeuerEintrag = New System.Windows.Forms.Button()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.lblGesamtUSteuer = New System.Windows.Forms.Label()
+        Me.lblDiffernezbetrag = New System.Windows.Forms.Label()
+        Me.lblGesamtErstattung = New System.Windows.Forms.Label()
        Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
        Me.Panel3.SuspendLayout()
        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -202,21 +205,24 @@ Partial Class frmMDM_USTVAntrag
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Panel1.Controls.Add(Me.lblWarnung)
+        Me.Panel1.Controls.Add(Me.lblGesamtUSteuer)
+        Me.Panel1.Controls.Add(Me.lblDiffernezbetrag)
+        Me.Panel1.Controls.Add(Me.lblGesamtErstattung)
        Me.Panel1.Controls.Add(Me.KdSearchBox1)
        Me.Panel1.Controls.Add(Me.cboAntragArt)
        Me.Panel1.Controls.Add(Me.lblKdNr)
        Me.Panel1.Controls.Add(Me.Panel9)
        Me.Panel1.Controls.Add(Me.Panel8)
        Me.Panel1.Controls.Add(Me.Panel6)
-        Me.Panel1.Controls.Add(Me.lblGesamtUSteuer)
+        Me.Panel1.Controls.Add(Me.lblGesamtUSteuerFW)
        Me.Panel1.Controls.Add(Me.Label12)
-        Me.Panel1.Controls.Add(Me.lblDiffernezbetrag)
+        Me.Panel1.Controls.Add(Me.lblDiffernezbetragFW)
        Me.Panel1.Controls.Add(Me.Label10)
-        Me.Panel1.Controls.Add(Me.lblGesamtErstattung)
+        Me.Panel1.Controls.Add(Me.lblGesamtErstattungFW)
        Me.Panel1.Controls.Add(Me.Label7)
        Me.Panel1.Controls.Add(Me.Panel5)
        Me.Panel1.Controls.Add(Me.lblFirma)
+        Me.Panel1.Controls.Add(Me.lblWarnung)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel1.Location = New System.Drawing.Point(0, 0)
        Me.Panel1.Name = "Panel1"
@@ -734,24 +740,24 @@ Partial Class frmMDM_USTVAntrag
        Me.Panel6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Panel6.BackColor = System.Drawing.Color.White
        Me.Panel6.ForeColor = System.Drawing.Color.White
-        Me.Panel6.Location = New System.Drawing.Point(676, 56)
+        Me.Panel6.Location = New System.Drawing.Point(571, 56)
        Me.Panel6.Name = "Panel6"
-        Me.Panel6.Size = New System.Drawing.Size(290, 1)
+        Me.Panel6.Size = New System.Drawing.Size(390, 1)
        Me.Panel6.TabIndex = 18
        '
-        'lblGesamtUSteuer
+        'lblGesamtUSteuerFW
        '
-        Me.lblGesamtUSteuer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblGesamtUSteuer.BackColor = System.Drawing.Color.Transparent
-        Me.lblGesamtUSteuer.Cursor = System.Windows.Forms.Cursors.Default
-        Me.lblGesamtUSteuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
-        Me.lblGesamtUSteuer.ForeColor = System.Drawing.Color.White
-        Me.lblGesamtUSteuer.Location = New System.Drawing.Point(826, 16)
-        Me.lblGesamtUSteuer.Name = "lblGesamtUSteuer"
-        Me.lblGesamtUSteuer.Size = New System.Drawing.Size(133, 17)
-        Me.lblGesamtUSteuer.TabIndex = 17
-        Me.lblGesamtUSteuer.Text = "000.000,00 €"
-        Me.lblGesamtUSteuer.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblGesamtUSteuerFW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblGesamtUSteuerFW.BackColor = System.Drawing.Color.Transparent
+        Me.lblGesamtUSteuerFW.Cursor = System.Windows.Forms.Cursors.Default
+        Me.lblGesamtUSteuerFW.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.lblGesamtUSteuerFW.ForeColor = System.Drawing.Color.White
+        Me.lblGesamtUSteuerFW.Location = New System.Drawing.Point(721, 16)
+        Me.lblGesamtUSteuerFW.Name = "lblGesamtUSteuerFW"
+        Me.lblGesamtUSteuerFW.Size = New System.Drawing.Size(133, 17)
+        Me.lblGesamtUSteuerFW.TabIndex = 17
+        Me.lblGesamtUSteuerFW.Text = "000.000,00 €"
+        Me.lblGesamtUSteuerFW.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'Label12
        '
@@ -761,25 +767,25 @@ Partial Class frmMDM_USTVAntrag
        Me.Label12.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
        Me.Label12.ForeColor = System.Drawing.Color.White
-        Me.Label12.Location = New System.Drawing.Point(684, 16)
+        Me.Label12.Location = New System.Drawing.Point(579, 16)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(136, 15)
        Me.Label12.TabIndex = 16
        Me.Label12.Text = "Gesamtbetrag USteuer:"
        '
-        'lblDiffernezbetrag
+        'lblDiffernezbetragFW
        '
-        Me.lblDiffernezbetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblDiffernezbetrag.BackColor = System.Drawing.Color.Transparent
-        Me.lblDiffernezbetrag.Cursor = System.Windows.Forms.Cursors.Default
-        Me.lblDiffernezbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
-        Me.lblDiffernezbetrag.ForeColor = System.Drawing.Color.White
-        Me.lblDiffernezbetrag.Location = New System.Drawing.Point(826, 59)
-        Me.lblDiffernezbetrag.Name = "lblDiffernezbetrag"
-        Me.lblDiffernezbetrag.Size = New System.Drawing.Size(133, 17)
-        Me.lblDiffernezbetrag.TabIndex = 15
-        Me.lblDiffernezbetrag.Text = "000.000,00 €"
-        Me.lblDiffernezbetrag.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblDiffernezbetragFW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblDiffernezbetragFW.BackColor = System.Drawing.Color.Transparent
+        Me.lblDiffernezbetragFW.Cursor = System.Windows.Forms.Cursors.Default
+        Me.lblDiffernezbetragFW.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.lblDiffernezbetragFW.ForeColor = System.Drawing.Color.White
+        Me.lblDiffernezbetragFW.Location = New System.Drawing.Point(721, 59)
+        Me.lblDiffernezbetragFW.Name = "lblDiffernezbetragFW"
+        Me.lblDiffernezbetragFW.Size = New System.Drawing.Size(133, 17)
+        Me.lblDiffernezbetragFW.TabIndex = 15
+        Me.lblDiffernezbetragFW.Text = "000.000,00 €"
+        Me.lblDiffernezbetragFW.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'Label10
        '
@@ -789,25 +795,25 @@ Partial Class frmMDM_USTVAntrag
        Me.Label10.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
        Me.Label10.ForeColor = System.Drawing.Color.White
-        Me.Label10.Location = New System.Drawing.Point(684, 59)
+        Me.Label10.Location = New System.Drawing.Point(579, 59)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(94, 15)
        Me.Label10.TabIndex = 14
        Me.Label10.Text = "Differenzbetrag:"
        '
-        'lblGesamtErstattung
+        'lblGesamtErstattungFW
        '
-        Me.lblGesamtErstattung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblGesamtErstattung.BackColor = System.Drawing.Color.Transparent
-        Me.lblGesamtErstattung.Cursor = System.Windows.Forms.Cursors.Default
-        Me.lblGesamtErstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
-        Me.lblGesamtErstattung.ForeColor = System.Drawing.Color.White
-        Me.lblGesamtErstattung.Location = New System.Drawing.Point(826, 36)
-        Me.lblGesamtErstattung.Name = "lblGesamtErstattung"
-        Me.lblGesamtErstattung.Size = New System.Drawing.Size(133, 17)
-        Me.lblGesamtErstattung.TabIndex = 13
-        Me.lblGesamtErstattung.Text = "000.000,00 €"
-        Me.lblGesamtErstattung.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblGesamtErstattungFW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblGesamtErstattungFW.BackColor = System.Drawing.Color.Transparent
+        Me.lblGesamtErstattungFW.Cursor = System.Windows.Forms.Cursors.Default
+        Me.lblGesamtErstattungFW.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.lblGesamtErstattungFW.ForeColor = System.Drawing.Color.White
+        Me.lblGesamtErstattungFW.Location = New System.Drawing.Point(721, 36)
+        Me.lblGesamtErstattungFW.Name = "lblGesamtErstattungFW"
+        Me.lblGesamtErstattungFW.Size = New System.Drawing.Size(133, 17)
+        Me.lblGesamtErstattungFW.TabIndex = 13
+        Me.lblGesamtErstattungFW.Text = "000.000,00 €"
+        Me.lblGesamtErstattungFW.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'Label7
        '
@@ -817,7 +823,7 @@ Partial Class frmMDM_USTVAntrag
        Me.Label7.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
        Me.Label7.ForeColor = System.Drawing.Color.White
-        Me.Label7.Location = New System.Drawing.Point(684, 36)
+        Me.Label7.Location = New System.Drawing.Point(579, 36)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(146, 15)
        Me.Label7.TabIndex = 12
@@ -1152,6 +1158,48 @@ Partial Class frmMDM_USTVAntrag
        Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
        Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
        '
+        'lblGesamtUSteuer
+        '
+        Me.lblGesamtUSteuer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblGesamtUSteuer.BackColor = System.Drawing.Color.Transparent
+        Me.lblGesamtUSteuer.Cursor = System.Windows.Forms.Cursors.Default
+        Me.lblGesamtUSteuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.lblGesamtUSteuer.ForeColor = System.Drawing.Color.White
+        Me.lblGesamtUSteuer.Location = New System.Drawing.Point(840, 16)
+        Me.lblGesamtUSteuer.Name = "lblGesamtUSteuer"
+        Me.lblGesamtUSteuer.Size = New System.Drawing.Size(133, 17)
+        Me.lblGesamtUSteuer.TabIndex = 26
+        Me.lblGesamtUSteuer.Text = "000.000,00"
+        Me.lblGesamtUSteuer.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'lblDiffernezbetrag
+        '
+        Me.lblDiffernezbetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblDiffernezbetrag.BackColor = System.Drawing.Color.Transparent
+        Me.lblDiffernezbetrag.Cursor = System.Windows.Forms.Cursors.Default
+        Me.lblDiffernezbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.lblDiffernezbetrag.ForeColor = System.Drawing.Color.White
+        Me.lblDiffernezbetrag.Location = New System.Drawing.Point(840, 59)
+        Me.lblDiffernezbetrag.Name = "lblDiffernezbetrag"
+        Me.lblDiffernezbetrag.Size = New System.Drawing.Size(133, 17)
+        Me.lblDiffernezbetrag.TabIndex = 25
+        Me.lblDiffernezbetrag.Text = "000.000,00"
+        Me.lblDiffernezbetrag.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'lblGesamtErstattung
+        '
+        Me.lblGesamtErstattung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblGesamtErstattung.BackColor = System.Drawing.Color.Transparent
+        Me.lblGesamtErstattung.Cursor = System.Windows.Forms.Cursors.Default
+        Me.lblGesamtErstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.lblGesamtErstattung.ForeColor = System.Drawing.Color.White
+        Me.lblGesamtErstattung.Location = New System.Drawing.Point(840, 36)
+        Me.lblGesamtErstattung.Name = "lblGesamtErstattung"
+        Me.lblGesamtErstattung.Size = New System.Drawing.Size(133, 17)
+        Me.lblGesamtErstattung.TabIndex = 24
+        Me.lblGesamtErstattung.Text = "000.000,00"
+        Me.lblGesamtErstattung.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
        'UstCntlUSTV_AntragPosition1
        '
        Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -1231,11 +1279,11 @@ Partial Class frmMDM_USTVAntrag
    Friend WithEvents btnStorno As Button
    Friend WithEvents btnTeilerstattung As Button
    Friend WithEvents lblAntragAbgeschlossen As Label
-    Friend WithEvents lblGesamtUSteuer As Label
+    Friend WithEvents lblGesamtUSteuerFW As Label
    Friend WithEvents Label12 As Label
-    Friend WithEvents lblDiffernezbetrag As Label
+    Friend WithEvents lblDiffernezbetragFW As Label
    Friend WithEvents Label10 As Label
-    Friend WithEvents lblGesamtErstattung As Label
+    Friend WithEvents lblGesamtErstattungFW As Label
    Friend WithEvents Label7 As Label
    Friend WithEvents Panel6 As Panel
    Friend WithEvents Panel7 As Panel
@@ -1268,4 +1316,7 @@ Partial Class frmMDM_USTVAntrag
    Friend WithEvents txtGueltig As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label13 As Label
    Friend WithEvents lblMWSTAbrechnung As Label
+    Friend WithEvents lblGesamtUSteuer As Label
+    Friend WithEvents lblDiffernezbetrag As Label
+    Friend WithEvents lblGesamtErstattung As Label
 End Class
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.vb
@@ -45,6 +45,11 @@ Public Class frmMDM_USTVAntrag
    Sub init(Optional Lieferant As String = "")
        pnlFilter.AutoScroll = False

+        lblGesamtUSteuerFW.Text = "-"
+        lblGesamtErstattungFW.Text = "-"
+        lblDiffernezbetragFW.Text = "-"
+
+
        lblGesamtUSteuer.Text = "-"
        lblGesamtErstattung.Text = "-"
        lblDiffernezbetrag.Text = "-"
@@ -171,13 +176,21 @@ Public Class frmMDM_USTVAntrag

        End With

-        Dim GesamtUSteuer As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
-        Dim GesamtErstattung As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
+        Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
+        Dim GesamtErstattungEUR As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
+        Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR
+
+        Dim GesamtUSteuer As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetrag),0)", "tblUStVPositionen", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
+        Dim GesamtErstattung As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetrag),0)", "tblUStVErstattung", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
        Dim Differnezbetrag As Double = GesamtUSteuer - GesamtErstattung

-        lblGesamtUSteuer.Text = GesamtUSteuer.ToString("C2")
-        lblGesamtErstattung.Text = GesamtErstattung.ToString("C2")
-        lblDiffernezbetrag.Text = Differnezbetrag.ToString("C2")
+        lblGesamtUSteuerFW.Text = GesamtUSteuer.ToString("C2")
+        lblGesamtErstattungFW.Text = GesamtErstattung.ToString("C2")
+        lblDiffernezbetragFW.Text = Differnezbetrag.ToString("C2")
+
+        lblGesamtUSteuer.Text = GesamtUSteuerEUR.ToString("C2")
+        lblGesamtErstattung.Text = GesamtErstattungEUR.ToString("C2")
+        lblDiffernezbetrag.Text = DiffernezbetragEUR.ToString("C2")

        Dim GET_Antraege
        Dim antraegeVearbeitet = False