From b9a41c6002889c7e427d15b73075ec3eeb291dbb Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 24 Oct 2023 14:24:16 +0200 Subject: [PATCH] EORI-Privat --- .../usrcntlEORI_Antrag.Designer.vb | 29 +++++++++++++++++++ .../FormulareBaukasten/usrcntlEORI_Antrag.vb | 11 +++++++ SDL/Formulare/KDFormulare/frmFormulare.vb | 2 +- 3 files changed, 41 insertions(+), 1 deletion(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb index f22f2f57..75e6f3e7 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb +++ b/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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb index aed83a7f..abdf4147 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb +++ b/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 diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 0682c70a..3d73f312 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/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))