From e12394b8b778ee7c900f902c3968a372fbbf21f8 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 16 Oct 2023 14:25:42 +0200 Subject: [PATCH] EORI-Antrag --- .../usrcntlEORI_Antrag.Designer.vb | 17 ++++++++++++++++- SDL/Formulare/KDFormulare/frmFormulare.vb | 2 +- 2 files changed, 17 insertions(+), 2 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb index 35b05eed..748fc2ce 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb @@ -61,6 +61,7 @@ Partial Class usrcntlEORI_Antrag Me.cbxAntragsart = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.Label14 = New System.Windows.Forms.Label() + Me.cbxDatum = New System.Windows.Forms.CheckBox() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -602,6 +603,7 @@ Partial Class usrcntlEORI_Antrag ' 'DateTimePicker1 ' + Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker1.Location = New System.Drawing.Point(731, 38) Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.Size = New System.Drawing.Size(78, 20) @@ -610,18 +612,30 @@ Partial Class usrcntlEORI_Antrag 'Label14 ' Me.Label14.AutoSize = True - Me.Label14.Location = New System.Drawing.Point(672, 40) + Me.Label14.Location = New System.Drawing.Point(675, 40) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(41, 13) Me.Label14.TabIndex = 69 Me.Label14.Text = "Datum:" ' + 'cbxDatum + ' + Me.cbxDatum.AutoSize = True + Me.cbxDatum.Checked = True + Me.cbxDatum.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxDatum.Location = New System.Drawing.Point(815, 40) + Me.cbxDatum.Name = "cbxDatum" + Me.cbxDatum.Size = New System.Drawing.Size(15, 14) + Me.cbxDatum.TabIndex = 70 + Me.cbxDatum.UseVisualStyleBackColor = True + ' 'usrcntlEORI_Antrag ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.cbxDatum) Me.Controls.Add(Me.Label14) Me.Controls.Add(Me.DateTimePicker1) Me.Controls.Add(Me.Label13) @@ -707,4 +721,5 @@ Partial Class usrcntlEORI_Antrag Friend WithEvents cbxAntragsart As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents DateTimePicker1 As DateTimePicker Friend WithEvents Label14 As Label + Friend WithEvents cbxDatum As CheckBox End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 9a533ec4..a537f35f 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -4206,7 +4206,7 @@ Public Class FormularManagerNEU End Select - If usrCntl.DateTimePicker1 IsNot Nothing AndAlso IsDate((usrCntl.DateTimePicker1.Value)) Then + If usrCntl.DateTimePicker1 IsNot Nothing AndAlso IsDate((usrCntl.DateTimePicker1.Value)) AndAlso usrCntl.cbxDatum.Checked Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Day, 135, 78, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Month, 145, 78, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Year, 157, 78, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))