Rechnungs, fakt, Kundenblatt, etc.

SDL/Fakturierung/frmFaktEmail.vb

@@ -428,7 +428,7 @@ Public Class frmFaktEmail
 
         If SR Then
             Try
-                If RechnungsNr > 1 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
+                If RechnungsNr > 1 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?" & vbNewLine & "Es wird eine Belegsnummer vergeben, der Beleg gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
 
                     If FakturierungsGruppe <> "" Then
                         additionalLine = "Abrechnungsstelle: " & FakturierungsGruppe.Replace("WAI", "Waidhaus")
@@ -1016,12 +1016,14 @@ Public Class frmFaktEmail
 
             If MergePDF And ATTACHMENTS.Count > 1 Then
 
+
+
                 Dim extension = ".pdf"
-                Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, "Rechnungs_Anhänge_", "Rechnung_") & RgNr & extension, extension,, False, "Zusammenfassung")
+                Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, RECHNUNG.BelegartenBez & "sanhänge_", RECHNUNG.BelegartenBez & "_") & RgNr & extension, extension,, False, "Zusammenfassung")
 
                 If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Firma_ID = 19 Then
 
-                    Dim zielPfadZusammenfassung_Lieferantenrechnungen = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, "LF-Rechnungs_Anhänge_", "LF-Rechnung_") & RgNr & extension, extension,, False, "Zusammenfassung")
+                    Dim zielPfadZusammenfassung_Lieferantenrechnungen = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, "LF-Rechnungsanhänge_", "LF-Rechnung_") & RgNr & extension, extension,, False, "Zusammenfassung")
                     Dim zielPfadZusammenfassung_POSListe = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("POS_Anhang" & RgNr & extension, extension,, False, "Zusammenfassung")
 
                     Dim myList As New List(Of String)

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1847,12 +1847,24 @@ Public Class usrCntlFaktAbrechnung
                                     If .Rows.Count > 0 Then
 
                                         For Each r As DataGridViewRow In .Rows
-                                            If r.Cells("Art").Value = "POS-LIST" Then .Rows.Remove(r)
+                                            If .Columns.Contains("clmnBezeichnung") AndAlso r.Cells("clmnBezeichnung").Value = DS.da_name Then
+                                                .Rows.Remove(r)
+                                                For Each ATT As cRechnungsausgangAnhaenge In RECHNUNG.ANHAENGE
+                                                    If ATT.Bezeichnung = DS.da_name AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then
+                                                        Dim ANH_DEL As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangAnhaenge()
+                                                        ANH_DEL.DELETE(ATT.RK_ID, ATT.dsId)
+                                                    End If
+                                                Next
+
+                                            End If
+
                                         Next
 
                                     End If
 
-                                    .Rows.Add(-1, "POS-LIST", DS.da_name, DS.da_id, -1)
+                                    If RECHNUNG.DruckDatumZeit Is Nothing OrElse Not RECHNUNG.ANHAENGE.Exists(Function(c) c.Bezeichnung = DS.da_name) Then
+                                        .Rows.Add(-1, "POS-LIST", DS.da_name, DS.da_id, -1)
+                                    End If
                                 End If
                             Catch ex As Exception
                                 MsgBox(ex.Message & ex.StackTrace)
@@ -1863,27 +1875,31 @@ Public Class usrCntlFaktAbrechnung
                         If dt IsNot Nothing Then
                             For Each r In dt.Rows
 
-                                Dim DAID As String = ""
-                                DAID = func.getPDF(r("UStVPo_SchnittstellenNr"), r("UStVPo_ReNr"), r("UStVPo_ReDat"), r("UStVPo_daId"), False, True, USTV.UStVAn_LandKz, USTV, New cFakturierung, True)
+                                If Not RECHNUNG.ANHAENGE.Exists(Function(c) c.dsId = r("UStVPo_daId")) Then 'wenn der Anhang schon existiert!
 
-                                Dim nameLief As String = ""
+                                    Dim DAID As String = ""
+                                    DAID = func.getPDF(r("UStVPo_SchnittstellenNr"), r("UStVPo_ReNr"), r("UStVPo_ReDat"), r("UStVPo_daId"), False, True, USTV.UStVAn_LandKz, USTV, New cFakturierung, True)
 
-                                Select Case r("UStVPo_SchnittstellenNr")
-                                    Case 1 : nameLief = "VERAG-" 'Verag360
-                                    Case 2, 8, 12 : nameLief = "IDS-"
-                                    Case 3 : nameLief = "IT-"
-                                    Case 4, 9 : nameLief = "MSE-"
-                                    Case 5, 10 : nameLief = "UTA-"
-                                    Case 6, 11 : nameLief = "PLOSE-"
-                                    Case 7 : nameLief = "RMC-"
-                                End Select
+                                    Dim nameLief As String = ""
 
-                                nameLief &= "RE"
+                                    Select Case r("UStVPo_SchnittstellenNr")
+                                        Case 1 : nameLief = "VERAG-" 'Verag360
+                                        Case 2, 8, 12 : nameLief = "IDS-"
+                                        Case 3 : nameLief = "IT-"
+                                        Case 4, 9 : nameLief = "MSE-"
+                                        Case 5, 10 : nameLief = "UTA-"
+                                        Case 6, 11 : nameLief = "PLOSE-"
+                                        Case 7 : nameLief = "RMC-"
+                                    End Select
+
+                                    nameLief &= "RE"
+
+                                    If DAID <> "" AndAlso IsNumeric(DAID) Then
+                                        Dim daidno As Integer = CInt(DAID)
+                                        Dim ds As New cDATENSERVER(daidno)
+                                        .Rows.Add(-1, nameLief, ds.da_name, ds.da_id, -1)
+                                    End If
 
-                                If DAID <> "" AndAlso IsNumeric(DAID) Then
-                                    Dim daidno As Integer = CInt(DAID)
-                                    Dim ds As New cDATENSERVER(daidno)
-                                    .Rows.Add(-1, nameLief, ds.da_name, ds.da_id, -1)
                                 End If
 
                             Next

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.2.0")>
-<Assembly: AssemblyFileVersion("1.4.2.0")>
+<Assembly: AssemblyVersion("1.4.2.1")>
+<Assembly: AssemblyFileVersion("1.4.2.1")>

SDL/kunden/frmKundenblatt.Designer.vb

@@ -31,6 +31,10 @@ Partial Class frmKundenblatt
         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -44,17 +48,18 @@ Partial Class frmKundenblatt
         Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenblatt))
         Me.pnlInfo = New System.Windows.Forms.Panel()
         Me.txtInfotext = New System.Windows.Forms.Label()
         Me.tbFirmendaten = New System.Windows.Forms.TabPage()
         Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
         Me.tbcntrMain = New System.Windows.Forms.TabControl()
         Me.tbAllgemein = New System.Windows.Forms.TabPage()
+        Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label39 = New System.Windows.Forms.Label()
+        Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.btnReloadOP = New System.Windows.Forms.Button()
@@ -65,6 +70,8 @@ Partial Class frmKundenblatt
         Me.dgvUmsaetze = New System.Windows.Forms.DataGridView()
         Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label13 = New System.Windows.Forms.Label()
+        Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.dgvUmsatzNachLeistngsNr = New System.Windows.Forms.DataGridView()
         Me.lblAdressenzusatz = New System.Windows.Forms.TextBox()
         Me.Label11 = New System.Windows.Forms.Label()
         Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -141,8 +148,10 @@ Partial Class frmKundenblatt
         Me.lblLetzterSA_SDL = New System.Windows.Forms.Label()
         Me.rtbVermerke = New System.Windows.Forms.RichTextBox()
         Me.tbSDLKarten = New System.Windows.Forms.TabPage()
+        Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
         Me.tbLKW = New System.Windows.Forms.TabPage()
         Me.pnlLKWRight = New System.Windows.Forms.Panel()
+        Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
         Me.pnlLKW = New System.Windows.Forms.Panel()
         Me.dgvLKW = New System.Windows.Forms.DataGridView()
         Me.pnlLKWBottom = New System.Windows.Forms.Panel()
@@ -174,6 +183,7 @@ Partial Class frmKundenblatt
         Me.tbBesuchsberichte = New System.Windows.Forms.TabPage()
         Me.tbFremdrechnungen = New System.Windows.Forms.TabPage()
         Me.tbOfferte = New System.Windows.Forms.TabPage()
+        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
         Me.tbUSTV = New System.Windows.Forms.TabPage()
         Me.tbcntrUSTV = New System.Windows.Forms.TabControl()
         Me.tbUSTVDokumente = New System.Windows.Forms.TabPage()
@@ -184,6 +194,7 @@ Partial Class frmKundenblatt
         Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
         Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
         Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
+        Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
         Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
@@ -209,17 +220,7 @@ Partial Class frmKundenblatt
         Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem()
         Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
         Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
-        Me.TabPage3 = New System.Windows.Forms.TabPage()
-        Me.dgvUmsatzNachLeistngsNr = New System.Windows.Forms.DataGridView()
-        Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Label39 = New System.Windows.Forms.Label()
-        Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
-        Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
-        Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
-        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
-        Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
+        Me.PictureBox7 = New System.Windows.Forms.PictureBox()
         Me.pnlInfo.SuspendLayout()
         Me.tbFirmendaten.SuspendLayout()
         Me.Panel4.SuspendLayout()
@@ -230,6 +231,8 @@ Partial Class frmKundenblatt
         CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage2.SuspendLayout()
         CType(Me.dgvUmsaetze, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage3.SuspendLayout()
+        CType(Me.dgvUmsatzNachLeistngsNr, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picLogo, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -270,8 +273,7 @@ Partial Class frmKundenblatt
         Me.ContextMenuStrip3.SuspendLayout()
         Me.mne.SuspendLayout()
         Me.pnl.SuspendLayout()
-        Me.TabPage3.SuspendLayout()
-        CType(Me.dgvUmsatzNachLeistngsNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'pnlInfo
@@ -315,6 +317,16 @@ Partial Class frmKundenblatt
         Me.Panel4.Size = New System.Drawing.Size(1638, 1163)
         Me.Panel4.TabIndex = 0
         '
+        'UsrcntlKundeBearbeitenFull1
+        '
+        Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
+        Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
+        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, 1163)
+        Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
+        '
         'tbcntrMain
         '
         Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
@@ -375,6 +387,73 @@ Partial Class frmKundenblatt
         Me.tbAllgemein.TabIndex = 0
         Me.tbAllgemein.Text = "Allgemein"
         '
+        'FlatButton6
+        '
+        Me.FlatButton6.allowBorder = False
+        Me.FlatButton6.BackgroundImage = Global.SDL.My.Resources.Resources.list
+        Me.FlatButton6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        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.Name = "FlatButton6"
+        Me.FlatButton6.Size = New System.Drawing.Size(15, 12)
+        Me.FlatButton6.TabIndex = 191
+        Me.FlatButton6.UseVisualStyleBackColor = True
+        '
+        'lblBonitaet
+        '
+        Me.lblBonitaet._DateTimeOnly = False
+        Me.lblBonitaet._numbersOnly = False
+        Me.lblBonitaet._numbersOnlyKommastellen = ""
+        Me.lblBonitaet._numbersOnlyTrennzeichen = True
+        Me.lblBonitaet._Prozent = False
+        Me.lblBonitaet._ShortDateNew = False
+        Me.lblBonitaet._ShortDateOnly = False
+        Me.lblBonitaet._TimeOnly = False
+        Me.lblBonitaet._TimeOnly_Seconds = False
+        Me.lblBonitaet._value = Nothing
+        Me.lblBonitaet._Waehrung = False
+        Me.lblBonitaet._WaehrungZeichen = True
+        Me.lblBonitaet.BackColor = System.Drawing.Color.WhiteSmoke
+        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.MaxLineLength = -1
+        Me.lblBonitaet.MaxLines_Warning = ""
+        Me.lblBonitaet.MaxLines_Warning_Label = Nothing
+        Me.lblBonitaet.Name = "lblBonitaet"
+        Me.lblBonitaet.ReadOnly = True
+        Me.lblBonitaet.Size = New System.Drawing.Size(54, 13)
+        Me.lblBonitaet.TabIndex = 189
+        Me.lblBonitaet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label39
+        '
+        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.Name = "Label39"
+        Me.Label39.Size = New System.Drawing.Size(43, 13)
+        Me.Label39.TabIndex = 188
+        Me.Label39.Text = "Bonität:"
+        '
+        'btnBonitaetBearbeiten
+        '
+        Me.btnBonitaetBearbeiten.allowBorder = False
+        Me.btnBonitaetBearbeiten.BackgroundImage = Global.SDL.My.Resources.Resources.plus
+        Me.btnBonitaetBearbeiten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        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.Name = "btnBonitaetBearbeiten"
+        Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12)
+        Me.btnBonitaetBearbeiten.TabIndex = 187
+        Me.btnBonitaetBearbeiten.UseVisualStyleBackColor = True
+        Me.btnBonitaetBearbeiten.Visible = False
+        '
         'TabControl1
         '
         Me.TabControl1.Controls.Add(Me.TabPage1)
@@ -573,6 +652,60 @@ Partial Class frmKundenblatt
         Me.Label13.TabIndex = 184
         Me.Label13.Text = "Umsatz Jahr:"
         '
+        'TabPage3
+        '
+        Me.TabPage3.Controls.Add(Me.PictureBox7)
+        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, 524)
+        Me.TabPage3.TabIndex = 2
+        Me.TabPage3.Text = "Umsatz nach LeistungsNr"
+        Me.TabPage3.UseVisualStyleBackColor = True
+        '
+        'dgvUmsatzNachLeistngsNr
+        '
+        Me.dgvUmsatzNachLeistngsNr.AllowUserToAddRows = False
+        Me.dgvUmsatzNachLeistngsNr.AllowUserToDeleteRows = False
+        Me.dgvUmsatzNachLeistngsNr.AllowUserToResizeRows = False
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvUmsatzNachLeistngsNr.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        Me.dgvUmsatzNachLeistngsNr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.dgvUmsatzNachLeistngsNr.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle10.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.WindowText
+        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvUmsatzNachLeistngsNr.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
+        Me.dgvUmsatzNachLeistngsNr.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvUmsatzNachLeistngsNr.DefaultCellStyle = DataGridViewCellStyle11
+        Me.dgvUmsatzNachLeistngsNr.Location = New System.Drawing.Point(2, 20)
+        Me.dgvUmsatzNachLeistngsNr.Name = "dgvUmsatzNachLeistngsNr"
+        Me.dgvUmsatzNachLeistngsNr.ReadOnly = True
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.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))
+        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
+        Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False
+        Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(707, 484)
+        Me.dgvUmsatzNachLeistngsNr.TabIndex = 183
+        '
         'lblAdressenzusatz
         '
         Me.lblAdressenzusatz.BackColor = System.Drawing.Color.White
@@ -1578,11 +1711,21 @@ Partial Class frmKundenblatt
         Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22)
         Me.tbSDLKarten.Name = "tbSDLKarten"
         Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 1137)
+        Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39)
         Me.tbSDLKarten.TabIndex = 7
         Me.tbSDLKarten.Text = "SDL-Kartenverwaltung"
         Me.tbSDLKarten.UseVisualStyleBackColor = True
         '
+        'usrcntlKarten
+        '
+        Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
+        Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
+        Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.usrcntlKarten.Name = "usrcntlKarten"
+        Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33)
+        Me.usrcntlKarten.TabIndex = 0
+        '
         'tbLKW
         '
         Me.tbLKW.Controls.Add(Me.pnlLKWRight)
@@ -1590,7 +1733,7 @@ Partial Class frmKundenblatt
         Me.tbLKW.Location = New System.Drawing.Point(4, 22)
         Me.tbLKW.Name = "tbLKW"
         Me.tbLKW.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbLKW.Size = New System.Drawing.Size(1630, 1137)
+        Me.tbLKW.Size = New System.Drawing.Size(178, 39)
         Me.tbLKW.TabIndex = 4
         Me.tbLKW.Text = "LKWs"
         Me.tbLKW.UseVisualStyleBackColor = True
@@ -1602,9 +1745,22 @@ Partial Class frmKundenblatt
         Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3)
         Me.pnlLKWRight.Name = "pnlLKWRight"
         Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 1131)
+        Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33)
         Me.pnlLKWRight.TabIndex = 2
         '
+        'UsrCntlLKW1
+        '
+        Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
+        Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
+        Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
+        Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33)
+        Me.UsrCntlLKW1.TabIndex = 0
+        '
         'pnlLKW
         '
         Me.pnlLKW.Controls.Add(Me.dgvLKW)
@@ -1613,7 +1769,7 @@ Partial Class frmKundenblatt
         Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left
         Me.pnlLKW.Location = New System.Drawing.Point(3, 3)
         Me.pnlLKW.Name = "pnlLKW"
-        Me.pnlLKW.Size = New System.Drawing.Size(306, 1131)
+        Me.pnlLKW.Size = New System.Drawing.Size(306, 33)
         Me.pnlLKW.TabIndex = 3
         '
         'dgvLKW
@@ -1654,7 +1810,7 @@ Partial Class frmKundenblatt
         Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle25
         Me.dgvLKW.RowHeadersVisible = False
         Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvLKW.Size = New System.Drawing.Size(306, 957)
+        Me.dgvLKW.Size = New System.Drawing.Size(306, 0)
         Me.dgvLKW.TabIndex = 2
         '
         'pnlLKWBottom
@@ -1666,7 +1822,7 @@ Partial Class frmKundenblatt
         Me.pnlLKWBottom.Controls.Add(Me.Button13)
         Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse)
         Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 1019)
+        Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79)
         Me.pnlLKWBottom.Name = "pnlLKWBottom"
         Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112)
         Me.pnlLKWBottom.TabIndex = 3
@@ -1807,7 +1963,7 @@ Partial Class frmKundenblatt
         Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22)
         Me.tbVERAGCard.Name = "tbVERAGCard"
         Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 1137)
+        Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39)
         Me.tbVERAGCard.TabIndex = 6
         Me.tbVERAGCard.Text = "VERAG Card"
         Me.tbVERAGCard.UseVisualStyleBackColor = True
@@ -1819,7 +1975,7 @@ Partial Class frmKundenblatt
         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel3.Location = New System.Drawing.Point(3, 3)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(1624, 1131)
+        Me.Panel3.Size = New System.Drawing.Size(172, 33)
         Me.Panel3.TabIndex = 0
         '
         'tbDokumente
@@ -1837,7 +1993,7 @@ Partial Class frmKundenblatt
         Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd)
         Me.tbDokumente.Location = New System.Drawing.Point(4, 22)
         Me.tbDokumente.Name = "tbDokumente"
-        Me.tbDokumente.Size = New System.Drawing.Size(1630, 1137)
+        Me.tbDokumente.Size = New System.Drawing.Size(178, 39)
         Me.tbDokumente.TabIndex = 8
         Me.tbDokumente.Text = "Dokumente"
         Me.tbDokumente.UseVisualStyleBackColor = True
@@ -2037,7 +2193,7 @@ Partial Class frmKundenblatt
         Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22)
         Me.tbBesuchsberichte.Name = "tbBesuchsberichte"
         Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 1137)
+        Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39)
         Me.tbBesuchsberichte.TabIndex = 9
         Me.tbBesuchsberichte.Text = "Besuchsberichte"
         Me.tbBesuchsberichte.UseVisualStyleBackColor = True
@@ -2046,7 +2202,7 @@ Partial Class frmKundenblatt
         '
         Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22)
         Me.tbFremdrechnungen.Name = "tbFremdrechnungen"
-        Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 1137)
+        Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39)
         Me.tbFremdrechnungen.TabIndex = 10
         Me.tbFremdrechnungen.Text = "Fremdrechnungen"
         Me.tbFremdrechnungen.UseVisualStyleBackColor = True
@@ -2062,6 +2218,16 @@ Partial Class frmKundenblatt
         Me.tbOfferte.Text = "Offerte"
         Me.tbOfferte.UseVisualStyleBackColor = True
         '
+        'UsrCntlOfferte1
+        '
+        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
+        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, 1169)
+        Me.UsrCntlOfferte1.TabIndex = 0
+        '
         'tbUSTV
         '
         Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
@@ -2195,11 +2361,19 @@ Partial Class frmKundenblatt
         Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22)
         Me.tbUSTVAntrage.Name = "tbUSTVAntrage"
         Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbUSTVAntrage.Size = New System.Drawing.Size(1636, 1143)
+        Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45)
         Me.tbUSTVAntrage.TabIndex = 9
         Me.tbUSTVAntrage.Text = "USTV-Anträge"
         Me.tbUSTVAntrage.UseVisualStyleBackColor = True
         '
+        'UsrCntlUSTV
+        '
+        Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
+        Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39)
+        Me.UsrCntlUSTV.TabIndex = 0
+        '
         'cntxtExcel
         '
         Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -2342,7 +2516,7 @@ Partial Class frmKundenblatt
         '
         Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
         Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
         Me.cntxtCntxtMDM.Text = "cntxtMDM"
         '
@@ -2476,176 +2650,16 @@ Partial Class frmKundenblatt
         Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
         Me.tbiVERAGCard.Text = "VERAG Card"
         '
-        'TabPage3
+        'PictureBox7
         '
-        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, 524)
-        Me.TabPage3.TabIndex = 2
-        Me.TabPage3.Text = "Umsatz nach LeistungsNr"
-        Me.TabPage3.UseVisualStyleBackColor = True
-        '
-        'dgvUmsatzNachLeistngsNr
-        '
-        Me.dgvUmsatzNachLeistngsNr.AllowUserToAddRows = False
-        Me.dgvUmsatzNachLeistngsNr.AllowUserToDeleteRows = False
-        Me.dgvUmsatzNachLeistngsNr.AllowUserToResizeRows = False
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUmsatzNachLeistngsNr.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
-        Me.dgvUmsatzNachLeistngsNr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.dgvUmsatzNachLeistngsNr.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle10.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.WindowText
-        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvUmsatzNachLeistngsNr.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
-        Me.dgvUmsatzNachLeistngsNr.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvUmsatzNachLeistngsNr.DefaultCellStyle = DataGridViewCellStyle11
-        Me.dgvUmsatzNachLeistngsNr.Location = New System.Drawing.Point(2, 20)
-        Me.dgvUmsatzNachLeistngsNr.Name = "dgvUmsatzNachLeistngsNr"
-        Me.dgvUmsatzNachLeistngsNr.ReadOnly = True
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.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))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
-        Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False
-        Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(707, 484)
-        Me.dgvUmsatzNachLeistngsNr.TabIndex = 183
-        '
-        'btnBonitaetBearbeiten
-        '
-        Me.btnBonitaetBearbeiten.allowBorder = False
-        Me.btnBonitaetBearbeiten.BackgroundImage = Global.SDL.My.Resources.Resources.plus
-        Me.btnBonitaetBearbeiten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        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.Name = "btnBonitaetBearbeiten"
-        Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12)
-        Me.btnBonitaetBearbeiten.TabIndex = 187
-        Me.btnBonitaetBearbeiten.UseVisualStyleBackColor = True
-        Me.btnBonitaetBearbeiten.Visible = False
-        '
-        'FlatButton6
-        '
-        Me.FlatButton6.allowBorder = False
-        Me.FlatButton6.BackgroundImage = Global.SDL.My.Resources.Resources.list
-        Me.FlatButton6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        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.Name = "FlatButton6"
-        Me.FlatButton6.Size = New System.Drawing.Size(15, 12)
-        Me.FlatButton6.TabIndex = 191
-        Me.FlatButton6.UseVisualStyleBackColor = True
-        '
-        'lblBonitaet
-        '
-        Me.lblBonitaet._DateTimeOnly = False
-        Me.lblBonitaet._numbersOnly = False
-        Me.lblBonitaet._numbersOnlyKommastellen = ""
-        Me.lblBonitaet._numbersOnlyTrennzeichen = True
-        Me.lblBonitaet._Prozent = False
-        Me.lblBonitaet._ShortDateNew = False
-        Me.lblBonitaet._ShortDateOnly = False
-        Me.lblBonitaet._TimeOnly = False
-        Me.lblBonitaet._TimeOnly_Seconds = False
-        Me.lblBonitaet._value = Nothing
-        Me.lblBonitaet._Waehrung = False
-        Me.lblBonitaet._WaehrungZeichen = True
-        Me.lblBonitaet.BackColor = System.Drawing.Color.WhiteSmoke
-        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.MaxLineLength = -1
-        Me.lblBonitaet.MaxLines_Warning = ""
-        Me.lblBonitaet.MaxLines_Warning_Label = Nothing
-        Me.lblBonitaet.Name = "lblBonitaet"
-        Me.lblBonitaet.ReadOnly = True
-        Me.lblBonitaet.Size = New System.Drawing.Size(54, 13)
-        Me.lblBonitaet.TabIndex = 189
-        Me.lblBonitaet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label39
-        '
-        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.Name = "Label39"
-        Me.Label39.Size = New System.Drawing.Size(43, 13)
-        Me.Label39.TabIndex = 188
-        Me.Label39.Text = "Bonität:"
-        '
-        'UsrcntlKundeBearbeitenFull1
-        '
-        Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
-        Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
-        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, 1163)
-        Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
-        '
-        'usrcntlKarten
-        '
-        Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
-        Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
-        Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.usrcntlKarten.Name = "usrcntlKarten"
-        Me.usrcntlKarten.Size = New System.Drawing.Size(1624, 1131)
-        Me.usrcntlKarten.TabIndex = 0
-        '
-        'UsrCntlLKW1
-        '
-        Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
-        Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
-        Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
-        Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 1000)
-        Me.UsrCntlLKW1.TabIndex = 0
-        '
-        'UsrCntlOfferte1
-        '
-        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
-        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, 1169)
-        Me.UsrCntlOfferte1.TabIndex = 0
-        '
-        'UsrCntlUSTV
-        '
-        Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
-        Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
-        Me.UsrCntlUSTV.Size = New System.Drawing.Size(1630, 1137)
-        Me.UsrCntlUSTV.TabIndex = 0
+        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(687, 0)
+        Me.PictureBox7.Name = "PictureBox7"
+        Me.PictureBox7.Size = New System.Drawing.Size(20, 20)
+        Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox7.TabIndex = 145
+        Me.PictureBox7.TabStop = False
         '
         'frmKundenblatt
         '
@@ -2680,6 +2694,8 @@ Partial Class frmKundenblatt
         Me.TabPage2.ResumeLayout(False)
         Me.TabPage2.PerformLayout()
         CType(Me.dgvUmsaetze, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage3.ResumeLayout(False)
+        CType(Me.dgvUmsatzNachLeistngsNr, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.picLogo, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2732,8 +2748,7 @@ Partial Class frmKundenblatt
         Me.mne.PerformLayout()
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
-        Me.TabPage3.ResumeLayout(False)
-        CType(Me.dgvUmsatzNachLeistngsNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -2909,4 +2924,5 @@ Partial Class frmKundenblatt
     Friend WithEvents FlatButton6 As VERAG_PROG_ALLGEMEIN.FlatButton
     Friend WithEvents lblBonitaet As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label39 As Label
+    Friend WithEvents PictureBox7 As PictureBox
 End Class

SDL/kunden/frmKundenblatt.vb

@@ -2175,5 +2175,15 @@ Public Class frmKundenblatt
                                  End Sub
 
     End Sub
+
+    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)
+            Me.Cursor = Cursors.Default
+        End If
+
+
+    End Sub
 End Class
 

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -1007,6 +1007,10 @@ Public Class cRechnungsausgangAnhaenge
         Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", showError, list)
     End Function
 
+    Public Function DELETE(RK_ID As Integer, DSIS As Integer) As Boolean
+        Return SQL.doSQLVarList("DELETE FROM RechnungsausgangAnhaenge where RK_ID = " & RK_ID & " and dsId = " & DSIS, "FMZOLL")
+    End Function
+
 
 
     Public Function getInsertCmd() As String