EORI_Antrag

2023-10-16 13:49:28 +02:00
parent 2f1eb5af42
commit f967f0727e
4 changed files with 81 additions and 8 deletions
--- 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
--- 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)
--- 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"
--- 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