Implementierung Besucherberichte
This commit is contained in:
894
SDL/mdm/Besuchsberichte/frmBesuchsberichte.Designer.vb
generated
894
SDL/mdm/Besuchsberichte/frmBesuchsberichte.Designer.vb
generated
@@ -24,9 +24,6 @@ Partial Class frmBesuchsberichte
|
|||||||
Private Sub InitializeComponent()
|
Private Sub InitializeComponent()
|
||||||
Me.components = New System.ComponentModel.Container()
|
Me.components = New System.ComponentModel.Container()
|
||||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBesuchsberichte))
|
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.txtVermerk = New System.Windows.Forms.RichTextBox()
|
||||||
Me.Label1 = New System.Windows.Forms.Label()
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
Me.Label2 = 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.cbxFerry = New System.Windows.Forms.CheckBox()
|
||||||
Me.Label19 = New System.Windows.Forms.Label()
|
Me.Label19 = New System.Windows.Forms.Label()
|
||||||
Me.Label20 = 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.Label21 = New System.Windows.Forms.Label()
|
||||||
Me.lblErr_BesuchtAm = New System.Windows.Forms.Label()
|
Me.lblErr_BesuchtAm = New System.Windows.Forms.Label()
|
||||||
Me.lblErr_Kontaktart = New System.Windows.Forms.Label()
|
Me.lblErr_Kontaktart = New System.Windows.Forms.Label()
|
||||||
Me.lblErr_Firma = New System.Windows.Forms.Label()
|
Me.lblErr_Firma = New System.Windows.Forms.Label()
|
||||||
Me.lblErr_Teilgenommen = 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.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.cboZufrieden = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||||
|
Me.txtFuhrparkEigene = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
Me.txtZufriedenNEIN = 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.txtDerzeitigerLieferant = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
Me.txtTransportRoute = 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.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||||
Me.pnlMain = New System.Windows.Forms.Panel()
|
Me.btnCancel = New System.Windows.Forms.Button()
|
||||||
Me.MyPanel1.SuspendLayout()
|
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.pnlMain.SuspendLayout()
|
||||||
|
Me.MyPanel1.SuspendLayout()
|
||||||
Me.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
|
'txtVermerk
|
||||||
'
|
'
|
||||||
Me.txtVermerk.Location = New System.Drawing.Point(12, 616)
|
Me.txtVermerk.Location = New System.Drawing.Point(12, 616)
|
||||||
@@ -469,21 +424,6 @@ Partial Class frmBesuchsberichte
|
|||||||
Me.Label20.TabIndex = 79
|
Me.Label20.TabIndex = 79
|
||||||
Me.Label20.Text = "Anhänge:"
|
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
|
'Label21
|
||||||
'
|
'
|
||||||
Me.Label21.AutoSize = True
|
Me.Label21.AutoSize = True
|
||||||
@@ -537,375 +477,6 @@ Partial Class frmBesuchsberichte
|
|||||||
Me.lblErr_Teilgenommen.Text = "Bitte angeben!"
|
Me.lblErr_Teilgenommen.Text = "Bitte angeben!"
|
||||||
Me.lblErr_Teilgenommen.Visible = False
|
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
|
'pnlMain
|
||||||
'
|
'
|
||||||
Me.pnlMain.AutoScroll = True
|
Me.pnlMain.AutoScroll = True
|
||||||
@@ -972,6 +543,435 @@ Partial Class frmBesuchsberichte
|
|||||||
Me.pnlMain.Size = New System.Drawing.Size(930, 859)
|
Me.pnlMain.Size = New System.Drawing.Size(930, 859)
|
||||||
Me.pnlMain.TabIndex = 0
|
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
|
'frmBesuchsberichte
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
@@ -984,9 +984,9 @@ Partial Class frmBesuchsberichte
|
|||||||
Me.Name = "frmBesuchsberichte"
|
Me.Name = "frmBesuchsberichte"
|
||||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||||
Me.Text = "Besuchsbericht"
|
Me.Text = "Besuchsbericht"
|
||||||
Me.MyPanel1.ResumeLayout(False)
|
|
||||||
Me.pnlMain.ResumeLayout(False)
|
Me.pnlMain.ResumeLayout(False)
|
||||||
Me.pnlMain.PerformLayout()
|
Me.pnlMain.PerformLayout()
|
||||||
|
Me.MyPanel1.ResumeLayout(False)
|
||||||
Me.ResumeLayout(False)
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|||||||
@@ -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 KdNr As Integer = -1
|
||||||
Public bb_id As Integer = -1
|
Public bb_id As Integer = -1
|
||||||
|
|
||||||
|
|
||||||
Dim BB As New VERAG_PROG_ALLGEMEIN.cBesuchsbericht
|
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
|
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 AD = kdFirma.KdData_ADRESSEN
|
||||||
Dim KD = kdFirma.KdData_KUNDE
|
Dim KD = kdFirma.KdData_KUNDE
|
||||||
|
|
||||||
txtFirma.Enabled = False
|
txtFirma.Enabled = True
|
||||||
txtFirma.Text = AD.Name_1 & If(AD.Name_2, "")
|
txtFirma.Text = If(AD.Name_1, "") & If(AD.Name_2, "")
|
||||||
txtFirma.Text &= vbNewLine & If(AD.Straße, "")
|
txtFirma.Text &= vbNewLine & If(AD.Straße, "")
|
||||||
txtFirma.Text &= vbNewLine & If(AD.LandKz, "") & If(AD.PLZ, "") & If(AD.Ort, "")
|
txtFirma.Text &= vbNewLine & If(AD.LandKz, "") & If(AD.PLZ, "") & If(AD.Ort, "")
|
||||||
|
txtFirma.Enabled = False
|
||||||
Else
|
Else
|
||||||
txtFirma.Enabled = True
|
txtFirma.Enabled = True
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub frmBesuchsberichte_Load(sender As Object, e As EventArgs) Handles Me.Load
|
Private Sub frmBesuchsberichte_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
|
||||||
kdFirma.initKdBox(Me)
|
kdFirma.initKdBox(Me)
|
||||||
|
|
||||||
cboKontaktart.Items.Clear()
|
cboKontaktart.Items.Clear()
|
||||||
cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||||
cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Persönlich", "PERSON"))
|
cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Persönlich", "PERSON"))
|
||||||
@@ -30,12 +49,19 @@
|
|||||||
|
|
||||||
cboZufrieden.Items.Clear()
|
cboZufrieden.Items.Clear()
|
||||||
cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
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("JA", True))
|
||||||
cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "NEIN"))
|
cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", False))
|
||||||
cboZufrieden.changeItem("")
|
cboZufrieden.changeItem("")
|
||||||
|
|
||||||
If KdNr > 0 Then
|
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
|
End If
|
||||||
|
|
||||||
If bb_id > 0 Then
|
If bb_id > 0 Then
|
||||||
@@ -43,15 +69,21 @@
|
|||||||
setvalues(BB)
|
setvalues(BB)
|
||||||
|
|
||||||
UsrcntlPDFScanList1.Enabled = True
|
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
|
Else
|
||||||
UsrcntlPDFScanList1.Enabled = False
|
UsrcntlPDFScanList1.Enabled = False
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub setvalues(BB As VERAG_PROG_ALLGEMEIN.cBesuchsbericht)
|
Sub setvalues(BB As VERAG_PROG_ALLGEMEIN.cBesuchsbericht)
|
||||||
|
|
||||||
|
kdFirma.Enabled = BB.bb_KundenNr <= 0
|
||||||
|
kdFirma.KdNr = BB.bb_KundenNr
|
||||||
datBesuchtAm._value = BB.bb_DatumBesuch
|
datBesuchtAm._value = BB.bb_DatumBesuch
|
||||||
txtTeilgenommen.Text = If(BB.bb_Teilnehmer, "")
|
txtTeilgenommen.Text = If(BB.bb_Teilnehmer, "")
|
||||||
cboKontaktart.changeItem(If(BB.bb_Kontaktart, ""))
|
cboKontaktart.changeItem(If(BB.bb_Kontaktart, ""))
|
||||||
@@ -68,16 +100,18 @@
|
|||||||
txtFuhrparkLeasing.Text = If(BB.bb_FuhrparkLeasing, "")
|
txtFuhrparkLeasing.Text = If(BB.bb_FuhrparkLeasing, "")
|
||||||
cbxPlane.Checked = BB.bb_LKW_Plane
|
cbxPlane.Checked = BB.bb_LKW_Plane
|
||||||
cbxKuehltransporte.Checked = BB.bb_LKW_Kuehltranporte
|
cbxKuehltransporte.Checked = BB.bb_LKW_Kuehltranporte
|
||||||
cbxSondertransporte.Checked = BB.bb_LKW_Sonsertransporte
|
cbxSondertransporte.Checked = BB.bb_LKW_Sondertransporte
|
||||||
cbxSprinter.Checked = BB.bb_LKW_Sprinter
|
cbxSprinter.Checked = BB.bb_LKW_Sprinter
|
||||||
cbxSiloTank.Checked = BB.bb_LKW_SiloTank
|
cbxSiloTank.Checked = BB.bb_LKW_SiloTank
|
||||||
|
|
||||||
|
|
||||||
txtAuftraggeber.Text = If(BB.bb_Auftraggeber, "")
|
txtAuftraggeber.Text = If(BB.bb_Auftraggeber, "")
|
||||||
txtTransportRoute.Text = If(BB.bb_Route, "")
|
txtTransportRoute.Text = If(BB.bb_Route, "")
|
||||||
txtDerzeitigerLieferant.Text = If(BB.bb_DerzeitigerLieferant, "")
|
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, "")
|
txtGarantie.Text = If(BB.bb_Garantie, "")
|
||||||
txtVermerk.Text = If(BB.bb_Vermerk, "")
|
txtVermerk.Text = If(BB.bb_Vermerk, "")
|
||||||
|
|
||||||
@@ -103,26 +137,26 @@
|
|||||||
BB.bb_Anpsprechpartner = txtAnsprechpartner.Text
|
BB.bb_Anpsprechpartner = txtAnsprechpartner.Text
|
||||||
BB.bb_Mail = txtMail.Text
|
BB.bb_Mail = txtMail.Text
|
||||||
BB.bb_Telefon = txtTel.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_FuhrparkEigentum = txtFuhrparkEigene.Text
|
||||||
BB.bb_FuhrparkLeasing = txtFuhrparkLeasing.Text
|
BB.bb_FuhrparkLeasing = txtFuhrparkLeasing.Text
|
||||||
BB.bb_LKW_Plane = cbxPlane.Checked
|
BB.bb_LKW_Plane = cbxPlane.Checked
|
||||||
BB.bb_LKW_Kuehltranporte = cbxKuehltransporte.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_Sprinter = cbxSprinter.Checked
|
||||||
BB.bb_LKW_SiloTank = cbxSiloTank.Checked
|
BB.bb_LKW_SiloTank = cbxSiloTank.Checked
|
||||||
|
|
||||||
BB.bb_Auftraggeber = txtAuftraggeber.Text
|
BB.bb_Auftraggeber = txtAuftraggeber.Text
|
||||||
BB.bb_Route = txtTransportRoute.Text
|
BB.bb_Route = txtTransportRoute.Text
|
||||||
BB.bb_DerzeitigerLieferant = txtDerzeitigerLieferant.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_ZufriedenNEIN = txtZufriedenNEIN.Text
|
||||||
BB.bb_Garantie = txtGarantie.Text
|
BB.bb_Garantie = txtGarantie.Text
|
||||||
BB.bb_Vermerk = txtVermerk.Text
|
BB.bb_Vermerk = txtVermerk.Text
|
||||||
|
|
||||||
BB.bb_Interesse_Zollabfertigung = cbxZollabfertigung.Checked
|
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_Parkplatz = cbxParkplatz.Checked
|
||||||
BB.bb_Interesse_LagerUmschlag = cbxLagerUmschlag.Checked
|
BB.bb_Interesse_LagerUmschlag = cbxLagerUmschlag.Checked
|
||||||
BB.bb_Interesse_Rola = cbxRola.Checked
|
BB.bb_Interesse_Rola = cbxRola.Checked
|
||||||
@@ -138,12 +172,15 @@
|
|||||||
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
||||||
If getvalues(BB) Then
|
If getvalues(BB) Then
|
||||||
UsrcntlPDFScanList1.Enabled = True
|
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 If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
||||||
If getvalues(BB) Then
|
If getvalues(BB) Then
|
||||||
|
btnPDFReport.Enabled = True
|
||||||
Me.Close()
|
Me.Close()
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
@@ -170,5 +207,117 @@
|
|||||||
|
|
||||||
Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click
|
Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click
|
||||||
'Erstellung der BerichtsPDF
|
'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
|
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
|
End Class
|
||||||
@@ -42,12 +42,15 @@ Public Class usrCntlBesuchsberichte
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
End With
|
End With
|
||||||
|
|
||||||
|
btnDelete.Enabled = False
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub dgvBesuchsberichteDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvBesuchsberichte.CellDoubleClick
|
Private Sub dgvBesuchsberichteDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvBesuchsberichte.CellDoubleClick
|
||||||
Try
|
Try
|
||||||
Dim f As New frmBesuchsberichte()
|
|
||||||
Dim bb_id = dgvBesuchsberichte.Rows(e.RowIndex).Cells("bb_id").Value
|
Dim bb_id = dgvBesuchsberichte.Rows(e.RowIndex).Cells("bb_id").Value
|
||||||
|
Dim f As New frmBesuchsberichte(bb_id)
|
||||||
f.ShowDialog(Me)
|
f.ShowDialog(Me)
|
||||||
initDGV()
|
initDGV()
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
@@ -57,7 +60,7 @@ Public Class usrCntlBesuchsberichte
|
|||||||
|
|
||||||
|
|
||||||
Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
|
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)
|
f.ShowDialog(Me)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -70,4 +73,11 @@ Public Class usrCntlBesuchsberichte
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End Sub
|
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
|
End Class
|
||||||
|
|||||||
@@ -23,14 +23,14 @@ Public Class cBesuchsbericht
|
|||||||
Property bb_FuhrparkLeasing As Object = Nothing
|
Property bb_FuhrparkLeasing As Object = Nothing
|
||||||
Property bb_LKW_Plane As Boolean = False
|
Property bb_LKW_Plane As Boolean = False
|
||||||
Property bb_LKW_Kuehltranporte As Boolean = False
|
Property bb_LKW_Kuehltranporte As Boolean = False
|
||||||
Property bb_LKW_Sonsertransporte As Boolean = False
|
Property bb_LKW_Sondertransporte As Boolean = False
|
||||||
Property bb_LKW_Sprinter As Boolean = False
|
Property bb_LKW_Sprinter As Boolean = False
|
||||||
Property bb_LKW_SiloTank As Boolean = False
|
Property bb_LKW_SiloTank As Boolean = False
|
||||||
Property bb_Auftraggeber As Object = Nothing
|
Property bb_Auftraggeber As Object = Nothing
|
||||||
Property bb_Route As Object = Nothing
|
Property bb_Route As Object = Nothing
|
||||||
Property bb_DerzeitigerLieferant As Object = Nothing
|
Property bb_DerzeitigerLieferant As Object = Nothing
|
||||||
Property bb_Zufrieden As Object = Nothing
|
Property bb_Zufrieden As Boolean = Nothing
|
||||||
Property bb_ZufriedenNEIN As Object = Nothing
|
Property bb_ZufriedenNEIN As Object = Nothing
|
||||||
Property bb_Garantie As Object = Nothing
|
Property bb_Garantie As Object = Nothing
|
||||||
Property bb_Interesse_Zollabfertigung As Boolean = False
|
Property bb_Interesse_Zollabfertigung As Boolean = False
|
||||||
Property bb_Interesse_Brexit 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_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_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_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_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_LKW_SiloTank", bb_LKW_SiloTank)) 'Boolean = False
|
||||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bb_Auftraggeber", bb_Auftraggeber)) 'Object = Nothing
|
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
|
Public Shared Function DELETE(bb_Id As Integer) As Boolean
|
||||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
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
|
End Function
|
||||||
|
|
||||||
Public Sub LOAD()
|
Public Sub LOAD()
|
||||||
|
|||||||
Reference in New Issue
Block a user