diff --git a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.Designer.vb b/SDL/mdm/Besuchsberichte/frmBesuchsberichte.Designer.vb index 0002bed3..2c8a4b27 100644 --- a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.Designer.vb +++ b/SDL/mdm/Besuchsberichte/frmBesuchsberichte.Designer.vb @@ -24,9 +24,6 @@ Partial Class frmBesuchsberichte Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBesuchsberichte)) - Me.btnOK = New System.Windows.Forms.Button() - Me.btnSave = New System.Windows.Forms.Button() - Me.btnCancel = New System.Windows.Forms.Button() Me.txtVermerk = New System.Windows.Forms.RichTextBox() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() @@ -63,79 +60,37 @@ Partial Class frmBesuchsberichte Me.cbxFerry = New System.Windows.Forms.CheckBox() Me.Label19 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label() - Me.btnPDFReport = New System.Windows.Forms.Button() Me.Label21 = New System.Windows.Forms.Label() Me.lblErr_BesuchtAm = New System.Windows.Forms.Label() Me.lblErr_Kontaktart = New System.Windows.Forms.Label() Me.lblErr_Firma = New System.Windows.Forms.Label() Me.lblErr_Teilgenommen = New System.Windows.Forms.Label() + Me.pnlMain = New System.Windows.Forms.Panel() + Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.datBesuchtAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTeilgenommen = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cboKontaktart = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.kdFirma = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMail = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGF = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUmsatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cboZufrieden = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtFuhrparkEigene = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtZufriedenNEIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFuhrparkLeasing = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtDerzeitigerLieferant = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtTransportRoute = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtFuhrparkLeasing = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtFuhrparkEigene = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUmsatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtGF = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtMail = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirma = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtTeilgenommen = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.datBesuchtAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) - Me.pnlMain = New System.Windows.Forms.Panel() - Me.MyPanel1.SuspendLayout() + Me.btnCancel = New System.Windows.Forms.Button() + Me.btnOK = New System.Windows.Forms.Button() + Me.btnSave = New System.Windows.Forms.Button() + Me.btnPDFReport = New System.Windows.Forms.Button() Me.pnlMain.SuspendLayout() + Me.MyPanel1.SuspendLayout() Me.SuspendLayout() ' - 'btnOK - ' - Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnOK.ForeColor = System.Drawing.Color.Black - Me.btnOK.Image = CType(resources.GetObject("btnOK.Image"), System.Drawing.Image) - Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnOK.Location = New System.Drawing.Point(834, 10) - Me.btnOK.Name = "btnOK" - Me.btnOK.Size = New System.Drawing.Size(87, 39) - Me.btnOK.TabIndex = 19 - Me.btnOK.Text = "OK" - Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnOK.UseVisualStyleBackColor = True - ' - 'btnSave - ' - Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSave.ForeColor = System.Drawing.Color.Black - Me.btnSave.Image = CType(resources.GetObject("btnSave.Image"), System.Drawing.Image) - Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSave.Location = New System.Drawing.Point(731, 10) - Me.btnSave.Name = "btnSave" - Me.btnSave.Size = New System.Drawing.Size(97, 39) - Me.btnSave.TabIndex = 20 - Me.btnSave.Text = "Speichern" - Me.btnSave.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnSave.UseVisualStyleBackColor = True - ' - 'btnCancel - ' - Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCancel.ForeColor = System.Drawing.Color.Black - Me.btnCancel.Image = Global.SDL.My.Resources.Resources.del - Me.btnCancel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCancel.Location = New System.Drawing.Point(12, 10) - Me.btnCancel.Name = "btnCancel" - Me.btnCancel.Size = New System.Drawing.Size(113, 39) - Me.btnCancel.TabIndex = 21 - Me.btnCancel.Text = "Abbrechen" - Me.btnCancel.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnCancel.UseVisualStyleBackColor = True - ' 'txtVermerk ' Me.txtVermerk.Location = New System.Drawing.Point(12, 616) @@ -469,21 +424,6 @@ Partial Class frmBesuchsberichte Me.Label20.TabIndex = 79 Me.Label20.Text = "Anhänge:" ' - 'btnPDFReport - ' - Me.btnPDFReport.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnPDFReport.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnPDFReport.ForeColor = System.Drawing.Color.Black - Me.btnPDFReport.Image = Global.SDL.My.Resources.Resources.pdf1 - Me.btnPDFReport.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnPDFReport.Location = New System.Drawing.Point(368, 10) - Me.btnPDFReport.Name = "btnPDFReport" - Me.btnPDFReport.Size = New System.Drawing.Size(107, 39) - Me.btnPDFReport.TabIndex = 80 - Me.btnPDFReport.Text = "Bericht" - Me.btnPDFReport.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnPDFReport.UseVisualStyleBackColor = True - ' 'Label21 ' Me.Label21.AutoSize = True @@ -537,375 +477,6 @@ Partial Class frmBesuchsberichte Me.lblErr_Teilgenommen.Text = "Bitte angeben!" Me.lblErr_Teilgenommen.Visible = False ' - 'cboKontaktart - ' - Me.cboKontaktart._allowedValuesFreiText = Nothing - Me.cboKontaktart._allowFreiText = False - Me.cboKontaktart._value = "" - Me.cboKontaktart.FormattingEnabled = True - Me.cboKontaktart.Location = New System.Drawing.Point(504, 36) - Me.cboKontaktart.Name = "cboKontaktart" - Me.cboKontaktart.Size = New System.Drawing.Size(107, 21) - Me.cboKontaktart.TabIndex = 81 - ' - 'cboZufrieden - ' - Me.cboZufrieden._allowedValuesFreiText = Nothing - Me.cboZufrieden._allowFreiText = False - Me.cboZufrieden._value = "" - Me.cboZufrieden.FormattingEnabled = True - Me.cboZufrieden.Location = New System.Drawing.Point(106, 460) - Me.cboZufrieden.Name = "cboZufrieden" - Me.cboZufrieden.Size = New System.Drawing.Size(78, 21) - Me.cboZufrieden.TabIndex = 64 - ' - 'txtZufriedenNEIN - ' - Me.txtZufriedenNEIN._DateTimeOnly = False - Me.txtZufriedenNEIN._numbersOnly = False - Me.txtZufriedenNEIN._numbersOnlyKommastellen = "" - Me.txtZufriedenNEIN._numbersOnlyTrennzeichen = True - Me.txtZufriedenNEIN._Prozent = False - Me.txtZufriedenNEIN._ShortDateNew = False - Me.txtZufriedenNEIN._ShortDateOnly = False - Me.txtZufriedenNEIN._TimeOnly = False - Me.txtZufriedenNEIN._TimeOnly_Seconds = False - Me.txtZufriedenNEIN._value = "" - Me.txtZufriedenNEIN._Waehrung = False - Me.txtZufriedenNEIN._WaehrungZeichen = True - Me.txtZufriedenNEIN.Enabled = False - Me.txtZufriedenNEIN.ForeColor = System.Drawing.Color.Black - Me.txtZufriedenNEIN.Location = New System.Drawing.Point(190, 460) - Me.txtZufriedenNEIN.MaxLength = 200 - Me.txtZufriedenNEIN.MaxLineLength = -1 - Me.txtZufriedenNEIN.MaxLines_Warning = "" - Me.txtZufriedenNEIN.MaxLines_Warning_Label = Nothing - Me.txtZufriedenNEIN.Name = "txtZufriedenNEIN" - Me.txtZufriedenNEIN.Size = New System.Drawing.Size(421, 20) - Me.txtZufriedenNEIN.TabIndex = 63 - ' - 'txtDerzeitigerLieferant - ' - Me.txtDerzeitigerLieferant._DateTimeOnly = False - Me.txtDerzeitigerLieferant._numbersOnly = False - Me.txtDerzeitigerLieferant._numbersOnlyKommastellen = "" - Me.txtDerzeitigerLieferant._numbersOnlyTrennzeichen = True - Me.txtDerzeitigerLieferant._Prozent = False - Me.txtDerzeitigerLieferant._ShortDateNew = False - Me.txtDerzeitigerLieferant._ShortDateOnly = False - Me.txtDerzeitigerLieferant._TimeOnly = False - Me.txtDerzeitigerLieferant._TimeOnly_Seconds = False - Me.txtDerzeitigerLieferant._value = "" - Me.txtDerzeitigerLieferant._Waehrung = False - Me.txtDerzeitigerLieferant._WaehrungZeichen = True - Me.txtDerzeitigerLieferant.ForeColor = System.Drawing.Color.Black - Me.txtDerzeitigerLieferant.Location = New System.Drawing.Point(223, 434) - Me.txtDerzeitigerLieferant.MaxLength = 200 - Me.txtDerzeitigerLieferant.MaxLineLength = -1 - Me.txtDerzeitigerLieferant.MaxLines_Warning = "" - Me.txtDerzeitigerLieferant.MaxLines_Warning_Label = Nothing - Me.txtDerzeitigerLieferant.Name = "txtDerzeitigerLieferant" - Me.txtDerzeitigerLieferant.Size = New System.Drawing.Size(388, 20) - Me.txtDerzeitigerLieferant.TabIndex = 62 - ' - 'txtTransportRoute - ' - Me.txtTransportRoute._DateTimeOnly = False - Me.txtTransportRoute._numbersOnly = False - Me.txtTransportRoute._numbersOnlyKommastellen = "" - Me.txtTransportRoute._numbersOnlyTrennzeichen = True - Me.txtTransportRoute._Prozent = False - Me.txtTransportRoute._ShortDateNew = False - Me.txtTransportRoute._ShortDateOnly = False - Me.txtTransportRoute._TimeOnly = False - Me.txtTransportRoute._TimeOnly_Seconds = False - Me.txtTransportRoute._value = "" - Me.txtTransportRoute._Waehrung = False - Me.txtTransportRoute._WaehrungZeichen = True - Me.txtTransportRoute.ForeColor = System.Drawing.Color.Black - Me.txtTransportRoute.Location = New System.Drawing.Point(106, 397) - Me.txtTransportRoute.MaxLength = 200 - Me.txtTransportRoute.MaxLineLength = -1 - Me.txtTransportRoute.MaxLines_Warning = "" - Me.txtTransportRoute.MaxLines_Warning_Label = Nothing - Me.txtTransportRoute.Name = "txtTransportRoute" - Me.txtTransportRoute.Size = New System.Drawing.Size(505, 20) - Me.txtTransportRoute.TabIndex = 58 - ' - 'txtFuhrparkLeasing - ' - Me.txtFuhrparkLeasing._DateTimeOnly = False - Me.txtFuhrparkLeasing._numbersOnly = False - Me.txtFuhrparkLeasing._numbersOnlyKommastellen = "" - Me.txtFuhrparkLeasing._numbersOnlyTrennzeichen = True - Me.txtFuhrparkLeasing._Prozent = False - Me.txtFuhrparkLeasing._ShortDateNew = False - Me.txtFuhrparkLeasing._ShortDateOnly = False - Me.txtFuhrparkLeasing._TimeOnly = False - Me.txtFuhrparkLeasing._TimeOnly_Seconds = False - Me.txtFuhrparkLeasing._value = "" - Me.txtFuhrparkLeasing._Waehrung = False - Me.txtFuhrparkLeasing._WaehrungZeichen = True - Me.txtFuhrparkLeasing.ForeColor = System.Drawing.Color.Black - Me.txtFuhrparkLeasing.Location = New System.Drawing.Point(298, 273) - Me.txtFuhrparkLeasing.MaxLength = 10 - Me.txtFuhrparkLeasing.MaxLineLength = -1 - Me.txtFuhrparkLeasing.MaxLines_Warning = "" - Me.txtFuhrparkLeasing.MaxLines_Warning_Label = Nothing - Me.txtFuhrparkLeasing.Name = "txtFuhrparkLeasing" - Me.txtFuhrparkLeasing.Size = New System.Drawing.Size(81, 20) - Me.txtFuhrparkLeasing.TabIndex = 44 - ' - 'txtFuhrparkEigene - ' - Me.txtFuhrparkEigene._DateTimeOnly = False - Me.txtFuhrparkEigene._numbersOnly = False - Me.txtFuhrparkEigene._numbersOnlyKommastellen = "" - Me.txtFuhrparkEigene._numbersOnlyTrennzeichen = True - Me.txtFuhrparkEigene._Prozent = False - Me.txtFuhrparkEigene._ShortDateNew = False - Me.txtFuhrparkEigene._ShortDateOnly = False - Me.txtFuhrparkEigene._TimeOnly = False - Me.txtFuhrparkEigene._TimeOnly_Seconds = False - Me.txtFuhrparkEigene._value = "" - Me.txtFuhrparkEigene._Waehrung = False - Me.txtFuhrparkEigene._WaehrungZeichen = True - Me.txtFuhrparkEigene.ForeColor = System.Drawing.Color.Black - Me.txtFuhrparkEigene.Location = New System.Drawing.Point(158, 273) - Me.txtFuhrparkEigene.MaxLength = 10 - Me.txtFuhrparkEigene.MaxLineLength = -1 - Me.txtFuhrparkEigene.MaxLines_Warning = "" - Me.txtFuhrparkEigene.MaxLines_Warning_Label = Nothing - Me.txtFuhrparkEigene.Name = "txtFuhrparkEigene" - Me.txtFuhrparkEigene.Size = New System.Drawing.Size(81, 20) - Me.txtFuhrparkEigene.TabIndex = 43 - ' - 'txtUmsatz - ' - Me.txtUmsatz._DateTimeOnly = False - Me.txtUmsatz._numbersOnly = False - Me.txtUmsatz._numbersOnlyKommastellen = "" - Me.txtUmsatz._numbersOnlyTrennzeichen = True - Me.txtUmsatz._Prozent = False - Me.txtUmsatz._ShortDateNew = False - Me.txtUmsatz._ShortDateOnly = False - Me.txtUmsatz._TimeOnly = False - Me.txtUmsatz._TimeOnly_Seconds = False - Me.txtUmsatz._value = "" - Me.txtUmsatz._Waehrung = False - Me.txtUmsatz._WaehrungZeichen = True - Me.txtUmsatz.ForeColor = System.Drawing.Color.Black - Me.txtUmsatz.Location = New System.Drawing.Point(499, 203) - Me.txtUmsatz.MaxLineLength = -1 - Me.txtUmsatz.MaxLines_Warning = "" - Me.txtUmsatz.MaxLines_Warning_Label = Nothing - Me.txtUmsatz.Name = "txtUmsatz" - Me.txtUmsatz.Size = New System.Drawing.Size(112, 20) - Me.txtUmsatz.TabIndex = 40 - ' - 'txtGF - ' - Me.txtGF._DateTimeOnly = False - Me.txtGF._numbersOnly = False - Me.txtGF._numbersOnlyKommastellen = "" - Me.txtGF._numbersOnlyTrennzeichen = True - Me.txtGF._Prozent = False - Me.txtGF._ShortDateNew = False - Me.txtGF._ShortDateOnly = False - Me.txtGF._TimeOnly = False - Me.txtGF._TimeOnly_Seconds = False - Me.txtGF._value = "" - Me.txtGF._Waehrung = False - Me.txtGF._WaehrungZeichen = True - Me.txtGF.ForeColor = System.Drawing.Color.Black - Me.txtGF.Location = New System.Drawing.Point(105, 203) - Me.txtGF.MaxLength = 200 - Me.txtGF.MaxLineLength = -1 - Me.txtGF.MaxLines_Warning = "" - Me.txtGF.MaxLines_Warning_Label = Nothing - Me.txtGF.Name = "txtGF" - Me.txtGF.Size = New System.Drawing.Size(226, 20) - Me.txtGF.TabIndex = 38 - ' - 'txtMail - ' - Me.txtMail._DateTimeOnly = False - Me.txtMail._numbersOnly = False - Me.txtMail._numbersOnlyKommastellen = "" - Me.txtMail._numbersOnlyTrennzeichen = True - Me.txtMail._Prozent = False - Me.txtMail._ShortDateNew = False - Me.txtMail._ShortDateOnly = False - Me.txtMail._TimeOnly = False - Me.txtMail._TimeOnly_Seconds = False - Me.txtMail._value = "" - Me.txtMail._Waehrung = False - Me.txtMail._WaehrungZeichen = True - Me.txtMail.ForeColor = System.Drawing.Color.Black - Me.txtMail.Location = New System.Drawing.Point(499, 229) - Me.txtMail.MaxLength = 200 - Me.txtMail.MaxLineLength = -1 - Me.txtMail.MaxLines_Warning = "" - Me.txtMail.MaxLines_Warning_Label = Nothing - Me.txtMail.Name = "txtMail" - Me.txtMail.Size = New System.Drawing.Size(112, 20) - Me.txtMail.TabIndex = 36 - ' - 'txtTel - ' - Me.txtTel._DateTimeOnly = False - Me.txtTel._numbersOnly = False - Me.txtTel._numbersOnlyKommastellen = "" - Me.txtTel._numbersOnlyTrennzeichen = True - Me.txtTel._Prozent = False - Me.txtTel._ShortDateNew = False - Me.txtTel._ShortDateOnly = False - Me.txtTel._TimeOnly = False - Me.txtTel._TimeOnly_Seconds = False - Me.txtTel._value = "" - Me.txtTel._Waehrung = False - Me.txtTel._WaehrungZeichen = True - Me.txtTel.ForeColor = System.Drawing.Color.Black - Me.txtTel.Location = New System.Drawing.Point(363, 229) - Me.txtTel.MaxLength = 200 - Me.txtTel.MaxLineLength = -1 - Me.txtTel.MaxLines_Warning = "" - Me.txtTel.MaxLines_Warning_Label = Nothing - Me.txtTel.Name = "txtTel" - Me.txtTel.Size = New System.Drawing.Size(95, 20) - Me.txtTel.TabIndex = 35 - ' - 'txtAnsprechpartner - ' - Me.txtAnsprechpartner._DateTimeOnly = False - Me.txtAnsprechpartner._numbersOnly = False - Me.txtAnsprechpartner._numbersOnlyKommastellen = "" - Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True - Me.txtAnsprechpartner._Prozent = False - Me.txtAnsprechpartner._ShortDateNew = False - Me.txtAnsprechpartner._ShortDateOnly = False - Me.txtAnsprechpartner._TimeOnly = False - Me.txtAnsprechpartner._TimeOnly_Seconds = False - Me.txtAnsprechpartner._value = "" - Me.txtAnsprechpartner._Waehrung = False - Me.txtAnsprechpartner._WaehrungZeichen = True - Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black - Me.txtAnsprechpartner.Location = New System.Drawing.Point(106, 229) - Me.txtAnsprechpartner.MaxLength = 200 - Me.txtAnsprechpartner.MaxLineLength = -1 - Me.txtAnsprechpartner.MaxLines_Warning = "" - Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing - Me.txtAnsprechpartner.Name = "txtAnsprechpartner" - Me.txtAnsprechpartner.Size = New System.Drawing.Size(226, 20) - Me.txtAnsprechpartner.TabIndex = 32 - ' - 'kdFirma - ' - Me.kdFirma._AlleFirmenCLUSTER = False - Me.kdFirma._AllowSetValue = False - Me.kdFirma._autoSizeGross = False - Me.kdFirma._display_Name1 = False - Me.kdFirma._displayAVISO_Email = False - Me.kdFirma._displayFullName = False - Me.kdFirma._displayWoelflKd = False - Me.kdFirma._hideIfListEmpty = True - Me.kdFirma._loadKdData = True - Me.kdFirma._UseFIRMA = "" - Me.kdFirma._ValueKdAndName = True - Me.kdFirma.dgvpos = "LEFT" - Me.kdFirma.KdName = Nothing - Me.kdFirma.KdNr = "-1" - Me.kdFirma.kdNrField = Nothing - Me.kdFirma.KdNrNullInt = Nothing - Me.kdFirma.Location = New System.Drawing.Point(105, 95) - Me.kdFirma.Name = "kdFirma" - Me.kdFirma.nurAktive = True - Me.kdFirma.searchActive = True - Me.kdFirma.Size = New System.Drawing.Size(505, 20) - Me.kdFirma.TabIndex = 29 - Me.kdFirma.TIMER_SEARCH = True - Me.kdFirma.usrcntl = Nothing - ' - 'txtTeilgenommen - ' - Me.txtTeilgenommen._DateTimeOnly = False - Me.txtTeilgenommen._numbersOnly = False - Me.txtTeilgenommen._numbersOnlyKommastellen = "" - Me.txtTeilgenommen._numbersOnlyTrennzeichen = True - Me.txtTeilgenommen._Prozent = False - Me.txtTeilgenommen._ShortDateNew = False - Me.txtTeilgenommen._ShortDateOnly = False - Me.txtTeilgenommen._TimeOnly = False - Me.txtTeilgenommen._TimeOnly_Seconds = False - Me.txtTeilgenommen._value = "" - Me.txtTeilgenommen._Waehrung = False - Me.txtTeilgenommen._WaehrungZeichen = True - Me.txtTeilgenommen.ForeColor = System.Drawing.Color.Black - Me.txtTeilgenommen.Location = New System.Drawing.Point(105, 62) - Me.txtTeilgenommen.MaxLength = 200 - Me.txtTeilgenommen.MaxLineLength = -1 - Me.txtTeilgenommen.MaxLines_Warning = "" - Me.txtTeilgenommen.MaxLines_Warning_Label = Nothing - Me.txtTeilgenommen.Name = "txtTeilgenommen" - Me.txtTeilgenommen.Size = New System.Drawing.Size(505, 20) - Me.txtTeilgenommen.TabIndex = 26 - ' - 'datBesuchtAm - ' - Me.datBesuchtAm._DateTimeOnly = False - Me.datBesuchtAm._numbersOnly = False - Me.datBesuchtAm._numbersOnlyKommastellen = "" - Me.datBesuchtAm._numbersOnlyTrennzeichen = True - Me.datBesuchtAm._Prozent = False - Me.datBesuchtAm._ShortDateNew = True - Me.datBesuchtAm._ShortDateOnly = False - Me.datBesuchtAm._TimeOnly = False - Me.datBesuchtAm._TimeOnly_Seconds = False - Me.datBesuchtAm._value = "" - Me.datBesuchtAm._Waehrung = False - Me.datBesuchtAm._WaehrungZeichen = True - Me.datBesuchtAm.ForeColor = System.Drawing.Color.Black - Me.datBesuchtAm.Location = New System.Drawing.Point(105, 36) - Me.datBesuchtAm.MaxLength = 10 - Me.datBesuchtAm.MaxLineLength = -1 - Me.datBesuchtAm.MaxLines_Warning = "" - Me.datBesuchtAm.MaxLines_Warning_Label = Nothing - Me.datBesuchtAm.Name = "datBesuchtAm" - Me.datBesuchtAm.Size = New System.Drawing.Size(100, 20) - Me.datBesuchtAm.TabIndex = 25 - ' - 'UsrcntlPDFScanList1 - ' - Me.UsrcntlPDFScanList1._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.UsrcntlPDFScanList1._DATENSERVER_ORDNER = "BESUCHSBERICHTE" - Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner1 = "" - Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner2 = "" - Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner3 = "" - Me.UsrcntlPDFScanList1._OPEN_ORIGINAL = False - Me.UsrcntlPDFScanList1._TYPE = "PDF" - Me.UsrcntlPDFScanList1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.UsrcntlPDFScanList1.BackColor = System.Drawing.Color.White - Me.UsrcntlPDFScanList1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrcntlPDFScanList1.Cursor = System.Windows.Forms.Cursors.Default - Me.UsrcntlPDFScanList1.Location = New System.Drawing.Point(624, 62) - Me.UsrcntlPDFScanList1.Margin = New System.Windows.Forms.Padding(0) - Me.UsrcntlPDFScanList1.Name = "UsrcntlPDFScanList1" - Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(297, 551) - Me.UsrcntlPDFScanList1.TabIndex = 0 - ' - 'MyPanel1 - ' - Me.MyPanel1.BackColor = System.Drawing.Color.WhiteSmoke - Me.MyPanel1.Controls.Add(Me.btnCancel) - Me.MyPanel1.Controls.Add(Me.btnOK) - Me.MyPanel1.Controls.Add(Me.btnSave) - Me.MyPanel1.Controls.Add(Me.btnPDFReport) - Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom - Me.MyPanel1.Location = New System.Drawing.Point(0, 859) - Me.MyPanel1.Name = "MyPanel1" - Me.MyPanel1.Size = New System.Drawing.Size(930, 59) - Me.MyPanel1.TabIndex = 87 - ' 'pnlMain ' Me.pnlMain.AutoScroll = True @@ -972,6 +543,435 @@ Partial Class frmBesuchsberichte Me.pnlMain.Size = New System.Drawing.Size(930, 859) Me.pnlMain.TabIndex = 0 ' + 'UsrcntlPDFScanList1 + ' + Me.UsrcntlPDFScanList1._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.UsrcntlPDFScanList1._DATENSERVER_ORDNER = "MDM" + Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner1 = "" + Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner2 = "" + Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner3 = "" + Me.UsrcntlPDFScanList1._OPEN_ORIGINAL = False + Me.UsrcntlPDFScanList1._TYPE = "PDF" + Me.UsrcntlPDFScanList1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.UsrcntlPDFScanList1.BackColor = System.Drawing.Color.White + Me.UsrcntlPDFScanList1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrcntlPDFScanList1.Cursor = System.Windows.Forms.Cursors.Default + Me.UsrcntlPDFScanList1.Location = New System.Drawing.Point(624, 62) + Me.UsrcntlPDFScanList1.Margin = New System.Windows.Forms.Padding(0) + Me.UsrcntlPDFScanList1.Name = "UsrcntlPDFScanList1" + Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(297, 551) + Me.UsrcntlPDFScanList1.TabIndex = 0 + ' + 'datBesuchtAm + ' + Me.datBesuchtAm._DateTimeOnly = False + Me.datBesuchtAm._numbersOnly = False + Me.datBesuchtAm._numbersOnlyKommastellen = "" + Me.datBesuchtAm._numbersOnlyTrennzeichen = True + Me.datBesuchtAm._Prozent = False + Me.datBesuchtAm._ShortDateNew = True + Me.datBesuchtAm._ShortDateOnly = False + Me.datBesuchtAm._TimeOnly = False + Me.datBesuchtAm._TimeOnly_Seconds = False + Me.datBesuchtAm._value = "" + Me.datBesuchtAm._Waehrung = False + Me.datBesuchtAm._WaehrungZeichen = True + Me.datBesuchtAm.ForeColor = System.Drawing.Color.Black + Me.datBesuchtAm.Location = New System.Drawing.Point(105, 36) + Me.datBesuchtAm.MaxLength = 10 + Me.datBesuchtAm.MaxLineLength = -1 + Me.datBesuchtAm.MaxLines_Warning = "" + Me.datBesuchtAm.MaxLines_Warning_Label = Nothing + Me.datBesuchtAm.Name = "datBesuchtAm" + Me.datBesuchtAm.Size = New System.Drawing.Size(100, 20) + Me.datBesuchtAm.TabIndex = 25 + ' + 'txtTeilgenommen + ' + Me.txtTeilgenommen._DateTimeOnly = False + Me.txtTeilgenommen._numbersOnly = False + Me.txtTeilgenommen._numbersOnlyKommastellen = "" + Me.txtTeilgenommen._numbersOnlyTrennzeichen = True + Me.txtTeilgenommen._Prozent = False + Me.txtTeilgenommen._ShortDateNew = False + Me.txtTeilgenommen._ShortDateOnly = False + Me.txtTeilgenommen._TimeOnly = False + Me.txtTeilgenommen._TimeOnly_Seconds = False + Me.txtTeilgenommen._value = "" + Me.txtTeilgenommen._Waehrung = False + Me.txtTeilgenommen._WaehrungZeichen = True + Me.txtTeilgenommen.ForeColor = System.Drawing.Color.Black + Me.txtTeilgenommen.Location = New System.Drawing.Point(105, 62) + Me.txtTeilgenommen.MaxLength = 200 + Me.txtTeilgenommen.MaxLineLength = -1 + Me.txtTeilgenommen.MaxLines_Warning = "" + Me.txtTeilgenommen.MaxLines_Warning_Label = Nothing + Me.txtTeilgenommen.Name = "txtTeilgenommen" + Me.txtTeilgenommen.Size = New System.Drawing.Size(505, 20) + Me.txtTeilgenommen.TabIndex = 26 + ' + 'cboKontaktart + ' + Me.cboKontaktart._allowedValuesFreiText = Nothing + Me.cboKontaktart._allowFreiText = False + Me.cboKontaktart._value = "" + Me.cboKontaktart.FormattingEnabled = True + Me.cboKontaktart.Location = New System.Drawing.Point(504, 36) + Me.cboKontaktart.Name = "cboKontaktart" + Me.cboKontaktart.Size = New System.Drawing.Size(107, 21) + Me.cboKontaktart.TabIndex = 81 + ' + 'kdFirma + ' + Me.kdFirma._AlleFirmenCLUSTER = False + Me.kdFirma._AllowSetValue = True + Me.kdFirma._autoSizeGross = False + Me.kdFirma._display_Name1 = False + Me.kdFirma._displayAVISO_Email = False + Me.kdFirma._displayFullName = False + Me.kdFirma._displayWoelflKd = False + Me.kdFirma._hideIfListEmpty = True + Me.kdFirma._loadKdData = True + Me.kdFirma._UseFIRMA = "" + Me.kdFirma._ValueKdAndName = True + Me.kdFirma.dgvpos = "LEFT" + Me.kdFirma.KdName = "" + Me.kdFirma.KdNr = "-1" + Me.kdFirma.kdNrField = Nothing + Me.kdFirma.KdNrNullInt = Nothing + Me.kdFirma.Location = New System.Drawing.Point(105, 95) + Me.kdFirma.Name = "kdFirma" + Me.kdFirma.nurAktive = True + Me.kdFirma.searchActive = True + Me.kdFirma.Size = New System.Drawing.Size(505, 20) + Me.kdFirma.TabIndex = 29 + Me.kdFirma.TIMER_SEARCH = True + Me.kdFirma.usrcntl = Nothing + ' + 'txtAnsprechpartner + ' + Me.txtAnsprechpartner._DateTimeOnly = False + Me.txtAnsprechpartner._numbersOnly = False + Me.txtAnsprechpartner._numbersOnlyKommastellen = "" + Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True + Me.txtAnsprechpartner._Prozent = False + Me.txtAnsprechpartner._ShortDateNew = False + Me.txtAnsprechpartner._ShortDateOnly = False + Me.txtAnsprechpartner._TimeOnly = False + Me.txtAnsprechpartner._TimeOnly_Seconds = False + Me.txtAnsprechpartner._value = "" + Me.txtAnsprechpartner._Waehrung = False + Me.txtAnsprechpartner._WaehrungZeichen = True + Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black + Me.txtAnsprechpartner.Location = New System.Drawing.Point(106, 229) + Me.txtAnsprechpartner.MaxLength = 200 + Me.txtAnsprechpartner.MaxLineLength = -1 + Me.txtAnsprechpartner.MaxLines_Warning = "" + Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing + Me.txtAnsprechpartner.Name = "txtAnsprechpartner" + Me.txtAnsprechpartner.Size = New System.Drawing.Size(226, 20) + Me.txtAnsprechpartner.TabIndex = 32 + ' + 'txtTel + ' + Me.txtTel._DateTimeOnly = False + Me.txtTel._numbersOnly = False + Me.txtTel._numbersOnlyKommastellen = "" + Me.txtTel._numbersOnlyTrennzeichen = True + Me.txtTel._Prozent = False + Me.txtTel._ShortDateNew = False + Me.txtTel._ShortDateOnly = False + Me.txtTel._TimeOnly = False + Me.txtTel._TimeOnly_Seconds = False + Me.txtTel._value = "" + Me.txtTel._Waehrung = False + Me.txtTel._WaehrungZeichen = True + Me.txtTel.ForeColor = System.Drawing.Color.Black + Me.txtTel.Location = New System.Drawing.Point(363, 229) + Me.txtTel.MaxLength = 200 + Me.txtTel.MaxLineLength = -1 + Me.txtTel.MaxLines_Warning = "" + Me.txtTel.MaxLines_Warning_Label = Nothing + Me.txtTel.Name = "txtTel" + Me.txtTel.Size = New System.Drawing.Size(95, 20) + Me.txtTel.TabIndex = 35 + ' + 'txtMail + ' + Me.txtMail._DateTimeOnly = False + Me.txtMail._numbersOnly = False + Me.txtMail._numbersOnlyKommastellen = "" + Me.txtMail._numbersOnlyTrennzeichen = True + Me.txtMail._Prozent = False + Me.txtMail._ShortDateNew = False + Me.txtMail._ShortDateOnly = False + Me.txtMail._TimeOnly = False + Me.txtMail._TimeOnly_Seconds = False + Me.txtMail._value = "" + Me.txtMail._Waehrung = False + Me.txtMail._WaehrungZeichen = True + Me.txtMail.ForeColor = System.Drawing.Color.Black + Me.txtMail.Location = New System.Drawing.Point(499, 229) + Me.txtMail.MaxLength = 200 + Me.txtMail.MaxLineLength = -1 + Me.txtMail.MaxLines_Warning = "" + Me.txtMail.MaxLines_Warning_Label = Nothing + Me.txtMail.Name = "txtMail" + Me.txtMail.Size = New System.Drawing.Size(112, 20) + Me.txtMail.TabIndex = 36 + ' + 'txtGF + ' + Me.txtGF._DateTimeOnly = False + Me.txtGF._numbersOnly = False + Me.txtGF._numbersOnlyKommastellen = "" + Me.txtGF._numbersOnlyTrennzeichen = True + Me.txtGF._Prozent = False + Me.txtGF._ShortDateNew = False + Me.txtGF._ShortDateOnly = False + Me.txtGF._TimeOnly = False + Me.txtGF._TimeOnly_Seconds = False + Me.txtGF._value = "" + Me.txtGF._Waehrung = False + Me.txtGF._WaehrungZeichen = True + Me.txtGF.ForeColor = System.Drawing.Color.Black + Me.txtGF.Location = New System.Drawing.Point(105, 203) + Me.txtGF.MaxLength = 200 + Me.txtGF.MaxLineLength = -1 + Me.txtGF.MaxLines_Warning = "" + Me.txtGF.MaxLines_Warning_Label = Nothing + Me.txtGF.Name = "txtGF" + Me.txtGF.Size = New System.Drawing.Size(226, 20) + Me.txtGF.TabIndex = 38 + ' + 'txtUmsatz + ' + Me.txtUmsatz._DateTimeOnly = False + Me.txtUmsatz._numbersOnly = False + Me.txtUmsatz._numbersOnlyKommastellen = "" + Me.txtUmsatz._numbersOnlyTrennzeichen = True + Me.txtUmsatz._Prozent = False + Me.txtUmsatz._ShortDateNew = False + Me.txtUmsatz._ShortDateOnly = False + Me.txtUmsatz._TimeOnly = False + Me.txtUmsatz._TimeOnly_Seconds = False + Me.txtUmsatz._value = "" + Me.txtUmsatz._Waehrung = False + Me.txtUmsatz._WaehrungZeichen = True + Me.txtUmsatz.ForeColor = System.Drawing.Color.Black + Me.txtUmsatz.Location = New System.Drawing.Point(499, 203) + Me.txtUmsatz.MaxLineLength = -1 + Me.txtUmsatz.MaxLines_Warning = "" + Me.txtUmsatz.MaxLines_Warning_Label = Nothing + Me.txtUmsatz.Name = "txtUmsatz" + Me.txtUmsatz.Size = New System.Drawing.Size(112, 20) + Me.txtUmsatz.TabIndex = 40 + ' + 'cboZufrieden + ' + Me.cboZufrieden._allowedValuesFreiText = Nothing + Me.cboZufrieden._allowFreiText = False + Me.cboZufrieden._value = "" + Me.cboZufrieden.FormattingEnabled = True + Me.cboZufrieden.Location = New System.Drawing.Point(106, 460) + Me.cboZufrieden.Name = "cboZufrieden" + Me.cboZufrieden.Size = New System.Drawing.Size(78, 21) + Me.cboZufrieden.TabIndex = 64 + ' + 'txtFuhrparkEigene + ' + Me.txtFuhrparkEigene._DateTimeOnly = False + Me.txtFuhrparkEigene._numbersOnly = False + Me.txtFuhrparkEigene._numbersOnlyKommastellen = "" + Me.txtFuhrparkEigene._numbersOnlyTrennzeichen = True + Me.txtFuhrparkEigene._Prozent = False + Me.txtFuhrparkEigene._ShortDateNew = False + Me.txtFuhrparkEigene._ShortDateOnly = False + Me.txtFuhrparkEigene._TimeOnly = False + Me.txtFuhrparkEigene._TimeOnly_Seconds = False + Me.txtFuhrparkEigene._value = "" + Me.txtFuhrparkEigene._Waehrung = False + Me.txtFuhrparkEigene._WaehrungZeichen = True + Me.txtFuhrparkEigene.ForeColor = System.Drawing.Color.Black + Me.txtFuhrparkEigene.Location = New System.Drawing.Point(158, 273) + Me.txtFuhrparkEigene.MaxLength = 10 + Me.txtFuhrparkEigene.MaxLineLength = -1 + Me.txtFuhrparkEigene.MaxLines_Warning = "" + Me.txtFuhrparkEigene.MaxLines_Warning_Label = Nothing + Me.txtFuhrparkEigene.Name = "txtFuhrparkEigene" + Me.txtFuhrparkEigene.Size = New System.Drawing.Size(81, 20) + Me.txtFuhrparkEigene.TabIndex = 43 + ' + 'txtZufriedenNEIN + ' + Me.txtZufriedenNEIN._DateTimeOnly = False + Me.txtZufriedenNEIN._numbersOnly = False + Me.txtZufriedenNEIN._numbersOnlyKommastellen = "" + Me.txtZufriedenNEIN._numbersOnlyTrennzeichen = True + Me.txtZufriedenNEIN._Prozent = False + Me.txtZufriedenNEIN._ShortDateNew = False + Me.txtZufriedenNEIN._ShortDateOnly = False + Me.txtZufriedenNEIN._TimeOnly = False + Me.txtZufriedenNEIN._TimeOnly_Seconds = False + Me.txtZufriedenNEIN._value = "" + Me.txtZufriedenNEIN._Waehrung = False + Me.txtZufriedenNEIN._WaehrungZeichen = True + Me.txtZufriedenNEIN.Enabled = False + Me.txtZufriedenNEIN.ForeColor = System.Drawing.Color.Black + Me.txtZufriedenNEIN.Location = New System.Drawing.Point(190, 460) + Me.txtZufriedenNEIN.MaxLength = 200 + Me.txtZufriedenNEIN.MaxLineLength = -1 + Me.txtZufriedenNEIN.MaxLines_Warning = "" + Me.txtZufriedenNEIN.MaxLines_Warning_Label = Nothing + Me.txtZufriedenNEIN.Name = "txtZufriedenNEIN" + Me.txtZufriedenNEIN.Size = New System.Drawing.Size(421, 20) + Me.txtZufriedenNEIN.TabIndex = 63 + ' + 'txtFuhrparkLeasing + ' + Me.txtFuhrparkLeasing._DateTimeOnly = False + Me.txtFuhrparkLeasing._numbersOnly = False + Me.txtFuhrparkLeasing._numbersOnlyKommastellen = "" + Me.txtFuhrparkLeasing._numbersOnlyTrennzeichen = True + Me.txtFuhrparkLeasing._Prozent = False + Me.txtFuhrparkLeasing._ShortDateNew = False + Me.txtFuhrparkLeasing._ShortDateOnly = False + Me.txtFuhrparkLeasing._TimeOnly = False + Me.txtFuhrparkLeasing._TimeOnly_Seconds = False + Me.txtFuhrparkLeasing._value = "" + Me.txtFuhrparkLeasing._Waehrung = False + Me.txtFuhrparkLeasing._WaehrungZeichen = True + Me.txtFuhrparkLeasing.ForeColor = System.Drawing.Color.Black + Me.txtFuhrparkLeasing.Location = New System.Drawing.Point(298, 273) + Me.txtFuhrparkLeasing.MaxLength = 10 + Me.txtFuhrparkLeasing.MaxLineLength = -1 + Me.txtFuhrparkLeasing.MaxLines_Warning = "" + Me.txtFuhrparkLeasing.MaxLines_Warning_Label = Nothing + Me.txtFuhrparkLeasing.Name = "txtFuhrparkLeasing" + Me.txtFuhrparkLeasing.Size = New System.Drawing.Size(81, 20) + Me.txtFuhrparkLeasing.TabIndex = 44 + ' + 'txtDerzeitigerLieferant + ' + Me.txtDerzeitigerLieferant._DateTimeOnly = False + Me.txtDerzeitigerLieferant._numbersOnly = False + Me.txtDerzeitigerLieferant._numbersOnlyKommastellen = "" + Me.txtDerzeitigerLieferant._numbersOnlyTrennzeichen = True + Me.txtDerzeitigerLieferant._Prozent = False + Me.txtDerzeitigerLieferant._ShortDateNew = False + Me.txtDerzeitigerLieferant._ShortDateOnly = False + Me.txtDerzeitigerLieferant._TimeOnly = False + Me.txtDerzeitigerLieferant._TimeOnly_Seconds = False + Me.txtDerzeitigerLieferant._value = "" + Me.txtDerzeitigerLieferant._Waehrung = False + Me.txtDerzeitigerLieferant._WaehrungZeichen = True + Me.txtDerzeitigerLieferant.ForeColor = System.Drawing.Color.Black + Me.txtDerzeitigerLieferant.Location = New System.Drawing.Point(223, 434) + Me.txtDerzeitigerLieferant.MaxLength = 200 + Me.txtDerzeitigerLieferant.MaxLineLength = -1 + Me.txtDerzeitigerLieferant.MaxLines_Warning = "" + Me.txtDerzeitigerLieferant.MaxLines_Warning_Label = Nothing + Me.txtDerzeitigerLieferant.Name = "txtDerzeitigerLieferant" + Me.txtDerzeitigerLieferant.Size = New System.Drawing.Size(388, 20) + Me.txtDerzeitigerLieferant.TabIndex = 62 + ' + 'txtTransportRoute + ' + Me.txtTransportRoute._DateTimeOnly = False + Me.txtTransportRoute._numbersOnly = False + Me.txtTransportRoute._numbersOnlyKommastellen = "" + Me.txtTransportRoute._numbersOnlyTrennzeichen = True + Me.txtTransportRoute._Prozent = False + Me.txtTransportRoute._ShortDateNew = False + Me.txtTransportRoute._ShortDateOnly = False + Me.txtTransportRoute._TimeOnly = False + Me.txtTransportRoute._TimeOnly_Seconds = False + Me.txtTransportRoute._value = "" + Me.txtTransportRoute._Waehrung = False + Me.txtTransportRoute._WaehrungZeichen = True + Me.txtTransportRoute.ForeColor = System.Drawing.Color.Black + Me.txtTransportRoute.Location = New System.Drawing.Point(106, 397) + Me.txtTransportRoute.MaxLength = 200 + Me.txtTransportRoute.MaxLineLength = -1 + Me.txtTransportRoute.MaxLines_Warning = "" + Me.txtTransportRoute.MaxLines_Warning_Label = Nothing + Me.txtTransportRoute.Name = "txtTransportRoute" + Me.txtTransportRoute.Size = New System.Drawing.Size(505, 20) + Me.txtTransportRoute.TabIndex = 58 + ' + 'MyPanel1 + ' + Me.MyPanel1.BackColor = System.Drawing.Color.WhiteSmoke + Me.MyPanel1.Controls.Add(Me.btnCancel) + Me.MyPanel1.Controls.Add(Me.btnOK) + Me.MyPanel1.Controls.Add(Me.btnSave) + Me.MyPanel1.Controls.Add(Me.btnPDFReport) + Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.MyPanel1.Location = New System.Drawing.Point(0, 859) + Me.MyPanel1.Name = "MyPanel1" + Me.MyPanel1.Size = New System.Drawing.Size(930, 59) + Me.MyPanel1.TabIndex = 87 + ' + 'btnCancel + ' + Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCancel.ForeColor = System.Drawing.Color.Black + Me.btnCancel.Image = Global.SDL.My.Resources.Resources.del + Me.btnCancel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCancel.Location = New System.Drawing.Point(12, 10) + Me.btnCancel.Name = "btnCancel" + Me.btnCancel.Size = New System.Drawing.Size(113, 39) + Me.btnCancel.TabIndex = 21 + Me.btnCancel.Text = "Abbrechen" + Me.btnCancel.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCancel.UseVisualStyleBackColor = True + ' + 'btnOK + ' + Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnOK.ForeColor = System.Drawing.Color.Black + Me.btnOK.Image = CType(resources.GetObject("btnOK.Image"), System.Drawing.Image) + Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnOK.Location = New System.Drawing.Point(834, 10) + Me.btnOK.Name = "btnOK" + Me.btnOK.Size = New System.Drawing.Size(87, 39) + Me.btnOK.TabIndex = 19 + Me.btnOK.Text = "OK" + Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnOK.UseVisualStyleBackColor = True + ' + 'btnSave + ' + Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSave.ForeColor = System.Drawing.Color.Black + Me.btnSave.Image = CType(resources.GetObject("btnSave.Image"), System.Drawing.Image) + Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSave.Location = New System.Drawing.Point(731, 10) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(97, 39) + Me.btnSave.TabIndex = 20 + Me.btnSave.Text = "Speichern" + Me.btnSave.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnSave.UseVisualStyleBackColor = True + ' + 'btnPDFReport + ' + Me.btnPDFReport.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnPDFReport.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnPDFReport.ForeColor = System.Drawing.Color.Black + Me.btnPDFReport.Image = Global.SDL.My.Resources.Resources.pdf1 + Me.btnPDFReport.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnPDFReport.Location = New System.Drawing.Point(368, 10) + Me.btnPDFReport.Name = "btnPDFReport" + Me.btnPDFReport.Size = New System.Drawing.Size(107, 39) + Me.btnPDFReport.TabIndex = 80 + Me.btnPDFReport.Text = "Bericht" + Me.btnPDFReport.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnPDFReport.UseVisualStyleBackColor = True + ' 'frmBesuchsberichte ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -984,9 +984,9 @@ Partial Class frmBesuchsberichte Me.Name = "frmBesuchsberichte" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Besuchsbericht" - Me.MyPanel1.ResumeLayout(False) Me.pnlMain.ResumeLayout(False) Me.pnlMain.PerformLayout() + Me.MyPanel1.ResumeLayout(False) Me.ResumeLayout(False) End Sub diff --git a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb b/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb index db7fc2e6..b69b6535 100644 --- a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb +++ b/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb @@ -1,26 +1,45 @@ -Public Class frmBesuchsberichte +Imports System.ComponentModel +Imports com.esendex.sdk +Imports javax.validation.constraints +Imports VERAG_PROG_ALLGEMEIN + +Public Class frmBesuchsberichte Public KdNr As Integer = -1 Public bb_id As Integer = -1 + Dim BB As New VERAG_PROG_ALLGEMEIN.cBesuchsbericht + Sub New(bb_id, Optional kdNr = -1) + + InitializeComponent() + Me.bb_id = bb_id + Me.KdNr = kdNr + + + End Sub + Private Sub KdSearchBox1_TextChanged(sender As Object, e As EventArgs) Handles kdFirma.TextChanged - If kdFirma.KdNr_value > 0 Then + + If kdFirma.KdNr_value > 0 AndAlso kdFirma.kdNrField IsNot Nothing Then Dim AD = kdFirma.KdData_ADRESSEN Dim KD = kdFirma.KdData_KUNDE - txtFirma.Enabled = False - txtFirma.Text = AD.Name_1 & If(AD.Name_2, "") + txtFirma.Enabled = True + txtFirma.Text = If(AD.Name_1, "") & If(AD.Name_2, "") txtFirma.Text &= vbNewLine & If(AD.Straße, "") txtFirma.Text &= vbNewLine & If(AD.LandKz, "") & If(AD.PLZ, "") & If(AD.Ort, "") + txtFirma.Enabled = False Else txtFirma.Enabled = True End If End Sub Private Sub frmBesuchsberichte_Load(sender As Object, e As EventArgs) Handles Me.Load + kdFirma.initKdBox(Me) + cboKontaktart.Items.Clear() cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Persönlich", "PERSON")) @@ -30,12 +49,19 @@ cboZufrieden.Items.Clear() cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) - cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "JA")) - cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "NEIN")) + cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", True)) + cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", False)) cboZufrieden.changeItem("") If KdNr > 0 Then - kdFirma.KdNr = KdNr + Me.kdFirma.KdNr = KdNr + kdFirma.Enabled = False + txtFirma.ReadOnly = True + + + Else + kdFirma.Enabled = True + txtFirma.ReadOnly = False End If If bb_id > 0 Then @@ -43,15 +69,21 @@ setvalues(BB) UsrcntlPDFScanList1.Enabled = True - UsrcntlPDFScanList1.INIT(-1, "BESUCHSBERICHTE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, bb_id) + 'UsrcntlPDFScanList1.INIT(-1, "BESUCHSBERICHTE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, bb_id) + UsrcntlPDFScanList1.INIT(BB.bb_KundenNr, "BESUCHSBERICHTE") + Else UsrcntlPDFScanList1.Enabled = False + End If End Sub Sub setvalues(BB As VERAG_PROG_ALLGEMEIN.cBesuchsbericht) + + kdFirma.Enabled = BB.bb_KundenNr <= 0 + kdFirma.KdNr = BB.bb_KundenNr datBesuchtAm._value = BB.bb_DatumBesuch txtTeilgenommen.Text = If(BB.bb_Teilnehmer, "") cboKontaktart.changeItem(If(BB.bb_Kontaktart, "")) @@ -68,16 +100,18 @@ txtFuhrparkLeasing.Text = If(BB.bb_FuhrparkLeasing, "") cbxPlane.Checked = BB.bb_LKW_Plane cbxKuehltransporte.Checked = BB.bb_LKW_Kuehltranporte - cbxSondertransporte.Checked = BB.bb_LKW_Sonsertransporte + cbxSondertransporte.Checked = BB.bb_LKW_Sondertransporte cbxSprinter.Checked = BB.bb_LKW_Sprinter cbxSiloTank.Checked = BB.bb_LKW_SiloTank + txtAuftraggeber.Text = If(BB.bb_Auftraggeber, "") txtTransportRoute.Text = If(BB.bb_Route, "") txtDerzeitigerLieferant.Text = If(BB.bb_DerzeitigerLieferant, "") - cboZufrieden.changeItem(If(BB.bb_Zufrieden, "")) + cboZufrieden.changeItem(If(BB.bb_Zufrieden.ToString, Nothing)) - txtZufriedenNEIN.Text = If(BB.bb_ZufriedenNEIN, "") 'Konvertierung in Bit-Datatyoe durchführen + + txtZufriedenNEIN.Text = If(BB.bb_ZufriedenNEIN, "") txtGarantie.Text = If(BB.bb_Garantie, "") txtVermerk.Text = If(BB.bb_Vermerk, "") @@ -103,26 +137,26 @@ BB.bb_Anpsprechpartner = txtAnsprechpartner.Text BB.bb_Mail = txtMail.Text BB.bb_Telefon = txtTel.Text - BB.bb_Umsatz = If(txtUmsatz._value = "", Nothing, txtUmsatz._value) + BB.bb_Umsatz = If(txtUmsatz._value = "" Or Not IsNumeric(txtUmsatz._value), Nothing, CDbl(txtUmsatz._value)) BB.bb_FuhrparkEigentum = txtFuhrparkEigene.Text BB.bb_FuhrparkLeasing = txtFuhrparkLeasing.Text BB.bb_LKW_Plane = cbxPlane.Checked BB.bb_LKW_Kuehltranporte = cbxKuehltransporte.Checked - BB.bb_LKW_Sonsertransporte = cbxSondertransporte.Checked + BB.bb_LKW_Sondertransporte = cbxSondertransporte.Checked BB.bb_LKW_Sprinter = cbxSprinter.Checked BB.bb_LKW_SiloTank = cbxSiloTank.Checked BB.bb_Auftraggeber = txtAuftraggeber.Text BB.bb_Route = txtTransportRoute.Text BB.bb_DerzeitigerLieferant = txtDerzeitigerLieferant.Text - BB.bb_Zufrieden = cboZufrieden._value + BB.bb_Zufrieden = IIf(cboZufrieden._value = "", Nothing, cboZufrieden._value) BB.bb_ZufriedenNEIN = txtZufriedenNEIN.Text BB.bb_Garantie = txtGarantie.Text BB.bb_Vermerk = txtVermerk.Text BB.bb_Interesse_Zollabfertigung = cbxZollabfertigung.Checked - BB.bb_Interesse_Zollabfertigung = cbxBrexit.Checked + BB.bb_Interesse_Brexit = cbxBrexit.Checked BB.bb_Interesse_Parkplatz = cbxParkplatz.Checked BB.bb_Interesse_LagerUmschlag = cbxLagerUmschlag.Checked BB.bb_Interesse_Rola = cbxRola.Checked @@ -138,12 +172,15 @@ Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click If getvalues(BB) Then UsrcntlPDFScanList1.Enabled = True - UsrcntlPDFScanList1.INIT(-1, "BESUCHSBERICHTE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, bb_id) + btnPDFReport.Enabled = True + 'UsrcntlPDFScanList1.INIT(-1, "BESUCHSBERICHTE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, bb_id) + UsrcntlPDFScanList1.INIT(BB.bb_KundenNr, "BESUCHSBERICHTE") End If End Sub Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click If getvalues(BB) Then + btnPDFReport.Enabled = True Me.Close() End If End Sub @@ -170,5 +207,119 @@ Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click 'Erstellung der BerichtsPDF + + btnSave_Click(sender, e) + + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datum", BB.bb_DatumBesuch.ToString)) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Teilnehmer", BB.bb_Teilnehmer.ToString)) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Geschäftsführer", BB.bb_Geschaeftsfuehrer.ToString)) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ansprechpartner", BB.bb_Anpsprechpartner.ToString)) + + 'list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firma", BB.bb_Firma.ToString)) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firma", txtFirma.Text)) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Umatz", BB.bb_Umsatz)) 'ACHTUNG -> im Formular wurde das Feld "Umatz" benannt, nicht korrigieren! + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Telefon", BB.bb_Telefon.ToString)) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mail", BB.bb_Mail.ToString)) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKWEigentum", BB.bb_FuhrparkEigentum.ToString)) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKWLeasing", BB.bb_FuhrparkLeasing.ToString)) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", BB.bb_Auftraggeber.ToString)) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TransportRouten", BB.bb_Route.ToString)) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DerzeitigerAnbieter", BB.bb_DerzeitigerLieferant.ToString)) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bericht", BB.bb_Vermerk.ToString)) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Garentie", BB.bb_Garantie)) 'ACHTUNG -> im Formular wurde das Feld "Garentie" benannt, nicht korrigieren! + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Plane", IIf(BB.bb_LKW_Plane = True, "On", "Off"))) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kühltransporte", IIf(BB.bb_LKW_Kuehltranporte = True, "On", "Off"))) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sondertransporte", IIf(BB.bb_LKW_Sondertransporte = True, "On", "Off"))) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sprinter", IIf(BB.bb_LKW_Sprinter = True, "On", "Off"))) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SiloTank", IIf(BB.bb_LKW_SiloTank = True, "On", "Off"))) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollabfertigung", IIf(BB.bb_Interesse_Zollabfertigung = True, "On", "Off"))) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Brexit", IIf(BB.bb_Interesse_Brexit = True, "On", "Off"))) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Parkplatz", IIf(BB.bb_Interesse_Parkplatz = True, "On", "Off"))) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LagerUmladung", IIf(BB.bb_Interesse_LagerUmschlag = True, "On", "Off"))) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rola", IIf(BB.bb_Interesse_Rola = True, "On", "Off"))) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YesMoney", IIf(BB.bb_Interesse_YesMoney = True, "On", "Off"))) + + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ferry", IIf(BB.bb_Interesse_Ferry = True, "On", "Off"))) + + If BB.bb_Zufrieden = True Then + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "On")) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "Off")) + ElseIf BB.bb_Zufrieden = False Then + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "Off")) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "On")) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZufriedenNEIN", IIf(BB.bb_ZufriedenNEIN <> "", BB.bb_ZufriedenNEIN.ToString, ""))) + ElseIf BB.bb_Zufrieden = "" Or IsNothing(BB.bb_Zufrieden) Then + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "Off")) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "Off")) + End If + + Select Case BB.bb_Kontaktart.ToString + Case "PERSON" + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On")) + Case "TELEFON" + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("telefonisch", "On")) + Case "VIDEO" + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Videomeeting", "On")) + Case Else + + End Select + + fm.fillPDF("Besuchsbericht_MDM", list, Nothing, , , , , , "VERAG") + End Sub + + Private Sub kdFirma_PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Handles kdFirma.PropertyChanged + + If kdFirma.KdNr_value > 0 AndAlso kdFirma.KdData_ADRESSEN IsNot Nothing AndAlso kdFirma.KdData_KUNDE IsNot Nothing Then + + Dim AD = kdFirma.KdData_ADRESSEN + Dim KD = kdFirma.KdData_KUNDE + + txtFirma.Text = If(AD.Name_1, "") & If(AD.Name_2, "") + txtFirma.Text &= vbNewLine & If(AD.Straße, "") + txtFirma.Text &= vbNewLine & If(AD.LandKz, "") & If(AD.PLZ, "") & If(AD.Ort, "") + txtFirma.ReadOnly = True + Else + txtFirma.ReadOnly = False + End If + End Sub + + Private Sub cboZufrieden_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboZufrieden.SelectedValueChanged + If (cboZufrieden.SelectedIndex = 2) Then + txtZufriedenNEIN.Enabled = True + Else + txtZufriedenNEIN.Enabled = False + txtZufriedenNEIN.Clear() + + End If + End Sub + End Class \ No newline at end of file diff --git a/SDL/mdm/Besuchsberichte/usrCntlBesuchsberichte.vb b/SDL/mdm/Besuchsberichte/usrCntlBesuchsberichte.vb index fdbeb98e..898bdbc2 100644 --- a/SDL/mdm/Besuchsberichte/usrCntlBesuchsberichte.vb +++ b/SDL/mdm/Besuchsberichte/usrCntlBesuchsberichte.vb @@ -42,12 +42,15 @@ Public Class usrCntlBesuchsberichte End If End With + + btnDelete.Enabled = False + End Sub Private Sub dgvBesuchsberichteDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvBesuchsberichte.CellDoubleClick Try - Dim f As New frmBesuchsberichte() Dim bb_id = dgvBesuchsberichte.Rows(e.RowIndex).Cells("bb_id").Value + Dim f As New frmBesuchsberichte(bb_id) f.ShowDialog(Me) initDGV() Catch ex As Exception @@ -57,7 +60,7 @@ Public Class usrCntlBesuchsberichte Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click - Dim f As New frmBesuchsberichte + Dim f As New frmBesuchsberichte(-1, kdnr) f.ShowDialog(Me) End Sub @@ -70,4 +73,11 @@ Public Class usrCntlBesuchsberichte End If End If End Sub + + Private Sub dgvBesuchsberichte_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvBesuchsberichte.CellClick + If dgvBesuchsberichte.SelectedRows.Count > 0 Then + btnDelete.Enabled = True + End If + + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cBesuchsbericht.vb b/VERAG_PROG_ALLGEMEIN/Classes/cBesuchsbericht.vb index db05c601..b404bc49 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cBesuchsbericht.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cBesuchsbericht.vb @@ -23,14 +23,14 @@ Public Class cBesuchsbericht Property bb_FuhrparkLeasing As Object = Nothing Property bb_LKW_Plane As Boolean = False Property bb_LKW_Kuehltranporte As Boolean = False - Property bb_LKW_Sonsertransporte As Boolean = False - Property bb_LKW_Sprinter As Boolean = False + Property bb_LKW_Sondertransporte As Boolean = False + Property bb_LKW_Sprinter As Boolean = False Property bb_LKW_SiloTank As Boolean = False Property bb_Auftraggeber As Object = Nothing Property bb_Route As Object = Nothing Property bb_DerzeitigerLieferant As Object = Nothing - Property bb_Zufrieden As Object = Nothing - Property bb_ZufriedenNEIN As Object = Nothing + Property bb_Zufrieden As Boolean = Nothing + Property bb_ZufriedenNEIN As Object = Nothing Property bb_Garantie As Object = Nothing Property bb_Interesse_Zollabfertigung As Boolean = False Property bb_Interesse_Brexit As Boolean = False @@ -74,7 +74,7 @@ Public Class cBesuchsbericht list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_FuhrparkLeasing", bb_FuhrparkLeasing)) 'Object = Nothing list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Plane", bb_LKW_Plane)) 'Boolean = False list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Kuehltranporte", bb_LKW_Kuehltranporte)) 'Boolean = False - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Sonsertransporte", bb_LKW_Sonsertransporte)) 'Boolean = False + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Sondertransporte", bb_LKW_Sondertransporte)) 'Boolean = False list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_Sprinter", bb_LKW_Sprinter)) 'Boolean = False list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_LKW_SiloTank", bb_LKW_SiloTank)) 'Boolean = False list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Auftraggeber", bb_Auftraggeber)) 'Object = Nothing @@ -113,7 +113,7 @@ Public Class cBesuchsbericht Public Shared Function DELETE(bb_Id As Integer) As Boolean Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Return SQL.doSQL("DELETE FROM tblBesuchsberichte WHERE bb_Id=" & bb_Id) + Return SQL.doSQL("DELETE FROM tblBesuchsberichte WHERE bb_Id=" & bb_Id) End Function Public Sub LOAD()