From a4a94a81c428d37ae214cd404de5408fb3bf0522 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 17 Jul 2024 08:22:03 +0200 Subject: [PATCH] SDL Bugfixes Karten Retourniert, LKW Docs erw.; DTB an Dakosy (Stammref) --- SDL/Fakturierung/cFakturierung.vb | 3 + SDL/Fakturierung/frmFaktEmail.vb | 19 +- SDL/My Project/AssemblyInfo.vb | 4 +- .../DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb | 2 +- .../ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb | 2 +- .../Stammreferenz/frmDakosyStammreferenz.vb | 2 +- SDL/kunden/frmKundenblatt.Designer.vb | 968 +++++++++--------- .../frmLKW_AnhaengeDatenarchiv.Designer.vb | 230 +++-- SDL/kunden/frmLKW_AnhaengeDatenarchiv.resx | 12 + SDL/kunden/frmLKW_AnhaengeDatenarchiv.vb | 8 +- SDL/kunden/usrCntlCBAM.vb | 6 +- SDL/kunden/usrCntlKundenBesonderheiten.vb | 2 +- SDL/mdm/usrCntlKartenDaten.vb | 9 +- 13 files changed, 685 insertions(+), 582 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 09edccb7..617ef24d 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -645,6 +645,9 @@ Public Class cFakturierung End Select ' MsgBox(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc") + If RECHNUNG.[Vorkasse] Then + sqlStr &= " AND (Textschlüssel<>16) " 'Bei Vorkasse soll dieser Text nicht aufscheinen (AMBAR) + End If Dim dt_RechnungsTexte As DataTable = SQL.loadDgvBySql(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc", "FMZOLL") diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index bef97abc..c35a450f 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -393,8 +393,15 @@ Public Class frmFaktEmail addAttachments(Mail, lastAktuelle_RgNr, cbxMergePDF.Checked) + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then + Try + Mail.SentOnBehalfOfName = "buchhaltung@ambarlog.de" + Catch ex2 As Exception + MsgBox(ex2.Message) + End Try + End If - Mail.Display() + Mail.Display() '------------------------------------------------------------------------------------------ ' STB /FA SR: ABFRAGE FISKAL-VZ If isFiskal Then @@ -511,6 +518,16 @@ Public Class frmFaktEmail addAttachments(Mail, RECHNUNG.RechnungsNr, cbxMergePDF.Checked) '----------------------------------------------------------------- + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then + Try + Mail.SentOnBehalfOfName = "buchhaltung@ambarlog.de" + Catch ex2 As Exception + MsgBox(ex2.Message) + End Try + End If + + Mail.Display() '------------------------------------------------------------------------------------------ diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index d7ddfd31..085e1a7d 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb index 5a0489e6..8e0b05cd 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb @@ -204,7 +204,7 @@ Public Class usrCntlATLAS_EZA End Select - cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung='" & txtDyNiederlassung.Text & "' and dySr_visible=1", False, "FMZOLL", True) + cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung='" & txtDyNiederlassung.Text.Replace("DTB", "SUB") & "' and dySr_visible=1", False, "FMZOLL", True) cboStammreferenz.changeItem("") diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb index 72a0c55c..78263dad 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb @@ -174,7 +174,7 @@ Public Class usrCntlATLAS_NCTS004 End Select - cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True) + cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text.Replace("DTB", "SUB") & "') and dySr_visible=1", False, "FMZOLL", True) cboStammreferenz.changeItem("") SICHERHEIT = New usrCntlATLAS_NCTS004_Sicherheit(ncts_OUT, FIRMA_DY) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb index ae73d012..07b695e7 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb @@ -32,7 +32,7 @@ SelectNL = False Select Case FIRMA_DY Case "VERAG" : txtDyMandant.Text = "VERG" - txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.ToString.Replace("DTB", "SUB") ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG 'Case "SUB" : txtDyNiederlassung.Text = "VERG" 'Case "SUW" : txtDyNiederlassung.Text = "ATIL" diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index c7be9c01..678b771a 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -42,7 +42,6 @@ Partial Class frmKundenblatt Me.txtInfotext = New System.Windows.Forms.Label() Me.tbFirmendaten = New System.Windows.Forms.TabPage() Me.Panel4 = New System.Windows.Forms.Panel() - Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() Me.Label17 = New System.Windows.Forms.Label() @@ -90,9 +89,6 @@ Partial Class frmKundenblatt Me.Panel5 = New System.Windows.Forms.Panel() Me.Label35 = New System.Windows.Forms.Label() Me.flpSDLDok = New System.Windows.Forms.FlowLayoutPanel() - Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.Label34 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() Me.Button6 = New System.Windows.Forms.Button() @@ -103,24 +99,18 @@ Partial Class frmKundenblatt Me.Label33 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() - Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.lblAenderungsdatum_SDL = New System.Windows.Forms.Label() Me.lblErfassungsdatum_SDL = New System.Windows.Forms.Label() Me.grpMautDE = New System.Windows.Forms.GroupBox() Me.Button15 = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() - Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblMautDEFlottenPIN = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() - Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() 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() @@ -141,28 +131,15 @@ Partial Class frmKundenblatt Me.Label7 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.lblSonstigeDokumente = New System.Windows.Forms.Label() - Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - 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() Me.Label8 = New System.Windows.Forms.Label() - Me.scanUSTVsonstigeDokumente = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() 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() @@ -183,11 +160,34 @@ Partial Class frmKundenblatt Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() Me.pnl = New System.Windows.Forms.Panel() Me.lblINAKTIV = New System.Windows.Forms.Label() - Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.tbiLeistungen = New System.Windows.Forms.ToolStripMenuItem() Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() + Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanUSTVsonstigeDokumente = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + 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() @@ -263,7 +263,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, 778) + Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 829) Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.Text = "Firmendaten" ' @@ -273,19 +273,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, 772) + Me.Panel4.Size = New System.Drawing.Size(1624, 823) 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, 772) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 - ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -301,7 +291,7 @@ 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, 824) + Me.tbcntrMain.Size = New System.Drawing.Size(1638, 858) Me.tbcntrMain.TabIndex = 3 ' 'tbAllgemein @@ -334,7 +324,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, 795) + Me.tbAllgemein.Size = New System.Drawing.Size(1630, 846) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' @@ -669,7 +659,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, 685) + Me.dgvSperrliste.Size = New System.Drawing.Size(835, 736) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -723,7 +713,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, 778) + Me.tbZoll.Size = New System.Drawing.Size(1630, 829) Me.tbZoll.TabIndex = 9 Me.tbZoll.Text = "ZOLL" Me.tbZoll.UseVisualStyleBackColor = True @@ -735,7 +725,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, 772) + Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 823) Me.tbcntrZOLL.TabIndex = 0 ' 'tabZoll_Artikel @@ -743,7 +733,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, 746) + Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 797) Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.UseVisualStyleBackColor = True @@ -754,7 +744,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, 778) + Me.tbMdm.Size = New System.Drawing.Size(1630, 829) Me.tbMdm.TabIndex = 10 Me.tbMdm.Text = "MDM" Me.tbMdm.UseVisualStyleBackColor = True @@ -772,7 +762,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, 772) + Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 823) Me.tbcntrMDM.TabIndex = 0 ' 'tbSDL @@ -784,7 +774,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, 746) + Me.tbSDL.Size = New System.Drawing.Size(1616, 814) Me.tbSDL.TabIndex = 5 Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.UseVisualStyleBackColor = True @@ -826,7 +816,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, 550) + Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 618) Me.dgvSDLLeistungenFull.TabIndex = 5 ' 'Panel6 @@ -930,7 +920,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, 600) + Me.Panel5.Location = New System.Drawing.Point(3, 668) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1610, 143) Me.Panel5.TabIndex = 177 @@ -956,67 +946,6 @@ Partial Class frmKundenblatt Me.flpSDLDok.Size = New System.Drawing.Size(158, 125) Me.flpSDLDok.TabIndex = 176 ' - 'scanErstbestellung - ' - Me.scanErstbestellung._ARCHIV = True - Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" - Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing - Me.scanErstbestellung._MULTI_FILES = True - Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" - Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanErstbestellung.BackColor = System.Drawing.Color.White - Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) - Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) - Me.scanErstbestellung.Name = "scanErstbestellung" - Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) - Me.scanErstbestellung.TabIndex = 172 - ' - 'scanJaraVereinbarung - ' - Me.scanJaraVereinbarung._ARCHIV = True - Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" - Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing - Me.scanJaraVereinbarung._MULTI_FILES = True - Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" - Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White - Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) - Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) - Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" - Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) - Me.scanJaraVereinbarung.TabIndex = 173 - ' - 'scanMWSTAgreement - ' - Me.scanMWSTAgreement._ARCHIV = True - Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" - Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing - Me.scanMWSTAgreement._MULTI_FILES = True - Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" - Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White - Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) - Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) - Me.scanMWSTAgreement.Name = "scanMWSTAgreement" - Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) - Me.scanMWSTAgreement.TabIndex = 174 - Me.scanMWSTAgreement.Visible = False - ' 'Label34 ' Me.Label34.AutoSize = True @@ -1116,25 +1045,6 @@ Partial Class frmKundenblatt Me.Label32.TabIndex = 13 Me.Label32.Text = "Letzter Sachbearbeiter:" ' - 'scanSDLSonst - ' - Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" - Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" - Me.scanSDLSonst._OPEN_ORIGINAL = False - Me.scanSDLSonst._TYPE = "PDF" - Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSDLSonst.BackColor = System.Drawing.Color.White - Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default - Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) - Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) - Me.scanSDLSonst.Name = "scanSDLSonst" - Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) - Me.scanSDLSonst.TabIndex = 173 - ' 'lblAenderungsdatum_SDL ' Me.lblAenderungsdatum_SDL.AutoSize = True @@ -1191,29 +1101,6 @@ Partial Class frmKundenblatt Me.Label1.TabIndex = 19 Me.Label1.Text = "Benutzer-Nr:" ' - 'txtMautDE_BenutzerNr - ' - Me.txtMautDE_BenutzerNr._DateTimeOnly = False - Me.txtMautDE_BenutzerNr._numbersOnly = True - Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" - Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True - Me.txtMautDE_BenutzerNr._Prozent = False - Me.txtMautDE_BenutzerNr._ShortDateNew = False - Me.txtMautDE_BenutzerNr._ShortDateOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False - Me.txtMautDE_BenutzerNr._value = "" - Me.txtMautDE_BenutzerNr._Waehrung = False - Me.txtMautDE_BenutzerNr._WaehrungZeichen = True - Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) - Me.txtMautDE_BenutzerNr.MaxLineLength = -1 - Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" - Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing - Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" - Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) - Me.txtMautDE_BenutzerNr.TabIndex = 18 - ' 'lblMautDEFlottenPIN ' Me.lblMautDEFlottenPIN.AutoSize = True @@ -1232,52 +1119,6 @@ Partial Class frmKundenblatt Me.Label6.TabIndex = 17 Me.Label6.Text = "Master-PIN:" ' - 'txtMautDE_FlottenPIN - ' - Me.txtMautDE_FlottenPIN._DateTimeOnly = False - Me.txtMautDE_FlottenPIN._numbersOnly = True - Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" - Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True - Me.txtMautDE_FlottenPIN._Prozent = False - Me.txtMautDE_FlottenPIN._ShortDateNew = False - Me.txtMautDE_FlottenPIN._ShortDateOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False - Me.txtMautDE_FlottenPIN._value = "" - Me.txtMautDE_FlottenPIN._Waehrung = False - Me.txtMautDE_FlottenPIN._WaehrungZeichen = True - Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) - Me.txtMautDE_FlottenPIN.MaxLineLength = -1 - Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" - Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" - Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDE_FlottenPIN.TabIndex = 14 - ' - 'txtMautDEMasterPIN - ' - Me.txtMautDEMasterPIN._DateTimeOnly = False - Me.txtMautDEMasterPIN._numbersOnly = True - Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" - Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True - Me.txtMautDEMasterPIN._Prozent = False - Me.txtMautDEMasterPIN._ShortDateNew = False - Me.txtMautDEMasterPIN._ShortDateOnly = False - Me.txtMautDEMasterPIN._TimeOnly = False - Me.txtMautDEMasterPIN._TimeOnly_Seconds = False - Me.txtMautDEMasterPIN._value = "" - Me.txtMautDEMasterPIN._Waehrung = False - Me.txtMautDEMasterPIN._WaehrungZeichen = True - Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) - Me.txtMautDEMasterPIN.MaxLineLength = -1 - Me.txtMautDEMasterPIN.MaxLines_Warning = "" - Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" - Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDEMasterPIN.TabIndex = 16 - ' 'lblLetzterSA_SDL ' Me.lblLetzterSA_SDL.AutoSize = True @@ -1303,21 +1144,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, 797) 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 +1156,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, 797) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1337,22 +1168,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, 791) 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,7 +1179,7 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 33) + Me.pnlLKW.Size = New System.Drawing.Size(306, 791) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW @@ -1402,7 +1220,7 @@ Partial Class frmKundenblatt Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 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, 617) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1414,7 +1232,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, 679) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -1555,7 +1373,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, 797) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -1567,7 +1385,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, 791) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -1585,7 +1403,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, 797) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -1620,170 +1438,12 @@ Partial Class frmKundenblatt Me.lblSonstigeDokumente.TabIndex = 2 Me.lblSonstigeDokumente.Text = "Sonstige Dokumente" ' - 'scanUebernahmebestätigungen - ' - Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUebernahmebestätigungen._DATENSERVER_ORDNER = "MDM" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner1 = "" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner2 = "" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = "" - Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False - Me.scanUebernahmebestätigungen._TYPE = "PDF" - Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White - Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUebernahmebestätigungen.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUebernahmebestätigungen.Location = New System.Drawing.Point(488, 40) - Me.scanUebernahmebestätigungen.Margin = New System.Windows.Forms.Padding(0) - Me.scanUebernahmebestätigungen.Name = "scanUebernahmebestätigungen" - Me.scanUebernahmebestätigungen.Size = New System.Drawing.Size(285, 505) - Me.scanUebernahmebestätigungen.TabIndex = 5 - ' - 'scanHKA - ' - Me.scanHKA._ARCHIV = True - Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanHKA._DATENSERVER_ORDNER = "MDM" - Me.scanHKA._DATENSERVER_UOrdner1 = Nothing - Me.scanHKA._DATENSERVER_UOrdner2 = Nothing - Me.scanHKA._DATENSERVER_UOrdner3 = Nothing - Me.scanHKA._MULTI_FILES = True - Me.scanHKA._TEXT_PDF = "Handelskammerauszug" - Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanHKA.BackColor = System.Drawing.Color.White - Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanHKA.Location = New System.Drawing.Point(17, 163) - Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanHKA.Name = "scanHKA" - Me.scanHKA.Size = New System.Drawing.Size(168, 24) - Me.scanHKA.TabIndex = 4 - ' - 'scanSonstiges - ' - Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" - Me.scanSonstiges._DATENSERVER_UOrdner1 = "" - Me.scanSonstiges._DATENSERVER_UOrdner2 = "" - Me.scanSonstiges._DATENSERVER_UOrdner3 = "" - Me.scanSonstiges._OPEN_ORIGINAL = False - Me.scanSonstiges._TYPE = "PDF" - Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSonstiges.BackColor = System.Drawing.Color.White - Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Default - Me.scanSonstiges.Location = New System.Drawing.Point(191, 40) - Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) - Me.scanSonstiges.Name = "scanSonstiges" - Me.scanSonstiges.Size = New System.Drawing.Size(285, 505) - Me.scanSonstiges.TabIndex = 1 - ' - 'scanEULizenz - ' - Me.scanEULizenz._ARCHIV = True - Me.scanEULizenz._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanEULizenz._DATENSERVER_ORDNER = "MDM" - Me.scanEULizenz._DATENSERVER_UOrdner1 = Nothing - Me.scanEULizenz._DATENSERVER_UOrdner2 = Nothing - Me.scanEULizenz._DATENSERVER_UOrdner3 = Nothing - Me.scanEULizenz._MULTI_FILES = True - Me.scanEULizenz._TEXT_PDF = "EU-Lizenz" - Me.scanEULizenz.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanEULizenz.BackColor = System.Drawing.Color.White - Me.scanEULizenz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanEULizenz.Cursor = System.Windows.Forms.Cursors.Default - Me.scanEULizenz.Location = New System.Drawing.Point(17, 197) - Me.scanEULizenz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanEULizenz.Name = "scanEULizenz" - Me.scanEULizenz.Size = New System.Drawing.Size(168, 24) - Me.scanEULizenz.TabIndex = 0 - ' - 'scanHRA - ' - Me.scanHRA._ARCHIV = True - Me.scanHRA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanHRA._DATENSERVER_ORDNER = "MDM" - Me.scanHRA._DATENSERVER_UOrdner1 = Nothing - Me.scanHRA._DATENSERVER_UOrdner2 = Nothing - Me.scanHRA._DATENSERVER_UOrdner3 = Nothing - Me.scanHRA._MULTI_FILES = True - Me.scanHRA._TEXT_PDF = "Handelsregisterauszug" - Me.scanHRA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanHRA.BackColor = System.Drawing.Color.White - Me.scanHRA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanHRA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanHRA.Location = New System.Drawing.Point(17, 133) - Me.scanHRA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanHRA.Name = "scanHRA" - Me.scanHRA.Size = New System.Drawing.Size(168, 24) - Me.scanHRA.TabIndex = 0 - ' - 'scanPersonalAusweisGF - ' - Me.scanPersonalAusweisGF._ARCHIV = True - Me.scanPersonalAusweisGF._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanPersonalAusweisGF._DATENSERVER_ORDNER = "MDM" - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner1 = Nothing - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner2 = Nothing - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner3 = Nothing - Me.scanPersonalAusweisGF._MULTI_FILES = True - Me.scanPersonalAusweisGF._TEXT_PDF = "Personalausweis GF" - Me.scanPersonalAusweisGF.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanPersonalAusweisGF.BackColor = System.Drawing.Color.White - Me.scanPersonalAusweisGF.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanPersonalAusweisGF.Cursor = System.Windows.Forms.Cursors.Default - Me.scanPersonalAusweisGF.Location = New System.Drawing.Point(17, 99) - Me.scanPersonalAusweisGF.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanPersonalAusweisGF.Name = "scanPersonalAusweisGF" - Me.scanPersonalAusweisGF.Size = New System.Drawing.Size(168, 24) - Me.scanPersonalAusweisGF.TabIndex = 0 - ' - 'scanBankGarantie - ' - Me.scanBankGarantie._ARCHIV = True - Me.scanBankGarantie._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanBankGarantie._DATENSERVER_ORDNER = "MDM" - Me.scanBankGarantie._DATENSERVER_UOrdner1 = Nothing - Me.scanBankGarantie._DATENSERVER_UOrdner2 = Nothing - Me.scanBankGarantie._DATENSERVER_UOrdner3 = Nothing - Me.scanBankGarantie._MULTI_FILES = True - Me.scanBankGarantie._TEXT_PDF = "Bankgarantie" - Me.scanBankGarantie.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanBankGarantie.BackColor = System.Drawing.Color.White - Me.scanBankGarantie.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanBankGarantie.Cursor = System.Windows.Forms.Cursors.Default - Me.scanBankGarantie.Location = New System.Drawing.Point(17, 70) - Me.scanBankGarantie.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanBankGarantie.Name = "scanBankGarantie" - Me.scanBankGarantie.Size = New System.Drawing.Size(168, 24) - Me.scanBankGarantie.TabIndex = 0 - ' - 'scanVertragVeragKd - ' - Me.scanVertragVeragKd._ARCHIV = True - Me.scanVertragVeragKd._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanVertragVeragKd._DATENSERVER_ORDNER = "MDM" - Me.scanVertragVeragKd._DATENSERVER_UOrdner1 = Nothing - Me.scanVertragVeragKd._DATENSERVER_UOrdner2 = Nothing - Me.scanVertragVeragKd._DATENSERVER_UOrdner3 = Nothing - Me.scanVertragVeragKd._MULTI_FILES = True - Me.scanVertragVeragKd._TEXT_PDF = "Vertrag VERAG-Kunde" - Me.scanVertragVeragKd.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanVertragVeragKd.BackColor = System.Drawing.Color.White - Me.scanVertragVeragKd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanVertragVeragKd.Cursor = System.Windows.Forms.Cursors.Default - Me.scanVertragVeragKd.Location = New System.Drawing.Point(17, 40) - Me.scanVertragVeragKd.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanVertragVeragKd.Name = "scanVertragVeragKd" - Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24) - Me.scanVertragVeragKd.TabIndex = 0 - ' '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(178, 39) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(1616, 797) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -1794,27 +1454,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, 778) + Me.tbOfferte.Size = New System.Drawing.Size(1630, 829) 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, 778) - 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, 795) + Me.tbUSTV.Size = New System.Drawing.Size(1630, 829) Me.tbUSTV.TabIndex = 12 Me.tbUSTV.Text = "USTV" Me.tbUSTV.UseVisualStyleBackColor = True @@ -1828,7 +1478,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, 795) + Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 829) Me.tbcntrUSTV.TabIndex = 1 ' 'tbUSTVDokumente @@ -1841,7 +1491,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, 769) + Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 803) Me.tbUSTVDokumente.TabIndex = 8 Me.tbUSTVDokumente.Text = "Dokumente" Me.tbUSTVDokumente.UseVisualStyleBackColor = True @@ -1856,25 +1506,6 @@ Partial Class frmKundenblatt Me.Label8.TabIndex = 8 Me.Label8.Text = "sonstige Dokumente:" ' - 'scanUSTVsonstigeDokumente - ' - Me.scanUSTVsonstigeDokumente._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUSTVsonstigeDokumente._DATENSERVER_ORDNER = "MDM" - Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner1 = "" - Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner2 = "" - Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner3 = "" - Me.scanUSTVsonstigeDokumente._OPEN_ORIGINAL = False - Me.scanUSTVsonstigeDokumente._TYPE = "PDF" - Me.scanUSTVsonstigeDokumente.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUSTVsonstigeDokumente.BackColor = System.Drawing.Color.White - Me.scanUSTVsonstigeDokumente.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUSTVsonstigeDokumente.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUSTVsonstigeDokumente.Location = New System.Drawing.Point(607, 36) - Me.scanUSTVsonstigeDokumente.Margin = New System.Windows.Forms.Padding(0) - Me.scanUSTVsonstigeDokumente.Name = "scanUSTVsonstigeDokumente" - Me.scanUSTVsonstigeDokumente.Size = New System.Drawing.Size(285, 505) - Me.scanUSTVsonstigeDokumente.TabIndex = 7 - ' 'Label27 ' Me.Label27.AutoSize = True @@ -1895,63 +1526,17 @@ Partial Class frmKundenblatt 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(184, 45) + Me.tbUSTVAntrage.Size = New System.Drawing.Size(1622, 803) 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) @@ -2170,6 +1755,394 @@ Partial Class frmKundenblatt Me.lblINAKTIV.Text = "! INAKTIV !" Me.lblINAKTIV.Visible = False ' + 'tbiLeistungen + ' + Me.tbiLeistungen.Name = "tbiLeistungen" + Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) + Me.tbiLeistungen.Text = "Leistungen" + ' + 'tbiKartenverwaltung + ' + Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" + Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) + Me.tbiKartenverwaltung.Text = "Kartenverwaltung" + ' + 'tbiLKW + ' + Me.tbiLKW.Name = "tbiLKW" + Me.tbiLKW.Size = New System.Drawing.Size(186, 22) + Me.tbiLKW.Text = "LKWs" + ' + 'tbiVERAGCard + ' + Me.tbiVERAGCard.Name = "tbiVERAGCard" + Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) + Me.tbiVERAGCard.Text = "VERAG Card" + ' + 'scanErstbestellung + ' + Me.scanErstbestellung._ARCHIV = True + Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" + Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing + Me.scanErstbestellung._MULTI_FILES = True + Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" + Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanErstbestellung.BackColor = System.Drawing.Color.White + Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) + Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) + Me.scanErstbestellung.Name = "scanErstbestellung" + Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) + Me.scanErstbestellung.TabIndex = 172 + ' + 'scanJaraVereinbarung + ' + Me.scanJaraVereinbarung._ARCHIV = True + Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" + Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing + Me.scanJaraVereinbarung._MULTI_FILES = True + Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" + Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White + Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) + Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) + Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" + Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) + Me.scanJaraVereinbarung.TabIndex = 173 + ' + 'scanMWSTAgreement + ' + Me.scanMWSTAgreement._ARCHIV = True + Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" + Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing + Me.scanMWSTAgreement._MULTI_FILES = True + Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" + Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White + Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) + Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) + Me.scanMWSTAgreement.Name = "scanMWSTAgreement" + Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) + Me.scanMWSTAgreement.TabIndex = 174 + Me.scanMWSTAgreement.Visible = False + ' + 'scanSDLSonst + ' + Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" + Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" + Me.scanSDLSonst._OPEN_ORIGINAL = False + Me.scanSDLSonst._TYPE = "PDF" + Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSDLSonst.BackColor = System.Drawing.Color.White + Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default + Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) + Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) + Me.scanSDLSonst.Name = "scanSDLSonst" + Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) + Me.scanSDLSonst.TabIndex = 173 + ' + 'txtMautDE_BenutzerNr + ' + Me.txtMautDE_BenutzerNr._DateTimeOnly = False + Me.txtMautDE_BenutzerNr._numbersOnly = True + Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" + Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True + Me.txtMautDE_BenutzerNr._Prozent = False + Me.txtMautDE_BenutzerNr._ShortDateNew = False + Me.txtMautDE_BenutzerNr._ShortDateOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False + Me.txtMautDE_BenutzerNr._value = "" + Me.txtMautDE_BenutzerNr._Waehrung = False + Me.txtMautDE_BenutzerNr._WaehrungZeichen = True + Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) + Me.txtMautDE_BenutzerNr.MaxLineLength = -1 + Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" + Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing + Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" + Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) + Me.txtMautDE_BenutzerNr.TabIndex = 18 + ' + 'txtMautDE_FlottenPIN + ' + Me.txtMautDE_FlottenPIN._DateTimeOnly = False + Me.txtMautDE_FlottenPIN._numbersOnly = True + Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" + Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True + Me.txtMautDE_FlottenPIN._Prozent = False + Me.txtMautDE_FlottenPIN._ShortDateNew = False + Me.txtMautDE_FlottenPIN._ShortDateOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False + Me.txtMautDE_FlottenPIN._value = "" + Me.txtMautDE_FlottenPIN._Waehrung = False + Me.txtMautDE_FlottenPIN._WaehrungZeichen = True + Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) + Me.txtMautDE_FlottenPIN.MaxLineLength = -1 + Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" + Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" + Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDE_FlottenPIN.TabIndex = 14 + ' + 'txtMautDEMasterPIN + ' + Me.txtMautDEMasterPIN._DateTimeOnly = False + Me.txtMautDEMasterPIN._numbersOnly = True + Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" + Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True + Me.txtMautDEMasterPIN._Prozent = False + Me.txtMautDEMasterPIN._ShortDateNew = False + Me.txtMautDEMasterPIN._ShortDateOnly = False + Me.txtMautDEMasterPIN._TimeOnly = False + Me.txtMautDEMasterPIN._TimeOnly_Seconds = False + Me.txtMautDEMasterPIN._value = "" + Me.txtMautDEMasterPIN._Waehrung = False + Me.txtMautDEMasterPIN._WaehrungZeichen = True + Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) + Me.txtMautDEMasterPIN.MaxLineLength = -1 + Me.txtMautDEMasterPIN.MaxLines_Warning = "" + Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" + Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDEMasterPIN.TabIndex = 16 + ' + 'scanUebernahmebestätigungen + ' + Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUebernahmebestätigungen._DATENSERVER_ORDNER = "MDM" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner1 = "" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner2 = "" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = "" + Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False + Me.scanUebernahmebestätigungen._TYPE = "PDF" + Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White + Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUebernahmebestätigungen.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUebernahmebestätigungen.Location = New System.Drawing.Point(488, 40) + Me.scanUebernahmebestätigungen.Margin = New System.Windows.Forms.Padding(0) + Me.scanUebernahmebestätigungen.Name = "scanUebernahmebestätigungen" + Me.scanUebernahmebestätigungen.Size = New System.Drawing.Size(285, 505) + Me.scanUebernahmebestätigungen.TabIndex = 5 + ' + 'scanHKA + ' + Me.scanHKA._ARCHIV = True + Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHKA._DATENSERVER_ORDNER = "MDM" + Me.scanHKA._DATENSERVER_UOrdner1 = Nothing + Me.scanHKA._DATENSERVER_UOrdner2 = Nothing + Me.scanHKA._DATENSERVER_UOrdner3 = Nothing + Me.scanHKA._MULTI_FILES = True + Me.scanHKA._TEXT_PDF = "Handelskammerauszug" + Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHKA.BackColor = System.Drawing.Color.White + Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanHKA.Location = New System.Drawing.Point(17, 163) + Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanHKA.Name = "scanHKA" + Me.scanHKA.Size = New System.Drawing.Size(168, 24) + Me.scanHKA.TabIndex = 4 + ' + 'scanSonstiges + ' + Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" + Me.scanSonstiges._DATENSERVER_UOrdner1 = "" + Me.scanSonstiges._DATENSERVER_UOrdner2 = "" + Me.scanSonstiges._DATENSERVER_UOrdner3 = "" + Me.scanSonstiges._OPEN_ORIGINAL = False + Me.scanSonstiges._TYPE = "PDF" + Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSonstiges.BackColor = System.Drawing.Color.White + Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Default + Me.scanSonstiges.Location = New System.Drawing.Point(191, 40) + Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) + Me.scanSonstiges.Name = "scanSonstiges" + Me.scanSonstiges.Size = New System.Drawing.Size(285, 505) + Me.scanSonstiges.TabIndex = 1 + ' + 'scanEULizenz + ' + Me.scanEULizenz._ARCHIV = True + Me.scanEULizenz._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanEULizenz._DATENSERVER_ORDNER = "MDM" + Me.scanEULizenz._DATENSERVER_UOrdner1 = Nothing + Me.scanEULizenz._DATENSERVER_UOrdner2 = Nothing + Me.scanEULizenz._DATENSERVER_UOrdner3 = Nothing + Me.scanEULizenz._MULTI_FILES = True + Me.scanEULizenz._TEXT_PDF = "EU-Lizenz" + Me.scanEULizenz.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanEULizenz.BackColor = System.Drawing.Color.White + Me.scanEULizenz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanEULizenz.Cursor = System.Windows.Forms.Cursors.Default + Me.scanEULizenz.Location = New System.Drawing.Point(17, 197) + Me.scanEULizenz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanEULizenz.Name = "scanEULizenz" + Me.scanEULizenz.Size = New System.Drawing.Size(168, 24) + Me.scanEULizenz.TabIndex = 0 + ' + 'scanHRA + ' + Me.scanHRA._ARCHIV = True + Me.scanHRA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHRA._DATENSERVER_ORDNER = "MDM" + Me.scanHRA._DATENSERVER_UOrdner1 = Nothing + Me.scanHRA._DATENSERVER_UOrdner2 = Nothing + Me.scanHRA._DATENSERVER_UOrdner3 = Nothing + Me.scanHRA._MULTI_FILES = True + Me.scanHRA._TEXT_PDF = "Handelsregisterauszug" + Me.scanHRA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHRA.BackColor = System.Drawing.Color.White + Me.scanHRA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHRA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanHRA.Location = New System.Drawing.Point(17, 133) + Me.scanHRA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanHRA.Name = "scanHRA" + Me.scanHRA.Size = New System.Drawing.Size(168, 24) + Me.scanHRA.TabIndex = 0 + ' + 'scanPersonalAusweisGF + ' + Me.scanPersonalAusweisGF._ARCHIV = True + Me.scanPersonalAusweisGF._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanPersonalAusweisGF._DATENSERVER_ORDNER = "MDM" + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner1 = Nothing + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner2 = Nothing + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner3 = Nothing + Me.scanPersonalAusweisGF._MULTI_FILES = True + Me.scanPersonalAusweisGF._TEXT_PDF = "Personalausweis GF" + Me.scanPersonalAusweisGF.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanPersonalAusweisGF.BackColor = System.Drawing.Color.White + Me.scanPersonalAusweisGF.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanPersonalAusweisGF.Cursor = System.Windows.Forms.Cursors.Default + Me.scanPersonalAusweisGF.Location = New System.Drawing.Point(17, 99) + Me.scanPersonalAusweisGF.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanPersonalAusweisGF.Name = "scanPersonalAusweisGF" + Me.scanPersonalAusweisGF.Size = New System.Drawing.Size(168, 24) + Me.scanPersonalAusweisGF.TabIndex = 0 + ' + 'scanBankGarantie + ' + Me.scanBankGarantie._ARCHIV = True + Me.scanBankGarantie._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanBankGarantie._DATENSERVER_ORDNER = "MDM" + Me.scanBankGarantie._DATENSERVER_UOrdner1 = Nothing + Me.scanBankGarantie._DATENSERVER_UOrdner2 = Nothing + Me.scanBankGarantie._DATENSERVER_UOrdner3 = Nothing + Me.scanBankGarantie._MULTI_FILES = True + Me.scanBankGarantie._TEXT_PDF = "Bankgarantie" + Me.scanBankGarantie.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanBankGarantie.BackColor = System.Drawing.Color.White + Me.scanBankGarantie.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanBankGarantie.Cursor = System.Windows.Forms.Cursors.Default + Me.scanBankGarantie.Location = New System.Drawing.Point(17, 70) + Me.scanBankGarantie.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanBankGarantie.Name = "scanBankGarantie" + Me.scanBankGarantie.Size = New System.Drawing.Size(168, 24) + Me.scanBankGarantie.TabIndex = 0 + ' + 'scanVertragVeragKd + ' + Me.scanVertragVeragKd._ARCHIV = True + Me.scanVertragVeragKd._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanVertragVeragKd._DATENSERVER_ORDNER = "MDM" + Me.scanVertragVeragKd._DATENSERVER_UOrdner1 = Nothing + Me.scanVertragVeragKd._DATENSERVER_UOrdner2 = Nothing + Me.scanVertragVeragKd._DATENSERVER_UOrdner3 = Nothing + Me.scanVertragVeragKd._MULTI_FILES = True + Me.scanVertragVeragKd._TEXT_PDF = "Vertrag VERAG-Kunde" + Me.scanVertragVeragKd.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanVertragVeragKd.BackColor = System.Drawing.Color.White + Me.scanVertragVeragKd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanVertragVeragKd.Cursor = System.Windows.Forms.Cursors.Default + Me.scanVertragVeragKd.Location = New System.Drawing.Point(17, 40) + Me.scanVertragVeragKd.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanVertragVeragKd.Name = "scanVertragVeragKd" + Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24) + Me.scanVertragVeragKd.TabIndex = 0 + ' + 'scanUSTVsonstigeDokumente + ' + Me.scanUSTVsonstigeDokumente._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUSTVsonstigeDokumente._DATENSERVER_ORDNER = "MDM" + Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner1 = "" + Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner2 = "" + Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner3 = "" + Me.scanUSTVsonstigeDokumente._OPEN_ORIGINAL = False + Me.scanUSTVsonstigeDokumente._TYPE = "PDF" + Me.scanUSTVsonstigeDokumente.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUSTVsonstigeDokumente.BackColor = System.Drawing.Color.White + Me.scanUSTVsonstigeDokumente.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUSTVsonstigeDokumente.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUSTVsonstigeDokumente.Location = New System.Drawing.Point(607, 36) + Me.scanUSTVsonstigeDokumente.Margin = New System.Windows.Forms.Padding(0) + Me.scanUSTVsonstigeDokumente.Name = "scanUSTVsonstigeDokumente" + Me.scanUSTVsonstigeDokumente.Size = New System.Drawing.Size(285, 505) + Me.scanUSTVsonstigeDokumente.TabIndex = 7 + ' + '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 + ' 'KdSearchBox1 ' Me.KdSearchBox1._AlleFirmenCLUSTER = False @@ -2204,29 +2177,56 @@ Partial Class frmKundenblatt Me.KdSearchBox1.TIMER_SEARCH = True Me.KdSearchBox1.usrcntl = Nothing ' - 'tbiLeistungen + 'UsrcntlKundeBearbeitenFull1 ' - Me.tbiLeistungen.Name = "tbiLeistungen" - Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) - Me.tbiLeistungen.Text = "Leistungen" + 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 ' - 'tbiKartenverwaltung + 'usrcntlKarten ' - Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" - Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) - Me.tbiKartenverwaltung.Text = "Kartenverwaltung" + 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, 791) + Me.usrcntlKarten.TabIndex = 0 ' - 'tbiLKW + 'UsrCntlLKW1 ' - Me.tbiLKW.Name = "tbiLKW" - Me.tbiLKW.Size = New System.Drawing.Size(186, 22) - Me.tbiLKW.Text = "LKWs" + 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, 791) + Me.UsrCntlLKW1.TabIndex = 0 ' - 'tbiVERAGCard + 'UsrCntlOfferte1 ' - Me.tbiVERAGCard.Name = "tbiVERAGCard" - Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) - Me.tbiVERAGCard.Text = "VERAG Card" + 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 + ' + '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, 797) + Me.UsrCntlUSTV.TabIndex = 0 ' 'frmKundenblatt ' @@ -2234,7 +2234,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, 953) + Me.ClientSize = New System.Drawing.Size(1180, 987) Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.tbcntrMain) diff --git a/SDL/kunden/frmLKW_AnhaengeDatenarchiv.Designer.vb b/SDL/kunden/frmLKW_AnhaengeDatenarchiv.Designer.vb index dcf1a46c..a5a55c9f 100644 --- a/SDL/kunden/frmLKW_AnhaengeDatenarchiv.Designer.vb +++ b/SDL/kunden/frmLKW_AnhaengeDatenarchiv.Designer.vb @@ -25,15 +25,6 @@ Partial Class frmLKW_AnhaengeDatenarchiv Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLKW_AnhaengeDatenarchiv)) Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.clmnLKW = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnZulassung_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnCEMT_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnLeasing_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnMiete_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnZulassung = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.clmnCEMT = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.clmnLeasing = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.Column1 = New System.Windows.Forms.DataGridViewCheckBoxColumn() Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) Me.cbxMiete = New System.Windows.Forms.CheckBox() Me.cbxLeasing = New System.Windows.Forms.CheckBox() @@ -44,6 +35,21 @@ Partial Class frmLKW_AnhaengeDatenarchiv Me.Button1 = New System.Windows.Forms.Button() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.Button2 = New System.Windows.Forms.Button() + Me.cbxCIF = New System.Windows.Forms.CheckBox() + Me.cbxCOC = New System.Windows.Forms.CheckBox() + Me.clmnLKW = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnZulassung_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnCEMT_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnLeasing_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnMiete_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnCIF_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnCOC_docID = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnZulassung = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.clmnCEMT = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.clmnLeasing = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.Column1 = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.clmnCIF = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.clmnCOC = New System.Windows.Forms.DataGridViewCheckBoxColumn() CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() Me.MyPanel1.SuspendLayout() Me.SuspendLayout() @@ -56,82 +62,17 @@ Partial Class frmLKW_AnhaengeDatenarchiv Me.MyDatagridview1.AllowUserToResizeColumns = False Me.MyDatagridview1.AllowUserToResizeRows = False Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnLKW, Me.clmnZulassung_docID, Me.clmnCEMT_docID, Me.clmnLeasing_docID, Me.clmnMiete_docID, Me.clmnZulassung, Me.clmnCEMT, Me.clmnLeasing, Me.Column1}) + Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnLKW, Me.clmnZulassung_docID, Me.clmnCEMT_docID, Me.clmnLeasing_docID, Me.clmnMiete_docID, Me.clmnCIF_docID, Me.clmnCOC_docID, Me.clmnZulassung, Me.clmnCEMT, Me.clmnLeasing, Me.Column1, Me.clmnCIF, Me.clmnCOC}) Me.MyDatagridview1.Location = New System.Drawing.Point(13, 36) Me.MyDatagridview1.Name = "MyDatagridview1" Me.MyDatagridview1.ReadOnly = True - Me.MyDatagridview1.Size = New System.Drawing.Size(555, 383) + Me.MyDatagridview1.Size = New System.Drawing.Size(678, 383) Me.MyDatagridview1.TabIndex = 0 ' - 'clmnLKW - ' - Me.clmnLKW.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnLKW.HeaderText = "Bezeichnung" - Me.clmnLKW.Name = "clmnLKW" - Me.clmnLKW.ReadOnly = True - ' - 'clmnZulassung_docID - ' - Me.clmnZulassung_docID.HeaderText = "Column1" - Me.clmnZulassung_docID.Name = "clmnZulassung_docID" - Me.clmnZulassung_docID.ReadOnly = True - Me.clmnZulassung_docID.Visible = False - ' - 'clmnCEMT_docID - ' - Me.clmnCEMT_docID.HeaderText = "Column1" - Me.clmnCEMT_docID.Name = "clmnCEMT_docID" - Me.clmnCEMT_docID.ReadOnly = True - Me.clmnCEMT_docID.Visible = False - ' - 'clmnLeasing_docID - ' - Me.clmnLeasing_docID.HeaderText = "Column1" - Me.clmnLeasing_docID.Name = "clmnLeasing_docID" - Me.clmnLeasing_docID.ReadOnly = True - Me.clmnLeasing_docID.Visible = False - ' - 'clmnMiete_docID - ' - Me.clmnMiete_docID.HeaderText = "Column2" - Me.clmnMiete_docID.Name = "clmnMiete_docID" - Me.clmnMiete_docID.ReadOnly = True - Me.clmnMiete_docID.Visible = False - ' - 'clmnZulassung - ' - Me.clmnZulassung.HeaderText = "Zulassung" - Me.clmnZulassung.Name = "clmnZulassung" - Me.clmnZulassung.ReadOnly = True - Me.clmnZulassung.Resizable = System.Windows.Forms.DataGridViewTriState.[True] - Me.clmnZulassung.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic - Me.clmnZulassung.Width = 60 - ' - 'clmnCEMT - ' - Me.clmnCEMT.HeaderText = "CEMT" - Me.clmnCEMT.Name = "clmnCEMT" - Me.clmnCEMT.ReadOnly = True - Me.clmnCEMT.Width = 60 - ' - 'clmnLeasing - ' - Me.clmnLeasing.HeaderText = "Leasing" - Me.clmnLeasing.Name = "clmnLeasing" - Me.clmnLeasing.ReadOnly = True - Me.clmnLeasing.Width = 60 - ' - 'Column1 - ' - Me.Column1.HeaderText = "Miete" - Me.Column1.Name = "Column1" - Me.Column1.ReadOnly = True - Me.Column1.Resizable = System.Windows.Forms.DataGridViewTriState.[True] - Me.Column1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic - Me.Column1.Width = 60 - ' 'MyPanel1 ' + Me.MyPanel1.Controls.Add(Me.cbxCOC) + Me.MyPanel1.Controls.Add(Me.cbxCIF) Me.MyPanel1.Controls.Add(Me.cbxMiete) Me.MyPanel1.Controls.Add(Me.cbxLeasing) Me.MyPanel1.Controls.Add(Me.cbxCEMT) @@ -139,7 +80,7 @@ Partial Class frmLKW_AnhaengeDatenarchiv Me.MyPanel1.Controls.Add(Me.cbx) Me.MyPanel1.Location = New System.Drawing.Point(13, 12) Me.MyPanel1.Name = "MyPanel1" - Me.MyPanel1.Size = New System.Drawing.Size(555, 26) + Me.MyPanel1.Size = New System.Drawing.Size(678, 26) Me.MyPanel1.TabIndex = 1 ' 'cbxMiete @@ -191,7 +132,7 @@ Partial Class frmLKW_AnhaengeDatenarchiv 'Button3 ' Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.Location = New System.Drawing.Point(377, 443) + Me.Button3.Location = New System.Drawing.Point(560, 425) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(131, 54) Me.Button3.TabIndex = 17 @@ -203,7 +144,7 @@ Partial Class frmLKW_AnhaengeDatenarchiv Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Image = Global.SDL.My.Resources.Resources.email_big1 Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(274, 443) + Me.Button1.Location = New System.Drawing.Point(457, 425) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(97, 54) Me.Button1.TabIndex = 18 @@ -226,7 +167,7 @@ Partial Class frmLKW_AnhaengeDatenarchiv Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.Image = Global.SDL.My.Resources.Resources.open Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(156, 444) + Me.Button2.Location = New System.Drawing.Point(339, 426) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(112, 54) Me.Button2.TabIndex = 20 @@ -234,12 +175,129 @@ Partial Class frmLKW_AnhaengeDatenarchiv Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button2.UseVisualStyleBackColor = True ' + 'cbxCIF + ' + Me.cbxCIF.AutoSize = True + Me.cbxCIF.Location = New System.Drawing.Point(579, 4) + Me.cbxCIF.Name = "cbxCIF" + Me.cbxCIF.Size = New System.Drawing.Size(15, 14) + Me.cbxCIF.TabIndex = 5 + Me.cbxCIF.UseVisualStyleBackColor = True + ' + 'cbxCOC + ' + Me.cbxCOC.AutoSize = True + Me.cbxCOC.Location = New System.Drawing.Point(640, 4) + Me.cbxCOC.Name = "cbxCOC" + Me.cbxCOC.Size = New System.Drawing.Size(15, 14) + Me.cbxCOC.TabIndex = 6 + Me.cbxCOC.UseVisualStyleBackColor = True + ' + 'clmnLKW + ' + Me.clmnLKW.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnLKW.HeaderText = "Bezeichnung" + Me.clmnLKW.Name = "clmnLKW" + Me.clmnLKW.ReadOnly = True + ' + 'clmnZulassung_docID + ' + Me.clmnZulassung_docID.HeaderText = "Column1" + Me.clmnZulassung_docID.Name = "clmnZulassung_docID" + Me.clmnZulassung_docID.ReadOnly = True + Me.clmnZulassung_docID.Visible = False + ' + 'clmnCEMT_docID + ' + Me.clmnCEMT_docID.HeaderText = "Column1" + Me.clmnCEMT_docID.Name = "clmnCEMT_docID" + Me.clmnCEMT_docID.ReadOnly = True + Me.clmnCEMT_docID.Visible = False + ' + 'clmnLeasing_docID + ' + Me.clmnLeasing_docID.HeaderText = "Column1" + Me.clmnLeasing_docID.Name = "clmnLeasing_docID" + Me.clmnLeasing_docID.ReadOnly = True + Me.clmnLeasing_docID.Visible = False + ' + 'clmnMiete_docID + ' + Me.clmnMiete_docID.HeaderText = "Column2" + Me.clmnMiete_docID.Name = "clmnMiete_docID" + Me.clmnMiete_docID.ReadOnly = True + Me.clmnMiete_docID.Visible = False + ' + 'clmnCIF_docID + ' + Me.clmnCIF_docID.HeaderText = "Column2" + Me.clmnCIF_docID.Name = "clmnCIF_docID" + Me.clmnCIF_docID.ReadOnly = True + Me.clmnCIF_docID.Visible = False + ' + 'clmnCOC_docID + ' + Me.clmnCOC_docID.HeaderText = "Column2" + Me.clmnCOC_docID.Name = "clmnCOC_docID" + Me.clmnCOC_docID.ReadOnly = True + Me.clmnCOC_docID.Visible = False + ' + 'clmnZulassung + ' + Me.clmnZulassung.HeaderText = "Zulassung" + Me.clmnZulassung.Name = "clmnZulassung" + Me.clmnZulassung.ReadOnly = True + Me.clmnZulassung.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.clmnZulassung.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic + Me.clmnZulassung.Width = 60 + ' + 'clmnCEMT + ' + Me.clmnCEMT.HeaderText = "CEMT" + Me.clmnCEMT.Name = "clmnCEMT" + Me.clmnCEMT.ReadOnly = True + Me.clmnCEMT.Width = 60 + ' + 'clmnLeasing + ' + Me.clmnLeasing.HeaderText = "Leasing" + Me.clmnLeasing.Name = "clmnLeasing" + Me.clmnLeasing.ReadOnly = True + Me.clmnLeasing.Width = 60 + ' + 'Column1 + ' + Me.Column1.HeaderText = "Miete" + Me.Column1.Name = "Column1" + Me.Column1.ReadOnly = True + Me.Column1.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.Column1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic + Me.Column1.Width = 60 + ' + 'clmnCIF + ' + Me.clmnCIF.HeaderText = "CIF" + Me.clmnCIF.Name = "clmnCIF" + Me.clmnCIF.ReadOnly = True + Me.clmnCIF.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.clmnCIF.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic + Me.clmnCIF.Width = 60 + ' + 'clmnCOC + ' + Me.clmnCOC.HeaderText = "COC" + Me.clmnCOC.Name = "clmnCOC" + Me.clmnCOC.ReadOnly = True + Me.clmnCOC.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.clmnCOC.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic + Me.clmnCOC.Width = 60 + ' 'frmLKW_AnhaengeDatenarchiv ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(582, 503) + Me.ClientSize = New System.Drawing.Size(704, 490) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.CheckBox4) Me.Controls.Add(Me.Button1) @@ -268,13 +326,19 @@ Partial Class frmLKW_AnhaengeDatenarchiv Friend WithEvents CheckBox4 As CheckBox Friend WithEvents Button2 As Button Friend WithEvents cbxMiete As CheckBox + Friend WithEvents cbxCOC As CheckBox + Friend WithEvents cbxCIF As CheckBox Friend WithEvents clmnLKW As DataGridViewTextBoxColumn Friend WithEvents clmnZulassung_docID As DataGridViewTextBoxColumn Friend WithEvents clmnCEMT_docID As DataGridViewTextBoxColumn Friend WithEvents clmnLeasing_docID As DataGridViewTextBoxColumn Friend WithEvents clmnMiete_docID As DataGridViewTextBoxColumn + Friend WithEvents clmnCIF_docID As DataGridViewTextBoxColumn + Friend WithEvents clmnCOC_docID As DataGridViewTextBoxColumn Friend WithEvents clmnZulassung As DataGridViewCheckBoxColumn Friend WithEvents clmnCEMT As DataGridViewCheckBoxColumn Friend WithEvents clmnLeasing As DataGridViewCheckBoxColumn Friend WithEvents Column1 As DataGridViewCheckBoxColumn + Friend WithEvents clmnCIF As DataGridViewCheckBoxColumn + Friend WithEvents clmnCOC As DataGridViewCheckBoxColumn End Class diff --git a/SDL/kunden/frmLKW_AnhaengeDatenarchiv.resx b/SDL/kunden/frmLKW_AnhaengeDatenarchiv.resx index d65f1ec0..d32aac04 100644 --- a/SDL/kunden/frmLKW_AnhaengeDatenarchiv.resx +++ b/SDL/kunden/frmLKW_AnhaengeDatenarchiv.resx @@ -132,6 +132,12 @@ True + + True + + + True + True @@ -144,6 +150,12 @@ True + + True + + + True + diff --git a/SDL/kunden/frmLKW_AnhaengeDatenarchiv.vb b/SDL/kunden/frmLKW_AnhaengeDatenarchiv.vb index d118fb6f..c0c535d5 100644 --- a/SDL/kunden/frmLKW_AnhaengeDatenarchiv.vb +++ b/SDL/kunden/frmLKW_AnhaengeDatenarchiv.vb @@ -57,16 +57,20 @@ Public Class frmLKW_AnhaengeDatenarchiv Dim CEMT = "" Dim Leasing = "" Dim Miete = "" + Dim CIF = "" + Dim COC = "" For Each r In dt.Rows If r("coll_pfad") IsNot DBNull.Value AndAlso r("coll_pfad") <> "" Then If r("da_name") = "Zulassungsschein" Then Zulassungsschein = r("coll_pfad") If r("da_name") = "CEMT" Then CEMT = r("coll_pfad") If r("da_name") = "Leasing-Vertrag" Then Leasing = r("coll_pfad") If r("da_name") = "Miet-Vertrag" Then Miete = r("coll_pfad") + If r("da_name") = "CIF-Dokument" Then CIF = r("coll_pfad") + If r("da_name") = "COC-Dokument" Then COC = r("coll_pfad") End If Next - MyDatagridview1.Rows.Add(l, Zulassungsschein, CEMT, Leasing, Miete, (Zulassungsschein <> ""), (CEMT <> ""), (Leasing <> ""), (Miete <> "")) + MyDatagridview1.Rows.Add(l, Zulassungsschein, CEMT, Leasing, Miete, CIF, COC, (Zulassungsschein <> ""), (CEMT <> ""), (Leasing <> ""), (Miete <> ""), (CIF <> ""), (COC <> "")) Next Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) @@ -101,6 +105,8 @@ Public Class frmLKW_AnhaengeDatenarchiv If cbxCEMT.Checked Then If r.Cells("clmnCEMT_docID").Value <> "" Then myList.Add(copyFileToTMP(r.Cells("clmnCEMT_docID").Value, r.Cells("clmnLKW").Value, "CEMT", zielPfad)) 'r.Cells("clmnCEMT_docID").Value) If cbxLeasing.Checked Then If r.Cells("clmnLeasing_docID").Value <> "" Then myList.Add(copyFileToTMP(r.Cells("clmnLeasing_docID").Value, r.Cells("clmnLKW").Value, "Leasing", zielPfad)) 'r.Cells("clmnLeasing_docID").Value) If cbxMiete.Checked Then If r.Cells("clmnMiete_docID").Value <> "" Then myList.Add(copyFileToTMP(r.Cells("clmnMiete_docID").Value, r.Cells("clmnLKW").Value, "Miete", zielPfad)) 'r.Cells("clmnLeasing_docID").Value) + If cbxCIF.Checked Then If r.Cells("clmnCIF_docID").Value <> "" Then myList.Add(copyFileToTMP(r.Cells("clmnCIF_docID").Value, r.Cells("clmnLKW").Value, "CIF", zielPfad)) 'r.Cells("clmnLeasing_docID").Value) + If cbxCOC.Checked Then If r.Cells("clmnCOC_docID").Value <> "" Then myList.Add(copyFileToTMP(r.Cells("clmnCOC_docID").Value, r.Cells("clmnLKW").Value, "COC", zielPfad)) 'r.Cells("clmnLeasing_docID").Value) Next 'zusammenfassen If CheckBox4.Checked Then diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index f5eb0e8d..2f58a48f 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -50,7 +50,7 @@ Public Class usrCntlCBAM OR ezaWP_WarennummerEZT like '280410%' ) and ezaWP_WarennummerEZT not like '310560%' - and eza_status between 50 and 60 + and (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%') " If cbxVERAG.Checked Then @@ -334,7 +334,7 @@ Public Class usrCntlCBAM OR ezaWP_WarennummerEZT like '280410%' ) and ezaWP_WarennummerEZT not like '310560%' - and eza_status between 50 and 60 + and (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%') " @@ -409,7 +409,7 @@ Public Class usrCntlCBAM ) and ezaWP_WarennummerEZT not like '310560%' - and eza_status between 50 and 60 + and (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%') " diff --git a/SDL/kunden/usrCntlKundenBesonderheiten.vb b/SDL/kunden/usrCntlKundenBesonderheiten.vb index 1856e908..9f939a52 100644 --- a/SDL/kunden/usrCntlKundenBesonderheiten.vb +++ b/SDL/kunden/usrCntlKundenBesonderheiten.vb @@ -84,7 +84,7 @@ Public Class usrCntlKundenBesonderheiten End Try End Sub Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "") - + If dgvBesonderheiten IsNot Nothing Then Exit Sub If dgvBesonderheiten.Columns IsNot Nothing AndAlso dgvBesonderheiten.Columns.Count > 0 Then dgvBesonderheiten.Columns.Clear() End If diff --git a/SDL/mdm/usrCntlKartenDaten.vb b/SDL/mdm/usrCntlKartenDaten.vb index 699ba63c..d875f6f6 100644 --- a/SDL/mdm/usrCntlKartenDaten.vb +++ b/SDL/mdm/usrCntlKartenDaten.vb @@ -1203,10 +1203,10 @@ Public Class usrCntlKartenDaten Case 210 : odoc = getWordRetourniert_SI(odoc, kdNr, datum) Case 211 : odoc = getWordRetourniert_MULTI(odoc, kdNr, datum) Case 213 : odoc = getWordRetourniert_HUGO(odoc, kdNr, datum) - Case 214 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum) + Case 214 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum, "214") Case 215 : odoc = getWordRetourniert_PLOSE_IT(odoc, kdNr, datum) Case 216 : odoc = getWordRetourniert_PLOSE_MEDPASS(odoc, kdNr, datum) - Case 217 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum) + Case 217 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum, "217") Case 218 : odoc = getWordRetourniert_PLOSE_TRUCKMASTER(odoc, kdNr, datum) Case Else : odoc.Close() : MsgBox("Falsche Leistung") End Select @@ -1365,9 +1365,9 @@ Public Class usrCntlKartenDaten End Try Return odoc End Function - Function getWordRetourniert_PLOSE(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document + Function getWordRetourniert_PLOSE(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date, SDLNr As String) As Microsoft.Office.Interop.Word.Document Try - Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=214 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'") + Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr IN (" & SDLNr & ") AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'") Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr) If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr) @@ -1386,6 +1386,7 @@ Public Class usrCntlKartenDaten oTable = odoc.Bookmarks("TabelleKarten2").Range.Tables(1) Dim i = 1 For Each r As DataRow In dt.Rows + ' MsgBox(cSqlDb.checkNullStr(r("OBUID"))) oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen")) oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr")) oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("OBUID"))