vers, tr bank, lagervertrag

SDL/Fakturierung/cFakturierung.vb

@@ -953,11 +953,28 @@ Public Class cFakturierung
                     End If
                 End If
             Case Else 'VERAG,ATILLA
-                rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
-                rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
 
-                rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                If RechnungsLandKz = "TR" Then
-                rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                    rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
+                    rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
+
+                    rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                    rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+
+                    If Not hasEUSTZOLL(RechnungsNr) Then
+
+                        rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544"
+
+                    End If
+                Else
+                    rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
+                    rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
+
+                    rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                    rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+
+                End If
+
         End Select
 
 
@@ -1026,11 +1043,28 @@ Public Class cFakturierung
                     End If
                 End If
             Case Else 'VERAG,ATILLA, VERAG360
-                rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
-                rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
 
-                rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+
-                rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                If RechnungsLandKz = "TR" Then
+                    rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
+                    rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
+
+                    rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                    rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+
+                    If Not hasEUSTZOLL(RechnungsNr) Then
+
+                        rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544"
+
+                    End If
+                Else
+                    rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
+                    rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
+
+                    rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                    rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+
+                End If
         End Select
 
 

SDL/Fakturierung/rptRechnungDruck.Designer.vb

@@ -375,7 +375,7 @@ Partial Public Class rptRechnungDruck
         Me.txtBank2.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" &
     "455"
         Me.txtBank2.Top = 0.1173228!
-        Me.txtBank2.Width = 1.779134!
+        Me.txtBank2.Width = 1.892914!
         '
         'txtDisclaimer
         '
@@ -393,7 +393,7 @@ Partial Public Class rptRechnungDruck
         Me.txtBank3.DataField = ""
         Me.txtBank3.DistinctField = ""
         Me.txtBank3.Height = 0.4181104!
-        Me.txtBank3.Left = 4.783071!
+        Me.txtBank3.Left = 4.834252!
         Me.txtBank3.Name = "txtBank3"
         Me.txtBank3.Style = "color: Black; font-size: 6.75pt; font-weight: normal; text-align: left; text-just" &
     "ify: auto; ddo-char-set: 0"

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

@@ -24,36 +24,25 @@ Partial Class usrcntLagervertrag
     Private Sub InitializeComponent()
         Me.lbl = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.Label4 = New System.Windows.Forms.Label()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
-        Me.cbxEinmaligeVollmacht = New System.Windows.Forms.CheckBox()
-        Me.Label7 = New System.Windows.Forms.Label()
         Me.btn = New System.Windows.Forms.Button()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtEinmalig_RgDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtEinmalig_RgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.pic = New System.Windows.Forms.PictureBox()
-        Me.lblVollmachtDE = New System.Windows.Forms.Label()
+        Me.lblLagervertrag = New System.Windows.Forms.Label()
         Me.btnDown = New System.Windows.Forms.Button()
         Me.btnUp = New System.Windows.Forms.Button()
         Me.btnDel = New System.Windows.Forms.Button()
         Me.Label12 = New System.Windows.Forms.Label()
         Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cbxEinmaligeVollmachtCarnetATA = New System.Windows.Forms.CheckBox()
+        Me.Label2 = New System.Windows.Forms.Label()
-        Me.txtEinmalig_CarnetATA = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtDauer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cbxVollmachtmitBefristung = New System.Windows.Forms.CheckBox()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -75,37 +64,10 @@ Partial Class usrcntLagervertrag
         Me.Label1.TabIndex = 11
         Me.Label1.Text = "Adresse:"
         '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(170, 101)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(43, 13)
-        Me.Label2.TabIndex = 14
-        Me.Label2.Text = "UID-Nr:"
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(587, 101)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(50, 13)
-        Me.Label3.TabIndex = 16
-        Me.Label3.Text = "EORI-Nr:"
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(587, 120)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(27, 13)
-        Me.Label4.TabIndex = 20
-        Me.Label4.Text = "Fax:"
-        '
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(170, 120)
+        Me.Label5.Location = New System.Drawing.Point(170, 101)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(28, 13)
         Me.Label5.TabIndex = 18
@@ -114,31 +76,12 @@ Partial Class usrcntLagervertrag
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(170, 139)
+        Me.Label6.Location = New System.Drawing.Point(569, 101)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(39, 13)
         Me.Label6.TabIndex = 22
         Me.Label6.Text = "E-Mail:"
         '
-        'cbxEinmaligeVollmacht
-        '
-        Me.cbxEinmaligeVollmacht.AutoSize = True
-        Me.cbxEinmaligeVollmacht.Location = New System.Drawing.Point(173, 164)
-        Me.cbxEinmaligeVollmacht.Name = "cbxEinmaligeVollmacht"
-        Me.cbxEinmaligeVollmacht.Size = New System.Drawing.Size(184, 17)
-        Me.cbxEinmaligeVollmacht.TabIndex = 24
-        Me.cbxEinmaligeVollmacht.Text = "Einmalige Vollmacht,    für Rg-Nr.:"
-        Me.cbxEinmaligeVollmacht.UseVisualStyleBackColor = True
-        '
-        'Label7
-        '
-        Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(587, 165)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(56, 13)
-        Me.Label7.TabIndex = 26
-        Me.Label7.Text = "Rg-datum:"
-        '
         'btn
         '
         Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search
@@ -182,54 +125,6 @@ Partial Class usrcntLagervertrag
         Me.txtAnsprechpartner.Size = New System.Drawing.Size(310, 20)
         Me.txtAnsprechpartner.TabIndex = 3
         '
-        'txtEinmalig_RgDat
-        '
-        Me.txtEinmalig_RgDat._DateTimeOnly = False
-        Me.txtEinmalig_RgDat._numbersOnly = False
-        Me.txtEinmalig_RgDat._numbersOnlyKommastellen = ""
-        Me.txtEinmalig_RgDat._numbersOnlyTrennzeichen = True
-        Me.txtEinmalig_RgDat._Prozent = False
-        Me.txtEinmalig_RgDat._ShortDateNew = False
-        Me.txtEinmalig_RgDat._ShortDateOnly = False
-        Me.txtEinmalig_RgDat._TimeOnly = False
-        Me.txtEinmalig_RgDat._TimeOnly_Seconds = False
-        Me.txtEinmalig_RgDat._value = Nothing
-        Me.txtEinmalig_RgDat._Waehrung = False
-        Me.txtEinmalig_RgDat._WaehrungZeichen = True
-        Me.txtEinmalig_RgDat.Enabled = False
-        Me.txtEinmalig_RgDat.ForeColor = System.Drawing.Color.Black
-        Me.txtEinmalig_RgDat.Location = New System.Drawing.Point(653, 162)
-        Me.txtEinmalig_RgDat.MaxLineLength = -1
-        Me.txtEinmalig_RgDat.MaxLines_Warning = ""
-        Me.txtEinmalig_RgDat.MaxLines_Warning_Label = Nothing
-        Me.txtEinmalig_RgDat.Name = "txtEinmalig_RgDat"
-        Me.txtEinmalig_RgDat.Size = New System.Drawing.Size(310, 20)
-        Me.txtEinmalig_RgDat.TabIndex = 27
-        '
-        'txtEinmalig_RgNr
-        '
-        Me.txtEinmalig_RgNr._DateTimeOnly = False
-        Me.txtEinmalig_RgNr._numbersOnly = False
-        Me.txtEinmalig_RgNr._numbersOnlyKommastellen = ""
-        Me.txtEinmalig_RgNr._numbersOnlyTrennzeichen = True
-        Me.txtEinmalig_RgNr._Prozent = False
-        Me.txtEinmalig_RgNr._ShortDateNew = False
-        Me.txtEinmalig_RgNr._ShortDateOnly = False
-        Me.txtEinmalig_RgNr._TimeOnly = False
-        Me.txtEinmalig_RgNr._TimeOnly_Seconds = False
-        Me.txtEinmalig_RgNr._value = Nothing
-        Me.txtEinmalig_RgNr._Waehrung = False
-        Me.txtEinmalig_RgNr._WaehrungZeichen = True
-        Me.txtEinmalig_RgNr.Enabled = False
-        Me.txtEinmalig_RgNr.ForeColor = System.Drawing.Color.Black
-        Me.txtEinmalig_RgNr.Location = New System.Drawing.Point(363, 162)
-        Me.txtEinmalig_RgNr.MaxLineLength = -1
-        Me.txtEinmalig_RgNr.MaxLines_Warning = ""
-        Me.txtEinmalig_RgNr.MaxLines_Warning_Label = Nothing
-        Me.txtEinmalig_RgNr.Name = "txtEinmalig_RgNr"
-        Me.txtEinmalig_RgNr.Size = New System.Drawing.Size(201, 20)
-        Me.txtEinmalig_RgNr.TabIndex = 25
-        '
         'txtEmail
         '
         Me.txtEmail._DateTimeOnly = False
@@ -245,7 +140,7 @@ Partial Class usrcntLagervertrag
         Me.txtEmail._Waehrung = False
         Me.txtEmail._WaehrungZeichen = True
         Me.txtEmail.ForeColor = System.Drawing.Color.Black
-        Me.txtEmail.Location = New System.Drawing.Point(254, 136)
+        Me.txtEmail.Location = New System.Drawing.Point(653, 98)
         Me.txtEmail.MaxLineLength = -1
         Me.txtEmail.MaxLines_Warning = ""
         Me.txtEmail.MaxLines_Warning_Label = Nothing
@@ -253,29 +148,6 @@ Partial Class usrcntLagervertrag
         Me.txtEmail.Size = New System.Drawing.Size(310, 20)
         Me.txtEmail.TabIndex = 23
         '
-        'txtFax
-        '
-        Me.txtFax._DateTimeOnly = False
-        Me.txtFax._numbersOnly = False
-        Me.txtFax._numbersOnlyKommastellen = ""
-        Me.txtFax._numbersOnlyTrennzeichen = True
-        Me.txtFax._Prozent = False
-        Me.txtFax._ShortDateNew = False
-        Me.txtFax._ShortDateOnly = False
-        Me.txtFax._TimeOnly = False
-        Me.txtFax._TimeOnly_Seconds = False
-        Me.txtFax._value = Nothing
-        Me.txtFax._Waehrung = False
-        Me.txtFax._WaehrungZeichen = True
-        Me.txtFax.ForeColor = System.Drawing.Color.Black
-        Me.txtFax.Location = New System.Drawing.Point(653, 117)
-        Me.txtFax.MaxLineLength = -1
-        Me.txtFax.MaxLines_Warning = ""
-        Me.txtFax.MaxLines_Warning_Label = Nothing
-        Me.txtFax.Name = "txtFax"
-        Me.txtFax.Size = New System.Drawing.Size(310, 20)
-        Me.txtFax.TabIndex = 21
-        '
         'txtTel
         '
         Me.txtTel._DateTimeOnly = False
@@ -291,7 +163,7 @@ Partial Class usrcntLagervertrag
         Me.txtTel._Waehrung = False
         Me.txtTel._WaehrungZeichen = True
         Me.txtTel.ForeColor = System.Drawing.Color.Black
-        Me.txtTel.Location = New System.Drawing.Point(254, 117)
+        Me.txtTel.Location = New System.Drawing.Point(254, 98)
         Me.txtTel.MaxLineLength = -1
         Me.txtTel.MaxLines_Warning = ""
         Me.txtTel.MaxLines_Warning_Label = Nothing
@@ -299,52 +171,6 @@ Partial Class usrcntLagervertrag
         Me.txtTel.Size = New System.Drawing.Size(310, 20)
         Me.txtTel.TabIndex = 19
         '
-        'txtEori
-        '
-        Me.txtEori._DateTimeOnly = False
-        Me.txtEori._numbersOnly = False
-        Me.txtEori._numbersOnlyKommastellen = ""
-        Me.txtEori._numbersOnlyTrennzeichen = True
-        Me.txtEori._Prozent = False
-        Me.txtEori._ShortDateNew = False
-        Me.txtEori._ShortDateOnly = False
-        Me.txtEori._TimeOnly = False
-        Me.txtEori._TimeOnly_Seconds = False
-        Me.txtEori._value = Nothing
-        Me.txtEori._Waehrung = False
-        Me.txtEori._WaehrungZeichen = True
-        Me.txtEori.ForeColor = System.Drawing.Color.Black
-        Me.txtEori.Location = New System.Drawing.Point(653, 98)
-        Me.txtEori.MaxLineLength = -1
-        Me.txtEori.MaxLines_Warning = ""
-        Me.txtEori.MaxLines_Warning_Label = Nothing
-        Me.txtEori.Name = "txtEori"
-        Me.txtEori.Size = New System.Drawing.Size(310, 20)
-        Me.txtEori.TabIndex = 17
-        '
-        'txtUid
-        '
-        Me.txtUid._DateTimeOnly = False
-        Me.txtUid._numbersOnly = False
-        Me.txtUid._numbersOnlyKommastellen = ""
-        Me.txtUid._numbersOnlyTrennzeichen = True
-        Me.txtUid._Prozent = False
-        Me.txtUid._ShortDateNew = False
-        Me.txtUid._ShortDateOnly = False
-        Me.txtUid._TimeOnly = False
-        Me.txtUid._TimeOnly_Seconds = False
-        Me.txtUid._value = Nothing
-        Me.txtUid._Waehrung = False
-        Me.txtUid._WaehrungZeichen = True
-        Me.txtUid.ForeColor = System.Drawing.Color.Black
-        Me.txtUid.Location = New System.Drawing.Point(254, 98)
-        Me.txtUid.MaxLineLength = -1
-        Me.txtUid.MaxLines_Warning = ""
-        Me.txtUid.MaxLines_Warning_Label = Nothing
-        Me.txtUid.Name = "txtUid"
-        Me.txtUid.Size = New System.Drawing.Size(310, 20)
-        Me.txtUid.TabIndex = 15
-        '
         'txtAdresse2
         '
         Me.txtAdresse2._DateTimeOnly = False
@@ -425,15 +251,15 @@ Partial Class usrcntLagervertrag
         Me.pic.TabIndex = 32
         Me.pic.TabStop = False
         '
-        'lblVollmachtDE
+        'lblLagervertrag
         '
-        Me.lblVollmachtDE.AutoSize = True
+        Me.lblLagervertrag.AutoSize = True
-        Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblLagervertrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9)
+        Me.lblLagervertrag.Location = New System.Drawing.Point(43, 9)
-        Me.lblVollmachtDE.Name = "lblVollmachtDE"
+        Me.lblLagervertrag.Name = "lblLagervertrag"
-        Me.lblVollmachtDE.Size = New System.Drawing.Size(118, 20)
+        Me.lblLagervertrag.Size = New System.Drawing.Size(111, 20)
-        Me.lblVollmachtDE.TabIndex = 1
+        Me.lblLagervertrag.TabIndex = 1
-        Me.lblVollmachtDE.Text = "Vollmacht DE"
+        Me.lblLagervertrag.Text = "Lagervertrag"
         '
         'btnDown
         '
@@ -491,90 +317,67 @@ Partial Class usrcntLagervertrag
         Me.cboSprache.Size = New System.Drawing.Size(89, 21)
         Me.cboSprache.TabIndex = 10
         '
-        'cbxEinmaligeVollmachtCarnetATA
+        'Label2
         '
-        Me.cbxEinmaligeVollmachtCarnetATA.AutoSize = True
+        Me.Label2.AutoSize = True
-        Me.cbxEinmaligeVollmachtCarnetATA.Location = New System.Drawing.Point(173, 183)
+        Me.Label2.Location = New System.Drawing.Point(170, 127)
-        Me.cbxEinmaligeVollmachtCarnetATA.Name = "cbxEinmaligeVollmachtCarnetATA"
+        Me.Label2.Name = "Label2"
-        Me.cbxEinmaligeVollmachtCarnetATA.Size = New System.Drawing.Size(211, 17)
+        Me.Label2.Size = New System.Drawing.Size(82, 13)
-        Me.cbxEinmaligeVollmachtCarnetATA.TabIndex = 33
+        Me.Label2.TabIndex = 33
-        Me.cbxEinmaligeVollmachtCarnetATA.Text = "Einmalige Vollmacht,    für Carnet-ATA.:"
+        Me.Label2.Text = "Dauer (von-bis:)"
-        Me.cbxEinmaligeVollmachtCarnetATA.UseVisualStyleBackColor = True
         '
-        'txtEinmalig_CarnetATA
+        'txtDauer
         '
-        Me.txtEinmalig_CarnetATA._DateTimeOnly = False
+        Me.txtDauer._DateTimeOnly = False
-        Me.txtEinmalig_CarnetATA._numbersOnly = False
+        Me.txtDauer._numbersOnly = False
-        Me.txtEinmalig_CarnetATA._numbersOnlyKommastellen = ""
+        Me.txtDauer._numbersOnlyKommastellen = ""
-        Me.txtEinmalig_CarnetATA._numbersOnlyTrennzeichen = True
+        Me.txtDauer._numbersOnlyTrennzeichen = True
-        Me.txtEinmalig_CarnetATA._Prozent = False
+        Me.txtDauer._Prozent = False
-        Me.txtEinmalig_CarnetATA._ShortDateNew = False
+        Me.txtDauer._ShortDateNew = False
-        Me.txtEinmalig_CarnetATA._ShortDateOnly = False
+        Me.txtDauer._ShortDateOnly = False
-        Me.txtEinmalig_CarnetATA._TimeOnly = False
+        Me.txtDauer._TimeOnly = False
-        Me.txtEinmalig_CarnetATA._TimeOnly_Seconds = False
+        Me.txtDauer._TimeOnly_Seconds = False
-        Me.txtEinmalig_CarnetATA._value = Nothing
+        Me.txtDauer._value = Nothing
-        Me.txtEinmalig_CarnetATA._Waehrung = False
+        Me.txtDauer._Waehrung = False
-        Me.txtEinmalig_CarnetATA._WaehrungZeichen = True
+        Me.txtDauer._WaehrungZeichen = True
-        Me.txtEinmalig_CarnetATA.Enabled = False
+        Me.txtDauer.ForeColor = System.Drawing.Color.Black
-        Me.txtEinmalig_CarnetATA.ForeColor = System.Drawing.Color.Black
+        Me.txtDauer.Location = New System.Drawing.Point(254, 124)
-        Me.txtEinmalig_CarnetATA.Location = New System.Drawing.Point(390, 181)
+        Me.txtDauer.MaxLineLength = -1
-        Me.txtEinmalig_CarnetATA.MaxLineLength = -1
+        Me.txtDauer.MaxLines_Warning = ""
-        Me.txtEinmalig_CarnetATA.MaxLines_Warning = ""
+        Me.txtDauer.MaxLines_Warning_Label = Nothing
-        Me.txtEinmalig_CarnetATA.MaxLines_Warning_Label = Nothing
+        Me.txtDauer.Name = "txtDauer"
-        Me.txtEinmalig_CarnetATA.Name = "txtEinmalig_CarnetATA"
+        Me.txtDauer.Size = New System.Drawing.Size(310, 20)
-        Me.txtEinmalig_CarnetATA.Size = New System.Drawing.Size(174, 20)
+        Me.txtDauer.TabIndex = 34
-        Me.txtEinmalig_CarnetATA.TabIndex = 34
         '
-        'cbxVollmachtmitBefristung
+        'usrcntLagervertrag
-        '
-        Me.cbxVollmachtmitBefristung.AutoSize = True
-        Me.cbxVollmachtmitBefristung.Location = New System.Drawing.Point(590, 183)
-        Me.cbxVollmachtmitBefristung.Name = "cbxVollmachtmitBefristung"
-        Me.cbxVollmachtmitBefristung.Size = New System.Drawing.Size(141, 17)
-        Me.cbxVollmachtmitBefristung.TabIndex = 38
-        Me.cbxVollmachtmitBefristung.Text = "Vollmacht mit Befristung:"
-        Me.cbxVollmachtmitBefristung.UseVisualStyleBackColor = True
-        '
-        'usrcntlVollmacht_DE
         '
         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.cbxVollmachtmitBefristung)
+        Me.Controls.Add(Me.txtDauer)
-        Me.Controls.Add(Me.txtEinmalig_CarnetATA)
+        Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.cbxEinmaligeVollmachtCarnetATA)
         Me.Controls.Add(Me.Label12)
         Me.Controls.Add(Me.cboSprache)
         Me.Controls.Add(Me.btnDown)
         Me.Controls.Add(Me.btnUp)
         Me.Controls.Add(Me.btnDel)
         Me.Controls.Add(Me.pic)
-        Me.Controls.Add(Me.lblVollmachtDE)
+        Me.Controls.Add(Me.lblLagervertrag)
         Me.Controls.Add(Me.txtAnsprechpartner)
         Me.Controls.Add(Me.Label8)
         Me.Controls.Add(Me.btn)
-        Me.Controls.Add(Me.txtEinmalig_RgDat)
-        Me.Controls.Add(Me.Label7)
-        Me.Controls.Add(Me.txtEinmalig_RgNr)
-        Me.Controls.Add(Me.cbxEinmaligeVollmacht)
         Me.Controls.Add(Me.txtEmail)
         Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.txtFax)
-        Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.txtTel)
         Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.txtEori)
-        Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.txtUid)
-        Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.txtAdresse2)
         Me.Controls.Add(Me.txtAdresse1)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.txtFirma)
         Me.Controls.Add(Me.lbl)
-        Me.Name = "usrcntlVollmacht_DE"
+        Me.Name = "usrcntLagervertrag"
-        Me.Size = New System.Drawing.Size(1000, 202)
+        Me.Size = New System.Drawing.Size(1000, 155)
         CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
@@ -585,31 +388,20 @@ Partial Class usrcntLagervertrag
     Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label1 As System.Windows.Forms.Label
     Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents Label2 As System.Windows.Forms.Label
-    Friend WithEvents txtEori As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents Label3 As System.Windows.Forms.Label
-    Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents Label4 As System.Windows.Forms.Label
     Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label5 As System.Windows.Forms.Label
     Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label6 As System.Windows.Forms.Label
-    Friend WithEvents cbxEinmaligeVollmacht As System.Windows.Forms.CheckBox
-    Friend WithEvents txtEinmalig_RgDat As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents Label7 As System.Windows.Forms.Label
-    Friend WithEvents txtEinmalig_RgNr As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents btn As System.Windows.Forms.Button
     Friend WithEvents txtAnsprechpartner As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label8 As System.Windows.Forms.Label
     Friend WithEvents pic As System.Windows.Forms.PictureBox
-    Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label
+    Friend WithEvents lblLagervertrag As System.Windows.Forms.Label
     Friend WithEvents btnDown As System.Windows.Forms.Button
     Friend WithEvents btnUp As System.Windows.Forms.Button
     Friend WithEvents btnDel As System.Windows.Forms.Button
     Friend WithEvents Label12 As System.Windows.Forms.Label
     Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
-    Friend WithEvents cbxEinmaligeVollmachtCarnetATA As System.Windows.Forms.CheckBox
+    Friend WithEvents Label2 As Label
-    Friend WithEvents txtEinmalig_CarnetATA As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtDauer As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents cbxVollmachtmitBefristung As CheckBox
 End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.vb

@@ -32,10 +32,6 @@
     End Sub
 
 
-    Private Sub cbxEinmaligeVollmacht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEinmaligeVollmacht.CheckedChanged
-        txtEinmalig_RgNr.Enabled = sender.checked
-        txtEinmalig_RgDat.Enabled = sender.checked
-    End Sub
 
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
         Dim kdsrch As New SDL.frmKundenSuche
@@ -57,10 +53,7 @@
         txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
         txtAdresse1.Text = If(ADRESSE.Straße, "")
         txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
-        txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
-        txtEori.Text = If(KUNDE.EORITIN, "")
         txtTel.Text = If(ADRESSE.Telefon, "")
-        txtFax.Text = If(ADRESSE.Telefax, "")
         txtEmail.Text = If(ADRESSE.E_Mail, "")
         txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
     End Sub
@@ -81,7 +74,9 @@
         initControlsHandler()
         cboSprache.Items.Clear()
         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("Englisch", "EN"))
+
+        txtDauer.Text = Now.ToShortDateString & " - " & Now.AddYears(1).ToShortDateString
         If KdNR > 0 Then initKdNR(KdNR)
     End Sub
 
@@ -89,8 +84,5 @@
         FormularManagerNEU.genPDF(Me, True)
     End Sub
 
-    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEinmaligeVollmachtCarnetATA.CheckedChanged
-        txtEinmalig_CarnetATA.Enabled = sender.checked
-    End Sub
 
 End Class

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -252,6 +252,9 @@ Public Class frmFormulare
                 MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollbeschau Protokoll", FormularManagerArten.Zollbeschau_Protokoll))
                 MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
 
+                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lagervertrag", FormularManagerArten.Lagervertrag))
+
+
                 cboVorlage.Items.Clear()
                 cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
                 cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
@@ -864,6 +867,19 @@ Public Class frmFormulare
                     AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                     MyFlowLayoutPanel1.Controls.Add(c)
 
+                Case FormularManagerArten.Lagervertrag
+                    Dim c As New usrcntLagervertrag
+                    If ControlExists_addOK(c.GetType.ToString) Then
+                        c.Width = MyFlowLayoutPanel1.Width - 6
+                        c.KdNR = KdNr
+                        AddHandler c.CHANGED, AddressOf ValueChanged
+                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
+                        AddHandler c.DELETE, AddressOf ControlDELETE
+                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
+                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
+                        MyFlowLayoutPanel1.Controls.Add(c)
+                    End If
+
 
                 Case Else '"VUB_AG", "VUB_CS"
                     Dim displayName = ""
@@ -1496,6 +1512,10 @@ Public Class FormularManagerNEU
             Case GetType(usrcntlVollmacht_MDM_NICHT_EU).ToString
                 striList = FormularManagerNEU.VM_MDM_NICHT_EU(c, printReportElsePdf, printerName, openWord)
 
+            Case GetType(usrcntLagervertrag).ToString
+                retStr = FormularManagerNEU.LAGERVERTRAG(c)
+
+
         End Select
         If retStr <> "" Then
             striList.Add(retStr)
@@ -1560,6 +1580,65 @@ Public Class FormularManagerNEU
     End Function
 
 
+    Shared Function LAGERVERTRAG(usrCntl As usrcntLagervertrag) As String
+
+        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
+        'Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
+
+        'Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, 74, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        'Dim top = 0
+        'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+        '    top = 25
+        'End If
+
+        'Select Case usrCntl.cboSprache._value
+        '    Case "EN"
+        '        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
+        '    Case Else
+        '        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
+        'End Select
+        'Return ""
+
+
+        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
+        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
+
+        Dim Top = -10
+        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, top + 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, top + 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, top + 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+
+
+
+        Select Case usrCntl.cboSprache._value
+            Case "EN"
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
+            Case Else
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
+        End Select
+        Return ""
+
+
+    End Function
     Shared Function VM_De(usrCntl As usrcntlVollmacht_DE) As String
 
         'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
@@ -1567,17 +1646,17 @@ Public Class FormularManagerNEU
 
         Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
 
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
 
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
 
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
 
         Dim top = 0
         If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
@@ -6799,6 +6878,7 @@ Public Class FormularManagerArten
     Shared Property Zollbeschau_Protokoll = "Zollbeschau Protokoll"
     Shared Property Qualitaetskontrolle = "Qualitätskontrolle"
     Shared Property Einfuhrverbot = "Y824 / EU VO 833/2014"
+    Shared Property Lagervertrag = "Lagervertrag"
 
 End Class
 

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.4.1.5")>
+<Assembly: AssemblyVersion("1.4.1.6")>
-<Assembly: AssemblyFileVersion("1.4.1.5")>
+<Assembly: AssemblyFileVersion("1.4.1.6")>