Fakturierung(dplt.RgNr), UID/EORI prfg Neukunden, Chat Korr.

2022-12-21 14:55:50 +01:00
parent 92854b362d
commit 9e3abd01eb
14 changed files with 796 additions and 574 deletions
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb
@@ -142,7 +142,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.Shape10.Height = 0.08346456!
        Me.Shape10.Left = 0.4314961!
        Me.Shape10.Name = "Shape10"
-        Me.Shape10.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape10.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
        Me.Shape10.Top = 0!
        Me.Shape10.Width = 7.086614!
        '
@@ -151,7 +151,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.Shape11.Height = 0.08346456!
        Me.Shape11.Left = 0.4314961!
        Me.Shape11.Name = "Shape11"
-        Me.Shape11.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape11.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
        Me.Shape11.Top = 0!
        Me.Shape11.Width = 1.15748!
        '
@@ -161,6 +161,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtAbfertigungsart.Height = 0.1669291!
        Me.txtAbfertigungsart.Left = 0.614567!
        Me.txtAbfertigungsart.Name = "txtAbfertigungsart"
+        Me.txtAbfertigungsart.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtAbfertigungsart.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
    "r-set: 1"
        Me.txtAbfertigungsart.Text = "Zollabfertigung"
@@ -173,6 +174,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtAbsender.Height = 0.1669292!
        Me.txtAbsender.Left = 1.588977!
        Me.txtAbsender.Name = "txtAbsender"
+        Me.txtAbsender.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtAbsender.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
    "har-set: 1"
        Me.txtAbsender.Text = "Absender"
@@ -184,6 +186,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtVerzollungsadresse.Height = 0.1255906!
        Me.txtVerzollungsadresse.Left = 5.150001!
        Me.txtVerzollungsadresse.Name = "txtVerzollungsadresse"
+        Me.txtVerzollungsadresse.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtVerzollungsadresse.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
    "har-set: 1"
        Me.txtVerzollungsadresse.Text = "Verzollungsadresse / Gümrükleme Adresi"
@@ -196,6 +199,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtNr.Height = 0.1669292!
        Me.txtNr.Left = 0.4405512!
        Me.txtNr.Name = "txtNr"
+        Me.txtNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtNr.Style = "font-size: 8pt; font-weight: normal; text-align: center; vertical-align: top; ddo" &
    "-char-set: 1"
        Me.txtNr.Text = "1"
@@ -207,6 +211,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtAnmerkung.Height = 0.1669291!
        Me.txtAnmerkung.Left = 5.157875!
        Me.txtAnmerkung.Name = "txtAnmerkung"
+        Me.txtAnmerkung.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtAnmerkung.Style = "font-size: 8pt; font-style: normal; font-weight: bold; text-align: left; vertical" &
    "-align: top; ddo-char-set: 1"
        Me.txtAnmerkung.Text = Nothing
@@ -218,6 +223,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtPosNr.Height = 0.3858268!
        Me.txtPosNr.Left = 0.6149607!
        Me.txtPosNr.Name = "txtPosNr"
+        Me.txtPosNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtPosNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
    "har-set: 1"
        Me.txtPosNr.Text = "5501/19000000"
@@ -229,6 +235,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtEmpfänger.Height = 0.1669292!
        Me.txtEmpfänger.Left = 3.1!
        Me.txtEmpfänger.Name = "txtEmpfänger"
+        Me.txtEmpfänger.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtEmpfänger.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
    "har-set: 1"
        Me.txtEmpfänger.Text = "Empfänger"
@@ -240,7 +247,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.Shape8.Height = 0.08346459!
        Me.Shape8.Left = 6.946457!
        Me.Shape8.Name = "Shape8"
-        Me.Shape8.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape8.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
        Me.Shape8.Top = 0!
        Me.Shape8.Width = 0.5716529!
        '
@@ -260,6 +267,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtPos.Height = 0.3854331!
        Me.txtPos.Left = 6.972441!
        Me.txtPos.Name = "txtPos"
+        Me.txtPos.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtPos.Style = "font-size: 12pt; font-weight: normal; text-align: center; vertical-align: middle;" &
    " white-space: inherit; ddo-char-set: 1; ddo-wrap-mode: char-wrap"
        Me.txtPos.Text = Nothing
@@ -288,6 +296,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.lblDetails.HyperLink = Nothing
        Me.lblDetails.Left = 0.388189!
        Me.lblDetails.Name = "lblDetails"
+        Me.lblDetails.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.lblDetails.Style = "font-size: 8pt"
        Me.lblDetails.Text = ""
        Me.lblDetails.Top = 0.02490158!
@@ -299,6 +308,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.Label8.HyperLink = Nothing
        Me.Label8.Left = 0.3937008!
        Me.Label8.Name = "Label8"
+        Me.Label8.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.Label8.Style = "font-size: 6.75pt; ddo-char-set: 204"
        Me.Label8.Text = resources.GetString("Label8.Text")
        Me.Label8.Top = 0.02519685!
@@ -329,7 +339,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.Shape1.Height = 0.3618112!
        Me.Shape1.Left = 0.4311019!
        Me.Shape1.Name = "Shape1"
-        Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape1.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
        Me.Shape1.Top = 1.866142!
        Me.Shape1.Width = 1.157874!
        '
@@ -338,6 +348,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtFirmaInfo_ATILLA.Height = 0.5000001!
        Me.txtFirmaInfo_ATILLA.Left = 0.4775591!
        Me.txtFirmaInfo_ATILLA.Name = "txtFirmaInfo_ATILLA"
+        Me.txtFirmaInfo_ATILLA.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtFirmaInfo_ATILLA.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
        Me.txtFirmaInfo_ATILLA.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel.  +43 77 11 / 2845" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax  +43 77 11 / 284" &
    "6" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "atilla@verag.ag"
@@ -350,6 +361,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtFirmaInfo_IMEX.Height = 0.5000001!
        Me.txtFirmaInfo_IMEX.Left = 0.4775591!
        Me.txtFirmaInfo_IMEX.Name = "txtFirmaInfo_IMEX"
+        Me.txtFirmaInfo_IMEX.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtFirmaInfo_IMEX.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
        Me.txtFirmaInfo_IMEX.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel.  +43 77 11 / 31630 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.imex-group.at" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax  +43 77 1" &
    "1 / 31630-1" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " info@imex-group.at"
@@ -373,6 +385,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox8.Height = 0.3334647!
        Me.TextBox8.Left = 0.4582672!
        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox8.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " &
    "ddo-char-set: 1"
        Me.TextBox8.Text = "Abfertigung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sendungen"
@@ -385,7 +398,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.Shape3.Height = 0.3618112!
        Me.Shape3.Left = 1.588977!
        Me.Shape3.Name = "Shape3"
-        Me.Shape3.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape3.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
        Me.Shape3.Top = 1.866142!
        Me.Shape3.Width = 1.511024!
        '
@@ -395,7 +408,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.Shape4.Height = 0.3618112!
        Me.Shape4.Left = 3.099999!
        Me.Shape4.Name = "Shape4"
-        Me.Shape4.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape4.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
        Me.Shape4.Top = 1.866142!
        Me.Shape4.Width = 2.05!
        '
@@ -405,7 +418,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.Shape5.Height = 0.3618112!
        Me.Shape5.Left = 5.150001!
        Me.Shape5.Name = "Shape5"
-        Me.Shape5.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape5.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
        Me.Shape5.Top = 1.866142!
        Me.Shape5.Width = 2.367716!
        '
@@ -414,6 +427,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox4.Height = 0.3334647!
        Me.TextBox4.Left = 1.604725!
        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox4.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " &
    "ddo-char-set: 1"
        Me.TextBox4.Text = "Absender" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ATA/MRN"
@@ -425,6 +439,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox9.Height = 0.3334647!
        Me.TextBox9.Left = 5.157875!
        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox9.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " &
    "ddo-char-set: 1"
        Me.TextBox9.Text = "Verzollungsadresse (NCTS)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sendungsdetails"
@@ -436,6 +451,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtLKW.Height = 0.230315!
        Me.txtLKW.Left = 1.188976!
        Me.txtLKW.Name = "txtLKW"
+        Me.txtLKW.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtLKW.Style = "font-size: 14pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1"
        Me.txtLKW.Text = "34 TR 132456"
        Me.txtLKW.Top = 0.6783465!
@@ -446,6 +462,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox12.Height = 0.230315!
        Me.TextBox12.Left = 0.4582677!
        Me.TextBox12.Name = "TextBox12"
+        Me.TextBox12.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox12.Style = "font-size: 10pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1"
        Me.TextBox12.Text = "LKW:"
        Me.TextBox12.Top = 0.6783465!
@@ -456,6 +473,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtLKWId.Height = 0.1574803!
        Me.txtLKWId.Left = 5.88937!
        Me.txtLKWId.Name = "txtLKWId"
+        Me.txtLKWId.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtLKWId.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
    "-char-set: 1"
        Me.txtLKWId.Text = "123456"
@@ -467,6 +485,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox14.Height = 0.1574803!
        Me.TextBox14.Left = 5.057087!
        Me.TextBox14.Name = "TextBox14"
+        Me.TextBox14.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox14.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1"
        Me.TextBox14.Text = "LKW-Id:"
        Me.TextBox14.Top = 0.7511811!
@@ -477,6 +496,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtSB.Height = 0.1574803!
        Me.txtSB.Left = 5.88937!
        Me.txtSB.Name = "txtSB"
+        Me.txtSB.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtSB.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
    "-char-set: 1"
        Me.txtSB.Text = "Maximilian Mustermann"
@@ -488,6 +508,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox18.Height = 0.1574803!
        Me.TextBox18.Left = 5.057087!
        Me.TextBox18.Name = "TextBox18"
+        Me.TextBox18.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox18.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1"
        Me.TextBox18.Text = "Sachbearbeiter:"
        Me.TextBox18.Top = 0.9086615!
@@ -498,6 +519,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtDatum.Height = 0.1574803!
        Me.txtDatum.Left = 5.88937!
        Me.txtDatum.Name = "txtDatum"
+        Me.txtDatum.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtDatum.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
    "-char-set: 1"
        Me.txtDatum.Text = "01.01.2019"
@@ -509,6 +531,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox25.Height = 0.1574803!
        Me.TextBox25.Left = 5.057087!
        Me.TextBox25.Name = "TextBox25"
+        Me.TextBox25.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox25.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1"
        Me.TextBox25.Text = "Datum:"
        Me.TextBox25.Top = 0.5937008!
@@ -519,6 +542,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtGrenzstelle.Height = 0.1574803!
        Me.txtGrenzstelle.Left = 1.188976!
        Me.txtGrenzstelle.Name = "txtGrenzstelle"
+        Me.txtGrenzstelle.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGrenzstelle.Style = "font-size: 9pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1"
        Me.txtGrenzstelle.Text = "SUB"
        Me.txtGrenzstelle.Top = 1.137402!
@@ -529,6 +553,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox27.Height = 0.1574803!
        Me.TextBox27.Left = 0.4582679!
        Me.TextBox27.Name = "TextBox27"
+        Me.TextBox27.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox27.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1"
        Me.TextBox27.Text = "Grenze:"
        Me.TextBox27.Top = 1.137402!
@@ -539,6 +564,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtFraechter.Height = 0.1574803!
        Me.txtFraechter.Left = 1.188976!
        Me.txtFraechter.Name = "txtFraechter"
+        Me.txtFraechter.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtFraechter.Style = "font-size: 9pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1"
        Me.txtFraechter.Text = "Frächter"
        Me.txtFraechter.Top = 0.9397638!
@@ -549,6 +575,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox32.Height = 0.1574803!
        Me.TextBox32.Left = 0.4582677!
        Me.TextBox32.Name = "TextBox32"
+        Me.TextBox32.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox32.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1"
        Me.TextBox32.Text = "Frächter (*):"
        Me.TextBox32.Top = 0.9397638!
@@ -559,6 +586,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox5.Height = 0.3334647!
        Me.TextBox5.Left = 3.123621!
        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox5.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " &
    "ddo-char-set: 1"
        Me.TextBox5.Text = "Empfänger"
@@ -570,6 +598,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox1.Height = 0.230315!
        Me.TextBox1.Left = 0.4311024!
        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox1.Style = "font-size: 16pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
    "-char-set: 1"
        Me.TextBox1.Text = "LAUFZETTEL / GESTELLUNGSMITTEILUNG"
@@ -582,7 +611,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.Shape2.Height = 0.3618112!
        Me.Shape2.Left = 6.946457!
        Me.Shape2.Name = "Shape2"
-        Me.Shape2.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape2.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
        Me.Shape2.Top = 1.866142!
        Me.Shape2.Width = 0.5791335!
        '
@@ -591,6 +620,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox2.Height = 0.3334647!
        Me.TextBox2.Left = 6.972441!
        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox2.Style = "font-size: 6.5pt; font-weight: normal; text-align: center; vertical-align: middle" &
    "; ddo-char-set: 1"
        Me.TextBox2.Text = "T1" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Position"
@@ -602,6 +632,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtEmail.Height = 0.1574803!
        Me.txtEmail.Left = 5.057481!
        Me.txtEmail.Name = "txtEmail"
+        Me.txtEmail.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtEmail.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
    "-char-set: 1"
        Me.txtEmail.Text = "Email / Tel"
@@ -613,6 +644,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtDW.Height = 0.1574803!
        Me.txtDW.Left = 5.057481!
        Me.txtDW.Name = "txtDW"
+        Me.txtDW.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtDW.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
    "-char-set: 1"
        Me.txtDW.Text = "Email / Tel"
@@ -624,6 +656,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtFirmeninfo_rontoffice.Height = 0.5000001!
        Me.txtFirmeninfo_rontoffice.Left = 0.4775603!
        Me.txtFirmeninfo_rontoffice.Name = "txtFirmeninfo_rontoffice"
+        Me.txtFirmeninfo_rontoffice.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtFirmeninfo_rontoffice.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
        Me.txtFirmeninfo_rontoffice.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel.  +43 77 11 / 31636 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "        " &
    "     suben@front-office.eu"
@@ -636,6 +669,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtFirma_UNISPED.Height = 0.5000001!
        Me.txtFirma_UNISPED.Left = 0.4775591!
        Me.txtFirma_UNISPED.Name = "txtFirma_UNISPED"
+        Me.txtFirma_UNISPED.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtFirma_UNISPED.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
        Me.txtFirma_UNISPED.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel.  +43 77 11 / 2677-0" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "  www.unisped.at" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "office@uni" &
    "sped.at"
@@ -660,6 +694,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox7.Height = 0.5000001!
        Me.TextBox7.Left = 0.4775591!
        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox7.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
        Me.TextBox7.Text = "D 92726 Waidhaus  " & Global.Microsoft.VisualBasic.ChrW(9) & "Tel.  +49 9652 81450 " & Global.Microsoft.VisualBasic.ChrW(9) & "      www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Am Autohof 3" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax  +" &
    "43 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & "      waidhaus@verag.ag"
@@ -672,6 +707,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtFirmaInfo_VERAG.Height = 0.5000001!
        Me.txtFirmaInfo_VERAG.Left = 0.4775605!
        Me.txtFirmaInfo_VERAG.Name = "txtFirmaInfo_VERAG"
+        Me.txtFirmaInfo_VERAG.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtFirmaInfo_VERAG.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
        Me.txtFirmaInfo_VERAG.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel.  +43 77 11 / 27 77-20 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "      www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(9) & "Fax  +4" &
    "3 77 11 / 27 88                          quickstop@verag.ag"
@@ -683,6 +719,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox11.Height = 0.5000001!
        Me.TextBox11.Left = 0.4775591!
        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox11.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
        Me.TextBox11.Text = "D-97337 Dettelbach             Tel.  +49 9302 8194920" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "      www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Mainfr" &
    "ankenpark 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "      quickstop@verag.ag"
@@ -695,6 +732,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtGesColli.Height = 0.1574803!
        Me.txtGesColli.Left = 5.874016!
        Me.txtGesColli.Name = "txtGesColli"
+        Me.txtGesColli.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesColli.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
    "-char-set: 1"
        Me.txtGesColli.Text = "0 Pk"
@@ -707,6 +745,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox6.Height = 0.1574803!
        Me.TextBox6.Left = 5.789766!
        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox6.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1"
        Me.TextBox6.Text = "Colli:"
        Me.TextBox6.Top = 0.08700788!
@@ -718,6 +757,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.txtGesGewicht.Height = 0.1574803!
        Me.txtGesGewicht.Left = 5.873622!
        Me.txtGesGewicht.Name = "txtGesGewicht"
+        Me.txtGesGewicht.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.txtGesGewicht.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
    "-char-set: 1"
        Me.txtGesGewicht.Text = "0.000 kg"
@@ -730,6 +770,7 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox10.Height = 0.1574803!
        Me.TextBox10.Left = 5.789766!
        Me.TextBox10.Name = "TextBox10"
+        Me.TextBox10.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox10.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1"
        Me.TextBox10.Text = "Gewicht:"
        Me.TextBox10.Top = 0.2444879!
@@ -749,11 +790,12 @@ Partial Public Class rptLaufzettelZollDE
        Me.TextBox3.Height = 0.4700788!
        Me.TextBox3.Left = 0.3937008!
        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
        Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1"
        Me.TextBox3.Text = "Wir ersuchen um T-1 auf Befreiung und um eine angemessene Frist von mehr als 8 Ta" &
-    "gen - EU Auslieferung." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vielen Dank!"
+    "gen - EU Auslieferung. Vielen Dank!"
        Me.TextBox3.Top = 0.08700788!
-        Me.TextBox3.Width = 4.43504!
+        Me.TextBox3.Width = 5.091339!
        '
        'Line1
        '
@@ -782,12 +824,12 @@ Partial Public Class rptLaufzettelZollDE
        Me.Sections.Add(Me.Detail)
        Me.Sections.Add(Me.PageFooter)
        Me.Sections.Add(Me.ReportFooter1)
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
-            "l; font-size: 10pt; color: Black; ddo-char-set: 0", "Normal"))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
-            "lic", "Heading2", "Normal"))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 0", "Normal"), DDCssLib.StyleSheetRule))
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"), DDCssLib.StyleSheetRule))
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule))
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"), DDCssLib.StyleSheetRule))
        CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).EndInit()
--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -1855,16 +1855,16 @@ Public Class FormularManagerNEU



-    Shared Function LaufzettelZollDE(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
+    Shared Function LaufzettelZollDE(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional digital As Boolean = False) As String
        Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "")
        If AVISO Is Nothing Then Return ""
        Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
        VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoId) 'LÄDT alle SENDUNGSDATEN
        If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return ""
-        Return LaufzettelZollDE(AVISO, SENDUNG_LIST)
+        Return LaufzettelZollDE(AVISO, SENDUNG_LIST, printReportElsePDF, printername,, digital)
    End Function

-    Shared Function LaufzettelZollDE_VP(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "") As String
+    Shared Function LaufzettelZollDE_VP(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "", Optional digital As Boolean = False) As String
        Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "")
        If AVISO Is Nothing Then Return ""
        Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
@@ -1876,12 +1876,12 @@ Public Class FormularManagerNEU
        End If

        If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return ""
-        Return LaufzettelZollDE(AVISO, SENDUNG_LIST,,, Vorpapier)
+        Return LaufzettelZollDE(AVISO, SENDUNG_LIST, printReportElsePDF, printername, Vorpapier, digital)
    End Function

    Shared gesColli As Double = 0
    Shared gesGewicht As Double = 0
-    Shared Function LaufzettelZollDE(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "") As String
+    Shared Function LaufzettelZollDE(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "", Optional digital As Boolean = False) As String
        '  Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
        Dim tmpPath = ""
        Try
@@ -1985,6 +1985,27 @@ Public Class FormularManagerNEU
            rpt.txtDW.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
            rpt.txtEmail.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email

+            If digital Then
+                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                    Case "FRONTOFFICE"
+                        rpt.TextBox3.Text &= vbNewLine & "Die Waren befinden sich am Amtsplatz des ZA Suben-Autobahn."
+                    Case Else
+                        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+                            Case "SBG" : rpt.TextBox3.Text &= vbNewLine & "Die Waren befinden sich am Amtsplatz des ZA Bad Reichenhall Autobahn."
+                            Case "WAI"
+                            Case "NKD" : rpt.TextBox3.Text &= vbNewLine & "Die Waren befinden sich am Amtsplatz des ZA Nickelsdorf."
+                            Case "NEU"
+                            Case "DTB", "FO_WIHD"
+                            Case Else
+                                Select Case AVISO.Grenzstelle
+                                    Case "SUB"
+                                        rpt.TextBox3.Text &= vbNewLine & "Die Waren befinden sich am Amtsplatz des ZA Suben-Autobahn."
+                                    Case Else
+                                End Select
+                        End Select
+                End Select
+            End If
+


            Dim tb As New DataTable