SDL Abholung

2023-07-12 22:32:37 +02:00
parent 409c40173e
commit 8ff1170d27
7 changed files with 111 additions and 36 deletions
--- a/SDL/kunden/usrCntlLKW.Designer.vb
+++ b/SDL/kunden/usrCntlLKW.Designer.vb
@@ -23,7 +23,7 @@ Partial Class usrCntlLKW
    <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()
        Me.btnPrevLKW = New System.Windows.Forms.Button()
        Me.btnNextLKW = New System.Windows.Forms.Button()
        Me.dgvSDLLeistungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -52,6 +52,8 @@ Partial Class usrCntlLKW
        Me.Label7 = New System.Windows.Forms.Label()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanCIFDokument = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanCOCDokument = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
        Me.scanMietVertrag = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
        Me.scanZulassungsschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
@@ -91,17 +93,17 @@ Partial Class usrCntlLKW
        'dgvSDLLeistungen
        '
        Me.dgvSDLLeistungen.AKTUALISIERUNGS_INTERVALL = 1000
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvSDLLeistungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvSDLLeistungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
        Me.dgvSDLLeistungen.BackgroundColor = System.Drawing.Color.White
        Me.dgvSDLLeistungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvSDLLeistungen.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvSDLLeistungen.Location = New System.Drawing.Point(0, 76)
+        Me.dgvSDLLeistungen.Location = New System.Drawing.Point(0, 80)
        Me.dgvSDLLeistungen.MultiSelect = False
        Me.dgvSDLLeistungen.Name = "dgvSDLLeistungen"
        Me.dgvSDLLeistungen.ReadOnly = True
        Me.dgvSDLLeistungen.RowTemplate.Height = 20
-        Me.dgvSDLLeistungen.Size = New System.Drawing.Size(848, 281)
+        Me.dgvSDLLeistungen.Size = New System.Drawing.Size(998, 277)
        Me.dgvSDLLeistungen.TabIndex = 145
        '
        'cntxtSDLLeistungenOptions
@@ -181,7 +183,7 @@ Partial Class usrCntlLKW
        Me.pnlSDLLeistungenDetails.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.pnlSDLLeistungenDetails.Location = New System.Drawing.Point(0, 357)
        Me.pnlSDLLeistungenDetails.Name = "pnlSDLLeistungenDetails"
-        Me.pnlSDLLeistungenDetails.Size = New System.Drawing.Size(848, 220)
+        Me.pnlSDLLeistungenDetails.Size = New System.Drawing.Size(998, 220)
        Me.pnlSDLLeistungenDetails.TabIndex = 149
        '
        'Label4
@@ -288,7 +290,7 @@ Partial Class usrCntlLKW
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnl.Location = New System.Drawing.Point(0, 0)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(848, 76)
+        Me.pnl.Size = New System.Drawing.Size(998, 80)
        Me.pnl.TabIndex = 155
        '
        'tbcntrLKW
@@ -302,7 +304,7 @@ Partial Class usrCntlLKW
        Me.tbcntrLKW.Location = New System.Drawing.Point(278, 0)
        Me.tbcntrLKW.Name = "tbcntrLKW"
        Me.tbcntrLKW.SelectedIndex = 0
-        Me.tbcntrLKW.Size = New System.Drawing.Size(570, 76)
+        Me.tbcntrLKW.Size = New System.Drawing.Size(720, 80)
        Me.tbcntrLKW.TabIndex = 156
        '
        'TabPage1
@@ -319,7 +321,7 @@ Partial Class usrCntlLKW
        Me.TabPage1.Location = New System.Drawing.Point(4, 19)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(562, 53)
+        Me.TabPage1.Size = New System.Drawing.Size(712, 57)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Details"
        Me.TabPage1.UseVisualStyleBackColor = True
@@ -353,6 +355,8 @@ Partial Class usrCntlLKW
        '
        'TabPage2
        '
+        Me.TabPage2.Controls.Add(Me.scanCIFDokument)
+        Me.TabPage2.Controls.Add(Me.scanCOCDokument)
        Me.TabPage2.Controls.Add(Me.scanMietVertrag)
        Me.TabPage2.Controls.Add(Me.scanSonstiges)
        Me.TabPage2.Controls.Add(Me.scanZulassungsschein)
@@ -361,11 +365,51 @@ Partial Class usrCntlLKW
        Me.TabPage2.Location = New System.Drawing.Point(4, 19)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(562, 53)
+        Me.TabPage2.Size = New System.Drawing.Size(712, 57)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "Dokumente"
        Me.TabPage2.UseVisualStyleBackColor = True
        '
+        'scanCIFDokument
+        '
+        Me.scanCIFDokument._ARCHIV = True
+        Me.scanCIFDokument._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanCIFDokument._DATENSERVER_ORDNER = "MDM"
+        Me.scanCIFDokument._DATENSERVER_UOrdner1 = Nothing
+        Me.scanCIFDokument._DATENSERVER_UOrdner2 = Nothing
+        Me.scanCIFDokument._DATENSERVER_UOrdner3 = Nothing
+        Me.scanCIFDokument._MULTI_FILES = True
+        Me.scanCIFDokument._TEXT_PDF = "CIF-Dokument"
+        Me.scanCIFDokument.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanCIFDokument.BackColor = System.Drawing.Color.White
+        Me.scanCIFDokument.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanCIFDokument.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanCIFDokument.Enabled = False
+        Me.scanCIFDokument.Location = New System.Drawing.Point(270, 29)
+        Me.scanCIFDokument.Name = "scanCIFDokument"
+        Me.scanCIFDokument.Size = New System.Drawing.Size(126, 22)
+        Me.scanCIFDokument.TabIndex = 165
+        '
+        'scanCOCDokument
+        '
+        Me.scanCOCDokument._ARCHIV = True
+        Me.scanCOCDokument._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanCOCDokument._DATENSERVER_ORDNER = "MDM"
+        Me.scanCOCDokument._DATENSERVER_UOrdner1 = Nothing
+        Me.scanCOCDokument._DATENSERVER_UOrdner2 = Nothing
+        Me.scanCOCDokument._DATENSERVER_UOrdner3 = Nothing
+        Me.scanCOCDokument._MULTI_FILES = True
+        Me.scanCOCDokument._TEXT_PDF = "COC-Dokument"
+        Me.scanCOCDokument.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanCOCDokument.BackColor = System.Drawing.Color.White
+        Me.scanCOCDokument.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanCOCDokument.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanCOCDokument.Enabled = False
+        Me.scanCOCDokument.Location = New System.Drawing.Point(270, 6)
+        Me.scanCOCDokument.Name = "scanCOCDokument"
+        Me.scanCOCDokument.Size = New System.Drawing.Size(126, 22)
+        Me.scanCOCDokument.TabIndex = 164
+        '
        'scanMietVertrag
        '
        Me.scanMietVertrag._ARCHIV = True
@@ -400,10 +444,10 @@ Partial Class usrCntlLKW
        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Default
        Me.scanSonstiges.Enabled = False
-        Me.scanSonstiges.Location = New System.Drawing.Point(267, 3)
+        Me.scanSonstiges.Location = New System.Drawing.Point(410, 0)
        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
        Me.scanSonstiges.Name = "scanSonstiges"
-        Me.scanSonstiges.Size = New System.Drawing.Size(292, 48)
+        Me.scanSonstiges.Size = New System.Drawing.Size(299, 58)
        Me.scanSonstiges.TabIndex = 162
        '
        'scanZulassungsschein
@@ -478,7 +522,7 @@ Partial Class usrCntlLKW
        Me.Controls.Add(Me.pnlSDLLeistungenDetails)
        Me.MaximumSize = New System.Drawing.Size(1000, 1000)
        Me.Name = "usrCntlLKW"
-        Me.Size = New System.Drawing.Size(848, 577)
+        Me.Size = New System.Drawing.Size(998, 577)
        CType(Me.dgvSDLLeistungen, System.ComponentModel.ISupportInitialize).EndInit()
        Me.cntxtSDLLeistungenOptions.ResumeLayout(False)
        Me.pnlSDLLeistungenDetails.ResumeLayout(False)
@@ -527,4 +571,6 @@ Partial Class usrCntlLKW
    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
    Friend WithEvents scanMietVertrag As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanCIFDokument As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanCOCDokument As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
 End Class
--- a/SDL/kunden/usrCntlLKW.vb
+++ b/SDL/kunden/usrCntlLKW.vb
@@ -83,6 +83,8 @@ Public Class usrCntlLKW
                scanLeasingVertrag.INIT(kdnr, Me.kz)
                scanMietVertrag.INIT(kdnr, Me.kz)
                scanSonstiges.INIT(kdnr, Me.kz)
+                scanCOCDokument.INIT(kdnr, Me.kz)
+                scanCIFDokument.INIT(kdnr, Me.kz)

                scanZulassungsschein.Enabled = True
                scanCEMT.Enabled = True
@@ -90,6 +92,8 @@ Public Class usrCntlLKW
                scanMietVertrag.Enabled = True
                scanSonstiges.Enabled = True

+                scanCOCDokument.Enabled = True
+                scanCIFDokument.Enabled = True


                '   AddHandler btnNextSDL.Click, AddressOf nextLKW