EORI_Antrag

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

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)

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, 173, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        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.txtUid.Text, 25, 185, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT, 2))
 
         Select Case usrCntl.cboSprache._value
             Case "EN"

VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb

@@ -21,10 +21,10 @@
 
 
 
-        txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", ""))
+        txtUnterordner2.fillWithSQL(" SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True)
-        txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
+        txtUnterordner2.Items.Add("ATTILA")
-        txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
+        'txtUnterordner2.SelectedIndex = 0
-        txtUnterordner2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
+        txtUnterordner2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
-        txtUnterordner2.SelectedIndex = 0
+
     End Sub
 End Class