Kundenuebersicht, etc.

SDL/kunden/frmKundenUebersichtZOLL.Designer.vb

@@ -37,17 +37,24 @@ Partial Class frmKundenUebersichtZOLL
         Me.tabKundendaten = New System.Windows.Forms.TabPage()
         Me.rtbInfo = New System.Windows.Forms.RichTextBox()
         Me.lblAbfertigungsverbot = New System.Windows.Forms.Label()
+        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
         Me.tbStatistik = New System.Windows.Forms.TabPage()
+        Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.btnUbersicht = New System.Windows.Forms.Button()
         Me.Label27 = New System.Windows.Forms.Label()
         Me.dgvFilialen = New System.Windows.Forms.DataGridView()
         Me.grpFilter = New System.Windows.Forms.GroupBox()
+        Me.lbAvgTnrGesPos = New System.Windows.Forms.Label()
+        Me.lblAvgTnr = New System.Windows.Forms.Label()
+        Me.Button4 = New System.Windows.Forms.Button()
         Me.Label24 = New System.Windows.Forms.Label()
+        Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
         Me.Label25 = New System.Windows.Forms.Label()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.datVon = New System.Windows.Forms.DateTimePicker()
@@ -82,10 +89,18 @@ Partial Class frmKundenUebersichtZOLL
         Me.btnSpeichern = New System.Windows.Forms.Button()
         Me.Label35 = New System.Windows.Forms.Label()
         Me.tbRechnungen = New System.Windows.Forms.TabPage()
+        Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.btnRgPdf = New System.Windows.Forms.Button()
         Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.btnMonat = New System.Windows.Forms.Button()
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.Button11 = New System.Windows.Forms.Button()
+        Me.Label40 = New System.Windows.Forms.Label()
         Me.tbSpeditionsbuch = New System.Windows.Forms.TabPage()
         Me.tbFiskaluebersicht = New System.Windows.Forms.TabPage()
+        Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
         Me.tbCBAM = New System.Windows.Forms.TabPage()
         Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
         Me.Panel1 = New System.Windows.Forms.Panel()
@@ -133,6 +148,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.cbx = New System.Windows.Forms.CheckBox()
         Me.lblTESTSystem = New System.Windows.Forms.Label()
         Me.pic = New System.Windows.Forms.PictureBox()
+        Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
         Me.tmrFiskal = New System.Windows.Forms.Timer(Me.components)
         Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
@@ -140,24 +156,8 @@ Partial Class frmKundenUebersichtZOLL
         Me.HochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.Button4 = New System.Windows.Forms.Button()
-        Me.lblAvgTnr = New System.Windows.Forms.Label()
-        Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
-        Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
-        Me.btnRgPdf = New System.Windows.Forms.Button()
-        Me.btnMonat = New System.Windows.Forms.Button()
-        Me.Button10 = New System.Windows.Forms.Button()
-        Me.Button11 = New System.Windows.Forms.Button()
-        Me.Label40 = New System.Windows.Forms.Label()
-        Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
         Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.lbAvgTnrGesPos = New System.Windows.Forms.Label()
-        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
-        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
-        Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.tabZolltarife.SuspendLayout()
         Me.tabKundendaten.SuspendLayout()
@@ -175,6 +175,8 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbFiskal.SuspendLayout()
         Me.pnlFiskTop.SuspendLayout()
         Me.tbRechnungen.SuspendLayout()
+        CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.MyPanel1.SuspendLayout()
         Me.ctxtRg.SuspendLayout()
         Me.tbFiskaluebersicht.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -182,8 +184,6 @@ Partial Class frmKundenUebersichtZOLL
         Me.pnlTop.SuspendLayout()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip3.SuspendLayout()
-        CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.MyPanel1.SuspendLayout()
         Me.SuspendLayout()
         '
         'ContextMenuStrip1
@@ -260,6 +260,17 @@ Partial Class frmKundenUebersichtZOLL
         Me.lblAbfertigungsverbot.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
         Me.lblAbfertigungsverbot.Visible = False
         '
+        'usrcntlKundenuebersicht
+        '
+        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
+        Me.usrcntlKundenuebersicht.BER_STUFE = 0
+        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
+        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
+        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
+        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
+        Me.usrcntlKundenuebersicht.TabIndex = 0
+        '
         'ContextMenuStrip2
         '
         Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -305,6 +316,16 @@ Partial Class frmKundenUebersichtZOLL
         Me.TabPage1.TabIndex = 2
         Me.TabPage1.Text = "Offerte"
         '
+        'UsrCntlOfferte1
+        '
+        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
+        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
+        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
+        Me.UsrCntlOfferte1.TabIndex = 0
+        '
         'tbStatistik
         '
         Me.tbStatistik.BackColor = System.Drawing.Color.White
@@ -342,6 +363,17 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbStatistik.TabIndex = 3
         Me.tbStatistik.Text = "Statikstik"
         '
+        'cboKundenblattFirma
+        '
+        Me.cboKundenblattFirma._allowedValuesFreiText = Nothing
+        Me.cboKundenblattFirma._allowFreiText = False
+        Me.cboKundenblattFirma._value = ""
+        Me.cboKundenblattFirma.FormattingEnabled = True
+        Me.cboKundenblattFirma.Location = New System.Drawing.Point(6, 331)
+        Me.cboKundenblattFirma.Name = "cboKundenblattFirma"
+        Me.cboKundenblattFirma.Size = New System.Drawing.Size(224, 21)
+        Me.cboKundenblattFirma.TabIndex = 171
+        '
         'Button1
         '
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -422,6 +454,37 @@ Partial Class frmKundenUebersichtZOLL
         Me.grpFilter.TabStop = False
         Me.grpFilter.Text = "Filter"
         '
+        'lbAvgTnrGesPos
+        '
+        Me.lbAvgTnrGesPos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
+        Me.lbAvgTnrGesPos.Location = New System.Drawing.Point(9, 325)
+        Me.lbAvgTnrGesPos.Name = "lbAvgTnrGesPos"
+        Me.lbAvgTnrGesPos.Size = New System.Drawing.Size(239, 12)
+        Me.lbAvgTnrGesPos.TabIndex = 173
+        Me.lbAvgTnrGesPos.Text = "-"
+        Me.lbAvgTnrGesPos.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'lblAvgTnr
+        '
+        Me.lblAvgTnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblAvgTnr.Location = New System.Drawing.Point(9, 312)
+        Me.lblAvgTnr.Name = "lblAvgTnr"
+        Me.lblAvgTnr.Size = New System.Drawing.Size(239, 12)
+        Me.lblAvgTnr.TabIndex = 172
+        Me.lblAvgTnr.Text = "0"
+        Me.lblAvgTnr.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Button4
+        '
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.Location = New System.Drawing.Point(9, 277)
+        Me.Button4.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(239, 25)
+        Me.Button4.TabIndex = 166
+        Me.Button4.Text = "Durchschnitt Positionsanzahl"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
         'Label24
         '
         Me.Label24.AutoSize = True
@@ -432,6 +495,16 @@ Partial Class frmKundenUebersichtZOLL
         Me.Label24.TabIndex = 14
         Me.Label24.Text = "Zeitraum der Auswertung:"
         '
+        'MyListBox1
+        '
+        Me.MyListBox1._value = ""
+        Me.MyListBox1.FormattingEnabled = True
+        Me.MyListBox1.Location = New System.Drawing.Point(9, 88)
+        Me.MyListBox1.Name = "MyListBox1"
+        Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
+        Me.MyListBox1.Size = New System.Drawing.Size(239, 134)
+        Me.MyListBox1.TabIndex = 165
+        '
         'Label25
         '
         Me.Label25.AutoSize = True
@@ -843,6 +916,52 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbRechnungen.TabIndex = 5
         Me.tbRechnungen.Text = "Rechnungen"
         '
+        'dgvRg
+        '
+        Me.dgvRg.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvRg.AllowUserToAddRows = False
+        Me.dgvRg.AllowUserToDeleteRows = False
+        Me.dgvRg.AllowUserToResizeColumns = False
+        Me.dgvRg.AllowUserToResizeRows = False
+        Me.dgvRg.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvRg.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvRg.Location = New System.Drawing.Point(0, 60)
+        Me.dgvRg.Name = "dgvRg"
+        Me.dgvRg.ReadOnly = True
+        Me.dgvRg.RowHeadersVisible = False
+        Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvRg.Size = New System.Drawing.Size(1182, 637)
+        Me.dgvRg.TabIndex = 1
+        '
+        'MyPanel1
+        '
+        Me.MyPanel1.Controls.Add(Me.btnRgPdf)
+        Me.MyPanel1.Controls.Add(Me.btnMonat)
+        Me.MyPanel1.Controls.Add(Me.Button10)
+        Me.MyPanel1.Controls.Add(Me.Button11)
+        Me.MyPanel1.Controls.Add(Me.Label40)
+        Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.MyPanel1.Location = New System.Drawing.Point(0, 0)
+        Me.MyPanel1.Name = "MyPanel1"
+        Me.MyPanel1.Size = New System.Drawing.Size(1182, 60)
+        Me.MyPanel1.TabIndex = 0
+        '
+        'btnRgPdf
+        '
+        Me.btnRgPdf.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnRgPdf.ContextMenuStrip = Me.ctxtRg
+        Me.btnRgPdf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnRgPdf.Image = Global.SDL.My.Resources.Resources.pdf1
+        Me.btnRgPdf.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnRgPdf.Location = New System.Drawing.Point(1069, 2)
+        Me.btnRgPdf.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
+        Me.btnRgPdf.Name = "btnRgPdf"
+        Me.btnRgPdf.Size = New System.Drawing.Size(105, 57)
+        Me.btnRgPdf.TabIndex = 212
+        Me.btnRgPdf.Text = "Als PDF"
+        Me.btnRgPdf.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnRgPdf.UseVisualStyleBackColor = True
+        '
         'ctxtRg
         '
         Me.ctxtRg.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiHochladenToolStripMenuItem})
@@ -856,6 +975,60 @@ Partial Class frmKundenUebersichtZOLL
         Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
         Me.DateiHochladenToolStripMenuItem.Text = "PDF in Zwischenablage"
         '
+        'btnMonat
+        '
+        Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnMonat.Location = New System.Drawing.Point(194, 29)
+        Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnMonat.Name = "btnMonat"
+        Me.btnMonat.Size = New System.Drawing.Size(103, 23)
+        Me.btnMonat.TabIndex = 53
+        Me.btnMonat.Text = "September"
+        Me.btnMonat.UseVisualStyleBackColor = True
+        '
+        'Button10
+        '
+        Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Button10.ForeColor = System.Drawing.Color.Black
+        Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button10.Location = New System.Drawing.Point(161, 29)
+        Me.Button10.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(34, 23)
+        Me.Button10.TabIndex = 52
+        Me.Button10.Text = "<<"
+        Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'Button11
+        '
+        Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Button11.ForeColor = System.Drawing.Color.Black
+        Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button11.Location = New System.Drawing.Point(296, 29)
+        Me.Button11.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(34, 23)
+        Me.Button11.TabIndex = 54
+        Me.Button11.Text = ">>"
+        Me.Button11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button11.UseVisualStyleBackColor = True
+        '
+        'Label40
+        '
+        Me.Label40.AutoSize = True
+        Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.Label40.Location = New System.Drawing.Point(22, 29)
+        Me.Label40.Name = "Label40"
+        Me.Label40.Size = New System.Drawing.Size(111, 20)
+        Me.Label40.TabIndex = 39
+        Me.Label40.Text = "Rechnungen"
+        '
         'tbSpeditionsbuch
         '
         Me.tbSpeditionsbuch.Location = New System.Drawing.Point(4, 25)
@@ -875,6 +1048,15 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbFiskaluebersicht.Text = "Fiskal-Analyse"
         Me.tbFiskaluebersicht.UseVisualStyleBackColor = True
         '
+        'UsrcntlFiskaluebersicht1
+        '
+        Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
+        Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
+        Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
+        Me.UsrcntlFiskaluebersicht1.TabIndex = 0
+        '
         'tbCBAM
         '
         Me.tbCBAM.Location = New System.Drawing.Point(4, 25)
@@ -1306,6 +1488,39 @@ Partial Class frmKundenUebersichtZOLL
         Me.pic.TabIndex = 212
         Me.pic.TabStop = False
         '
+        'KdSearchBox1
+        '
+        Me.KdSearchBox1._AlleFirmenCLUSTER = False
+        Me.KdSearchBox1._AllowSetValue = True
+        Me.KdSearchBox1._autoSizeGross = False
+        Me.KdSearchBox1._display_Name1 = False
+        Me.KdSearchBox1._displayAVISO_Email = False
+        Me.KdSearchBox1._displayFullName = False
+        Me.KdSearchBox1._displayWoelflKd = True
+        Me.KdSearchBox1._hideIfListEmpty = True
+        Me.KdSearchBox1._loadKdData = False
+        Me.KdSearchBox1._searchName1 = True
+        Me.KdSearchBox1._UseFIRMA = ""
+        Me.KdSearchBox1._ValueKdAndName = False
+        Me.KdSearchBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.KdSearchBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
+        Me.KdSearchBox1.BackColor = System.Drawing.SystemColors.Control
+        Me.KdSearchBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.KdSearchBox1.dgvpos = "LEFT"
+        Me.KdSearchBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.KdSearchBox1.KdName = ""
+        Me.KdSearchBox1.KdNr = "-1"
+        Me.KdSearchBox1.kdNrField = Nothing
+        Me.KdSearchBox1.KdNrNullInt = Nothing
+        Me.KdSearchBox1.Location = New System.Drawing.Point(30, 1)
+        Me.KdSearchBox1.Name = "KdSearchBox1"
+        Me.KdSearchBox1.nurAktive = False
+        Me.KdSearchBox1.searchActive = True
+        Me.KdSearchBox1.Size = New System.Drawing.Size(504, 30)
+        Me.KdSearchBox1.TabIndex = 211
+        Me.KdSearchBox1.TIMER_SEARCH = True
+        Me.KdSearchBox1.usrcntl = Nothing
+        '
         'tmrFiskal
         '
         Me.tmrFiskal.Interval = 1500
@@ -1351,181 +1566,6 @@ Partial Class frmKundenUebersichtZOLL
         Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(147, 30)
         Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen"
         '
-        'Button4
-        '
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button4.Location = New System.Drawing.Point(9, 277)
-        Me.Button4.Margin = New System.Windows.Forms.Padding(0)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(239, 25)
-        Me.Button4.TabIndex = 166
-        Me.Button4.Text = "Durchschnitt Positionsanzahl"
-        Me.Button4.UseVisualStyleBackColor = True
-        '
-        'lblAvgTnr
-        '
-        Me.lblAvgTnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblAvgTnr.Location = New System.Drawing.Point(9, 312)
-        Me.lblAvgTnr.Name = "lblAvgTnr"
-        Me.lblAvgTnr.Size = New System.Drawing.Size(239, 12)
-        Me.lblAvgTnr.TabIndex = 172
-        Me.lblAvgTnr.Text = "0"
-        Me.lblAvgTnr.TextAlign = System.Drawing.ContentAlignment.TopRight
-        '
-        'cboKundenblattFirma
-        '
-        Me.cboKundenblattFirma._allowedValuesFreiText = Nothing
-        Me.cboKundenblattFirma._allowFreiText = False
-        Me.cboKundenblattFirma._value = ""
-        Me.cboKundenblattFirma.FormattingEnabled = True
-        Me.cboKundenblattFirma.Location = New System.Drawing.Point(6, 331)
-        Me.cboKundenblattFirma.Name = "cboKundenblattFirma"
-        Me.cboKundenblattFirma.Size = New System.Drawing.Size(224, 21)
-        Me.cboKundenblattFirma.TabIndex = 171
-        '
-        'MyListBox1
-        '
-        Me.MyListBox1._value = ""
-        Me.MyListBox1.FormattingEnabled = True
-        Me.MyListBox1.Location = New System.Drawing.Point(9, 88)
-        Me.MyListBox1.Name = "MyListBox1"
-        Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
-        Me.MyListBox1.Size = New System.Drawing.Size(239, 134)
-        Me.MyListBox1.TabIndex = 165
-        '
-        'dgvRg
-        '
-        Me.dgvRg.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvRg.AllowUserToAddRows = False
-        Me.dgvRg.AllowUserToDeleteRows = False
-        Me.dgvRg.AllowUserToResizeColumns = False
-        Me.dgvRg.AllowUserToResizeRows = False
-        Me.dgvRg.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvRg.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvRg.Location = New System.Drawing.Point(0, 60)
-        Me.dgvRg.Name = "dgvRg"
-        Me.dgvRg.ReadOnly = True
-        Me.dgvRg.RowHeadersVisible = False
-        Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvRg.Size = New System.Drawing.Size(1182, 637)
-        Me.dgvRg.TabIndex = 1
-        '
-        'MyPanel1
-        '
-        Me.MyPanel1.Controls.Add(Me.btnRgPdf)
-        Me.MyPanel1.Controls.Add(Me.btnMonat)
-        Me.MyPanel1.Controls.Add(Me.Button10)
-        Me.MyPanel1.Controls.Add(Me.Button11)
-        Me.MyPanel1.Controls.Add(Me.Label40)
-        Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.MyPanel1.Location = New System.Drawing.Point(0, 0)
-        Me.MyPanel1.Name = "MyPanel1"
-        Me.MyPanel1.Size = New System.Drawing.Size(1182, 60)
-        Me.MyPanel1.TabIndex = 0
-        '
-        'btnRgPdf
-        '
-        Me.btnRgPdf.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnRgPdf.ContextMenuStrip = Me.ctxtRg
-        Me.btnRgPdf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnRgPdf.Image = Global.SDL.My.Resources.Resources.pdf1
-        Me.btnRgPdf.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnRgPdf.Location = New System.Drawing.Point(1069, 2)
-        Me.btnRgPdf.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
-        Me.btnRgPdf.Name = "btnRgPdf"
-        Me.btnRgPdf.Size = New System.Drawing.Size(105, 57)
-        Me.btnRgPdf.TabIndex = 212
-        Me.btnRgPdf.Text = "Als PDF"
-        Me.btnRgPdf.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnRgPdf.UseVisualStyleBackColor = True
-        '
-        'btnMonat
-        '
-        Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
-        Me.btnMonat.ForeColor = System.Drawing.Color.Black
-        Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnMonat.Location = New System.Drawing.Point(194, 29)
-        Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
-        Me.btnMonat.Name = "btnMonat"
-        Me.btnMonat.Size = New System.Drawing.Size(103, 23)
-        Me.btnMonat.TabIndex = 53
-        Me.btnMonat.Text = "September"
-        Me.btnMonat.UseVisualStyleBackColor = True
-        '
-        'Button10
-        '
-        Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
-        Me.Button10.ForeColor = System.Drawing.Color.Black
-        Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button10.Location = New System.Drawing.Point(161, 29)
-        Me.Button10.Margin = New System.Windows.Forms.Padding(0)
-        Me.Button10.Name = "Button10"
-        Me.Button10.Size = New System.Drawing.Size(34, 23)
-        Me.Button10.TabIndex = 52
-        Me.Button10.Text = "<<"
-        Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button10.UseVisualStyleBackColor = True
-        '
-        'Button11
-        '
-        Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
-        Me.Button11.ForeColor = System.Drawing.Color.Black
-        Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button11.Location = New System.Drawing.Point(296, 29)
-        Me.Button11.Margin = New System.Windows.Forms.Padding(0)
-        Me.Button11.Name = "Button11"
-        Me.Button11.Size = New System.Drawing.Size(34, 23)
-        Me.Button11.TabIndex = 54
-        Me.Button11.Text = ">>"
-        Me.Button11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button11.UseVisualStyleBackColor = True
-        '
-        'Label40
-        '
-        Me.Label40.AutoSize = True
-        Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
-        Me.Label40.Location = New System.Drawing.Point(22, 29)
-        Me.Label40.Name = "Label40"
-        Me.Label40.Size = New System.Drawing.Size(111, 20)
-        Me.Label40.TabIndex = 39
-        Me.Label40.Text = "Rechnungen"
-        '
-        'KdSearchBox1
-        '
-        Me.KdSearchBox1._AlleFirmenCLUSTER = False
-        Me.KdSearchBox1._AllowSetValue = True
-        Me.KdSearchBox1._autoSizeGross = False
-        Me.KdSearchBox1._display_Name1 = False
-        Me.KdSearchBox1._displayAVISO_Email = False
-        Me.KdSearchBox1._displayFullName = False
-        Me.KdSearchBox1._displayWoelflKd = True
-        Me.KdSearchBox1._hideIfListEmpty = True
-        Me.KdSearchBox1._loadKdData = False
-        Me.KdSearchBox1._searchName1 = True
-        Me.KdSearchBox1._UseFIRMA = ""
-        Me.KdSearchBox1._ValueKdAndName = False
-        Me.KdSearchBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
-        Me.KdSearchBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
-        Me.KdSearchBox1.BackColor = System.Drawing.SystemColors.Control
-        Me.KdSearchBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.KdSearchBox1.dgvpos = "LEFT"
-        Me.KdSearchBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.KdSearchBox1.KdName = ""
-        Me.KdSearchBox1.KdNr = "-1"
-        Me.KdSearchBox1.kdNrField = Nothing
-        Me.KdSearchBox1.KdNrNullInt = Nothing
-        Me.KdSearchBox1.Location = New System.Drawing.Point(30, 1)
-        Me.KdSearchBox1.Name = "KdSearchBox1"
-        Me.KdSearchBox1.nurAktive = False
-        Me.KdSearchBox1.searchActive = True
-        Me.KdSearchBox1.Size = New System.Drawing.Size(504, 30)
-        Me.KdSearchBox1.TabIndex = 211
-        Me.KdSearchBox1.TIMER_SEARCH = True
-        Me.KdSearchBox1.usrcntl = Nothing
-        '
         'DataGridViewTextBoxColumn1
         '
         Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
@@ -1537,46 +1577,6 @@ Partial Class frmKundenUebersichtZOLL
         Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
         Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
         '
-        'lbAvgTnrGesPos
-        '
-        Me.lbAvgTnrGesPos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
-        Me.lbAvgTnrGesPos.Location = New System.Drawing.Point(9, 325)
-        Me.lbAvgTnrGesPos.Name = "lbAvgTnrGesPos"
-        Me.lbAvgTnrGesPos.Size = New System.Drawing.Size(239, 12)
-        Me.lbAvgTnrGesPos.TabIndex = 173
-        Me.lbAvgTnrGesPos.Text = "-"
-        Me.lbAvgTnrGesPos.TextAlign = System.Drawing.ContentAlignment.TopRight
-        '
-        'usrcntlKundenuebersicht
-        '
-        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
-        Me.usrcntlKundenuebersicht.BER_STUFE = 0
-        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
-        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
-        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
-        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
-        Me.usrcntlKundenuebersicht.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(3, 3)
-        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
-        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
-        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
-        Me.UsrCntlOfferte1.TabIndex = 0
-        '
-        'UsrcntlFiskaluebersicht1
-        '
-        Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
-        Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
-        Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
-        Me.UsrcntlFiskaluebersicht1.TabIndex = 0
-        '
         'frmKundenUebersichtZOLL
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1611,6 +1611,9 @@ Partial Class frmKundenUebersichtZOLL
         Me.pnlFiskTop.ResumeLayout(False)
         Me.pnlFiskTop.PerformLayout()
         Me.tbRechnungen.ResumeLayout(False)
+        CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.MyPanel1.ResumeLayout(False)
+        Me.MyPanel1.PerformLayout()
         Me.ctxtRg.ResumeLayout(False)
         Me.tbFiskaluebersicht.ResumeLayout(False)
         Me.Panel1.ResumeLayout(False)
@@ -1620,9 +1623,6 @@ Partial Class frmKundenUebersichtZOLL
         Me.pnlTop.PerformLayout()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip3.ResumeLayout(False)
-        CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.MyPanel1.ResumeLayout(False)
-        Me.MyPanel1.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -1521,6 +1521,8 @@ Public Class frmKundenUebersichtZOLL
         End If
 
     End Sub
+
+
 End Class
 
 

SDL/kunden/frmKundenblatt.Designer.vb

@@ -53,7 +53,6 @@ Partial Class frmKundenblatt
         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()
@@ -149,10 +148,8 @@ 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()
@@ -184,7 +181,6 @@ 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()
@@ -195,7 +191,9 @@ 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.tbFIBU = New System.Windows.Forms.TabPage()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtFIBUKuerzel = New System.Windows.Forms.TextBox()
         Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
@@ -213,6 +211,7 @@ Partial Class frmKundenblatt
         Me.cntxtCntxtMDM = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem9 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
         Me.pnl = New System.Windows.Forms.Panel()
         Me.lblINAKTIV = New System.Windows.Forms.Label()
@@ -221,6 +220,23 @@ 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.btnFirmendatenFormularSpeichern = New System.Windows.Forms.Button()
+        Me.tbRechnungen = New System.Windows.Forms.TabPage()
+        Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.btnRgPdf = New System.Windows.Forms.Button()
+        Me.btnMonat = New System.Windows.Forms.Button()
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.Button11 = New System.Windows.Forms.Button()
+        Me.Label40 = New System.Windows.Forms.Label()
+        Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem()
+        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.rtbGespreachsbericht = New System.Windows.Forms.RichTextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
         Me.pnlInfo.SuspendLayout()
         Me.tbFirmendaten.SuspendLayout()
         Me.Panel4.SuspendLayout()
@@ -269,11 +285,15 @@ Partial Class frmKundenblatt
         Me.tbcntrUSTV.SuspendLayout()
         Me.tbUSTVDokumente.SuspendLayout()
         Me.tbUSTVAntrage.SuspendLayout()
+        Me.tbFIBU.SuspendLayout()
         Me.cntxtExcel.SuspendLayout()
         Me.ContextMenuStrip2.SuspendLayout()
         Me.ContextMenuStrip3.SuspendLayout()
         Me.mne.SuspendLayout()
         Me.pnl.SuspendLayout()
+        Me.tbRechnungen.SuspendLayout()
+        CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.MyPanel1.SuspendLayout()
         Me.SuspendLayout()
         '
         'pnlInfo
@@ -304,7 +324,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, 1305)
+        Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 1339)
         Me.tbFirmendaten.TabIndex = 3
         Me.tbFirmendaten.Text = "Firmendaten"
         '
@@ -314,19 +334,9 @@ 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, 1299)
+        Me.Panel4.Size = New System.Drawing.Size(1638, 1333)
         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, 1299)
-        Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
-        '
         'tbcntrMain
         '
         Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
@@ -336,13 +346,15 @@ Partial Class frmKundenblatt
         Me.tbcntrMain.Controls.Add(Me.tbMdm)
         Me.tbcntrMain.Controls.Add(Me.tbOfferte)
         Me.tbcntrMain.Controls.Add(Me.tbUSTV)
+        Me.tbcntrMain.Controls.Add(Me.tbFIBU)
+        Me.tbcntrMain.Controls.Add(Me.tbRechnungen)
         Me.tbcntrMain.Dock = System.Windows.Forms.DockStyle.Fill
         Me.tbcntrMain.ItemSize = New System.Drawing.Size(76, 0)
         Me.tbcntrMain.Location = New System.Drawing.Point(0, 112)
         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, 1334)
+        Me.tbcntrMain.Size = New System.Drawing.Size(1652, 1368)
         Me.tbcntrMain.TabIndex = 3
         '
         'tbAllgemein
@@ -383,7 +395,7 @@ 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, 1305)
+        Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1339)
         Me.tbAllgemein.TabIndex = 0
         Me.tbAllgemein.Text = "Allgemein"
         '
@@ -464,7 +476,7 @@ Partial Class frmKundenblatt
         Me.TabControl1.Location = New System.Drawing.Point(8, 582)
         Me.TabControl1.Name = "TabControl1"
         Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(718, 717)
+        Me.TabControl1.Size = New System.Drawing.Size(718, 751)
         Me.TabControl1.TabIndex = 186
         '
         'TabPage1
@@ -476,7 +488,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, 691)
+        Me.TabPage1.Size = New System.Drawing.Size(710, 725)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Offene Posten"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -535,7 +547,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, 656)
+        Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 690)
         Me.dgvOffenePosten.TabIndex = 175
         '
         'Label10
@@ -568,7 +580,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, 691)
+        Me.TabPage2.Size = New System.Drawing.Size(710, 725)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Umsatzbericht"
         Me.TabPage2.UseVisualStyleBackColor = True
@@ -613,7 +625,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, 666)
+        Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 700)
         Me.dgvUmsaetze.TabIndex = 182
         '
         'Label13
@@ -661,7 +673,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, 691)
+        Me.TabPage3.Size = New System.Drawing.Size(710, 725)
         Me.TabPage3.TabIndex = 2
         Me.TabPage3.Text = "Umsatz nach LeistungsNr"
         Me.TabPage3.UseVisualStyleBackColor = True
@@ -717,7 +729,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, 668)
+        Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 702)
         Me.dgvUmsatzNachLeistngsNr.TabIndex = 183
         '
         'lblAdressenzusatz
@@ -1078,7 +1090,7 @@ Partial Class frmKundenblatt
         Me.dgvSperrliste.Name = "dgvSperrliste"
         Me.dgvSperrliste.ReadOnly = True
         Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
-        Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1261)
+        Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1295)
         Me.dgvSperrliste.TabIndex = 23
         '
         'PictureBox2
@@ -1132,7 +1144,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, 1305)
+        Me.tbZoll.Size = New System.Drawing.Size(1644, 1339)
         Me.tbZoll.TabIndex = 9
         Me.tbZoll.Text = "ZOLL"
         Me.tbZoll.UseVisualStyleBackColor = True
@@ -1144,7 +1156,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, 1299)
+        Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 1333)
         Me.tbcntrZOLL.TabIndex = 0
         '
         'tabZoll_Artikel
@@ -1152,7 +1164,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, 1273)
+        Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 1307)
         Me.tabZoll_Artikel.TabIndex = 1
         Me.tabZoll_Artikel.Text = "Artikel"
         Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -1163,7 +1175,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, 1305)
+        Me.tbMdm.Size = New System.Drawing.Size(1644, 1339)
         Me.tbMdm.TabIndex = 10
         Me.tbMdm.Text = "MDM"
         Me.tbMdm.UseVisualStyleBackColor = True
@@ -1182,7 +1194,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, 1299)
+        Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 1333)
         Me.tbcntrMDM.TabIndex = 0
         '
         'tbSDL
@@ -1194,7 +1206,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, 1273)
+        Me.tbSDL.Size = New System.Drawing.Size(1630, 1307)
         Me.tbSDL.TabIndex = 5
         Me.tbSDL.Text = "SDL-Leistungen"
         Me.tbSDL.UseVisualStyleBackColor = True
@@ -1236,7 +1248,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, 1077)
+        Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 1111)
         Me.dgvSDLLeistungenFull.TabIndex = 5
         '
         'Panel6
@@ -1341,7 +1353,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, 1127)
+        Me.Panel5.Location = New System.Drawing.Point(3, 1161)
         Me.Panel5.Name = "Panel5"
         Me.Panel5.Size = New System.Drawing.Size(1624, 143)
         Me.Panel5.TabIndex = 177
@@ -1725,21 +1737,11 @@ 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(178, 39)
+        Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 1307)
         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)
@@ -1747,7 +1749,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(178, 39)
+        Me.tbLKW.Size = New System.Drawing.Size(1630, 1307)
         Me.tbLKW.TabIndex = 4
         Me.tbLKW.Text = "LKWs"
         Me.tbLKW.UseVisualStyleBackColor = True
@@ -1759,22 +1761,9 @@ 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(0, 33)
+        Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 1301)
         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)
@@ -1783,7 +1772,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, 33)
+        Me.pnlLKW.Size = New System.Drawing.Size(306, 1301)
         Me.pnlLKW.TabIndex = 3
         '
         'dgvLKW
@@ -1824,7 +1813,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, 0)
+        Me.dgvLKW.Size = New System.Drawing.Size(306, 1127)
         Me.dgvLKW.TabIndex = 2
         '
         'pnlLKWBottom
@@ -1836,7 +1825,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, -79)
+        Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 1189)
         Me.pnlLKWBottom.Name = "pnlLKWBottom"
         Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112)
         Me.pnlLKWBottom.TabIndex = 3
@@ -1977,7 +1966,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(178, 39)
+        Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 1307)
         Me.tbVERAGCard.TabIndex = 6
         Me.tbVERAGCard.Text = "VERAG Card"
         Me.tbVERAGCard.UseVisualStyleBackColor = True
@@ -1989,7 +1978,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(172, 33)
+        Me.Panel3.Size = New System.Drawing.Size(1624, 1301)
         Me.Panel3.TabIndex = 0
         '
         'tbDokumente
@@ -2007,7 +1996,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(178, 39)
+        Me.tbDokumente.Size = New System.Drawing.Size(1630, 1307)
         Me.tbDokumente.TabIndex = 8
         Me.tbDokumente.Text = "Dokumente"
         Me.tbDokumente.UseVisualStyleBackColor = True
@@ -2207,7 +2196,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(178, 39)
+        Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 1307)
         Me.tbBesuchsberichte.TabIndex = 9
         Me.tbBesuchsberichte.Text = "Besuchsberichte"
         Me.tbBesuchsberichte.UseVisualStyleBackColor = True
@@ -2216,7 +2205,7 @@ Partial Class frmKundenblatt
         '
         Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22)
         Me.tbFremdrechnungen.Name = "tbFremdrechnungen"
-        Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39)
+        Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 1307)
         Me.tbFremdrechnungen.TabIndex = 10
         Me.tbFremdrechnungen.Text = "Fremdrechnungen"
         Me.tbFremdrechnungen.UseVisualStyleBackColor = True
@@ -2227,27 +2216,17 @@ 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, 1305)
+        Me.tbOfferte.Size = New System.Drawing.Size(1644, 1339)
         Me.tbOfferte.TabIndex = 11
         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, 1305)
-        Me.UsrCntlOfferte1.TabIndex = 0
-        '
         'tbUSTV
         '
         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, 1305)
+        Me.tbUSTV.Size = New System.Drawing.Size(1644, 1339)
         Me.tbUSTV.TabIndex = 12
         Me.tbUSTV.Text = "USTV"
         Me.tbUSTV.UseVisualStyleBackColor = True
@@ -2261,7 +2240,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, 1305)
+        Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 1339)
         Me.tbcntrUSTV.TabIndex = 1
         '
         'tbUSTVDokumente
@@ -2274,7 +2253,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, 1279)
+        Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 1313)
         Me.tbUSTVDokumente.TabIndex = 8
         Me.tbUSTVDokumente.Text = "Dokumente"
         Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -2375,18 +2354,43 @@ 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(184, 45)
+        Me.tbUSTVAntrage.Size = New System.Drawing.Size(1636, 1313)
         Me.tbUSTVAntrage.TabIndex = 9
         Me.tbUSTVAntrage.Text = "USTV-Anträge"
         Me.tbUSTVAntrage.UseVisualStyleBackColor = True
         '
-        'UsrCntlUSTV
+        'tbFIBU
         '
-        Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.tbFIBU.Controls.Add(Me.Label12)
-        Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
+        Me.tbFIBU.Controls.Add(Me.rtbGespreachsbericht)
-        Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
+        Me.tbFIBU.Controls.Add(Me.btnFirmendatenFormularSpeichern)
-        Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39)
+        Me.tbFIBU.Controls.Add(Me.Label9)
-        Me.UsrCntlUSTV.TabIndex = 0
+        Me.tbFIBU.Controls.Add(Me.txtFIBUKuerzel)
+        Me.tbFIBU.Location = New System.Drawing.Point(4, 25)
+        Me.tbFIBU.Name = "tbFIBU"
+        Me.tbFIBU.Size = New System.Drawing.Size(1644, 1339)
+        Me.tbFIBU.TabIndex = 13
+        Me.tbFIBU.Text = "FIBU"
+        Me.tbFIBU.UseVisualStyleBackColor = True
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(8, 21)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(66, 13)
+        Me.Label9.TabIndex = 2
+        Me.Label9.Text = "FIBU Kürzel:"
+        '
+        'txtFIBUKuerzel
+        '
+        Me.txtFIBUKuerzel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtFIBUKuerzel.Location = New System.Drawing.Point(112, 18)
+        Me.txtFIBUKuerzel.MaxLength = 50
+        Me.txtFIBUKuerzel.Name = "txtFIBUKuerzel"
+        Me.txtFIBUKuerzel.Size = New System.Drawing.Size(289, 20)
+        Me.txtFIBUKuerzel.TabIndex = 3
         '
         'cntxtExcel
         '
@@ -2473,7 +2477,7 @@ Partial Class frmKundenblatt
         Me.mne.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.mne.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.mne.ImageScalingSize = New System.Drawing.Size(25, 25)
-        Me.mne.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AllgemeinToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.ToolStripMenuItem8, Me.ToolStripMenuItem5, Me.ToolStripMenuItem7})
+        Me.mne.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AllgemeinToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.ToolStripMenuItem8, Me.ToolStripMenuItem5, Me.ToolStripMenuItem9, Me.ToolStripMenuItem7, Me.ToolStripMenuItem10})
         Me.mne.Location = New System.Drawing.Point(0, 31)
         Me.mne.Name = "mne"
         Me.mne.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0)
@@ -2530,7 +2534,6 @@ Partial Class frmKundenblatt
         '
         Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
         Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
         Me.cntxtCntxtMDM.Text = "cntxtMDM"
         '
@@ -2561,22 +2564,36 @@ Partial Class frmKundenblatt
         Me.ToolStripMenuItem5.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
         Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
         Me.ToolStripMenuItem5.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0)
-        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(55, 60)
+        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(120, 60)
         Me.ToolStripMenuItem5.Text = "Zoll"
         Me.ToolStripMenuItem5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.ToolStripMenuItem5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
         '
+        'ToolStripMenuItem9
+        '
+        Me.ToolStripMenuItem9.AutoSize = False
+        Me.ToolStripMenuItem9.ForeColor = System.Drawing.Color.White
+        Me.ToolStripMenuItem9.Image = Global.SDL.My.Resources.Resources.checklist1
+        Me.ToolStripMenuItem9.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.ToolStripMenuItem9.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
+        Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
+        Me.ToolStripMenuItem9.Padding = New System.Windows.Forms.Padding(0)
+        Me.ToolStripMenuItem9.Size = New System.Drawing.Size(120, 60)
+        Me.ToolStripMenuItem9.Text = "Offerte / Preise"
+        Me.ToolStripMenuItem9.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.ToolStripMenuItem9.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay
+        '
         'ToolStripMenuItem7
         '
         Me.ToolStripMenuItem7.AutoSize = False
         Me.ToolStripMenuItem7.ForeColor = System.Drawing.Color.White
-        Me.ToolStripMenuItem7.Image = Global.SDL.My.Resources.Resources.checklist1
+        Me.ToolStripMenuItem7.Image = Global.SDL.My.Resources.Resources.bh
         Me.ToolStripMenuItem7.ImageAlign = System.Drawing.ContentAlignment.TopCenter
         Me.ToolStripMenuItem7.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
         Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
-        Me.ToolStripMenuItem7.Padding = New System.Windows.Forms.Padding(0)
+        Me.ToolStripMenuItem7.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0)
-        Me.ToolStripMenuItem7.Size = New System.Drawing.Size(150, 60)
+        Me.ToolStripMenuItem7.Size = New System.Drawing.Size(122, 60)
-        Me.ToolStripMenuItem7.Text = "Offerte / Preise"
+        Me.ToolStripMenuItem7.Text = "FIBU"
         Me.ToolStripMenuItem7.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.ToolStripMenuItem7.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay
         '
@@ -2664,13 +2681,217 @@ Partial Class frmKundenblatt
         Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
         Me.tbiVERAGCard.Text = "VERAG Card"
         '
+        'btnFirmendatenFormularSpeichern
+        '
+        Me.btnFirmendatenFormularSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnFirmendatenFormularSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(1507, 18)
+        Me.btnFirmendatenFormularSpeichern.Name = "btnFirmendatenFormularSpeichern"
+        Me.btnFirmendatenFormularSpeichern.Size = New System.Drawing.Size(71, 52)
+        Me.btnFirmendatenFormularSpeichern.TabIndex = 17
+        Me.btnFirmendatenFormularSpeichern.Text = "Speichern"
+        Me.btnFirmendatenFormularSpeichern.UseVisualStyleBackColor = True
+        '
+        'tbRechnungen
+        '
+        Me.tbRechnungen.Controls.Add(Me.dgvRg)
+        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, 1339)
+        Me.tbRechnungen.TabIndex = 14
+        Me.tbRechnungen.Text = "Rechnungen"
+        Me.tbRechnungen.UseVisualStyleBackColor = True
+        '
+        'dgvRg
+        '
+        Me.dgvRg.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvRg.AllowUserToAddRows = False
+        Me.dgvRg.AllowUserToDeleteRows = False
+        Me.dgvRg.AllowUserToResizeColumns = False
+        Me.dgvRg.AllowUserToResizeRows = False
+        Me.dgvRg.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvRg.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvRg.Location = New System.Drawing.Point(0, 60)
+        Me.dgvRg.Name = "dgvRg"
+        Me.dgvRg.ReadOnly = True
+        Me.dgvRg.RowHeadersVisible = False
+        Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvRg.Size = New System.Drawing.Size(1644, 1279)
+        Me.dgvRg.TabIndex = 3
+        '
+        'MyPanel1
+        '
+        Me.MyPanel1.Controls.Add(Me.btnRgPdf)
+        Me.MyPanel1.Controls.Add(Me.btnMonat)
+        Me.MyPanel1.Controls.Add(Me.Button10)
+        Me.MyPanel1.Controls.Add(Me.Button11)
+        Me.MyPanel1.Controls.Add(Me.Label40)
+        Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.MyPanel1.Location = New System.Drawing.Point(0, 0)
+        Me.MyPanel1.Name = "MyPanel1"
+        Me.MyPanel1.Size = New System.Drawing.Size(1644, 60)
+        Me.MyPanel1.TabIndex = 2
+        '
+        'btnRgPdf
+        '
+        Me.btnRgPdf.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnRgPdf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnRgPdf.Image = Global.SDL.My.Resources.Resources.pdf1
+        Me.btnRgPdf.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnRgPdf.Location = New System.Drawing.Point(1474, 3)
+        Me.btnRgPdf.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
+        Me.btnRgPdf.Name = "btnRgPdf"
+        Me.btnRgPdf.Size = New System.Drawing.Size(105, 57)
+        Me.btnRgPdf.TabIndex = 212
+        Me.btnRgPdf.Text = "Als PDF"
+        Me.btnRgPdf.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnRgPdf.UseVisualStyleBackColor = True
+        '
+        'btnMonat
+        '
+        Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnMonat.Location = New System.Drawing.Point(194, 29)
+        Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnMonat.Name = "btnMonat"
+        Me.btnMonat.Size = New System.Drawing.Size(103, 23)
+        Me.btnMonat.TabIndex = 53
+        Me.btnMonat.Text = "September"
+        Me.btnMonat.UseVisualStyleBackColor = True
+        '
+        'Button10
+        '
+        Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Button10.ForeColor = System.Drawing.Color.Black
+        Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button10.Location = New System.Drawing.Point(161, 29)
+        Me.Button10.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(34, 23)
+        Me.Button10.TabIndex = 52
+        Me.Button10.Text = "<<"
+        Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'Button11
+        '
+        Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Button11.ForeColor = System.Drawing.Color.Black
+        Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button11.Location = New System.Drawing.Point(296, 29)
+        Me.Button11.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(34, 23)
+        Me.Button11.TabIndex = 54
+        Me.Button11.Text = ">>"
+        Me.Button11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button11.UseVisualStyleBackColor = True
+        '
+        'Label40
+        '
+        Me.Label40.AutoSize = True
+        Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.Label40.Location = New System.Drawing.Point(22, 29)
+        Me.Label40.Name = "Label40"
+        Me.Label40.Size = New System.Drawing.Size(111, 20)
+        Me.Label40.TabIndex = 39
+        Me.Label40.Text = "Rechnungen"
+        '
+        'ToolStripMenuItem10
+        '
+        Me.ToolStripMenuItem10.AutoSize = False
+        Me.ToolStripMenuItem10.ForeColor = System.Drawing.Color.White
+        Me.ToolStripMenuItem10.Image = Global.SDL.My.Resources.Resources.rechnung1
+        Me.ToolStripMenuItem10.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.ToolStripMenuItem10.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
+        Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
+        Me.ToolStripMenuItem10.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0)
+        Me.ToolStripMenuItem10.Size = New System.Drawing.Size(122, 60)
+        Me.ToolStripMenuItem10.Text = "Rechnungen"
+        Me.ToolStripMenuItem10.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.ToolStripMenuItem10.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay
+        '
+        '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, 1333)
+        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, 1301)
+        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, 1339)
+        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, 1307)
+        Me.UsrCntlUSTV.TabIndex = 0
+        '
+        'rtbGespreachsbericht
+        '
+        Me.rtbGespreachsbericht.Location = New System.Drawing.Point(11, 78)
+        Me.rtbGespreachsbericht.Name = "rtbGespreachsbericht"
+        Me.rtbGespreachsbericht.Size = New System.Drawing.Size(628, 324)
+        Me.rtbGespreachsbericht.TabIndex = 18
+        Me.rtbGespreachsbericht.Text = ""
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label12.Location = New System.Drawing.Point(8, 57)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(93, 13)
+        Me.Label12.TabIndex = 19
+        Me.Label12.Text = "Gesprächsbericht:"
+        '
         'frmKundenblatt
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(1595, 1463)
+        Me.ClientSize = New System.Drawing.Size(1595, 1497)
         Me.Controls.Add(Me.lblAbfVerb)
         Me.Controls.Add(Me.btnAbfVerb)
         Me.Controls.Add(Me.tbcntrMain)
@@ -2745,6 +2966,8 @@ Partial Class frmKundenblatt
         Me.tbUSTVDokumente.ResumeLayout(False)
         Me.tbUSTVDokumente.PerformLayout()
         Me.tbUSTVAntrage.ResumeLayout(False)
+        Me.tbFIBU.ResumeLayout(False)
+        Me.tbFIBU.PerformLayout()
         Me.cntxtExcel.ResumeLayout(False)
         Me.ContextMenuStrip2.ResumeLayout(False)
         Me.ContextMenuStrip3.ResumeLayout(False)
@@ -2752,6 +2975,10 @@ Partial Class frmKundenblatt
         Me.mne.PerformLayout()
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
+        Me.tbRechnungen.ResumeLayout(False)
+        CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.MyPanel1.ResumeLayout(False)
+        Me.MyPanel1.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -2928,4 +3155,20 @@ Partial Class frmKundenblatt
     Friend WithEvents lblBonitaet As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label39 As Label
     Friend WithEvents PictureBox7 As PictureBox
+    Friend WithEvents tbFIBU As TabPage
+    Friend WithEvents ToolStripMenuItem9 As ToolStripMenuItem
+    Friend WithEvents Label9 As Label
+    Friend WithEvents txtFIBUKuerzel As TextBox
+    Friend WithEvents btnFirmendatenFormularSpeichern As Button
+    Friend WithEvents tbRechnungen As TabPage
+    Friend WithEvents dgvRg As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
+    Friend WithEvents btnRgPdf As Button
+    Friend WithEvents btnMonat As Button
+    Friend WithEvents Button10 As Button
+    Friend WithEvents Button11 As Button
+    Friend WithEvents Label40 As Label
+    Friend WithEvents ToolStripMenuItem10 As ToolStripMenuItem
+    Friend WithEvents Label12 As Label
+    Friend WithEvents rtbGespreachsbericht As RichTextBox
 End Class

SDL/kunden/frmKundenblatt.vb

@@ -39,6 +39,7 @@ Public Class frmKundenblatt
     Dim cSqlDb As New cSqlDb
     Dim FUNC As New cProgramFunctions
 
+    Dim RG_MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
     ' INFO:
     Private InfoDauer As Integer = 3
     Private WithEvents timShow As New Timer With {.Interval = 10}
@@ -317,6 +318,8 @@ Public Class frmKundenblatt
                     End Select
                 Case "tbZoll" : initTZOLL()
                 Case "tbOfferte" : UsrCntlOfferte1.init(kdNr, isVerag360)
+                Case "tbFIBU" : initFIBU()
+                Case "tbRechnungen" : initBtns("Monat") : initRechnungen()
 
             End Select
 
@@ -452,6 +455,21 @@ Public Class frmKundenblatt
         End If
     End Sub
 
+    Private Sub initFIBU()
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("BH_Hauptmenü", Me) = 0 Then
+
+            If kdNr > 0 Then
+                rtbGespreachsbericht.Text = checkNullStr(KUNDE.Gesprächsbericht)
+                txtFIBUKuerzel.Text = checkNullStr(KUNDE_ERW.kde_BezFIBU)
+            End If
+
+        Else
+
+            setInfo("info", "Sie sind für den Bereich FIBU nicht freigeschaltet.", 3)
+            tbcntrMain.SelectedIndex = 0
+        End If
+    End Sub
+
     Sub initTABLKW(Optional kz As String = "")
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_LKW_bearbeiten", Me) = 0 Then
             tbcntrMain.TabPages(2).Enabled = False
@@ -1763,7 +1781,7 @@ Public Class frmKundenblatt
     End Sub
 
     Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
-        changeTab(4, sender)
+        changeTab(6, sender)
     End Sub
 
 
@@ -2186,5 +2204,157 @@ Public Class frmKundenblatt
 
 
     End Sub
+
+    Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
+        changeTab(4, sender)
+    End Sub
+
+    Private Sub btnFirmendatenFormularSpeichern_Click(sender As Object, e As EventArgs) Handles btnFirmendatenFormularSpeichern.Click
+        KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
+        KUNDE_ERW.SAVE()
+
+        KUNDE.Gesprächsbericht = checkNullStr(rtbGespreachsbericht.Text)
+        KUNDE.SAVE()
+    End Sub
+
+    Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
+        changeTab(7, sender)
+    End Sub
+
+    Private Sub dgvRg_SelectionChanged(sender As Object, e As EventArgs) Handles dgvRg.SelectionChanged
+
+    End Sub
+
+    Private Sub btnRgPdf_Click(sender As Object, e As EventArgs) Handles btnRgPdf.Click
+        Me.Cursor = Cursors.WaitCursor
+        Try
+            For Each RK_ID In getList_RK_ID()
+                Dim RG_PATH = ""
+                cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 4, RG_PATH,,, True)
+                Process.Start(RG_PATH)
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Function getList_RK_ID() As List(Of Integer)
+        Dim listRgNr As New List(Of Integer)
+        Dim list As New List(Of Integer)
+        If dgvRg.SelectedRows.Count > 0 Then
+            For Each r As DataGridViewRow In dgvRg.SelectedRows
+                If listRgNr.FindIndex((Function(x) x.ToString = r.Cells("RechnungsNr").Value)) < 0 Then
+                    list.Add(r.Cells("RK_ID").Value)
+                    listRgNr.Add(r.Cells("RechnungsNr").Value)
+                End If
+            Next
+        End If
+        Return list
+    End Function
+
+    Sub initBtns(MonatJahr)
+        Try
+            'MsgBox(RG_MONAT.ToString("MMMM yy"))
+            btnMonat.Text = RG_MONAT.ToString("MMMM yy")
+            Select Case MonatJahr
+                Case "Monat"
+                Case "Jahr", "Tag"
+            End Select
+            initRechnungen()
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
+
+    Sub initRechnungen()
+        With dgvRg
+            Dim sqlStr = ""
+            sqlStr &= "  SELECT TOP 1000 RK_ID,[RechnungsNr],[RechnungsDatum],"
+            sqlStr &= " ( SELECT SUM(isnull([SteuerpflichtigerBetrag],0)+isnull([SteuerfreierBetrag],0))  FROM [RechnungsausgangPositionen] where [RechnungsausgangPositionen].RK_ID=[Rechnungsausgang].RK_ID ) as Rechnungsbetrag,"
+            sqlStr &= " Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],  isnull(cast(RechnungsKundenNr as nvarchar(7)) + ' ','') + [RechnungsName 1] as [RechnungAn], "
+            sqlStr &= " isnull(cast([VermittlerKundenNr] as nvarchar(7)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter "
+            sqlStr &= " FROM [Rechnungsausgang] WHERE RechnungsKundenNr=@KundenNr AND RechnungsDatum BETWEEN @RechnungsDatum_Von AND @RechnungsDatum_Bis "
+
+            Dim SQL_PARAM As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+            SQL_PARAM.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", kdNr))
+            SQL_PARAM.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsDatum_Von", RG_MONAT))
+            SQL_PARAM.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungsDatum_Bis", RG_MONAT.AddMonths(1).AddDays(-1)))
+            .SET_SQL(sqlStr & " ORDER BY RechnungsDatum DESC", "FMZOLL", SQL_PARAM)
+            .LOAD()
+
+            '.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
+
+            .Columns("RK_ID").Visible = False
+
+            .Columns("RechnungsNr").Width = 70
+            .Columns("RechnungsNr").HeaderText = "Rechnugs-Nr"
+            .Columns("RechnungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("RechnungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            .Columns("RechnungsDatum").Width = 100
+            .Columns("RechnungsDatum").HeaderText = "Rg-Dat."
+            .Columns("RechnungsDatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("RechnungsDatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            .Columns("Sammelrechnung").Width = 45
+            .Columns("Sammelrechnung").HeaderText = "SR"
+
+            .Columns("Rechnungsbetrag").Width = 100
+            .Columns("Rechnungsbetrag").HeaderText = "Rechnungsbetrag"
+            .Columns("Rechnungsbetrag").DefaultCellStyle.Format = "C"
+            .Columns("Rechnungsbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
+
+            .Columns("FilialenNr").Width = 45
+            .Columns("FilialenNr").HeaderText = "Filiale"
+            .Columns("FilialenNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("AbfertigungsNr").Width = 70
+            .Columns("AbfertigungsNr").HeaderText = "Abf-Nr"
+            .Columns("AbfertigungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("UnterNr").Width = 45
+            .Columns("UnterNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("UnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("Abfertigungsdatum").Width = 100
+            .Columns("Abfertigungsdatum").HeaderText = "Abf-Dat."
+            .Columns("Abfertigungsdatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("Abfertigungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+
+            .Columns("RechnungAn").MinimumWidth = 150
+            .Columns("RechnungAn").HeaderText = "Rechnung an"
+            .Columns("RechnungAn").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            '.Columns("Absender").MinimumWidth = 150
+            '.Columns("Absender").HeaderText = "Absender"
+            '.Columns("Absender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            .Columns("Vermittler").MinimumWidth = 150
+            .Columns("Vermittler").HeaderText = "Auftraggeber"
+            .Columns("Vermittler").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            '.Columns("Empfänger").MinimumWidth = 150
+            '.Columns("Empfänger").HeaderText = "Empfänger"
+            '.Columns("Empfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            .Columns("LKW Kennzeichen").Width = 120
+            .Columns("LKW Kennzeichen").HeaderText = "LKW Kennzeichen"
+
+            .Columns("Sachbearbeiter").MinimumWidth = 100
+            .Columns("Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+        End With
+    End Sub
+
+    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
+        RG_MONAT = RG_MONAT.AddMonths(1)
+        initBtns("Monat")
+    End Sub
+
+    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
+        RG_MONAT = RG_MONAT.AddMonths(-1)
+        initBtns("Monat")
+    End Sub
 End Class
 

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -887,7 +887,7 @@
     Private Sub loadControls()
         cboAbf_Waehrung.fillWithSQL("SELECT [Währungscode],[Land] FROM Währungstabelle ORDER BY Währungscode",  , "FMZOLL", False)
 
-        cbxKapitalWaehrung.fillWithSQL("SELECT fw_iso3,  fw_land FROM [VERAG].[dbo].[tblWahrungtabelleNEU] order by fw_land ",  , "FMZOLL", False)
+        cbxKapitalWaehrung.fillWithSQL("SELECT fw_iso3,  fw_land FROM [VERAG].[dbo].[tblWahrungtabelleNEU] order by fw_iso3 ",  , "FMZOLL", False)
 
         'cbxKapitalWaehrung.Items.AddRange(cboAbf_Waehrung.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
 
@@ -1043,6 +1043,9 @@
                     c.Text = "Bankverb./Kreditkarten"
                 Else
                     c.Text = "Asfinag"
+                    tbcntrAbf.TabPages.Remove(TabPage1)
+                    tbcntrAbf.TabPages.Remove(tbAufschub)
+
                 End If
             End If
 
@@ -1064,6 +1067,7 @@
             Button4.Visible = True
             CheckBox1.Visible = True
         End If
+
         tbcntrAbf.TabPages.Remove(TabPage4)
 
         If Filiale > 0 Then

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -1572,6 +1572,7 @@ Public Class cAvisoDAL
                     id = (Convert.ToInt32(cmd.ExecuteScalar()))
                     ' MsgBox(id)
                 Else
+                    Return id
                     cmd.ExecuteNonQuery()
                 End If
 

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -96,6 +96,7 @@ Public Class cKundenErweitert
     Property kde_FR As Boolean = False
     Property kde_AnmerkungAntrag As Object = Nothing
     Property kde_Erstattungsart As Object = Nothing
+    Property kde_BezFIBU As Object = Nothing
 
 
 
@@ -196,6 +197,7 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AnmerkungFR", kde_AnmerkungFR))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_FR", kde_FR))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Erstattungsart", kde_Erstattungsart))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BezFIBU", kde_BezFIBU))
 
         Return list
     End Function