edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ustva

Browse Source
This commit is contained in:
d.breimaier
2025-02-14 09:30:15 +01:00
parent f18807908c
commit bab0a87512
2 changed files with 120 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

153
SDL/USTV/frmMDM_USTVAntrag.Designer.vb generated
View File

@@ -63,11 +63,11 @@ Partial Class frmMDM_USTVAntrag
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel6 = New System.Windows.Forms.Panel() 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.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.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.Label7 = New System.Windows.Forms.Label()
Me.Panel5 = New System.Windows.Forms.Panel() Me.Panel5 = New System.Windows.Forms.Panel()
Me.Panel7 = 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.btnNeuerEintrag = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuStrip2 = 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.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -202,21 +205,24 @@ Partial Class frmMDM_USTVAntrag
'Panel1 '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.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.KdSearchBox1)
Me.Panel1.Controls.Add(Me.cboAntragArt) Me.Panel1.Controls.Add(Me.cboAntragArt)
Me.Panel1.Controls.Add(Me.lblKdNr) Me.Panel1.Controls.Add(Me.lblKdNr)
Me.Panel1.Controls.Add(Me.Panel9) Me.Panel1.Controls.Add(Me.Panel9)
Me.Panel1.Controls.Add(Me.Panel8) Me.Panel1.Controls.Add(Me.Panel8)
Me.Panel1.Controls.Add(Me.Panel6) 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.Label12)
Me.Panel1.Controls.Add(Me.lblDiffernezbetrag) Me.Panel1.Controls.Add(Me.lblDiffernezbetragFW)
Me.Panel1.Controls.Add(Me.Label10) 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.Label7)
Me.Panel1.Controls.Add(Me.Panel5) Me.Panel1.Controls.Add(Me.Panel5)
Me.Panel1.Controls.Add(Me.lblFirma) Me.Panel1.Controls.Add(Me.lblFirma)
Me.Panel1.Controls.Add(Me.lblWarnung)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1" 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.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.BackColor = System.Drawing.Color.White
Me.Panel6.ForeColor = 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.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(290, 1) Me.Panel6.Size = New System.Drawing.Size(390, 1)
Me.Panel6.TabIndex = 18 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.lblGesamtUSteuerFW.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.lblGesamtUSteuerFW.BackColor = System.Drawing.Color.Transparent
Me.lblGesamtUSteuer.Cursor = System.Windows.Forms.Cursors.Default Me.lblGesamtUSteuerFW.Cursor = System.Windows.Forms.Cursors.Default
Me.lblGesamtUSteuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) Me.lblGesamtUSteuerFW.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblGesamtUSteuer.ForeColor = System.Drawing.Color.White Me.lblGesamtUSteuerFW.ForeColor = System.Drawing.Color.White
Me.lblGesamtUSteuer.Location = New System.Drawing.Point(826, 16) Me.lblGesamtUSteuerFW.Location = New System.Drawing.Point(721, 16)
Me.lblGesamtUSteuer.Name = "lblGesamtUSteuer" Me.lblGesamtUSteuerFW.Name = "lblGesamtUSteuerFW"
Me.lblGesamtUSteuer.Size = New System.Drawing.Size(133, 17) Me.lblGesamtUSteuerFW.Size = New System.Drawing.Size(133, 17)
Me.lblGesamtUSteuer.TabIndex = 17 Me.lblGesamtUSteuerFW.TabIndex = 17
Me.lblGesamtUSteuer.Text = "000.000,00 €" Me.lblGesamtUSteuerFW.Text = "000.000,00 €"
Me.lblGesamtUSteuer.TextAlign = System.Drawing.ContentAlignment.TopRight Me.lblGesamtUSteuerFW.TextAlign = System.Drawing.ContentAlignment.TopRight
' '
'Label12 'Label12
' '
@@ -761,25 +767,25 @@ Partial Class frmMDM_USTVAntrag
Me.Label12.Cursor = System.Windows.Forms.Cursors.Default Me.Label12.Cursor = System.Windows.Forms.Cursors.Default
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label12.ForeColor = System.Drawing.Color.White 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.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(136, 15) Me.Label12.Size = New System.Drawing.Size(136, 15)
Me.Label12.TabIndex = 16 Me.Label12.TabIndex = 16
Me.Label12.Text = "Gesamtbetrag USteuer:" 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.lblDiffernezbetragFW.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.lblDiffernezbetragFW.BackColor = System.Drawing.Color.Transparent
Me.lblDiffernezbetrag.Cursor = System.Windows.Forms.Cursors.Default Me.lblDiffernezbetragFW.Cursor = System.Windows.Forms.Cursors.Default
Me.lblDiffernezbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) Me.lblDiffernezbetragFW.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblDiffernezbetrag.ForeColor = System.Drawing.Color.White Me.lblDiffernezbetragFW.ForeColor = System.Drawing.Color.White
Me.lblDiffernezbetrag.Location = New System.Drawing.Point(826, 59) Me.lblDiffernezbetragFW.Location = New System.Drawing.Point(721, 59)
Me.lblDiffernezbetrag.Name = "lblDiffernezbetrag" Me.lblDiffernezbetragFW.Name = "lblDiffernezbetragFW"
Me.lblDiffernezbetrag.Size = New System.Drawing.Size(133, 17) Me.lblDiffernezbetragFW.Size = New System.Drawing.Size(133, 17)
Me.lblDiffernezbetrag.TabIndex = 15 Me.lblDiffernezbetragFW.TabIndex = 15
Me.lblDiffernezbetrag.Text = "000.000,00 €" Me.lblDiffernezbetragFW.Text = "000.000,00 €"
Me.lblDiffernezbetrag.TextAlign = System.Drawing.ContentAlignment.TopRight Me.lblDiffernezbetragFW.TextAlign = System.Drawing.ContentAlignment.TopRight
' '
'Label10 'Label10
' '
@@ -789,25 +795,25 @@ Partial Class frmMDM_USTVAntrag
Me.Label10.Cursor = System.Windows.Forms.Cursors.Default Me.Label10.Cursor = System.Windows.Forms.Cursors.Default
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label10.ForeColor = System.Drawing.Color.White 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.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(94, 15) Me.Label10.Size = New System.Drawing.Size(94, 15)
Me.Label10.TabIndex = 14 Me.Label10.TabIndex = 14
Me.Label10.Text = "Differenzbetrag:" 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.lblGesamtErstattungFW.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.lblGesamtErstattungFW.BackColor = System.Drawing.Color.Transparent
Me.lblGesamtErstattung.Cursor = System.Windows.Forms.Cursors.Default Me.lblGesamtErstattungFW.Cursor = System.Windows.Forms.Cursors.Default
Me.lblGesamtErstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) Me.lblGesamtErstattungFW.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblGesamtErstattung.ForeColor = System.Drawing.Color.White Me.lblGesamtErstattungFW.ForeColor = System.Drawing.Color.White
Me.lblGesamtErstattung.Location = New System.Drawing.Point(826, 36) Me.lblGesamtErstattungFW.Location = New System.Drawing.Point(721, 36)
Me.lblGesamtErstattung.Name = "lblGesamtErstattung" Me.lblGesamtErstattungFW.Name = "lblGesamtErstattungFW"
Me.lblGesamtErstattung.Size = New System.Drawing.Size(133, 17) Me.lblGesamtErstattungFW.Size = New System.Drawing.Size(133, 17)
Me.lblGesamtErstattung.TabIndex = 13 Me.lblGesamtErstattungFW.TabIndex = 13
Me.lblGesamtErstattung.Text = "000.000,00 €" Me.lblGesamtErstattungFW.Text = "000.000,00 €"
Me.lblGesamtErstattung.TextAlign = System.Drawing.ContentAlignment.TopRight Me.lblGesamtErstattungFW.TextAlign = System.Drawing.ContentAlignment.TopRight
' '
'Label7 'Label7
' '
@@ -817,7 +823,7 @@ Partial Class frmMDM_USTVAntrag
Me.Label7.Cursor = System.Windows.Forms.Cursors.Default Me.Label7.Cursor = System.Windows.Forms.Cursors.Default
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label7.ForeColor = System.Drawing.Color.White 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.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(146, 15) Me.Label7.Size = New System.Drawing.Size(146, 15)
Me.Label7.TabIndex = 12 Me.Label7.TabIndex = 12
@@ -1152,6 +1158,48 @@ Partial Class frmMDM_USTVAntrag
Me.ContextMenuStrip2.Name = "ContextMenuStrip1" Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4) 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 'UstCntlUSTV_AntragPosition1
' '
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -1231,11 +1279,11 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents btnStorno As Button Friend WithEvents btnStorno As Button
Friend WithEvents btnTeilerstattung As Button Friend WithEvents btnTeilerstattung As Button
Friend WithEvents lblAntragAbgeschlossen As Label Friend WithEvents lblAntragAbgeschlossen As Label
Friend WithEvents lblGesamtUSteuer As Label Friend WithEvents lblGesamtUSteuerFW As Label
Friend WithEvents Label12 As Label Friend WithEvents Label12 As Label
Friend WithEvents lblDiffernezbetrag As Label Friend WithEvents lblDiffernezbetragFW As Label
Friend WithEvents Label10 As Label Friend WithEvents Label10 As Label
Friend WithEvents lblGesamtErstattung As Label Friend WithEvents lblGesamtErstattungFW As Label
Friend WithEvents Label7 As Label Friend WithEvents Label7 As Label
Friend WithEvents Panel6 As Panel Friend WithEvents Panel6 As Panel
Friend WithEvents Panel7 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 txtGueltig As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label13 As Label Friend WithEvents Label13 As Label
Friend WithEvents lblMWSTAbrechnung As Label Friend WithEvents lblMWSTAbrechnung As Label
Friend WithEvents lblGesamtUSteuer As Label
Friend WithEvents lblDiffernezbetrag As Label
Friend WithEvents lblGesamtErstattung As Label
End Class End Class

23
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -45,6 +45,11 @@ Public Class frmMDM_USTVAntrag
Sub init(Optional Lieferant As String = "") Sub init(Optional Lieferant As String = "")
pnlFilter.AutoScroll = False pnlFilter.AutoScroll = False
lblGesamtUSteuerFW.Text = "-"
lblGesamtErstattungFW.Text = "-"
lblDiffernezbetragFW.Text = "-"
lblGesamtUSteuer.Text = "-" lblGesamtUSteuer.Text = "-"
lblGesamtErstattung.Text = "-" lblGesamtErstattung.Text = "-"
lblDiffernezbetrag.Text = "-" lblDiffernezbetrag.Text = "-"
@@ -171,13 +176,21 @@ Public Class frmMDM_USTVAntrag
End With End With
Dim GesamtUSteuer As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "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 GesamtErstattung As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "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 Dim Differnezbetrag As Double = GesamtUSteuer - GesamtErstattung
lblGesamtUSteuer.Text = GesamtUSteuer.ToString("C2") lblGesamtUSteuerFW.Text = GesamtUSteuer.ToString("C2")
lblGesamtErstattung.Text = GesamtErstattung.ToString("C2") lblGesamtErstattungFW.Text = GesamtErstattung.ToString("C2")
lblDiffernezbetrag.Text = Differnezbetrag.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 GET_Antraege
Dim antraegeVearbeitet = False Dim antraegeVearbeitet = False