EORI-Privat

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb

@@ -64,6 +64,8 @@ Partial Class usrcntlEORI_Antrag
         Me.cbxDatum = New System.Windows.Forms.CheckBox()
         Me.cboPrivatperson = New System.Windows.Forms.CheckBox()
         Me.gebDatum = New System.Windows.Forms.DateTimePicker()
+        Me.linkBMF = New System.Windows.Forms.LinkLabel()
+        Me.cbxGebDatu = New System.Windows.Forms.CheckBox()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -649,6 +651,29 @@ Partial Class usrcntlEORI_Antrag
         Me.gebDatum.Name = "gebDatum"
         Me.gebDatum.Size = New System.Drawing.Size(78, 20)
         Me.gebDatum.TabIndex = 72
+        Me.gebDatum.Visible = False
+        '
+        'linkBMF
+        '
+        Me.linkBMF.AutoSize = True
+        Me.linkBMF.Location = New System.Drawing.Point(791, 12)
+        Me.linkBMF.Name = "linkBMF"
+        Me.linkBMF.Size = New System.Drawing.Size(67, 13)
+        Me.linkBMF.TabIndex = 73
+        Me.linkBMF.TabStop = True
+        Me.linkBMF.Text = "Onlineantrag"
+        '
+        'cbxGebDatu
+        '
+        Me.cbxGebDatu.AutoSize = True
+        Me.cbxGebDatu.Checked = True
+        Me.cbxGebDatu.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxGebDatu.Location = New System.Drawing.Point(184, 150)
+        Me.cbxGebDatu.Name = "cbxGebDatu"
+        Me.cbxGebDatu.Size = New System.Drawing.Size(15, 14)
+        Me.cbxGebDatu.TabIndex = 74
+        Me.cbxGebDatu.UseVisualStyleBackColor = True
+        Me.cbxGebDatu.Visible = False
         '
         'usrcntlEORI_Antrag
         '
@@ -656,6 +681,8 @@ Partial Class usrcntlEORI_Antrag
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.cbxGebDatu)
+        Me.Controls.Add(Me.linkBMF)
         Me.Controls.Add(Me.gebDatum)
         Me.Controls.Add(Me.cboPrivatperson)
         Me.Controls.Add(Me.cbxDatum)
@@ -747,4 +774,6 @@ Partial Class usrcntlEORI_Antrag
     Friend WithEvents cbxDatum As CheckBox
     Friend WithEvents cboPrivatperson As CheckBox
     Friend WithEvents gebDatum As DateTimePicker
+    Friend WithEvents linkBMF As LinkLabel
+    Friend WithEvents cbxGebDatu As CheckBox
 End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb

@@ -114,12 +114,23 @@
             txtUid.Visible = False
             gebDatum.Visible = True
             lblHerrFrau.Text = "Vor - Nachname:"
+            cbxGebDatu.Visible = True
 
         Else
             Label2.Text = "UID-Nr:"
             txtUid.Visible = True
             gebDatum.Visible = False
             lblHerrFrau.Text = "Herr/Frau:"
+            cbxGebDatu.Visible = False
         End If
     End Sub
+
+    Private Sub linkBMF_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles linkBMF.LinkClicked
+        If cboPrivatperson.Checked Then
+            Process.Start("https://www.formulare-bfinv.de/ffw/catalog/openForm.do?path=catalog%3A%2F%2FUnternehmen%2Fzoelle%2Fatlas%2F0870c")
+        Else
+            Process.Start("https://www.formulare-bfinv.de/ffw/catalog/openForm.do?path=catalog%3A%2F%2FUnternehmen%2Fzoelle%2Fatlas%2F0870a")
+        End If
+
+    End Sub
 End Class

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -4263,7 +4263,7 @@ Public Class FormularManagerNEU
                         listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Year, 157, 82 + top, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
                     End If
 
-                    If usrCntl.gebDatum IsNot Nothing AndAlso IsDate((usrCntl.gebDatum.Value)) Then
+                    If usrCntl.gebDatum IsNot Nothing AndAlso IsDate((usrCntl.gebDatum.Value)) AndAlso usrCntl.cbxGebDatu.Checked Then
                         listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Day, 25, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
                         listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Month, 35, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
                         listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.gebDatum.Value).Year, 47, 133, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))