Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

SDL/Fakturierung/cFakturierung.vb

@@ -5237,9 +5237,12 @@ Public Class cFakturierung
 
         rpt.DataSource = dt
 
+        Dim Gesamt_RG_Betrag As Double = CDbl(dt.Compute("SUM(SteuerpflichtigerGesamtbetrag)", "")) + CDbl(dt.Compute("SUM(SteuerfreierGesamtbetrag)", ""))
+        Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR")
+
         Select Case Row("RechnungSprache")
             Case "EN"
-                Select Case Row("BelegartenKz")
+                Select Case BelegartenKz
                     Case "AR"
                         rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE")
                         rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
@@ -5252,7 +5255,7 @@ Public Class cFakturierung
                         rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
                 End Select
             Case Else
-                Select Case Row("BelegartenKz")
+                Select Case BelegartenKz
                     Case "AR"
                         rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Rechnung")
                     Case "AG"

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -908,6 +908,7 @@ Public Class usrCntlFaktAbrechnung
                 RECHNUNG.Vorkasse = KD.Vorkasse
                 RECHNUNG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
                 RECHNUNG.Vorlageprovision_Proz = KD.Vorlageprovision
+                RECHNUNG.Vorlageprovision_Mindestbetrag = KD.Vorlageprovision_Mindestbetrag
 
                 If FIRMA IsNot Nothing Then
                     If FIRMA.Firma_ID = 11 Then ' Bei VERAG Customs Service GmbH --> kein Bankeinzug
@@ -2351,6 +2352,7 @@ Public Class usrCntlFaktAbrechnung
             End If
             RECHNUNG.Kunden_SVS = kdFirmaRechnungAn.KdData_KUNDE.SVS
             RECHNUNG.Vorlageprovision_Proz = kdFirmaRechnungAn.KdData_KUNDE.Vorlageprovision '!!!!%
+            RECHNUNG.Vorlageprovision_Mindestbetrag = kdFirmaRechnungAn.KdData_KUNDE.Vorlageprovision_Mindestbetrag '!!!!%
             RECHNUNG.Kreditaufwendungen_Proz = kdFirmaRechnungAn.KdData_KUNDE.Kreditaufwendungen '!!!!%
             RECHNUNG.Besonderheiten = kdFirmaRechnungAn.KdData_KUNDE.Besonderheiten
 
@@ -2594,8 +2596,21 @@ Public Class usrCntlFaktAbrechnung
                 If RECHNUNG.RechnungSprache = "DE" Or FindPOS.LeistungsBez Is Nothing Then FindPOS.LeistungsBez = "Vorlageprovision"
                 'RECHNUNG.POSITIONEN.Add(FindPOS)
                 FindPOS.Anzahl = 1
-                FindPOS.Preis = Math.Round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2) 'Int(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz) * 10 + 0.5) / 10
+
-                '...und der Wert gesetzt.
+                Dim Vorlageprov As Double = Math.Round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2)
+
+                'If Vorlageprov < 0 Then Vorlageprov *= -1
+
+                If Not IsDBNull(RECHNUNG.Vorlageprovision_Mindestbetrag) AndAlso IsNumeric(RECHNUNG.Vorlageprovision_Mindestbetrag) AndAlso CDbl(RECHNUNG.Vorlageprovision_Mindestbetrag) <> 0.00 AndAlso Vorlageprov < CDbl(RECHNUNG.Vorlageprovision_Mindestbetrag) Then
+                    FindPOS.Preis = CDbl(RECHNUNG.Vorlageprovision_Mindestbetrag)
+                Else
+                    FindPOS.Preis = Math.Round(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz), 2)
+                End If
+
+                'Int(Vorlageprovision_Berechnungbetrag * (RECHNUNG.Vorlageprovision_Proz) * 10 + 0.5) / 10
+
+
+
 
                 initSteuerbetraege(RECHNUNG, FindPOS)
             End If

SDL/My Project/AssemblyInfo.vb

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

SDL/SDL.vbproj

@@ -889,6 +889,12 @@
     <Compile Include="kunden\frmGoMautBoxen_Bestellung.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="kunden\frmKundenlogin.Designer.vb">
+      <DependentUpon>frmKundenlogin.vb</DependentUpon>
+    </Compile>
+    <Compile Include="kunden\frmKundenlogin.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="kunden\frmKundenLinkedGruppe.Designer.vb">
       <DependentUpon>frmKundenLinkedGruppe.vb</DependentUpon>
     </Compile>
@@ -955,6 +961,12 @@
     <Compile Include="kunden\usrCntlKundenBesonderheiten.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="kunden\usrCntlKundenlogin.Designer.vb">
+      <DependentUpon>usrCntlKundenlogin.vb</DependentUpon>
+    </Compile>
+    <Compile Include="kunden\usrCntlKundenlogin.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="kunden\usrCntlKundenZollVollmachten.Designer.vb">
       <DependentUpon>usrCntlKundenZollVollmachten.vb</DependentUpon>
     </Compile>
@@ -3518,6 +3530,9 @@
     <EmbeddedResource Include="kunden\frmGoMautBoxen_Bestellung.resx">
       <DependentUpon>frmGoMautBoxen_Bestellung.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="kunden\frmKundenlogin.resx">
+      <DependentUpon>frmKundenlogin.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="kunden\frmKundenLinkedGruppe.resx">
       <DependentUpon>frmKundenLinkedGruppe.vb</DependentUpon>
     </EmbeddedResource>
@@ -3551,6 +3566,9 @@
     <EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx">
       <DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="kunden\usrCntlKundenlogin.resx">
+      <DependentUpon>usrCntlKundenlogin.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="kunden\usrCntlKundenZollVollmachten.resx">
       <DependentUpon>usrCntlKundenZollVollmachten.vb</DependentUpon>
     </EmbeddedResource>

SDL/USTV/usrCntlUSTV.vb

@@ -192,7 +192,7 @@ Public Class usrCntlUSTV
                                 WHERE Kunden.KundenNr = " & KdSearchBox1.KdNr, "FMZOLL")
 
 
-                OPSaldo = CInt((New SQL).getValueTxtBySql("SELECT isnull(sum(Gesamtausstand),0) FROM [Offene Posten] WHERE [Kontonummer]=" & KdSearchBox1.KdNr, "FMZOLL"))
+                OPSaldo = CDbl((New SQL).getValueTxtBySql("SELECT isnull(sum(Gesamtausstand),0) FROM [Offene Posten] WHERE [Kontonummer]=" & KdSearchBox1.KdNr, "FMZOLL"))
 
                 calcRisiko = True
                 If dt.Rows.Count = 1 Then

SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb

@@ -62,6 +62,8 @@ Partial Class frmBU_Mahnlauf
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.lblBetreuer = New System.Windows.Forms.Label()
         Me.Panel1.SuspendLayout()
         Me.pnlTop.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -71,6 +73,8 @@ Partial Class frmBU_Mahnlauf
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.lblBetreuer)
+        Me.Panel1.Controls.Add(Me.cboBetreuer)
         Me.Panel1.Controls.Add(Me.cbxKontotyp)
         Me.Panel1.Controls.Add(Me.txtZahlEingaenge)
         Me.Panel1.Controls.Add(Me.cbxZahlungseingaenge)
@@ -88,7 +92,7 @@ Partial Class frmBU_Mahnlauf
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
         Me.Panel1.Location = New System.Drawing.Point(0, 0)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(1427, 127)
+        Me.Panel1.Size = New System.Drawing.Size(1514, 132)
         Me.Panel1.TabIndex = 0
         '
         'cbxKontotyp
@@ -98,7 +102,7 @@ Partial Class frmBU_Mahnlauf
         Me.cbxKontotyp._value = ""
         Me.cbxKontotyp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.cbxKontotyp.FormattingEnabled = True
-        Me.cbxKontotyp.Location = New System.Drawing.Point(529, 96)
+        Me.cbxKontotyp.Location = New System.Drawing.Point(544, 96)
         Me.cbxKontotyp.Name = "cbxKontotyp"
         Me.cbxKontotyp.Size = New System.Drawing.Size(97, 21)
         Me.cbxKontotyp.TabIndex = 48
@@ -120,7 +124,7 @@ Partial Class frmBU_Mahnlauf
         Me.txtZahlEingaenge._WaehrungZeichen = False
         Me.txtZahlEingaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.txtZahlEingaenge.ForeColor = System.Drawing.Color.Black
-        Me.txtZahlEingaenge.Location = New System.Drawing.Point(675, 78)
+        Me.txtZahlEingaenge.Location = New System.Drawing.Point(690, 78)
         Me.txtZahlEingaenge.MaxLength = 10
         Me.txtZahlEingaenge.MaxLineLength = -1
         Me.txtZahlEingaenge.MaxLines_Warning = ""
@@ -135,7 +139,7 @@ Partial Class frmBU_Mahnlauf
         '
         Me.cbxZahlungseingaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.cbxZahlungseingaenge.AutoSize = True
-        Me.cbxZahlungseingaenge.Location = New System.Drawing.Point(529, 80)
+        Me.cbxZahlungseingaenge.Location = New System.Drawing.Point(544, 80)
         Me.cbxZahlungseingaenge.Name = "cbxZahlungseingaenge"
         Me.cbxZahlungseingaenge.Size = New System.Drawing.Size(140, 17)
         Me.cbxZahlungseingaenge.TabIndex = 39
@@ -148,7 +152,7 @@ Partial Class frmBU_Mahnlauf
         Me.cbxNurFaellig.AutoSize = True
         Me.cbxNurFaellig.Checked = True
         Me.cbxNurFaellig.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxNurFaellig.Location = New System.Drawing.Point(529, 56)
+        Me.cbxNurFaellig.Location = New System.Drawing.Point(544, 56)
         Me.cbxNurFaellig.Name = "cbxNurFaellig"
         Me.cbxNurFaellig.Size = New System.Drawing.Size(94, 17)
         Me.cbxNurFaellig.TabIndex = 38
@@ -219,7 +223,7 @@ Partial Class frmBU_Mahnlauf
         Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search
         Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnSuche.Location = New System.Drawing.Point(1232, 56)
+        Me.btnSuche.Location = New System.Drawing.Point(1319, 56)
         Me.btnSuche.Name = "btnSuche"
         Me.btnSuche.Size = New System.Drawing.Size(162, 52)
         Me.btnSuche.TabIndex = 29
@@ -287,7 +291,7 @@ Partial Class frmBU_Mahnlauf
         Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
         Me.pnlTop.Location = New System.Drawing.Point(0, 0)
         Me.pnlTop.Name = "pnlTop"
-        Me.pnlTop.Size = New System.Drawing.Size(1427, 48)
+        Me.pnlTop.Size = New System.Drawing.Size(1514, 48)
         Me.pnlTop.TabIndex = 4
         '
         'Label4
@@ -305,9 +309,9 @@ Partial Class frmBU_Mahnlauf
         '
         Me.Panel2.Controls.Add(Me.MyDatagridview1)
         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Panel2.Location = New System.Drawing.Point(0, 127)
+        Me.Panel2.Location = New System.Drawing.Point(0, 132)
         Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(1427, 562)
+        Me.Panel2.Size = New System.Drawing.Size(1514, 557)
         Me.Panel2.TabIndex = 1
         '
         'MyDatagridview1
@@ -323,7 +327,7 @@ Partial Class frmBU_Mahnlauf
         Me.MyDatagridview1.ReadOnly = True
         Me.MyDatagridview1.RowHeadersVisible = False
         Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.MyDatagridview1.Size = New System.Drawing.Size(1427, 562)
+        Me.MyDatagridview1.Size = New System.Drawing.Size(1514, 557)
         Me.MyDatagridview1.TabIndex = 0
         '
         'Panel3
@@ -350,14 +354,14 @@ Partial Class frmBU_Mahnlauf
         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.Panel3.Location = New System.Drawing.Point(0, 689)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(1427, 166)
+        Me.Panel3.Size = New System.Drawing.Size(1514, 166)
         Me.Panel3.TabIndex = 1
         '
         'Label9
         '
         Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(1109, 144)
+        Me.Label9.Location = New System.Drawing.Point(1196, 144)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(234, 13)
         Me.Label9.TabIndex = 50
@@ -367,7 +371,7 @@ Partial Class frmBU_Mahnlauf
         '
         Me.cbxMahnsperre.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.cbxMahnsperre.AutoSize = True
-        Me.cbxMahnsperre.Location = New System.Drawing.Point(1337, 11)
+        Me.cbxMahnsperre.Location = New System.Drawing.Point(1424, 11)
         Me.cbxMahnsperre.Name = "cbxMahnsperre"
         Me.cbxMahnsperre.Size = New System.Drawing.Size(86, 17)
         Me.cbxMahnsperre.TabIndex = 49
@@ -380,7 +384,7 @@ Partial Class frmBU_Mahnlauf
         Me.btnMail_Intern.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1
         Me.btnMail_Intern.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.btnMail_Intern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnMail_Intern.Location = New System.Drawing.Point(1353, 83)
+        Me.btnMail_Intern.Location = New System.Drawing.Point(1440, 83)
         Me.btnMail_Intern.Name = "btnMail_Intern"
         Me.btnMail_Intern.Size = New System.Drawing.Size(41, 34)
         Me.btnMail_Intern.TabIndex = 48
@@ -419,7 +423,7 @@ Partial Class frmBU_Mahnlauf
         Me.cbxMahnstufeErh.AutoSize = True
         Me.cbxMahnstufeErh.Checked = True
         Me.cbxMahnstufeErh.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxMahnstufeErh.Location = New System.Drawing.Point(1216, 11)
+        Me.cbxMahnstufeErh.Location = New System.Drawing.Point(1303, 11)
         Me.cbxMahnstufeErh.Name = "cbxMahnstufeErh"
         Me.cbxMahnstufeErh.Size = New System.Drawing.Size(118, 17)
         Me.cbxMahnstufeErh.TabIndex = 44
@@ -430,7 +434,7 @@ Partial Class frmBU_Mahnlauf
         '
         Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(1109, 121)
+        Me.Label8.Location = New System.Drawing.Point(1196, 121)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(81, 13)
         Me.Label8.TabIndex = 42
@@ -442,7 +446,7 @@ Partial Class frmBU_Mahnlauf
         Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button6.Location = New System.Drawing.Point(1112, 81)
+        Me.Button6.Location = New System.Drawing.Point(1199, 81)
         Me.Button6.Name = "Button6"
         Me.Button6.Size = New System.Drawing.Size(222, 38)
         Me.Button6.TabIndex = 40
@@ -455,7 +459,7 @@ Partial Class frmBU_Mahnlauf
         Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
         Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
         Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnExcel.Location = New System.Drawing.Point(1353, 30)
+        Me.btnExcel.Location = New System.Drawing.Point(1440, 30)
         Me.btnExcel.Name = "btnExcel"
         Me.btnExcel.Size = New System.Drawing.Size(41, 34)
         Me.btnExcel.TabIndex = 39
@@ -514,7 +518,7 @@ Partial Class frmBU_Mahnlauf
         '
         Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Location = New System.Drawing.Point(628, 113)
+        Me.CheckBox1.Location = New System.Drawing.Point(715, 113)
         Me.CheckBox1.Name = "CheckBox1"
         Me.CheckBox1.Size = New System.Drawing.Size(147, 17)
         Me.CheckBox1.TabIndex = 33
@@ -527,7 +531,7 @@ Partial Class frmBU_Mahnlauf
         Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(1109, 14)
+        Me.Label3.Location = New System.Drawing.Point(1196, 14)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(101, 13)
         Me.Label3.TabIndex = 30
@@ -552,7 +556,7 @@ Partial Class frmBU_Mahnlauf
         Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Button2.Image = Global.SDL.My.Resources.Resources.mahn
         Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button2.Location = New System.Drawing.Point(1112, 30)
+        Me.Button2.Location = New System.Drawing.Point(1199, 30)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(222, 45)
         Me.Button2.TabIndex = 31
@@ -588,7 +592,7 @@ Partial Class frmBU_Mahnlauf
         Me.MyTextBox2._WaehrungZeichen = False
         Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox2.Location = New System.Drawing.Point(1196, 118)
+        Me.MyTextBox2.Location = New System.Drawing.Point(1283, 118)
         Me.MyTextBox2.MaxLength = 10
         Me.MyTextBox2.MaxLineLength = -1
         Me.MyTextBox2.MaxLines_Warning = ""
@@ -598,12 +602,34 @@ Partial Class frmBU_Mahnlauf
         Me.MyTextBox2.TabIndex = 39
         Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
+        'cboBetreuer
+        '
+        Me.cboBetreuer._allowedValuesFreiText = Nothing
+        Me.cboBetreuer._allowFreiText = False
+        Me.cboBetreuer._value = ""
+        Me.cboBetreuer.FormattingEnabled = True
+        Me.cboBetreuer.Location = New System.Drawing.Point(410, 111)
+        Me.cboBetreuer.Name = "cboBetreuer"
+        Me.cboBetreuer.Size = New System.Drawing.Size(97, 21)
+        Me.cboBetreuer.TabIndex = 49
+        Me.cboBetreuer.Visible = False
+        '
+        'lblBetreuer
+        '
+        Me.lblBetreuer.AutoSize = True
+        Me.lblBetreuer.Location = New System.Drawing.Point(329, 114)
+        Me.lblBetreuer.Name = "lblBetreuer"
+        Me.lblBetreuer.Size = New System.Drawing.Size(50, 13)
+        Me.lblBetreuer.TabIndex = 50
+        Me.lblBetreuer.Text = "Betreuer:"
+        Me.lblBetreuer.Visible = False
+        '
         'frmBU_Mahnlauf
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(1427, 855)
+        Me.ClientSize = New System.Drawing.Size(1514, 855)
         Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.Panel3)
         Me.Controls.Add(Me.Panel1)
@@ -661,4 +687,6 @@ Partial Class frmBU_Mahnlauf
     Friend WithEvents cbxKontotyp As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents cbxMahnsperre As CheckBox
     Friend WithEvents Label9 As Label
+    Friend WithEvents lblBetreuer As Label
+    Friend WithEvents cboBetreuer As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -60,16 +60,18 @@ Public Class frmBU_Mahnlauf
                             when max(si_mahnstufe) >= 5  Then 'gesperrt' 
                             else '-'
                             End as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") &
-                             ", tblKundenKontakt.[kkd_Email] as Email , cast(isnull(si_mahnung,0) as bit) as mahnbar " &
+                             ", tblKundenKontakt.[kkd_Email] as Email, isnull(kde_betreuer,'') as Betreuer , cast(isnull(si_mahnung,0) as bit) as mahnbar " &
                       "FROM op_debitor OP
 	                    RIGHT join fibu_konto KTO on i_personenkonto=i_konto AND  KTO.i_firm_refid=OP.i_firm_refid
                         inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Kunden] on Kunden.KundenNr = i_personenkonto
+                      inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenErweitert] on tblKundenErweitert.kde_KundenNr = Kunden.KundenNr
                         left join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] on kkd_kkaId=10  and kkd_KundenNr=i_personenkonto  
                       WHERE (OP.i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)  
                         " & If(cbxNurFaellig.Checked, " and op.d_netto<=getdate() and isnull(si_mahnflags,0) <>(1) ", "") & "
                         " & If(KdNr > 0, " AND i_personenkonto ='" & KdNr & "'", "") & "
+                        " & If(cboBetreuer.Text <> "", " AND kde_betreuer ='" & cboBetreuer.Text & "'", "") & "
                         " & If(KdTxt <> "", " AND KTO.c_name LIKE '" & KdTxt.Replace("*", "%") & "'", "") & "
-                      group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,[tblKundenKontakt].kkd_Email, Kunden.Abfertigungsverbot, isnull(si_mahnung,0)
+                      group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,[tblKundenKontakt].kkd_Email, Kunden.Abfertigungsverbot, isnull(si_mahnung,0), isnull([tblKundenErweitert].kde_betreuer,'')  
                       HAVING sum(eur_bruttobetrag+eur_zahlung)>'" & MyTextBox1._value & "'
                          " & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & "
                       ORDER BY KTO.c_name"
@@ -226,6 +228,9 @@ Public Class frmBU_Mahnlauf
         'cbxKontotyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sachkonten", "KO"))
         cbxKontotyp.changeItem("Alle")
 
+        cboBetreuer.Items.Clear()
+        cboBetreuer.fillWithSQL("select mit_id, mit_nname FROM [ADMIN].[dbo].[tblMitarbeiter] where tblMitarbeiter.mit_Funktion = 'VK' and mit_gekuendigt = 0 and mit_abteilung = 'MDM'", False, "ADMIN", True)
+
         MyTextBox2._value = Now.ToShortDateString
 
     End Sub
@@ -1501,10 +1506,14 @@ Public Class frmBU_Mahnlauf
     Private Sub cboFirma_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedValueChanged
         If cboFirma._value <> "" AndAlso cboFirma._value = 19 Then
             cbxZahlungseingaenge.Visible = True
+            cboBetreuer.Visible = True
+            lblBetreuer.Visible = True
 
         Else
             cbxZahlungseingaenge.Visible = False
             cbxZahlungseingaenge.Checked = False
+            cboBetreuer.Visible = False
+            lblBetreuer.Visible = False
 
         End If
     End Sub

SDL/kassenbuch/frmBelegNeu.Designer.vb

@@ -71,13 +71,13 @@ Partial Class frmBelegNeu
         Me.btnAusgabebeleg = New System.Windows.Forms.Button()
         Me.lblErrPos = New System.Windows.Forms.Label()
         Me.pnlData = New System.Windows.Forms.Panel()
+        Me.lblErr_Fahrer = New System.Windows.Forms.Label()
+        Me.lblErr_Pass = New System.Windows.Forms.Label()
         Me.Label28 = New System.Windows.Forms.Label()
         Me.lblZahlungsmittel = New System.Windows.Forms.Label()
         Me.txtzuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label22 = New System.Windows.Forms.Label()
         Me.cbxSplittung = New System.Windows.Forms.CheckBox()
-        Me.lblErr_Fahrer = New System.Windows.Forms.Label()
-        Me.lblErr_Pass = New System.Windows.Forms.Label()
         Me.lblErr_LKW = New System.Windows.Forms.Label()
         Me.btnOfferte = New System.Windows.Forms.Button()
         Me.Label19 = New System.Windows.Forms.Label()
@@ -144,6 +144,7 @@ Partial Class frmBelegNeu
         Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.cboLeihgeldEinzahlung = New System.Windows.Forms.CheckBox()
         CType(Me.dgvBelegPos, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnl.SuspendLayout()
         Me.pnlData.SuspendLayout()
@@ -645,6 +646,7 @@ Partial Class frmBelegNeu
         'pnlData
         '
         Me.pnlData.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer))
+        Me.pnlData.Controls.Add(Me.cboLeihgeldEinzahlung)
         Me.pnlData.Controls.Add(Me.lblErr_Fahrer)
         Me.pnlData.Controls.Add(Me.lblErr_Pass)
         Me.pnlData.Controls.Add(Me.Label28)
@@ -690,6 +692,30 @@ Partial Class frmBelegNeu
         Me.pnlData.Size = New System.Drawing.Size(624, 208)
         Me.pnlData.TabIndex = 5
         '
+        'lblErr_Fahrer
+        '
+        Me.lblErr_Fahrer.AutoSize = True
+        Me.lblErr_Fahrer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblErr_Fahrer.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_Fahrer.Location = New System.Drawing.Point(351, 150)
+        Me.lblErr_Fahrer.Name = "lblErr_Fahrer"
+        Me.lblErr_Fahrer.Size = New System.Drawing.Size(90, 13)
+        Me.lblErr_Fahrer.TabIndex = 43
+        Me.lblErr_Fahrer.Text = "Bitte angeben!"
+        Me.lblErr_Fahrer.Visible = False
+        '
+        'lblErr_Pass
+        '
+        Me.lblErr_Pass.AutoSize = True
+        Me.lblErr_Pass.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblErr_Pass.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_Pass.Location = New System.Drawing.Point(351, 196)
+        Me.lblErr_Pass.Name = "lblErr_Pass"
+        Me.lblErr_Pass.Size = New System.Drawing.Size(90, 13)
+        Me.lblErr_Pass.TabIndex = 42
+        Me.lblErr_Pass.Text = "Bitte angeben!"
+        Me.lblErr_Pass.Visible = False
+        '
         'Label28
         '
         Me.Label28.AutoSize = True
@@ -758,30 +784,6 @@ Partial Class frmBelegNeu
         Me.cbxSplittung.Text = "Splittung nach Sendung"
         Me.cbxSplittung.UseVisualStyleBackColor = True
         '
-        'lblErr_Fahrer
-        '
-        Me.lblErr_Fahrer.AutoSize = True
-        Me.lblErr_Fahrer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblErr_Fahrer.ForeColor = System.Drawing.Color.Red
-        Me.lblErr_Fahrer.Location = New System.Drawing.Point(351, 150)
-        Me.lblErr_Fahrer.Name = "lblErr_Fahrer"
-        Me.lblErr_Fahrer.Size = New System.Drawing.Size(90, 13)
-        Me.lblErr_Fahrer.TabIndex = 43
-        Me.lblErr_Fahrer.Text = "Bitte angeben!"
-        Me.lblErr_Fahrer.Visible = False
-        '
-        'lblErr_Pass
-        '
-        Me.lblErr_Pass.AutoSize = True
-        Me.lblErr_Pass.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblErr_Pass.ForeColor = System.Drawing.Color.Red
-        Me.lblErr_Pass.Location = New System.Drawing.Point(351, 196)
-        Me.lblErr_Pass.Name = "lblErr_Pass"
-        Me.lblErr_Pass.Size = New System.Drawing.Size(90, 13)
-        Me.lblErr_Pass.TabIndex = 42
-        Me.lblErr_Pass.Text = "Bitte angeben!"
-        Me.lblErr_Pass.Visible = False
-        '
         'lblErr_LKW
         '
         Me.lblErr_LKW.AutoSize = True
@@ -989,6 +991,7 @@ Partial Class frmBelegNeu
         Me.cboFrachtf_Sgut._allowedValuesFreiText = Nothing
         Me.cboFrachtf_Sgut._allowFreiText = False
         Me.cboFrachtf_Sgut._value = ""
+        Me.cboFrachtf_Sgut.DropDownWidth = 100
         Me.cboFrachtf_Sgut.FormattingEnabled = True
         Me.cboFrachtf_Sgut.Location = New System.Drawing.Point(302, 163)
         Me.cboFrachtf_Sgut.MaxLength = 1
@@ -1747,6 +1750,16 @@ Partial Class frmBelegNeu
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
         '
+        'cboLeihgeldEinzahlung
+        '
+        Me.cboLeihgeldEinzahlung.AutoSize = True
+        Me.cboLeihgeldEinzahlung.Location = New System.Drawing.Point(9, 185)
+        Me.cboLeihgeldEinzahlung.Name = "cboLeihgeldEinzahlung"
+        Me.cboLeihgeldEinzahlung.Size = New System.Drawing.Size(121, 17)
+        Me.cboLeihgeldEinzahlung.TabIndex = 48
+        Me.cboLeihgeldEinzahlung.Text = "Leihgeld Einzahlung"
+        Me.cboLeihgeldEinzahlung.UseVisualStyleBackColor = True
+        '
         'frmBelegNeu
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1895,4 +1908,5 @@ Partial Class frmBelegNeu
     Friend WithEvents Label28 As Label
     Friend WithEvents lblZahlungsmittel As Label
     Friend WithEvents LinkLabel1 As LinkLabel
+    Friend WithEvents cboLeihgeldEinzahlung As CheckBox
 End Class

SDL/kassenbuch/frmBelegNeu.vb

@@ -1578,8 +1578,23 @@ Public Class frmBelegNeu
 
                 Me.Cursor = Cursors.WaitCursor
 
+                Dim isLeihgeldeinzahlung As Boolean = False
+
                 Dim summeNETTO As Double = 0
-                For Each p In BELEG.POS : summeNETTO += p.Betrag : Next
+                For Each p In BELEG.POS
+                    summeNETTO += p.Betrag
+                    If p.LeistungsNr = 111 AndAlso p.LeistungsBez = "Rückzahlung Leihgeld" AndAlso BELEG.POS.Count = 1 Then isLeihgeldeinzahlung = True 'nur bei 1 POS und Leihgeld-Einzahlung!
+                Next
+
+                If isLeihgeldeinzahlung Then
+                    If BELEG.KundenNr > 0 Then
+                        Dim KundenKontoArchiv As String = SQL.getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid =  7", "FIBU") 'ATILLA MANDANT!'
+                        If KundenKontoArchiv <> "" Then
+                            MsgBox("ACHTUNG, die Kundennummer ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!")
+                            Exit Sub
+                        End If
+                    End If
+                End If
 
                 Dim summeBRUTTO = summeNETTO
                 Dim steuersatz As Double = SQL.getValueTxtBySql("SELECT isnull(tblSteuersätze.Steuersatz,0) FROM tblSteuersätze WHERE tblSteuersätze.Nr='" & BELEG.Steuerschlüssel & "' ", "FMZOLL")
@@ -1600,7 +1615,7 @@ Public Class frmBelegNeu
                 Dim JournalNr = 0
 
 
-                If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, POSFIBU, Zahlungsmittel) Then
+                If Not cRKSV.insertKB(PERSONAL, BELEG, KASSE.rksv_id, RKSV_Beleg_Id, KASSE.rksv_aktiv, JournalNr, KASSE.rksv_firma, POSFIBU, Zahlungsmittel, isLeihgeldeinzahlung) Then
                     KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, summeBRUTTO * -1)
                     MsgBox("Programmfehler bei Eintrag ins Kassenbuch.")
                     Me.Cursor = Cursors.Default : warnClose = False : Me.Close() : Exit Sub

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -277,7 +277,18 @@ Public Class frmNacherfassungLeihgeld
 
 
     Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
+
         Try
+            If BELEG.KundenNr > 0 AndAlso cbxOP_sofort_buchen.Checked Then
+                Dim KundenKontoArchiv As String = SQL.getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid =  7", "FIBU") 'ATILLA MANDANT!'
+                If KundenKontoArchiv <> "" Then
+                    MsgBox("ACHTUNG, die Kundennummer ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!")
+                    Exit Sub
+                End If
+
+            End If
+
+
             If BELEG.gebucht Or BELEG.gebuchtStorno Then
                 If BELEG.rksv_id > 0 Then KASSE.LOAD(BELEG.rksv_id)
                 cRKSV.printKundenBelegLG(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, "LG")

SDL/kunden/frmKundenblatt.vb

@@ -298,7 +298,7 @@ Public Class frmKundenblatt
                                 scanEULizenz.INIT(kdNr, "KUNDENDATEN")
                             End If
 
-
+                            UsrCntlKundenlogin1.init(kdNr)
 
                             scanVertragVeragKd.INIT(kdNr, "KUNDENDATEN")
                             scanBankGarantie.INIT(kdNr, "KUNDENDATEN")
@@ -643,8 +643,39 @@ Public Class frmKundenblatt
     Sub initStat()
         lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " and isnull(Verkauft,0) <> 1 and isnull(Abgemeldet,0) <> 1 ") & " aktive LKWs registriert" 'OK
 
+        Dim dt = SQL.loadDgvBySql("SELECT Kunden.KundenNr as KundenNr, Kunden.UStV_SummeUmsatzsteuerbetragEUR, Kunden.UStV_SummeErstattungsbetragEUR, Kunden.UStV_Summe3470BetragEUR, Kunden.UStV_SummeVZBetragEUR, Kunden.UStV_SummeVorschaubetragEUR                                                               
+                   FROM Kunden 
+                   WHERE Kunden.KundenNr = " & kdNr, "FMZOLL")
 
-        lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND  SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " aktive SDL Leistungen"
+
+        Dim GesamtUSteuer As Double = 0
+            Dim GesamtErstattung As Double = 0
+            Dim Differnezbetrag As Double = 0
+            Dim Gesamt3470 As Double = 0
+            Dim GesamtVZBetrag As Double = 0
+            Dim VorschaubetrGes As Double = 0
+            Dim OPSaldo As Double = 0
+            Dim Risiko As Double = 0
+
+
+        OPSaldo = CDbl((New SQL).getValueTxtBySql("SELECT isnull(sum(Gesamtausstand),0) FROM [Offene Posten] WHERE [Kontonummer]=" & kdNr, "FMZOLL"))
+
+        If dt.Rows.Count = 1 Then
+            GesamtUSteuer = dt.Rows(0).Item("UStV_SummeUmsatzsteuerbetragEUR")
+            GesamtErstattung = dt.Rows(0).Item("UStV_SummeErstattungsbetragEUR")
+            Gesamt3470 = dt.Rows(0).Item("UStV_Summe3470BetragEUR")
+            GesamtVZBetrag = dt.Rows(0).Item("UStV_SummeVZBetragEUR")
+            VorschaubetrGes = dt.Rows(0).Item("UStV_SummeVorschaubetragEUR")
+        End If
+
+        Differnezbetrag = GesamtUSteuer - GesamtErstattung
+
+        Risiko = OPSaldo - Differnezbetrag - Gesamt3470 + GesamtVZBetrag - VorschaubetrGes
+
+        txt3470Betrag.Text = Gesamt3470.ToString("C2")
+        txtRisiko.Text = Risiko.ToString("C2")
+
+        'lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND  SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " aktive SDL Leistungen"
 
         With dgvLeistungen
             .DataSource = SQL.loadDgvBySql(" SELECT Count(SDL.SDLNr) as Anzahl , SDLBez as Leistung FROM SDL, Speditionsdienstleistungen 
@@ -665,60 +696,60 @@ Public Class frmKundenblatt
         End With
 
 
-        Dim SQL_Diesel As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)"
+        'Dim SQL_Diesel As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)"
-        Dim dt_Diesel As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Diesel & " Group by SDL.SDLNr", "SDL")
+        'Dim dt_Diesel As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Diesel & " Group by SDL.SDLNr", "SDL")
-        lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Diesel) & " aktive Tankkarten"
+        'lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Diesel) & " aktive Tankkarten"
 
-        'If dt_Diesel.Rows.Count > 0 Then
+        ''If dt_Diesel.Rows.Count > 0 Then
-        '    lblStat_SdlLeistungen_Diesel.Text &= " ( "
+        ''    lblStat_SdlLeistungen_Diesel.Text &= " ( "
-        '    For Each r In dt_Diesel.Rows
+        ''    For Each r In dt_Diesel.Rows
-        '        Dim Lieferant As String = ""
+        ''        Dim Lieferant As String = ""
-        '        Select Case r.Item("SDLNr")
+        ''        Select Case r.Item("SDLNr")
-        '            Case "100" : Lieferant = r.Item("Anzahl") & "x IDS "
+        ''            Case "100" : Lieferant = r.Item("Anzahl") & "x IDS "
-        '            Case "101" : Lieferant = r.Item("Anzahl") & "x RMC "
+        ''            Case "101" : Lieferant = r.Item("Anzahl") & "x RMC "
-        '        End Select
+        ''        End Select
 
-        '        lblStat_SdlLeistungen_Diesel.Text &= Lieferant
+        ''        lblStat_SdlLeistungen_Diesel.Text &= Lieferant
-        '    Next
+        ''    Next
-        '    lblStat_SdlLeistungen_Diesel.Text &= ")"
+        ''    lblStat_SdlLeistungen_Diesel.Text &= ")"
-        'End If
+        ''End If
 
 
 
-        Dim SQL_Maut As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr BETWEEN 200 AND 218"
+        'Dim SQL_Maut As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr BETWEEN 200 AND 218"
-        Dim dt_Maut As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Maut & " Group by SDL.SDLNr", "SDL")
+        'Dim dt_Maut As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Maut & " Group by SDL.SDLNr", "SDL")
-        lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Maut) & " aktive Mautboxen/-karten"
+        'lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Maut) & " aktive Mautboxen/-karten"
 
 
-        'If dt_Maut.Rows.Count > 0 Then
+        ''If dt_Maut.Rows.Count > 0 Then
-        '    lblStat_SdlLeistungen_Maut.Text &= " ( "
+        ''    lblStat_SdlLeistungen_Maut.Text &= " ( "
-        '    For Each r As DataRow In dt_Maut.Rows
+        ''    For Each r As DataRow In dt_Maut.Rows
-        '        Dim Lieferant As String = ""
+        ''        Dim Lieferant As String = ""
-        '        Select Case r.Item("SDLNr")
+        ''        Select Case r.Item("SDLNr")
-        '            Case "200" : Lieferant = r.Item("Anzahl") & "x AT "
+        ''            Case "200" : Lieferant = r.Item("Anzahl") & "x AT "
-        '            Case "201" : Lieferant = r.Item("Anzahl") & "x DE "
+        ''            Case "201" : Lieferant = r.Item("Anzahl") & "x DE "
-        '            Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS "
+        ''            Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS "
-        '            Case "203" : Lieferant = r.Item("Anzahl") & "x CZ "
+        ''            Case "203" : Lieferant = r.Item("Anzahl") & "x CZ "
-        '            Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay "
+        ''            Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay "
-        '            Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox "
+        ''            Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox "
-        '            Case "208" : Lieferant = r.Item("Anzahl") & "x MSE "
+        ''            Case "208" : Lieferant = r.Item("Anzahl") & "x MSE "
-        '            Case "209" : Lieferant = r.Item("Anzahl") & "x PL "
+        ''            Case "209" : Lieferant = r.Item("Anzahl") & "x PL "
-        '            Case "210" : Lieferant = r.Item("Anzahl") & "x SI "
+        ''            Case "210" : Lieferant = r.Item("Anzahl") & "x SI "
-        '            Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP "
+        ''            Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP "
-        '            Case "212" : Lieferant = r.Item("Anzahl") & "x UTA "
+        ''            Case "212" : Lieferant = r.Item("Anzahl") & "x UTA "
-        '            Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO "
+        ''            Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO "
-        '            Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM "
+        ''            Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM "
-        '            Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT "
+        ''            Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT "
-        '            Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ "
+        ''            Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ "
-        '            Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP "
+        ''            Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP "
-        '            Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM "
+        ''            Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM "
 
-        '        End Select
+        ''        End Select
 
-        '        lblStat_SdlLeistungen_Maut.Text &= Lieferant
+        ''        lblStat_SdlLeistungen_Maut.Text &= Lieferant
-        '    Next
+        ''    Next
-        '    lblStat_SdlLeistungen_Maut.Text &= ")"
+        ''    lblStat_SdlLeistungen_Maut.Text &= ")"
-        'End If
+        ''End If
 
 
     End Sub
@@ -775,17 +806,43 @@ Public Class frmKundenblatt
                 'Me.dataFirma.AcceptChanges()
                 ' Me.dataFirma.Locale = System.Globalization.CultureInfo.InvariantCulture
 
+
+                txtKundeninfo.ReadOnly = True
+
+                txtKundeninfo.Text = ""
+
+
+                txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Name_1) <> "", checkNullStr(ADRESSE.Name_1) & vbNewLine, ""))
+                txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Name_2) <> "", checkNullStr(ADRESSE.Name_2) & vbNewLine, ""))
+                txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Straße) <> "", checkNullStr(ADRESSE.Straße) & vbNewLine, ""))
+                txtKundeninfo.AppendText(IIf(checkNullStr(KUNDE_ERW.kde_AdressZusatz) <> "", checkNullStr(KUNDE_ERW.kde_AdressZusatz) & vbNewLine, ""))
+                txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.LandKz) <> "", checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort) & vbNewLine, ""))
+                txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.PLZPF) <> "", checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach) & vbNewLine, ""))
+
+                txtKundeninfo.AppendText(vbNewLine)
+
+                txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Ansprechpartner) <> "", IIf(checkNullStr(ADRESSE.Anrede) <> "", ADRESSE.Anrede & " ", "") & ADRESSE.Ansprechpartner & vbNewLine, ""))
+
+                txtKundeninfo.AppendText(vbNewLine)
+
+                txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Telefon) <> "", "Tel.: " & ADRESSE.Telefon & vbNewLine, ""))
+                txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Telefax) <> "", "Fax: " & ADRESSE.Telefax & vbNewLine, ""))
+                txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.Mobiltelefon) <> "", "Mobil: " & checkNullStr(ADRESSE.Mobiltelefon) & vbNewLine, ""))
+                txtKundeninfo.AppendText(IIf(checkNullStr(ADRESSE.E_Mail) <> "", "E-Mail: " & ADRESSE.E_Mail & IIf(checkNullStr(ADRESSE.E_Mail2) <> "", " " & ADRESSE.E_Mail2, "") & vbNewLine, ""))
+
                 lblKurzname.Text = checkNullStr(ADRESSE.Ordnungsbegriff)
+
+
+                '----------- EV DEAKTIVIEREN------------------------
                 lblFirmenname1.Text = checkNullStr(ADRESSE.Name_1)
                 lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2)
                 lblStrasse.Text = checkNullStr(ADRESSE.Straße)
                 lblAdressenzusatz.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
                 lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort)
                 lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach)
-                txtAnsprechp.Text = ""
+                lblAnsprechp.Text = ""
-                txtAnsprechp.Text = IIf(checkNullStr(ADRESSE.Anrede) <> "", ADRESSE.Anrede & " ", "")
+                lblAnsprechp.Text = IIf(checkNullStr(ADRESSE.Anrede) <> "", ADRESSE.Anrede & " ", "")
-                txtAnsprechp.Text &= IIf(checkNullStr(ADRESSE.Ansprechpartner) <> "", ADRESSE.Ansprechpartner, "")
+                lblAnsprechp.Text &= IIf(checkNullStr(ADRESSE.Ansprechpartner) <> "", ADRESSE.Ansprechpartner, "")
-
 
                 lblTel.Text = checkNullStr(ADRESSE.Telefon)
                 lblFax.Text = checkNullStr(ADRESSE.Telefax)
@@ -793,40 +850,60 @@ Public Class frmKundenblatt
                 lblEmail.Text = checkNullStr(ADRESSE.E_Mail)
                 lblEmail2.Text = checkNullStr(ADRESSE.E_Mail2)
 
+
+                Dim EmailRechnungen As String = "Rechnungen an: "
                 txtEmailRE.Text = "-"
                 txtEmailRE2.Text = ""
                 If KUNDE_K_RE.hasEntry Then 'Rechnung an
-                    txtEmailRE.Text = KUNDE_K_RE.kkd_Email
+                    EmailRechnungen &= KUNDE_K_RE.kkd_Email
-                    txtEmailRE2.Text &= KUNDE_K_RE.kkd_EmailCC
+                    EmailRechnungen &= KUNDE_K_RE.kkd_EmailCC
+                Else
+                    EmailRechnungen &= " - "
                 End If
 
+                txtKundeninfo.AppendText(vbNewLine)
+                txtKundeninfo.AppendText(IIf(EmailRechnungen <> "", EmailRechnungen & vbNewLine, ""))
 
+                Dim ansprechpartnerText As String = ""
                 If KUNDE_K_GF.hasEntry Then
-                    If txtAnsprechp.Text <> "" Then txtAnsprechp.Text &= " "
+                    If lblAnsprechp.Text <> "" Then lblAnsprechp.Text &= " "
 
-                    txtAnsprechp.Text &= "(GF:"
+                    lblAnsprechp.Text &= "(GF:"
-                    txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerAnrede) <> "", KUNDE_K_GF.kkd_AnsprechpartnerAnrede & " ", "")
+                    lblAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerAnrede) <> "", KUNDE_K_GF.kkd_AnsprechpartnerAnrede & " ", "")
-                        txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerVorname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerVorname & " ", "")
+                    lblAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerVorname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerVorname & " ", "")
-                        txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerNachname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerNachname.ToString.ToUpper, "")
+                    lblAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerNachname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerNachname.ToString.ToUpper, "")
-                        txtAnsprechp.Text &= ")"
+                    lblAnsprechp.Text &= ")"
 
+                    ansprechpartnerText = lblAnsprechp.Text
+                    txtKundeninfo.AppendText(IIf(ansprechpartnerText <> "", ansprechpartnerText & vbNewLine, ""))
                 End If
 
-
-
                 lblUid.Text = ""
+                Dim UID As String = ""
                 If checkNullStr(ADRESSE.UstIdGeprüft) <> "" Then
-                    lblUid.Text = "UId: " & checkNullStr(ADRESSE.UstIdKz) & checkNullStr(ADRESSE.UstIdNr)
+                    lblUid.Text = "UID: " & checkNullStr(ADRESSE.UstIdKz) & checkNullStr(ADRESSE.UstIdNr)
+                    UID = "UID: " & checkNullStr(ADRESSE.UstIdKz) & checkNullStr(ADRESSE.UstIdNr)
                     If checkNullStr(ADRESSE.UstIdGeprüft) <> "" Then
                         lblUid.Text &= " , geprüft am: " & checkNullStr(ADRESSE.UstIdGeprüft)
+                        UID &= " , geprüft am: " & checkNullStr(ADRESSE.UstIdGeprüft)
+                        txtKundeninfo.AppendText(UID & vbNewLine)
                     End If
                 End If
 
+                Dim SteuerNr As String = ""
                 If checkNullStr(ADRESSE.Steuernummer) <> "" Then
                     If lblUid.Text <> "" Then lblUid.Text &= " / "
                     lblUid.Text &= "St-Nr.: " & checkNullStr(ADRESSE.Steuernummer)
+                    SteuerNr = "Steuer-Nr.: " & checkNullStr(ADRESSE.Steuernummer)
+                    txtKundeninfo.AppendText(SteuerNr & vbNewLine)
                 End If
 
+                If checkNullStr(KUNDE_ERW.kde_betreuer) <> "" Then
+                    txtKundeninfo.AppendText(vbNewLine)
+                    txtKundeninfo.AppendText("Betreuer: " & KUNDE_ERW.kde_betreuer & vbNewLine)
+                End If
+
+
             End If
 
         Catch ex As Exception
@@ -1147,14 +1224,23 @@ Public Class frmKundenblatt
 
 
     Sub initSDLListeRed()
+
+        Dim totalHeight As Integer = dgvSperrliste.ColumnHeadersHeight
+
         For Each r As DataGridViewRow In dgvSperrliste.Rows
             If r.Cells("SperrNr").Value > 0 Then
                 r.DefaultCellStyle.ForeColor = Color.Red
             Else
                 r.Cells("SperrBez").Value = ""
             End If
+
+            totalHeight += r.Height
+
         Next
 
+        dgvSperrliste.Height = totalHeight + 2
+
+
     End Sub
     'Wenn ein Eintrag in der CBO ausgewählt wurde wird dieser in der DB eingetragen
     '  Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -2767,8 +2853,5 @@ Public Class frmKundenblatt
 
     End Sub
 
-    Private Sub lblEmail_TextChanged(sender As Object, e As MouseEventArgs) Handles lblEmail2.MouseUp, lblEmail.MouseUp
-
-    End Sub
 End Class
 

SDL/kunden/frmKundenlogin.Designer.vb

@@ -0,0 +1,218 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmKundenlogin
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenlogin))
+        Me.btn = New System.Windows.Forms.Button()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.pnlKontakt = New System.Windows.Forms.Panel()
+        Me.link = New System.Windows.Forms.LinkLabel()
+        Me.lblPW = New System.Windows.Forms.TextBox()
+        Me.lblUser = New System.Windows.Forms.TextBox()
+        Me.pnlMain = New System.Windows.Forms.Panel()
+        Me.lblWarning = New System.Windows.Forms.Label()
+        Me.txtPortal = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cboLieferant = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.pnlKontakt.SuspendLayout()
+        Me.pnlMain.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'btn
+        '
+        Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Location = New System.Drawing.Point(268, 159)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(63, 27)
+        Me.btn.TabIndex = 9
+        Me.btn.Text = "OK"
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(5, 0)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(48, 13)
+        Me.lbl.TabIndex = 0
+        Me.lbl.Text = "Lieferant"
+        '
+        'pnlKontakt
+        '
+        Me.pnlKontakt.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pnlKontakt.Controls.Add(Me.Label3)
+        Me.pnlKontakt.Controls.Add(Me.Label2)
+        Me.pnlKontakt.Controls.Add(Me.link)
+        Me.pnlKontakt.Controls.Add(Me.lblPW)
+        Me.pnlKontakt.Controls.Add(Me.lblUser)
+        Me.pnlKontakt.Location = New System.Drawing.Point(8, 50)
+        Me.pnlKontakt.Name = "pnlKontakt"
+        Me.pnlKontakt.Size = New System.Drawing.Size(323, 103)
+        Me.pnlKontakt.TabIndex = 10
+        '
+        'link
+        '
+        Me.link.AutoSize = True
+        Me.link.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.link.Location = New System.Drawing.Point(3, 67)
+        Me.link.Name = "link"
+        Me.link.Size = New System.Drawing.Size(42, 20)
+        Me.link.TabIndex = 255
+        Me.link.TabStop = True
+        Me.link.Text = "Link"
+        '
+        'lblPW
+        '
+        Me.lblPW.BackColor = System.Drawing.Color.White
+        Me.lblPW.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.lblPW.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblPW.Location = New System.Drawing.Point(66, 38)
+        Me.lblPW.Name = "lblPW"
+        Me.lblPW.Size = New System.Drawing.Size(254, 26)
+        Me.lblPW.TabIndex = 219
+        Me.lblPW.Text = "Passwort"
+        '
+        'lblUser
+        '
+        Me.lblUser.BackColor = System.Drawing.Color.White
+        Me.lblUser.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.lblUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblUser.Location = New System.Drawing.Point(66, 15)
+        Me.lblUser.Name = "lblUser"
+        Me.lblUser.Size = New System.Drawing.Size(254, 26)
+        Me.lblUser.TabIndex = 218
+        Me.lblUser.Text = "Username"
+        '
+        'pnlMain
+        '
+        Me.pnlMain.Controls.Add(Me.lblWarning)
+        Me.pnlMain.Controls.Add(Me.txtPortal)
+        Me.pnlMain.Controls.Add(Me.Label1)
+        Me.pnlMain.Controls.Add(Me.lbl)
+        Me.pnlMain.Controls.Add(Me.btn)
+        Me.pnlMain.Controls.Add(Me.cboLieferant)
+        Me.pnlMain.Controls.Add(Me.pnlKontakt)
+        Me.pnlMain.Location = New System.Drawing.Point(7, 12)
+        Me.pnlMain.Name = "pnlMain"
+        Me.pnlMain.Size = New System.Drawing.Size(344, 189)
+        Me.pnlMain.TabIndex = 12
+        '
+        'lblWarning
+        '
+        Me.lblWarning.AutoSize = True
+        Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblWarning.ForeColor = System.Drawing.Color.Red
+        Me.lblWarning.Location = New System.Drawing.Point(9, 166)
+        Me.lblWarning.Name = "lblWarning"
+        Me.lblWarning.Size = New System.Drawing.Size(0, 20)
+        Me.lblWarning.TabIndex = 255
+        '
+        'txtPortal
+        '
+        Me.txtPortal.BackColor = System.Drawing.Color.White
+        Me.txtPortal.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.txtPortal.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtPortal.Location = New System.Drawing.Point(145, 18)
+        Me.txtPortal.Name = "txtPortal"
+        Me.txtPortal.Size = New System.Drawing.Size(183, 26)
+        Me.txtPortal.TabIndex = 254
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(142, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(34, 13)
+        Me.Label1.TabIndex = 11
+        Me.Label1.Text = "Portal"
+        '
+        'cboLieferant
+        '
+        Me.cboLieferant._allowedValuesFreiText = Nothing
+        Me.cboLieferant._allowFreiText = False
+        Me.cboLieferant._value = ""
+        Me.cboLieferant.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.cboLieferant.FormattingEnabled = True
+        Me.cboLieferant.Location = New System.Drawing.Point(8, 16)
+        Me.cboLieferant.Name = "cboLieferant"
+        Me.cboLieferant.Size = New System.Drawing.Size(106, 28)
+        Me.cboLieferant.TabIndex = 1
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(1, 17)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(55, 20)
+        Me.Label2.TabIndex = 256
+        Me.Label2.Text = "USER"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(3, 40)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(34, 20)
+        Me.Label3.TabIndex = 257
+        Me.Label3.Text = "PW"
+        '
+        'frmKundenlogin
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSize = True
+        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(363, 217)
+        Me.Controls.Add(Me.pnlMain)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmKundenlogin"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Login-Daten"
+        Me.pnlKontakt.ResumeLayout(False)
+        Me.pnlKontakt.PerformLayout()
+        Me.pnlMain.ResumeLayout(False)
+        Me.pnlMain.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents btn As Button
+    Friend WithEvents lbl As Label
+    Friend WithEvents cboLieferant As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents pnlKontakt As Panel
+    Friend WithEvents lblPW As TextBox
+    Friend WithEvents lblUser As TextBox
+    Friend WithEvents pnlMain As Panel
+    Friend WithEvents txtPortal As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents link As LinkLabel
+    Friend WithEvents lblWarning As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label2 As Label
+End Class

SDL/kunden/frmKundenlogin.resx

@@ -0,0 +1,980 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
+        AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
+        OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
+        RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
+        //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
+        MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
+        v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
+        jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
+        mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
+        blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
+        ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
+        y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
+        4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
+        p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
+        SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
+        y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
+        MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
+        //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
+        9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
+        //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
+        ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
+        MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
+        //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
+        ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
+        1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
+        mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
+        MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
+        //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
+        9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
+        mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
+        //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
+        MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
+        ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
+        ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
+        MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
+        6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
+        ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
+        //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
+        //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
+        MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
+        mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
+        //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
+        MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
+        ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
+        ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
+        jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
+        //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
+        ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
+        RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
+        s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
+        ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
+        ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
+        ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
+        //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
+        ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
+        ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
+        ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
+        XUL/////////////////////////////////////////////////////////////////////////////
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
+        //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
+        //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
+        ///////////////////////////////////////////////////////////////////////////d1tFm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
+        //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
+        //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
+        1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
+        ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
+        ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
+        ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
+        //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
+        //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
+        SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
+        ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
+        6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
+        fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////////Uy8XB
+        s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
+        //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
+        //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
+        //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
+        ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
+        mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
+        ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
+        ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
+        ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
+        //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
+        ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
+        bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
+        blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
+        //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
+        //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
+        //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
+        v7j/////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////////////////+Mblhm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
+        ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
+        ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
+        ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
+        ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
+        ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
+        //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
+        //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
+        //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
+        ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDm4N3/////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////39fRmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
+        ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
+        ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
+        ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
+        ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
+        ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
+        ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
+        blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
+        //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwD39fT/////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////////////L
+        v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
+        //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
+        //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
+        s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
+        ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
+        ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
+        ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
+        ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
+        //////////////////////////////////////////////////////////////////////////////+A
+        XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
+</value>
+  </data>
+</root>

SDL/kunden/frmKundenlogin.vb

@@ -0,0 +1,133 @@
+Public Class frmKundenlogin
+
+    Dim kdNr As Integer
+    Dim Lieferant As String
+    Dim Portal As String = ""
+    Dim KUNDENPORTAL As VERAG_PROG_ALLGEMEIN.cKundenportal = Nothing
+
+    Sub New(kdNr)
+
+        InitializeComponent()
+        Me.kdNr = kdNr
+    End Sub
+
+    Sub New(kdNr, Portal)
+
+        InitializeComponent()
+        Me.Portal = Portal
+        Me.kdNr = kdNr
+
+    End Sub
+
+    Private Sub frmKundenKontakteDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IDS", "Q8-TRUCK"))
+        cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MSE", "MSTSTTOLLS"))
+        cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEPASS", "HUB4TRUCKS"))
+        cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UTA", "UTA PORTAL"))
+        cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PLOSE", "PLOSE APR"))
+        cboLieferant.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UTA-INTERN", "UTA-INTERN"))
+
+
+        If cboLieferant.Items.Count > 0 Then cboLieferant.SelectedIndex = 0
+
+        If Portal <> "" Then
+            KUNDENPORTAL = New VERAG_PROG_ALLGEMEIN.cKundenportal(kdNr, Portal)
+        Else
+            KUNDENPORTAL = Nothing
+        End If
+
+        setvalue()
+    End Sub
+
+    Sub setvalue()
+
+        If KUNDENPORTAL Is Nothing Then
+            KUNDENPORTAL = New VERAG_PROG_ALLGEMEIN.cKundenportal(kdNr, Portal)
+
+            txtPortal.Text = KUNDENPORTAL.Portal
+            cboLieferant.Text = KUNDENPORTAL.Lieferant
+            kdNr = KUNDENPORTAL.KundenNr
+        Else
+            txtPortal.Text = KUNDENPORTAL.Portal
+            cboLieferant.Text = KUNDENPORTAL.Lieferant
+            kdNr = KUNDENPORTAL.KundenNr
+            lblUser.Text = KUNDENPORTAL.Username
+            lblPW.Text = KUNDENPORTAL.Password
+
+        End If
+
+
+
+
+
+    End Sub
+
+    Function getvalue() As Boolean
+        'If KUNDENPORTAL Is Nothing Then KUNDENPORTAL = New VERAG_PROG_ALLGEMEIN.cKundenportal(kdNr)
+
+        lblWarning.Text = ""
+
+        If lblUser.Text = "" OrElse lblUser.Text = "Username" Then
+            lblWarning.Text = "Username ausfüllen!"
+            Return False
+        End If
+
+        If lblPW.Text = "" OrElse lblPW.Text = "Passwort" Then
+            lblWarning.Text = "Passwort ausfüllen!"
+            Return False
+        End If
+
+        If txtPortal.Text = "" Then
+            lblWarning.Text = "Portal ausfüllen!"
+            Return False
+        End If
+
+        KUNDENPORTAL.Portal = txtPortal.Text
+        KUNDENPORTAL.Lieferant = cboLieferant.Text
+        KUNDENPORTAL.KundenNr = kdNr
+        KUNDENPORTAL.Username = lblUser.Text
+        KUNDENPORTAL.Password = lblPW.Text
+
+        Return True
+
+    End Function
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+
+        If getvalue() Then
+            KUNDENPORTAL.SAVE()
+            Me.Close()
+        End If
+
+    End Sub
+
+    Private Sub cboLieferant_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLieferant.SelectedIndexChanged
+        txtPortal.Text = cboLieferant._value
+
+        If cboLieferant.Text = "UTA-INTERN" Then
+            'cboLieferant.BackColor = Color.IndianRed
+            txtPortal.BackColor = Color.IndianRed
+        Else
+            txtPortal.BackColor = SystemColors.Window
+            'cboLieferant.BackColor = SystemColors.Window
+        End If
+
+        Select Case txtPortal.Text
+            Case "Q8-TRUCK" : link.AccessibleDescription = "https://iaccount.q8.com/" : link.Text = cboLieferant.Text & "-Link"
+            Case "UTA PORTAL" : link.AccessibleDescription = "https://meinedenred.at/login" : link.Text = cboLieferant.Text & "-Link"
+            Case "PLOSE APR" : link.AccessibleDescription = "https://www.apr.plose.it/login" : link.Text = cboLieferant.Text & "-Link"
+            Case "MSTSTTOLLS" : link.AccessibleDescription = "https://iaccount.q8.com/" : link.Text = cboLieferant.Text & "-Link"
+            Case "HUB4TRUCKS" : link.AccessibleDescription = "https://truck.telepass.com/api/uaa/login" : link.Text = cboLieferant.Text & "-Link"
+            Case Else : link.AccessibleDescription = "" : link.Text = cboLieferant.Text & ""
+
+        End Select
+
+
+
+    End Sub
+
+    Private Sub link_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link.LinkClicked
+        If link.AccessibleDescription <> "" Then Process.Start(link.AccessibleDescription)
+    End Sub
+End Class

SDL/kunden/usrCntlCBAM.vb

@@ -1496,6 +1496,7 @@ Public Class usrCntlCBAM
         Dim f As New List(Of String)
         If btnCBAM_DS_DHF_VERAG_Detail.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Detail.Tag)
         If btnCBAM_DS_DHF_VERAG_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Summe.Tag)
+        If btnCBAM_DS_DHF_VERAG_GP.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_GP.Tag)
 
         If f.Count > 0 Then
             'Zwischenablage
@@ -1509,6 +1510,8 @@ Public Class usrCntlCBAM
         Dim f As New List(Of String)
         If btnCBAM_DS_DHF_UNISPED_Detail.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Detail.Tag)
         If btnCBAM_DS_DHF_UNISPED_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Summe.Tag)
+        If btnCBAM_DS_DHF_UNISPED_GP.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_GP.Tag)
+
 
         If f.Count > 0 Then
             'Zwischenablage
@@ -1522,6 +1525,7 @@ Public Class usrCntlCBAM
         Dim f As New List(Of String)
         If btnCBAM_DS_TELOTEC_Detail.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Detail.Tag)
         If btnCBAM_DS_TELOTEC_Summe.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Summe.Tag)
+        If btnCBAM_DS_TELOTEC_GP.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_GP.Tag)
 
         If f.Count > 0 Then
             'Zwischenablage
@@ -1582,7 +1586,6 @@ Public Class usrCntlCBAM
                     btnCBAM_DS_DHF_UNISPED_Detail.Enabled = True
                     btnCBAM_DS_DHF_UNISPED_Copy.Enabled = True
                 End If
-                Me.Cursor = Cursors.Default
 
             End If
 

SDL/kunden/usrCntlKundenlogin.Designer.vb

@@ -0,0 +1,146 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlKundenlogin
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.dgvKundenlogins = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.btnMail = New System.Windows.Forms.Button()
+        Me.btnExcel = New System.Windows.Forms.Button()
+        Me.ContextMenuStrip1.SuspendLayout()
+        CType(Me.dgvKundenlogins, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'btn
+        '
+        Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus
+        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Location = New System.Drawing.Point(453, 0)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(20, 21)
+        Me.btn.TabIndex = 213
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LöschenToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(116, 26)
+        '
+        'LöschenToolStripMenuItem
+        '
+        Me.LöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del_small
+        Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
+        Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(115, 22)
+        Me.LöschenToolStripMenuItem.Text = "löschen"
+        '
+        'dgvKundenlogins
+        '
+        Me.dgvKundenlogins.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvKundenlogins.AllowUserToAddRows = False
+        Me.dgvKundenlogins.AllowUserToDeleteRows = False
+        Me.dgvKundenlogins.AllowUserToResizeColumns = False
+        Me.dgvKundenlogins.AllowUserToResizeRows = False
+        Me.dgvKundenlogins.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.dgvKundenlogins.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvKundenlogins.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvKundenlogins.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvKundenlogins.DefaultCellStyle = DataGridViewCellStyle2
+        Me.dgvKundenlogins.Location = New System.Drawing.Point(0, 0)
+        Me.dgvKundenlogins.Name = "dgvKundenlogins"
+        Me.dgvKundenlogins.ReadOnly = True
+        Me.dgvKundenlogins.RowHeadersVisible = False
+        Me.dgvKundenlogins.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvKundenlogins.Size = New System.Drawing.Size(473, 129)
+        Me.dgvKundenlogins.TabIndex = 212
+        Me.dgvKundenlogins.TabStop = False
+        '
+        'btnMail
+        '
+        Me.btnMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnMail.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1
+        Me.btnMail.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMail.Location = New System.Drawing.Point(428, 133)
+        Me.btnMail.Name = "btnMail"
+        Me.btnMail.Size = New System.Drawing.Size(42, 29)
+        Me.btnMail.TabIndex = 214
+        Me.btnMail.UseVisualStyleBackColor = True
+        '
+        'btnExcel
+        '
+        Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnExcel.Location = New System.Drawing.Point(380, 133)
+        Me.btnExcel.Name = "btnExcel"
+        Me.btnExcel.Size = New System.Drawing.Size(42, 29)
+        Me.btnExcel.TabIndex = 215
+        Me.btnExcel.UseVisualStyleBackColor = True
+        '
+        'usrCntlKundenlogin
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.btnExcel)
+        Me.Controls.Add(Me.btnMail)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.dgvKundenlogins)
+        Me.Name = "usrCntlKundenlogin"
+        Me.Size = New System.Drawing.Size(473, 165)
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        CType(Me.dgvKundenlogins, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents dgvKundenlogins As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents btn As Button
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents btnMail As Button
+    Friend WithEvents btnExcel As Button
+End Class

SDL/kunden/usrCntlKundenlogin.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

SDL/kunden/usrCntlKundenlogin.vb

@@ -0,0 +1,206 @@
+Imports Microsoft.Office.Interop
+
+Public Class usrCntlKundenlogin
+
+    Public kdNr As Integer
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
+    Sub New(kdNr)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.kdNr = kdNr
+    End Sub
+
+
+    Sub init(kdNr)
+        'dgvKundenlogins.Rows.Clear()
+        Me.kdNr = kdNr
+        initDGV()
+    End Sub
+
+    Sub initDGV()
+
+        If kdNr > 0 Then
+            With dgvKundenlogins
+                .DataSource = SQL.loadDgvBySql("SELECT KundenNr, Username, Password as Passwort, Lieferant, Portal FROM [tblKundenlogin]  where [KundenNr]=" & kdNr, "FMZOLL")
+
+                .Columns("KundenNr").Visible = False
+                .Columns("Username").Width = 120
+                .Columns("Passwort").Width = 100
+                .Columns("Portal").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .Columns("Lieferant").Width = 100
+                .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+                .ClearSelection()
+            End With
+
+
+        End If
+
+    End Sub
+
+
+    Private Sub dgvAufschub_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKundenlogins.CellDoubleClick, dgvKundenlogins.CellContentDoubleClick
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then
+
+            If dgvKundenlogins.SelectedRows.Count > 0 Then
+                Dim f As New frmKundenlogin(kdNr, IIf(Not IsDBNull(dgvKundenlogins.SelectedRows(0).Cells("Portal").Value), dgvKundenlogins.SelectedRows(0).Cells("Portal").Value, ""))
+                f.ShowDialog(Me)
+                initDGV()
+            End If
+        End If
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Dim f As New frmKundenlogin(kdNr)
+        f.ShowDialog(Me)
+        initDGV()
+    End Sub
+
+
+    Private Sub dgvAufschub_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvKundenlogins.KeyDown
+        If e.KeyCode = Keys.Delete Then
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then
+                If dgvKundenlogins.SelectedRows.Count > 0 Then
+                    If vbYes = MsgBox("Möchten Sie den Kundenportaleintrag wirklich löschen?", vbYesNoCancel) Then
+                        Dim portal As New VERAG_PROG_ALLGEMEIN.cKundenportal(dgvKundenlogins.SelectedRows(0).Cells("KundenNr").Value, dgvKundenlogins.SelectedRows(0).Cells("Portal").Value)
+                        portal.DELETE(dgvKundenlogins.SelectedRows(0).Cells("KundenNr").Value, dgvKundenlogins.SelectedRows(0).Cells("Portal").Value)
+                        initDGV()
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub dgvAufschub_CellClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvKundenlogins.CellMouseClick
+        If e.RowIndex < 0 Then Exit Sub
+        DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
+        If e.Button = Windows.Forms.MouseButtons.Right Then
+            If dgvKundenlogins.SelectedRows.Count > 0 Then
+                ContextMenuStrip1.Show(Cursor.Position)
+            End If
+        End If
+    End Sub
+
+    Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
+
+        Dim delKey As New KeyEventArgs(Keys.Delete)
+        dgvAufschub_KeyDown(sender, delKey)
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnExcel.Click, btnMail.Click
+
+        Try
+
+
+
+            Select Case sender.name
+
+                Case "btnExcel"
+
+                    Me.Cursor = Cursors.WaitCursor
+                    cProgramFunctions.genExcelFromDGV_NEW(dgvKundenlogins, True)
+                    Me.Cursor = Cursors.Default
+
+                Case "btnMail"
+
+                    Dim outl As New Outlook.Application
+                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                    Mail = outl.CreateItem(0)
+
+                    Dim kunednSQL As New kundenSQL
+                    Dim kundeMail As New cKunden()
+                    kundeMail = kunednSQL.getKundeByKdNr(kdNr)
+
+                    Mail.Subject = kundeMail.Kurzname & " - CUSTOMER PORTAL LOGIN DATA"
+
+                    Dim TextHTMLtable As String = ""
+                    TextHTMLtable &= "<table border=1>"
+                    TextHTMLtable &= "<tr><td>Supplier</td><td>Portal</td><td>Username</td><td>Password</td><td>Link</td></tr>"
+
+                    For Each r As DataGridViewRow In dgvKundenlogins.SelectedRows
+
+                        If r.Cells("Portal").Value <> "UTA-INTERN" Then ' überspringen!
+
+                            TextHTMLtable &= "<tr>"
+                            TextHTMLtable &= "<td><b>" & r.Cells("Lieferant").Value & "</b></td>"
+                            TextHTMLtable &= "<td><b>" & r.Cells("Portal").Value & "</b></td>"
+                            TextHTMLtable &= "<td><b>" & r.Cells("Username").Value & "</b></td>"
+                            TextHTMLtable &= "<td><b>" & r.Cells("Passwort").Value & "</b></td>"
+
+                            Dim Link As String = getLink(r.Cells("Portal").Value)
+
+                            TextHTMLtable &= "<td><b>" & Link & "</b></td>"
+
+                            TextHTMLtable &= "</tr>"
+
+                        End If
+
+
+                    Next
+
+                    TextHTMLtable &= "</table>"
+
+                    Mail.HTMLBody = "Dear Sir or Madam,<br><br>attached we send you the customer portal login data.<br><br>"
+
+                    Mail.HTMLBody &= TextHTMLtable
+
+                    Mail.HTMLBody &= "<br><br>"
+                    Mail.HTMLBody &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
+                    Mail.HTMLBody &= "<br>"
+                    Mail.HTMLBody &= cFakturierung.getSignature("DE", 19, True, True)
+
+
+                    Mail.To &= kundeMail.EMail
+                    Mail.CC &= kundeMail.EMail2
+
+                    Mail.Display()
+
+
+            End Select
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
+
+
+    End Sub
+
+    Private Function getLink(Portal As String) As String
+
+        Dim link As String = ""
+        Dim hyperlink As String = ""
+
+        Select Case Portal
+            Case "Q8-TRUCK" : link = "https://iaccount.q8.com/"
+            Case "UTA PORTAL" : link = "https://meinedenred.at/login"
+            Case "PLOSE ARP" : link = "https://www.apr.plose.it/login"
+            Case "MSTSTTOLLS" : link = "https://iaccount.q8.com/"
+            Case "HUB4TRUCKS" : link = "https://truck.telepass.com/api/uaa/login"
+        End Select
+
+        If link <> "" Then
+
+            hyperlink = $"<a href=""{link}"">{Portal}</a>"
+
+        End If
+
+
+        Return IIf(hyperlink <> "", hyperlink, "-")
+
+    End Function
+
+End Class

SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb

@@ -23,34 +23,34 @@ Partial Class usrcntlKundeBearbeitenFull
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle57 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle58 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle59 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle60 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle61 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle62 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle63 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle64 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle65 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle66 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle67 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle68 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle69 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle70 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle71 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle72 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle73 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle74 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle75 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle76 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle77 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle78 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle79 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle80 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle81 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle82 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle83 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle84 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.tbcntrDetails = New System.Windows.Forms.TabControl()
         Me.tbAbfertigung = New System.Windows.Forms.TabPage()
         Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox()
@@ -64,7 +64,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
         Me.tbcntrAbf = New System.Windows.Forms.TabControl()
         Me.TabPage4 = New System.Windows.Forms.TabPage()
-        Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
         Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
         Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox()
         Me.Label18 = New System.Windows.Forms.Label()
@@ -338,6 +337,8 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.lblEORI = New System.Windows.Forms.Label()
         Me.Label84 = New System.Windows.Forms.Label()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.Label116 = New System.Windows.Forms.Label()
+        Me.cbxBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbxkeineMWSt = New System.Windows.Forms.CheckBox()
         Me.txtGruendungsDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label33 = New System.Windows.Forms.Label()
@@ -425,6 +426,8 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Label117 = New System.Windows.Forms.Label()
+        Me.txtAbf_Vorlageprovision_Mindestbetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.tbcntrDetails.SuspendLayout()
         Me.tbAbfertigung.SuspendLayout()
         Me.tbcntrAbf.SuspendLayout()
@@ -641,7 +644,6 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'TabPage4
         '
-        Me.TabPage4.Controls.Add(Me.FlowLayoutPanel1)
         Me.TabPage4.Controls.Add(Me.UsrCntlKundenAvisoMailBenachrichtigung1)
         Me.TabPage4.Controls.Add(Me.rtbLKWFreigabeSenden)
         Me.TabPage4.Controls.Add(Me.Label18)
@@ -653,13 +655,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.TabPage4.Text = " Aviso / E-Mail Benachrichtigung"
         Me.TabPage4.UseVisualStyleBackColor = True
         '
-        'FlowLayoutPanel1
-        '
-        Me.FlowLayoutPanel1.Location = New System.Drawing.Point(249, 94)
-        Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"
-        Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100)
-        Me.FlowLayoutPanel1.TabIndex = 7
-        '
         'UsrCntlKundenAvisoMailBenachrichtigung1
         '
         Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
@@ -1161,6 +1156,8 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'tbVerrechnung
         '
+        Me.tbVerrechnung.Controls.Add(Me.txtAbf_Vorlageprovision_Mindestbetrag)
+        Me.tbVerrechnung.Controls.Add(Me.Label117)
         Me.tbVerrechnung.Controls.Add(Me.Panel2)
         Me.tbVerrechnung.Controls.Add(Me.cbpKopfsammelrechnung)
         Me.tbVerrechnung.Controls.Add(Me.pnlverag360)
@@ -1540,7 +1537,7 @@ Partial Class usrcntlKundeBearbeitenFull
         'Label101
         '
         Me.Label101.AutoSize = True
-        Me.Label101.Location = New System.Drawing.Point(191, 53)
+        Me.Label101.Location = New System.Drawing.Point(12, 116)
         Me.Label101.Name = "Label101"
         Me.Label101.Size = New System.Drawing.Size(50, 13)
         Me.Label101.TabIndex = 42
@@ -1694,16 +1691,16 @@ Partial Class usrcntlKundeBearbeitenFull
         'Label47
         '
         Me.Label47.AutoSize = True
-        Me.Label47.Location = New System.Drawing.Point(12, 135)
+        Me.Label47.Location = New System.Drawing.Point(191, 72)
         Me.Label47.Name = "Label47"
-        Me.Label47.Size = New System.Drawing.Size(92, 13)
+        Me.Label47.Size = New System.Drawing.Size(30, 13)
         Me.Label47.TabIndex = 15
-        Me.Label47.Text = "Bankspesen Min.:"
+        Me.Label47.Text = "Min.:"
         '
         'Label46
         '
         Me.Label46.AutoSize = True
-        Me.Label46.Location = New System.Drawing.Point(12, 113)
+        Me.Label46.Location = New System.Drawing.Point(12, 72)
         Me.Label46.Name = "Label46"
         Me.Label46.Size = New System.Drawing.Size(69, 13)
         Me.Label46.TabIndex = 10
@@ -1712,7 +1709,7 @@ Partial Class usrcntlKundeBearbeitenFull
         'Label45
         '
         Me.Label45.AutoSize = True
-        Me.Label45.Location = New System.Drawing.Point(12, 91)
+        Me.Label45.Location = New System.Drawing.Point(12, 50)
         Me.Label45.Name = "Label45"
         Me.Label45.Size = New System.Drawing.Size(108, 13)
         Me.Label45.TabIndex = 5
@@ -1741,7 +1738,7 @@ Partial Class usrcntlKundeBearbeitenFull
         'Label44
         '
         Me.Label44.AutoSize = True
-        Me.Label44.Location = New System.Drawing.Point(12, 69)
+        Me.Label44.Location = New System.Drawing.Point(12, 92)
         Me.Label44.Name = "Label44"
         Me.Label44.Size = New System.Drawing.Size(88, 13)
         Me.Label44.TabIndex = 0
@@ -1859,7 +1856,7 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.txtAbwZZVL._Waehrung = False
         Me.txtAbwZZVL._WaehrungZeichen = True
         Me.txtAbwZZVL.ForeColor = System.Drawing.Color.Red
-        Me.txtAbwZZVL.Location = New System.Drawing.Point(191, 66)
+        Me.txtAbwZZVL.Location = New System.Drawing.Point(125, 113)
         Me.txtAbwZZVL.MaxLength = 10
         Me.txtAbwZZVL.MaxLineLength = -1
         Me.txtAbwZZVL.MaxLines_Warning = ""
@@ -2130,13 +2127,13 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.txtAbf_BankspesenMindestbetrag._Waehrung = True
         Me.txtAbf_BankspesenMindestbetrag._WaehrungZeichen = True
         Me.txtAbf_BankspesenMindestbetrag.ForeColor = System.Drawing.Color.Red
-        Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(125, 132)
+        Me.txtAbf_BankspesenMindestbetrag.Location = New System.Drawing.Point(222, 65)
         Me.txtAbf_BankspesenMindestbetrag.MaxLength = 50
         Me.txtAbf_BankspesenMindestbetrag.MaxLineLength = -1
         Me.txtAbf_BankspesenMindestbetrag.MaxLines_Warning = ""
         Me.txtAbf_BankspesenMindestbetrag.MaxLines_Warning_Label = Nothing
         Me.txtAbf_BankspesenMindestbetrag.Name = "txtAbf_BankspesenMindestbetrag"
-        Me.txtAbf_BankspesenMindestbetrag.Size = New System.Drawing.Size(86, 20)
+        Me.txtAbf_BankspesenMindestbetrag.Size = New System.Drawing.Size(43, 20)
         Me.txtAbf_BankspesenMindestbetrag.TabIndex = 16
         Me.txtAbf_BankspesenMindestbetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
@@ -2155,7 +2152,7 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.txtAbf_Bankspesen._Waehrung = False
         Me.txtAbf_Bankspesen._WaehrungZeichen = True
         Me.txtAbf_Bankspesen.ForeColor = System.Drawing.Color.Black
-        Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 110)
+        Me.txtAbf_Bankspesen.Location = New System.Drawing.Point(125, 69)
         Me.txtAbf_Bankspesen.MaxLength = 10
         Me.txtAbf_Bankspesen.MaxLineLength = -1
         Me.txtAbf_Bankspesen.MaxLines_Warning = ""
@@ -2181,7 +2178,7 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.txtAbf_Kreditaufwendungen._Waehrung = False
         Me.txtAbf_Kreditaufwendungen._WaehrungZeichen = True
         Me.txtAbf_Kreditaufwendungen.ForeColor = System.Drawing.Color.Black
-        Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 88)
+        Me.txtAbf_Kreditaufwendungen.Location = New System.Drawing.Point(125, 47)
         Me.txtAbf_Kreditaufwendungen.MaxLength = 10
         Me.txtAbf_Kreditaufwendungen.MaxLineLength = -1
         Me.txtAbf_Kreditaufwendungen.MaxLines_Warning = ""
@@ -2207,7 +2204,7 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.txtAbf_Vorlageprovision._Waehrung = False
         Me.txtAbf_Vorlageprovision._WaehrungZeichen = True
         Me.txtAbf_Vorlageprovision.ForeColor = System.Drawing.Color.Black
-        Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 66)
+        Me.txtAbf_Vorlageprovision.Location = New System.Drawing.Point(125, 91)
         Me.txtAbf_Vorlageprovision.MaxLength = 10
         Me.txtAbf_Vorlageprovision.MaxLineLength = -1
         Me.txtAbf_Vorlageprovision.MaxLines_Warning = ""
@@ -3234,8 +3231,8 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
         Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
         Me.dgvUmsatzbericht.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle57.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle57
         Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
         Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
@@ -3334,8 +3331,8 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.dgvOffenePosten.AllowUserToDeleteRows = False
         Me.dgvOffenePosten.AllowUserToOrderColumns = True
         Me.dgvOffenePosten.AllowUserToResizeRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle58.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle58
         Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
         Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
@@ -3510,40 +3507,40 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.dgvKreditkarten.AllowUserToDeleteRows = False
         Me.dgvKreditkarten.AllowUserToOrderColumns = True
         Me.dgvKreditkarten.AllowUserToResizeRows = False
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle59.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle59
         Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle60.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle60.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle60.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle60.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle60.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle60.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle60.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle60
         Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle61.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle61.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle61.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle61.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle61.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle61.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle61.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
+        Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle61
         Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
         Me.dgvKreditkarten.MultiSelect = False
         Me.dgvKreditkarten.Name = "dgvKreditkarten"
-        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle62.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle62.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle62.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle62.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle62.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle62.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle62.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
+        Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle62
         Me.dgvKreditkarten.RowHeadersVisible = False
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
+        Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle63
         Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
@@ -3623,26 +3620,26 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'dgvMWST
         '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle64.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle64
         Me.dgvMWST.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle65.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle65.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle65.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle65.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle65.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle65.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
+        Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle65
         Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle66.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle66.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle66.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle66.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle66.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle66.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10
+        Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle66
         Me.dgvMWST.Location = New System.Drawing.Point(9, 359)
         Me.dgvMWST.Name = "dgvMWST"
         Me.dgvMWST.Size = New System.Drawing.Size(171, 125)
@@ -3727,26 +3724,26 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'dgvUstv_LaenderUndSteuernummern
         '
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle67.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle67
         Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle68.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle68.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle68.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle68.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle68.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle68.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
+        Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle68
         Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle69.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle69.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle69.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle69.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle69.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle69.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13
+        Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle69
         Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
         Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern"
         Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259)
@@ -3997,26 +3994,26 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.dgvIDS_Standard.AllowUserToAddRows = False
         Me.dgvIDS_Standard.AllowUserToDeleteRows = False
         Me.dgvIDS_Standard.AllowUserToResizeRows = False
-        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle70.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle70
         Me.dgvIDS_Standard.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle71.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle71.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle71.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle71.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle71.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle71.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle71.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
+        Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle71
         Me.dgvIDS_Standard.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle72.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle72.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle72.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle72.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle72.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle72.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle16
+        Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle72
         Me.dgvIDS_Standard.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvIDS_Standard.Location = New System.Drawing.Point(3, 3)
         Me.dgvIDS_Standard.Name = "dgvIDS_Standard"
@@ -4039,26 +4036,26 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.dgvIDS_Rabatte.AllowUserToAddRows = False
         Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False
         Me.dgvIDS_Rabatte.AllowUserToResizeRows = False
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle73.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
+        Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle73
         Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle74.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle74.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle74.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle74.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle74.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle74.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
+        Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle74
         Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle75.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle75.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle75.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle75.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle75.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle75.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle19
+        Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle75
         Me.dgvIDS_Rabatte.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(3, 3)
         Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte"
@@ -4230,26 +4227,26 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.dgvSonst_IDSKunden.AllowUserToAddRows = False
         Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False
         Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
-        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle76.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
+        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle76
         Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle77.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle77.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle77.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle77.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle77.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle77.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21
+        Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle77
         Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle78.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle78.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle78.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle78.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle78.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle78.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle22
+        Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle78
         Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214)
         Me.dgvSonst_IDSKunden.MultiSelect = False
         Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
@@ -4560,26 +4557,26 @@ Partial Class usrcntlKundeBearbeitenFull
         'DataGridView1
         '
         Me.DataGridView1.AllowUserToResizeRows = False
-        DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle79.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle79
         Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle80.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle80.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle80.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle80.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle80.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle80.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24
+        Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle80
         Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle81.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle81.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle81.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle81.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle81.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle81.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle81.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle25
+        Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle81
         Me.DataGridView1.Enabled = False
         Me.DataGridView1.Location = New System.Drawing.Point(6, 111)
         Me.DataGridView1.MultiSelect = False
@@ -4646,26 +4643,26 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         Me.dgvBankverbindungen.AllowUserToDeleteRows = False
         Me.dgvBankverbindungen.AllowUserToResizeRows = False
-        DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle82.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
+        Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle82
         Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle83.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle27.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle83.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle83.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle83.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle83.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle83.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27
+        Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle83
         Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle84.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle84.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle84.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle84.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle84.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle84.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle28
+        Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle84
         Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40)
         Me.dgvBankverbindungen.MultiSelect = False
         Me.dgvBankverbindungen.Name = "dgvBankverbindungen"
@@ -4730,6 +4727,8 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'GroupBox3
         '
+        Me.GroupBox3.Controls.Add(Me.Label116)
+        Me.GroupBox3.Controls.Add(Me.cbxBetreuer)
         Me.GroupBox3.Controls.Add(Me.cbxkeineMWSt)
         Me.GroupBox3.Controls.Add(Me.txtGruendungsDatum)
         Me.GroupBox3.Controls.Add(Me.Label33)
@@ -4763,6 +4762,31 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.GroupBox3.TabStop = False
         Me.GroupBox3.Text = "Firma"
         '
+        'Label116
+        '
+        Me.Label116.AutoSize = True
+        Me.Label116.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label116.Location = New System.Drawing.Point(11, 185)
+        Me.Label116.Name = "Label116"
+        Me.Label116.Size = New System.Drawing.Size(50, 13)
+        Me.Label116.TabIndex = 138
+        Me.Label116.Text = "Betreuer:"
+        '
+        'cbxBetreuer
+        '
+        Me.cbxBetreuer._allowedValuesFreiText = Nothing
+        Me.cbxBetreuer._allowFreiText = False
+        Me.cbxBetreuer._value = ""
+        Me.cbxBetreuer.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cbxBetreuer.DropDownWidth = 150
+        Me.cbxBetreuer.FlatStyle = System.Windows.Forms.FlatStyle.System
+        Me.cbxBetreuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxBetreuer.FormattingEnabled = True
+        Me.cbxBetreuer.Location = New System.Drawing.Point(110, 182)
+        Me.cbxBetreuer.Name = "cbxBetreuer"
+        Me.cbxBetreuer.Size = New System.Drawing.Size(120, 21)
+        Me.cbxBetreuer.TabIndex = 137
+        '
         'cbxkeineMWSt
         '
         Me.cbxkeineMWSt.AutoSize = True
@@ -5794,6 +5818,40 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
         Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
         '
+        'Label117
+        '
+        Me.Label117.AutoSize = True
+        Me.Label117.Location = New System.Drawing.Point(191, 94)
+        Me.Label117.Name = "Label117"
+        Me.Label117.Size = New System.Drawing.Size(30, 13)
+        Me.Label117.TabIndex = 52
+        Me.Label117.Text = "Min.:"
+        '
+        'txtAbf_Vorlageprovision_Mindestbetrag
+        '
+        Me.txtAbf_Vorlageprovision_Mindestbetrag._DateTimeOnly = False
+        Me.txtAbf_Vorlageprovision_Mindestbetrag._numbersOnly = False
+        Me.txtAbf_Vorlageprovision_Mindestbetrag._numbersOnlyKommastellen = ""
+        Me.txtAbf_Vorlageprovision_Mindestbetrag._numbersOnlyTrennzeichen = True
+        Me.txtAbf_Vorlageprovision_Mindestbetrag._Prozent = False
+        Me.txtAbf_Vorlageprovision_Mindestbetrag._ShortDateNew = False
+        Me.txtAbf_Vorlageprovision_Mindestbetrag._ShortDateOnly = False
+        Me.txtAbf_Vorlageprovision_Mindestbetrag._TimeOnly = False
+        Me.txtAbf_Vorlageprovision_Mindestbetrag._TimeOnly_Seconds = False
+        Me.txtAbf_Vorlageprovision_Mindestbetrag._value = ""
+        Me.txtAbf_Vorlageprovision_Mindestbetrag._Waehrung = True
+        Me.txtAbf_Vorlageprovision_Mindestbetrag._WaehrungZeichen = True
+        Me.txtAbf_Vorlageprovision_Mindestbetrag.ForeColor = System.Drawing.Color.Red
+        Me.txtAbf_Vorlageprovision_Mindestbetrag.Location = New System.Drawing.Point(222, 90)
+        Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLength = 50
+        Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLineLength = -1
+        Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLines_Warning = ""
+        Me.txtAbf_Vorlageprovision_Mindestbetrag.MaxLines_Warning_Label = Nothing
+        Me.txtAbf_Vorlageprovision_Mindestbetrag.Name = "txtAbf_Vorlageprovision_Mindestbetrag"
+        Me.txtAbf_Vorlageprovision_Mindestbetrag.Size = New System.Drawing.Size(43, 20)
+        Me.txtAbf_Vorlageprovision_Mindestbetrag.TabIndex = 53
+        Me.txtAbf_Vorlageprovision_Mindestbetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
         'usrcntlKundeBearbeitenFull
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -6189,7 +6247,6 @@ Partial Class usrcntlKundeBearbeitenFull
     Friend WithEvents Button13 As Button
     Friend WithEvents cbxVerzolltBeiExport As CheckBox
     Friend WithEvents cboFremdspeditionExport As System.Windows.Forms.ComboBox
-    Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel
     Friend WithEvents Panel1 As Panel
     Friend WithEvents btnDatevExport As Button
     Friend WithEvents Label98 As Label
@@ -6276,4 +6333,8 @@ Partial Class usrcntlKundeBearbeitenFull
     Friend WithEvents PictureBox7 As PictureBox
     Friend WithEvents lblIDS_Rabatte As Label
     Friend WithEvents txtSonst_weitereKdNrWOELFL As TextBox
+    Friend WithEvents Label116 As Label
+    Friend WithEvents cbxBetreuer As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtAbf_Vorlageprovision_Mindestbetrag As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label117 As Label
 End Class

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -1,4 +1,5 @@
-Imports com.sun.xml.internal.rngom
+Imports MDM_Worker
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrcntlKundeBearbeitenFull
 
@@ -6,15 +7,13 @@ Public Class usrcntlKundeBearbeitenFull
     Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
     Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
     Dim FISKAL As cFiskal_Daten = Nothing
-    ' Dim USRCNTL_FISK As usrCntlKundeFiskaldaten
+
     Dim EMAIL_ANKUNFT As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
     Dim EMAIL_FREIGABE As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
     Dim sql As New SQL
     Dim WunschKdNr As Integer = -1
     Public Filiale As Integer = -1
     Dim dgvKKLoaded As Boolean = False
-    '  Dim kdnr = -1
-
     Public Event KD_SAVED(kdnr)
     Dim FUNC As New cProgramFunctions
     Dim isVerag360 As Boolean = False
@@ -100,12 +99,14 @@ Public Class usrcntlKundeBearbeitenFull
             cbxErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2.Überweisung", 2))
             cbxErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3.Bankverbindung", 3))
             cbxErstattungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4.Auf Sicherheit", 4))
+
         End If
 
         bntGOBOXUmstellung.Enabled = isVerag360
         btnKKhinzufuegen.Enabled = isVerag360
         Button9.Enabled = isVerag360
         cbxkeineMWSt.Visible = isVerag360
+        cbxBetreuer.Visible = isVerag360
         cbxVorauszahlung.Visible = isVerag360
         cbxAbf_Vorkasse.Visible = Not isVerag360
 
@@ -191,6 +192,7 @@ Public Class usrcntlKundeBearbeitenFull
         txtAbf_ErsteAbfertigung._value = loadValue(KUNDE.Erste_Abfertigung, "")
 
         txtAbf_Vorlageprovision._value = loadValue(KUNDE.Vorlageprovision, "")
+        txtAbf_Vorlageprovision_Mindestbetrag._value = loadValue(KUNDE.Vorlageprovision_Mindestbetrag, "")
         txtDebKdNr.Text = loadValue(KUNDE.KundenNrZentrale, KUNDE.KundenNr)
 
         txtAbf_Kreditaufwendungen._value = loadValue(KUNDE.Kreditaufwendungen, "")
@@ -630,6 +632,7 @@ Public Class usrcntlKundeBearbeitenFull
         KUNDE.Bankspesen = isLeerNothingDbl(txtAbf_Bankspesen._value, 0)
 
         KUNDE.Bankspesen_Mindestbetrag = If(IsNumeric(txtAbf_BankspesenMindestbetrag._value), CDbl(txtAbf_BankspesenMindestbetrag._value), 0)
+        KUNDE.Vorlageprovision_Mindestbetrag = If(IsNumeric(txtAbf_Vorlageprovision_Mindestbetrag._value), CDbl(txtAbf_Vorlageprovision_Mindestbetrag._value), 0)
 
         KUNDE.Kreditlimit = txtVers_Kreditlimit.Text
         KUNDE_ERW.kde_abweichendesZZVL = If(txtAbwZZVL._value <> "" And IsNumeric(txtAbwZZVL._value), txtAbwZZVL._value, Nothing)
@@ -825,6 +828,8 @@ Public Class usrcntlKundeBearbeitenFull
         ADRESSE.MSEExportCSV = cbxSonst_CsvMSE.Checked
         ADRESSE.UTAExportCSV = cbxSonst_CsvUTA.Checked
 
+        KUNDE_ERW.kde_betreuer = isLeerNothing(cbxBetreuer.Text)
+
 
         KUNDE.Steuerschlüssel = cboAbf_Steuerschluessel._value
 
@@ -871,25 +876,31 @@ Public Class usrcntlKundeBearbeitenFull
                 End If
 
                 Dim allowdelete = Not (KUNDE.hasEntry And ADRESSE.hasEntry) ' wenn der Eintrag bereits existiert
+
+                If Not checkAbfertigungsverbot() Then
+                    txtERROR.Text = "Grund für Abfertigungsverbot angeben!" : Exit Sub
+                End If
+
+
                 If ADRESSE.SAVE() Then
-                    If KUNDE.SAVE() Then
+                        If KUNDE.SAVE() Then
-                        If FISKAL.SAVE AndAlso KUNDE_ERW.SAVE Then
+                            If FISKAL.SAVE AndAlso KUNDE_ERW.SAVE Then
-                            If usrCntlAufschubkonten.SAVE() Then
+                                If usrCntlAufschubkonten.SAVE() Then
-                                pnlNeukunde.Visible = False
+                                    pnlNeukunde.Visible = False
-                                btnUIDPruef.Visible = True
+                                    btnUIDPruef.Visible = True
-                                RaiseEvent KD_SAVED(ADRESSE.AdressenNr)
+                                    RaiseEvent KD_SAVED(ADRESSE.AdressenNr)
-                                init(KUNDE.KundenNr)
+                                    init(KUNDE.KundenNr)
+                                End If
                             End If
+                        Else
+                            If allowdelete Then sql.doSQL("DELETE FROM Adressen WHERE AdressenNr=" & ADRESSE.AdressenNr, "FMZOLL")
+                            txtERROR.Text = "FEHLER beim Eintragen in die Tabelle 'Kunden'!"
                         End If
                     Else
-                        If allowdelete Then sql.doSQL("DELETE FROM Adressen WHERE AdressenNr=" & ADRESSE.AdressenNr, "FMZOLL")
+                        txtERROR.Text = "FEHLER beim Eintragen in die Tabelle 'Adressen'!"
-                        txtERROR.Text = "FEHLER beim Eintragen in die Tabelle 'Kunden'!"
                     End If
-                Else
-                    txtERROR.Text = "FEHLER beim Eintragen in die Tabelle 'Adressen'!"
                 End If
-            End If
+                initBesonderheitenNEU()
-            initBesonderheitenNEU()
 
             pnlverag360.Visible = isVerag360
 
@@ -957,7 +968,6 @@ Public Class usrcntlKundeBearbeitenFull
                 cboFiliale.changeItem("4803")
         End Select
 
-
         cboAuswahl.Items.Clear()
         cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AKTIV", "A"))
         cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("INAKTIV", "I"))
@@ -980,6 +990,11 @@ Public Class usrcntlKundeBearbeitenFull
         cboAbf_Sammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6 - Maut/Diesel", "6"))
         cboAbf_Sammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - LKW", "7"))
 
+        cbxBetreuer.Items.Clear()
+        cbxBetreuer.fillWithSQL("select mit_id, mit_nname FROM [ADMIN].[dbo].[tblMitarbeiter] where tblMitarbeiter.mit_Funktion = 'VK' and mit_gekuendigt = 0 and mit_abteilung = 'MDM'", False, "ADMIN", True)
+
+
+
     End Sub
 
     Private Sub cboProvisionStaffelArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboProvisionStaffelArt.SelectedIndexChanged
@@ -2254,7 +2269,6 @@ Public Class usrcntlKundeBearbeitenFull
             .Columns(2).Width = 50
             .Columns(3).HeaderText = "Station"
             .Columns(4).HeaderText = "Rab-/Pr."
-            .Columns(4).Width = 50
             .Columns(5).Width = 50
             .Columns(6).Width = 50
             .Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
@@ -2289,8 +2303,7 @@ Public Class usrcntlKundeBearbeitenFull
             .Columns(2).HeaderText = "S-Nr"
             .Columns(2).Width = 50
             .Columns(3).HeaderText = "Station"
-            .Columns(5).HeaderText = "Rab-/Pr."
+            .Columns(4).HeaderText = "Rab-/Pr."
-            .Columns(5).Width = 50
             .Columns(6).Width = 50
             .Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
@@ -2433,11 +2446,142 @@ Public Class usrcntlKundeBearbeitenFull
 
             End If
 
+            If cbxkeineMWSt.Checked AndAlso Not KUNDE_ERW.kde_keineMWSt Then
+                setRechnungenZuKunden(True)
+                KUNDE_ERW.kde_keineMWSt = cbxkeineMWSt.Checked
+                KUNDE_ERW.SAVE()
+                init(KUNDE_ERW.kde_KundenNr, isVerag360)
+            End If
+
+        Else
+
+
+            If Not cbxkeineMWSt.Checked AndAlso KUNDE_ERW.kde_keineMWSt Then
+                setRechnungenZuKunden(False)
+                KUNDE_ERW.kde_keineMWSt = cbxkeineMWSt.Checked
+                KUNDE_ERW.SAVE()
+                init(KUNDE_ERW.kde_KundenNr, isVerag360)
+            End If
+
+        End If
+
+    End Sub
+
+    Private Sub setKundenVermerk(kunde As cKunde, kundeErw As cKundenErweitert, Kundenvermerk As String)
+
+        If kundeErw.kde_BesonderheitenNeu Then
+
+
+
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+            If SQL.doSQL("INSERT INTO tblKundenBesonderheiten (kdb_KundenNr,kdb_kategorie,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_visible,kdb_hervorheben,kdb_history) " &
+            " VALUES(" & kunde.KundenNr & ",'ALLG' ,'" & Kundenvermerk & "'," & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ",'" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & "','" & Now() & "',1,1,0)", "FMZOLL") Then
+
+            End If
+
+        Else
+
+            If kunde.Besonderheiten <> "" Then kunde.Besonderheiten &= vbNewLine
+            kunde.Besonderheiten &= Kundenvermerk
+
+            kunde.SAVE()
 
 
         End If
     End Sub
 
+    Private Sub setRechnungenZuKunden(zuriueckzumKunden As Boolean)
+
+        Dim Infotext As String = ""
+        Dim Vermerk As String = ""
+
+        If zuriueckzumKunden Then
+            Infotext = "Datum für Rücksendung von Orig-Rechnungen"
+        Else
+            Infotext = "Datum für Verw.der Orig-Rechnungen über MDM"
+        End If
+
+        Dim f As New frmDatumsabfrage(Infotext, True)
+        f.ShowDialog()
+        If f.DialogResult = DialogResult.OK Then
+            Dim pruefdatum As Date = CDate(f.Datum)
+
+
+            Vermerk = "Die RS der Lieferatentenrechnung wurden ab " & pruefdatum.ToShortDateString & " auf "
+
+            If zuriueckzumKunden Then
+                Vermerk &= "ZURÜCK ZUM KUNDEN gesetzt!"
+            Else
+                Vermerk &= "VON MDM VERWALTET gesetzt!"
+            End If
+
+
+
+
+            If ADRESSE IsNot Nothing Then
+
+                Dim allSet As Boolean = False
+
+                If ADRESSE.WölflKundenNr IsNot Nothing AndAlso IsNumeric(ADRESSE.WölflKundenNr) Then
+                    Dim rmc As cRMC
+                    allSet = rmc.setBackToCustomer(New VERAG_PROG_ALLGEMEIN.SQL, zuriueckzumKunden, pruefdatum, ADRESSE.WölflKundenNr)
+                End If
+
+                If ADRESSE.weitereWölflKundenNr IsNot Nothing AndAlso IsNumeric(ADRESSE.weitereWölflKundenNr) Then
+                    Dim rmc As cRMC
+                    allSet = rmc.setBackToCustomer(New VERAG_PROG_ALLGEMEIN.SQL, zuriueckzumKunden, pruefdatum, ADRESSE.weitereWölflKundenNr)
+                End If
+
+                If ADRESSE.MSEKundenNr IsNot Nothing AndAlso IsNumeric(ADRESSE.MSEKundenNr) Then
+                    Dim MSE As cMSEAPI
+                    allSet = MSE.setBackToCustomer(New VERAG_PROG_ALLGEMEIN.SQL, zuriueckzumKunden, pruefdatum, ADRESSE.MSEKundenNr)
+                End If
+
+                If ADRESSE.UTAKundenNr IsNot Nothing AndAlso IsNumeric(ADRESSE.UTAKundenNr) Then
+                    Dim UTA As cUTA
+                    allSet = UTA.setBackToCustomer(New VERAG_PROG_ALLGEMEIN.SQL, zuriueckzumKunden, pruefdatum, ADRESSE.UTAKundenNr)
+                End If
+
+                If ADRESSE.PLOSEKundenNr IsNot Nothing AndAlso IsNumeric(ADRESSE.PLOSEKundenNr) Then
+                    Dim plose As cPLOSE_Inv_Data
+                    allSet = plose.setBackToCustomer(New VERAG_PROG_ALLGEMEIN.SQL, zuriueckzumKunden, pruefdatum, ADRESSE.PLOSEKundenNr)
+                End If
+
+                If ADRESSE.IDSKundenNr IsNot Nothing AndAlso IsNumeric(ADRESSE.IDSKundenNr) Then 'KundenNr über zwischentabelle
+                    Dim ids As cIDS
+                    allSet = ids.setBackToCustomer(New VERAG_PROG_ALLGEMEIN.SQL, zuriueckzumKunden, pruefdatum, ADRESSE.AdressenNr)
+                End If
+
+                If allSet Then
+                    MsgBox(Vermerk)
+                    setKundenVermerk(KUNDE, KUNDE_ERW, Vermerk)
+                Else
+                    If zuriueckzumKunden Then
+                        MsgBox("Fehler beim Zurücksetzen auf 'zurück zum Kunden senden' ab " & pruefdatum.ToShortDateString & "!")
+                    Else
+                        MsgBox("Fehler beim Zurücksetzen auf 'von MDM verwaltet' ab " & pruefdatum.ToShortDateString & "!")
+                    End If
+
+                End If
+
+            End If
+
+        Else
+
+            Dim Vermerk_INfoNichtGesetzt As String = ""
+            If zuriueckzumKunden Then
+                Vermerk_INfoNichtGesetzt = "ACHTUNG! Der Info, damit die Originalrechnungen an den Kunden geschickt wurden, wurde NICHT gesetzt!"
+            Else
+                Vermerk_INfoNichtGesetzt = "ACHTUNG! Der Info, damit die Originalrechnungen über MDM verwaltet werden, wurde NICHT gesetzt!"
+            End If
+
+            MsgBox(Vermerk_INfoNichtGesetzt & vbNewLine & "Das kann zu Problemen bei der autom. Rücksendung der Originalrechnungen führen!")
+
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(Vermerk_INfoNichtGesetzt, "KundenNr: " & KUNDE.KundenNr, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
+        End If
+
+    End Sub
+
     Private Sub cbxVorauszahlung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVorauszahlung.CheckedChanged
         txtVorauszahlung.Enabled = cbxVorauszahlung.Checked
         If Not cbxVorauszahlung.Checked Then txtVorauszahlung.Text = ""
@@ -2462,8 +2606,8 @@ Public Class usrcntlKundeBearbeitenFull
     End Sub
 
     Private Sub btnBnkExcel_Click(sender As Object, e As EventArgs) Handles btnBnkExcel.Click
-        Dim SQL As String = "SELECT [bnk_KundenNr] as KdNr,[bnk_iban] as IBAN,[bnk_bic] as BIC,[bnk_anschrift] as Name,isnull([bnk_hauptkonto],0) as HK,isnull([bnk_archiv],0) as geschlossen ,cast([bnk_Datum] as Date) as Datum 
+        Dim SQL As String = "SELECT [bnk_KundenNr] as KdNr, Adressen.[Name 1] as Kundenname ,[bnk_iban] as IBAN,[bnk_bic] as BIC,[bnk_anschrift] as Bankname,isnull([bnk_hauptkonto],0) as HK,isnull([bnk_archiv],0) as geschlossen ,cast([bnk_Datum] as Date) as Datum 
-                            FROM tblBankverbindungen order by bnk_KundenNr"
+                            FROM tblBankverbindungen inner join Adressen on Adressen.AdressenNr = bnk_KundenNr order by bnk_KundenNr"
 
         Dim dt_Bank As DataTable = (New SQL).loadDgvBySql(SQL, "FMZOLL")
         VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt_Bank,,,,,,,, True)
@@ -2501,4 +2645,26 @@ Public Class usrcntlKundeBearbeitenFull
         End If
 
     End Sub
+
+    Private Function checkAbfertigungsverbot()
+
+
+        If cboAbfVerb_Abfertigungsverbot.Checked Then
+
+            If rtbAbfVerb_Grund.Text.Trim <> "" AndAlso rtbAbfVerb_Grund.TextLength < 4 Then
+                Return False
+
+            Else
+
+                Return True
+            End If
+
+        End If
+
+
+        Return True
+
+    End Function
+
+
 End Class

SDL/mdm/usrcntlFremdrechnungen.Designer.vb

@@ -23,8 +23,8 @@ Partial Class usrcntlFremdrechnungen
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
         Me.btnSDL_Alle = New System.Windows.Forms.Button()
@@ -39,6 +39,10 @@ Partial Class usrcntlFremdrechnungen
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.KundenblattAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.txtKundenNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKundenNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
         Me.lblSumBto = New System.Windows.Forms.Label()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.cbxMailoeffnen = New System.Windows.Forms.CheckBox()
@@ -64,11 +68,8 @@ Partial Class usrcntlFremdrechnungen
         Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.Label6 = New System.Windows.Forms.Label()
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.txtKundenNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxTest = New System.Windows.Forms.CheckBox()
-        Me.txtKundenNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Label7 = New System.Windows.Forms.Label()
         Me.FlowLayoutPanel.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -282,6 +283,7 @@ Partial Class usrcntlFremdrechnungen
         Me.Panel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.cbxTest)
         Me.Panel1.Controls.Add(Me.Label7)
         Me.Panel1.Controls.Add(Me.txtKundenNrbis)
         Me.Panel1.Controls.Add(Me.txtKundenNrvon)
@@ -309,6 +311,70 @@ Partial Class usrcntlFremdrechnungen
         Me.Panel1.Size = New System.Drawing.Size(260, 907)
         Me.Panel1.TabIndex = 23
         '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(121, 126)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(10, 13)
+        Me.Label7.TabIndex = 60
+        Me.Label7.Text = "-"
+        '
+        'txtKundenNrbis
+        '
+        Me.txtKundenNrbis._DateTimeOnly = False
+        Me.txtKundenNrbis._numbersOnly = True
+        Me.txtKundenNrbis._numbersOnlyKommastellen = ""
+        Me.txtKundenNrbis._numbersOnlyTrennzeichen = False
+        Me.txtKundenNrbis._Prozent = False
+        Me.txtKundenNrbis._ShortDateNew = False
+        Me.txtKundenNrbis._ShortDateOnly = False
+        Me.txtKundenNrbis._TimeOnly = False
+        Me.txtKundenNrbis._TimeOnly_Seconds = False
+        Me.txtKundenNrbis._value = ""
+        Me.txtKundenNrbis._Waehrung = False
+        Me.txtKundenNrbis._WaehrungZeichen = False
+        Me.txtKundenNrbis.ForeColor = System.Drawing.Color.Black
+        Me.txtKundenNrbis.Location = New System.Drawing.Point(146, 123)
+        Me.txtKundenNrbis.MaxLineLength = -1
+        Me.txtKundenNrbis.MaxLines_Warning = ""
+        Me.txtKundenNrbis.MaxLines_Warning_Label = Nothing
+        Me.txtKundenNrbis.Name = "txtKundenNrbis"
+        Me.txtKundenNrbis.Size = New System.Drawing.Size(98, 20)
+        Me.txtKundenNrbis.TabIndex = 59
+        '
+        'txtKundenNrvon
+        '
+        Me.txtKundenNrvon._DateTimeOnly = False
+        Me.txtKundenNrvon._numbersOnly = True
+        Me.txtKundenNrvon._numbersOnlyKommastellen = ""
+        Me.txtKundenNrvon._numbersOnlyTrennzeichen = False
+        Me.txtKundenNrvon._Prozent = False
+        Me.txtKundenNrvon._ShortDateNew = False
+        Me.txtKundenNrvon._ShortDateOnly = False
+        Me.txtKundenNrvon._TimeOnly = False
+        Me.txtKundenNrvon._TimeOnly_Seconds = False
+        Me.txtKundenNrvon._value = ""
+        Me.txtKundenNrvon._Waehrung = False
+        Me.txtKundenNrvon._WaehrungZeichen = False
+        Me.txtKundenNrvon.ForeColor = System.Drawing.Color.Black
+        Me.txtKundenNrvon.Location = New System.Drawing.Point(11, 123)
+        Me.txtKundenNrvon.MaxLineLength = -1
+        Me.txtKundenNrvon.MaxLines_Warning = ""
+        Me.txtKundenNrvon.MaxLines_Warning_Label = Nothing
+        Me.txtKundenNrvon.Name = "txtKundenNrvon"
+        Me.txtKundenNrvon.Size = New System.Drawing.Size(98, 20)
+        Me.txtKundenNrvon.TabIndex = 58
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(8, 107)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(58, 13)
+        Me.Label6.TabIndex = 57
+        Me.Label6.Text = "KundenNr."
+        '
         'lblSumBto
         '
         Me.lblSumBto.AutoSize = True
@@ -529,12 +595,13 @@ Partial Class usrcntlFremdrechnungen
         Me.dgvLFRechnung.AllowUserToDeleteRows = False
         Me.dgvLFRechnung.AllowUserToResizeColumns = False
         Me.dgvLFRechnung.AllowUserToResizeRows = False
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.dgvLFRechnung.BackgroundColor = System.Drawing.Color.White
         Me.dgvLFRechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvLFRechnung.Location = New System.Drawing.Point(4, 3)
         Me.dgvLFRechnung.Name = "dgvLFRechnung"
+        Me.dgvLFRechnung.ReadOnly = True
         Me.dgvLFRechnung.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvLFRechnung.Size = New System.Drawing.Size(1354, 770)
         Me.dgvLFRechnung.TabIndex = 29
@@ -546,8 +613,8 @@ Partial Class usrcntlFremdrechnungen
         Me.dgvDetails.AllowUserToDeleteRows = False
         Me.dgvDetails.AllowUserToResizeColumns = False
         Me.dgvDetails.AllowUserToResizeRows = False
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.dgvDetails.BackgroundColor = System.Drawing.Color.White
         Me.dgvDetails.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvDetails.Location = New System.Drawing.Point(-1, 3)
@@ -585,74 +652,21 @@ Partial Class usrcntlFremdrechnungen
         Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22)
         Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)"
         '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(8, 107)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(58, 13)
-        Me.Label6.TabIndex = 57
-        Me.Label6.Text = "KundenNr."
-        '
         'ContextMenuStrip2
         '
         Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
         Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
         '
-        'txtKundenNrvon
+        'cbxTest
         '
-        Me.txtKundenNrvon._DateTimeOnly = False
+        Me.cbxTest.AutoSize = True
-        Me.txtKundenNrvon._numbersOnly = True
+        Me.cbxTest.Location = New System.Drawing.Point(146, 214)
-        Me.txtKundenNrvon._numbersOnlyKommastellen = ""
+        Me.cbxTest.Name = "cbxTest"
-        Me.txtKundenNrvon._numbersOnlyTrennzeichen = False
+        Me.cbxTest.Size = New System.Drawing.Size(61, 17)
-        Me.txtKundenNrvon._Prozent = False
+        Me.cbxTest.TabIndex = 61
-        Me.txtKundenNrvon._ShortDateNew = False
+        Me.cbxTest.Text = "testmail"
-        Me.txtKundenNrvon._ShortDateOnly = False
+        Me.cbxTest.UseVisualStyleBackColor = True
-        Me.txtKundenNrvon._TimeOnly = False
+        Me.cbxTest.Visible = False
-        Me.txtKundenNrvon._TimeOnly_Seconds = False
-        Me.txtKundenNrvon._value = ""
-        Me.txtKundenNrvon._Waehrung = False
-        Me.txtKundenNrvon._WaehrungZeichen = False
-        Me.txtKundenNrvon.ForeColor = System.Drawing.Color.Black
-        Me.txtKundenNrvon.Location = New System.Drawing.Point(11, 123)
-        Me.txtKundenNrvon.MaxLineLength = -1
-        Me.txtKundenNrvon.MaxLines_Warning = ""
-        Me.txtKundenNrvon.MaxLines_Warning_Label = Nothing
-        Me.txtKundenNrvon.Name = "txtKundenNrvon"
-        Me.txtKundenNrvon.Size = New System.Drawing.Size(98, 20)
-        Me.txtKundenNrvon.TabIndex = 58
-        '
-        'txtKundenNrbis
-        '
-        Me.txtKundenNrbis._DateTimeOnly = False
-        Me.txtKundenNrbis._numbersOnly = True
-        Me.txtKundenNrbis._numbersOnlyKommastellen = ""
-        Me.txtKundenNrbis._numbersOnlyTrennzeichen = False
-        Me.txtKundenNrbis._Prozent = False
-        Me.txtKundenNrbis._ShortDateNew = False
-        Me.txtKundenNrbis._ShortDateOnly = False
-        Me.txtKundenNrbis._TimeOnly = False
-        Me.txtKundenNrbis._TimeOnly_Seconds = False
-        Me.txtKundenNrbis._value = ""
-        Me.txtKundenNrbis._Waehrung = False
-        Me.txtKundenNrbis._WaehrungZeichen = False
-        Me.txtKundenNrbis.ForeColor = System.Drawing.Color.Black
-        Me.txtKundenNrbis.Location = New System.Drawing.Point(146, 123)
-        Me.txtKundenNrbis.MaxLineLength = -1
-        Me.txtKundenNrbis.MaxLines_Warning = ""
-        Me.txtKundenNrbis.MaxLines_Warning_Label = Nothing
-        Me.txtKundenNrbis.Name = "txtKundenNrbis"
-        Me.txtKundenNrbis.Size = New System.Drawing.Size(98, 20)
-        Me.txtKundenNrbis.TabIndex = 59
-        '
-        'Label7
-        '
-        Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(121, 126)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(10, 13)
-        Me.Label7.TabIndex = 60
-        Me.Label7.Text = "-"
         '
         'usrcntlFremdrechnungen
         '
@@ -723,4 +737,5 @@ Partial Class usrcntlFremdrechnungen
     Friend WithEvents txtKundenNrvon As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label6 As Label
     Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
+    Friend WithEvents cbxTest As CheckBox
 End Class

SDL/mdm/usrcntlFremdrechnungen.vb

@@ -53,6 +53,9 @@ Public Class usrcntlFremdrechnungen
         txtKundenNrvon.Enabled = kdNr <= 0
         txtKundenNrbis.Enabled = kdNr <= 0
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
+            cbxTest.Visible = True
+        End If
 
         Dim kdNr_WHERE = ""
         If kdNr_filter Then
@@ -245,60 +248,60 @@ Public Class usrcntlFremdrechnungen
 
             'IDS
             Case "IDS" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
-                    " invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, tblIDSInvoicesNew.CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden]  WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & ") and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & whereKundennrKreisLieferanten & " order by [YearMonthDay] desc, [Invoicenumber]"
+                    " invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, tblIDSInvoicesNew.CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(1 as bit) as OrigRE FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden]  WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 " & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, whereKundennrKreisLieferanten) & ") " & sqlfehlendePDF & " and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & " order by [YearMonthDay] desc, [Invoicenumber]"
 
             'UTA
             Case "UTA" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
-                    " Adressen.AdressenNr, Adressen.[Name 1], [Rechnungsdatum],[Rechnungsnummer_pro_Lieferland] as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[daId],[Lieferland_ISO2] as Land, 'RE' as Art, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(archiv as bit) as archiv FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr  where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " AND [Rechnungsdatum] " & setSQLWhere(SDLNrTmp, "Lieferland_ISO2") & whereKundennrKreisLieferanten & "  group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2], archiv"
+                    " Adressen.AdressenNr, Adressen.[Name 1], [Rechnungsdatum],[Rechnungsnummer_pro_Lieferland] as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[daId],[Lieferland_ISO2] as Land, 'RE' as Art, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(archiv as bit) as archiv,cast(isnull(InvToCustomer, 0) as bit) as OrigRE  FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr  where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " AND [Rechnungsdatum] " & setSQLWhere(SDLNrTmp, "Lieferland_ISO2") & whereKundennrKreisLieferanten & "  group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2], archiv, InvToCustomer "
 
-                SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & " Adressen.AdressenNr, Adressen.[Name 1],[Datum], [RechnungsNr],[KundenNr],0,0,0,[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(0 as bit) as archiv FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr  where 1 = 1 " & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Datum] " & setSQLWhere("_", "") & whereKundennrKreisLieferanten & "  order by Rechnungsdatum desc"
+                SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & " Adressen.AdressenNr, Adressen.[Name 1],[Datum], [RechnungsNr],[KundenNr],0,0,0,[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(0 as bit) as archiv, cast(0 as bit) as OrigRE FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr  where 1 = 1 " & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Datum] " & setSQLWhere("_", "") & whereKundennrKreisLieferanten & "  order by Rechnungsdatum desc"
 
             'PLOSE
             Case "PLOSE" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
-                   " Adressen.AdressenNr, Adressen.[Name 1],[plInv_SupplierRechnungsDatum] as Rechnungsdatum, [plInv_SupplierRechnungsNr] as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_daId] as daId, [plInv_SupplierCountry] as Land, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, plInv_Archiv as archiv FROM tblPLOSE_Inv_Data  inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere(SDLNrTmp, "plInv_SupplierCountry") & whereKundennrKreisLieferanten & "  Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]"
+                   " Adressen.AdressenNr, Adressen.[Name 1],[plInv_SupplierRechnungsDatum] as Rechnungsdatum, [plInv_SupplierRechnungsNr] as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_daId] as daId, [plInv_SupplierCountry] as Land, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, plInv_Archiv as archiv, cast(isnull(plInv_InvToCustomer, 0) as bit) as OrigRE  FROM tblPLOSE_Inv_Data  inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere(SDLNrTmp, "plInv_SupplierCountry") & whereKundennrKreisLieferanten & "  Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]"
 
             'MSE
             Case "MSE" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
-                    " partner_customer_number as AdressenNr, customer_name as [Name 1], [invoice_date] as Rechnungsdatum, [invoice_id] as Rechnungsnummer/*,[invoice_nr]*/,[customer_number] as Kundennummer, daId, [total_amount_euro] as Bruttobetrag  ,[total_vat_amount_euro] as MWST,[country] as Land, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, archiv  FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number]  where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere(SDLNrTmp, "country") & whereKundennrKreisLieferanten & " order by invoice_date desc, invoice_id"
+                    " partner_customer_number as AdressenNr, customer_name as [Name 1], [invoice_date] as Rechnungsdatum, [invoice_id] as Rechnungsnummer/*,[invoice_nr]*/,[customer_number] as Kundennummer, daId, [total_amount_euro] as Bruttobetrag  ,[total_vat_amount_euro] as MWST,[country] as Land, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, archiv, cast(isnull(InvToCustomer, 0) as bit) as OrigRE   FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number]  where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere(SDLNrTmp, "country") & whereKundennrKreisLieferanten & " order by invoice_date desc, invoice_id"
 
             'VERAG
             Case "VERAG" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
                     " Adressen.AdressenNr, Adressen.[Name 1], tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.RechnungsbetragLokal as Bruttobetrag, 1 as daId, cast(1 as bit) as PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr  WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " AND tblTrdinInvoice.FilialenNr = 4814  and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere(SDLNrTmp, "'AT'") & "  ORDER BY tblTrdinInvoice.Rechnungsdatum desc, tblTrdinInvoice.Rechnungsnummer"
             'RMC
             Case "RMC" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
-               "Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum]  as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Bruttobetrag,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & whereKundennrKreisLieferanten & "  order by rmc_reDatum desc, rmc_reNr"
+               "Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum]  as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Bruttobetrag,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv, cast(isnull(InvToCustomer, 0) as bit) as OrigRE  FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & whereKundennrKreisLieferanten & "  order by rmc_reDatum desc, rmc_reNr"
 
             Case "ALLE" : Dim anzahl As Integer = anzahlTop / 6 : SQL_STR = " select * from (SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") &
                     "
                         --IDS
-                          'IDS' as Lieferant,invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,tblIDSInvoicesNew.CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0  " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & whereKundennrKreisLieferanten & " -- order by [YearMonthDay], [Invoicenumber]
+                          'IDS' as Lieferant,invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,tblIDSInvoicesNew.CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(1 as bit) as OrigRE FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0  " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & whereKundennrKreisLieferanten & " -- order by [YearMonthDay], [Invoicenumber]
                         
                         UNION ALL
                         
                         
                         --MSE
-                        SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'MSE' as Lieferant,-1 as invoice_id,partner_customer_number as AdressenNr, [invoice_date] as Rechnungsdatum, cast([invoice_id] as nvarchar) as Rechnungsnummer,[customer_number] as Kundennummer,  [total_amount_euro] as Bruttobetrag ,(total_amount_euro - [total_vat_amount_euro]) as Nettobetrag  ,[total_vat_amount_euro] as MWST,[country] as Land,'RE' as Art,daId, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere("MSE", "country") & whereKundennrKreisLieferanten & "  --order by invoice_date, invoice_id
+                        SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'MSE' as Lieferant,-1 as invoice_id,partner_customer_number as AdressenNr, [invoice_date] as Rechnungsdatum, cast([invoice_id] as nvarchar) as Rechnungsnummer,[customer_number] as Kundennummer,  [total_amount_euro] as Bruttobetrag ,(total_amount_euro - [total_vat_amount_euro]) as Nettobetrag  ,[total_vat_amount_euro] as MWST,[country] as Land,'RE' as Art,daId, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(isnull(InvToCustomer, 0) as bit) as OrigRE FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere("MSE", "country") & whereKundennrKreisLieferanten & "  --order by invoice_date, invoice_id
                         
                         UNION ALL
                         
                         --UTA
-                        SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'UTA' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [Rechnungsdatum],STR([Rechnungsnummer_pro_Lieferland])  as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr  where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Rechnungsdatum] " & setSQLWhere("UTA", "Lieferland_ISO2") & whereKundennrKreisLieferanten & "     group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,AdressenNr,[daId],[Lieferland_ISO2] UNION ALL SELECT 'UTA',-1,AdressenNr, [Datum], cast([RechnungsNr] as nvarchar) ,[KundenNr],0,0,0,'',[DocumentTyp],[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden  FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr  where AdressenNr = " & kdNr & " AND Datum " & setSQLWhere("UTA_", "") & whereKundennrKreisLieferanten & "  --order by Rechnungsnummer desc 
+                        SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'UTA' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [Rechnungsdatum],STR([Rechnungsnummer_pro_Lieferland])  as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(isnull(InvToCustomer, 0) as bit) as OrigRE FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr  where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Rechnungsdatum] " & setSQLWhere("UTA", "Lieferland_ISO2") & whereKundennrKreisLieferanten & "     group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,AdressenNr,[daId],[Lieferland_ISO2], InvToCustomer UNION ALL SELECT 'UTA',-1,AdressenNr, [Datum], cast([RechnungsNr] as nvarchar) ,[KundenNr],0,0,0,'',[DocumentTyp],[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(0 as bit) as OrigRE  FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr  where AdressenNr = " & kdNr & " AND Datum " & setSQLWhere("UTA_", "") & whereKundennrKreisLieferanten & "  --order by Rechnungsnummer desc 
                         
                         UNION ALL
                         --VERAG
                         
-                        SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'VERAG' as Lieferant,-1 as invoice_id,Adressen.AdressenNr,  tblTrdinInvoice.Rechnungsdatum, cast(tblTrdinInvoice.Rechnungsnummer as nvarchar) as Rechnungsnummer ,tblTrdinInvoice.KundenNrZentrale as Kundennummer, tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal as Bruttobetrag ,tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal - tblTrdinInvoice.SteuerbetragLokal  as Nettobetrag ,tblTrdinInvoice.SteuerbetragLokal as MWST, 'AT' as Land, 'RE' as Art, 1 as daId, cast(1 as bit) PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr  WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere("VERAG", "'AT'") & whereKundennrKreisLieferanten & "    AND tblTrdinInvoice.FilialenNr = 4814 --ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer
+                        SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'VERAG' as Lieferant,-1 as invoice_id,Adressen.AdressenNr,  tblTrdinInvoice.Rechnungsdatum, cast(tblTrdinInvoice.Rechnungsnummer as nvarchar) as Rechnungsnummer ,tblTrdinInvoice.KundenNrZentrale as Kundennummer, tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal as Bruttobetrag ,tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal - tblTrdinInvoice.SteuerbetragLokal  as Nettobetrag ,tblTrdinInvoice.SteuerbetragLokal as MWST, 'AT' as Land, 'RE' as Art, 1 as daId, cast(1 as bit) PDFvorhanden, cast(0 as bit) as OrigRE FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr  WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere("VERAG", "'AT'") & whereKundennrKreisLieferanten & "    AND tblTrdinInvoice.FilialenNr = 4814 --ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer
                         
                         
                         UNION ALL
                         --PLOSE
                         
-                        SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'PLOSE' as Lieferant,-1 as invoice_id,Adressen.AdressenNr,  [plInv_SupplierRechnungsDatum] as Rechnungsdatum, cast([plInv_SupplierRechnungsNr]  as nvarchar) as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as Land, 'RE' as Art,[plInv_daId] as daId, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblPLOSE_Inv_Data  inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere("PLOSE", "plInv_SupplierCountry") & whereKundennrKreisLieferanten & "-- Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]
+                        SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'PLOSE' as Lieferant,-1 as invoice_id,Adressen.AdressenNr,  [plInv_SupplierRechnungsDatum] as Rechnungsdatum, cast([plInv_SupplierRechnungsNr]  as nvarchar) as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as Land, 'RE' as Art,[plInv_daId] as daId, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden,  cast(isnull(plInv_InvToCustomer, 0) as bit) as OrigRE  FROM tblPLOSE_Inv_Data  inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere("PLOSE", "plInv_SupplierCountry") & whereKundennrKreisLieferanten & "-- Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]
                         
                         UNION ALL
                         
                         --RMC
-                        SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'RMC' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [rmc_reDatum]  as Rechnungsdatum,cast([rmc_reNr] as nvarchar) as Rechnungsnummer,rmc_kdNr as Kundennummer ,[rmc_betragBrutto] as Bruttobetrag,[rmc_betragNetto] as Nettobetrag,[rmc_betragMWST] as MWST, rmc_landKZ as Land, 'RE' as Art, [rmc_daId] as daId, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere("RMC", "rmc_landKZ") & whereKundennrKreisLieferanten & "-- order by rmc_reDatum, rmc_reNr
+                        SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'RMC' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [rmc_reDatum]  as Rechnungsdatum,cast([rmc_reNr] as nvarchar) as Rechnungsnummer,rmc_kdNr as Kundennummer ,[rmc_betragBrutto] as Bruttobetrag,[rmc_betragNetto] as Nettobetrag,[rmc_betragMWST] as MWST, rmc_landKZ as Land, 'RE' as Art, [rmc_daId] as daId, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(isnull(InvToCustomer, 0) as bit) as OrigRE FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere("RMC", "rmc_landKZ") & whereKundennrKreisLieferanten & "-- order by rmc_reDatum, rmc_reNr
                         
                         ) as temp where 1=1 and temp.Rechnungsdatum" & setSQLWhere(SDLNrTmp, "temp.Land") & whereKundennrKreisAlle & " order by Rechnungsdatum desc"
 
@@ -371,188 +374,235 @@ Public Class usrcntlFremdrechnungen
         'das hier geht (aktuell) nur PRO KUNDE -> ALSO nicht in der Gesamtübersicht!!!!!!!!
 
         Dim SQLWhere = " between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "'"
+        'If aktLieferant <> "IDS" Then 'IDS Default auf True gesetzt!
 
-        If cbx.Checked AndAlso aktLieferant <> "IDS" AndAlso KUNDE IsNot Nothing Then
+        Dim invToCustomer As String = ""
-            Dim erw As New cKundenErweitert(KUNDE.KundenNr)
-            If erw.kde_keineMWSt Then Return SQLWhere
 
-            SQLWhere &= "AND ("
+            Select Case cbx.CheckState
-            'ORIGINAL-RECHNUNG senden wenn:
+               ' Case CheckState.Unchecked : invToCustomer = "0" Hier alle anzeigen!!!
-            '1.	wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
+            Case CheckState.Checked : invToCustomer = "1"
+            End Select
 
-            Dim landKZiso2 = ""
+            If invToCustomer <> "" Then
 
-            If land <> "" Then 'LandKZ vom Kunden muss auf ISO2 konvertiert werden, weil da ein Misch-Masch in der Datenbank herrscht!
+                Select Case aktLieferant
-                If KUNDE.LandKz <> "" Then
+                'Case "IDS" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
-                    If KUNDE.LandKz.Length = 2 Then
+                Case "PLOSE" : SQLWhere &= " AND isnull(plInv_InvToCustomer,0) =" & invToCustomer
-                        landKZiso2 = KUNDE.LandKz
+                    Case "MSE" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
-                    ElseIf KUNDE.LandKz.Length = 3 Then
+                    Case "RMC" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
-                        landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE.LandKz)
+                Case "UTA" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
-                    ElseIf KUNDE.LandKz.Length = 1 Then
+                Case "VERAG" : SQLWhere &= " AND 1 <> " & invToCustomer
-                        landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE.LandKz)
+                Case "_" : SQLWhere &= " AND 1 <> " & invToCustomer
-                    End If
+                Case "UTA_" : SQLWhere &= " AND 1 <> " & invToCustomer
-
-                    SQLWhere &= " " & land & " in ('" & landKZiso2 & "')"
-                End If
-            End If
-
-            '2.	wenn die Rechnung die MWST-SUMME 0 aufweist!!!
-            Select Case aktLieferant
-                Case "UTA" : SQLWhere &= " OR Gesamtbetrag_Umsatzsteuer_in_Darstellwährung = 0 "  'UTA bei UTA auch EPN ausblenden!
-                Case "PLOSE" : SQLWhere &= " OR plInv_MWSTBetrag = 0" 'PLOSE
-                Case "VERAG" : SQLWhere &= " OR tblTrdinInvoice.SteuerbetragLokal = 0" 'VERAG
-                Case "MSE" : SQLWhere &= " OR total_vat_amount_euro = 0" 'MSE
-                Case "RMC" : SQLWhere &= " OR rmc_betragMWST = 0" 'RMC
-                Case "ALLE" : SQLWhere &= " OR temp.MWSt = 0" 'ALLE
-                Case "UTA_" : SQLWhere &= " 1 <> 1"
-                Case Else : SQLWhere &= " 1 <> 1"
 
             End Select
 
-            '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
-            If land <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
-                Dim dtkeineMWST_ohneContraint As DataTable = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "'").CopyToDataTable
-                Dim counter = 0
-                Dim landBez As String = ""
-                For Each row As DataRow In dtkeineMWST_ohneContraint.Rows
-                    landBez &= "'" & row.Item("Erstattungsland") & "'"
-                    counter = counter + 1
-                    If (dtkeineMWST_ohneContraint.Rows.Count <> 0 And counter <> dtkeineMWST_ohneContraint.Rows.Count) Then landBez &= ","
-                Next
-                SQLWhere &= " OR " & land & " in (" & landBez & ")"
-                If aktLieferant = "ALLE" Then SQLWhere &= " OR " & land & " in ('')" 'damit IDS ohne Land nicht ausgeschlossen wird.
             End If
 
-            '4.	Rechnungen der Länder, in denen der Kunde selber MWST beantragt
-            If dtKundeMWST IsNot Nothing Then
-                If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
-                    Dim counter = 0
-                    Dim landBez As String = ""
-                    For Each row As DataRow In dtKundeMWST.Rows
-                        landBez &= "'" & row.Item("LandKz") & "'"
-                        counter = counter + 1
-                        If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
-                    Next
-                    SQLWhere &= " OR " & land & " in (" & landBez & ")"
-                End If
-            End If
 
-            SQLWhere &= ")"
+        'If cbx.Checked AndAlso aktLieferant <> "IDS" AndAlso KUNDE IsNot Nothing Then
+
+        ' wird nicht mehr benötigt weil Info direkt in DB gespeichert wird!
+
+        'Dim erw As New cKundenErweitert(KUNDE.KundenNr)
+        'If erw.kde_keineMWSt Then Return SQLWhere
+
+        'SQLWhere &= "AND ("
+        ''ORIGINAL-RECHNUNG senden wenn:
+        ''1.	wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
+
+        'Dim landKZiso2 = ""
+
+        'If land <> "" Then 'LandKZ vom Kunden muss auf ISO2 konvertiert werden, weil da ein Misch-Masch in der Datenbank herrscht!
+        '    If KUNDE.LandKz <> "" Then
+        '        If KUNDE.LandKz.Length = 2 Then
+        '            landKZiso2 = KUNDE.LandKz
+        '        ElseIf KUNDE.LandKz.Length = 3 Then
+        '            landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE.LandKz)
+        '        ElseIf KUNDE.LandKz.Length = 1 Then
+        '            landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE.LandKz)
+        '        End If
+
+        '        SQLWhere &= " " & land & " in ('" & landKZiso2 & "')"
+        '    End If
+        'End If
+
+        ''2.	wenn die Rechnung die MWST-SUMME 0 aufweist!!!
+        'Select Case aktLieferant
+        '    Case "UTA" : SQLWhere &= " OR Gesamtbetrag_Umsatzsteuer_in_Darstellwährung = 0 "  'UTA bei UTA auch EPN ausblenden!
+        '    Case "PLOSE" : SQLWhere &= " OR plInv_MWSTBetrag = 0" 'PLOSE
+        '    Case "VERAG" : SQLWhere &= " OR tblTrdinInvoice.SteuerbetragLokal = 0" 'VERAG
+        '    Case "MSE" : SQLWhere &= " OR total_vat_amount_euro = 0" 'MSE
+        '    Case "RMC" : SQLWhere &= " OR rmc_betragMWST = 0" 'RMC
+        '    Case "ALLE" : SQLWhere &= " OR temp.MWSt = 0" 'ALLE
+        '    Case "UTA_" : SQLWhere &= " 1 <> 1"
+        '    Case Else : SQLWhere &= " 1 <> 1"
+
+        'End Select
+
+        ''3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
+        'If land <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
+        '    Dim dtkeineMWST_ohneContraint As DataTable = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "'").CopyToDataTable
+        '    Dim counter = 0
+        '    Dim landBez As String = ""
+        '    For Each row As DataRow In dtkeineMWST_ohneContraint.Rows
+        '        landBez &= "'" & row.Item("Erstattungsland") & "'"
+        '        counter = counter + 1
+        '        If (dtkeineMWST_ohneContraint.Rows.Count <> 0 And counter <> dtkeineMWST_ohneContraint.Rows.Count) Then landBez &= ","
+        '    Next
+        '    SQLWhere &= " OR " & land & " in (" & landBez & ")"
+        '    If aktLieferant = "ALLE" Then SQLWhere &= " OR " & land & " in ('')" 'damit IDS ohne Land nicht ausgeschlossen wird.
+        'End If
+
+        ''4.	Rechnungen der Länder, in denen der Kunde selber MWST beantragt
+        'If dtKundeMWST IsNot Nothing Then
+        '    If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
+        '        Dim counter = 0
+        '        Dim landBez As String = ""
+        '        For Each row As DataRow In dtKundeMWST.Rows
+        '            landBez &= "'" & row.Item("LandKz") & "'"
+        '            counter = counter + 1
+        '            If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
+        '        Next
+        '        SQLWhere &= " OR " & land & " in (" & landBez & ")"
+        '    End If
+        'End If
+
+        'SQLWhere &= ")"
 
 
-                'nicht NOTWENDIG!
+        '    'nicht NOTWENDIG!
-                'Select Case KUNDE.LandKz
+        '    'Select Case KUNDE.LandKz
-                '    Case "SRB", "BIH", "MK", "MNE", "TR"
+        '    '    Case "SRB", "BIH", "MK", "MNE", "TR"
-                '        If land <> "" Then SQLWhere &= " AND " & land & " not in('AT','CH', 'CZ', 'DE', 'EE', 'ES', 'IE', 'LT', 'LV', 'NRW', 'NO', 'OT', 'RS', 'UA', " & IIf(KUNDE.LandKz = "SRB", "'BG', 'HU', 'RO', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "BIH", "'SK'", "") & IIf(KUNDE.LandKz = "TR", "'HU', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "MNE", "'PL', 'SI'", "") & IIf(KUNDE.LandKz = "MK", "'BG', 'PL','SI'", "") & ")"
+        '    '        If land <> "" Then SQLWhere &= " AND " & land & " not in('AT','CH', 'CZ', 'DE', 'EE', 'ES', 'IE', 'LT', 'LV', 'NRW', 'NO', 'OT', 'RS', 'UA', " & IIf(KUNDE.LandKz = "SRB", "'BG', 'HU', 'RO', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "BIH", "'SK'", "") & IIf(KUNDE.LandKz = "TR", "'HU', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "MNE", "'PL', 'SI'", "") & IIf(KUNDE.LandKz = "MK", "'BG', 'PL','SI'", "") & ")"
-                'End Select
+        '    'End Select
 
 
-            End If
+        'End If
 
-            Return SQLWhere
+        Return SQLWhere
 
     End Function
 
-    Private Function setSQLDetailWhere(aktLieferant As String, land As String, Optional alle As Boolean = False, Optional KundenNr_Input As Integer = -1, Optional dtKundeMWSTTemp As DataTable = Nothing) As String
+    Private Function setSQLDetailWhere(aktLieferant As String, land As String) As String
 
 
         'das hier ist nur PRO KUNDE möglich!!!
 
+        'Ob orig-Rechnung wird nun in der Datenbank gesetzt!!!!
+
+        ' wird nicht mehr benötigt weil Info direkt in DB gespeichert wird!
+
+
         Dim SQLWhere = ""
 
-        If (cbx.Checked AndAlso KUNDE IsNot Nothing AndAlso KUNDE.KundenNr > 0 OrElse cbx.Checked AndAlso KundenNr_Input > 0) Then
+        Dim invToCustomer As String = ""
-            Dim checkKundenNR As Integer = -1
-            If KUNDE.KundenNr > 0 Then
-                checkKundenNR = KUNDE.KundenNr
-            ElseIf KundenNr_Input > 0 Then
-                checkKundenNR = KundenNr_Input
-                KUNDE = kundenSQL.getKundeByKdNr(KundenNr_Input)
-            End If
 
-            Dim erw As New cKundenErweitert(checkKundenNR)
+        Select Case cbx.CheckState
-            If erw.kde_keineMWSt Then Return SQLWhere
+                'Case CheckState.Unchecked : invToCustomer = "0"
-            SQLWhere &= "AND ("
+            Case CheckState.Checked : invToCustomer = "1"
-            'ORIGINAL-RECHNUNG senden wenn:
+        End Select
-            '1.	wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
-            Dim landKZiso2 = ""
 
-            If KUNDE.LandKz <> "" Then
+        If invToCustomer <> "" Then
+            SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
 
-                If KUNDE.LandKz.Length = 2 Then
-                    landKZiso2 = KUNDE.LandKz
-                ElseIf KUNDE.LandKz.Length = 3 Then
-                    landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE.LandKz)
-                ElseIf KUNDE.LandKz.Length = 1 Then
-                    landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE.LandKz)
-                End If
-
-                If land <> "" Then SQLWhere &= " " & land & " in ('" & landKZiso2 & "')"
-            End If
-
-
-
-            '2.	wenn die Rechnung die Summe NULL aufweist
-            Select Case aktLieferant
-                Case "IDS" : If Not alle Then SQLWhere &= " OR [AmminclVAT] = 0" 'IDS
-            End Select
-
-            '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt (auch nicht auf Diesel -> IDS)
-            If land <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
-                Dim dtkeineMWST_IDS As DataTable = dtkeineMWST.Select("Lieferant = '' AND Land = '" & landKZiso2 & "'").CopyToDataTable
-                Dim counter = 0
-                Dim landBez As String = ""
-                For Each row As DataRow In dtkeineMWST_IDS.Rows
-                    landBez &= "'" & row.Item("Erstattungsland") & "'"
-                    counter = counter + 1
-                    If (dtkeineMWST_IDS.Rows.Count <> 0 And counter <> dtkeineMWST_IDS.Rows.Count) Then landBez &= ","
-                Next
-                SQLWhere &= " OR " & land & " in (" & landBez & ")"
-            End If
-
-
-            '4.	Rechnungen der Länder, in denen der Kunde selber MWST beantragt
-
-            If dtKundeMWST Is Nothing Then
-
-                If dtKundeMWSTTemp IsNot Nothing Then
-
-                    If land <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then
-                        Dim counter = 0
-                        Dim landBez As String = ""
-                        For Each row As DataRow In dtKundeMWSTTemp.Rows
-                            landBez &= "'" & row.Item("LandKz") & "'"
-                            counter = counter + 1
-                            If (dtKundeMWSTTemp.Rows.Count <> 0 And counter <> dtKundeMWSTTemp.Rows.Count) Then landBez &= ","
-                        Next
-                        SQLWhere &= " OR " & land & " in (" & landBez & ")"
-                    End If
-                    SQLWhere &= ")"
-
-                End If
-
-
-
-
-            Else
-
-
-                If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
-                    Dim counter = 0
-                    Dim landBez As String = ""
-                    For Each row As DataRow In dtKundeMWST.Rows
-                        landBez &= "'" & row.Item("LandKz") & "'"
-                        counter = counter + 1
-                        If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
-                    Next
-                    SQLWhere &= " OR " & land & " in (" & landBez & ")"
-                End If
-                SQLWhere &= ")"
-            End If
         End If
 
-        If dtKundeMWST Is Nothing AndAlso dtKundeMWSTTemp Is Nothing Then
+
-            SQLWhere &= ")"
+
-        End If
+        'If (cbx.Checked AndAlso KUNDE IsNot Nothing AndAlso KUNDE.KundenNr > 0 OrElse cbx.Checked AndAlso KundenNr_Input > 0) Then
+        '    Dim checkKundenNR As Integer = -1
+        '    If KUNDE.KundenNr > 0 Then
+        '        checkKundenNR = KUNDE.KundenNr
+        '    ElseIf KundenNr_Input > 0 Then
+        '        checkKundenNR = KundenNr_Input
+        '        KUNDE = kundenSQL.getKundeByKdNr(KundenNr_Input)
+        '    End If
+
+        '    Dim erw As New cKundenErweitert(checkKundenNR)
+        '    If erw.kde_keineMWSt Then Return SQLWhere
+        '    SQLWhere &= "AND ("
+        '    'ORIGINAL-RECHNUNG senden wenn:
+        '    '1.	wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
+        '    Dim landKZiso2 = ""
+
+        '    If KUNDE.LandKz <> "" Then
+
+        '        If KUNDE.LandKz.Length = 2 Then
+        '            landKZiso2 = KUNDE.LandKz
+        '        ElseIf KUNDE.LandKz.Length = 3 Then
+        '            landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE.LandKz)
+        '        ElseIf KUNDE.LandKz.Length = 1 Then
+        '            landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE.LandKz)
+        '        End If
+
+        '        If land <> "" Then SQLWhere &= " " & land & " in ('" & landKZiso2 & "')"
+        '    End If
+
+
+
+        '    '2.	wenn die Rechnung die Summe NULL aufweist
+        '    Select Case aktLieferant
+        '        Case "IDS" : If Not alle Then SQLWhere &= " OR [AmminclVAT] = 0" 'IDS
+        '    End Select
+
+        '    '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt (auch nicht auf Diesel -> IDS)
+        '    If land <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
+        '        Dim dtkeineMWST_IDS As DataTable = dtkeineMWST.Select("Lieferant = '' AND Land = '" & landKZiso2 & "'").CopyToDataTable
+        '        Dim counter = 0
+        '        Dim landBez As String = ""
+        '        For Each row As DataRow In dtkeineMWST_IDS.Rows
+        '            landBez &= "'" & row.Item("Erstattungsland") & "'"
+        '            counter = counter + 1
+        '            If (dtkeineMWST_IDS.Rows.Count <> 0 And counter <> dtkeineMWST_IDS.Rows.Count) Then landBez &= ","
+        '        Next
+        '        SQLWhere &= " OR " & land & " in (" & landBez & ")"
+        '    End If
+
+
+        '    '4.	Rechnungen der Länder, in denen der Kunde selber MWST beantragt
+
+        '    If dtKundeMWST Is Nothing Then
+
+        '        If dtKundeMWSTTemp IsNot Nothing Then
+
+        '            If land <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then
+        '                Dim counter = 0
+        '                Dim landBez As String = ""
+        '                For Each row As DataRow In dtKundeMWSTTemp.Rows
+        '                    landBez &= "'" & row.Item("LandKz") & "'"
+        '                    counter = counter + 1
+        '                    If (dtKundeMWSTTemp.Rows.Count <> 0 And counter <> dtKundeMWSTTemp.Rows.Count) Then landBez &= ","
+        '                Next
+        '                SQLWhere &= " OR " & land & " in (" & landBez & ")"
+        '            End If
+        '            SQLWhere &= ")"
+
+        '        End If
+
+
+
+
+        '    Else
+
+
+        '        If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
+        '            Dim counter = 0
+        '            Dim landBez As String = ""
+        '            For Each row As DataRow In dtKundeMWST.Rows
+        '                landBez &= "'" & row.Item("LandKz") & "'"
+        '                counter = counter + 1
+        '                If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
+        '            Next
+        '            SQLWhere &= " OR " & land & " in (" & landBez & ")"
+        '        End If
+        '        SQLWhere &= ")"
+        '    End If
+        'End If
+
+        'If dtKundeMWST Is Nothing AndAlso dtKundeMWSTTemp Is Nothing Then
+        '    SQLWhere &= ")"
+        'End If
 
 
         Return SQLWhere
@@ -838,16 +888,14 @@ Public Class usrcntlFremdrechnungen
             For Each kvp In groups
 
                 Dim TextHTMLtable = ""
-
                 Dim pdflist = createEMailTable(TextHTMLtable, kvp, cbx.Checked)
 
-                If Not cbxMailoeffnen.Checked And Not pdflist.Any() Then
+                If pdflist.Count > 0 Then
 
-                Else
                     createEmail(kvp.Key, TextHTMLtable, pdflist)
 
-                End If
 
+                End If
 
             Next
 
@@ -860,107 +908,25 @@ Public Class usrcntlFremdrechnungen
     Private Function createEMailTable(ByRef TextHTMLtable As String, kvp As KeyValuePair(Of Object, List(Of DataGridViewRow)), onlyRelevantInvioces As Boolean) As List(Of String)
 
 
+        ' wird nicht mehr benötigt weil Info direkt in DB gespeichert wird!
 
-        '------------------------------------------------------------
+        'Dim landKZiso2 = ""
-        'toDo-Logik für die Ausnahmen - START - wie in Function "setSQLWhere(aktLieferant As String, land As String) As String"
+        'Dim KUNDE_TEMP As cKunden
-        '------------------------------------------------------------
+        'KUNDE_TEMP = kundenSQL.getKundeByKdNr(kvp.Key)
 
-        '1.	wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
+        'If KUNDE_TEMP.LandKz <> "" Then
-
+        '    If KUNDE_TEMP.LandKz.Length = 2 Then
-        Dim landKZiso2 = ""
+        '        landKZiso2 = KUNDE_TEMP.LandKz
-        Dim KUNDE_TEMP As cKunden
+        '    ElseIf KUNDE_TEMP.LandKz.Length = 3 Then
-        KUNDE_TEMP = kundenSQL.getKundeByKdNr(kvp.Key)
+        '        landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE_TEMP.LandKz)
-
+        '    ElseIf KUNDE_TEMP.LandKz.Length = 1 Then
-        If KUNDE_TEMP.LandKz <> "" Then
+        '        landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE_TEMP.LandKz)
-            If KUNDE_TEMP.LandKz.Length = 2 Then
-                landKZiso2 = KUNDE_TEMP.LandKz
-            ElseIf KUNDE_TEMP.LandKz.Length = 3 Then
-                landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE_TEMP.LandKz)
-            ElseIf KUNDE_TEMP.LandKz.Length = 1 Then
-                landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE_TEMP.LandKz)
-            End If
-
-
-        End If
-
-        Dim dtKundeMWSTTemp As DataTable = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE_TEMP.KundenNr, "FMZOLL")
-
-
-        '2.	wenn die Rechnung die Summe NULL aufweist
-        '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt (auch nicht auf Diesel -> IDS)
-        '4.	Rechnungen der Länder, in denen der Kunde selber MWST beantragt
-
-
-        'If cbx.Checked AndAlso aktLieferant <> "IDS" AndAlso KUNDE IsNot Nothing Then
-        '    Dim erw As New cKundenErweitert(KUNDE.KundenNr)
-        '    If erw.kde_keineMWSt Then Return SQLWhere
-
-        '    SQLWhere &= "AND ("
-        '    'ORIGINAL-RECHNUNG senden wenn:
-        '    '1.	wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
-
-        '    Dim landKZiso2 = ""
-
-        '    If LAND <> "" Then 'LandKZ vom Kunden muss auf ISO2 konvertiert werden, weil da ein Misch-Masch in der Datenbank herrscht!
-        '        If KUNDE.LandKz <> "" Then
-        '            If KUNDE.LandKz.Length = 2 Then
-        '                landKZiso2 = KUNDE.LandKz
-        '            ElseIf KUNDE.LandKz.Length = 3 Then
-        '                landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE.LandKz)
-        '            ElseIf KUNDE.LandKz.Length = 1 Then
-        '                landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE.LandKz)
-        '            End If
-
-        '            SQLWhere &= " " & LAND & " in ('" & landKZiso2 & "')"
-        '        End If
         '    End If
 
-        '    '2.	wenn die Rechnung die MWST-SUMME 0 aufweist!!!
-        '    Select Case aktLieferant
-        '        Case "UTA" : SQLWhere &= " OR Gesamtbetrag_Umsatzsteuer_in_Darstellwährung = 0 "  'UTA bei UTA auch EPN ausblenden!
-        '        Case "PLOSE" : SQLWhere &= " OR plInv_MWSTBetrag = 0" 'PLOSE
-        '        Case "VERAG" : SQLWhere &= " OR tblTrdinInvoice.SteuerbetragLokal = 0" 'VERAG
-        '        Case "MSE" : SQLWhere &= " OR total_vat_amount_euro = 0" 'MSE
-        '        Case "RMC" : SQLWhere &= " OR rmc_betragMWST = 0" 'RMC
-        '        Case "ALLE" : SQLWhere &= " OR temp.MWSt = 0" 'ALLE
-        '        Case "UTA_" : SQLWhere &= " 1 <> 1"
-        '        Case Else : SQLWhere &= " 1 <> 1"
 
-        '    End Select
+        'End If
-
-        '    '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
-        '    If LAND <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
-        '        Dim dtkeineMWST_ohneContraint As DataTable = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "'").CopyToDataTable
-        '        Dim counter = 0
-        '        Dim landBez As String = ""
-        '        For Each row As DataRow In dtkeineMWST_ohneContraint.Rows
-        '            landBez &= "'" & row.Item("Erstattungsland") & "'"
-        '            counter = counter + 1
-        '            If (dtkeineMWST_ohneContraint.Rows.Count <> 0 And counter <> dtkeineMWST_ohneContraint.Rows.Count) Then landBez &= ","
-        '        Next
-        '        SQLWhere &= " OR " & LAND & " in (" & landBez & ")"
-        '        If aktLieferant = "ALLE" Then SQLWhere &= " OR " & LAND & " in ('')" 'damit IDS ohne Land nicht ausgeschlossen wird.
-        '    End If
-
-        '    '4.	Rechnungen der Länder, in denen der Kunde selber MWST beantragt
-        '    If LAND <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
-        '        Dim counter = 0
-        '        Dim landBez As String = ""
-        '        For Each row As DataRow In dtKundeMWST.Rows
-        '            landBez &= "'" & row.Item("LandKz") & "'"
-        '            counter = counter + 1
-        '            If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
-        '        Next
-        '        SQLWhere &= " OR " & LAND & " in (" & landBez & ")"
-        '    End If
-        '    SQLWhere &= ")"
-
-
-
-        '------------------------------------------------------------
-        'toDo-Logik für die Ausnahmen - END
-        '------------------------------------------------------------
 
+        'Dim dtKundeMWSTTemp As DataTable = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE_TEMP.KundenNr, "FMZOLL")
 
 
         TextHTMLtable &= "<table border=1>"
@@ -981,42 +947,37 @@ Public Class usrcntlFremdrechnungen
 
 
 
-            Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces AndAlso KUNDE.KundenNr = 0, False, True)
-
-            If onlyRelevantInvioces AndAlso erw.kde_keineMWSt AndAlso Lieferant <> "IDS" Then 'weil ISD wieder sonderlogik -> siehe weiter unten!
-                sendÍnvoice = True 'dann immer mitschicken!
-            End If
 
             'ORIGINAL-RECHNUNG senden wenn:
             If onlyRelevantInvioces Then
 
-                '1.	wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
+                ''1.	wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
-                If Not sendÍnvoice AndAlso row.Cells("Land").Value <> "" AndAlso landKZiso2 = row.Cells("Land").Value Then sendÍnvoice = True
+                'If Not sendÍnvoice AndAlso row.Cells("Land").Value <> "" AndAlso landKZiso2 = row.Cells("Land").Value Then sendÍnvoice = True
 
-                '2.	wenn die Rechnung die MWST-SUMME 0 aufweist!!!
+                ''2.	wenn die Rechnung die MWST-SUMME 0 aufweist!!!
-                If Not sendÍnvoice AndAlso row.Cells("MWSt").Value = 0 Then sendÍnvoice = True
+                'If Not sendÍnvoice AndAlso row.Cells("MWSt").Value = 0 Then sendÍnvoice = True
 
-                    '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt -> dtkeineMWST
+                '    '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt -> dtkeineMWST
-                    If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
+                '    If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
-                    Dim rows() As DataRow = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "' and Erstattungsland = '" & row.Cells("Land").Value & "'")
+                '    Dim rows() As DataRow = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "' and Erstattungsland = '" & row.Cells("Land").Value & "'")
-                    Dim dtkeineMWST_ohneContraint As New DataTable
+                '    Dim dtkeineMWST_ohneContraint As New DataTable
-                        If rows.Length > 0 Then dtkeineMWST_ohneContraint = rows.CopyToDataTable()
+                '        If rows.Length > 0 Then dtkeineMWST_ohneContraint = rows.CopyToDataTable()
-                        If dtkeineMWST_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True
+                '        If dtkeineMWST_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True
-                    End If
+                '    End If
 
-                    '4.	Rechnungen der Länder, in denen der Kunde selber MWST beantragt
+                '    '4.	Rechnungen der Länder, in denen der Kunde selber MWST beantragt
 
-                    If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then
+                '    If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then
-                        Dim rows() As DataRow = dtKundeMWSTTemp.Select("LandKz = '" & row.Cells("Land").Value & "'")
+                '        Dim rows() As DataRow = dtKundeMWSTTemp.Select("LandKz = '" & row.Cells("Land").Value & "'")
-                        Dim dtKundeMWSTTemp_ohneContraint As New DataTable
+                '        Dim dtKundeMWSTTemp_ohneContraint As New DataTable
-                        If rows.Length > 0 Then dtKundeMWSTTemp_ohneContraint = rows.CopyToDataTable()
+                '        If rows.Length > 0 Then dtKundeMWSTTemp_ohneContraint = rows.CopyToDataTable()
-                        If dtKundeMWSTTemp_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True
+                '        If dtKundeMWSTTemp_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True
-                    End If
+                '    End If
 
-                End If
+            End If
 
 
-                If Lieferant = "VERAG" Then
+            If Lieferant = "VERAG" Then
 
                 'VERAG IGNORIEREN
                 'Dim ReDat = row.Cells("Rechnungsdatum").Value
@@ -1035,7 +996,7 @@ Public Class usrcntlFremdrechnungen
                     'IDS hat wieder sonderlogik
 
                     Dim dt As New DataTable
-                    dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True, kvp.Key, dtKundeMWSTTemp)
+                    dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True, kvp.Key)
 
                     For Each r As DataRow In dt.Rows
 
@@ -1059,24 +1020,24 @@ Public Class usrcntlFremdrechnungen
                     Next
 
                 Else
-                    If sendÍnvoice Then
-                        TextHTMLtable &= "<tr>"
-                        TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>"
-                        TextHTMLtable &= "<td><b>" & row.Cells("Land").Value & "</b></td>"
-                        TextHTMLtable &= "<td><b>" & row.Cells("Rechnungsdatum").Value & "</b></td>"
 
-                        Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value)
+                    TextHTMLtable &= "<tr>"
-                        If daId > 0 Then
+                    TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>"
-                            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
+                    TextHTMLtable &= "<td><b>" & row.Cells("Land").Value & "</b></td>"
-                            pdflist.Add(DS.GET_TOP1_PATH())
+                    TextHTMLtable &= "<td><b>" & row.Cells("Rechnungsdatum").Value & "</b></td>"
-                            TextHTMLtable &= "<td><b>" & DS.da_name & "</b></td>"
-                        Else
-                            TextHTMLtable &= "<td><b>-</b></td>"
-                        End If
-
-                        TextHTMLtable &= "</tr>"
 
+                    Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value)
+                    If daId > 0 Then
+                        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
+                        pdflist.Add(DS.GET_TOP1_PATH())
+                        TextHTMLtable &= "<td><b>" & DS.da_name & "</b></td>"
+                    Else
+                        TextHTMLtable &= "<td><b>-</b></td>"
                     End If
+
+                    TextHTMLtable &= "</tr>"
+
+
                 End If
 
 
@@ -1145,8 +1106,6 @@ Public Class usrcntlFremdrechnungen
             Case Else
                 Mail.Subject = kundeMail.Kurzname & " - Invoice No."
 
-                Mail.HTMLBody = TextHTMLtable
-
                 Mail.HTMLBody = "Dear Sir or Madam,<br><br>attached we send you the original invoice mentioned above.<br><br>"
 
                 Mail.HTMLBody &= TextHTMLtable
@@ -1169,6 +1128,12 @@ Public Class usrcntlFremdrechnungen
         Mail.To &= kundeMail.EMail
         Mail.CC &= kundeMail.EMail2
 
+        If cbxTest.Checked Then
+            Mail.To = "d.breimaier@verag.ag"
+            Mail.CC = "d.breimaier@verag.ag"
+
+        End If
+
         If cbxMailoeffnen.Checked Then
             Try
 
@@ -1198,7 +1163,6 @@ Public Class usrcntlFremdrechnungen
 
                 If Mail IsNot Nothing Then
 
-
                     Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "MAIL-ORIG-RG",,, kdNr)
 
                     API.api_EMail = Mail.To
@@ -1476,20 +1440,12 @@ Public Class usrcntlFremdrechnungen
     End Sub
 
 
-    Private Function initDGVRechnungsdetails(rechnugnsID As Integer, Optional setDatatable As Boolean = False, Optional KundenNr_Input As Integer = -1, Optional dtKundeMWSTTemp As DataTable = Nothing) As DataTable
+    Private Function initDGVRechnungsdetails(rechnugnsID As Integer, Optional setDatatable As Boolean = False, Optional KundenNr_Input As Integer = -1) As DataTable
-
-
-
-        If dtKundeMWSTTemp Is Nothing AndAlso KundenNr_Input > 0 Then
-            dtKundeMWSTTemp = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KundenNr_Input, "FMZOLL")
-        End If
-
-
 
 
         Dim sql = "  select [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,
-                            cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden,[Country] as Land  
+                            cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden,cast(isnull(InvToCustomer, 0) as bit) as OrigRE ,[Country] as Land 
-                            FROM [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] WHERE [TotalInvoiceId] = " & rechnugnsID & setSQLDetailWhere(aktLieferant, "Country",  , KundenNr_Input, dtKundeMWSTTemp)
+                            FROM [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] WHERE [TotalInvoiceId] = " & rechnugnsID & setSQLDetailWhere(aktLieferant, "Country")
 
         If setDatatable Then
 

VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb

@@ -612,6 +612,26 @@ Public Class cIDS
 
     End Function
 
+    Public Shared Function setBackToCustomer(SQL As SQL, backToCustomer As Boolean, ab As Date, AdressenNr As Integer) As Boolean
+
+
+        Return SQL.doSQL("update tblIDSInvoicesNewSplittedByCountry set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & "  where cast(YearMonthDay as Date) >= '" & ab.ToShortDateString & "' AND  CustomerCode in (select CustomerCode from tbl_IDS_Kunden where KdNrVERAG =  '" & AdressenNr & "' AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 )", "FMZOLL")
+
+    End Function
+
+
+    Public Shared Function setBackToCustomerCustomerID(SQL As SQL, backToCustomer As Boolean, AdressenNr As String) As Boolean
+
+        Return SQL.doSQL("update tblIDSInvoicesNewSplittedByCountry set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & "  where InvToCustomer Is null  AND  CustomerCode in (select CustomerCode from tbl_IDS_Kunden where KdNrVERAG =  '" & AdressenNr & "' AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 )", "FMZOLL")
+
+    End Function
+
+    Public Shared Function setBackToCustomerInvoiceID(SQL As SQL, backToCustomer As Boolean, Optional invoiceID As String = "") As Boolean
+
+        Return SQL.doSQL("update tblIDSInvoicesNewSplittedByCountry set InvToCustomer = " & IIf(backToCustomer, "1", "0") & "  where InvToCustomer Is null " & IIf(invoiceID <> "", "AND  invoice_id = '" & invoiceID & "'", " ") & "", "FMZOLL")
+
+    End Function
+
     Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As String, ids_kdNr As Integer, country As String, UStVAn_ID As Integer) As Boolean
         Try
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb

@@ -84,10 +84,7 @@ Public Class cKunde
     Property Höchstkredit As Object = Nothing
     Property DakosyExport As Object = Nothing
     Property FiBuSchnittstelleNr As Object = Nothing
-
+    Property Vorlageprovision_Mindestbetrag As Object = Nothing
-
-
-
 
 
     Public hasEntry As Boolean = False
@@ -191,6 +188,7 @@ Public Class cKunde
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_MSE", UStV_SummeVorschaubetragEUR_MSE))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_UTA", UStV_SummeVorschaubetragEUR_UTA))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_SummeVorschaubetragEUR_IT", UStV_SummeVorschaubetragEUR_IT))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision_Mindestbetrag", Vorlageprovision_Mindestbetrag))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -100,6 +100,7 @@ Public Class cKundenErweitert
     Property kde_Provisionsverguetung_ProzentDL As Object = Nothing
     Property kde_Provisionsverguetung_GSAnKdNr As Object = Nothing
     Property kde_zinssatz As Object = Nothing
+    Property kde_betreuer As Object = Nothing
 
 
 
@@ -207,6 +208,7 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Provisionsverguetung_GSAnKdNr", kde_Provisionsverguetung_GSAnKdNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSinsolventAm", kde_CSinsolventAm))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_zinssatz", kde_zinssatz))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_betreuer", kde_betreuer))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cKundenportal.vb

@@ -0,0 +1,123 @@
+
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+Public Class cKundenportal
+    Property KundenNr As Object = Nothing
+    Property Username As Object = Nothing
+    Property Password As Object = Nothing
+    Property Lieferant As Object = Nothing
+    Property Portal As Object = Nothing
+
+    Public hasEntry = False
+
+    Dim SQL As New SQL
+
+    Sub New(KundenNr, Portal)
+        Me.KundenNr = KundenNr
+        Me.Portal = Portal
+        LOAD()
+    End Sub
+    Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Username", Username))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Password", Password))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferant", Lieferant))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Portal", Portal))
+
+        Return list
+    End Function
+
+
+
+    Public Function SAVE() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenlogin  WHERE KundenNr=@KundenNr AND Portal=@Portal ) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+    End Function
+
+    Public Sub LOAD()
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblKundenlogin WHERE KundenNr=@KundenNr AND Portal=@Portal  ", conn)
+                    cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
+                    cmd.Parameters.AddWithValue("@Portal", Portal)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+
+    Public Function getUpdateCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+            Dim str As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            Return (" UPDATE [tblKundenlogin] SET " & str & " WHERE KundenNr=@KundenNr AND Portal=@Portal ")
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+    End Function
+
+
+    Public Function getInsertCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO tblKundenlogin  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+    End Function
+
+
+    Public Shared Function DELETE(KundenNr, Portal) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim sqlstr = " DELETE FROM [tblKundenlogin] WITH(updlock,serializable) WHERE KundenNr=" & KundenNr & " AND Portal ='" & Portal & "'"
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+    End Function
+End Class

VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb

@@ -102,6 +102,7 @@ Public Class cMitarbeiter
     Property mit_Notfall_Handy As Object = Nothing
     Property mit_Notfall_Mail As Object = Nothing
     Property mit_SchalterID As Object = Nothing
+    Property mit_Funktion As Object = Nothing
 
 
 
@@ -221,6 +222,7 @@ Public Class cMitarbeiter
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Handy", mit_Notfall_Handy))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Mail", mit_Notfall_Mail))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_SchalterID", mit_SchalterID))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Funktion", mit_Funktion))
 
 
 
@@ -431,6 +433,7 @@ Public Class cMitarbeiter
                             If Not dr.Item("mit_Notfall_Name") Is DBNull.Value Then Me.mit_Notfall_Name = dr.Item("mit_Notfall_Name")
                             If Not dr.Item("mit_Notfall_Mail") Is DBNull.Value Then Me.mit_Notfall_Mail = dr.Item("mit_Notfall_Mail")
                             If Not dr.Item("mit_SchalterID") Is DBNull.Value Then Me.mit_SchalterID = dr.Item("mit_SchalterID")
+                            If Not dr.Item("mit_Funktion") Is DBNull.Value Then Me.mit_Funktion = dr.Item("mit_Funktion")
 
 
                         Catch ex As Exception

VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb

@@ -1,6 +1,8 @@
 
 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports System.Web.Configuration
+Imports io.konik.zugferd
 
 Public Class cRMC
     Property rmc_id As Integer
@@ -255,6 +257,27 @@ Public Class cRMC
 
     End Function
 
+    Public Shared Function setBackToCustomer(SQL As SQL, backToCustomer As Boolean, ab As Date, customerNo As Integer) As Boolean
+
+
+        Return SQL.doSQL("update tblRMCImport set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & "  where InvToCustomer Is null and cast(rmc_reDatum as Date) >= '" & ab.ToShortDateString & "' AND  rmc_kdNr = '" & customerNo & "'", "FMZOLL")
+
+    End Function
+
+    Public Shared Function setBackToCustomerCustomerID(SQL As SQL, backToCustomer As Boolean, customerNo As String) As Boolean
+
+        Return SQL.doSQL("update tblRMCImport set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & "  where InvToCustomer Is null AND  rmc_kdNr = '" & customerNo & "'", "FMZOLL")
+
+    End Function
+
+    Public Shared Function setBackToCustomerInvoiceID(SQL As SQL, backToCustomer As Boolean, Optional invoiceID As String = "") As Boolean
+
+
+        Return SQL.doSQL("update tblRMCImport set InvToCustomer = " & IIf(backToCustomer, "1", "0") & "  where InvToCustomer Is null " & IIf(invoiceID <> "", "AND  rmc_id = '" & invoiceID & "'", " ") & "", "FMZOLL")
+
+
+    End Function
+
     Public Class Paramter
 
         Shared apiSettingsloaded As Boolean = False
@@ -262,7 +285,7 @@ Public Class cRMC
 
         Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
             Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value]  FROM [tblPartnersystem_Paramter] WHERE  Param_system='RMC' AND [Param_name]='" & tcParam_name & "' AND Param_testsystem = " & IIf(TESTSYSTEM, 1, 0), , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
-        End Function
+    End Function
 
         Shared Function getFTPConenction(ByRef API_String As String, ByRef API As DataTable, ByRef program As String) As Boolean
 

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -122,6 +122,9 @@ Public Class cRechnungsausgang
 
     Property Rechnungsart As String = "RG" ' RG=Rechnung; RU=Rechnung Unvollständig; RK=RechnungKopf -> bei unvollständiger Rechnung ein Kopf benötigt (zB Staffelabrechnung)
 
+    Property Vorlageprovision_Mindestbetrag As Object = Nothing
+
+
     ' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing
 
     Public POSITIONEN As New List(Of cRechnungsausgangPositionen)
@@ -365,6 +368,7 @@ Public Class cRechnungsausgang
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ForceSteuerschlüssel", ForceSteuerschlüssel))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Automailversand", Automailversand))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsart", Rechnungsart))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision_Mindestbetrag", Vorlageprovision_Mindestbetrag))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -1,10 +1,7 @@
-Imports System
+Imports System.Data.SqlClient
-Imports System.Collections.Generic
-Imports System.Data.SqlClient
 Imports System.IO
 Imports System.Reflection
-Imports Therefore.API
+Imports System.Web.Configuration
-Imports VERAG_PROG_ALLGEMEIN
 
 Public Class cUTA
 
@@ -23,6 +20,27 @@ Public Class cUTA
 
     End Function
 
+    Public Shared Function setBackToCustomer(SQL As SQL, backToCustomer As Boolean, ab As Date, customerNo As Integer) As Boolean
+
+
+        Return SQL.doSQL("update tblUTAImportNew set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & "  where cast(Rechnungsdatum as Date) >= '" & ab.ToShortDateString & "' AND  Kundennummer  =  '" & customerNo & "'", "FMZOLL")
+
+    End Function
+
+    Public Shared Function setBackToCustomerCustomerID(SQL As SQL, backToCustomer As Boolean, customerNo As String) As Boolean
+
+        Return SQL.doSQL("update tblUTAImportNew set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & "  where InvToCustomer Is null AND Kundennummer  =  '" & customerNo & "'", "FMZOLL")
+
+    End Function
+
+    Public Shared Function setBackToCustomerInvoiceID(SQL As SQL, backToCustomer As Boolean, Optional invoiceID As String = "") As Boolean
+
+
+        Return SQL.doSQL("update tblUTAImportNew set InvToCustomer = " & IIf(backToCustomer, "1", "0") & "  where InvToCustomer Is null " & IIf(invoiceID <> "", "AND  [Rechnungsnummer_pro_Lieferland] = '" & invoiceID & "'", " ") & "", "FMZOLL")
+
+
+    End Function
+
     Public Class UTAHeader
 
         Property Übertragungsnummer As Integer

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -408,14 +408,14 @@ Public Class frmUeberstundenauszahlen
             Next
 
             If (stunden100bereitsausbezahl + stunden50bereitsausbezahlt + stunden25bereitsausbezahlt) > 0 Then
-                If MA.mit_firma = "ATILLA" Then GoTo sonderRegelungAtilla : 
+                ' If MA.mit_firma = "ATILLA" Then GoTo sonderRegelungAtilla : Laut ANDREAS mit 25.11.2025 wieder deaktiviert!!!!!!!!!!!! -> VILDAN soll hier direkt mit Andreas sprechen
                 picDel.Visible = True
                 Button1.Enabled = False
                 txtAusz.Enabled = False
                 picShow.Visible = True
             Else
-sonderRegelungAtilla:
+                'sonderRegelungAtilla: Laut ANDREAS mit 25.11.2025 wieder deaktiviert!!!!!!!!!!!! -> VILDAN soll hier direkt mit Andreas sprechen
-            Button1.Enabled = True
+                Button1.Enabled = True
                 txtAusz.Enabled = True
                 picShow.Visible = False
 

VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb

@@ -1,6 +1,7 @@
 Imports System.Data.SqlClient
 Imports System.Net
 Imports System.Reflection
+Imports System.Web.Configuration
 Imports javax
 
 Public Class cMSEAPI
@@ -46,6 +47,29 @@ Public Class cMSEAPI
     End Function
 
 
+    Public Shared Function setBackToCustomer(SQL As SQL, backToCustomer As Boolean, ab As Date, customerNr As Integer) As Boolean
+
+
+        Return SQL.doSQL("update tblMSEInvoices set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & "  where cast(invoice_date as Date) >= '" & ab.ToShortDateString & "' AND  customer_number =  '" & customerNr & "'", "FMZOLL")
+
+    End Function
+
+
+    Public Shared Function setBackToCustomerCustomerID(SQL As SQL, backToCustomer As Boolean, customerNr As String) As Boolean
+
+        Return SQL.doSQL("update tblMSEInvoices set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & "  where InvToCustomer Is null AND customer_number =  '" & customerNr & "'", "FMZOLL")
+
+    End Function
+
+    Public Shared Function setBackToCustomerInvoiceID(SQL As SQL, backToCustomer As Boolean, Optional invoiceID As String = "", Optional customerNr As String = "") As Boolean
+
+        Return SQL.doSQL("update tblMSEInvoices set InvToCustomer = " & IIf(backToCustomer, "1", "0") & "  where InvToCustomer Is null " & IIf(invoiceID <> "", "AND  invoice_id = '" & invoiceID & "' AND customer_number =  '" & customerNr & "'", " ") & "", "FMZOLL")
+
+    End Function
+
+
+
+
     Public Function createJWT(ByRef failureText As String) As String
         Try
 

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -394,6 +394,7 @@
     <Compile Include="AuditFlow\Classes\cAuditFlow_Pruefungen.vb" />
     <Compile Include="Classes\cMDMEInarbeitung.vb" />
     <Compile Include="Classes\cMDMZinsberechnung.vb" />
+    <Compile Include="Classes\cKundenportal.vb" />
     <Compile Include="frmTimasabfrage.Designer.vb">
       <DependentUpon>frmTimasabfrage.vb</DependentUpon>
     </Compile>