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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
d.breimaier
2024-08-09 09:52:06 +02:00
parent fd5916794f 32c9faf509
commit 5da132a257
5 changed files with 606 additions and 253 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

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

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

@@ -23,7 +23,6 @@ Partial Class frmKundenblatt
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -37,12 +36,13 @@ Partial Class frmKundenblatt
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenblatt))
Me.pnlInfo = New System.Windows.Forms.Panel()
Me.txtInfotext = New System.Windows.Forms.Label()
Me.tbFirmendaten = New System.Windows.Forms.TabPage()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
Me.tbcntrMain = New System.Windows.Forms.TabControl()
Me.tbAllgemein = New System.Windows.Forms.TabPage()
Me.Label17 = New System.Windows.Forms.Label()
@@ -117,10 +117,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()
@@ -151,7 +149,6 @@ Partial Class frmKundenblatt
Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.tbBesuchsberichte = 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()
@@ -162,7 +159,6 @@ Partial Class frmKundenblatt
Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
@@ -188,6 +184,18 @@ 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.btnOP = New System.Windows.Forms.Button()
Me.dgvOffenePosten = New System.Windows.Forms.DataGridView()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.btnReloadOP = New System.Windows.Forms.Button()
Me.Label11 = New System.Windows.Forms.Label()
Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
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.pnlInfo.SuspendLayout()
Me.tbFirmendaten.SuspendLayout()
Me.Panel4.SuspendLayout()
@@ -233,6 +241,7 @@ Partial Class frmKundenblatt
Me.ContextMenuStrip3.SuspendLayout()
Me.mne.SuspendLayout()
Me.pnl.SuspendLayout()
CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnlInfo
@@ -263,7 +272,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(1630, 829)
Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 880)
Me.tbFirmendaten.TabIndex = 3
Me.tbFirmendaten.Text = "Firmendaten"
'
@@ -273,19 +282,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(1624, 823)
Me.Panel4.Size = New System.Drawing.Size(1624, 874)
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(1624, 823)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'tbcntrMain
'
Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
@@ -301,12 +300,19 @@ Partial Class frmKundenblatt
Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMain.Name = "tbcntrMain"
Me.tbcntrMain.SelectedIndex = 0
Me.tbcntrMain.Size = New System.Drawing.Size(1638, 858)
Me.tbcntrMain.Size = New System.Drawing.Size(1638, 909)
Me.tbcntrMain.TabIndex = 3
'
'tbAllgemein
'
Me.tbAllgemein.BackColor = System.Drawing.Color.White
Me.tbAllgemein.Controls.Add(Me.btnReloadOP)
Me.tbAllgemein.Controls.Add(Me.Label11)
Me.tbAllgemein.Controls.Add(Me.cboFirmaFMZOLL)
Me.tbAllgemein.Controls.Add(Me.Label10)
Me.tbAllgemein.Controls.Add(Me.Label9)
Me.tbAllgemein.Controls.Add(Me.dgvOffenePosten)
Me.tbAllgemein.Controls.Add(Me.btnOP)
Me.tbAllgemein.Controls.Add(Me.Label17)
Me.tbAllgemein.Controls.Add(Me.dgvOfferte)
Me.tbAllgemein.Controls.Add(Me.picLogo)
@@ -334,7 +340,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(1630, 829)
Me.tbAllgemein.Size = New System.Drawing.Size(1630, 880)
Me.tbAllgemein.TabIndex = 0
Me.tbAllgemein.Text = "Allgemein"
'
@@ -350,34 +356,34 @@ Partial Class frmKundenblatt
'dgvOfferte
'
Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOfferte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvOfferte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOfferte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.dgvOfferte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle3
Me.dgvOfferte.Location = New System.Drawing.Point(433, 37)
Me.dgvOfferte.Name = "dgvOfferte"
Me.dgvOfferte.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvOfferte.Size = New System.Drawing.Size(293, 320)
Me.dgvOfferte.TabIndex = 12
'
@@ -641,35 +647,35 @@ Partial Class frmKundenblatt
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvSperrliste.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.Color.Black
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle5
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
Me.dgvSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.Color.Black
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle6
Me.dgvSperrliste.Location = New System.Drawing.Point(732, 36)
Me.dgvSperrliste.Name = "dgvSperrliste"
Me.dgvSperrliste.ReadOnly = True
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgvSperrliste.Size = New System.Drawing.Size(835, 719)
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
Me.dgvSperrliste.Size = New System.Drawing.Size(432, 836)
Me.dgvSperrliste.TabIndex = 23
'
'PictureBox2
@@ -723,7 +729,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(1630, 829)
Me.tbZoll.Size = New System.Drawing.Size(1630, 880)
Me.tbZoll.TabIndex = 9
Me.tbZoll.Text = "ZOLL"
Me.tbZoll.UseVisualStyleBackColor = True
@@ -735,7 +741,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(1624, 823)
Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 874)
Me.tbcntrZOLL.TabIndex = 0
'
'tabZoll_Artikel
@@ -743,7 +749,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(1616, 797)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 848)
Me.tabZoll_Artikel.TabIndex = 1
Me.tabZoll_Artikel.Text = "Artikel"
Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -754,7 +760,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(1630, 829)
Me.tbMdm.Size = New System.Drawing.Size(1630, 880)
Me.tbMdm.TabIndex = 10
Me.tbMdm.Text = "MDM"
Me.tbMdm.UseVisualStyleBackColor = True
@@ -772,7 +778,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(1624, 823)
Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 874)
Me.tbcntrMDM.TabIndex = 0
'
'tbSDL
@@ -784,7 +790,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(1616, 797)
Me.tbSDL.Size = New System.Drawing.Size(1616, 848)
Me.tbSDL.TabIndex = 5
Me.tbSDL.Text = "SDL-Leistungen"
Me.tbSDL.UseVisualStyleBackColor = True
@@ -793,40 +799,40 @@ Partial Class frmKundenblatt
'
Me.dgvSDLLeistungenFull.AllowUserToAddRows = False
Me.dgvSDLLeistungenFull.AllowUserToResizeRows = False
DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
Me.dgvSDLLeistungenFull.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8
Me.dgvSDLLeistungenFull.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle9
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
Me.dgvSDLLeistungenFull.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle10
Me.dgvSDLLeistungenFull.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvSDLLeistungenFull.Location = New System.Drawing.Point(3, 50)
Me.dgvSDLLeistungenFull.Name = "dgvSDLLeistungenFull"
Me.dgvSDLLeistungenFull.ReadOnly = True
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle10
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 601)
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 652)
Me.dgvSDLLeistungenFull.TabIndex = 5
'
'Panel6
@@ -930,7 +936,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, 651)
Me.Panel5.Location = New System.Drawing.Point(3, 702)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(1610, 143)
Me.Panel5.TabIndex = 177
@@ -1303,21 +1309,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(1616, 848)
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)
@@ -1325,7 +1321,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(1616, 848)
Me.tbLKW.TabIndex = 4
Me.tbLKW.Text = "LKWs"
Me.tbLKW.UseVisualStyleBackColor = True
@@ -1337,22 +1333,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(1304, 842)
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)
@@ -1361,48 +1344,48 @@ 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, 842)
Me.pnlLKW.TabIndex = 3
'
'dgvLKW
'
Me.dgvLKW.AllowUserToAddRows = False
Me.dgvLKW.AllowUserToDeleteRows = False
DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
Me.dgvLKW.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle13
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13
Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle14
Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvLKW.Location = New System.Drawing.Point(0, 62)
Me.dgvLKW.Name = "dgvLKW"
Me.dgvLKW.ReadOnly = True
DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle14
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
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, 668)
Me.dgvLKW.TabIndex = 2
'
'pnlLKWBottom
@@ -1414,7 +1397,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, 730)
Me.pnlLKWBottom.Name = "pnlLKWBottom"
Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112)
Me.pnlLKWBottom.TabIndex = 3
@@ -1555,7 +1538,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(1616, 848)
Me.tbVERAGCard.TabIndex = 6
Me.tbVERAGCard.Text = "VERAG Card"
Me.tbVERAGCard.UseVisualStyleBackColor = True
@@ -1567,7 +1550,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(1610, 842)
Me.Panel3.TabIndex = 0
'
'tbDokumente
@@ -1585,7 +1568,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(1616, 848)
Me.tbDokumente.TabIndex = 8
Me.tbDokumente.Text = "Dokumente"
Me.tbDokumente.UseVisualStyleBackColor = True
@@ -1783,7 +1766,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(1616, 848)
Me.tbBesuchsberichte.TabIndex = 9
Me.tbBesuchsberichte.Text = "Besuchsberichte"
Me.tbBesuchsberichte.UseVisualStyleBackColor = True
@@ -1794,27 +1777,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(1630, 829)
Me.tbOfferte.Size = New System.Drawing.Size(1630, 880)
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(1630, 829)
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(1630, 829)
Me.tbUSTV.Size = New System.Drawing.Size(1630, 880)
Me.tbUSTV.TabIndex = 12
Me.tbUSTV.Text = "USTV"
Me.tbUSTV.UseVisualStyleBackColor = True
@@ -1828,7 +1801,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(1630, 829)
Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 880)
Me.tbcntrUSTV.TabIndex = 1
'
'tbUSTVDokumente
@@ -1841,7 +1814,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(1622, 803)
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 854)
Me.tbUSTVDokumente.TabIndex = 8
Me.tbUSTVDokumente.Text = "Dokumente"
Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -1939,19 +1912,11 @@ 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(1622, 854)
Me.tbUSTVAntrage.TabIndex = 9
Me.tbUSTVAntrage.Text = "USTV-Anträge"
Me.tbUSTVAntrage.UseVisualStyleBackColor = True
'
'UsrCntlUSTV
'
Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39)
Me.UsrCntlUSTV.TabIndex = 0
'
'cntxtExcel
'
Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -2228,13 +2193,151 @@ Partial Class frmKundenblatt
Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
Me.tbiVERAGCard.Text = "VERAG Card"
'
'btnOP
'
Me.btnOP.BackgroundImage = Global.SDL.My.Resources.Resources.mahn
Me.btnOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnOP.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnOP.FlatAppearance.BorderSize = 0
Me.btnOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOP.Location = New System.Drawing.Point(702, 564)
Me.btnOP.Name = "btnOP"
Me.btnOP.Size = New System.Drawing.Size(24, 24)
Me.btnOP.TabIndex = 174
Me.btnOP.UseVisualStyleBackColor = True
'
'dgvOffenePosten
'
Me.dgvOffenePosten.AllowUserToAddRows = False
Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvOffenePosten.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOffenePosten.Location = New System.Drawing.Point(12, 591)
Me.dgvOffenePosten.MultiSelect = False
Me.dgvOffenePosten.Name = "dgvOffenePosten"
Me.dgvOffenePosten.ReadOnly = True
Me.dgvOffenePosten.RowHeadersVisible = False
Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 281)
Me.dgvOffenePosten.TabIndex = 175
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(9, 575)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(78, 13)
Me.Label9.TabIndex = 176
Me.Label9.Text = "Offene Posten:"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(544, 570)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(149, 13)
Me.Label10.TabIndex = 177
Me.Label10.Text = "Zahlungserinnerung/OP-Liste:"
'
'btnReloadOP
'
Me.btnReloadOP.BackgroundImage = Global.SDL.My.Resources.Resources.reloadFinance
Me.btnReloadOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnReloadOP.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnReloadOP.FlatAppearance.BorderSize = 0
Me.btnReloadOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnReloadOP.Location = New System.Drawing.Point(240, 563)
Me.btnReloadOP.Name = "btnReloadOP"
Me.btnReloadOP.Size = New System.Drawing.Size(25, 25)
Me.btnReloadOP.TabIndex = 180
Me.btnReloadOP.UseVisualStyleBackColor = True
Me.btnReloadOP.Visible = False
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.Location = New System.Drawing.Point(271, 570)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(82, 13)
Me.Label11.TabIndex = 178
Me.Label11.Text = "Daten für Firma:"
'
'cboFirmaFMZOLL
'
Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing
Me.cboFirmaFMZOLL._allowFreiText = False
Me.cboFirmaFMZOLL._value = ""
Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboFirmaFMZOLL.FormattingEnabled = True
Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(354, 567)
Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL"
Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21)
Me.cboFirmaFMZOLL.TabIndex = 179
'
'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(1624, 874)
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(1610, 842)
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, 842)
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(1630, 880)
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(1616, 848)
Me.UsrCntlUSTV.TabIndex = 0
'
'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(1180, 987)
Me.ClientSize = New System.Drawing.Size(1180, 1038)
Me.Controls.Add(Me.lblAbfVerb)
Me.Controls.Add(Me.btnAbfVerb)
Me.Controls.Add(Me.tbcntrMain)
@@ -2306,6 +2409,7 @@ Partial Class frmKundenblatt
Me.mne.PerformLayout()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.dgvOffenePosten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -2460,4 +2564,11 @@ Partial Class frmKundenblatt
Friend WithEvents UsrCntlUSTV As usrCntlUSTV
Friend WithEvents Label8 As Label
Friend WithEvents scanUSTVsonstigeDokumente As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents btnOP As Button
Friend WithEvents Label10 As Label
Friend WithEvents Label9 As Label
Friend WithEvents dgvOffenePosten As DataGridView
Friend WithEvents btnReloadOP As Button
Friend WithEvents Label11 As Label
Friend WithEvents cboFirmaFMZOLL As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

264
SDL/kunden/frmKundenblatt.vb
View File

@@ -1,6 +1,7 @@
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports System.Reflection
Imports javax.xml.bind.annotation
Public Class frmKundenblatt
@@ -102,6 +103,12 @@ Public Class frmKundenblatt
tbcntrMain.ItemSize = New Size(0, 1)
tbcntrMain.SizeMode = TabSizeMode.Fixed
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige <> "" Then
Dim where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN (" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ") ")
cboFirmaFMZOLL.fillWithSQL("SELECT cast([Firma_ID] as varchar(3)) as Firma_ID,[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & where, True, "FMZOLL", True)
End If
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull1.Filiale = FilialeNr
End If
@@ -142,6 +149,7 @@ Public Class frmKundenblatt
changeTab(0, AllgemeinToolStripMenuItem)
tbcntrMDM.TabPages.Remove(tbVERAGCard) 'Jetzt in SDL LEintstungen
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", "SDL") Then
@@ -155,7 +163,10 @@ Public Class frmKundenblatt
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LADEN", "SDL") Then
btnReloadOP.Visible = True
btnOP.Visible = True
End If
loaded = True
@@ -169,7 +180,7 @@ Public Class frmKundenblatt
End Sub
Sub initKUNDE()
If IsNumeric(kdNr) AndAlso kdNr >= 0 Then
Try
@@ -221,7 +232,6 @@ Public Class frmKundenblatt
End If
Else
UsrcntlKundeBearbeitenFull1.Enabled = False
tbcntrMain.TabPages(2).Enabled = True
@@ -282,6 +292,7 @@ Public Class frmKundenblatt
initDgvOfferte()
showDgvOfferte()
initDgvSperrliste()
initDGVOffenePosten()
' initDgvSDLLeistungen()
'showDgvSDLLeistungen()
@@ -433,7 +444,7 @@ Public Class frmKundenblatt
'Dim d As New SqlDataAdapter()
Try
Dim connectionString As String = cSqlDb.GetSDLConnectionString
Dim sqlstr As String = " SELECT KundenSDL.SDLNr, Speditionsdienstleistungen.SDLBez,[Sperre], [Sperrdatum], [Vertretungsvollmacht], [Auszahlungsvollmacht], [Finanzamtbestätigung], [Antragsdatum],[Vermerk], KundenSDL.[Erfassungsdatum], KundenSDL.[Änderungsdatum],KundenSDL.[Sachbearbeiter] " & _
Dim sqlstr As String = " SELECT KundenSDL.SDLNr, Speditionsdienstleistungen.SDLBez,[Sperre], [Sperrdatum], [Vertretungsvollmacht], [Auszahlungsvollmacht], [Finanzamtbestätigung], [Antragsdatum],[Vermerk], KundenSDL.[Erfassungsdatum], KundenSDL.[Änderungsdatum],KundenSDL.[Sachbearbeiter] " &
" FROM KundenSDL INNER JOIN Speditionsdienstleistungen ON Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr WHERE KundenSDL.KundenNr='" & kdNr & "' AND [SDLTypNr] <=2 ORDER BY Sperre,Speditionsdienstleistungen.SDLBez "
Me.dataAdapterSDL = New SqlDataAdapter(sqlstr, connectionString)
Catch ex As SqlException
@@ -898,7 +909,7 @@ Public Class frmKundenblatt
Sub initDgvSperrliste()
With dgvSperrliste
' .DataSource = SQL.loadDgvBySql("SELECT Speditionsdienstleistungen.SDLNr,Speditionsdienstleistungen.SDLBez,Sperrnummernverzeichnis.SperrNr,Sperrnummernverzeichnis.SperrBez,KundenSDL.Sperrdatum FROM Speditionsdienstleistungen,KundenSDL,Sperrnummernverzeichnis WHERE KundenSDL.KundenNr=" & kdNr & " AND Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr AND Sperrnummernverzeichnis.SperrNr=KundenSDL.Sperre /*AND KundenSDL.Sperrdatum IS NOT NULL*/ ORDER BY SperrNr")
.DataSource = SQL.loadDgvBySql(" SELECT KundenSDL.SDLNr, Speditionsdienstleistungen.SDLBez,Sperrnummernverzeichnis.SperrNr,Sperrnummernverzeichnis.SperrBez, [Sperrdatum] " & _
.DataSource = SQL.loadDgvBySql(" SELECT KundenSDL.SDLNr, Speditionsdienstleistungen.SDLBez,Sperrnummernverzeichnis.SperrNr,Sperrnummernverzeichnis.SperrBez, [Sperrdatum] " &
" FROM KundenSDL INNER JOIN Speditionsdienstleistungen ON Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr INNER JOIN Sperrnummernverzeichnis ON Sperrnummernverzeichnis.SperrNr=KundenSDL.Sperre " &
" WHERE KundenSDL.KundenNr='" & kdNr & "' /*AND [SDLTypNr] <=2 */ ORDER BY Sperre,Speditionsdienstleistungen.SDLBez")
.RowTemplate.Height = 20
@@ -1570,7 +1581,7 @@ Public Class frmKundenblatt
Dim kdTMP = r.Cells("KundenNr").Value
Dim kfzKzTMP = r.Cells("KfzKennzeichen").Value
SQL.doSQL("DELETE TOP (1) FROM LKW WHERE KundenNr='" & kdTMP & "' AND KfzKennzeichen='" & kfzKzTMP & "'", "SDL", True)
SQL.doSQL("DELETE FROM SDL WHERE KundenNr='" & kdTMP & "' AND KfzKennzeichen='" & kfzKzTMP & "' and SDLNr <> '501' ", "SDL", True)
SQL.doSQL("DELETE FROM SDL WHERE KundenNr='" & kdTMP & "' AND KfzKennzeichen='" & kfzKzTMP & "' and SDLNr <> '501' ", "SDL", True)
usrCntlSDLLeistungVERAGCard.clearAllVeragCard(kdTMP, kfzKzTMP)
'SQL.doSQL("UPDATE [Kartenpool] SET [KundenNr]=NULL, [KfzKennzeichen]=NULL, [Fahrer]=NULL, [Datum]=NULL, [Kaution]=NULL, [BelegNr]=NULL, [Ersatzkarte]=NULL, [Gesperrt]=0, [Defekt]=0, [Verloren]=0, [Gestohlen]=0, [Vermerk]='', [Änderungsdatum]='" & Now & "', [Sachbearbeiter]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & "' WHERE KundenNr='" & kdTMP & "' AND KfzKennzeichen='" & kfzKzTMP & "'", "SDL", True)
Next
@@ -1578,15 +1589,15 @@ Public Class frmKundenblatt
End If 'DEL
End Sub
Private Sub dgvLKW_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvLKW.KeyUp
If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.End Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.PageUp Then
dgvLKW_SelectionChanged(Me, New EventArgs)
End If
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
Me.Cursor = Cursors.WaitCursor
'cProgramFunctions.genExcelFromDGV_NEW(dgvLKW, True)
@@ -1684,7 +1695,8 @@ Public Class frmKundenblatt
Me.Top = (My.Computer.Screen.WorkingArea.Height - Me.Height) / 2
End If
Me.StartPosition = FormStartPosition.CenterScreen
cboFirmaFMZOLL.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
Button4.PerformClick()
End Sub
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
@@ -1692,7 +1704,7 @@ Public Class frmKundenblatt
changeTab(4, sender)
End Sub
Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs)
changeTab(5, sender)
@@ -1737,5 +1749,235 @@ Public Class frmKundenblatt
changeTab(5, sender, 1)
End Sub
Private Sub btnOP_Click(sender As Object, e As EventArgs) Handles btnOP.Click
If cboFirmaFMZOLL._value = "" Then
MsgBox("Bitte Firma auswählen!")
Else
Dim KontoList As New List(Of String)
KontoList.Add(KUNDE.KundenNrZentrale)
frmBU_Mahnlauf.doZahlungserinnerung(Me.FindForm, "OP", KontoList, cboFirmaFMZOLL._value, "")
End If
End Sub
Private Sub btnReloadOP_Click(sender As Object, e As EventArgs) Handles btnReloadOP.Click
Me.Cursor = Cursors.WaitCursor
Try
If KUNDE Is Nothing Then Exit Sub
If cboFirmaFMZOLL._value <> "" Then
If VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen(cboFirmaFMZOLL._value, KUNDE.KundenNrZentrale) Then
MsgBox("Die OP-Liste wurde erfolgreich aktualisiert!")
End If
Else
If VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL(KUNDE.KundenNrZentrale) Then
MsgBox("Die OP-Liste wurde erfolgreich aktualisiert!")
End If
End If
'initDGVUmsatz()
initDGVOffenePosten()
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Sub initDGVOffenePosten()
If KUNDE IsNot Nothing AndAlso KUNDE.FilialenNr IsNot Nothing Then
If KUNDE.FilialenNr.ToString <> "" Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
Case "IMEX" : initDGVOffenePostenIMEX()
Case Else : initDGVOffenePostenVERAG()
End Select
End If
End If
End Sub
Sub initDGVOffenePostenIMEX()
With dgvOffenePosten
.Columns.Clear()
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
Dim where = ""
.DataSource = SQL.loadDgvBySql("SELECT [KundenNr] as KdNr,[Datum] as Datum,[Rechnung] as Nummer,[Saldo] as Betrag,'-' as [OP-Saldo],'EUR' as Währung ,'-' as [KumSaldoEUR],[Buchungstext] " &
" FROM [Offene_Posten_DVO] " &
" WHERE KundenNr='" & KUNDE.KundenNrZentrale & "' " & where & " order BY datum DESC, [OP_ID] DESC", "FMZOLL")
If .Columns.Count > 0 Then
.Columns("KdNr").Visible = False
.Columns("Datum").Width = 70
.Columns("Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("Betrag").Width = 75
.Columns("Betrag").DefaultCellStyle.Format = "N2"
.Columns("Betrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
'.Columns("OP-Saldo").Width = 75
'.Columns("OP-Saldo").DefaultCellStyle.Format = "N2"
'.Columns("OP-Saldo").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("OP-Saldo").Visible = False
.Columns("Währung").Width = 60
.Columns("Währung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
'.Columns("KumSaldoEUR").Width = 80
'.Columns("KumSaldoEUR").DefaultCellStyle.Format = "N2"
'.Columns("KumSaldoEUR").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("KumSaldoEUR").Visible = False
.Columns("Buchungstext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End If
Dim zahlungsziel = 10
Dim sumZZ As Double = 0
Dim sumNOTZZ As Double = 0
Dim sumCredit As Double = 0
Dim sumVK As Double
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
sumVK = getOffeneVK(KUNDE.KundenNrZentrale)
End If
Dim sumGes As Double = 0
If IsNumeric(KUNDE.Zahlungsziel) Then zahlungsziel = KUNDE.Zahlungsziel
Try
For Each r As DataGridViewRow In .Rows
If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then
If CDbl(r.Cells("Betrag").Value) > 0 Then sumZZ += CDbl(r.Cells("Betrag").Value)
Else
If CDbl(r.Cells("Betrag").Value) > 0 Then sumNOTZZ += CDbl(r.Cells("Betrag").Value)
End If
If CDbl(r.Cells("Betrag").Value) < 0 Then sumCredit += CDbl(r.Cells("Betrag").Value)
sumGes += CDbl(r.Cells("Betrag").Value)
Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End With
pnl.Visible = True
End Sub
Function getOffeneVK(KundenNrZentrale)
Return SQL.getValueTxtBySql("SELECT isnull(sum([vk_Betrag]),0)FROM [tblVorauskassen] where vk_KdNr = '" & KundenNrZentrale & "' and vk_GeldEingetroffen=0 and vk_Datum > DATEADD(year,-1, GETDATE())
and vk_storno=0 and (SELECT count(*) FROM Rechnungsausgang RG WHERE RG.FilialenNr = vk_FilialeNr and RG.AbfertigungsNr= vk_AbfertigungsNr and vk_KdNr=rg.RechnungsKundenNr) =0", "FMZOLL")
End Function
Sub initDGVOffenePostenVERAG()
With dgvOffenePosten
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
Dim where = ""
If cboFirmaFMZOLL._value <> "" Then
where = " AND Firma_ID=" & cboFirmaFMZOLL._value
Else
where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
End If
.DataSource = SQL.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as 'Währ.',[KumSaldoEUR],[Mahnstufe] as M, [Fälligkeitsdatum] as 'fällig am' ,[Buchungstext] as Referenz " &
" FROM [Offene Posten] " &
" WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY OP_ID DESC /*, Belegdatum DESC*/", "FMZOLL")
If .DataSource Is Nothing Then Exit Sub
If .Columns.Count = 0 Then Exit Sub
.Columns(0).Visible = False
.Columns(1).Width = 70
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Width = 80
.Columns(3).Width = 75
.Columns(3).DefaultCellStyle.Format = "N2"
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(4).Width = 75
.Columns(4).DefaultCellStyle.Format = "N2"
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(5).Width = 40
.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(6).Width = 80
.Columns(6).DefaultCellStyle.Format = "N2"
.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(7).Width = 20
.Columns(6).DefaultCellStyle.Format = "N0"
.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(8).Width = 70
.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(9).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
Dim OP_tmp As Double = 0
If cboFirmaFMZOLL._value <> "" Then
If .RowCount > 0 Then OP_tmp = If(.Rows(0).Cells("KumSaldoEUR").Value, 0)
Else
Dim where2 = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
Dim dt_OP As DataTable = SQL.loadDgvBySql("select isnull((select TOP 1 isnull(KumSaldoEUR,0) as abc FROM [Offene Posten] WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' and [Offene Posten].Firma_ID=tblFirma.Firma_ID ORDER BY Belegdatum DESC),0) From tblFirma WHERE 1=1 " & where2, "FMZOLL")
If dt_OP IsNot Nothing Then
For Each r In dt_OP.Rows
OP_tmp += r(0)
Next
End If
End If
Dim sumVK As Double
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
sumVK = getOffeneVK(KUNDE.KundenNrZentrale)
' OP_tmp += sumVK
End If
Dim zahlungsziel = 10
Dim sumZZ As Double = 0
Dim sumNOTZZ As Double = 0
Dim sumCredit As Double = 0
If IsNumeric(KUNDE.Zahlungsziel) Then zahlungsziel = KUNDE.Zahlungsziel
Try
For Each r As DataGridViewRow In .Rows
If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then
If CDbl(r.Cells("OP-Saldo").Value) > 0 Then sumZZ += CDbl(r.Cells("OP-Saldo").Value)
Else
If CDbl(r.Cells("OP-Saldo").Value) > 0 Then sumNOTZZ += CDbl(r.Cells("OP-Saldo").Value)
End If
If CDbl(r.Cells("OP-Saldo").Value) < 0 Then sumCredit += CDbl(r.Cells("OP-Saldo").Value)
Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End With
End Sub
Private Sub cboFirmaFMZOLL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirmaFMZOLL.SelectedIndexChanged
If loaded Then
initDGVOffenePosten()
End If
End Sub
End Class

129
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

@@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht))
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnExcel = New System.Windows.Forms.Button()
@@ -259,7 +259,7 @@ Partial Class usrCntlKundenuebersicht
Me.btnReloadOP = New System.Windows.Forms.Button()
Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.SessionService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService()
Me.Button15 = New System.Windows.Forms.Button()
Me.btnOP = New System.Windows.Forms.Button()
Me.cntxtAddVM.SuspendLayout()
Me.tbWeitereKundenDetails.SuspendLayout()
Me.tbOfferten.SuspendLayout()
@@ -421,8 +421,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -442,8 +442,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False
Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True
Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White
Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -453,10 +453,10 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
Me.dgvOffertenSperrliste.ReadOnly = True
Me.dgvOffertenSperrliste.RowHeadersVisible = False
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3
DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle27.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
DataGridViewCellStyle27.SelectionForeColor = System.Drawing.Color.Black
Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle27
Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257)
Me.dgvOffertenSperrliste.TabIndex = 0
@@ -594,8 +594,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOffenePosten.AllowUserToAddRows = False
Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToResizeRows = False
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
DataGridViewCellStyle28.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle28
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -675,8 +675,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
Me.dgvUmsatzbericht.AllowUserToResizeRows = False
DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill
@@ -738,8 +738,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvAnhaenge.AllowUserToAddRows = False
Me.dgvAnhaenge.AllowUserToDeleteRows = False
Me.dgvAnhaenge.AllowUserToResizeRows = False
DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
DataGridViewCellStyle30.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30
Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -2483,8 +2483,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvVollmachten.AllowUserToDeleteRows = False
Me.dgvVollmachten.AllowUserToOrderColumns = True
Me.dgvVollmachten.AllowUserToResizeRows = False
DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
DataGridViewCellStyle31.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31
Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White
Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2537,8 +2537,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvVertraege.AllowUserToDeleteRows = False
Me.dgvVertraege.AllowUserToOrderColumns = True
Me.dgvVertraege.AllowUserToResizeRows = False
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32
Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White
Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2713,8 +2713,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvGestGarantie.AllowUserToDeleteRows = False
Me.dgvGestGarantie.AllowUserToOrderColumns = True
Me.dgvGestGarantie.AllowUserToResizeRows = False
DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33
Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White
Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill
@@ -3168,24 +3168,24 @@ Partial Class usrCntlKundenuebersicht
Me.dgvAufschub.AllowUserToResizeColumns = False
Me.dgvAufschub.AllowUserToResizeRows = False
Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle34
Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL})
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12
DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle36
Me.dgvAufschub.Location = New System.Drawing.Point(13, 61)
Me.dgvAufschub.MultiSelect = False
Me.dgvAufschub.Name = "dgvAufschub"
@@ -3212,8 +3212,8 @@ Partial Class usrCntlKundenuebersicht
'
'HZA
'
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.HZA.DefaultCellStyle = DataGridViewCellStyle11
DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.HZA.DefaultCellStyle = DataGridViewCellStyle35
Me.HZA.HeaderText = "HZA"
Me.HZA.Name = "HZA"
Me.HZA.ReadOnly = True
@@ -3397,26 +3397,25 @@ Partial Class usrCntlKundenuebersicht
Me.SessionService1.Url = "https://finanzonline.bmf.gv.at/fonws/ws/session"
Me.SessionService1.UseDefaultCredentials = False
'
'Button15
'btnOP
'
Me.Button15.BackgroundImage = Global.SDL.My.Resources.Resources.mahn
Me.Button15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button15.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button15.FlatAppearance.BorderSize = 0
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button15.Location = New System.Drawing.Point(819, 365)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(24, 24)
Me.Button15.TabIndex = 13
Me.Button15.UseVisualStyleBackColor = True
Me.Button15.Visible = False
Me.btnOP.BackgroundImage = Global.SDL.My.Resources.Resources.mahn
Me.btnOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnOP.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnOP.FlatAppearance.BorderSize = 0
Me.btnOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOP.Location = New System.Drawing.Point(819, 365)
Me.btnOP.Name = "btnOP"
Me.btnOP.Size = New System.Drawing.Size(24, 24)
Me.btnOP.TabIndex = 13
Me.btnOP.UseVisualStyleBackColor = True
'
'usrCntlKundenuebersicht
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.Button15)
Me.Controls.Add(Me.btnOP)
Me.Controls.Add(Me.btnReloadOP)
Me.Controls.Add(Me.lblFirma)
Me.Controls.Add(Me.btnExcel)
@@ -3727,5 +3726,5 @@ Partial Class usrCntlKundenuebersicht
Friend WithEvents Label19 As Label
Friend WithEvents txtVeranlKd As TextBox
Friend WithEvents lblVeranlKd As Label
Friend WithEvents Button15 As Button
Friend WithEvents btnOP As Button
End Class

3
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -2102,6 +2102,7 @@ Public Class usrCntlKundenuebersicht
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LADEN", "SDL") Then
btnReloadOP.Visible = (tbWeitereKundenDetails.SelectedTab Is tbOffenePosten)
btnOP.Visible = (tbWeitereKundenDetails.SelectedTab Is tbOffenePosten)
End If
End Sub
@@ -3185,7 +3186,7 @@ Public Class usrCntlKundenuebersicht
Me.Cursor = Cursors.Default
End Sub
Private Sub Button15_Click_2(sender As Object, e As EventArgs) Handles Button15.Click
Private Sub Button15_Click_2(sender As Object, e As EventArgs) Handles btnOP.Click
If cboFirmaFMZOLL._value = "" Then
MsgBox("Bitte Firma auswählen!")
Else