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

EORI-Antrag

Browse Source
This commit is contained in:
d.breimaier
2023-10-16 14:25:42 +02:00
parent 3c56fa900c
commit e12394b8b7
2 changed files with 17 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb generated
View File

@@ -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

2
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -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))