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

Laufzettel DTB, USTV Anpassungen, USTV Kundenstamm, Docs, Messanger DoubleBuffer

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-03-07 16:59:22 +01:00
parent c8744fcf4a
commit 9b6f3fc162
14 changed files with 497 additions and 144 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -152,6 +152,15 @@ Partial Class frmKundenblatt
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()
Me.Label27 = New System.Windows.Forms.Label()
Me.Label37 = New System.Windows.Forms.Label()
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()
@@ -167,6 +176,7 @@ Partial Class frmKundenblatt
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
Me.cntxtCntxtMDM = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
Me.pnl = New System.Windows.Forms.Panel()
@@ -212,6 +222,10 @@ Partial Class frmKundenblatt
Me.tbVERAGCard.SuspendLayout()
Me.tbDokumente.SuspendLayout()
Me.tbOfferte.SuspendLayout()
Me.tbUSTV.SuspendLayout()
Me.tbcntrUSTV.SuspendLayout()
Me.tbUSTVDokumente.SuspendLayout()
Me.tbUSTVAntrage.SuspendLayout()
Me.cntxtExcel.SuspendLayout()
Me.ContextMenuStrip2.SuspendLayout()
Me.ContextMenuStrip3.SuspendLayout()
@@ -247,7 +261,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, 727)
Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 744)
Me.tbFirmendaten.TabIndex = 3
Me.tbFirmendaten.Text = "Firmendaten"
'
@@ -257,7 +271,7 @@ 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, 721)
Me.Panel4.Size = New System.Drawing.Size(1624, 738)
Me.Panel4.TabIndex = 0
'
'UsrcntlKundeBearbeitenFull1
@@ -267,7 +281,7 @@ Partial Class frmKundenblatt
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, 721)
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 738)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'tbcntrMain
@@ -278,13 +292,14 @@ Partial Class frmKundenblatt
Me.tbcntrMain.Controls.Add(Me.tbZoll)
Me.tbcntrMain.Controls.Add(Me.tbMdm)
Me.tbcntrMain.Controls.Add(Me.tbOfferte)
Me.tbcntrMain.Controls.Add(Me.tbUSTV)
Me.tbcntrMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntrMain.ItemSize = New System.Drawing.Size(76, 0)
Me.tbcntrMain.Location = New System.Drawing.Point(0, 112)
Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMain.Name = "tbcntrMain"
Me.tbcntrMain.SelectedIndex = 0
Me.tbcntrMain.Size = New System.Drawing.Size(1638, 756)
Me.tbcntrMain.Size = New System.Drawing.Size(1638, 790)
Me.tbcntrMain.TabIndex = 3
'
'tbAllgemein
@@ -317,7 +332,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, 727)
Me.tbAllgemein.Size = New System.Drawing.Size(1630, 761)
Me.tbAllgemein.TabIndex = 0
Me.tbAllgemein.Text = "Allgemein"
'
@@ -652,7 +667,7 @@ Partial Class frmKundenblatt
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, 617)
Me.dgvSperrliste.Size = New System.Drawing.Size(835, 651)
Me.dgvSperrliste.TabIndex = 23
'
'PictureBox2
@@ -706,7 +721,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, 727)
Me.tbZoll.Size = New System.Drawing.Size(1630, 744)
Me.tbZoll.TabIndex = 9
Me.tbZoll.Text = "ZOLL"
Me.tbZoll.UseVisualStyleBackColor = True
@@ -718,7 +733,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, 721)
Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 738)
Me.tbcntrZOLL.TabIndex = 0
'
'tabZoll_Artikel
@@ -726,7 +741,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, 695)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 712)
Me.tabZoll_Artikel.TabIndex = 1
Me.tabZoll_Artikel.Text = "Artikel"
Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -737,7 +752,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, 727)
Me.tbMdm.Size = New System.Drawing.Size(1630, 744)
Me.tbMdm.TabIndex = 10
Me.tbMdm.Text = "MDM"
Me.tbMdm.UseVisualStyleBackColor = True
@@ -755,7 +770,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, 721)
Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 738)
Me.tbcntrMDM.TabIndex = 0
'
'tbSDL
@@ -767,7 +782,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, 695)
Me.tbSDL.Size = New System.Drawing.Size(1616, 712)
Me.tbSDL.TabIndex = 5
Me.tbSDL.Text = "SDL-Leistungen"
Me.tbSDL.UseVisualStyleBackColor = True
@@ -809,7 +824,7 @@ Partial Class frmKundenblatt
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle10
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 499)
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 516)
Me.dgvSDLLeistungenFull.TabIndex = 5
'
'Panel6
@@ -913,7 +928,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, 549)
Me.Panel5.Location = New System.Drawing.Point(3, 566)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(1610, 143)
Me.Panel5.TabIndex = 177
@@ -1777,7 +1792,7 @@ 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, 727)
Me.tbOfferte.Size = New System.Drawing.Size(1630, 744)
Me.tbOfferte.TabIndex = 11
Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True
@@ -1789,9 +1804,121 @@ Partial Class frmKundenblatt
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, 727)
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 744)
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, 761)
Me.tbUSTV.TabIndex = 12
Me.tbUSTV.Text = "USTV"
Me.tbUSTV.UseVisualStyleBackColor = True
'
'tbcntrUSTV
'
Me.tbcntrUSTV.Controls.Add(Me.tbUSTVDokumente)
Me.tbcntrUSTV.Controls.Add(Me.tbUSTVAntrage)
Me.tbcntrUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntrUSTV.Location = New System.Drawing.Point(0, 0)
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, 761)
Me.tbcntrUSTV.TabIndex = 1
'
'tbUSTVDokumente
'
Me.tbUSTVDokumente.Controls.Add(Me.Label27)
Me.tbUSTVDokumente.Controls.Add(Me.Label37)
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVFABest)
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, 735)
Me.tbUSTVDokumente.TabIndex = 8
Me.tbUSTVDokumente.Text = "Dokumente"
Me.tbUSTVDokumente.UseVisualStyleBackColor = True
'
'Label27
'
Me.Label27.AutoSize = True
Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label27.Location = New System.Drawing.Point(311, 17)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(153, 13)
Me.Label27.TabIndex = 6
Me.Label27.Text = "Finanzamt-Bestätigungen:"
'
'Label37
'
Me.Label37.AutoSize = True
Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label37.Location = New System.Drawing.Point(14, 17)
Me.Label37.Name = "Label37"
Me.Label37.Size = New System.Drawing.Size(113, 13)
Me.Label37.TabIndex = 2
Me.Label37.Text = "USTV Vollmachten"
'
'scanUSTVFABest
'
Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanUSTVFABest._DATENSERVER_ORDNER = "MDM"
Me.scanUSTVFABest._DATENSERVER_UOrdner1 = ""
Me.scanUSTVFABest._DATENSERVER_UOrdner2 = ""
Me.scanUSTVFABest._DATENSERVER_UOrdner3 = ""
Me.scanUSTVFABest._OPEN_ORIGINAL = False
Me.scanUSTVFABest._TYPE = "PDF"
Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUSTVFABest.BackColor = System.Drawing.Color.White
Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanUSTVFABest.Cursor = System.Windows.Forms.Cursors.Default
Me.scanUSTVFABest.Location = New System.Drawing.Point(311, 36)
Me.scanUSTVFABest.Margin = New System.Windows.Forms.Padding(0)
Me.scanUSTVFABest.Name = "scanUSTVFABest"
Me.scanUSTVFABest.Size = New System.Drawing.Size(285, 505)
Me.scanUSTVFABest.TabIndex = 5
'
'scanUSTVVollmachten
'
Me.scanUSTVVollmachten._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanUSTVVollmachten._DATENSERVER_ORDNER = "MDM"
Me.scanUSTVVollmachten._DATENSERVER_UOrdner1 = ""
Me.scanUSTVVollmachten._DATENSERVER_UOrdner2 = ""
Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = ""
Me.scanUSTVVollmachten._OPEN_ORIGINAL = False
Me.scanUSTVVollmachten._TYPE = "PDF"
Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White
Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanUSTVVollmachten.Cursor = System.Windows.Forms.Cursors.Default
Me.scanUSTVVollmachten.Location = New System.Drawing.Point(14, 36)
Me.scanUSTVVollmachten.Margin = New System.Windows.Forms.Padding(0)
Me.scanUSTVVollmachten.Name = "scanUSTVVollmachten"
Me.scanUSTVVollmachten.Size = New System.Drawing.Size(285, 505)
Me.scanUSTVVollmachten.TabIndex = 1
'
'tbUSTVAntrage
'
Me.tbUSTVAntrage.Controls.Add(Me.UsrCntlUSTV)
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(1622, 735)
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(1616, 729)
Me.UsrCntlUSTV.TabIndex = 0
'
'cntxtExcel
'
Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -1877,7 +2004,7 @@ Partial Class frmKundenblatt
Me.mne.Dock = System.Windows.Forms.DockStyle.Bottom
Me.mne.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.mne.ImageScalingSize = New System.Drawing.Size(25, 25)
Me.mne.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AllgemeinToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ToolStripMenuItem7})
Me.mne.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AllgemeinToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.ToolStripMenuItem8, Me.ToolStripMenuItem5, Me.ToolStripMenuItem7})
Me.mne.Location = New System.Drawing.Point(0, 31)
Me.mne.Name = "mne"
Me.mne.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0)
@@ -1934,10 +2061,27 @@ 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"
'
'ToolStripMenuItem8
'
Me.ToolStripMenuItem8.AutoSize = False
Me.ToolStripMenuItem8.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.ToolStripMenuItem8.DropDown = Me.cntxtCntxtMDM
Me.ToolStripMenuItem8.ForeColor = System.Drawing.Color.White
Me.ToolStripMenuItem8.Image = Global.SDL.My.Resources.Resources.logo_mdm
Me.ToolStripMenuItem8.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.ToolStripMenuItem8.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.ToolStripMenuItem8.MergeIndex = 10
Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
Me.ToolStripMenuItem8.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(94, 60)
Me.ToolStripMenuItem8.Text = "USTV"
Me.ToolStripMenuItem8.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.ToolStripMenuItem8.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripMenuItem5
'
Me.ToolStripMenuItem5.AutoSize = False
@@ -2057,7 +2201,7 @@ Partial Class frmKundenblatt
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1180, 885)
Me.ClientSize = New System.Drawing.Size(1180, 919)
Me.Controls.Add(Me.lblAbfVerb)
Me.Controls.Add(Me.btnAbfVerb)
Me.Controls.Add(Me.tbcntrMain)
@@ -2117,6 +2261,11 @@ Partial Class frmKundenblatt
Me.tbDokumente.ResumeLayout(False)
Me.tbDokumente.PerformLayout()
Me.tbOfferte.ResumeLayout(False)
Me.tbUSTV.ResumeLayout(False)
Me.tbcntrUSTV.ResumeLayout(False)
Me.tbUSTVDokumente.ResumeLayout(False)
Me.tbUSTVDokumente.PerformLayout()
Me.tbUSTVAntrage.ResumeLayout(False)
Me.cntxtExcel.ResumeLayout(False)
Me.ContextMenuStrip2.ResumeLayout(False)
Me.ContextMenuStrip3.ResumeLayout(False)
@@ -2266,4 +2415,14 @@ Partial Class frmKundenblatt
Friend WithEvents Label7 As Label
Friend WithEvents scanUebernahmebestätigungen As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents tbBesuchsberichte As TabPage
Friend WithEvents tbUSTV As TabPage
Friend WithEvents ToolStripMenuItem8 As ToolStripMenuItem
Friend WithEvents tbcntrUSTV As TabControl
Friend WithEvents tbUSTVDokumente As TabPage
Friend WithEvents Label27 As Label
Friend WithEvents Label37 As Label
Friend WithEvents scanUSTVFABest As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents scanUSTVVollmachten As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents tbUSTVAntrage As TabPage
Friend WithEvents UsrCntlUSTV As usrCntlUSTV
End Class

35
SDL/kunden/frmKundenblatt.vb
View File

@@ -40,6 +40,17 @@ Public Class frmKundenblatt
Private WithEvents timShow As New Timer With {.Interval = 10}
Private WithEvents timHide As New Timer With {.Interval = 10}
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmKundenblatt_BackColorChanged(sender As Object, e As EventArgs) Handles pnl.BackColorChanged
'lblFirma.BackColor = sender.BackColor
' pnl.BackColor = sender.BackColor
@@ -219,7 +230,7 @@ Public Class frmKundenblatt
End If
' lblFirma.Text = KUNDE.Kurzname
End Sub
Private Sub TabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrMain.SelectedIndexChanged, tbcntrMDM.SelectedIndexChanged
Private Sub TabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrMain.SelectedIndexChanged, tbcntrMDM.SelectedIndexChanged, tbcntrUSTV.SelectedIndexChanged
' tbcntrMDM.SuspendLayout()
' If kdNr <= 0 Then changeTab(0, AllgemeinToolStripMenuItem) : Exit Sub
If kdNr <= 0 Then changeTab(1, ToolStripMenuItem2) : Exit Sub
@@ -246,9 +257,19 @@ Public Class frmKundenblatt
scanUebernahmebestätigungen.INIT(kdNr, "KUNDENDATEN", "Übernahmebestätigungen")
Case "tbBesuchsberichte" : initTABBesuchsberichte()
End Select
Case "tbUSTV"
Select Case tbcntrUSTV.SelectedTab.Name
Case "tbUSTVDokumente"
scanUSTVFABest.INIT(kdNr, "KUNDENDATEN", "FA_Bestaetigungen")
scanUSTVVollmachten.INIT(kdNr, "KUNDENDATEN", "USTV_Vollmachten")
Case "tbUSTVAntrage" : initTABUSTVAntraege()
End Select
Case "tbZoll" : initTZOLL()
Case "tbOfferte" : UsrCntlOfferte1.init(kdNr)
End Select
End If
'tbcntrMDM.ResumeLayout()
@@ -341,6 +362,13 @@ Public Class frmKundenblatt
usrcntlKarten.init()
End Sub
Sub initTABUSTVAntraege()
' UsrCntlUSTV.kdNr_filter = True
' MsgBox("kdNr: " & kdNr)
UsrCntlUSTV.init(kdNr)
End Sub
Private Sub initTZOLL()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ZOLL_Hauptmenue", Me) = 0 Then
If tbcntrZOLL.SelectedIndex = 0 Then
@@ -1704,6 +1732,9 @@ Public Class frmKundenblatt
f.ShowDialog(Me)
End Sub
Private Sub ToolStripMenuItem8_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
changeTab(5, sender, 1)
End Sub
End Class