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

SDL/Fakturierung/cFakturierung.vb

@@ -628,13 +628,13 @@ Public Class cFakturierung
 
     'End Function
 
-    Public Shared Function doRechnungsDruck_SRorER(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printStbVdb As Boolean = False) As Boolean
+    Public Shared Function doRechnungsDruck_SRorER(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printStbVdb As Boolean = False, Optional AnlageEinzelRg As Boolean = False) As Boolean
         If RK_ID <= 0 Then Return False
         Dim RG_TMP As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID)
         If RG_TMP.Sammelrechnung = 0 Then
             Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, , printStbVdb)
         Else
-            Return cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", False, , 3,, True)
+            Return cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", AnlageEinzelRg, , Rechnugnsdruck, Path, True)
         End If
     End Function
 
@@ -1633,11 +1633,11 @@ Public Class cFakturierung
                 End If
 
                 Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr)
+                ' Nächste Rechnungsnummer speichern.
+                RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe!
                 ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen)
                 RG_NR.CHECK_RGNR()
                 RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr
-                ' Nächste Rechnungsnummer speichern.
-                RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe!
 
                 'RECHNUNG.[LfdRechnungsNr] = RG_NR.LfdRechnungsNr
                 If RECHNUNG.SAVE Then
@@ -2013,12 +2013,12 @@ Public Class cFakturierung
 
     Shared Function getNewRgNr(Firma_ID, Buchungsjahr)
         Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(Firma_ID, Buchungsjahr)
+
+        ' Nächste Rechnungsnummer speichern.
+        RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe!
         ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen)
         RG_NR.CHECK_RGNR()
-
         getNewRgNr = RG_NR.LfdRechnungsNr
-        RG_NR.INCREASE_RGNR() 'für die nächste Rechnung
-
 
     End Function
 

SDL/Fakturierung/frmRechnungenSuche.Designer.vb

@@ -27,6 +27,8 @@ Partial Class frmRechnungenSuche
         Me.SplitContainer = New System.Windows.Forms.SplitContainer()
         Me.pnlSearch = New System.Windows.Forms.Panel()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label34 = New System.Windows.Forms.Label()
         Me.Label35 = New System.Windows.Forms.Label()
         Me.Label36 = New System.Windows.Forms.Label()
@@ -105,6 +107,7 @@ Partial Class frmRechnungenSuche
         Me.Label17 = New System.Windows.Forms.Label()
         Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.pnlBerichte = New System.Windows.Forms.Panel()
+        Me.Button3 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.cboBerichtRgAbfArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -116,7 +119,7 @@ Partial Class frmRechnungenSuche
         Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.pnl = New System.Windows.Forms.Panel()
-        Me.Label32 = New System.Windows.Forms.Label()
+        Me.Button9 = New System.Windows.Forms.Button()
         Me.btnExcel = New System.Windows.Forms.Button()
         Me.FlatButton7 = New System.Windows.Forms.Button()
         Me.lblErgebnis = New System.Windows.Forms.Label()
@@ -127,9 +130,8 @@ Partial Class frmRechnungenSuche
         Me.Label4 = New System.Windows.Forms.Label()
         Me.pnlTop = New System.Windows.Forms.Panel()
         Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.Button3 = New System.Windows.Forms.Button()
+        Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.Label19 = New System.Windows.Forms.Label()
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer.Panel1.SuspendLayout()
         Me.SplitContainer.Panel2.SuspendLayout()
@@ -148,6 +150,7 @@ Partial Class frmRechnungenSuche
         Me.MenuStrip1.SuspendLayout()
         Me.pnl.SuspendLayout()
         Me.pnlTop.SuspendLayout()
+        Me.ctxtRg.SuspendLayout()
         Me.SuspendLayout()
         '
         'SplitContainer
@@ -267,6 +270,29 @@ Partial Class frmRechnungenSuche
         Me.SplitContainer1.SplitterDistance = 84
         Me.SplitContainer1.TabIndex = 0
         '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label19.Location = New System.Drawing.Point(991, 12)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(37, 13)
+        Me.Label19.TabIndex = 40
+        Me.Label19.Text = "Firma"
+        '
+        'cboFirma
+        '
+        Me.cboFirma._allowedValuesFreiText = Nothing
+        Me.cboFirma._allowFreiText = False
+        Me.cboFirma._value = ""
+        Me.cboFirma.DropDownWidth = 250
+        Me.cboFirma.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboFirma.FormattingEnabled = True
+        Me.cboFirma.Location = New System.Drawing.Point(994, 29)
+        Me.cboFirma.Name = "cboFirma"
+        Me.cboFirma.Size = New System.Drawing.Size(123, 22)
+        Me.cboFirma.TabIndex = 39
+        '
         'Label34
         '
         Me.Label34.AutoSize = True
@@ -310,10 +336,12 @@ Partial Class frmRechnungenSuche
         Me.txtRechungsNr_bis._DateTimeOnly = False
         Me.txtRechungsNr_bis._numbersOnly = False
         Me.txtRechungsNr_bis._numbersOnlyKommastellen = ""
+        Me.txtRechungsNr_bis._numbersOnlyTrennzeichen = True
         Me.txtRechungsNr_bis._Prozent = False
         Me.txtRechungsNr_bis._ShortDateNew = False
         Me.txtRechungsNr_bis._ShortDateOnly = False
         Me.txtRechungsNr_bis._TimeOnly = False
+        Me.txtRechungsNr_bis._TimeOnly_Seconds = False
         Me.txtRechungsNr_bis._value = Nothing
         Me.txtRechungsNr_bis._Waehrung = False
         Me.txtRechungsNr_bis._WaehrungZeichen = True
@@ -346,10 +374,12 @@ Partial Class frmRechnungenSuche
         Me.txtRechungsNr_von._DateTimeOnly = False
         Me.txtRechungsNr_von._numbersOnly = False
         Me.txtRechungsNr_von._numbersOnlyKommastellen = ""
+        Me.txtRechungsNr_von._numbersOnlyTrennzeichen = True
         Me.txtRechungsNr_von._Prozent = False
         Me.txtRechungsNr_von._ShortDateNew = False
         Me.txtRechungsNr_von._ShortDateOnly = False
         Me.txtRechungsNr_von._TimeOnly = False
+        Me.txtRechungsNr_von._TimeOnly_Seconds = False
         Me.txtRechungsNr_von._value = Nothing
         Me.txtRechungsNr_von._Waehrung = False
         Me.txtRechungsNr_von._WaehrungZeichen = True
@@ -426,10 +456,12 @@ Partial Class frmRechnungenSuche
         Me.txtAbfertDat._DateTimeOnly = False
         Me.txtAbfertDat._numbersOnly = False
         Me.txtAbfertDat._numbersOnlyKommastellen = ""
+        Me.txtAbfertDat._numbersOnlyTrennzeichen = True
         Me.txtAbfertDat._Prozent = False
         Me.txtAbfertDat._ShortDateNew = False
         Me.txtAbfertDat._ShortDateOnly = True
         Me.txtAbfertDat._TimeOnly = False
+        Me.txtAbfertDat._TimeOnly_Seconds = False
         Me.txtAbfertDat._value = ""
         Me.txtAbfertDat._Waehrung = False
         Me.txtAbfertDat._WaehrungZeichen = True
@@ -579,10 +611,12 @@ Partial Class frmRechnungenSuche
         Me.txtAbfertDatBis._DateTimeOnly = False
         Me.txtAbfertDatBis._numbersOnly = False
         Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
+        Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
         Me.txtAbfertDatBis._Prozent = False
         Me.txtAbfertDatBis._ShortDateNew = False
         Me.txtAbfertDatBis._ShortDateOnly = True
         Me.txtAbfertDatBis._TimeOnly = False
+        Me.txtAbfertDatBis._TimeOnly_Seconds = False
         Me.txtAbfertDatBis._value = ""
         Me.txtAbfertDatBis._Waehrung = False
         Me.txtAbfertDatBis._WaehrungZeichen = True
@@ -673,10 +707,12 @@ Partial Class frmRechnungenSuche
         Me.txtUnterNr._DateTimeOnly = False
         Me.txtUnterNr._numbersOnly = False
         Me.txtUnterNr._numbersOnlyKommastellen = ""
+        Me.txtUnterNr._numbersOnlyTrennzeichen = True
         Me.txtUnterNr._Prozent = False
         Me.txtUnterNr._ShortDateNew = False
         Me.txtUnterNr._ShortDateOnly = False
         Me.txtUnterNr._TimeOnly = False
+        Me.txtUnterNr._TimeOnly_Seconds = False
         Me.txtUnterNr._value = Nothing
         Me.txtUnterNr._Waehrung = False
         Me.txtUnterNr._WaehrungZeichen = True
@@ -705,10 +741,12 @@ Partial Class frmRechnungenSuche
         Me.txtAbfertigungsnummerBis._DateTimeOnly = False
         Me.txtAbfertigungsnummerBis._numbersOnly = False
         Me.txtAbfertigungsnummerBis._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummerBis._numbersOnlyTrennzeichen = True
         Me.txtAbfertigungsnummerBis._Prozent = False
         Me.txtAbfertigungsnummerBis._ShortDateNew = False
         Me.txtAbfertigungsnummerBis._ShortDateOnly = False
         Me.txtAbfertigungsnummerBis._TimeOnly = False
+        Me.txtAbfertigungsnummerBis._TimeOnly_Seconds = False
         Me.txtAbfertigungsnummerBis._value = Nothing
         Me.txtAbfertigungsnummerBis._Waehrung = False
         Me.txtAbfertigungsnummerBis._WaehrungZeichen = True
@@ -728,10 +766,12 @@ Partial Class frmRechnungenSuche
         Me.txtAbfertigungsnummer._DateTimeOnly = False
         Me.txtAbfertigungsnummer._numbersOnly = False
         Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
         Me.txtAbfertigungsnummer._Prozent = False
         Me.txtAbfertigungsnummer._ShortDateNew = False
         Me.txtAbfertigungsnummer._ShortDateOnly = False
         Me.txtAbfertigungsnummer._TimeOnly = False
+        Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
         Me.txtAbfertigungsnummer._value = Nothing
         Me.txtAbfertigungsnummer._Waehrung = False
         Me.txtAbfertigungsnummer._WaehrungZeichen = True
@@ -805,10 +845,12 @@ Partial Class frmRechnungenSuche
         Me.KdFrachtfuehrerKdnr._DateTimeOnly = False
         Me.KdFrachtfuehrerKdnr._numbersOnly = False
         Me.KdFrachtfuehrerKdnr._numbersOnlyKommastellen = ""
+        Me.KdFrachtfuehrerKdnr._numbersOnlyTrennzeichen = True
         Me.KdFrachtfuehrerKdnr._Prozent = False
         Me.KdFrachtfuehrerKdnr._ShortDateNew = False
         Me.KdFrachtfuehrerKdnr._ShortDateOnly = False
         Me.KdFrachtfuehrerKdnr._TimeOnly = False
+        Me.KdFrachtfuehrerKdnr._TimeOnly_Seconds = False
         Me.KdFrachtfuehrerKdnr._value = Nothing
         Me.KdFrachtfuehrerKdnr._Waehrung = False
         Me.KdFrachtfuehrerKdnr._WaehrungZeichen = True
@@ -838,10 +880,12 @@ Partial Class frmRechnungenSuche
         Me.txtSachbearbeiter._DateTimeOnly = False
         Me.txtSachbearbeiter._numbersOnly = False
         Me.txtSachbearbeiter._numbersOnlyKommastellen = ""
+        Me.txtSachbearbeiter._numbersOnlyTrennzeichen = True
         Me.txtSachbearbeiter._Prozent = False
         Me.txtSachbearbeiter._ShortDateNew = False
         Me.txtSachbearbeiter._ShortDateOnly = False
         Me.txtSachbearbeiter._TimeOnly = False
+        Me.txtSachbearbeiter._TimeOnly_Seconds = False
         Me.txtSachbearbeiter._value = Nothing
         Me.txtSachbearbeiter._Waehrung = False
         Me.txtSachbearbeiter._WaehrungZeichen = True
@@ -887,10 +931,12 @@ Partial Class frmRechnungenSuche
         Me.txtRechnungAnKdNr._DateTimeOnly = False
         Me.txtRechnungAnKdNr._numbersOnly = False
         Me.txtRechnungAnKdNr._numbersOnlyKommastellen = ""
+        Me.txtRechnungAnKdNr._numbersOnlyTrennzeichen = True
         Me.txtRechnungAnKdNr._Prozent = False
         Me.txtRechnungAnKdNr._ShortDateNew = False
         Me.txtRechnungAnKdNr._ShortDateOnly = False
         Me.txtRechnungAnKdNr._TimeOnly = False
+        Me.txtRechnungAnKdNr._TimeOnly_Seconds = False
         Me.txtRechnungAnKdNr._value = Nothing
         Me.txtRechnungAnKdNr._Waehrung = False
         Me.txtRechnungAnKdNr._WaehrungZeichen = True
@@ -980,10 +1026,12 @@ Partial Class frmRechnungenSuche
         Me.txtAvisiererKdNr._DateTimeOnly = False
         Me.txtAvisiererKdNr._numbersOnly = False
         Me.txtAvisiererKdNr._numbersOnlyKommastellen = ""
+        Me.txtAvisiererKdNr._numbersOnlyTrennzeichen = True
         Me.txtAvisiererKdNr._Prozent = False
         Me.txtAvisiererKdNr._ShortDateNew = False
         Me.txtAvisiererKdNr._ShortDateOnly = False
         Me.txtAvisiererKdNr._TimeOnly = False
+        Me.txtAvisiererKdNr._TimeOnly_Seconds = False
         Me.txtAvisiererKdNr._value = Nothing
         Me.txtAvisiererKdNr._Waehrung = False
         Me.txtAvisiererKdNr._WaehrungZeichen = True
@@ -1106,10 +1154,12 @@ Partial Class frmRechnungenSuche
         Me.MyTextBox14._DateTimeOnly = False
         Me.MyTextBox14._numbersOnly = False
         Me.MyTextBox14._numbersOnlyKommastellen = ""
+        Me.MyTextBox14._numbersOnlyTrennzeichen = True
         Me.MyTextBox14._Prozent = False
         Me.MyTextBox14._ShortDateNew = False
         Me.MyTextBox14._ShortDateOnly = False
         Me.MyTextBox14._TimeOnly = False
+        Me.MyTextBox14._TimeOnly_Seconds = False
         Me.MyTextBox14._value = Nothing
         Me.MyTextBox14._Waehrung = False
         Me.MyTextBox14._WaehrungZeichen = True
@@ -1187,10 +1237,12 @@ Partial Class frmRechnungenSuche
         Me.txtAbsenderKdnr._DateTimeOnly = False
         Me.txtAbsenderKdnr._numbersOnly = False
         Me.txtAbsenderKdnr._numbersOnlyKommastellen = ""
+        Me.txtAbsenderKdnr._numbersOnlyTrennzeichen = True
         Me.txtAbsenderKdnr._Prozent = False
         Me.txtAbsenderKdnr._ShortDateNew = False
         Me.txtAbsenderKdnr._ShortDateOnly = False
         Me.txtAbsenderKdnr._TimeOnly = False
+        Me.txtAbsenderKdnr._TimeOnly_Seconds = False
         Me.txtAbsenderKdnr._value = Nothing
         Me.txtAbsenderKdnr._Waehrung = False
         Me.txtAbsenderKdnr._WaehrungZeichen = True
@@ -1211,10 +1263,12 @@ Partial Class frmRechnungenSuche
         Me.txtEmpfaengerKdnr._DateTimeOnly = False
         Me.txtEmpfaengerKdnr._numbersOnly = False
         Me.txtEmpfaengerKdnr._numbersOnlyKommastellen = ""
+        Me.txtEmpfaengerKdnr._numbersOnlyTrennzeichen = True
         Me.txtEmpfaengerKdnr._Prozent = False
         Me.txtEmpfaengerKdnr._ShortDateNew = False
         Me.txtEmpfaengerKdnr._ShortDateOnly = False
         Me.txtEmpfaengerKdnr._TimeOnly = False
+        Me.txtEmpfaengerKdnr._TimeOnly_Seconds = False
         Me.txtEmpfaengerKdnr._value = Nothing
         Me.txtEmpfaengerKdnr._Waehrung = False
         Me.txtEmpfaengerKdnr._WaehrungZeichen = True
@@ -1262,10 +1316,12 @@ Partial Class frmRechnungenSuche
         Me.txtAuftraggeberKdnr._DateTimeOnly = False
         Me.txtAuftraggeberKdnr._numbersOnly = False
         Me.txtAuftraggeberKdnr._numbersOnlyKommastellen = ""
+        Me.txtAuftraggeberKdnr._numbersOnlyTrennzeichen = True
         Me.txtAuftraggeberKdnr._Prozent = False
         Me.txtAuftraggeberKdnr._ShortDateNew = False
         Me.txtAuftraggeberKdnr._ShortDateOnly = False
         Me.txtAuftraggeberKdnr._TimeOnly = False
+        Me.txtAuftraggeberKdnr._TimeOnly_Seconds = False
         Me.txtAuftraggeberKdnr._value = Nothing
         Me.txtAuftraggeberKdnr._Waehrung = False
         Me.txtAuftraggeberKdnr._WaehrungZeichen = True
@@ -1313,10 +1369,12 @@ Partial Class frmRechnungenSuche
         Me.MyTextBox15._DateTimeOnly = False
         Me.MyTextBox15._numbersOnly = False
         Me.MyTextBox15._numbersOnlyKommastellen = ""
+        Me.MyTextBox15._numbersOnlyTrennzeichen = True
         Me.MyTextBox15._Prozent = False
         Me.MyTextBox15._ShortDateNew = False
         Me.MyTextBox15._ShortDateOnly = False
         Me.MyTextBox15._TimeOnly = False
+        Me.MyTextBox15._TimeOnly_Seconds = False
         Me.MyTextBox15._value = Nothing
         Me.MyTextBox15._Waehrung = False
         Me.MyTextBox15._WaehrungZeichen = True
@@ -1335,10 +1393,12 @@ Partial Class frmRechnungenSuche
         Me.txtPackstuecke._DateTimeOnly = False
         Me.txtPackstuecke._numbersOnly = False
         Me.txtPackstuecke._numbersOnlyKommastellen = ""
+        Me.txtPackstuecke._numbersOnlyTrennzeichen = True
         Me.txtPackstuecke._Prozent = False
         Me.txtPackstuecke._ShortDateNew = False
         Me.txtPackstuecke._ShortDateOnly = False
         Me.txtPackstuecke._TimeOnly = False
+        Me.txtPackstuecke._TimeOnly_Seconds = False
         Me.txtPackstuecke._value = Nothing
         Me.txtPackstuecke._Waehrung = False
         Me.txtPackstuecke._WaehrungZeichen = True
@@ -1432,10 +1492,12 @@ Partial Class frmRechnungenSuche
         Me.txtMaxSrch._DateTimeOnly = False
         Me.txtMaxSrch._numbersOnly = True
         Me.txtMaxSrch._numbersOnlyKommastellen = ""
+        Me.txtMaxSrch._numbersOnlyTrennzeichen = True
         Me.txtMaxSrch._Prozent = False
         Me.txtMaxSrch._ShortDateNew = False
         Me.txtMaxSrch._ShortDateOnly = False
         Me.txtMaxSrch._TimeOnly = False
+        Me.txtMaxSrch._TimeOnly_Seconds = False
         Me.txtMaxSrch._value = ""
         Me.txtMaxSrch._Waehrung = False
         Me.txtMaxSrch._WaehrungZeichen = True
@@ -1461,11 +1523,26 @@ Partial Class frmRechnungenSuche
         Me.pnlBerichte.Controls.Add(Me.Button8)
         Me.pnlBerichte.Controls.Add(Me.MenuStrip1)
         Me.pnlBerichte.Dock = System.Windows.Forms.DockStyle.Left
-        Me.pnlBerichte.Location = New System.Drawing.Point(215, 0)
+        Me.pnlBerichte.Location = New System.Drawing.Point(233, 0)
         Me.pnlBerichte.Name = "pnlBerichte"
         Me.pnlBerichte.Size = New System.Drawing.Size(747, 68)
         Me.pnlBerichte.TabIndex = 6
         '
+        'Button3
+        '
+        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Image = Global.SDL.My.Resources.Resources.statistik_small
+        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button3.Location = New System.Drawing.Point(583, 21)
+        Me.Button3.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(153, 39)
+        Me.Button3.TabIndex = 44
+        Me.Button3.Text = "Brexit" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Vergütung Einnahmen)"
+        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button3.UseVisualStyleBackColor = True
+        '
         'Button1
         '
         Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -1576,24 +1653,27 @@ Partial Class frmRechnungenSuche
         '
         'pnl
         '
-        Me.pnl.Controls.Add(Me.Label32)
+        Me.pnl.Controls.Add(Me.Button9)
         Me.pnl.Dock = System.Windows.Forms.DockStyle.Left
         Me.pnl.Location = New System.Drawing.Point(0, 0)
         Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(215, 68)
+        Me.pnl.Size = New System.Drawing.Size(233, 68)
         Me.pnl.TabIndex = 5
         '
-        'Label32
+        'Button9
         '
-        Me.Label32.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button9.ContextMenuStrip = Me.ctxtRg
-        Me.Label32.AutoSize = True
+        Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button9.Image = Global.SDL.My.Resources.Resources.pdf1
-        Me.Label32.Location = New System.Drawing.Point(13, 7)
+        Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Label32.Name = "Label32"
+        Me.Button9.Location = New System.Drawing.Point(16, 4)
-        Me.Label32.Size = New System.Drawing.Size(34, 13)
+        Me.Button9.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
-        Me.Label32.TabIndex = 33
+        Me.Button9.Name = "Button9"
-        Me.Label32.Text = "Neu:"
+        Me.Button9.Size = New System.Drawing.Size(105, 57)
-        Me.Label32.Visible = False
+        Me.Button9.TabIndex = 93
+        Me.Button9.Text = "Als PDF"
+        Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button9.UseVisualStyleBackColor = True
         '
         'btnExcel
         '
@@ -1693,43 +1773,18 @@ Partial Class frmRechnungenSuche
         Me.TestToolStripMenuItem.Size = New System.Drawing.Size(150, 19)
         Me.TestToolStripMenuItem.Text = "test"
         '
-        'Button3
+        'ctxtRg
         '
-        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.ctxtRg.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiHochladenToolStripMenuItem})
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.ctxtRg.Name = "ctxtRg"
-        Me.Button3.Image = Global.SDL.My.Resources.Resources.statistik_small
+        Me.ctxtRg.Size = New System.Drawing.Size(197, 48)
-        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button3.Location = New System.Drawing.Point(583, 21)
-        Me.Button3.Margin = New System.Windows.Forms.Padding(0)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(153, 39)
-        Me.Button3.TabIndex = 44
-        Me.Button3.Text = "Brexit" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Vergütung Einnahmen)"
-        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button3.UseVisualStyleBackColor = True
         '
-        'cboFirma
+        'DateiHochladenToolStripMenuItem
         '
-        Me.cboFirma._allowedValuesFreiText = Nothing
+        Me.DateiHochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
-        Me.cboFirma._allowFreiText = False
+        Me.DateiHochladenToolStripMenuItem.Name = "DateiHochladenToolStripMenuItem"
-        Me.cboFirma._value = ""
+        Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
-        Me.cboFirma.DropDownWidth = 250
+        Me.DateiHochladenToolStripMenuItem.Text = "PDF in Zwischenablage"
-        Me.cboFirma.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboFirma.FormattingEnabled = True
-        Me.cboFirma.Location = New System.Drawing.Point(994, 29)
-        Me.cboFirma.Name = "cboFirma"
-        Me.cboFirma.Size = New System.Drawing.Size(123, 22)
-        Me.cboFirma.TabIndex = 39
-        '
-        'Label19
-        '
-        Me.Label19.AutoSize = True
-        Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label19.Location = New System.Drawing.Point(991, 12)
-        Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(37, 13)
-        Me.Label19.TabIndex = 40
-        Me.Label19.Text = "Firma"
         '
         'frmRechnungenSuche
         '
@@ -1766,9 +1821,9 @@ Partial Class frmRechnungenSuche
         Me.MenuStrip1.ResumeLayout(False)
         Me.MenuStrip1.PerformLayout()
         Me.pnl.ResumeLayout(False)
-        Me.pnl.PerformLayout()
         Me.pnlTop.ResumeLayout(False)
         Me.pnlTop.PerformLayout()
+        Me.ctxtRg.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub
@@ -1839,7 +1894,6 @@ Partial Class frmRechnungenSuche
     Friend WithEvents Button8 As System.Windows.Forms.Button
     Friend WithEvents Label31 As System.Windows.Forms.Label
     Friend WithEvents pnl As System.Windows.Forms.Panel
-    Friend WithEvents Label32 As System.Windows.Forms.Label
     Friend WithEvents Label33 As System.Windows.Forms.Label
     Friend WithEvents kdtxtAvisierer As VERAG_PROG_ALLGEMEIN.KdSearchBox
     Friend WithEvents txtAvisiererKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
@@ -1878,4 +1932,7 @@ Partial Class frmRechnungenSuche
     Friend WithEvents Button3 As Button
     Friend WithEvents Label19 As Label
     Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Button9 As Button
+    Friend WithEvents ctxtRg As ContextMenuStrip
+    Friend WithEvents DateiHochladenToolStripMenuItem As ToolStripMenuItem
 End Class

SDL/Fakturierung/frmRechnungenSuche.resx

@@ -126,6 +126,12 @@
   <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>316, 17</value>
   </metadata>
+  <metadata name="ctxtRg.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>431, 17</value>
+  </metadata>
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>316, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="ToolStripMenuItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -174,7 +180,7 @@
         XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
         fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
         tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
-        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAB3VJREFUSEu9VntQ1NUe
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAAB3VJREFUSEu9VntQ1NUe
         /86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r
         ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ
         UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C
@@ -256,7 +262,7 @@
         XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
         fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
         tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
-        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAB3VJREFUSEu9VntQ1NUe
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAAB3VJREFUSEu9VntQ1NUe
         /86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r
         ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ
         UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C
@@ -338,7 +344,7 @@
         XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
         fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
         tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
-        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAB3VJREFUSEu9VntQ1NUe
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAAB3VJREFUSEu9VntQ1NUe
         /86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r
         ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ
         UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C

SDL/Fakturierung/frmRechnungenSuche.vb

@@ -23,7 +23,7 @@ Public Class frmRechnungenSuche
             .RowHeadersVisible = False
             .ReadOnly = True
             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
-            .MultiSelect = False
+            '  .MultiSelect = False
 
             .Columns("RK_ID").Visible = False
 
@@ -791,4 +791,54 @@ Public Class frmRechnungenSuche
             brexitXLS = True
         End With
     End Sub
+
+    Function getList_RK_ID() As List(Of Integer)
+        Dim listRgNr As New List(Of Integer)
+        Dim list As New List(Of Integer)
+        If DataGridView.SelectedRows.Count > 0 Then
+            For Each r As DataGridViewRow In DataGridView.SelectedRows
+                If listRgNr.FindIndex((Function(x) x.ToString = r.Cells("RechnungsNr").Value)) < 0 Then
+                    list.Add(r.Cells("RK_ID").Value)
+                    listRgNr.Add(r.Cells("RechnungsNr").Value)
+                End If
+            Next
+        End If
+        Return list
+    End Function
+
+    Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click
+        Me.Cursor = Cursors.WaitCursor
+        Try
+            For Each RK_ID In getList_RK_ID()
+                Dim RG_PATH = ""
+                cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 4, RG_PATH,,, True)
+                Process.Start(RG_PATH)
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub DateiHochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiHochladenToolStripMenuItem.Click
+        Me.Cursor = Cursors.WaitCursor
+        Try
+
+            Dim list As New List(Of String)
+
+            For Each RK_ID In getList_RK_ID()
+                Dim RG_PATH = ""
+                cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 4, RG_PATH,,, True)
+                list.Add(RG_PATH)
+            Next
+
+            'Zwischenablage
+            Clipboard.Clear()
+            Dim d As New DataObject(DataFormats.FileDrop, list.ToArray)
+            Clipboard.SetDataObject(d, True)
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class

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" &
+        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"))
+            "l; font-size: 10pt; color: Black; ddo-char-set: 0", "Normal"), DDCssLib.StyleSheetRule))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"), DDCssLib.StyleSheetRule))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
-            "lic", "Heading2", "Normal"))
+            "lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule))
-        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        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()

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

SDL/kunden/frmNeuerKunde.vb

@@ -133,7 +133,7 @@
             KUNDE_ERW.kde_BesonderheitenNeu = 1
 
             Dim err = ""
-            If Not ADRESSE.VALID(err) Then
+            If Not ADRESSE.VALID(err, KUNDE) Then
                 lblError.Text = err
                 kdnr = -1 : Exit Sub
             End If

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -655,7 +655,7 @@ Public Class usrcntlKundeBearbeitenFull
 
 
                 Dim err = ""
-                If Not ADRESSE.VALID(err) Then
+                If Not ADRESSE.VALID(err, KUNDE) Then
                     txtERROR.Text = err : Exit Sub
                 End If
                 If Not KUNDE.VALID(err) Then

VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb

@@ -144,16 +144,28 @@ Public Class cAdressen
 
 
 
-    Function VALID(ByRef ERROR_TXT) As Boolean
+    Function VALID(ByRef ERROR_TXT, KD) As Boolean
         If If(Ordnungsbegriff, "") = "" Then ERROR_TXT = "Bitte geben Sie einen Ordnungsbegriff ein!" : Return False
         If If(Name_1, "") = "" Then ERROR_TXT = "Bitte geben Sie den Firmenwortlaut ein!" : Return False
         If If(LandKz, "") = "" Then ERROR_TXT = "Bitte geben Sie das Land an!" : Return False
         If If(Ort, "") = "" Then ERROR_TXT = "Bitte geben Sie den Ort an!" : Return False
         If If(PLZ, "") = "" Then ERROR_TXT = "Bitte geben Sie die PLZ an!" : Return False
         If If(Straße, "") = "" Then ERROR_TXT = "Bitte geben Sie die Straße an!" : Return False
+        If Not hasEntry Then
+            'Prüfung Neuanlage:
+            If checkUID(KD) Then ERROR_TXT = "Die UID Nummer existiert bereits!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False
+        End If
         Return True
     End Function
 
+    Function checkUID(KD As cKunde) As Boolean
+        If If(UstIdKz, String.Empty) <> String.Empty And If(UstIdNr, String.Empty) <> String.Empty Then
+            If SQL.getValueTxtBySql("SELECT  COUNT(*) FROM [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr  WHERE [UstIdKz]='" & UstIdKz & "' AND [UstIdNr]='" & UstIdNr & "' and  kunden.FilialenNr='" & KD.FilialenNr & "'", "FMZOLL") > 0 Then
+                Return True
+            End If
+        End If
+        Return False
+    End Function
     Public Function SAVE(Optional newFlag = False) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
         If newFlag Then INIT_NEWKD_DATA()
         If AdressenNr <= 0 Then

VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb

@@ -178,22 +178,30 @@ Public Class cKunde
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailAnkunft", EmailAnkunft))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe", EmailFreigabe))
 
-
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Höchstkredit", Höchstkredit))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DakosyExport", DakosyExport))
 
-
         Return list
     End Function
 
 
 
     Function VALID(ByRef ERROR_TXT) As Boolean
-        '   If If(FilialenNr Is Nothing, "", FilialenNr).ToString = "" Then ERROR_TXT = "Bitte geben Sie die zuständige Filiale an!" : Return False 'Es gibt alte Einträge ohne FilialenNr
+        If Not hasEntry Then
-
+            'Prüfung Neuanlage:
+            If If(FilialenNr Is Nothing, "", FilialenNr).ToString = "" Then ERROR_TXT = "Bitte geben Sie die zuständige Filiale an!" : Return False 'Es gibt alte Einträge ohne FilialenNr
+            If checkEORI() Then ERROR_TXT = "Die EORI Nummer existiert bereits!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False
+        End If
         Return True
     End Function
-
+    Function checkEORI() As Boolean
+        If If(EORITIN, String.Empty) <> String.Empty Then
+            If SQL.getValueTxtBySql("SELECT COUNT(*) FROM Kunden WHERE EORITIN='" & EORITIN & "' AND  kunden.FilialenNr='" & FilialenNr & "' ", "FMZOLL") > 0 Then
+                Return True
+            End If
+        End If
+        Return False
+    End Function
 
     Sub INIT_NEWKD_DATA()
 

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb

@@ -81,13 +81,13 @@ Public Class cRechnungsnummern
     End Function
 
 
-    Public Function CHECK_RGNR() As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
+    Public Function CHECK_RGNR(Optional sleep = False) As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
         Dim increased = False
-        System.Threading.Thread.Sleep(200) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
+        If sleep Then System.Threading.Thread.Sleep(200) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
         While SQL.DLookup("count(*)", "Rechnungsausgang", " RechnungsNr='" & LfdRechnungsNr & "' and Firma_ID='" & SpeditionsbuchNr & "' and Buchungsjahr='" & Buchungsjahr & "' ", "FMZOLL", 0) > 0
             LfdRechnungsNr += 1
             increased = True
-            System.Threading.Thread.Sleep(100) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
+            System.Threading.Thread.Sleep(50) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
         End While
         If increased Then SAVE()
         Return LfdRechnungsNr

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -1263,6 +1263,10 @@ Public Class frmMessenger
         For Each c In FlowLayoutPanel1.Controls
             DirectCast(c, usrCntlChat_Art_Btn).setInAktiv()
         Next
+        MyFlowLayoutPanel1.Controls.Clear()
+        CHAT = Nothing
+        topMessagesDateHistory = Nothing ' zurücksetzen des HistoryDate
+
         Me.toggle_CHAT_ART = CHAT_ART
         intiDGVChats()
         loaded = True
@@ -1282,19 +1286,5 @@ Public Class frmMessenger
         sender.setAktiv()
     End Sub
 
-    Private Sub UsrCntlChat_Art_Btn1_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_MACHAT.CLICKED
 
-    End Sub
-
-    Private Sub UsrCntlChat_Art_Btn2_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_LKWCHAT.CLICKED
-
-    End Sub
-
-    Private Sub UsrCntlChat_Art_snd_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_SNDCHAT.CLICKED
-
-    End Sub
-
-    Private Sub MyFlowLayoutPanel1_Paint(sender As Object, e As PaintEventArgs) Handles MyFlowLayoutPanel1.Paint
-
-    End Sub
 End Class