LAufzettel, Anhangasarten. Ueberstunden

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

@@ -78,6 +78,7 @@ Partial Public Class rptLaufzettelZollDE
         Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
         Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.txtFirmeninfo_ambar = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -122,6 +123,7 @@ Partial Public Class rptLaufzettelZollDE
         CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFirmeninfo_ambar, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
         '
         'PageHeader
@@ -142,7 +144,7 @@ Partial Public Class rptLaufzettelZollDE
         Me.Shape10.Height = 0.08346456!
         Me.Shape10.Left = 0.4314961!
         Me.Shape10.Name = "Shape10"
-        Me.Shape10.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
+        Me.Shape10.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
         Me.Shape10.Top = 0!
         Me.Shape10.Width = 7.086614!
         '
@@ -151,7 +153,7 @@ Partial Public Class rptLaufzettelZollDE
         Me.Shape11.Height = 0.08346456!
         Me.Shape11.Left = 0.4314961!
         Me.Shape11.Name = "Shape11"
-        Me.Shape11.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
+        Me.Shape11.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
         Me.Shape11.Top = 0!
         Me.Shape11.Width = 1.15748!
         '
@@ -161,7 +163,6 @@ 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"
@@ -174,7 +175,6 @@ 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"
@@ -186,7 +186,6 @@ 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"
@@ -199,7 +198,6 @@ 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"
@@ -211,7 +209,6 @@ 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
@@ -223,7 +220,6 @@ 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"
@@ -235,7 +231,6 @@ 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"
@@ -247,7 +242,7 @@ Partial Public Class rptLaufzettelZollDE
         Me.Shape8.Height = 0.08346459!
         Me.Shape8.Left = 6.946457!
         Me.Shape8.Name = "Shape8"
-        Me.Shape8.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
+        Me.Shape8.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
         Me.Shape8.Top = 0!
         Me.Shape8.Width = 0.5716529!
         '
@@ -267,7 +262,6 @@ 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
@@ -296,7 +290,6 @@ 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!
@@ -308,7 +301,6 @@ 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 +321,7 @@ Partial Public Class rptLaufzettelZollDE
         '
         'ReportHeader1
         '
-        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED, Me.SubReport1, Me.TextBox7, Me.txtFirmaInfo_VERAG, Me.TextBox11})
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED, Me.SubReport1, Me.TextBox7, Me.txtFirmaInfo_VERAG, Me.TextBox11, Me.txtFirmeninfo_ambar})
         Me.ReportHeader1.Height = 2.227953!
         Me.ReportHeader1.Name = "ReportHeader1"
         '
@@ -339,7 +331,7 @@ Partial Public Class rptLaufzettelZollDE
         Me.Shape1.Height = 0.3618112!
         Me.Shape1.Left = 0.4311019!
         Me.Shape1.Name = "Shape1"
-        Me.Shape1.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
+        Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
         Me.Shape1.Top = 1.866142!
         Me.Shape1.Width = 1.157874!
         '
@@ -348,7 +340,6 @@ 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"
@@ -361,7 +352,6 @@ 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"
@@ -385,7 +375,6 @@ 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"
@@ -398,7 +387,7 @@ Partial Public Class rptLaufzettelZollDE
         Me.Shape3.Height = 0.3618112!
         Me.Shape3.Left = 1.588977!
         Me.Shape3.Name = "Shape3"
-        Me.Shape3.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
+        Me.Shape3.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
         Me.Shape3.Top = 1.866142!
         Me.Shape3.Width = 1.511024!
         '
@@ -408,7 +397,7 @@ Partial Public Class rptLaufzettelZollDE
         Me.Shape4.Height = 0.3618112!
         Me.Shape4.Left = 3.099999!
         Me.Shape4.Name = "Shape4"
-        Me.Shape4.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
+        Me.Shape4.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
         Me.Shape4.Top = 1.866142!
         Me.Shape4.Width = 2.05!
         '
@@ -418,7 +407,7 @@ Partial Public Class rptLaufzettelZollDE
         Me.Shape5.Height = 0.3618112!
         Me.Shape5.Left = 5.150001!
         Me.Shape5.Name = "Shape5"
-        Me.Shape5.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
+        Me.Shape5.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
         Me.Shape5.Top = 1.866142!
         Me.Shape5.Width = 2.367716!
         '
@@ -427,7 +416,6 @@ 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"
@@ -439,7 +427,6 @@ 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"
@@ -451,7 +438,6 @@ 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!
@@ -462,7 +448,6 @@ 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!
@@ -473,7 +458,6 @@ 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"
@@ -485,7 +469,6 @@ 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!
@@ -496,7 +479,6 @@ 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"
@@ -508,7 +490,6 @@ 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!
@@ -519,7 +500,6 @@ 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"
@@ -531,7 +511,6 @@ 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!
@@ -542,7 +521,6 @@ 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!
@@ -553,7 +531,6 @@ 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!
@@ -564,7 +541,6 @@ 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!
@@ -575,7 +551,6 @@ 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!
@@ -586,7 +561,6 @@ 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"
@@ -598,7 +572,6 @@ 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"
@@ -611,7 +584,7 @@ Partial Public Class rptLaufzettelZollDE
         Me.Shape2.Height = 0.3618112!
         Me.Shape2.Left = 6.946457!
         Me.Shape2.Name = "Shape2"
-        Me.Shape2.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius)
+        Me.Shape2.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
         Me.Shape2.Top = 1.866142!
         Me.Shape2.Width = 0.5791335!
         '
@@ -620,7 +593,6 @@ 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"
@@ -632,7 +604,6 @@ 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"
@@ -644,7 +615,6 @@ 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"
@@ -656,7 +626,6 @@ 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"
@@ -669,7 +638,6 @@ 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"
@@ -694,7 +662,6 @@ 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"
@@ -707,7 +674,6 @@ 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"
@@ -719,7 +685,6 @@ 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"
@@ -732,7 +697,6 @@ 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"
@@ -745,7 +709,6 @@ 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!
@@ -757,7 +720,6 @@ 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"
@@ -770,7 +732,6 @@ 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!
@@ -790,7 +751,6 @@ 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. Vielen Dank!"
@@ -810,6 +770,20 @@ Partial Public Class rptLaufzettelZollDE
         Me.Line1.Y1 = 0.02362205!
         Me.Line1.Y2 = 0.02370409!
         '
+        'txtFirmeninfo_ambar
+        '
+        Me.txtFirmeninfo_ambar.DataField = ""
+        Me.txtFirmeninfo_ambar.DistinctField = ""
+        Me.txtFirmeninfo_ambar.Height = 0.5000001!
+        Me.txtFirmeninfo_ambar.Left = 0.4405512!
+        Me.txtFirmeninfo_ambar.Name = "txtFirmeninfo_ambar"
+        Me.txtFirmeninfo_ambar.Style = "color: Black; font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
+        Me.txtFirmeninfo_ambar.SummaryGroup = ""
+        Me.txtFirmeninfo_ambar.Text = "DE-83435 Bad Reichenhall                  Tel. +49 8651 9962492" & Global.Microsoft.VisualBasic.ChrW(9) & "www.ambarlog.com" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Reichenhallerstrasse 62" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +49 8651 9962493" & Global.Microsoft.VisualBasic.ChrW(9) & "import@ambarlog.com"
+        Me.txtFirmeninfo_ambar.Top = 0!
+        Me.txtFirmeninfo_ambar.Visible = False
+        Me.txtFirmeninfo_ambar.Width = 6.67165!
+        '
         'rptLaufzettelZollDE
         '
         Me.PageSettings.Margins.Bottom = 0.1968504!
@@ -824,12 +798,12 @@ Partial Public Class rptLaufzettelZollDE
         Me.Sections.Add(Me.Detail)
         Me.Sections.Add(Me.PageFooter)
         Me.Sections.Add(Me.ReportFooter1)
-        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+        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"), DDCssLib.StyleSheetRule))
+            "l; font-size: 10pt; color: Black; ddo-char-set: 0", "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-size: 16pt; font-weight: bold", "Heading1", "Normal"))
-        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
-            "lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule))
+            "lic", "Heading2", "Normal"))
-        Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"), DDCssLib.StyleSheetRule))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
         CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).EndInit()
@@ -874,6 +848,7 @@ Partial Public Class rptLaufzettelZollDE
         CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFirmeninfo_ambar, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
 
     End Sub
@@ -936,4 +911,5 @@ Partial Public Class rptLaufzettelZollDE
     Public WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtFirmeninfo_ambar As GrapeCity.ActiveReports.SectionReportModel.TextBox
 End Class

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -2054,6 +2054,16 @@ Public Class FormularManagerNEU
                     rpt.txtFraechter.Text = AVISO.Auftraggeber
                     '   rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter
                     'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg
+
+
+                Case "AMBAR"
+                    'test
+                    rpt.txtFirmaInfo_VERAG.Visible = False
+                    rpt.txtFirmeninfo_ambar.Visible = True
+                    rpt.picVERAG.Image = My.Resources.ambar_simple1
+                    rpt.TextBox32.Text = "Avisierer (*):"
+                    rpt.txtFraechter.Text = AVISO.Auftraggeber
+
                 Case Else
                     Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
                         Case "SBG" : ort = "Bad Reichenhall"

VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhangsarten.vb

@@ -5,38 +5,28 @@ Imports System.Reflection
 
 Public Class cAvisoAnhangsarten_LIST
     Public LIST As New List(Of cAvisoAnhangsarten)
+    Dim SQL As New SQL
 
-    Sub New()
+
-        LOAD_LIST()
+    Sub New(aktiv As Boolean, firma As String, filiale As String)
+        LOAD_LIST(aktiv, firma, filiale)
     End Sub
-    Public Sub LOAD_LIST()
+
+    Public Sub LOAD_LIST(aktiv As Boolean, Firma As String, Filiale As String)
         Try
+
             LIST.Clear()
-            Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
-                Using cmd As New SqlCommand("SELECT * FROM [tblAvisoAnhangsArten] ", conn)
 
-                    '  cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
+            For Each r In SQL.loadDgvBySql("Select aa_id FROM [tblAvisoAnhangsArten] WHERE aa_aktiv=" & IIf(aktiv, "1", "0") & " And ((aa_firma Is null And aa_filiale Is null) " & IIf(Firma <> "", " Or aa_firma = '" & Firma & "'", "") & IIf(Filiale <> "", " OR aa_filiale = '" & Filiale & "'", "") & ")", "AVISO").Rows
-                    Dim dr = cmd.ExecuteReader()
+                LIST.Add(New VERAG_PROG_ALLGEMEIN.cAvisoAnhangsarten(r("aa_id")))
-                    While dr.Read
+            Next
-                        Dim l As New cAvisoAnhangsarten
-                        For Each i In l.getParameterList()
-                            Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
-                            If dr.Item(i.Text) Is DBNull.Value Then
-                                propInfo.SetValue(l, Nothing)
-                            Else
-                                propInfo.SetValue(l, dr.Item(i.Text))
-                            End If
-                        Next
-                        LIST.Add(l)
 
-                    End While
-                    dr.Close()
-                End Using
-            End Using
         Catch ex As Exception
             MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
         End Try
     End Sub
+
+
 End Class
 
 
@@ -49,6 +39,7 @@ Public Class cAvisoAnhangsarten
     Property aa_aktiv As Object = Nothing
     Property aa_bezeichnung As Object = Nothing
     Property aa_firma As Object = Nothing
+    Property aa_filiale As Object = Nothing
 
     Public hasEntry = False
 
@@ -72,6 +63,7 @@ Public Class cAvisoAnhangsarten
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_aktiv", aa_aktiv))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_bezeichnung", aa_bezeichnung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_firma", aa_firma))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_filiale", aa_filiale))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -1,7 +1,6 @@
 
 Imports System.Text
 Imports System.Threading
-Imports System.Web.UI.WebControls
 Imports System.Windows.Forms
 Public Class frmUeberstundenauszahlen
 
@@ -679,7 +678,7 @@ Public Class frmUeberstundenauszahlen
         txtlfdSaldo.Text = timas.getTimeSaldo(MA.mit_timasId, "", "overallBalance")
 
         stunden100auszbere = RoundOfDigits(stunden100ausz * 2, 2)
-        stunden50auszbere = RoundOfDigits(stunden50ausz * 100 / faktorSamstagsarbeit, 2)
+        stunden50auszbere = RoundOfDigits(stunden50ausz * faktorSamstagsarbeit / 100, 2)
 
         txt100x2.Text = stunden100auszbere
         txt50x15.Text = stunden50auszbere