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

Änderung der Logik der Vollmachtsverwaltung im Kunden (nun können pro VM-Typ mehrere Vollmachten hinterlegt werden). Weiters wurde die GUI der Vollmachten überarbeitet

Browse Source
This commit is contained in:
d.breimaier
2022-09-19 08:29:11 +02:00
parent 780d763ba4
commit 5d324634de
399 changed files with 259205 additions and 1386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -24,9 +24,9 @@ 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.Button14 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
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,7 +63,7 @@ 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.Button3 = New System.Windows.Forms.Button()
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()
@@ -86,55 +86,55 @@ Partial Class frmBesuchsberichte
Me.datBesuchtAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.pnlMain = New System.Windows.Forms.Panel()
Me.MyPanel1.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.pnlMain.SuspendLayout()
Me.SuspendLayout()
'
'Button14
'btnOK
'
Me.Button14.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.ForeColor = System.Drawing.Color.Black
Me.Button14.Image = CType(resources.GetObject("Button14.Image"), System.Drawing.Image)
Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button14.Location = New System.Drawing.Point(834, 10)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(87, 39)
Me.Button14.TabIndex = 19
Me.Button14.Text = "OK"
Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button14.UseVisualStyleBackColor = True
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
'
'Button1
'btnSave
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.Black
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(731, 10)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(97, 39)
Me.Button1.TabIndex = 20
Me.Button1.Text = "Speichern"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
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
'
'Button2
'btnCancel
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.Image = Global.SDL.My.Resources.Resources.del
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(12, 10)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(113, 39)
Me.Button2.TabIndex = 21
Me.Button2.Text = "Abbrechen"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
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
'
@@ -469,20 +469,20 @@ Partial Class frmBesuchsberichte
Me.Label20.TabIndex = 79
Me.Label20.Text = "Anhänge:"
'
'Button3
'btnPDFReport
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.Black
Me.Button3.Image = Global.SDL.My.Resources.Resources.pdf1
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(368, 10)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(107, 39)
Me.Button3.TabIndex = 80
Me.Button3.Text = "Bericht"
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.UseVisualStyleBackColor = True
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
'
@@ -564,10 +564,12 @@ Partial Class frmBesuchsberichte
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
@@ -587,10 +589,12 @@ Partial Class frmBesuchsberichte
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
@@ -609,10 +613,12 @@ Partial Class frmBesuchsberichte
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
@@ -631,10 +637,12 @@ Partial Class frmBesuchsberichte
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
@@ -653,10 +661,12 @@ Partial Class frmBesuchsberichte
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
@@ -675,10 +685,12 @@ Partial Class frmBesuchsberichte
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
@@ -696,10 +708,12 @@ Partial Class frmBesuchsberichte
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
@@ -718,10 +732,12 @@ Partial Class frmBesuchsberichte
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
@@ -740,10 +756,12 @@ Partial Class frmBesuchsberichte
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
@@ -762,10 +780,12 @@ Partial Class frmBesuchsberichte
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
@@ -811,10 +831,12 @@ Partial Class frmBesuchsberichte
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
@@ -833,10 +855,12 @@ Partial Class frmBesuchsberichte
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
@@ -866,87 +890,87 @@ Partial Class frmBesuchsberichte
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, 547)
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.Button2)
Me.MyPanel1.Controls.Add(Me.Button14)
Me.MyPanel1.Controls.Add(Me.Button1)
Me.MyPanel1.Controls.Add(Me.Button3)
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
'
'Panel1
'pnlMain
'
Me.Panel1.AutoScroll = True
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.UsrcntlPDFScanList1)
Me.Panel1.Controls.Add(Me.lblErr_Teilgenommen)
Me.Panel1.Controls.Add(Me.txtVermerk)
Me.Panel1.Controls.Add(Me.lblErr_Firma)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.lblErr_Kontaktart)
Me.Panel1.Controls.Add(Me.datBesuchtAm)
Me.Panel1.Controls.Add(Me.lblErr_BesuchtAm)
Me.Panel1.Controls.Add(Me.txtTeilgenommen)
Me.Panel1.Controls.Add(Me.Label21)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.cboKontaktart)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Controls.Add(Me.Label20)
Me.Panel1.Controls.Add(Me.kdFirma)
Me.Panel1.Controls.Add(Me.Label19)
Me.Panel1.Controls.Add(Me.txtFirma)
Me.Panel1.Controls.Add(Me.cbxFerry)
Me.Panel1.Controls.Add(Me.Label5)
Me.Panel1.Controls.Add(Me.cbxYesMonex)
Me.Panel1.Controls.Add(Me.txtAnsprechpartner)
Me.Panel1.Controls.Add(Me.cbxRola)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.cbxLagerUmschlag)
Me.Panel1.Controls.Add(Me.Label7)
Me.Panel1.Controls.Add(Me.cbxParkplatz)
Me.Panel1.Controls.Add(Me.txtTel)
Me.Panel1.Controls.Add(Me.cbxBrexit)
Me.Panel1.Controls.Add(Me.txtMail)
Me.Panel1.Controls.Add(Me.cbxZollabfertigung)
Me.Panel1.Controls.Add(Me.Label8)
Me.Panel1.Controls.Add(Me.Label18)
Me.Panel1.Controls.Add(Me.txtGF)
Me.Panel1.Controls.Add(Me.txtGarantie)
Me.Panel1.Controls.Add(Me.Label9)
Me.Panel1.Controls.Add(Me.Label17)
Me.Panel1.Controls.Add(Me.txtUmsatz)
Me.Panel1.Controls.Add(Me.Label16)
Me.Panel1.Controls.Add(Me.Label10)
Me.Panel1.Controls.Add(Me.cboZufrieden)
Me.Panel1.Controls.Add(Me.txtFuhrparkEigene)
Me.Panel1.Controls.Add(Me.txtZufriedenNEIN)
Me.Panel1.Controls.Add(Me.txtFuhrparkLeasing)
Me.Panel1.Controls.Add(Me.txtDerzeitigerLieferant)
Me.Panel1.Controls.Add(Me.cbxPlane)
Me.Panel1.Controls.Add(Me.Label15)
Me.Panel1.Controls.Add(Me.cbxKuehltransporte)
Me.Panel1.Controls.Add(Me.Label14)
Me.Panel1.Controls.Add(Me.cbxSondertransporte)
Me.Panel1.Controls.Add(Me.txtTransportRoute)
Me.Panel1.Controls.Add(Me.cbxSprinter)
Me.Panel1.Controls.Add(Me.txtAuftraggeber)
Me.Panel1.Controls.Add(Me.cbxSiloTank)
Me.Panel1.Controls.Add(Me.Label13)
Me.Panel1.Controls.Add(Me.Label11)
Me.Panel1.Controls.Add(Me.Label12)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(930, 859)
Me.Panel1.TabIndex = 0
Me.pnlMain.AutoScroll = True
Me.pnlMain.Controls.Add(Me.Label1)
Me.pnlMain.Controls.Add(Me.UsrcntlPDFScanList1)
Me.pnlMain.Controls.Add(Me.lblErr_Teilgenommen)
Me.pnlMain.Controls.Add(Me.txtVermerk)
Me.pnlMain.Controls.Add(Me.lblErr_Firma)
Me.pnlMain.Controls.Add(Me.Label2)
Me.pnlMain.Controls.Add(Me.lblErr_Kontaktart)
Me.pnlMain.Controls.Add(Me.datBesuchtAm)
Me.pnlMain.Controls.Add(Me.lblErr_BesuchtAm)
Me.pnlMain.Controls.Add(Me.txtTeilgenommen)
Me.pnlMain.Controls.Add(Me.Label21)
Me.pnlMain.Controls.Add(Me.Label3)
Me.pnlMain.Controls.Add(Me.cboKontaktart)
Me.pnlMain.Controls.Add(Me.Label4)
Me.pnlMain.Controls.Add(Me.Label20)
Me.pnlMain.Controls.Add(Me.kdFirma)
Me.pnlMain.Controls.Add(Me.Label19)
Me.pnlMain.Controls.Add(Me.txtFirma)
Me.pnlMain.Controls.Add(Me.cbxFerry)
Me.pnlMain.Controls.Add(Me.Label5)
Me.pnlMain.Controls.Add(Me.cbxYesMonex)
Me.pnlMain.Controls.Add(Me.txtAnsprechpartner)
Me.pnlMain.Controls.Add(Me.cbxRola)
Me.pnlMain.Controls.Add(Me.Label6)
Me.pnlMain.Controls.Add(Me.cbxLagerUmschlag)
Me.pnlMain.Controls.Add(Me.Label7)
Me.pnlMain.Controls.Add(Me.cbxParkplatz)
Me.pnlMain.Controls.Add(Me.txtTel)
Me.pnlMain.Controls.Add(Me.cbxBrexit)
Me.pnlMain.Controls.Add(Me.txtMail)
Me.pnlMain.Controls.Add(Me.cbxZollabfertigung)
Me.pnlMain.Controls.Add(Me.Label8)
Me.pnlMain.Controls.Add(Me.Label18)
Me.pnlMain.Controls.Add(Me.txtGF)
Me.pnlMain.Controls.Add(Me.txtGarantie)
Me.pnlMain.Controls.Add(Me.Label9)
Me.pnlMain.Controls.Add(Me.Label17)
Me.pnlMain.Controls.Add(Me.txtUmsatz)
Me.pnlMain.Controls.Add(Me.Label16)
Me.pnlMain.Controls.Add(Me.Label10)
Me.pnlMain.Controls.Add(Me.cboZufrieden)
Me.pnlMain.Controls.Add(Me.txtFuhrparkEigene)
Me.pnlMain.Controls.Add(Me.txtZufriedenNEIN)
Me.pnlMain.Controls.Add(Me.txtFuhrparkLeasing)
Me.pnlMain.Controls.Add(Me.txtDerzeitigerLieferant)
Me.pnlMain.Controls.Add(Me.cbxPlane)
Me.pnlMain.Controls.Add(Me.Label15)
Me.pnlMain.Controls.Add(Me.cbxKuehltransporte)
Me.pnlMain.Controls.Add(Me.Label14)
Me.pnlMain.Controls.Add(Me.cbxSondertransporte)
Me.pnlMain.Controls.Add(Me.txtTransportRoute)
Me.pnlMain.Controls.Add(Me.cbxSprinter)
Me.pnlMain.Controls.Add(Me.txtAuftraggeber)
Me.pnlMain.Controls.Add(Me.cbxSiloTank)
Me.pnlMain.Controls.Add(Me.Label13)
Me.pnlMain.Controls.Add(Me.Label11)
Me.pnlMain.Controls.Add(Me.Label12)
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(0, 0)
Me.pnlMain.Name = "pnlMain"
Me.pnlMain.Size = New System.Drawing.Size(930, 859)
Me.pnlMain.TabIndex = 0
'
'frmBesuchsberichte
'
@@ -954,23 +978,23 @@ Partial Class frmBesuchsberichte
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(930, 918)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnlMain)
Me.Controls.Add(Me.MyPanel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmBesuchsberichte"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Besuchsbericht"
Me.MyPanel1.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.pnlMain.ResumeLayout(False)
Me.pnlMain.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents UsrcntlPDFScanList1 As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents Button14 As Button
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents btnOK As Button
Friend WithEvents btnSave As Button
Friend WithEvents btnCancel As Button
Friend WithEvents txtVermerk As RichTextBox
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
@@ -1021,7 +1045,7 @@ Partial Class frmBesuchsberichte
Friend WithEvents cbxFerry As CheckBox
Friend WithEvents Label19 As Label
Friend WithEvents Label20 As Label
Friend WithEvents Button3 As Button
Friend WithEvents btnPDFReport As Button
Friend WithEvents cboKontaktart As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label21 As Label
Friend WithEvents lblErr_BesuchtAm As Label
@@ -1029,5 +1053,5 @@ Partial Class frmBesuchsberichte
Friend WithEvents lblErr_Firma As Label
Friend WithEvents lblErr_Teilgenommen As Label
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents Panel1 As Panel
Friend WithEvents pnlMain As Panel
End Class

4
SDL/mdm/Besuchsberichte/frmBesuchsberichte.resx
View File

@@ -118,7 +118,7 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button14.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="btnOK.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAA+9JREFUSEu9
1klMG1cYB3ADZrExizfAYOxiEGACCS47KBTSQEIgikLSpJWqJIemPTSVUlSpVlSRHEgvlWjopT0EeuBU
@@ -140,7 +140,7 @@
FEaPY4mTFJJ6co823Pd0fUp+pcLwB13/pHM2JK4ajYO8aVLg+wHNP9/gygoUfWs4AAAAAElFTkSuQmCC
</value>
</data>
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="btnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAA+9JREFUSEu9
1klMG1cYB3ADZrExizfAYOxiEGACCS47KBTSQEIgikLSpJWqJIemPTSVUlSpVlSRHEgvlWjopT0EeuBU

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

@@ -135,20 +135,20 @@
Return BB.SAVE()
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
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)
End If
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
If getvalues(BB) Then
Me.Close()
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
@@ -164,4 +164,11 @@
Return True
End Function
Private Sub UsrcntlPDFScanList1_Load(sender As Object, e As EventArgs) Handles UsrcntlPDFScanList1.Load
End Sub
Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click
End Sub
End Class