fakt, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -2136,7 +2136,7 @@ Public Class cFakturierung
             Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing
             Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT
             Case 24 : rpt.picVERAG.Image = My.Resources.ambar_boarder : rpt.Picture1.Image = Nothing
-                rpt.txtAvisierer.Visible = False : rpt.lblAvisiererUeberschrift.Visible = False : rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False
+                rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False
 
         End Select
 
@@ -2182,10 +2182,6 @@ Public Class cFakturierung
         Dim sachbearbeiterAufRechnung = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter)
         rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "")
 
-        rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim
-        rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim
-        rpt.txtAvisierer.Text = If(RECHNUNG.Avisierer, "")
-
         If firma.Firma_ID = 4 Then
             rpt.lblWarenWertUeberschrift.Visible = False
             rpt.txtWarenwert.Visible = False
@@ -2310,10 +2306,6 @@ Public Class cFakturierung
             rpt.lblHandlingATA.Visible = False
         End If
 
-
-        If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False
-        If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False
-        If rpt.txtAvisierer.Text.Trim = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False
         If rpt.lblLKWId.Text.Trim = String.Empty Then rpt.lblLKWIdUebeschrift.Visible = False
         If rpt.txtWarenwert.Text.Trim = String.Empty Then rpt.lblWarenWertUeberschrift.Visible = False
         If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False
@@ -2330,8 +2322,10 @@ Public Class cFakturierung
             rpt.lblAnzahlUeberschrift.Text = "Tage"
             rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center
             rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag"
-            rpt.lbl_onlyZR_VZUeberschrift.Text = "Zinsen % p.a."
+            rpt.lbl_onlyZR_VZUeberschrift.Text = "Zinsen p.a."
+            rpt.lbl_onlyZR_VZUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left
             rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen"
+            rpt.lblSteuerfreiUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Right
 
 
             rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True
@@ -2446,17 +2440,25 @@ Public Class cFakturierung
                                           If firma.Firma_ID = 19 Then
 
                                               If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung
-                                                  Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text.Replace("*", ""))
 
-                                                  rpt.SubReport.Report = subRpt
+                                                  Dim steuerfrei As Double = 0
-                                                  rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
+                                                  Dim steuerpfl As Double = 0
-                                                  rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
 
-                                                  'txtPackstuecke.Top += SubReport.Height
+                                                  If IsNumeric(checkNull(rpt.Fields.Item("SteuerfreierBetrag").Value)) Then steuerfrei = CDbl(rpt.Fields.Item("SteuerfreierBetrag").Value)
-                                                  'txtKdAuftragsnummer.Top += SubReport.Height
+                                                  If IsNumeric(checkNull(rpt.Fields.Item("SteuerpflichtigerBetrag").Value)) Then steuerpfl = CDbl(rpt.Fields.Item("SteuerpflichtigerBetrag").Value)
-                                                  'txtSendungsdetails.Top += SubReport.Height
+
-                                              Else
+
-                                                  rpt.SubReport.Report = Nothing
+                                                  Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text.Replace("*", ""), CInt(rpt.lblAnzahl.Text), steuerfrei + steuerpfl)
+
+                                                      rpt.SubReport.Report = subRpt
+                                                      rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
+                                                      rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
+
+                                                      'txtPackstuecke.Top += SubReport.Height
+                                                      'txtKdAuftragsnummer.Top += SubReport.Height
+                                                      'txtSendungsdetails.Top += SubReport.Height
+                                                  Else
+                                                      rpt.SubReport.Report = Nothing
                                               End If
 
                                               Dim isReverseCharge As Boolean = SQL.getValueTxtBySql("SELECT ReverseCharge as Bit from Leistungen where LeistungsNr= " & rpt.lblLeistungNr.Text, "FMZOLL")
@@ -4854,11 +4856,11 @@ Public Class cFakturierung
         'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
         'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
 
-        Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
+        Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter"))
         rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
 
 
-        rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
+        'rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
         rpt.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim
         rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim
         rpt.lblEORI.Text = If(Firma.Firma_EORI, "")
@@ -5254,7 +5256,7 @@ Public Class cFakturierung
         'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
         'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
 
-        Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
+        Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter").ToString.ToUpper)
 
         If sachbearbeiterAufRechnung = "" Then
             rpt.lblSachbearbeiter.Text = getSBRgName(Row("Firma_ID"), Row("Sachbearbeiter").ToString.ToUpper)
@@ -5492,10 +5494,15 @@ Public Class cFakturierung
 
 
 
-    Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String) As String
+    Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String, Optional NameAufBeleg As String = "") As String
 
         If USRKURZNAME Is Nothing Then Return ""
         If USRKURZNAME Is DBNull.Value Then Return ""
+
+        If NameAufBeleg <> "" Then
+            USRKURZNAME = NameAufBeleg
+        End If
+
         If USRKURZNAME = "" Then USRKURZNAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
         Dim txt = SQL.getValueTxtBySql("SELECT top 1 CASE WHEN mit_geschlecht='w' THEN 'Frau ' ELSE (CASE WHEN mit_geschlecht='m' THEN 'Herr ' ELSE '' END ) END + mit_nname  FROM [tblMitarbeiter] WHERE [mit_username]='" & USRKURZNAME & "'  ", "ADMIN")
         If txt <> "" Then Return txt
@@ -5672,7 +5679,7 @@ Public Class cFakturierung
             'rpt.lblAbfertigungsNr.Text = ROW("FilialenNr") & " / " & ROW("AbfertigungsNr") & " " & ROW("SpeditionsbuchUnterNr").ToString("00")
             'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
             'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
-            Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
+            Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, ROW("Sachbearbeiter"))
             rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
 
             'rpt.lblSachbearbeiter.Text = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)  'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - ALT

SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb

@@ -112,12 +112,6 @@ Partial Public Class rptRechnungDruck_MDM
         Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
-        Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
-        Me.lblAvisiererUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
-        Me.lblEmpfaengerUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
-        Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
-        Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
-        Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.lblZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.txtZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.lblWarenWertUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -206,12 +200,6 @@ Partial Public Class rptRechnungDruck_MDM
         CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1224,8 +1212,8 @@ Partial Public Class rptRechnungDruck_MDM
         '
         'GroupHeader4
         '
-        Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.lbl_onlyZR_VZUeberschrift, Me.lbl_onlyZR_ZahlungsDatUeberschrift, Me.lbl_onlyZR_FaelligUeberschrift, Me.lbl_onlyZR_ReDatUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblAnzahlUeberschrift, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBef<EFBFBD>rderungsmittelUeberschrift, Me.txtBef<EFBFBD>rderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16})
+        Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.lbl_onlyZR_VZUeberschrift, Me.lbl_onlyZR_ZahlungsDatUeberschrift, Me.lbl_onlyZR_FaelligUeberschrift, Me.lbl_onlyZR_ReDatUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblAnzahlUeberschrift, Me.Line4, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBef<EFBFBD>rderungsmittelUeberschrift, Me.txtBef<EFBFBD>rderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16})
-        Me.GroupHeader4.Height = 1.627275!
+        Me.GroupHeader4.Height = 1.033525!
         Me.GroupHeader4.KeepTogether = True
         Me.GroupHeader4.Name = "GroupHeader4"
         '
@@ -1233,49 +1221,49 @@ Partial Public Class rptRechnungDruck_MDM
         '
         Me.lblLeistungUeberschrift.Height = 0.1511808!
         Me.lblLeistungUeberschrift.HyperLink = Nothing
-        Me.lblLeistungUeberschrift.Left = 0.01455834!
+        Me.lblLeistungUeberschrift.Left = 0.01417252!
         Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift"
         Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
         Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
     "-set: 1"
         Me.lblLeistungUeberschrift.Text = "Leistung"
-        Me.lblLeistungUeberschrift.Top = 1.415504!
+        Me.lblLeistungUeberschrift.Top = 0.8114173!
         Me.lblLeistungUeberschrift.Width = 0.9220559!
         '
         'lblSteuerfreiUeberschrift
         '
         Me.lblSteuerfreiUeberschrift.Height = 0.1511807!
         Me.lblSteuerfreiUeberschrift.HyperLink = Nothing
-        Me.lblSteuerfreiUeberschrift.Left = 5.512198!
+        Me.lblSteuerfreiUeberschrift.Left = 5.511812!
         Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift"
         Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
         Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei"
-        Me.lblSteuerfreiUeberschrift.Top = 1.415504!
+        Me.lblSteuerfreiUeberschrift.Top = 0.8114173!
         Me.lblSteuerfreiUeberschrift.Width = 1.554331!
         '
         'lbl_onlyZR_VZUeberschrift
         '
         Me.lbl_onlyZR_VZUeberschrift.Height = 0.1511808!
         Me.lbl_onlyZR_VZUeberschrift.HyperLink = Nothing
-        Me.lbl_onlyZR_VZUeberschrift.Left = 5.522048!
+        Me.lbl_onlyZR_VZUeberschrift.Left = 5.521662!
         Me.lbl_onlyZR_VZUeberschrift.Name = "lbl_onlyZR_VZUeberschrift"
         Me.lbl_onlyZR_VZUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
     "r-set: 1"
         Me.lbl_onlyZR_VZUeberschrift.Text = "Verzugszinsen"
-        Me.lbl_onlyZR_VZUeberschrift.Top = 1.415354!
+        Me.lbl_onlyZR_VZUeberschrift.Top = 0.8112674!
         Me.lbl_onlyZR_VZUeberschrift.Width = 0.8169294!
         '
         'lbl_onlyZR_ZahlungsDatUeberschrift
         '
         Me.lbl_onlyZR_ZahlungsDatUeberschrift.Height = 0.1511808!
         Me.lbl_onlyZR_ZahlungsDatUeberschrift.HyperLink = Nothing
-        Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.492913!
+        Me.lbl_onlyZR_ZahlungsDatUeberschrift.Left = 2.492527!
         Me.lbl_onlyZR_ZahlungsDatUeberschrift.Name = "lbl_onlyZR_ZahlungsDatUeberschrift"
         Me.lbl_onlyZR_ZahlungsDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
         Me.lbl_onlyZR_ZahlungsDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
     "-set: 1"
         Me.lbl_onlyZR_ZahlungsDatUeberschrift.Text = "Zahlungsdatum"
-        Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 1.415354!
+        Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 0.8112674!
         Me.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False
         Me.lbl_onlyZR_ZahlungsDatUeberschrift.Width = 0.9661421!
         '
@@ -1283,13 +1271,13 @@ Partial Public Class rptRechnungDruck_MDM
         '
         Me.lbl_onlyZR_FaelligUeberschrift.Height = 0.1511808!
         Me.lbl_onlyZR_FaelligUeberschrift.HyperLink = Nothing
-        Me.lbl_onlyZR_FaelligUeberschrift.Left = 2.001969!
+        Me.lbl_onlyZR_FaelligUeberschrift.Left = 2.001583!
         Me.lbl_onlyZR_FaelligUeberschrift.Name = "lbl_onlyZR_FaelligUeberschrift"
         Me.lbl_onlyZR_FaelligUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
         Me.lbl_onlyZR_FaelligUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
     "-set: 1"
         Me.lbl_onlyZR_FaelligUeberschrift.Text = "F<EFBFBD>llig"
-        Me.lbl_onlyZR_FaelligUeberschrift.Top = 1.415354!
+        Me.lbl_onlyZR_FaelligUeberschrift.Top = 0.8112674!
         Me.lbl_onlyZR_FaelligUeberschrift.Visible = False
         Me.lbl_onlyZR_FaelligUeberschrift.Width = 0.490945!
         '
@@ -1297,13 +1285,13 @@ Partial Public Class rptRechnungDruck_MDM
         '
         Me.lbl_onlyZR_ReDatUeberschrift.Height = 0.1511807!
         Me.lbl_onlyZR_ReDatUeberschrift.HyperLink = Nothing
-        Me.lbl_onlyZR_ReDatUeberschrift.Left = 0.9366142!
+        Me.lbl_onlyZR_ReDatUeberschrift.Left = 0.9362284!
         Me.lbl_onlyZR_ReDatUeberschrift.Name = "lbl_onlyZR_ReDatUeberschrift"
         Me.lbl_onlyZR_ReDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
         Me.lbl_onlyZR_ReDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
     "-set: 1"
         Me.lbl_onlyZR_ReDatUeberschrift.Text = "Rechnungsdatum"
-        Me.lbl_onlyZR_ReDatUeberschrift.Top = 1.416142!
+        Me.lbl_onlyZR_ReDatUeberschrift.Top = 0.8120553!
         Me.lbl_onlyZR_ReDatUeberschrift.Visible = False
         Me.lbl_onlyZR_ReDatUeberschrift.Width = 1.065354!
         '
@@ -1311,221 +1299,152 @@ Partial Public Class rptRechnungDruck_MDM
         '
         Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808!
         Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing
-        Me.lblSteuerpflichtigUeberschrift.Left = 3.957867!
+        Me.lblSteuerpflichtigUeberschrift.Left = 3.957481!
         Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift"
         Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
     "r-set: 1"
         Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig"
-        Me.lblSteuerpflichtigUeberschrift.Top = 1.415504!
+        Me.lblSteuerpflichtigUeberschrift.Top = 0.8114173!
         Me.lblSteuerpflichtigUeberschrift.Width = 1.554331!
         '
         'lblAnzahlUeberschrift
         '
         Me.lblAnzahlUeberschrift.Height = 0.1511807!
         Me.lblAnzahlUeberschrift.HyperLink = Nothing
-        Me.lblAnzahlUeberschrift.Left = 3.459055!
+        Me.lblAnzahlUeberschrift.Left = 3.458669!
         Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift"
         Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" &
     "r-set: 1"
         Me.lblAnzahlUeberschrift.Text = "Anzahl"
-        Me.lblAnzahlUeberschrift.Top = 1.415504!
+        Me.lblAnzahlUeberschrift.Top = 0.8114173!
         Me.lblAnzahlUeberschrift.Width = 0.4988112!
         '
         'Line4
         '
         Me.Line4.Height = 0!
-        Me.Line4.Left = 0.005503932!
+        Me.Line4.Left = 0.005118111!
         Me.Line4.LineWeight = 1.0!
         Me.Line4.Name = "Line4"
-        Me.Line4.Top = 1.566685!
+        Me.Line4.Top = 0.9625983!
         Me.Line4.Width = 7.475194!
-        Me.Line4.X1 = 0.005503932!
+        Me.Line4.X1 = 0.005118111!
-        Me.Line4.X2 = 7.480698!
+        Me.Line4.X2 = 7.480312!
-        Me.Line4.Y1 = 1.566685!
+        Me.Line4.Y1 = 0.9625983!
-        Me.Line4.Y2 = 1.566685!
+        Me.Line4.Y2 = 0.9625983!
-        '
-        'lblAbsenderUeberschrift
-        '
-        Me.lblAbsenderUeberschrift.Height = 0.1574803!
-        Me.lblAbsenderUeberschrift.HyperLink = Nothing
-        Me.lblAbsenderUeberschrift.Left = 0!
-        Me.lblAbsenderUeberschrift.Name = "lblAbsenderUeberschrift"
-        Me.lblAbsenderUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
-    "har-set: 1"
-        Me.lblAbsenderUeberschrift.Text = "Absender:"
-        Me.lblAbsenderUeberschrift.Top = 0.1732284!
-        Me.lblAbsenderUeberschrift.Width = 0.9366142!
-        '
-        'lblAvisiererUeberschrift
-        '
-        Me.lblAvisiererUeberschrift.Height = 0.1574803!
-        Me.lblAvisiererUeberschrift.HyperLink = Nothing
-        Me.lblAvisiererUeberschrift.Left = 0!
-        Me.lblAvisiererUeberschrift.Name = "lblAvisiererUeberschrift"
-        Me.lblAvisiererUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
-    "har-set: 1"
-        Me.lblAvisiererUeberschrift.Text = "Avisierer:"
-        Me.lblAvisiererUeberschrift.Top = 0.46!
-        Me.lblAvisiererUeberschrift.Width = 0.9366142!
-        '
-        'lblEmpfaengerUeberschrift
-        '
-        Me.lblEmpfaengerUeberschrift.Height = 0.1574803!
-        Me.lblEmpfaengerUeberschrift.HyperLink = Nothing
-        Me.lblEmpfaengerUeberschrift.Left = 3.596!
-        Me.lblEmpfaengerUeberschrift.Name = "lblEmpfaengerUeberschrift"
-        Me.lblEmpfaengerUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
-    "har-set: 1"
-        Me.lblEmpfaengerUeberschrift.Text = "Empf<EFBFBD>nger:"
-        Me.lblEmpfaengerUeberschrift.Top = 0.173!
-        Me.lblEmpfaengerUeberschrift.Width = 0.9366142!
-        '
-        'txtAbsender
-        '
-        Me.txtAbsender.Height = 0.2720473!
-        Me.txtAbsender.Left = 0.9366142!
-        Me.txtAbsender.Name = "txtAbsender"
-        Me.txtAbsender.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
-    "-set: 1"
-        Me.txtAbsender.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben"
-        Me.txtAbsender.Top = 0.1732285!
-        Me.txtAbsender.Width = 2.659449!
-        '
-        'txtEmpfaenger
-        '
-        Me.txtEmpfaenger.Height = 0.2720473!
-        Me.txtEmpfaenger.Left = 4.615614!
-        Me.txtEmpfaenger.Name = "txtEmpfaenger"
-        Me.txtEmpfaenger.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
-    "-set: 1"
-        Me.txtEmpfaenger.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben"
-        Me.txtEmpfaenger.Top = 0.173!
-        Me.txtEmpfaenger.Width = 2.659449!
-        '
-        'txtAvisierer
-        '
-        Me.txtAvisierer.Height = 0.1570001!
-        Me.txtAvisierer.Left = 0.937!
-        Me.txtAvisierer.Name = "txtAvisierer"
-        Me.txtAvisierer.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
-    "-set: 1"
-        Me.txtAvisierer.Text = "VERAG Spedition "
-        Me.txtAvisierer.Top = 0.46!
-        Me.txtAvisierer.Width = 2.659!
         '
         'lblZollbelegNr
         '
         Me.lblZollbelegNr.Height = 0.1574803!
         Me.lblZollbelegNr.HyperLink = Nothing
-        Me.lblZollbelegNr.Left = 0.0003858209!
+        Me.lblZollbelegNr.Left = 2.910383E-11!
         Me.lblZollbelegNr.Name = "lblZollbelegNr"
         Me.lblZollbelegNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
     "har-set: 1"
         Me.lblZollbelegNr.Text = "Zollbeleg-Nr.:"
-        Me.lblZollbelegNr.Top = 0.647!
+        Me.lblZollbelegNr.Top = 0.04291338!
         Me.lblZollbelegNr.Width = 0.9366142!
         '
         'txtZollbelegNr
         '
         Me.txtZollbelegNr.Height = 0.1574803!
-        Me.txtZollbelegNr.Left = 0.937!
+        Me.txtZollbelegNr.Left = 0.9366142!
         Me.txtZollbelegNr.Name = "txtZollbelegNr"
         Me.txtZollbelegNr.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
     "-set: 1"
         Me.txtZollbelegNr.Text = "ATC1812345678"
-        Me.txtZollbelegNr.Top = 0.647!
+        Me.txtZollbelegNr.Top = 0.04291338!
         Me.txtZollbelegNr.Width = 2.659449!
         '
         'lblWarenWertUeberschrift
         '
         Me.lblWarenWertUeberschrift.Height = 0.1574803!
         Me.lblWarenWertUeberschrift.HyperLink = Nothing
-        Me.lblWarenWertUeberschrift.Left = 0.0003858209!
+        Me.lblWarenWertUeberschrift.Left = 2.910383E-11!
         Me.lblWarenWertUeberschrift.Name = "lblWarenWertUeberschrift"
         Me.lblWarenWertUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
     "har-set: 1"
         Me.lblWarenWertUeberschrift.Text = "Warenwert:"
-        Me.lblWarenWertUeberschrift.Top = 0.8044803!
+        Me.lblWarenWertUeberschrift.Top = 0.2003937!
         Me.lblWarenWertUeberschrift.Width = 0.9366142!
         '
         'txtWarenwert
         '
         Me.txtWarenwert.Height = 0.1574803!
-        Me.txtWarenwert.Left = 0.937001!
+        Me.txtWarenwert.Left = 0.9366152!
         Me.txtWarenwert.Name = "txtWarenwert"
         Me.txtWarenwert.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
     "-set: 1"
         Me.txtWarenwert.Text = "1.234,56 <20>"
-        Me.txtWarenwert.Top = 0.8044803!
+        Me.txtWarenwert.Top = 0.2003937!
         Me.txtWarenwert.Width = 2.659449!
         '
         'txtGrenzeUeberschrift
         '
         Me.txtGrenzeUeberschrift.Height = 0.1574803!
         Me.txtGrenzeUeberschrift.HyperLink = Nothing
-        Me.txtGrenzeUeberschrift.Left = 3.596449!
+        Me.txtGrenzeUeberschrift.Left = 3.596063!
         Me.txtGrenzeUeberschrift.Name = "txtGrenzeUeberschrift"
         Me.txtGrenzeUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
     "har-set: 1"
         Me.txtGrenzeUeberschrift.Text = "Ort der Leistung:"
-        Me.txtGrenzeUeberschrift.Top = 0.647!
+        Me.txtGrenzeUeberschrift.Top = 0.04291338!
         Me.txtGrenzeUeberschrift.Width = 1.020079!
         '
         'txtGrenze
         '
         Me.txtGrenze.Height = 0.1574803!
-        Me.txtGrenze.Left = 4.616528!
+        Me.txtGrenze.Left = 4.616142!
         Me.txtGrenze.Name = "txtGrenze"
         Me.txtGrenze.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
     "-set: 1"
         Me.txtGrenze.Text = "Suben Autobahngrenze"
-        Me.txtGrenze.Top = 0.647!
+        Me.txtGrenze.Top = 0.04291338!
         Me.txtGrenze.Width = 2.853938!
         '
         'txtBef<65>rderungsmittelUeberschrift
         '
         Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Height = 0.1574803!
         Me.txtBef<EFBFBD>rderungsmittelUeberschrift.HyperLink = Nothing
-        Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Left = 3.596449!
+        Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Left = 3.596063!
         Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Name = "txtBef<EFBFBD>rderungsmittelUeberschrift"
         Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
     "har-set: 1"
         Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Text = "Bef<EFBFBD>rderungsmittel:"
-        Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Top = 0.8044803!
+        Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Top = 0.2003937!
         Me.txtBef<EFBFBD>rderungsmittelUeberschrift.Width = 1.020079!
         '
         'txtBef<65>rderungsmittel
         '
         Me.txtBef<EFBFBD>rderungsmittel.Height = 0.1574803!
-        Me.txtBef<EFBFBD>rderungsmittel.Left = 4.616528!
+        Me.txtBef<EFBFBD>rderungsmittel.Left = 4.616142!
         Me.txtBef<EFBFBD>rderungsmittel.Name = "txtBef<EFBFBD>rderungsmittel"
         Me.txtBef<EFBFBD>rderungsmittel.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
     "-set: 1"
         Me.txtBef<EFBFBD>rderungsmittel.Text = "SD 456 FD"
-        Me.txtBef<EFBFBD>rderungsmittel.Top = 0.8044803!
+        Me.txtBef<EFBFBD>rderungsmittel.Top = 0.2003937!
         Me.txtBef<EFBFBD>rderungsmittel.Width = 2.853938!
         '
         'lblSendungsdatenUeberschrift
         '
         Me.lblSendungsdatenUeberschrift.Height = 0.1574803!
         Me.lblSendungsdatenUeberschrift.HyperLink = Nothing
-        Me.lblSendungsdatenUeberschrift.Left = 0.0003858209!
+        Me.lblSendungsdatenUeberschrift.Left = 2.910383E-11!
         Me.lblSendungsdatenUeberschrift.Name = "lblSendungsdatenUeberschrift"
         Me.lblSendungsdatenUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
     "har-set: 1"
         Me.lblSendungsdatenUeberschrift.Text = "Sendungs-Daten:"
-        Me.lblSendungsdatenUeberschrift.Top = 1.026921!
+        Me.lblSendungsdatenUeberschrift.Top = 0.4228344!
         Me.lblSendungsdatenUeberschrift.Width = 0.9366142!
         '
         'txtSendungsdaten
         '
         Me.txtSendungsdaten.Height = 0.1574803!
-        Me.txtSendungsdaten.Left = 0.937001!
+        Me.txtSendungsdaten.Left = 0.9366152!
         Me.txtSendungsdaten.Name = "txtSendungsdaten"
         Me.txtSendungsdaten.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
     "-set: 1"
         Me.txtSendungsdaten.Text = "1 Pk. Testartikel; 1.234 kg"
-        Me.txtSendungsdaten.Top = 1.026921!
+        Me.txtSendungsdaten.Top = 0.4228344!
         Me.txtSendungsdaten.Width = 6.543701!
         '
         'Line12
@@ -1544,28 +1463,28 @@ Partial Public Class rptRechnungDruck_MDM
         'Line13
         '
         Me.Line13.Height = 0.204331!
-        Me.Line13.Left = 7.478!
+        Me.Line13.Left = 7.477614!
         Me.Line13.LineWeight = 1.0!
         Me.Line13.Name = "Line13"
-        Me.Line13.Top = 1.416!
+        Me.Line13.Top = 0.8119134!
         Me.Line13.Width = 0!
-        Me.Line13.X1 = 7.478!
+        Me.Line13.X1 = 7.477614!
-        Me.Line13.X2 = 7.478!
+        Me.Line13.X2 = 7.477614!
-        Me.Line13.Y1 = 1.416!
+        Me.Line13.Y1 = 0.8119134!
-        Me.Line13.Y2 = 1.620331!
+        Me.Line13.Y2 = 1.016244!
         '
         'Line16
         '
         Me.Line16.Height = 0!
-        Me.Line16.Left = 0.003141727!
+        Me.Line16.Left = 0.002755906!
         Me.Line16.LineWeight = 1.0!
         Me.Line16.Name = "Line16"
-        Me.Line16.Top = 1.415504!
+        Me.Line16.Top = 0.8114173!
         Me.Line16.Width = 7.475195!
-        Me.Line16.X1 = 0.003141727!
+        Me.Line16.X1 = 0.002755906!
-        Me.Line16.X2 = 7.478337!
+        Me.Line16.X2 = 7.477951!
-        Me.Line16.Y1 = 1.415504!
+        Me.Line16.Y1 = 0.8114173!
-        Me.Line16.Y2 = 1.415504!
+        Me.Line16.Y2 = 0.8114173!
         '
         'GroupFooter4
         '
@@ -1669,12 +1588,6 @@ Partial Public Class rptRechnungDruck_MDM
         CType(Me.lbl_onlyZR_ReDatUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1725,9 +1638,6 @@ Partial Public Class rptRechnungDruck_MDM
     Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
     Public WithEvents lblFirmenbuch As GrapeCity.ActiveReports.SectionReportModel.Label
     Public WithEvents lblUID As GrapeCity.ActiveReports.SectionReportModel.Label
-    Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
-    Public WithEvents txtEmpfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
-    Public WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents txtZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents txtWarenwert As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents txtGrenze As GrapeCity.ActiveReports.SectionReportModel.TextBox
@@ -1760,9 +1670,6 @@ Partial Public Class rptRechnungDruck_MDM
     Public WithEvents lblFirmaWeb As GrapeCity.ActiveReports.SectionReportModel.Label
     Public WithEvents lblRechnung_UID_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Public WithEvents lblRechnung_Steuernummer_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
-    Public WithEvents lblAbsenderUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
-    Public WithEvents lblAvisiererUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
-    Public WithEvents lblEmpfaengerUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Public WithEvents txtGrenzeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line
     Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line

SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb

@@ -2,13 +2,18 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
     Dim _LAN = ""
     Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
     Dim LeistungsText As String
+    Dim Anzahl As Integer
+    Dim Betrag As Double
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
-    Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsText As String)
+    Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsText As String, Anzahl As Integer, Betrag As Double)
+
         ' Dieser Aufruf ist f<>r den Designer erforderlich.
         InitializeComponent()
         Me._LAN = _LAN
         Me.RECHNUNG = RECHNUNG
         Me.LeistungsText = LeistungsText
+        Me.Anzahl = Anzahl
+        Me.Betrag = Betrag
         ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
     End Sub
     Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
@@ -33,12 +38,12 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
 
             If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString
             If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString
-            If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= CDbl(Me.Fields.Item("clmnReBetrag").Value).ToString("N2")
+            If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnReBetrag").Value) AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= CDbl(Me.Fields.Item("clmnReBetrag").Value).ToString("N2")
             If Me.Fields.Item("clmnFaellig") IsNot Nothing AndAlso Me.Fields.Item("clmnFaellig").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnFaellig").Value) Then txtFaellig.Text &= CDate(Me.Fields.Item("clmnFaellig").Value).ToShortDateString
             If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString
             If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString
-            If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2")
+            If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnZinsen").Value) AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2")
-            If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & " %"
+            If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnVZ").Value) Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & " %"
 
         End If
     End Sub
@@ -61,15 +66,26 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
         RECHNUNG.ORDER_POSITIONEN()
 
         If RECHNUNG.POSITIONEN.Any() Then
-            Dim dtTemp As DataTable
-            dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and FORMAT(id, '00000') +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
 
-            For Each rg As DataRow In dtTemp.Rows
+            If Anzahl > 0 AndAlso LeistungsText.Contains("Zinsnachbelastung") AndAlso LeistungsText.Contains("Rabatt") AndAlso Betrag <> 0 Then
-                dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
+
-            Next
+                dt.Rows.Add("0", "Rabatt", RECHNUNG.Abfertigungsdatum.ToShortDateString, LeistungsText, "", "", "", Betrag.ToString, "", "")
+                'dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
+
+            Else
+
+                Dim dtTemp As DataTable
+                dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and FORMAT(id, '00000') +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
+
+                For Each rg As DataRow In dtTemp.Rows
+                    dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
+                Next
+
+            End If
 
         End If
 
+
         Me.DataSource = dt
 
     End Sub

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.7.8")>
+<Assembly: AssemblyVersion("1.4.7.9")>
-<Assembly: AssemblyFileVersion("1.4.7.8")>
+<Assembly: AssemblyFileVersion("1.4.7.9")>

SDL/Reports/MDM/rpt_3470.Designer.vb

@@ -0,0 +1,658 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rpt_3470
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rpt_3470))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.lblTimeperiod = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblKDNumber = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblKDName = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblCountry = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblAmount = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblWaehrung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
+        Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        Me.lblWaehrung_Ges = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblSumGesamt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.lblKdName_Head = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblKdNr_Head = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblTimePeriod_Head = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblCountry_Head = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblAmount_Head = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.Line15 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.Line17 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.Line19 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.Line20 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.lblSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblWahrung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblGroup1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupHeader2 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.GroupFooter2 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        CType(Me.lblTimeperiod, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblKDNumber, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblKDName, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblCountry, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblAmount, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblWaehrung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblWaehrung_Ges, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblSumGesamt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblKdName_Head, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblKdNr_Head, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblTimePeriod_Head, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblCountry_Head, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblAmount_Head, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0.06249999!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Detail
+        '
+        Me.Detail.BackColor = System.Drawing.Color.White
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblTimeperiod, Me.lblKDNumber, Me.lblKDName, Me.lblCountry, Me.lblAmount, Me.lblWaehrung})
+        Me.Detail.Height = 0.200361!
+        Me.Detail.KeepTogether = True
+        Me.Detail.Name = "Detail"
+        '
+        'lblTimeperiod
+        '
+        Me.lblTimeperiod.Height = 0.1795276!
+        Me.lblTimeperiod.HyperLink = Nothing
+        Me.lblTimeperiod.Left = 2.73937!
+        Me.lblTimeperiod.MultiLine = False
+        Me.lblTimeperiod.Name = "lblTimeperiod"
+        Me.lblTimeperiod.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: center; ddo-char-s" &
+    "et: 1"
+        Me.lblTimeperiod.Text = "-"
+        Me.lblTimeperiod.Top = 0!
+        Me.lblTimeperiod.Width = 2.802755!
+        '
+        'lblKDNumber
+        '
+        Me.lblKDNumber.DataField = ""
+        Me.lblKDNumber.Height = 0.1795276!
+        Me.lblKDNumber.HyperLink = Nothing
+        Me.lblKDNumber.Left = 0.005118111!
+        Me.lblKDNumber.Name = "lblKDNumber"
+        Me.lblKDNumber.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: center; vertical-a" &
+    "lign: middle; ddo-char-set: 1"
+        Me.lblKDNumber.Text = "-"
+        Me.lblKDNumber.Top = 0!
+        Me.lblKDNumber.Width = 0.81063!
+        '
+        'lblKDName
+        '
+        Me.lblKDName.DataField = ""
+        Me.lblKDName.Height = 0.1795276!
+        Me.lblKDName.HyperLink = Nothing
+        Me.lblKDName.Left = 0.8157481!
+        Me.lblKDName.MultiLine = False
+        Me.lblKDName.Name = "lblKDName"
+        Me.lblKDName.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set" &
+    ": 1"
+        Me.lblKDName.Text = "-"
+        Me.lblKDName.Top = 0!
+        Me.lblKDName.Width = 1.923622!
+        '
+        'lblCountry
+        '
+        Me.lblCountry.DataField = ""
+        Me.lblCountry.DistinctField = ""
+        Me.lblCountry.Height = 0.1795276!
+        Me.lblCountry.Left = 5.542126!
+        Me.lblCountry.MultiLine = False
+        Me.lblCountry.Name = "lblCountry"
+        Me.lblCountry.Style = "color: Black; font-size: 8pt; text-align: center; ddo-char-set: 1"
+        Me.lblCountry.SummaryGroup = ""
+        Me.lblCountry.Text = Nothing
+        Me.lblCountry.Top = 0!
+        Me.lblCountry.Width = 1.505513!
+        '
+        'lblAmount
+        '
+        Me.lblAmount.DataField = ""
+        Me.lblAmount.DistinctField = ""
+        Me.lblAmount.Height = 0.1795276!
+        Me.lblAmount.Left = 7.481497!
+        Me.lblAmount.Name = "lblAmount"
+        Me.lblAmount.Style = "color: Black; font-size: 8pt; text-align: right; vertical-align: middle; ddo-char" &
+    "-set: 1"
+        Me.lblAmount.SummaryGroup = ""
+        Me.lblAmount.Text = Nothing
+        Me.lblAmount.Top = 0!
+        Me.lblAmount.Width = 0.7736225!
+        '
+        'lblWaehrung
+        '
+        Me.lblWaehrung.DistinctField = ""
+        Me.lblWaehrung.Height = 0.1795276!
+        Me.lblWaehrung.Left = 7.099607!
+        Me.lblWaehrung.Name = "lblWaehrung"
+        Me.lblWaehrung.Style = "color: Black; font-size: 8pt; text-align: left; vertical-align: middle; ddo-char-" &
+    "set: 1"
+        Me.lblWaehrung.SummaryGroup = ""
+        Me.lblWaehrung.Text = Nothing
+        Me.lblWaehrung.Top = 0!
+        Me.lblWaehrung.Width = 0.3401577!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'Label28
+        '
+        Me.Label28.Height = 0.1330709!
+        Me.Label28.HyperLink = Nothing
+        Me.Label28.Left = 2.014173!
+        Me.Label28.Name = "Label28"
+        Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
+        Me.Label28.Text = "VERAG 360 GmbH"
+        Me.Label28.Top = 0.08622048!
+        Me.Label28.Width = 2.794095!
+        '
+        'Line2
+        '
+        Me.Line2.Height = 0!
+        Me.Line2.Left = 0!
+        Me.Line2.LineWeight = 1.0!
+        Me.Line2.Name = "Line2"
+        Me.Line2.Top = 0.03070866!
+        Me.Line2.Width = 8.267716!
+        Me.Line2.X1 = 0!
+        Me.Line2.X2 = 8.267716!
+        Me.Line2.Y1 = 0.03070866!
+        Me.Line2.Y2 = 0.03070866!
+        '
+        'ReportInfo2
+        '
+        Me.ReportInfo2.FormatString = "Page {PageNumber} from {PageCount} Pages"
+        Me.ReportInfo2.Height = 0.1330709!
+        Me.ReportInfo2.Left = 5.829922!
+        Me.ReportInfo2.Name = "ReportInfo2"
+        Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
+        Me.ReportInfo2.Top = 0.08622048!
+        Me.ReportInfo2.Width = 2.437842!
+        '
+        'lblDat
+        '
+        Me.lblDat.Height = 0.1330708!
+        Me.lblDat.HyperLink = Nothing
+        Me.lblDat.Left = 0.01023622!
+        Me.lblDat.Name = "lblDat"
+        Me.lblDat.Style = "font-size: 8pt; text-align: left"
+        Me.lblDat.Text = "Mittwoch, 02.11.2016"
+        Me.lblDat.Top = 0.08622044!
+        Me.lblDat.Width = 2.649606!
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3})
+        Me.ReportHeader1.Height = 0.719817!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'picVERAG
+        '
+        Me.picVERAG.Height = 0.3751969!
+        Me.picVERAG.HyperLink = Nothing
+        Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
+        Me.picVERAG.Left = 0!
+        Me.picVERAG.Name = "picVERAG"
+        Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.picVERAG.Top = 0!
+        Me.picVERAG.Width = 2.240158!
+        '
+        'Label3
+        '
+        Me.Label3.Height = 0.2311024!
+        Me.Label3.HyperLink = Nothing
+        Me.Label3.Left = 0.01023622!
+        Me.Label3.Name = "Label3"
+        Me.Label3.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 0"
+        Me.Label3.Text = "Account No. 3470"
+        Me.Label3.Top = 0.4275591!
+        Me.Label3.Width = 3.559843!
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.CanShrink = True
+        Me.ReportFooter1.Height = 0!
+        Me.ReportFooter1.KeepTogether = True
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'lblWaehrung_Ges
+        '
+        Me.lblWaehrung_Ges.DistinctField = ""
+        Me.lblWaehrung_Ges.Height = 0.1795276!
+        Me.lblWaehrung_Ges.Left = 6.155118!
+        Me.lblWaehrung_Ges.Name = "lblWaehrung_Ges"
+        Me.lblWaehrung_Ges.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
+    " 1"
+        Me.lblWaehrung_Ges.SummaryGroup = ""
+        Me.lblWaehrung_Ges.Text = Nothing
+        Me.lblWaehrung_Ges.Top = 9.313226E-9!
+        Me.lblWaehrung_Ges.Width = 1.05!
+        '
+        'lblSumGesamt
+        '
+        Me.lblSumGesamt.DistinctField = ""
+        Me.lblSumGesamt.Height = 0.1795276!
+        Me.lblSumGesamt.Left = 7.205119!
+        Me.lblSumGesamt.Name = "lblSumGesamt"
+        Me.lblSumGesamt.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
+    " 1"
+        Me.lblSumGesamt.SummaryGroup = ""
+        Me.lblSumGesamt.Text = "10.000.000"
+        Me.lblSumGesamt.Top = 0.08070867!
+        Me.lblSumGesamt.Width = 1.05!
+        '
+        'Line3
+        '
+        Me.Line3.Height = 0.00000002235174!
+        Me.Line3.Left = 5.529528!
+        Me.Line3.LineWeight = 1.0!
+        Me.Line3.Name = "Line3"
+        Me.Line3.Top = 0.08070867!
+        Me.Line3.Width = 2.725592!
+        Me.Line3.X1 = 5.529528!
+        Me.Line3.X2 = 8.255119!
+        Me.Line3.Y1 = 0.08070869!
+        Me.Line3.Y2 = 0.08070867!
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKdName_Head, Me.lblKdNr_Head, Me.lblTimePeriod_Head, Me.lblCountry_Head, Me.lblAmount_Head, Me.Line12, Me.Line14, Me.Line15, Me.Line16, Me.Line17, Me.Line18, Me.Line19, Me.Line20})
+        Me.GroupHeader1.Height = 0.227592!
+        Me.GroupHeader1.KeepTogether = True
+        Me.GroupHeader1.Name = "GroupHeader1"
+        '
+        'lblKdName_Head
+        '
+        Me.lblKdName_Head.Height = 0.1795276!
+        Me.lblKdName_Head.HyperLink = Nothing
+        Me.lblKdName_Head.Left = 0.7866142!
+        Me.lblKdName_Head.Name = "lblKdName_Head"
+        Me.lblKdName_Head.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.lblKdName_Head.Text = "Name"
+        Me.lblKdName_Head.Top = 0!
+        Me.lblKdName_Head.Width = 1.951969!
+        '
+        'lblKdNr_Head
+        '
+        Me.lblKdNr_Head.Height = 0.1795276!
+        Me.lblKdNr_Head.HyperLink = Nothing
+        Me.lblKdNr_Head.Left = 0.01023622!
+        Me.lblKdNr_Head.Name = "lblKdNr_Head"
+        Me.lblKdNr_Head.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.lblKdNr_Head.Text = "Number"
+        Me.lblKdNr_Head.Top = 0!
+        Me.lblKdNr_Head.Width = 0.7429135!
+        '
+        'lblTimePeriod_Head
+        '
+        Me.lblTimePeriod_Head.DataField = ""
+        Me.lblTimePeriod_Head.DistinctField = ""
+        Me.lblTimePeriod_Head.Height = 0.1795276!
+        Me.lblTimePeriod_Head.Left = 2.73937!
+        Me.lblTimePeriod_Head.Name = "lblTimePeriod_Head"
+        Me.lblTimePeriod_Head.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
+    ": 1"
+        Me.lblTimePeriod_Head.SummaryGroup = ""
+        Me.lblTimePeriod_Head.Text = "Time Period"
+        Me.lblTimePeriod_Head.Top = 0!
+        Me.lblTimePeriod_Head.Width = 2.802756!
+        '
+        'lblCountry_Head
+        '
+        Me.lblCountry_Head.DataField = ""
+        Me.lblCountry_Head.DistinctField = ""
+        Me.lblCountry_Head.Height = 0.1795276!
+        Me.lblCountry_Head.Left = 5.542126!
+        Me.lblCountry_Head.Name = "lblCountry_Head"
+        Me.lblCountry_Head.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
+    ": 1"
+        Me.lblCountry_Head.SummaryGroup = ""
+        Me.lblCountry_Head.Text = "Country"
+        Me.lblCountry_Head.Top = 0!
+        Me.lblCountry_Head.Width = 1.519685!
+        '
+        'lblAmount_Head
+        '
+        Me.lblAmount_Head.DataField = ""
+        Me.lblAmount_Head.DistinctField = ""
+        Me.lblAmount_Head.Height = 0.1795276!
+        Me.lblAmount_Head.Left = 7.148032!
+        Me.lblAmount_Head.Name = "lblAmount_Head"
+        Me.lblAmount_Head.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
+    ": 1"
+        Me.lblAmount_Head.SummaryGroup = ""
+        Me.lblAmount_Head.Text = "Amount"
+        Me.lblAmount_Head.Top = 0!
+        Me.lblAmount_Head.Width = 1.149607!
+        '
+        'Line12
+        '
+        Me.Line12.Height = 0.1795276!
+        Me.Line12.Left = 0.01023622!
+        Me.Line12.LineWeight = 1.0!
+        Me.Line12.Name = "Line12"
+        Me.Line12.Top = 0!
+        Me.Line12.Width = 0!
+        Me.Line12.X1 = 0.01023622!
+        Me.Line12.X2 = 0.01023622!
+        Me.Line12.Y1 = 0.1795276!
+        Me.Line12.Y2 = 0!
+        '
+        'Line14
+        '
+        Me.Line14.Height = 0.1795276!
+        Me.Line14.Left = 7.099607!
+        Me.Line14.LineWeight = 1.0!
+        Me.Line14.Name = "Line14"
+        Me.Line14.Top = 0.00000004470348!
+        Me.Line14.Width = 0!
+        Me.Line14.X1 = 7.099607!
+        Me.Line14.X2 = 7.099607!
+        Me.Line14.Y1 = 0.1795276!
+        Me.Line14.Y2 = 0.00000004470348!
+        '
+        'Line15
+        '
+        Me.Line15.Height = 0.1755905!
+        Me.Line15.Left = 8.297638!
+        Me.Line15.LineWeight = 1.0!
+        Me.Line15.Name = "Line15"
+        Me.Line15.Top = 0.003937106!
+        Me.Line15.Width = 0!
+        Me.Line15.X1 = 8.297638!
+        Me.Line15.X2 = 8.297638!
+        Me.Line15.Y1 = 0.1795276!
+        Me.Line15.Y2 = 0.003937106!
+        '
+        'Line16
+        '
+        Me.Line16.Height = 0.1795276!
+        Me.Line16.Left = 0.7866142!
+        Me.Line16.LineWeight = 1.0!
+        Me.Line16.Name = "Line16"
+        Me.Line16.Top = 0!
+        Me.Line16.Width = 0.000787437!
+        Me.Line16.X1 = 0.7874016!
+        Me.Line16.X2 = 0.7866142!
+        Me.Line16.Y1 = 0.1795276!
+        Me.Line16.Y2 = 0!
+        '
+        'Line17
+        '
+        Me.Line17.Height = 0.1795275!
+        Me.Line17.Left = 5.542126!
+        Me.Line17.LineWeight = 1.0!
+        Me.Line17.Name = "Line17"
+        Me.Line17.Top = 0.0000001192093!
+        Me.Line17.Width = 0!
+        Me.Line17.X1 = 5.542126!
+        Me.Line17.X2 = 5.542126!
+        Me.Line17.Y1 = 0.1795276!
+        Me.Line17.Y2 = 0.0000001192093!
+        '
+        'Line18
+        '
+        Me.Line18.Height = 0.003937008!
+        Me.Line18.Left = 0!
+        Me.Line18.LineWeight = 1.0!
+        Me.Line18.Name = "Line18"
+        Me.Line18.Top = 0!
+        Me.Line18.Width = 8.297638!
+        Me.Line18.X1 = 0!
+        Me.Line18.X2 = 8.297638!
+        Me.Line18.Y1 = 0.003937008!
+        Me.Line18.Y2 = 0!
+        '
+        'Line19
+        '
+        Me.Line19.Height = 0!
+        Me.Line19.Left = 0!
+        Me.Line19.LineWeight = 1.0!
+        Me.Line19.Name = "Line19"
+        Me.Line19.Top = 0.1795276!
+        Me.Line19.Width = 8.297638!
+        Me.Line19.X1 = 0!
+        Me.Line19.X2 = 8.297638!
+        Me.Line19.Y1 = 0.1795276!
+        Me.Line19.Y2 = 0.1795276!
+        '
+        'Line20
+        '
+        Me.Line20.Height = 0.1795276!
+        Me.Line20.Left = 2.738582!
+        Me.Line20.LineWeight = 1.0!
+        Me.Line20.Name = "Line20"
+        Me.Line20.Top = 0!
+        Me.Line20.Width = 0.0007882118!
+        Me.Line20.X1 = 2.73937!
+        Me.Line20.X2 = 2.738582!
+        Me.Line20.Y1 = 0.1795276!
+        Me.Line20.Y2 = 0!
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblSumme, Me.lblWahrung, Me.lblGroup1})
+        Me.GroupFooter1.Height = 0.2917323!
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'Line1
+        '
+        Me.Line1.Height = 0!
+        Me.Line1.Left = 5.542126!
+        Me.Line1.LineWeight = 1.0!
+        Me.Line1.Name = "Line1"
+        Me.Line1.Top = 0.09251969!
+        Me.Line1.Width = 2.72559!
+        Me.Line1.X1 = 5.542126!
+        Me.Line1.X2 = 8.267716!
+        Me.Line1.Y1 = 0.09251969!
+        Me.Line1.Y2 = 0.09251969!
+        '
+        'lblSumme
+        '
+        Me.lblSumme.DataField = ""
+        Me.lblSumme.DistinctField = ""
+        Me.lblSumme.Height = 0.1795276!
+        Me.lblSumme.Left = 7.217717!
+        Me.lblSumme.Name = "lblSumme"
+        Me.lblSumme.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
+    " 1"
+        Me.lblSumme.SummaryGroup = ""
+        Me.lblSumme.Text = "10.000.000"
+        Me.lblSumme.Top = 0.1122047!
+        Me.lblSumme.Width = 1.05!
+        '
+        'lblWahrung
+        '
+        Me.lblWahrung.DataField = ""
+        Me.lblWahrung.DistinctField = ""
+        Me.lblWahrung.Height = 0.1795276!
+        Me.lblWahrung.Left = 6.560236!
+        Me.lblWahrung.Name = "lblWahrung"
+        Me.lblWahrung.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
+    " 1"
+        Me.lblWahrung.SummaryGroup = ""
+        Me.lblWahrung.Text = Nothing
+        Me.lblWahrung.Top = 0.1122047!
+        Me.lblWahrung.Width = 0.4874015!
+        '
+        'lblGroup1
+        '
+        Me.lblGroup1.DistinctField = ""
+        Me.lblGroup1.Height = 0.1795276!
+        Me.lblGroup1.Left = 5.542126!
+        Me.lblGroup1.Name = "lblGroup1"
+        Me.lblGroup1.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
+    " 1"
+        Me.lblGroup1.SummaryGroup = ""
+        Me.lblGroup1.Text = Nothing
+        Me.lblGroup1.Top = 0.1122047!
+        Me.lblGroup1.Width = 0.4874015!
+        '
+        'GroupHeader2
+        '
+        Me.GroupHeader2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFirma})
+        Me.GroupHeader2.Height = 0.1944717!
+        Me.GroupHeader2.Name = "GroupHeader2"
+        '
+        'lblFirma
+        '
+        Me.lblFirma.Height = 0.2070866!
+        Me.lblFirma.HyperLink = Nothing
+        Me.lblFirma.Left = 0!
+        Me.lblFirma.Name = "lblFirma"
+        Me.lblFirma.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
+        Me.lblFirma.Style = "background-color: #003680; color: White; font-size: 10pt; font-weight: bold; text" &
+    "-align: left; vertical-align: middle"
+        Me.lblFirma.Text = ""
+        Me.lblFirma.Top = 0!
+        Me.lblFirma.Width = 8.297638!
+        '
+        'GroupFooter2
+        '
+        Me.GroupFooter2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblWaehrung_Ges, Me.lblSumGesamt, Me.Line3})
+        Me.GroupFooter2.Height = 0.2604167!
+        Me.GroupFooter2.KeepTogether = True
+        Me.GroupFooter2.Name = "GroupFooter2"
+        '
+        'rpt_3470
+        '
+        Me.MasterReport = False
+        Me.PageSettings.DefaultPaperSize = False
+        Me.PageSettings.Margins.Bottom = 0.1968504!
+        Me.PageSettings.Margins.Left = 0.1968504!
+        Me.PageSettings.Margins.Right = 0.1968504!
+        Me.PageSettings.Margins.Top = 0.1968504!
+        Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
+        Me.PageSettings.PaperHeight = 11.69291!
+        Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
+        Me.PageSettings.PaperWidth = 8.267716!
+        Me.PrintWidth = 8.816929!
+        Me.Sections.Add(Me.ReportHeader1)
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.GroupHeader2)
+        Me.Sections.Add(Me.GroupHeader1)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter1)
+        Me.Sections.Add(Me.GroupFooter2)
+        Me.Sections.Add(Me.PageFooter)
+        Me.Sections.Add(Me.ReportFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.lblTimeperiod, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblKDNumber, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblKDName, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblCountry, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblAmount, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblWaehrung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblWaehrung_Ges, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblSumGesamt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblKdName_Head, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblKdNr_Head, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblTimePeriod_Head, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblCountry_Head, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblAmount_Head, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblGroup1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Public WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
+    Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Public WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Public WithEvents lblKDNumber As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblKDName As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents lblKdNr_Head As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Public WithEvents GroupFooter2 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Public WithEvents GroupHeader2 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents lblTimePeriod_Head As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents lblCountry_Head As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents lblSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents lblCountry As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents lblAmount As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents lblAmount_Head As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents lblWahrung As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents Line14 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents Line17 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents Line19 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents lblKdName_Head As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Line20 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Public WithEvents lblTimeperiod As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblWaehrung As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents lblSumGesamt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Public WithEvents lblWaehrung_Ges As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents lblGroup1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class

SDL/Reports/MDM/rpt_3470.vb

@@ -0,0 +1,8 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rpt_3470
+    Private Sub rptMWSTListe_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
+
+    End Sub
+End Class

SDL/SDL.vbproj

@@ -1020,6 +1020,12 @@
       <DesignTime>True</DesignTime>
       <DependentUpon>Resources.resx</DependentUpon>
     </Compile>
+    <Compile Include="Reports\MDM\rpt_3470.Designer.vb">
+      <DependentUpon>rpt_3470.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Reports\MDM\rpt_3470.vb">
+      <SubType>Component</SubType>
+    </Compile>
     <Compile Include="Reports\MDM\rptMWSTListe.Designer.vb">
       <DependentUpon>rptMWSTListe.vb</DependentUpon>
     </Compile>
@@ -3612,6 +3618,9 @@
     <EmbeddedResource Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_MEDPASS.resx">
       <DependentUpon>subrptBriefSDL_PLOSE_MEDPASS.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Reports\MDM\rpt_3470.resx">
+      <DependentUpon>rpt_3470.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Reports\MDM\rptMWSTListe.resx">
       <DependentUpon>rptMWSTListe.vb</DependentUpon>
     </EmbeddedResource>

SDL/USTV/usrCntlUSTV.Designer.vb

@@ -71,6 +71,8 @@ Partial Class usrCntlUSTV
         Me.btnUSTVAloeschen = New System.Windows.Forms.Button()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.btn3470 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.btnVorschau = New System.Windows.Forms.Button()
@@ -81,7 +83,7 @@ Partial Class usrCntlUSTV
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.Button4 = New System.Windows.Forms.Button()
+        Me.ContextMenuStrip4 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -770,6 +772,7 @@ Partial Class usrCntlUSTV
         'Panel3
         '
         Me.Panel3.AutoSize = True
+        Me.Panel3.Controls.Add(Me.btn3470)
         Me.Panel3.Controls.Add(Me.Button4)
         Me.Panel3.Controls.Add(Me.Button3)
         Me.Panel3.Controls.Add(Me.Button2)
@@ -787,6 +790,33 @@ Partial Class usrCntlUSTV
         Me.Panel3.Size = New System.Drawing.Size(1627, 77)
         Me.Panel3.TabIndex = 0
         '
+        'btn3470
+        '
+        Me.btn3470.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btn3470.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn3470.ForeColor = System.Drawing.Color.Black
+        Me.btn3470.Location = New System.Drawing.Point(862, 5)
+        Me.btn3470.Name = "btn3470"
+        Me.btn3470.Size = New System.Drawing.Size(114, 39)
+        Me.btn3470.TabIndex = 30
+        Me.btn3470.Text = "3470"
+        Me.btn3470.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button4.Location = New System.Drawing.Point(367, 7)
+        Me.Button4.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(128, 41)
+        Me.Button4.TabIndex = 29
+        Me.Button4.Text = "Nicht Eingereichte Anträge"
+        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        Me.Button4.UseVisualStyleBackColor = True
+        '
         'Button3
         '
         Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -897,20 +927,10 @@ Partial Class usrCntlUSTV
         Me.ContextMenuStrip3.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip3.Size = New System.Drawing.Size(61, 4)
         '
-        'Button4
+        'ContextMenuStrip4
         '
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.ContextMenuStrip4.Name = "ContextMenuStrip1"
-        Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small
+        Me.ContextMenuStrip4.Size = New System.Drawing.Size(61, 4)
-        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button4.Location = New System.Drawing.Point(367, 7)
-        Me.Button4.Margin = New System.Windows.Forms.Padding(0)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(128, 41)
-        Me.Button4.TabIndex = 29
-        Me.Button4.Text = "Nicht Eingereichte Anträge"
-        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
-        Me.Button4.UseVisualStyleBackColor = True
         '
         'usrCntlUSTV
         '
@@ -987,4 +1007,6 @@ Partial Class usrCntlUSTV
     Friend WithEvents lblID As Label
     Friend WithEvents Button3 As Button
     Friend WithEvents Button4 As Button
+    Friend WithEvents btn3470 As Button
+    Friend WithEvents ContextMenuStrip4 As ContextMenuStrip
 End Class

SDL/USTV/usrCntlUSTV.resx

@@ -769,7 +769,7 @@
         XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
         fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
         tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
-        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDwAACw8BkvkDpQAAB4JJREFUSEu9lntM1FcW
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAAB4JJREFUSEu9lntM1FcW
         x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX
         bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP
         qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql
@@ -935,4 +935,7 @@
   <metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>331, 17</value>
   </metadata>
+  <metadata name="ContextMenuStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>487, 17</value>
+  </metadata>
 </root>

SDL/USTV/usrCntlUSTV.vb

@@ -1,4 +1,6 @@
 Imports System.ComponentModel
+Imports com.sun.xml.internal.rngom
+Imports DocumentFormat.OpenXml.Drawing
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -591,7 +593,7 @@ Public Class usrCntlUSTV
 
 
 
-    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn3470.Click
 
 
         If Not ContextMenuStrip3.Items.ContainsKey("dgv") Then
@@ -600,8 +602,6 @@ Public Class usrCntlUSTV
             ContextMenuStrip3.Items.Add(dgv)
         End If
 
-
-
         If Not ContextMenuStrip3.Items.ContainsKey("excel") Then
             Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
             ContextMenuStrip3.Items.Add(excel)
@@ -620,6 +620,36 @@ Public Class usrCntlUSTV
         ContextMenuStrip3.Show(Cursor.Position)
 
 
+    End Sub
+
+    Private Sub btn3470_Click(sender As Object, e As EventArgs) Handles btn3470.Click
+
+
+        If Not ContextMenuStrip4.Items.ContainsKey("excel") Then
+            Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
+            ContextMenuStrip4.Items.Add(excel)
+            AddHandler excel.Click, AddressOf mnuItem4_Clicked
+        End If
+
+
+
+        If Not ContextMenuStrip4.Items.ContainsKey("pdf") Then
+            Dim pdf = New ToolStripMenuItem() With {.Text = "PDF", .Name = "pdf", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
+            ContextMenuStrip4.Items.Add(pdf)
+            AddHandler pdf.Click, AddressOf mnuItem4_Clicked
+        End If
+
+        If Not ContextMenuStrip4.Items.ContainsKey("mail") Then
+            Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
+            AddHandler mail.Click, AddressOf mnuItem4_Clicked
+            ContextMenuStrip4.Items.Add(mail)
+        End If
+
+
+
+        ContextMenuStrip4.Show(Cursor.Position)
+
+
     End Sub
 
 
@@ -654,7 +684,7 @@ Public Class usrCntlUSTV
 
 
         ContextMenuStrip1.Hide()
-            Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
+        Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
 
         If item IsNot Nothing Then
             If item.Name = "excel" Then
@@ -1352,6 +1382,168 @@ Public Class usrCntlUSTV
 
     End Sub
 
+    Private Sub mnuItem4_Clicked(sender As Object, e As EventArgs)
+
+        Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
+
+        If item IsNot Nothing Then
+
+            Dim sql_Query As String = ""
+
+            If kdNr > 0 Then
+                ',[UStVAn_Währungscode] as Währung
+                sql_Query = "SELECT [UStVAn_KuNr] as Kunde,[UStVAn_Name] as Name,UStVAn_LandKz, [UStVAn_ReDatVon] as von, [UStVAn_ReDatBis] as bis,LandKz as Land, [UStVAn_3470] as Betrag  FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr
+                                  where isnull([UStVAn_3470], 0) <> 0 and [UStVAn_KuNr] = " & kdNr & "
+                                  order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon]) asc,LandKz,[UStVAn_ReDatVon] asc"
+            Else
+                sql_Query = "SELECT [UStVAn_KuNr] as Kunde,[UStVAn_Name] as Name,UStVAn_LandKz, [UStVAn_ReDatVon] as von, [UStVAn_ReDatBis] as bis,LandKz as Land, [UStVAn_3470] as Betrag  FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr
+                                  where isnull([UStVAn_3470], 0) <> 0 
+                                  order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon]) asc,LandKz,[UStVAn_ReDatVon] asc"
+
+            End If
+
+            Dim dtVorschau_3470 As DataTable = SQL.loadDgvBySql(sql_Query, "FMZOLL")
+
+            If item.Name = "excel" Then
+
+                cProgramFunctions.genExcelFromDT_NEW(dtVorschau_3470, {"F1:F" & (dtVorschau_3470.Rows.Count + 1)}, False,,,, True)
+
+            ElseIf item.Name = "mail" Then
+
+                Try
+
+
+
+                    Dim outl As New Outlook.Application
+                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                    Mail = outl.CreateItem(0)
+                    Dim groupField = ""
+                    If kdNr > 0 Then
+                        groupField = "UStVAn_LandKz"
+                        Dim ADR As New cAdressen(kdNr)
+                        Mail.To = ADR.E_Mail
+                        If Mail.To <> "" AndAlso ADR.E_Mail2 <> "" Then Mail.To &= ";" & ADR.E_Mail2
+                    Else
+                        groupField = "Kunde"
+                    End If
+
+
+                    Dim filePathExcel = cProgramFunctions.genExcelFromDT_NEW(dtVorschau_3470, {"F1:F" & (dtVorschau_3470.Rows.Count + 1)}, False,,,, True,,,, False)
+                    Dim FilePath_PDF = create4870Report(dtVorschau_3470, groupField)
+
+                    Mail.Attachments.Add(filePathExcel, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, "AccountNo_4870.xslx")
+                    Mail.Attachments.Add(FilePath_PDF, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, "AccountNo_4870.pdf")
+                    Mail.Display()
+
+                Catch ex As Exception
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
+                End Try
+
+            ElseIf item.Name = "pdf" Then
+                Dim groupField = ""
+
+                If kdNr > 0 Then
+                    groupField = "UStVAn_LandKz"
+                Else
+                    groupField = "Kunde"
+
+                End If
+
+
+                create4870Report(dtVorschau_3470, groupField, True)
+
+
+            End If
+
+        End If
+
+
+
+
+    End Sub
+
+    Private Function create4870Report(dt As DataTable, GroupField As String, Optional open As Boolean = False) As String
+
+        Dim rpt As New rpt_3470
+
+        rpt.DataSource = dt
+
+        rpt.GroupHeader1.DataField = GroupField 'Gruppierung
+        rpt.GroupHeader2.DataField = Nothing
+
+        If rpt.DataSource.rows.count > 0 Then
+
+            Dim sum As Double = 0
+            Dim sumGroup As Double = 0
+            rpt.lblDat.Text = Now.ToShortDateString
+
+
+
+
+            AddHandler rpt.ReportHeader1.Format, Sub()
+                                                     If GroupField = "UStVAn_LandKz" Then
+                                                         rpt.Label3.Text &= " - " & rpt.Fields.Item("UStVAn_LandKz").Value()
+                                                     End If
+                                                 End Sub
+
+
+            AddHandler rpt.Detail.Format, Sub()
+
+                                              rpt.lblKDName.Text = rpt.Fields.Item("Name").Value()
+                                              rpt.lblKDNumber.Text = rpt.Fields.Item("Kunde").Value()
+                                              rpt.lblCountry.Text = rpt.Fields.Item("Land").Value()
+                                              rpt.lblAmount.Text = CDbl(rpt.Fields.Item("Betrag").Value()).ToString("N2") & " €"
+                                              'rpt.lblWaehrung.Text = rpt.Fields.Item("Währung").Value()
+                                              rpt.lblTimeperiod.Text = CDate((rpt.Fields.Item("von").Value())).ToShortDateString & " - " & CDate((rpt.Fields.Item("bis").Value())).ToShortDateString
+
+                                              sum += CDbl(rpt.Fields.Item("Betrag").Value()).ToString("N2")
+                                              sumGroup += CDbl(rpt.Fields.Item("Betrag").Value()).ToString("N2")
+                                          End Sub
+
+
+            AddHandler rpt.GroupFooter1.Format, Sub()
+
+                                                    If GroupField = "UStVAn_LandKz" Then
+                                                        'rpt.lblGroup1.Text = rpt.Fields.Item("UStVAn_LandKz").Value()
+                                                        rpt.lblWahrung.Text = rpt.Fields.Item("UStVAn_LandKz").Value()
+                                                    End If
+
+                                                    rpt.lblSumme.Text = sumGroup.ToString("N2") & " €"
+                                                    'rpt.lblWahrung.Text = "EUR" 'rpt.Fields.Item("Währung").Value()
+                                                    sumGroup = 0
+                                                End Sub
+
+            AddHandler rpt.GroupFooter2.Format, Sub()
+
+                                                    rpt.lblSumGesamt.Text = sum.ToString("N2") & " €"
+                                                    'rpt.lblWaehrung_Ges.Text = "EUR"
+
+                                                End Sub
+
+
+
+            Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Konto_3470" & Now.ToString("TMP_ddMMyyyy_HHmmSS") & ".pdf", ".pdf", , False)
+            Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
+            rpt.Run(False)
+            p.NeverEmbedFonts = ""
+            p.Export(rpt.Document, tmpPath)
+
+            If open Then Process.Start(tmpPath)
+
+            rpt.Dispose()
+
+            Return tmpPath
+
+        Else
+            Return ""
+
+        End If
+
+
+
+
+    End Function
+
     Private Sub btnWikiStatusmails_Click(sender As Object, e As EventArgs) Handles btnWikiStatusmails.Click
 
         Dim webAddress As String = "https://wiki.verag.ag/software/sdl/ustva"

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -456,7 +456,7 @@ Public Class frmBU_Mahnlauf
             'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False
 
 
-            rpt.lblSachbearbeiter.Text = cFakturierung.getSBRgName(FIRMA.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'If(RECHNUNG.Sachbearbeiter, "")
+            rpt.lblSachbearbeiter.Text = cFakturierung.getSBRgName(FIRMA.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) '
 
             Select Case FIRMA.Firma_ID
                 Case 19

SDL/buchhaltung/usrCntlBH.vb

@@ -847,6 +847,7 @@ Public Class usrCntlBH
                                 
                 SELECT 
                 op_debitor.i_personenkonto AS KDNR,
+                [Adressen].Ordnungsbegriff as Name,
                 op_debitor.c_urbelegid AS BelegNr, 
                 op_debitor.c_bemerkung AS Buchungstext,
                 op_debitor.d_rechnung AS Belegdatum,
@@ -871,6 +872,7 @@ Public Class usrCntlBH
 				
 				
                 FROM op_debitor INNER JOIN fibu_konto ON (op_debitor.i_personenkonto = fibu_konto.i_konto)
+                inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Adressen] on [Adressen].AdressenNr = op_debitor.i_personenkonto
                 inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenErweitert] on kde_KundenNr = op_debitor.i_personenkonto
                 left join fibu_zahlziel on dbo.fibu_zahlziel.i_firm_refid = dbo.op_debitor.i_firm_refid and dbo.fibu_zahlziel.c_zahlziel = ISNULL(fibu_konto.c_zahlziel, '0/0/20')
                 
@@ -932,7 +934,7 @@ Public Class usrCntlBH
                 Next
 
                 If counter > 0 Then
-                    MsgBox("In der Zinsberechnung befinden sich " & counter & " Positionen, die bereits abgerechnet wurden!" & vbNewLine & "Diese wurden ")
+                    MsgBox("In der Zinsberechnung befinden sich " & counter & " Positionen, die bereits abgerechnet wurden!" & vbNewLine & "Diese werden übersprungen bzw. nicht nochmals verrechnet!")
                 End If
 
                 Dim dtTemp As New DataTable
@@ -945,9 +947,27 @@ Public Class usrCntlBH
                 If dtTemp.Columns.Contains("ZZinTage") Then dtTemp.Columns.Remove("ZZinTage")
                 If dtTemp.Columns.Contains("ReZielZahlungsdatum") Then dtTemp.Columns.Remove("ReZielZahlungsdatum")
 
+                Dim dtTemp2 As New DataTable
+                dtTemp2.Columns.Add("KDNR", GetType(Int32))
+                dtTemp2.Columns.Add("Name", GetType(String))
+                dtTemp2.Columns.Add("Zinsbetrag", GetType(Decimal))
 
-                If dtTemp.Rows.Count > 0 Then
+                Dim query = From row In dtTemp.AsEnumerable()
-                    cProgramFunctions.genExcelFromDT_NEW(dtTemp, {"H1:H" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)})
+                            Group row By key = row.Field(Of Int32)("KDNR") Into grp = Group
+                            Select New With {
+                    .GroupValue = key,
+                     .KDName = grp.First().Field(Of String)("Name"),
+                    .SumValue = grp.Sum(Function(r) Convert.ToDecimal(r("Zinsbetrag")))
+                }
+
+                ' Fill the new DataTable
+                For Each item In query
+                    dtTemp2.Rows.Add(item.GroupValue, item.KDName, item.SumValue)
+                Next
+
+
+                If dtTemp.Rows.Count > 0 AndAlso dtTemp2.Rows.Count > 0 Then
+                    cProgramFunctions.genExcelFromMultibleDT_NEW(New List(Of DataTable) From {dtTemp, dtTemp2}, {"H1:H" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)})
                     txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0")
 
                     If IsNumeric(txtnichtabrechneteKunden.Text) AndAlso CInt(txtnichtabrechneteKunden.Text) > 0 Then
@@ -1224,6 +1244,13 @@ Public Class usrCntlBH
     End Sub
 
     Private Sub btnZNBverrechnen_Click(sender As Object, e As EventArgs) Handles btnZNBverrechnen.Click
+
+        If txtZRbis.Text = "" OrElse Not IsDate(txtZRbis.Text) Then
+            MsgBox("Abrechnungdatum setzen!")
+            txtZRbis.Focus()
+            Exit Sub
+        End If
+
         Dim LimitBEtrag As Integer = -1
         If txtAbBetragAbrechnen._value <> "" AndAlso IsNumeric(txtAbBetragAbrechnen._value) Then
             LimitBEtrag = CInt(txtAbBetragAbrechnen._value)
@@ -1269,7 +1296,7 @@ Public Class usrCntlBH
             End If
 
 
-            If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?" & vbNewLine & "Es werden nur Rechnungen erstellt, deren Gesamtbelastung über " & LimitBEtrag & " EUR liegt!", vbYesNoCancel) Then
+            If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung mit Abrechnungsdatum " & CDate(txtZRbis.Text).ToShortDateString & " verrechnen?" & vbNewLine & "Es werden nur Rechnungen erstellt, deren Gesamtbelastung über " & LimitBEtrag & " EUR liegt!", vbYesNoCancel) Then
 
 
 
@@ -1291,7 +1318,7 @@ Public Class usrCntlBH
                     Dim verarbOK As Boolean = True
                     Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
                     Dim RK_ID As Integer = -1
-                    If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, Now(), vermerk) Then verarbOK = False
+                    If Not gen_SPEDBUCH_ByKdNr(R("kundenNr"), SPEDBUCH, CDate(txtZRbis.Text).ToShortDateString, vermerk) Then verarbOK = False
                     If Not gen_RECHNUNG_BySPEDBUCH(R("kundenNr"), SPEDBUCH, RK_ID, Fußtext) Then verarbOK = False
 
                     If verarbOK Then
@@ -1394,7 +1421,9 @@ Public Class usrCntlBH
     Private Sub btnDel__Click(sender As Object, e As EventArgs) Handles btnDel_.Click
 
         If vbYes = MsgBox("Möchten Sie die alle nicht verrechneten Zinsbelastungen löschen?", vbYesNoCancel) Then
-            SQL.doSQL("delete from [tblMDM_Zinsberechnung] WHERE [verrechnet] Is null", "FMZOLL")
+            If SQL.doSQL("delete from [tblMDM_Zinsberechnung] WHERE [verrechnet] Is null", "FMZOLL") Then
+                txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0")
+            End If
         End If
 
     End Sub

SDL/cProgramFunctions.vb

@@ -1192,6 +1192,89 @@ Public Class cProgramFunctions
 
 
 
+            Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+            wb.SaveAs(filename)
+
+
+            If openFile Then Process.Start(filename)
+
+            Return filename
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+            Return Nothing
+        End Try
+    End Function
+
+    Public Shared Function genExcelFromMultibleDT_NEW(datatables As IEnumerable(Of DataTable), Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "", Optional Landscape As Boolean = False, Optional fitToOnePage As Boolean = False, Optional openFile As Boolean = True, Optional fitWideToOnePage As Boolean = False) As String
+        Try
+
+            Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
+            If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
+                My.Computer.FileSystem.CreateDirectory(sPath)
+            End If
+
+            Dim wb As New XLWorkbook
+            Dim counter = 0
+            For Each dt In datatables
+                wb.Worksheets.Add(dt, "DATEN" & IIf(counter > 0, "_" & counter, ""))
+                wb.Worksheets(counter).Tables.FirstOrDefault().ShowAutoFilter = ShowAutoFilter
+
+
+                If rangeAsWaehrung IsNot Nothing Then
+                    For Each r In rangeAsWaehrung
+                        Try
+                            wb.Worksheets(counter).Range(r).Style.NumberFormat.SetFormat("###,###,##0.00 " & waehrungsZeichen)
+                        Catch ex As Exception
+                            MsgBox(ex.Message & ex.StackTrace)
+                        End Try
+                    Next
+                End If
+
+                If HeaderTxt <> "" Then
+                    wb.Worksheets(counter).FirstRow.InsertRowsAbove(2)
+                    wb.Worksheets(counter).Range("A1").Value = HeaderTxt
+                    wb.Worksheets(counter).Range("A1").Style.Font.Bold = True
+
+                    If mergeHeadersToCell <> "" Then
+                        wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Merge()
+                        wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Style.Alignment.Horizontal = XLAlignmentHorizontalValues.Center
+                        wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
+                        wb.Worksheets(counter).Range("A1:" & mergeHeadersToCell & "1").Style.Alignment.WrapText = True
+                    End If
+
+                    If HeaderTxt2 <> "" Then
+                        wb.Worksheets(counter).Range("A2").Value = HeaderTxt2
+                        wb.Worksheets(counter).Row(2).InsertRowsBelow(1)
+
+                        If mergeHeadersToCell <> "" Then
+                            wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Merge()
+                            wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Style.Alignment.Horizontal = XLAlignmentHorizontalValues.Center
+                            wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Style.Alignment.Vertical = XLAlignmentVerticalValues.Center
+                            wb.Worksheets(counter).Range("A2:" & mergeHeadersToCell & "2").Style.Alignment.WrapText = True
+                        End If
+
+                    End If
+
+                End If
+
+                If fitCellsToContent Then
+                    wb.Worksheets(counter).Columns().AdjustToContents()
+                    wb.Worksheets(counter).Rows().AdjustToContents()
+                End If
+
+                If Landscape Then
+                    wb.Worksheets(counter).PageSetup.PageOrientation = XLPageOrientation.Landscape
+                Else
+                    wb.Worksheets(counter).PageSetup.PageOrientation = XLPageOrientation.Default
+                End If
+
+                If fitToOnePage Then wb.Worksheets(counter).PageSetup.PagesWide = 1 : wb.Worksheets(counter).PageSetup.PagesTall = 1 ' In die Höhe/Breite auf eine Seite anpassen
+                If fitWideToOnePage Then wb.Worksheets(counter).PageSetup.PagesWide = 1
+
+                counter += 1
+            Next
+
+
             Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
             wb.SaveAs(filename)
 

SDL/kunden/frmKundenblatt.Designer.vb

@@ -56,6 +56,9 @@ Partial Class frmKundenblatt
         Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
         Me.tbcntrMain = New System.Windows.Forms.TabControl()
         Me.tbAllgemein = New System.Windows.Forms.TabPage()
+        Me.txtEmailRE = New System.Windows.Forms.TextBox()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.PictureBox8 = New System.Windows.Forms.PictureBox()
         Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label39 = New System.Windows.Forms.Label()
@@ -251,6 +254,7 @@ Partial Class frmKundenblatt
         Me.Panel4.SuspendLayout()
         Me.tbcntrMain.SuspendLayout()
         Me.tbAllgemein.SuspendLayout()
+        CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
         CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -334,7 +338,7 @@ Partial Class frmKundenblatt
         Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
         Me.tbFirmendaten.Name = "tbFirmendaten"
         Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 928)
+        Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 945)
         Me.tbFirmendaten.TabIndex = 3
         Me.tbFirmendaten.Text = "Firmendaten"
         '
@@ -344,7 +348,7 @@ Partial Class frmKundenblatt
         Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel4.Location = New System.Drawing.Point(3, 3)
         Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(1638, 922)
+        Me.Panel4.Size = New System.Drawing.Size(1638, 939)
         Me.Panel4.TabIndex = 0
         '
         'UsrcntlKundeBearbeitenFull1
@@ -354,7 +358,7 @@ Partial Class frmKundenblatt
         Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
         Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
-        Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 922)
+        Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 939)
         Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
         '
         'tbcntrMain
@@ -374,12 +378,15 @@ Partial Class frmKundenblatt
         Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
         Me.tbcntrMain.Name = "tbcntrMain"
         Me.tbcntrMain.SelectedIndex = 0
-        Me.tbcntrMain.Size = New System.Drawing.Size(1652, 974)
+        Me.tbcntrMain.Size = New System.Drawing.Size(1652, 991)
         Me.tbcntrMain.TabIndex = 3
         '
         'tbAllgemein
         '
         Me.tbAllgemein.BackColor = System.Drawing.Color.White
+        Me.tbAllgemein.Controls.Add(Me.txtEmailRE)
+        Me.tbAllgemein.Controls.Add(Me.TextBox1)
+        Me.tbAllgemein.Controls.Add(Me.PictureBox8)
         Me.tbAllgemein.Controls.Add(Me.FlatButton6)
         Me.tbAllgemein.Controls.Add(Me.lblBonitaet)
         Me.tbAllgemein.Controls.Add(Me.Label39)
@@ -415,10 +422,47 @@ Partial Class frmKundenblatt
         Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
         Me.tbAllgemein.Name = "tbAllgemein"
         Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbAllgemein.Size = New System.Drawing.Size(1644, 945)
+        Me.tbAllgemein.Size = New System.Drawing.Size(1644, 962)
         Me.tbAllgemein.TabIndex = 0
         Me.tbAllgemein.Text = "Allgemein"
         '
+        'txtEmailRE
+        '
+        Me.txtEmailRE.BackColor = System.Drawing.Color.White
+        Me.txtEmailRE.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtEmailRE.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.txtEmailRE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtEmailRE.Location = New System.Drawing.Point(38, 385)
+        Me.txtEmailRE.Name = "txtEmailRE"
+        Me.txtEmailRE.ReadOnly = True
+        Me.txtEmailRE.Size = New System.Drawing.Size(384, 19)
+        Me.txtEmailRE.TabIndex = 194
+        Me.txtEmailRE.Text = "email-Rechnung"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.BackColor = System.Drawing.Color.White
+        Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.TextBox1.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBox1.Location = New System.Drawing.Point(36, 360)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.ReadOnly = True
+        Me.TextBox1.Size = New System.Drawing.Size(384, 19)
+        Me.TextBox1.TabIndex = 193
+        Me.TextBox1.Text = "Rechnungen an:"
+        '
+        'PictureBox8
+        '
+        Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.PictureBox8.Image = Global.SDL.My.Resources.Resources.email
+        Me.PictureBox8.Location = New System.Drawing.Point(8, 360)
+        Me.PictureBox8.Name = "PictureBox8"
+        Me.PictureBox8.Size = New System.Drawing.Size(22, 18)
+        Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox8.TabIndex = 192
+        Me.PictureBox8.TabStop = False
+        '
         'FlatButton6
         '
         Me.FlatButton6.allowBorder = False
@@ -427,7 +471,7 @@ Partial Class frmKundenblatt
         Me.FlatButton6.FlatAppearance.BorderSize = 0
         Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.FlatButton6.ForeColor = System.Drawing.Color.Black
-        Me.FlatButton6.Location = New System.Drawing.Point(708, 547)
+        Me.FlatButton6.Location = New System.Drawing.Point(700, 451)
         Me.FlatButton6.Name = "FlatButton6"
         Me.FlatButton6.Size = New System.Drawing.Size(15, 12)
         Me.FlatButton6.TabIndex = 191
@@ -451,7 +495,7 @@ Partial Class frmKundenblatt
         Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblBonitaet.ForeColor = System.Drawing.Color.Black
-        Me.lblBonitaet.Location = New System.Drawing.Point(648, 546)
+        Me.lblBonitaet.Location = New System.Drawing.Point(640, 450)
         Me.lblBonitaet.MaxLineLength = -1
         Me.lblBonitaet.MaxLines_Warning = ""
         Me.lblBonitaet.MaxLines_Warning_Label = Nothing
@@ -465,7 +509,7 @@ Partial Class frmKundenblatt
         '
         Me.Label39.AutoSize = True
         Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label39.Location = New System.Drawing.Point(591, 546)
+        Me.Label39.Location = New System.Drawing.Point(583, 450)
         Me.Label39.Name = "Label39"
         Me.Label39.Size = New System.Drawing.Size(43, 13)
         Me.Label39.TabIndex = 188
@@ -479,7 +523,7 @@ Partial Class frmKundenblatt
         Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0
         Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black
-        Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(568, 546)
+        Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(560, 450)
         Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten"
         Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12)
         Me.btnBonitaetBearbeiten.TabIndex = 187
@@ -493,10 +537,10 @@ Partial Class frmKundenblatt
         Me.TabControl1.Controls.Add(Me.TabPage1)
         Me.TabControl1.Controls.Add(Me.TabPage2)
         Me.TabControl1.Controls.Add(Me.TabPage3)
-        Me.TabControl1.Location = New System.Drawing.Point(8, 582)
+        Me.TabControl1.Location = New System.Drawing.Point(8, 474)
         Me.TabControl1.Name = "TabControl1"
         Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(718, 357)
+        Me.TabControl1.Size = New System.Drawing.Size(718, 482)
         Me.TabControl1.TabIndex = 186
         '
         'TabPage1
@@ -508,7 +552,7 @@ Partial Class frmKundenblatt
         Me.TabPage1.Location = New System.Drawing.Point(4, 22)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(710, 331)
+        Me.TabPage1.Size = New System.Drawing.Size(710, 456)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Offene Posten"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -567,7 +611,7 @@ Partial Class frmKundenblatt
         Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
         Me.dgvOffenePosten.RowHeadersVisible = False
         Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 299)
+        Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 424)
         Me.dgvOffenePosten.TabIndex = 175
         '
         'Label10
@@ -600,7 +644,7 @@ Partial Class frmKundenblatt
         Me.TabPage2.Location = New System.Drawing.Point(4, 22)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(710, 314)
+        Me.TabPage2.Size = New System.Drawing.Size(710, 439)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Umsatzbericht"
         Me.TabPage2.UseVisualStyleBackColor = True
@@ -645,7 +689,7 @@ Partial Class frmKundenblatt
         Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
         Me.dgvUmsaetze.RowHeadersVisible = False
         Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 309)
+        Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 434)
         Me.dgvUmsaetze.TabIndex = 182
         '
         'Label13
@@ -693,7 +737,7 @@ Partial Class frmKundenblatt
         Me.TabPage3.Controls.Add(Me.dgvUmsatzNachLeistngsNr)
         Me.TabPage3.Location = New System.Drawing.Point(4, 22)
         Me.TabPage3.Name = "TabPage3"
-        Me.TabPage3.Size = New System.Drawing.Size(710, 314)
+        Me.TabPage3.Size = New System.Drawing.Size(710, 439)
         Me.TabPage3.TabIndex = 2
         Me.TabPage3.Text = "Umsatz nach LeistungsNr"
         Me.TabPage3.UseVisualStyleBackColor = True
@@ -749,7 +793,7 @@ Partial Class frmKundenblatt
         Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
         Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False
         Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 308)
+        Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 433)
         Me.dgvUmsatzNachLeistngsNr.TabIndex = 183
         '
         'lblAdressenzusatz
@@ -768,7 +812,7 @@ Partial Class frmKundenblatt
         '
         Me.Label11.AutoSize = True
         Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label11.Location = New System.Drawing.Point(17, 546)
+        Me.Label11.Location = New System.Drawing.Point(9, 450)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(82, 13)
         Me.Label11.TabIndex = 178
@@ -781,7 +825,7 @@ Partial Class frmKundenblatt
         Me.cboFirmaFMZOLL._value = ""
         Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cboFirmaFMZOLL.FormattingEnabled = True
-        Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(100, 543)
+        Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(92, 447)
         Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL"
         Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21)
         Me.cboFirmaFMZOLL.TabIndex = 179
@@ -836,7 +880,7 @@ Partial Class frmKundenblatt
         Me.picLogo.Cursor = System.Windows.Forms.Cursors.Hand
         Me.picLogo.Image = Global.SDL.My.Resources.Resources.person_default
         Me.picLogo.ImageLocation = ""
-        Me.picLogo.Location = New System.Drawing.Point(62, 423)
+        Me.picLogo.Location = New System.Drawing.Point(788, 800)
         Me.picLogo.Name = "picLogo"
         Me.picLogo.Size = New System.Drawing.Size(287, 114)
         Me.picLogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -849,7 +893,7 @@ Partial Class frmKundenblatt
         Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small
         Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button4.Location = New System.Drawing.Point(590, 378)
+        Me.Button4.Location = New System.Drawing.Point(1058, 740)
         Me.Button4.Name = "Button4"
         Me.Button4.Size = New System.Drawing.Size(136, 32)
         Me.Button4.TabIndex = 21
@@ -1004,14 +1048,16 @@ Partial Class frmKundenblatt
         '
         'GroupBox5
         '
+        Me.GroupBox5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Maut)
         Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Diesel)
         Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen)
         Me.GroupBox5.Controls.Add(Me.lblStat_Lkws)
         Me.GroupBox5.Controls.Add(Me.PictureBox5)
-        Me.GroupBox5.Location = New System.Drawing.Point(12, 416)
+        Me.GroupBox5.Location = New System.Drawing.Point(738, 793)
         Me.GroupBox5.Name = "GroupBox5"
-        Me.GroupBox5.Size = New System.Drawing.Size(714, 121)
+        Me.GroupBox5.Size = New System.Drawing.Size(456, 121)
         Me.GroupBox5.TabIndex = 22
         Me.GroupBox5.TabStop = False
         Me.GroupBox5.Text = "Statistik"
@@ -1065,7 +1111,7 @@ Partial Class frmKundenblatt
         '
         Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
         Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.statistik
-        Me.PictureBox5.Location = New System.Drawing.Point(676, 0)
+        Me.PictureBox5.Location = New System.Drawing.Point(409, 7)
         Me.PictureBox5.Name = "PictureBox5"
         Me.PictureBox5.Size = New System.Drawing.Size(38, 39)
         Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -1085,8 +1131,7 @@ Partial Class frmKundenblatt
         '
         'dgvSperrliste
         '
-        Me.dgvSperrliste.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        Me.dgvSperrliste.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.dgvSperrliste.BackgroundColor = System.Drawing.Color.White
         DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
@@ -1110,7 +1155,7 @@ Partial Class frmKundenblatt
         Me.dgvSperrliste.Name = "dgvSperrliste"
         Me.dgvSperrliste.ReadOnly = True
         Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
-        Me.dgvSperrliste.Size = New System.Drawing.Size(446, 901)
+        Me.dgvSperrliste.Size = New System.Drawing.Size(462, 629)
         Me.dgvSperrliste.TabIndex = 23
         '
         'PictureBox2
@@ -1164,7 +1209,7 @@ Partial Class frmKundenblatt
         Me.tbZoll.Location = New System.Drawing.Point(4, 25)
         Me.tbZoll.Name = "tbZoll"
         Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbZoll.Size = New System.Drawing.Size(1644, 928)
+        Me.tbZoll.Size = New System.Drawing.Size(1644, 945)
         Me.tbZoll.TabIndex = 9
         Me.tbZoll.Text = "ZOLL"
         Me.tbZoll.UseVisualStyleBackColor = True
@@ -1176,7 +1221,7 @@ Partial Class frmKundenblatt
         Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
         Me.tbcntrZOLL.Name = "tbcntrZOLL"
         Me.tbcntrZOLL.SelectedIndex = 0
-        Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 922)
+        Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 939)
         Me.tbcntrZOLL.TabIndex = 0
         '
         'tabZoll_Artikel
@@ -1184,7 +1229,7 @@ Partial Class frmKundenblatt
         Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
         Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
         Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
-        Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 896)
+        Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 913)
         Me.tabZoll_Artikel.TabIndex = 1
         Me.tabZoll_Artikel.Text = "Artikel"
         Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -1195,7 +1240,7 @@ Partial Class frmKundenblatt
         Me.tbMdm.Location = New System.Drawing.Point(4, 25)
         Me.tbMdm.Name = "tbMdm"
         Me.tbMdm.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbMdm.Size = New System.Drawing.Size(1644, 928)
+        Me.tbMdm.Size = New System.Drawing.Size(1644, 945)
         Me.tbMdm.TabIndex = 10
         Me.tbMdm.Text = "MDM"
         Me.tbMdm.UseVisualStyleBackColor = True
@@ -1214,7 +1259,7 @@ Partial Class frmKundenblatt
         Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0)
         Me.tbcntrMDM.Name = "tbcntrMDM"
         Me.tbcntrMDM.SelectedIndex = 0
-        Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 922)
+        Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 939)
         Me.tbcntrMDM.TabIndex = 0
         '
         'tbSDL
@@ -1226,7 +1271,7 @@ Partial Class frmKundenblatt
         Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
         Me.tbSDL.Name = "tbSDL"
         Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbSDL.Size = New System.Drawing.Size(1630, 896)
+        Me.tbSDL.Size = New System.Drawing.Size(1630, 913)
         Me.tbSDL.TabIndex = 5
         Me.tbSDL.Text = "SDL-Leistungen"
         Me.tbSDL.UseVisualStyleBackColor = True
@@ -1268,7 +1313,7 @@ Partial Class frmKundenblatt
         DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle21
         Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 700)
+        Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 717)
         Me.dgvSDLLeistungenFull.TabIndex = 5
         '
         'Panel6
@@ -1374,7 +1419,7 @@ Partial Class frmKundenblatt
         Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
         Me.Panel5.Controls.Add(Me.rtbVermerke)
         Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel5.Location = New System.Drawing.Point(3, 750)
+        Me.Panel5.Location = New System.Drawing.Point(3, 767)
         Me.Panel5.Name = "Panel5"
         Me.Panel5.Size = New System.Drawing.Size(1624, 143)
         Me.Panel5.TabIndex = 177
@@ -2270,7 +2315,7 @@ Partial Class frmKundenblatt
         Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
         Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
         Me.tbOfferte.Name = "tbOfferte"
-        Me.tbOfferte.Size = New System.Drawing.Size(1644, 928)
+        Me.tbOfferte.Size = New System.Drawing.Size(1644, 945)
         Me.tbOfferte.TabIndex = 11
         Me.tbOfferte.Text = "Offerte"
         Me.tbOfferte.UseVisualStyleBackColor = True
@@ -2282,7 +2327,7 @@ Partial Class frmKundenblatt
         Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
         Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
         Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
-        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 928)
+        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 945)
         Me.UsrCntlOfferte1.TabIndex = 0
         '
         'tbUSTV
@@ -2290,7 +2335,7 @@ Partial Class frmKundenblatt
         Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
         Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
         Me.tbUSTV.Name = "tbUSTV"
-        Me.tbUSTV.Size = New System.Drawing.Size(1644, 928)
+        Me.tbUSTV.Size = New System.Drawing.Size(1644, 945)
         Me.tbUSTV.TabIndex = 12
         Me.tbUSTV.Text = "USTV"
         Me.tbUSTV.UseVisualStyleBackColor = True
@@ -2304,7 +2349,7 @@ Partial Class frmKundenblatt
         Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
         Me.tbcntrUSTV.Name = "tbcntrUSTV"
         Me.tbcntrUSTV.SelectedIndex = 0
-        Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 928)
+        Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 945)
         Me.tbcntrUSTV.TabIndex = 1
         '
         'tbUSTVDokumente
@@ -2317,7 +2362,7 @@ Partial Class frmKundenblatt
         Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
         Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
         Me.tbUSTVDokumente.Name = "tbUSTVDokumente"
-        Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 902)
+        Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 919)
         Me.tbUSTVDokumente.TabIndex = 8
         Me.tbUSTVDokumente.Text = "Dokumente"
         Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -2607,7 +2652,7 @@ Partial Class frmKundenblatt
         Me.tbRechnungen.Controls.Add(Me.MyPanel1)
         Me.tbRechnungen.Location = New System.Drawing.Point(4, 25)
         Me.tbRechnungen.Name = "tbRechnungen"
-        Me.tbRechnungen.Size = New System.Drawing.Size(1644, 928)
+        Me.tbRechnungen.Size = New System.Drawing.Size(1644, 962)
         Me.tbRechnungen.TabIndex = 14
         Me.tbRechnungen.Text = "Rechnungen"
         Me.tbRechnungen.UseVisualStyleBackColor = True
@@ -2626,7 +2671,7 @@ Partial Class frmKundenblatt
         Me.dgvRg.ReadOnly = True
         Me.dgvRg.RowHeadersVisible = False
         Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvRg.Size = New System.Drawing.Size(1644, 868)
+        Me.dgvRg.Size = New System.Drawing.Size(1644, 902)
         Me.dgvRg.TabIndex = 3
         '
         'MyPanel1
@@ -3021,7 +3066,7 @@ Partial Class frmKundenblatt
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(1651, 1103)
+        Me.ClientSize = New System.Drawing.Size(1649, 1120)
         Me.Controls.Add(Me.lblAbfVerb)
         Me.Controls.Add(Me.btnAbfVerb)
         Me.Controls.Add(Me.tbcntrMain)
@@ -3041,6 +3086,7 @@ Partial Class frmKundenblatt
         Me.tbcntrMain.ResumeLayout(False)
         Me.tbAllgemein.ResumeLayout(False)
         Me.tbAllgemein.PerformLayout()
+        CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TabControl1.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
         Me.TabPage1.PerformLayout()
@@ -3311,4 +3357,7 @@ Partial Class frmKundenblatt
     Friend WithEvents btnBestelldateiErzeugen As Button
     Friend WithEvents btn_FIBU_speichern As Button
     Friend WithEvents txtZinsbelastungNew As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtEmailRE As TextBox
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents PictureBox8 As PictureBox
 End Class

SDL/kunden/frmKundenblatt.vb

@@ -1,6 +1,7 @@
 Imports System.Data.SqlClient
 Imports System.Globalization
 Imports System.Web.UI.WebControls.Expressions
+Imports com.sun.xml.internal.rngom
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -17,6 +18,7 @@ Public Class frmKundenblatt
     ' Dim KUNDE As cKunde = Nothing
     Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
     Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
+    Dim KUNDE_K As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
 
     '  Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing
 
@@ -637,11 +639,65 @@ Public Class frmKundenblatt
     End Sub
 
     Sub initStat()
-        lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " ") & " LKWs registriert"
+        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"
-        lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND  SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " SDL Leistungen"
+
+        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 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")
+        lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Diesel) & " aktive Tankkarten"
+
+        If dt_Diesel.Rows.Count > 0 Then
+            lblStat_SdlLeistungen_Diesel.Text &= " ( "
+            For Each r In dt_Diesel.Rows
+                Dim Lieferant As String = ""
+                Select Case r.Item("SDLNr")
+                    Case "100" : Lieferant = r.Item("Anzahl") & "x IDS "
+                    Case "101" : Lieferant = r.Item("Anzahl") & "x RMC "
+                End Select
+
+                lblStat_SdlLeistungen_Diesel.Text &= Lieferant
+            Next
+            lblStat_SdlLeistungen_Diesel.Text &= ")"
+        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 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"
+
+
+        If dt_Maut.Rows.Count > 0 Then
+            lblStat_SdlLeistungen_Maut.Text &= " ( "
+            For Each r As DataRow In dt_Maut.Rows
+                Dim Lieferant As String = ""
+                Select Case r.Item("SDLNr")
+                    Case "200" : Lieferant = r.Item("Anzahl") & "x AT "
+                    Case "201" : Lieferant = r.Item("Anzahl") & "x DE "
+                    Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS "
+                    Case "203" : Lieferant = r.Item("Anzahl") & "x CZ "
+                    Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay "
+                    Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox "
+                    Case "208" : Lieferant = r.Item("Anzahl") & "x MSE "
+                    Case "209" : Lieferant = r.Item("Anzahl") & "x PL "
+                    Case "210" : Lieferant = r.Item("Anzahl") & "x SI "
+                    Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP "
+                    Case "212" : Lieferant = r.Item("Anzahl") & "x UTA "
+                    Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO "
+                    Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM "
+                    Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT "
+                    Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ "
+                    Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP "
+                    Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM "
+
+                End Select
+
+                lblStat_SdlLeistungen_Maut.Text &= Lieferant
+            Next
+            lblStat_SdlLeistungen_Maut.Text &= ")"
+        End If
 
-        lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND  SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)") & " Tankkarten"
-        lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND  SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr BETWEEN 200 AND 212 ") & " Mautboxen/-karten"
 
     End Sub
     Function checkNullStr(o As Object) As String
@@ -682,6 +738,7 @@ Public Class frmKundenblatt
                 KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
                 ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
                 KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
+                KUNDE_K = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(kdNr)
                 'Me.dataAdapterFirma = Nothing
                 ' Me.dataFirma.Clear()
                 'SDL!
@@ -713,6 +770,13 @@ Public Class frmKundenblatt
                 lblEmail.Text = checkNullStr(ADRESSE.E_Mail)
                 lblEmail2.Text = checkNullStr(ADRESSE.E_Mail2)
 
+                txtEmailRE.Text = "-"
+                If KUNDE_K.kkd_kkaId = 8 Then 'Rechnung an
+                    txtEmailRE.Text = KUNDE_K.kkd_Email & " " & KUNDE_K.kkd_EmailCC
+                End If
+
+
+
                 lblUid.Text = ""
                 If checkNullStr(ADRESSE.UstIdGeprüft) <> "" Then
                     lblUid.Text = "UId: " & checkNullStr(ADRESSE.UstIdKz) & checkNullStr(ADRESSE.UstIdNr)
@@ -2135,27 +2199,40 @@ Public Class frmKundenblatt
     End Sub
 
 
+    Function dtUmsatzNachLeistungsNr() As DataTable
+
+        Dim datatable As New DataTable
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Return datatable
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Return datatable
+        Dim where = ""
+        If cboFirmaFMZOLL._value <> "" Then
+            where = " AND [RechnungsKundenNr] = " & kdNr & " AND Firma_ID=" & cboFirmaFMZOLL._value
+        Else
+            where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
+            where &= " AND [RechnungsKundenNr] = " & kdNr
+        End If
+
+        Dim sqlstr = ""
+        sqlstr &= "  SELECT * FROM ( SELECT Leistungen.LeistungsNr, Leistungen.LeistungsBez,YEAR(Abfertigungsdatum ) [Year] , (RechnungsausgangPositionen.SteuerpflichtigerBetrag+RechnungsausgangPositionen.SteuerfreierBetrag  ) AS "
+        sqlstr &= " [Der Wert] FROM Rechnungsausgang INNER JOIN (RechnungsausgangPositionen  LEFT JOIN Leistungen ON RechnungsausgangPositionen.LeistungsNr = Leistungen.LeistungsNr) ON (Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID) "
+        sqlstr &= " WHERE 1 = 1 "
+        sqlstr &= where
+        sqlstr &= " ) AS Rg"
+        sqlstr &= " PIVOT( SUM([Der Wert]) FOR [Year] IN (" & getJahrString() & ")) AS MNamePivot"
+        sqlstr &= " order by LeistungsNr"
+
+        datatable = SQL.loadDgvBySql(sqlstr, "FMZOLL")
+
+        Return datatable
+
+    End Function
+
     Sub initDGVUmsatzNachLeistungsNr()
         With dgvUmsatzNachLeistngsNr
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
-            Dim where = ""
-            If cboFirmaFMZOLL._value <> "" Then
-                where = " AND [RechnungsKundenNr] = " & kdNr & " AND Firma_ID=" & cboFirmaFMZOLL._value
-            Else
-                where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
-                where &= " AND [RechnungsKundenNr] = " & kdNr
-            End If
 
-            Dim sqlstr = ""
+            .DataSource = dtUmsatzNachLeistungsNr()
-            sqlstr &= "  SELECT * FROM ( SELECT Leistungen.LeistungsNr, Leistungen.LeistungsBez,YEAR(Abfertigungsdatum ) [Year] , (RechnungsausgangPositionen.SteuerpflichtigerBetrag+RechnungsausgangPositionen.SteuerfreierBetrag  ) AS "
+
-            sqlstr &= " [Der Wert] FROM Rechnungsausgang INNER JOIN (RechnungsausgangPositionen  LEFT JOIN Leistungen ON RechnungsausgangPositionen.LeistungsNr = Leistungen.LeistungsNr) ON (Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID) "
-            sqlstr &= " WHERE 1 = 1 "
-            sqlstr &= where
-            sqlstr &= " ) AS Rg"
-            sqlstr &= " PIVOT( SUM([Der Wert]) FOR [Year] IN (" & getJahrString() & ")) AS MNamePivot"
-            sqlstr &= " order by LeistungsNr"
-            .DataSource = SQL.loadDgvBySql(sqlstr, "FMZOLL")
             If .DataSource Is Nothing Then Exit Sub
             If .Columns.Count = 0 Then Exit Sub
 
@@ -2211,7 +2288,14 @@ Public Class frmKundenblatt
     Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
         If dgvUmsatzNachLeistngsNr.Rows.Count > 0 Then
             Me.Cursor = Cursors.WaitCursor
-            cProgramFunctions.genExcelFromDGV_NEW(dgvUmsatzNachLeistngsNr, True)
+
+            Dim dt As DataTable = dtUmsatzNachLeistungsNr()
+
+            If dt.Rows.Count > 0 Then
+                cProgramFunctions.genExcelFromDT_NEW(dt, {"C1:C" & (dt.Rows.Count + 1), "D1:D" & (dt.Rows.Count + 1), "E1:E" & (dt.Rows.Count + 1), "F1:F" & (dt.Rows.Count + 1), "G1:G" & (dt.Rows.Count + 1), "H1:H" & (dt.Rows.Count + 1), "I1:I" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1), "K1:K" & (dt.Rows.Count + 1)}, False,,,)
+            End If
+
+
             Me.Cursor = Cursors.Default
         End If
 
@@ -2365,7 +2449,7 @@ Public Class frmKundenblatt
         initBtns("Monat")
     End Sub
 
-    Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.DoubleClick, dgvRg.CellContentDoubleClick
+    Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.CellContentDoubleClick
 
         If dgvRg.SelectedRows.Count = 0 Then Exit Sub
 
@@ -2647,5 +2731,9 @@ Public Class frmKundenblatt
         End If
 
     End Sub
+
+    Private Sub lblEmail_TextChanged(sender As Object, e As MouseEventArgs) Handles lblEmail2.MouseUp, lblEmail.MouseUp
+
+    End Sub
 End Class
 

SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb

@@ -23,31 +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 DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle31 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()
@@ -58,11 +61,9 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cboFremdspedition = New System.Windows.Forms.ComboBox()
         Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
         Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
-        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()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
@@ -76,7 +77,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox()
         Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.tbAufschub = New System.Windows.Forms.TabPage()
-        Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.Label78 = New System.Windows.Forms.Label()
         Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox()
@@ -101,7 +101,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.tbFiskal = New System.Windows.Forms.TabPage()
-        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
         Me.tbVerrechnung = New System.Windows.Forms.TabPage()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.Label115 = New System.Windows.Forms.Label()
@@ -277,7 +276,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.Label113 = New System.Windows.Forms.Label()
         Me.Label112 = New System.Windows.Forms.Label()
         Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView()
-        Me.lblIDS_Rabatte = New System.Windows.Forms.Label()
         Me.txtSumVerag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtSonst_KdNrVerag = New System.Windows.Forms.TextBox()
         Me.Label110 = New System.Windows.Forms.Label()
@@ -389,7 +387,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.tbKontakt = New System.Windows.Forms.TabControl()
         Me.TabPage10 = New System.Windows.Forms.TabPage()
         Me.TabPage11 = New System.Windows.Forms.TabPage()
-        Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
         Me.Label50 = New System.Windows.Forms.Label()
         Me.Label68 = New System.Windows.Forms.Label()
         Me.pnlNeukunde = New System.Windows.Forms.Panel()
@@ -415,6 +412,18 @@ 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.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.Standard = New System.Windows.Forms.TabPage()
+        Me.Kunden = New System.Windows.Forms.TabPage()
+        Me.dgvIDS_Standard = New System.Windows.Forms.DataGridView()
+        Me.cbx_IDS_inaktiveeinblenden = New System.Windows.Forms.CheckBox()
+        Me.PictureBox7 = New System.Windows.Forms.PictureBox()
+        Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
+        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
+        Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
+        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
+        Me.lblIDS_Rabatte = New System.Windows.Forms.Label()
         Me.tbcntrDetails.SuspendLayout()
         Me.tbAbfertigung.SuspendLayout()
         Me.tbcntrAbf.SuspendLayout()
@@ -456,6 +465,11 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.TabPage11.SuspendLayout()
         Me.pnlNeukunde.SuspendLayout()
         Me.cnsBankverbindungen.SuspendLayout()
+        Me.TabControl1.SuspendLayout()
+        Me.Standard.SuspendLayout()
+        Me.Kunden.SuspendLayout()
+        CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'tbcntrDetails
@@ -601,16 +615,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU"
         Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True
         '
-        'UsrCntlKundenBesonderheiten1
-        '
-        Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
-        Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
-        Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
-        Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
-        Me.UsrCntlKundenBesonderheiten1.Visible = False
-        '
         'tbcntrAbf
         '
         Me.tbcntrAbf.Controls.Add(Me.TabPage4)
@@ -645,15 +649,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100)
         Me.FlowLayoutPanel1.TabIndex = 7
         '
-        'UsrCntlKundenAvisoMailBenachrichtigung1
-        '
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
-        '
         'rtbLKWFreigabeSenden
         '
         Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33)
@@ -822,14 +817,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.tbAufschub.Text = "Aufschubkonten"
         Me.tbAufschub.UseVisualStyleBackColor = True
         '
-        'usrCntlAufschubkonten
-        '
-        Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
-        Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
-        Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
-        Me.usrCntlAufschubkonten.TabIndex = 0
-        '
         'TabPage1
         '
         Me.TabPage1.Controls.Add(Me.Label78)
@@ -1135,15 +1122,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.tbFiskal.Text = "Fiskal"
         Me.tbFiskal.UseVisualStyleBackColor = True
         '
-        'UsrCntlKundeFiskaldaten1
-        '
-        Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
-        Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
-        Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
-        '
         'tbVerrechnung
         '
         Me.tbVerrechnung.Controls.Add(Me.Panel2)
@@ -3219,8 +3197,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))
+        DataGridViewCellStyle38.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 = DataGridViewCellStyle38
         Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
         Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
@@ -3319,8 +3297,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))
+        DataGridViewCellStyle39.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 = DataGridViewCellStyle39
         Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
         Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
@@ -3495,40 +3473,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))
+        DataGridViewCellStyle40.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 = DataGridViewCellStyle40
         Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle41.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))
+        DataGridViewCellStyle41.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
+        DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle41
         Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle42.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle42.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))
+        DataGridViewCellStyle42.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
+        DataGridViewCellStyle42.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle42.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle42.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle42.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
+        Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle42
         Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
         Me.dgvKreditkarten.MultiSelect = False
         Me.dgvKreditkarten.Name = "dgvKreditkarten"
-        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle43.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))
+        DataGridViewCellStyle43.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
+        DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
+        Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle43
         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))
+        DataGridViewCellStyle44.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 = DataGridViewCellStyle44
         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)
@@ -3608,26 +3586,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))
+        DataGridViewCellStyle45.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 = DataGridViewCellStyle45
         Me.dgvMWST.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle46.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))
+        DataGridViewCellStyle46.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
+        DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
+        Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46
         Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle47.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))
+        DataGridViewCellStyle47.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
+        DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10
+        Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle47
         Me.dgvMWST.Location = New System.Drawing.Point(9, 359)
         Me.dgvMWST.Name = "dgvMWST"
         Me.dgvMWST.Size = New System.Drawing.Size(171, 125)
@@ -3712,26 +3690,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))
+        DataGridViewCellStyle48.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 = DataGridViewCellStyle48
         Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle49.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))
+        DataGridViewCellStyle49.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
+        DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
+        Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49
         Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle50.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))
+        DataGridViewCellStyle50.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
+        DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13
+        Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle50
         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)
@@ -3867,12 +3845,14 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'tbSonstiges
         '
+        Me.tbSonstiges.Controls.Add(Me.lblIDS_Rabatte)
+        Me.tbSonstiges.Controls.Add(Me.PictureBox7)
+        Me.tbSonstiges.Controls.Add(Me.cbx_IDS_inaktiveeinblenden)
+        Me.tbSonstiges.Controls.Add(Me.TabControl1)
         Me.tbSonstiges.Controls.Add(Me.cbxCSInsolvent)
         Me.tbSonstiges.Controls.Add(Me.cbxCS_Added)
         Me.tbSonstiges.Controls.Add(Me.Label113)
         Me.tbSonstiges.Controls.Add(Me.Label112)
-        Me.tbSonstiges.Controls.Add(Me.dgvIDS_Rabatte)
-        Me.tbSonstiges.Controls.Add(Me.lblIDS_Rabatte)
         Me.tbSonstiges.Controls.Add(Me.txtSumVerag)
         Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrVerag)
         Me.tbSonstiges.Controls.Add(Me.Label110)
@@ -3960,42 +3940,32 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.dgvIDS_Rabatte.AllowUserToAddRows = False
         Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False
         Me.dgvIDS_Rabatte.AllowUserToResizeRows = False
-        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32
         Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle33.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))
+        DataGridViewCellStyle33.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
+        DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
+        Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle33
         Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle34.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))
+        DataGridViewCellStyle34.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
+        DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle16
+        Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle34
-        Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(9, 317)
+        Me.dgvIDS_Rabatte.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvIDS_Rabatte.MultiSelect = False
+        Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(3, 3)
         Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte"
-        Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(657, 172)
+        Me.dgvIDS_Rabatte.Size = New System.Drawing.Size(645, 169)
         Me.dgvIDS_Rabatte.TabIndex = 34
         '
-        'lblIDS_Rabatte
-        '
-        Me.lblIDS_Rabatte.AutoSize = True
-        Me.lblIDS_Rabatte.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblIDS_Rabatte.Location = New System.Drawing.Point(7, 301)
-        Me.lblIDS_Rabatte.Name = "lblIDS_Rabatte"
-        Me.lblIDS_Rabatte.Size = New System.Drawing.Size(100, 13)
-        Me.lblIDS_Rabatte.TabIndex = 33
-        Me.lblIDS_Rabatte.Text = "IDS-Rabatte/Preise"
-        '
         'txtSumVerag
         '
         Me.txtSumVerag._DateTimeOnly = False
@@ -4109,7 +4079,7 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         Me.Label76.AutoSize = True
         Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label76.Location = New System.Drawing.Point(7, 192)
+        Me.Label76.Location = New System.Drawing.Point(24, 194)
         Me.Label76.Name = "Label76"
         Me.Label76.Size = New System.Drawing.Size(65, 13)
         Me.Label76.TabIndex = 17
@@ -4120,30 +4090,30 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.dgvSonst_IDSKunden.AllowUserToAddRows = False
         Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False
         Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle35.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
+        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle35
         Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle36.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))
+        DataGridViewCellStyle36.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
+        DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
+        Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle36
         Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle37.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))
+        DataGridViewCellStyle37.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
+        DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle19
+        Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle37
         Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214)
         Me.dgvSonst_IDSKunden.MultiSelect = False
         Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
-        Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 84)
+        Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 53)
         Me.dgvSonst_IDSKunden.TabIndex = 18
         '
         'cbxSonst_CsvAsfinag
@@ -4450,26 +4420,26 @@ Partial Class usrcntlKundeBearbeitenFull
         'DataGridView1
         '
         Me.DataGridView1.AllowUserToResizeRows = False
-        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle51.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle51
         Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle52.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle52.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))
+        DataGridViewCellStyle52.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
+        DataGridViewCellStyle52.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle52.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle52.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle52.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21
+        Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle52
         Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle53.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle53.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))
+        DataGridViewCellStyle53.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
+        DataGridViewCellStyle53.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle53.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle53.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle22
+        Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle53
         Me.DataGridView1.Enabled = False
         Me.DataGridView1.Location = New System.Drawing.Point(6, 111)
         Me.DataGridView1.MultiSelect = False
@@ -4536,26 +4506,26 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         Me.dgvBankverbindungen.AllowUserToDeleteRows = False
         Me.dgvBankverbindungen.AllowUserToResizeRows = False
-        DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle54.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
+        Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle54
         Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle55.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle55.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))
+        DataGridViewCellStyle55.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
+        DataGridViewCellStyle55.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle55.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle55.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle55.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24
+        Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle55
         Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle56.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle56.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))
+        DataGridViewCellStyle56.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
+        DataGridViewCellStyle56.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle56.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle56.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle56.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle25
+        Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle56
         Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40)
         Me.dgvBankverbindungen.MultiSelect = False
         Me.dgvBankverbindungen.Name = "dgvBankverbindungen"
@@ -5396,14 +5366,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.TabPage11.Text = "Spezifisch"
         Me.TabPage11.UseVisualStyleBackColor = True
         '
-        'ucKundenKontakte
-        '
-        Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
-        Me.ucKundenKontakte.Name = "ucKundenKontakte"
-        Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
-        Me.ucKundenKontakte.TabIndex = 0
-        '
         'Label50
         '
         Me.Label50.AutoSize = True
@@ -5684,6 +5646,145 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
         Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
         '
+        'TabControl1
+        '
+        Me.TabControl1.Controls.Add(Me.Standard)
+        Me.TabControl1.Controls.Add(Me.Kunden)
+        Me.TabControl1.Location = New System.Drawing.Point(6, 288)
+        Me.TabControl1.Name = "TabControl1"
+        Me.TabControl1.SelectedIndex = 0
+        Me.TabControl1.Size = New System.Drawing.Size(659, 201)
+        Me.TabControl1.TabIndex = 40
+        '
+        'Standard
+        '
+        Me.Standard.Controls.Add(Me.dgvIDS_Standard)
+        Me.Standard.Location = New System.Drawing.Point(4, 22)
+        Me.Standard.Name = "Standard"
+        Me.Standard.Padding = New System.Windows.Forms.Padding(3)
+        Me.Standard.Size = New System.Drawing.Size(651, 175)
+        Me.Standard.TabIndex = 0
+        Me.Standard.Text = "Standardpreise"
+        Me.Standard.UseVisualStyleBackColor = True
+        '
+        'Kunden
+        '
+        Me.Kunden.Controls.Add(Me.dgvIDS_Rabatte)
+        Me.Kunden.Location = New System.Drawing.Point(4, 22)
+        Me.Kunden.Name = "Kunden"
+        Me.Kunden.Padding = New System.Windows.Forms.Padding(3)
+        Me.Kunden.Size = New System.Drawing.Size(651, 175)
+        Me.Kunden.TabIndex = 1
+        Me.Kunden.Text = "Kundenpreise"
+        Me.Kunden.UseVisualStyleBackColor = True
+        '
+        'dgvIDS_Standard
+        '
+        Me.dgvIDS_Standard.AllowUserToAddRows = False
+        Me.dgvIDS_Standard.AllowUserToDeleteRows = False
+        Me.dgvIDS_Standard.AllowUserToResizeRows = False
+        DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvIDS_Standard.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
+        Me.dgvIDS_Standard.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvIDS_Standard.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30
+        Me.dgvIDS_Standard.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvIDS_Standard.DefaultCellStyle = DataGridViewCellStyle31
+        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"
+        Me.dgvIDS_Standard.Size = New System.Drawing.Size(645, 169)
+        Me.dgvIDS_Standard.TabIndex = 35
+        '
+        'cbx_IDS_inaktiveeinblenden
+        '
+        Me.cbx_IDS_inaktiveeinblenden.AutoSize = True
+        Me.cbx_IDS_inaktiveeinblenden.Location = New System.Drawing.Point(9, 194)
+        Me.cbx_IDS_inaktiveeinblenden.Name = "cbx_IDS_inaktiveeinblenden"
+        Me.cbx_IDS_inaktiveeinblenden.Size = New System.Drawing.Size(15, 14)
+        Me.cbx_IDS_inaktiveeinblenden.TabIndex = 41
+        Me.cbx_IDS_inaktiveeinblenden.UseVisualStyleBackColor = True
+        '
+        'PictureBox7
+        '
+        Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.PictureBox7.Location = New System.Drawing.Point(645, 273)
+        Me.PictureBox7.Name = "PictureBox7"
+        Me.PictureBox7.Size = New System.Drawing.Size(20, 20)
+        Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox7.TabIndex = 146
+        Me.PictureBox7.TabStop = False
+        '
+        'ucKundenKontakte
+        '
+        Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
+        Me.ucKundenKontakte.Name = "ucKundenKontakte"
+        Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
+        Me.ucKundenKontakte.TabIndex = 0
+        '
+        'UsrCntlKundenBesonderheiten1
+        '
+        Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
+        Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
+        Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
+        Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
+        Me.UsrCntlKundenBesonderheiten1.Visible = False
+        '
+        'UsrCntlKundenAvisoMailBenachrichtigung1
+        '
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
+        '
+        'usrCntlAufschubkonten
+        '
+        Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
+        Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
+        Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
+        Me.usrCntlAufschubkonten.TabIndex = 0
+        '
+        'UsrCntlKundeFiskaldaten1
+        '
+        Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
+        Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
+        Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
+        '
+        'lblIDS_Rabatte
+        '
+        Me.lblIDS_Rabatte.AutoSize = True
+        Me.lblIDS_Rabatte.Enabled = False
+        Me.lblIDS_Rabatte.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblIDS_Rabatte.Location = New System.Drawing.Point(10, 273)
+        Me.lblIDS_Rabatte.Name = "lblIDS_Rabatte"
+        Me.lblIDS_Rabatte.Size = New System.Drawing.Size(100, 13)
+        Me.lblIDS_Rabatte.TabIndex = 147
+        Me.lblIDS_Rabatte.Text = "IDS-Rabatte/Preise"
+        Me.lblIDS_Rabatte.Visible = False
+        '
         'usrcntlKundeBearbeitenFull
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5783,6 +5884,11 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.pnlNeukunde.ResumeLayout(False)
         Me.pnlNeukunde.PerformLayout()
         Me.cnsBankverbindungen.ResumeLayout(False)
+        Me.TabControl1.ResumeLayout(False)
+        Me.Standard.ResumeLayout(False)
+        Me.Kunden.ResumeLayout(False)
+        CType(Me.dgvIDS_Standard, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -6138,7 +6244,6 @@ Partial Class usrcntlKundeBearbeitenFull
     Friend WithEvents txtFR As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents cbxFR As CheckBox
     Friend WithEvents dgvIDS_Rabatte As DataGridView
-    Friend WithEvents lblIDS_Rabatte As Label
     Friend WithEvents Label113 As Label
     Friend WithEvents Label112 As Label
     Friend WithEvents Label111 As Label
@@ -6154,4 +6259,11 @@ Partial Class usrcntlKundeBearbeitenFull
     Friend WithEvents cbxProvDL As CheckBox
     Friend WithEvents Label115 As Label
     Friend WithEvents btnKKSave As Button
+    Friend WithEvents TabControl1 As TabControl
+    Friend WithEvents Standard As TabPage
+    Friend WithEvents Kunden As TabPage
+    Friend WithEvents dgvIDS_Standard As DataGridView
+    Friend WithEvents cbx_IDS_inaktiveeinblenden As CheckBox
+    Friend WithEvents PictureBox7 As PictureBox
+    Friend WithEvents lblIDS_Rabatte As Label
 End Class

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -2180,13 +2180,13 @@ Public Class usrcntlKundeBearbeitenFull
 
 
 
-    Private Sub initdgvIDSKunden()
+    Private Sub initdgvIDSKunden(inaktive_einblenden As Boolean)
 
         With dgvSonst_IDSKunden
 
             cBinding_dgvSonst_IDSKunden.initBinding(" SELECT  [KdNrVERAG],[CustomerCode],[KdNrAlt],[Zeitstempel],[Sachbearbeiter] " &
                                            " FROM [tbl_IDS_Kunden] " &
-                                           " WHERE KdNrVERAG = '" & KUNDE.KundenNr & "'  ", "tbl_IDS_Kunden")
+                                           " WHERE KdNrVERAG = '" & KUNDE.KundenNr & "'" & IIf(Not inaktive_einblenden, " AND isnull(KdNrAlt,0) <> 1 ", ""), "tbl_IDS_Kunden")
 
             AddHandler btnSonstAendSpeichern.Click,
                      Sub(send As Object, evnt As EventArgs)
@@ -2228,19 +2228,18 @@ Public Class usrcntlKundeBearbeitenFull
 
     End Sub
 
-    Private Sub initdgvIDSRabatte()
+    Private Function initdgvIDSRabatte() As DataTable
 
 
-        Dim KundeOhneRabatt As Integer = CInt(sql.getValueTxtBySql("select count(*) from tbl_IDS_Kunden_ohne_Rabatt where CustomerCode = " & KUNDE.KundenNr, "FMZOLL"))
+        Dim dt_IDS_Rabatte As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW
-        lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" & IIf(KundeOhneRabatt > 0, " - KUNDE OHNE RABATT", "")
+                                            left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
+                                            left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
+                                            left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode =" & KUNDE.KundenNr & " AND RW.Rechenwert <> 0 order by Kz", "FMZOLL")
 
         With dgvIDS_Rabatte
 
 
-            .DataSource = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW
+            .DataSource = dt_IDS_Rabatte
-                                            left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
-                                            left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
-                                            left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode =" & KUNDE.KundenNr, "FMZOLL")
 
             .ReadOnly = True
 
@@ -2253,7 +2252,38 @@ Public Class usrcntlKundeBearbeitenFull
 
         End With
 
-    End Sub
+        Return dt_IDS_Rabatte
+
+    End Function
+
+    Private Function initdgvIDSPreise() As DataTable
+
+        Dim KundeOhneRabatt As Integer = CInt(sql.getValueTxtBySql("select count(*) from tbl_IDS_Kunden_ohne_Rabatt where CustomerCode = " & KUNDE.KundenNr, "FMZOLL"))
+        lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" & IIf(KundeOhneRabatt > 0, " - KUNDE OHNE RABATT", "")
+
+
+        Dim dt_IDS As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW
+                                            left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
+                                            left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
+                                            left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode is null and RW.Rechenwert <> 0 order by KZ", "FMZOLL")
+
+        With dgvIDS_Standard
+            .DataSource = dt_IDS
+
+            .ReadOnly = True
+
+
+            .Columns(0).HeaderText = "Produkt"
+            .Columns(1).HeaderText = "Land"
+            .Columns(2).HeaderText = "Station"
+            .Columns(4).HeaderText = "Rabatt/Preis"
+            .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+        End With
+
+        Return dt_IDS
+
+    End Function
 
     Private Sub initdgvOP()
 
@@ -2362,8 +2392,8 @@ Public Class usrcntlKundeBearbeitenFull
         End If
 
         If tbcntrDetails.SelectedTab Is tbSonstiges Then
-            initdgvIDSKunden()
+            initdgvIDSKunden(False)
-            initdgvIDSRabatte()
+            initdgvIDSPreise()
         End If
 
         If tbcntrDetails.SelectedTab Is tbBankverbindungen Then
@@ -2380,7 +2410,7 @@ Public Class usrcntlKundeBearbeitenFull
             Dim aktiveSteuerNr As Integer = CInt((New SQL).getValueTxtBySql(sqlStringSteuerNr, "FMZOLL"))
 
             If aktiveSteuerNr > 0 Then
-                If vbYes = MsgBox("Der Kunde hat aktuell " & aktiveSteuerNr & " aktive Steuer-Nummern!" & vbNewLine & "Trotzdem setzen?  ", vbYesNoCancel) Then
+                If vbYes = MsgBox("Der Kunde hat aktuell " & aktiveSteuerNr & " aktive Steuernummern!" & vbNewLine & "Trotzdem setzen?  ", vbYesNoCancel) Then
                     cbxkeineMWSt.Checked = True
                 Else
                     cbxkeineMWSt.Checked = False
@@ -2425,4 +2455,35 @@ Public Class usrcntlKundeBearbeitenFull
 
     End Sub
 
+    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
+
+        Select Case TabControl1.SelectedIndex
+            Case 0
+                initdgvIDSPreise()
+            Case Else
+                initdgvIDSRabatte()
+        End Select
+
+
+    End Sub
+
+    Private Sub cbx_IDS_inaktiveeinblenden_CheckedChanged(sender As Object, e As EventArgs) Handles cbx_IDS_inaktiveeinblenden.CheckedChanged
+        initdgvIDSKunden(cbx_IDS_inaktiveeinblenden.Checked)
+    End Sub
+
+    Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
+
+        Dim dt As New DataTable
+        Select Case TabControl1.SelectedIndex
+            Case 0
+                dt = initdgvIDSPreise()
+            Case Else
+                dt = initdgvIDSRabatte()
+        End Select
+
+        If dt.Rows.Count > 0 Then
+            VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, {"D1:D" & (dt.Rows.Count + 1)}, False,,,,,, True)
+        End If
+
+    End Sub
 End Class

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb

@@ -377,34 +377,39 @@ Public Class usrcntlPDFScanList
         Try
             Dim added = False
 
-            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+            If DS IsNot Nothing Then
-                Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
 
-                If files.Count > 1 Then
+                If e.Data.GetDataPresent(DataFormats.FileDrop) Then
-                    MsgBox("Nur eine Datei möglich!")
+                    Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
-                ElseIf files.Count > 0 Then
+
-                    If files(0) <> "" Then
+                    If files.Count > 1 Then
-                        Dim fio As New System.IO.FileInfo(files(0))
+                        MsgBox("Nur eine Datei möglich!")
-                        If DS.uploadDataToDATENSERVER(files(0), fio.Name, ".pdf") Then
+                    ElseIf files.Count > 0 Then
+                        If files(0) <> "" Then
+                            Dim fio As New System.IO.FileInfo(files(0))
+                            If DS.uploadDataToDATENSERVER(files(0), fio.Name, ".pdf") Then
+                                RaiseEvent FileAdded(DS.da_id, DS.GET_TOP1_PATH, DS.da_name)
+                                MsgBox("Dokument wurde hochgeladen.")
+                            End If
+
+                        End If
+                    End If
+
+                ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
+                    Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e)
+                    If FilePath <> "" Then
+                        Dim fio As New System.IO.FileInfo(FilePath)
+                        If DS.uploadDataToDATENSERVER(FilePath, fio.Name, ".pdf") Then
                             RaiseEvent FileAdded(DS.da_id, DS.GET_TOP1_PATH, DS.da_name)
                             MsgBox("Dokument wurde hochgeladen.")
                         End If
-
                     End If
                 End If
 
-            ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
+                initPdf()
-                Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e)
+
-                If FilePath <> "" Then
-                    Dim fio As New System.IO.FileInfo(FilePath)
-                    If DS.uploadDataToDATENSERVER(FilePath, fio.Name, ".pdf") Then
-                        RaiseEvent FileAdded(DS.da_id, DS.GET_TOP1_PATH, DS.da_name)
-                        MsgBox("Dokument wurde hochgeladen.")
-                    End If
-                End If
             End If
 
-            initPdf()
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)