edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Kundenuebersicht, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-08-05 17:07:40 +02:00
parent df19ba3c22
commit 440aac8bf6
7 changed files with 758 additions and 336 deletions
Download Patch File Download Diff File Expand all files Collapse all files

472
SDL/kunden/frmKundenUebersichtZOLL.Designer.vb generated
View File

@@ -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

2
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

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

439
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -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.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
Me.tbFIBU.Controls.Add(Me.Label12)
Me.tbFIBU.Controls.Add(Me.rtbGespreachsbericht)
Me.tbFIBU.Controls.Add(Me.btnFirmendatenFormularSpeichern)
Me.tbFIBU.Controls.Add(Me.Label9)
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.Size = New System.Drawing.Size(150, 60)
Me.ToolStripMenuItem7.Text = "Offerte / Preise"
Me.ToolStripMenuItem7.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(122, 60)
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

172
SDL/kunden/frmKundenblatt.vb
View File

@@ -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

6
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -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

1
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

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

2
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -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