div. Änderungen

2026-11-05 16:12:46 +01:00
parent 17eea67c94
commit 1886abe838
1 changed files with 94 additions and 93 deletions
--- a/SDL/kunden/frmKundenblatt.Designer.vb
+++ b/SDL/kunden/frmKundenblatt.Designer.vb
@@ -56,6 +56,7 @@ 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.Button8 = New System.Windows.Forms.Button()
@@ -129,6 +130,8 @@ Partial Class frmKundenblatt
        Me.PictureBox6 = New System.Windows.Forms.PictureBox()
        Me.Button5 = New System.Windows.Forms.Button()
        Me.Panel5 = New System.Windows.Forms.Panel()
+        Me.txtKundenlimit = New System.Windows.Forms.TextBox()
+        Me.Label24 = New System.Windows.Forms.Label()
        Me.Label22 = New System.Windows.Forms.Label()
        Me.btnBestelldateiErzeugen = New System.Windows.Forms.Button()
        Me.Label35 = New System.Windows.Forms.Label()
@@ -160,8 +163,10 @@ Partial Class frmKundenblatt
        Me.lblLetzterSA_SDL = New System.Windows.Forms.Label()
        Me.rtbVermerke = New System.Windows.Forms.RichTextBox()
        Me.tbSDLKarten = New System.Windows.Forms.TabPage()
+        Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
        Me.tbLKW = New System.Windows.Forms.TabPage()
        Me.pnlLKWRight = New System.Windows.Forms.Panel()
+        Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
        Me.pnlLKW = New System.Windows.Forms.Panel()
        Me.dgvLKW = New System.Windows.Forms.DataGridView()
        Me.pnlLKWBottom = New System.Windows.Forms.Panel()
@@ -191,9 +196,11 @@ Partial Class frmKundenblatt
        Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
        Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
        Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.UsrCntlKundenlogin1 = New SDL.usrCntlKundenlogin()
        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()
@@ -204,6 +211,7 @@ Partial Class frmKundenblatt
        Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
        Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
        Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
+        Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
        Me.tbFIBU = New System.Windows.Forms.TabPage()
        Me.txtZinsbelastungTolInTagen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label23 = New System.Windows.Forms.Label()
@@ -257,14 +265,6 @@ Partial Class frmKundenblatt
        Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
        Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
        Me.cm_goboxen = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
-        Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
-        Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
-        Me.UsrCntlKundenlogin1 = New SDL.usrCntlKundenlogin()
-        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
-        Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
-        Me.Label24 = New System.Windows.Forms.Label()
-        Me.txtKundenlimit = New System.Windows.Forms.TextBox()
        Me.pnlInfo.SuspendLayout()
        Me.tbFirmendaten.SuspendLayout()
        Me.Panel4.SuspendLayout()
@@ -367,6 +367,16 @@ Partial Class frmKundenblatt
        Me.Panel4.Size = New System.Drawing.Size(1675, 990)
        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(1675, 990)
+        Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
+        '
        'tbcntrMain
        '
        Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
@@ -1589,6 +1599,24 @@ Partial Class frmKundenblatt
        Me.Panel5.Size = New System.Drawing.Size(1661, 143)
        Me.Panel5.TabIndex = 177
        '
+        'txtKundenlimit
+        '
+        Me.txtKundenlimit.Enabled = False
+        Me.txtKundenlimit.Location = New System.Drawing.Point(74, 122)
+        Me.txtKundenlimit.Name = "txtKundenlimit"
+        Me.txtKundenlimit.Size = New System.Drawing.Size(147, 20)
+        Me.txtKundenlimit.TabIndex = 4
+        '
+        'Label24
+        '
+        Me.Label24.AutoSize = True
+        Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label24.Location = New System.Drawing.Point(4, 125)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(64, 13)
+        Me.Label24.TabIndex = 181
+        Me.Label24.Text = "Kundenlimit:"
+        '
        'Label22
        '
        Me.Label22.AutoSize = True
@@ -1978,11 +2006,21 @@ Partial Class frmKundenblatt
        Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22)
        Me.tbSDLKarten.Name = "tbSDLKarten"
        Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbSDLKarten.Size = New System.Drawing.Size(1667, 964)
+        Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39)
        Me.tbSDLKarten.TabIndex = 7
        Me.tbSDLKarten.Text = "SDL-Kartenverwaltung"
        Me.tbSDLKarten.UseVisualStyleBackColor = True
        '
+        'usrcntlKarten
+        '
+        Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
+        Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
+        Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.usrcntlKarten.Name = "usrcntlKarten"
+        Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33)
+        Me.usrcntlKarten.TabIndex = 0
+        '
        'tbLKW
        '
        Me.tbLKW.Controls.Add(Me.pnlLKWRight)
@@ -2005,6 +2043,19 @@ Partial Class frmKundenblatt
        Me.pnlLKWRight.Size = New System.Drawing.Size(1355, 958)
        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(1200, 958)
+        Me.UsrCntlLKW1.TabIndex = 0
+        '
        'pnlLKW
        '
        Me.pnlLKW.Controls.Add(Me.dgvLKW)
@@ -2207,7 +2258,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(1667, 964)
+        Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39)
        Me.tbVERAGCard.TabIndex = 6
        Me.tbVERAGCard.Text = "VERAG Card"
        Me.tbVERAGCard.UseVisualStyleBackColor = True
@@ -2219,7 +2270,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(1661, 958)
+        Me.Panel3.Size = New System.Drawing.Size(172, 33)
        Me.Panel3.TabIndex = 0
        '
        'tbDokumente
@@ -2239,7 +2290,7 @@ Partial Class frmKundenblatt
        Me.tbDokumente.Controls.Add(Me.UsrCntlKundenlogin1)
        Me.tbDokumente.Location = New System.Drawing.Point(4, 22)
        Me.tbDokumente.Name = "tbDokumente"
-        Me.tbDokumente.Size = New System.Drawing.Size(1667, 964)
+        Me.tbDokumente.Size = New System.Drawing.Size(178, 39)
        Me.tbDokumente.TabIndex = 8
        Me.tbDokumente.Text = "Dokumente"
        Me.tbDokumente.UseVisualStyleBackColor = True
@@ -2444,12 +2495,19 @@ Partial Class frmKundenblatt
        Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24)
        Me.scanVertragVeragKd.TabIndex = 0
        '
+        'UsrCntlKundenlogin1
+        '
+        Me.UsrCntlKundenlogin1.Location = New System.Drawing.Point(799, 40)
+        Me.UsrCntlKundenlogin1.Name = "UsrCntlKundenlogin1"
+        Me.UsrCntlKundenlogin1.Size = New System.Drawing.Size(452, 236)
+        Me.UsrCntlKundenlogin1.TabIndex = 7
+        '
        'tbBesuchsberichte
        '
        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(1667, 964)
+        Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39)
        Me.tbBesuchsberichte.TabIndex = 9
        Me.tbBesuchsberichte.Text = "Besuchsberichte"
        Me.tbBesuchsberichte.UseVisualStyleBackColor = True
@@ -2458,7 +2516,7 @@ Partial Class frmKundenblatt
        '
        Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22)
        Me.tbFremdrechnungen.Name = "tbFremdrechnungen"
-        Me.tbFremdrechnungen.Size = New System.Drawing.Size(1667, 964)
+        Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39)
        Me.tbFremdrechnungen.TabIndex = 10
        Me.tbFremdrechnungen.Text = "Fremdrechnungen"
        Me.tbFremdrechnungen.UseVisualStyleBackColor = True
@@ -2474,6 +2532,16 @@ Partial Class frmKundenblatt
        Me.tbOfferte.Text = "Offerte"
        Me.tbOfferte.UseVisualStyleBackColor = True
        '
+        'UsrCntlOfferte1
+        '
+        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
+        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
+        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1681, 996)
+        Me.UsrCntlOfferte1.TabIndex = 0
+        '
        'tbUSTV
        '
        Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
@@ -2607,11 +2675,19 @@ Partial Class frmKundenblatt
        Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22)
        Me.tbUSTVAntrage.Name = "tbUSTVAntrage"
        Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbUSTVAntrage.Size = New System.Drawing.Size(1673, 970)
+        Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45)
        Me.tbUSTVAntrage.TabIndex = 9
        Me.tbUSTVAntrage.Text = "USTV-Anträge"
        Me.tbUSTVAntrage.UseVisualStyleBackColor = True
        '
+        'UsrCntlUSTV
+        '
+        Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
+        Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39)
+        Me.UsrCntlUSTV.TabIndex = 0
+        '
        'tbFIBU
        '
        Me.tbFIBU.Controls.Add(Me.txtZinsbelastungTolInTagen)
@@ -3044,7 +3120,7 @@ Partial Class frmKundenblatt
        Me.AllgemeinToolStripMenuItem.ImageAlign = System.Drawing.ContentAlignment.TopCenter
        Me.AllgemeinToolStripMenuItem.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
        Me.AllgemeinToolStripMenuItem.Name = "AllgemeinToolStripMenuItem"
-        Me.AllgemeinToolStripMenuItem.Size = New System.Drawing.Size(94, 70)
+        Me.AllgemeinToolStripMenuItem.Size = New System.Drawing.Size(122, 70)
        Me.AllgemeinToolStripMenuItem.Text = "Allgemein"
        Me.AllgemeinToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        Me.AllgemeinToolStripMenuItem.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
@@ -3084,7 +3160,7 @@ Partial Class frmKundenblatt
        '
        Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
        Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
        Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
        Me.cntxtCntxtMDM.Text = "cntxtMDM"
        '
@@ -3198,6 +3274,7 @@ Partial Class frmKundenblatt
        Me.KdSearchBox1._displayFullName = False
        Me.KdSearchBox1._displayWoelflKd = True
        Me.KdSearchBox1._hideIfListEmpty = True
+        Me.KdSearchBox1._hideMDMKd = False
        Me.KdSearchBox1._loadKdData = False
        Me.KdSearchBox1._searchName1 = True
        Me.KdSearchBox1._UseFIRMA = ""
@@ -3251,82 +3328,6 @@ Partial Class frmKundenblatt
        Me.cm_goboxen.Name = "cm_goboxen"
        Me.cm_goboxen.Size = New System.Drawing.Size(61, 4)
        '
-        '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(1675, 990)
-        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(1661, 958)
-        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, 958)
-        Me.UsrCntlLKW1.TabIndex = 0
-        '
-        'UsrCntlKundenlogin1
-        '
-        Me.UsrCntlKundenlogin1.Location = New System.Drawing.Point(799, 40)
-        Me.UsrCntlKundenlogin1.Name = "UsrCntlKundenlogin1"
-        Me.UsrCntlKundenlogin1.Size = New System.Drawing.Size(452, 236)
-        Me.UsrCntlKundenlogin1.TabIndex = 7
-        '
-        '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(1681, 996)
-        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(1667, 964)
-        Me.UsrCntlUSTV.TabIndex = 0
-        '
-        'Label24
-        '
-        Me.Label24.AutoSize = True
-        Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label24.Location = New System.Drawing.Point(4, 125)
-        Me.Label24.Name = "Label24"
-        Me.Label24.Size = New System.Drawing.Size(64, 13)
-        Me.Label24.TabIndex = 181
-        Me.Label24.Text = "Kundenlimit:"
-        '
-        'txtKundenlimit
-        '
-        Me.txtKundenlimit.Enabled = False
-        Me.txtKundenlimit.Location = New System.Drawing.Point(74, 122)
-        Me.txtKundenlimit.Name = "txtKundenlimit"
-        Me.txtKundenlimit.Size = New System.Drawing.Size(147, 20)
-        Me.txtKundenlimit.TabIndex = 4
-        '
        'frmKundenblatt
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)