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

ustva -> RZ

Browse Source
This commit is contained in:
d.breimaier
2025-05-12 11:21:10 +02:00
parent 3361f2655a
commit 805a05b5fe
2 changed files with 154 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -107,7 +107,6 @@ Partial Class frmMDM_USTVAntrag
Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlAntragsPosDetails = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.cbxKIUploaddelete = New System.Windows.Forms.CheckBox()
Me.scanUSTVA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
@@ -118,13 +117,18 @@ Partial Class frmMDM_USTVAntrag
Me.Panel3 = New System.Windows.Forms.Panel()
Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlErstattungsdetails = New System.Windows.Forms.Panel()
Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
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.cnS_KIUPLOAD = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
Me.Label16 = New System.Windows.Forms.Label()
Me.txtRZam = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label17 = New System.Windows.Forms.Label()
Me.txtRZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pnlBottom.SuspendLayout()
CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -348,7 +352,7 @@ Partial Class frmMDM_USTVAntrag
Me.pnlHeader.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlHeader.Location = New System.Drawing.Point(0, 0)
Me.pnlHeader.Name = "pnlHeader"
Me.pnlHeader.Size = New System.Drawing.Size(1454, 177)
Me.pnlHeader.Size = New System.Drawing.Size(1454, 201)
Me.pnlHeader.TabIndex = 0
'
'lblGesamtUSteuer
@@ -456,7 +460,7 @@ Partial Class frmMDM_USTVAntrag
Me.Panel9.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel9.Location = New System.Drawing.Point(0, 0)
Me.Panel9.Name = "Panel9"
Me.Panel9.Size = New System.Drawing.Size(65, 90)
Me.Panel9.Size = New System.Drawing.Size(65, 86)
Me.Panel9.TabIndex = 20
'
'cbxLand
@@ -483,7 +487,7 @@ Partial Class frmMDM_USTVAntrag
Me.lblLand.ForeColor = System.Drawing.Color.Black
Me.lblLand.Location = New System.Drawing.Point(0, 0)
Me.lblLand.Name = "lblLand"
Me.lblLand.Size = New System.Drawing.Size(65, 90)
Me.lblLand.Size = New System.Drawing.Size(65, 86)
Me.lblLand.TabIndex = 11
Me.lblLand.Text = "AT"
Me.lblLand.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -492,6 +496,10 @@ Partial Class frmMDM_USTVAntrag
'
Me.Panel8.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel8.Controls.Add(Me.Label16)
Me.Panel8.Controls.Add(Me.txtRZam)
Me.Panel8.Controls.Add(Me.Label17)
Me.Panel8.Controls.Add(Me.txtRZ)
Me.Panel8.Controls.Add(Me.Label15)
Me.Panel8.Controls.Add(Me.txtVZam)
Me.Panel8.Controls.Add(Me.btnAbfertigungsNrVergeben)
@@ -519,9 +527,9 @@ Partial Class frmMDM_USTVAntrag
Me.Panel8.Controls.Add(Me.txtVon)
Me.Panel8.Controls.Add(Me.txtBis)
Me.Panel8.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel8.Location = New System.Drawing.Point(0, 90)
Me.Panel8.Location = New System.Drawing.Point(0, 86)
Me.Panel8.Name = "Panel8"
Me.Panel8.Size = New System.Drawing.Size(973, 87)
Me.Panel8.Size = New System.Drawing.Size(973, 115)
Me.Panel8.TabIndex = 19
'
'Label15
@@ -565,11 +573,12 @@ Partial Class frmMDM_USTVAntrag
'btnAbfertigungsNrVergeben
'
Me.btnAbfertigungsNrVergeben.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAbfertigungsNrVergeben.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAbfertigungsNrVergeben.ForeColor = System.Drawing.Color.Black
Me.btnAbfertigungsNrVergeben.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAbfertigungsNrVergeben.Location = New System.Drawing.Point(773, 30)
Me.btnAbfertigungsNrVergeben.Location = New System.Drawing.Point(736, 32)
Me.btnAbfertigungsNrVergeben.Name = "btnAbfertigungsNrVergeben"
Me.btnAbfertigungsNrVergeben.Size = New System.Drawing.Size(51, 27)
Me.btnAbfertigungsNrVergeben.Size = New System.Drawing.Size(43, 27)
Me.btnAbfertigungsNrVergeben.TabIndex = 50
Me.btnAbfertigungsNrVergeben.Text = "AbfNr"
Me.btnAbfertigungsNrVergeben.UseVisualStyleBackColor = True
@@ -582,11 +591,11 @@ Partial Class frmMDM_USTVAntrag
Me.Label14.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.ForeColor = System.Drawing.Color.Black
Me.Label14.Location = New System.Drawing.Point(524, 64)
Me.Label14.Location = New System.Drawing.Point(800, 39)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(101, 17)
Me.Label14.Size = New System.Drawing.Size(62, 17)
Me.Label14.TabIndex = 27
Me.Label14.Text = "eingereicht am"
Me.Label14.Text = "eing. am"
'
'txtEingereichtAm
'
@@ -604,7 +613,7 @@ Partial Class frmMDM_USTVAntrag
Me.txtEingereichtAm._WaehrungZeichen = False
Me.txtEingereichtAm.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtEingereichtAm.ForeColor = System.Drawing.Color.Black
Me.txtEingereichtAm.Location = New System.Drawing.Point(654, 60)
Me.txtEingereichtAm.Location = New System.Drawing.Point(865, 31)
Me.txtEingereichtAm.MaxLength = 10
Me.txtEingereichtAm.MaxLineLength = -1
Me.txtEingereichtAm.MaxLines_Warning = ""
@@ -708,11 +717,11 @@ Partial Class frmMDM_USTVAntrag
Me.Label9.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.ForeColor = System.Drawing.Color.Black
Me.Label9.Location = New System.Drawing.Point(826, 35)
Me.Label9.Location = New System.Drawing.Point(524, 64)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(30, 17)
Me.Label9.Size = New System.Drawing.Size(107, 17)
Me.Label9.TabIndex = 19
Me.Label9.Text = "VZ:"
Me.Label9.Text = "Vorauszahlung:"
'
'txtVZ
'
@@ -730,13 +739,13 @@ Partial Class frmMDM_USTVAntrag
Me.txtVZ._WaehrungZeichen = True
Me.txtVZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtVZ.ForeColor = System.Drawing.Color.Black
Me.txtVZ.Location = New System.Drawing.Point(865, 31)
Me.txtVZ.Location = New System.Drawing.Point(654, 59)
Me.txtVZ.MaxLength = 10
Me.txtVZ.MaxLineLength = -1
Me.txtVZ.MaxLines_Warning = ""
Me.txtVZ.MaxLines_Warning_Label = Nothing
Me.txtVZ.Name = "txtVZ"
Me.txtVZ.Size = New System.Drawing.Size(100, 23)
Me.txtVZ.Size = New System.Drawing.Size(125, 23)
Me.txtVZ.TabIndex = 20
'
'txtAbfNr
@@ -755,13 +764,13 @@ Partial Class frmMDM_USTVAntrag
Me.txtAbfNr._WaehrungZeichen = False
Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAbfNr.ForeColor = System.Drawing.Color.Red
Me.txtAbfNr.Location = New System.Drawing.Point(654, 33)
Me.txtAbfNr.Location = New System.Drawing.Point(624, 33)
Me.txtAbfNr.MaxLength = 10
Me.txtAbfNr.MaxLineLength = -1
Me.txtAbfNr.MaxLines_Warning = ""
Me.txtAbfNr.MaxLines_Warning_Label = Nothing
Me.txtAbfNr.Name = "txtAbfNr"
Me.txtAbfNr.Size = New System.Drawing.Size(117, 23)
Me.txtAbfNr.Size = New System.Drawing.Size(111, 23)
Me.txtAbfNr.TabIndex = 18
'
'Label8
@@ -773,9 +782,9 @@ Partial Class frmMDM_USTVAntrag
Me.Label8.ForeColor = System.Drawing.Color.Black
Me.Label8.Location = New System.Drawing.Point(524, 37)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(112, 17)
Me.Label8.Size = New System.Drawing.Size(57, 17)
Me.Label8.TabIndex = 17
Me.Label8.Text = "Abfertigungs-Nr:"
Me.Label8.Text = "Abf.-Nr:"
'
'cbxFiliale
'
@@ -832,13 +841,13 @@ Partial Class frmMDM_USTVAntrag
Me.txtBezugsNr._WaehrungZeichen = False
Me.txtBezugsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtBezugsNr.ForeColor = System.Drawing.Color.Red
Me.txtBezugsNr.Location = New System.Drawing.Point(654, 4)
Me.txtBezugsNr.Location = New System.Drawing.Point(641, 4)
Me.txtBezugsNr.MaxLength = 10
Me.txtBezugsNr.MaxLineLength = -1
Me.txtBezugsNr.MaxLines_Warning = ""
Me.txtBezugsNr.MaxLines_Warning_Label = Nothing
Me.txtBezugsNr.Name = "txtBezugsNr"
Me.txtBezugsNr.Size = New System.Drawing.Size(146, 23)
Me.txtBezugsNr.Size = New System.Drawing.Size(138, 23)
Me.txtBezugsNr.TabIndex = 14
'
'cbxWahrung
@@ -1085,7 +1094,7 @@ Partial Class frmMDM_USTVAntrag
Me.Panel5.Location = New System.Drawing.Point(973, 0)
Me.Panel5.Margin = New System.Windows.Forms.Padding(0)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(481, 177)
Me.Panel5.Size = New System.Drawing.Size(481, 201)
Me.Panel5.TabIndex = 9
'
'Panel7
@@ -1093,7 +1102,7 @@ Partial Class frmMDM_USTVAntrag
Me.Panel7.Controls.Add(Me.Label6)
Me.Panel7.Controls.Add(Me.rtbStatusText)
Me.Panel7.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel7.Location = New System.Drawing.Point(0, 50)
Me.Panel7.Location = New System.Drawing.Point(0, 74)
Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(481, 69)
Me.Panel7.TabIndex = 20
@@ -1132,7 +1141,7 @@ Partial Class frmMDM_USTVAntrag
Me.FlowLayoutPanel.Controls.Add(Me.btnStorno)
Me.FlowLayoutPanel.Controls.Add(Me.lblAntragAbgeschlossen)
Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Bottom
Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 119)
Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 143)
Me.FlowLayoutPanel.Margin = New System.Windows.Forms.Padding(0)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(481, 58)
@@ -1323,9 +1332,9 @@ Partial Class frmMDM_USTVAntrag
Me.pnlBody.BackColor = System.Drawing.Color.White
Me.pnlBody.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlBody.Controls.Add(Me.TabControl1)
Me.pnlBody.Location = New System.Drawing.Point(0, 177)
Me.pnlBody.Location = New System.Drawing.Point(0, 206)
Me.pnlBody.Name = "pnlBody"
Me.pnlBody.Size = New System.Drawing.Size(1454, 472)
Me.pnlBody.Size = New System.Drawing.Size(1454, 443)
Me.pnlBody.TabIndex = 1
'
'TabControl1
@@ -1336,7 +1345,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(1452, 470)
Me.TabControl1.Size = New System.Drawing.Size(1452, 441)
Me.TabControl1.TabIndex = 1
'
'TabPage1
@@ -1346,7 +1355,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(1444, 444)
Me.TabPage1.Size = New System.Drawing.Size(1444, 415)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Antragspositionen"
Me.TabPage1.UseVisualStyleBackColor = True
@@ -1369,14 +1378,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(1438, 169)
Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1438, 140)
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, 178)
Me.pnlAntragsPosDetails.Location = New System.Drawing.Point(3, 149)
Me.pnlAntragsPosDetails.Name = "pnlAntragsPosDetails"
Me.pnlAntragsPosDetails.Size = New System.Drawing.Size(1438, 263)
Me.pnlAntragsPosDetails.TabIndex = 2
@@ -1393,14 +1402,6 @@ Partial Class frmMDM_USTVAntrag
Me.Panel2.Size = New System.Drawing.Size(1438, 263)
Me.Panel2.TabIndex = 1
'
'UstCntlUSTV_AntragPosition1
'
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1546,14 +1547,6 @@ Partial Class frmMDM_USTVAntrag
Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261)
Me.pnlErstattungsdetails.TabIndex = 0
'
'UstCntlUSTV_AntragErstattungen1
'
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.TabIndex = 2
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1609,6 +1602,98 @@ Partial Class frmMDM_USTVAntrag
Me.cnS_KIUPLOAD.Name = "ContextMenuStrip1"
Me.cnS_KIUPLOAD.Size = New System.Drawing.Size(61, 4)
'
'UstCntlUSTV_AntragPosition1
'
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
'
'UstCntlUSTV_AntragErstattungen1
'
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.TabIndex = 2
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.BackColor = System.Drawing.Color.Transparent
Me.Label16.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label16.ForeColor = System.Drawing.Color.Black
Me.Label16.Location = New System.Drawing.Point(800, 91)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(54, 17)
Me.Label16.TabIndex = 55
Me.Label16.Text = "RZ am:"
'
'txtRZam
'
Me.txtRZam._DateTimeOnly = False
Me.txtRZam._numbersOnly = False
Me.txtRZam._numbersOnlyKommastellen = ""
Me.txtRZam._numbersOnlyTrennzeichen = False
Me.txtRZam._Prozent = False
Me.txtRZam._ShortDateNew = False
Me.txtRZam._ShortDateOnly = True
Me.txtRZam._TimeOnly = False
Me.txtRZam._TimeOnly_Seconds = False
Me.txtRZam._value = ""
Me.txtRZam._Waehrung = False
Me.txtRZam._WaehrungZeichen = False
Me.txtRZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtRZam.ForeColor = System.Drawing.Color.Black
Me.txtRZam.Location = New System.Drawing.Point(865, 87)
Me.txtRZam.MaxLength = 10
Me.txtRZam.MaxLineLength = -1
Me.txtRZam.MaxLines_Warning = ""
Me.txtRZam.MaxLines_Warning_Label = Nothing
Me.txtRZam.Name = "txtRZam"
Me.txtRZam.Size = New System.Drawing.Size(100, 23)
Me.txtRZam.TabIndex = 56
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.BackColor = System.Drawing.Color.Transparent
Me.Label17.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label17.ForeColor = System.Drawing.Color.Black
Me.Label17.Location = New System.Drawing.Point(524, 91)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(94, 17)
Me.Label17.TabIndex = 53
Me.Label17.Text = "Rückzahlung:"
'
'txtRZ
'
Me.txtRZ._DateTimeOnly = False
Me.txtRZ._numbersOnly = True
Me.txtRZ._numbersOnlyKommastellen = ""
Me.txtRZ._numbersOnlyTrennzeichen = True
Me.txtRZ._Prozent = False
Me.txtRZ._ShortDateNew = False
Me.txtRZ._ShortDateOnly = False
Me.txtRZ._TimeOnly = False
Me.txtRZ._TimeOnly_Seconds = False
Me.txtRZ._value = ""
Me.txtRZ._Waehrung = True
Me.txtRZ._WaehrungZeichen = True
Me.txtRZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtRZ.ForeColor = System.Drawing.Color.Black
Me.txtRZ.Location = New System.Drawing.Point(654, 87)
Me.txtRZ.MaxLength = 10
Me.txtRZ.MaxLineLength = -1
Me.txtRZ.MaxLines_Warning = ""
Me.txtRZ.MaxLines_Warning_Label = Nothing
Me.txtRZ.Name = "txtRZ"
Me.txtRZ.Size = New System.Drawing.Size(125, 23)
Me.txtRZ.TabIndex = 54
'
'frmMDM_USTVAntrag
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1754,4 +1839,8 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents cnS_KIUPLOAD As ContextMenuStrip
Friend WithEvents cbxKIUploaddelete As CheckBox
Friend WithEvents pb_Beleg As PictureBox
Friend WithEvents Label16 As Label
Friend WithEvents txtRZam As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label17 As Label
Friend WithEvents txtRZ As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

16
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -325,6 +325,10 @@ Public Class frmMDM_USTVAntrag
txtVZ.Text = If(USTV_ANTRAG.UStVAn_VZBetrag, "")
txtVZam._value = If(USTV_ANTRAG.UStVAn_VZDatum, "")
txtRZ.Text = If(USTV_ANTRAG.UStVAn_RZBetragVZ, "")
txtRZam._value = If(USTV_ANTRAG.UStVAn_RZDatumVZ, "")
txtBezugsNr.Text = If(USTV_ANTRAG.UStVAn_BezugsNr, "")
txtAbfNr.Text = If(USTV_ANTRAG.AbfertigungsNr, "")
txtEingereichtAm.Text = If(USTV_ANTRAG.UStVAn_AntragEingereichtAm, "")
@@ -366,6 +370,18 @@ Public Class frmMDM_USTVAntrag
USTV_ANTRAG.UStVAn_VZDatum = Nothing
End If
If txtRZ.Text <> "" AndAlso IsNumeric(txtRZ.Text) Then
USTV_ANTRAG.UStVAn_RZBetragVZ = CDbl(txtRZ.Text)
Else
USTV_ANTRAG.UStVAn_RZBetragVZ = Nothing
End If
If txtRZam.Text <> "" AndAlso IsDate(txtRZam.Text) Then
USTV_ANTRAG.UStVAn_RZDatumVZ = CDate(txtRZam.Text)
Else
USTV_ANTRAG.UStVAn_RZDatumVZ = Nothing
End If
USTV_ANTRAG.UStVAn_BezugsNr = txtBezugsNr.Text
USTV_ANTRAG.AbfertigungsNr = txtAbfNr.Text