From f967f0727e192b01a706c714f6893d9eaabeebd6 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 16 Oct 2023 13:49:28 +0200 Subject: [PATCH] EORI_Antrag --- .../usrcntlEORI_Antrag.Designer.vb | 48 +++++++++++++++++++ .../FormulareBaukasten/usrcntlEORI_Antrag.vb | 5 ++ SDL/Formulare/KDFormulare/frmFormulare.vb | 26 ++++++++-- .../DATENSERVER/frmVorlagenUpload.vb | 10 ++-- 4 files changed, 81 insertions(+), 8 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb index dd4966ce..35b05eed 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb @@ -57,6 +57,10 @@ Partial Class usrcntlEORI_Antrag Me.Label9 = New System.Windows.Forms.Label() Me.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label10 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.cbxAntragsart = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.Label14 = New System.Windows.Forms.Label() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -576,12 +580,52 @@ Partial Class usrcntlEORI_Antrag Me.Label10.TabIndex = 65 Me.Label10.Text = "-" ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(245, 40) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(58, 13) + Me.Label13.TabIndex = 66 + Me.Label13.Text = "Antragsart:" + ' + 'cbxAntragsart + ' + Me.cbxAntragsart._allowedValuesFreiText = Nothing + Me.cbxAntragsart._allowFreiText = False + Me.cbxAntragsart._value = "" + Me.cbxAntragsart.FormattingEnabled = True + Me.cbxAntragsart.Location = New System.Drawing.Point(310, 37) + Me.cbxAntragsart.Name = "cbxAntragsart" + Me.cbxAntragsart.Size = New System.Drawing.Size(100, 21) + Me.cbxAntragsart.TabIndex = 67 + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.Location = New System.Drawing.Point(731, 38) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.Size = New System.Drawing.Size(78, 20) + Me.DateTimePicker1.TabIndex = 68 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(672, 40) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(41, 13) + Me.Label14.TabIndex = 69 + Me.Label14.Text = "Datum:" + ' '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.Label14) + Me.Controls.Add(Me.DateTimePicker1) + Me.Controls.Add(Me.Label13) + Me.Controls.Add(Me.cbxAntragsart) Me.Controls.Add(Me.Label10) Me.Controls.Add(Me.txtOrt) Me.Controls.Add(Me.Label9) @@ -659,4 +703,8 @@ Partial Class usrcntlEORI_Antrag Friend WithEvents Label9 As Label Friend WithEvents txtOrt As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label10 As Label + Friend WithEvents Label13 As Label + Friend WithEvents cbxAntragsart As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents DateTimePicker1 As DateTimePicker + Friend WithEvents Label14 As Label End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb index 5c635fd0..e203cd0d 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.vb @@ -49,6 +49,7 @@ cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Französisch", "FR")) + Case FormularManagerArten.DE_InformationsblattFiskalverzollung cboSprache.Items.Clear() cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) @@ -61,6 +62,10 @@ cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) + cbxAntragsart.Items.Clear() + cbxAntragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neuzugang", "Neuzugang")) + cbxAntragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Änderung", "Änderung")) + cbxAntragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Beendigung", "Beendigung")) If KdNR > 0 Then initKdNR(KdNR) diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 7c1bc498..ffd8b242 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -4181,6 +4181,27 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + Select Case usrCntl.cbxAntragsart._value + + Case "Neuzugang" + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 138, 43, 6, 6, "bold", 16, , itextsharp.text.Element.ALIGN_CENTER)) + + + Case "Änderung" + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 138, 50, 6, 6, "bold", 16, , itextsharp.text.Element.ALIGN_CENTER)) + + Case "Beendigung" + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 138, 57, 6, 6, "bold", 16, , itextsharp.text.Element.ALIGN_CENTER)) + + End Select + + If usrCntl.DateTimePicker1 IsNot Nothing AndAlso IsDate((usrCntl.DateTimePicker1.Value)) Then + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Day, 135, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Month, 145, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDate(usrCntl.DateTimePicker1.Value).Year, 157, 82, 150, 6, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT)) + End If + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 25, 84, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 25, 103, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) @@ -4196,10 +4217,9 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 25, 191, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 25, 185, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - muss auf 2ten Seite gedruckt werden! - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 25, 175, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 25, 173, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 25, 185, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2)) Select Case usrCntl.cboSprache._value Case "EN" diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb index 977867e4..08306d92 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb @@ -21,10 +21,10 @@ - txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "")) - txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) - txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) - txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED")) - txtUnterordner2.SelectedIndex = 0 + txtUnterordner2.fillWithSQL(" SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True) + txtUnterordner2.Items.Add("ATTILA") + 'txtUnterordner2.SelectedIndex = 0 + txtUnterordner2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + End Sub End Class \ No newline at end of file