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

Implementierung Besucherberichte

Browse Source
This commit is contained in:
d.breimaier
2022-09-20 12:26:25 +02:00
parent 8e98815f0e
commit 8e6b6ef1e4
4 changed files with 630 additions and 471 deletions
Download Patch File Download Diff File Expand all files Collapse all files

894
SDL/mdm/Besuchsberichte/frmBesuchsberichte.Designer.vb generated
View File

@@ -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 = "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
'
'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

181
SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb
View File

@@ -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, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, BB.bb_KundenNr & "_" & BB.bb_Id)
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, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, BB.bb_KundenNr & "_" & BB.bb_Id)
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,117 @@
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("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

14
SDL/mdm/Besuchsberichte/usrCntlBesuchsberichte.vb
View File

@@ -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

12
VERAG_PROG_ALLGEMEIN/Classes/cBesuchsbericht.vb
View File

@@ -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()