From 805a05b5fe8d99ce312aad7fac9f6c8fd532f786 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 12 May 2025 11:21:10 +0200 Subject: [PATCH] ustva -> RZ --- SDL/USTV/frmMDM_USTVAntrag.Designer.vb | 187 ++++++++++++++++++------- SDL/USTV/frmMDM_USTVAntrag.vb | 16 +++ 2 files changed, 154 insertions(+), 49 deletions(-) diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index c0601e37..fe2b4650 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -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 diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 481a5179..02f805a3 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -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