From 4acf2f9050dda9ec971daddda8f617ea1862b83a Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 23 Jan 2024 07:50:02 +0100 Subject: [PATCH] ATR --- .../usrcntlVerzollungspreise.vb | 2 +- SDL/Formulare/KDFormulare/frmFormulare.vb | 8 +- SDL/OriginalArchiv_ATR/frmATR.Designer.vb | 1133 +++++++++------ SDL/OriginalArchiv_ATR/frmATR.resx | 32 + SDL/OriginalArchiv_ATR/frmATR.vb | 466 ++++++- .../frmOriginalArchiv_ATR.Designer.vb | 1238 +++++++++-------- .../frmOriginalArchiv_ATR.vb | 237 ++-- SDL/SDL.vbproj | 10 + SDL/cGlobal.vb | 2 +- VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb | 26 +- .../Schnittstellen/cSyska_Interface.vb | 15 +- .../Schnittstellen/cTherefore.vb | 2 +- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 17 + 13 files changed, 2099 insertions(+), 1089 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index 1a211f99..f6309b9d 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -120,7 +120,7 @@ MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", Me.FindForm) Then - cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-UNISPED Ltd", "IMEX")) + cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-UNISPED Ltd", "LTD")) End If MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handling", "HANDLING")) MyComboBox1.changeItem("VZ") diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index bac8662d..72538d39 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -4281,12 +4281,12 @@ Public Class FormularManagerNEU Dim dgvVon = (i - 1) * 10 ' Start der Seite in der DGV Dim listPos As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) - If i = 1 Then - 'BisherigeFelder in listPOSladen: - For Each p In list + ' If i = 1 Then 'zt jed + 'BisherigeFelder in listPOSladen: + For Each p In list listPos.Add(p) Next - End If + ' End If For ii As Integer = 0 To 9 'Wenn DGV Ende --> Abbruch: diff --git a/SDL/OriginalArchiv_ATR/frmATR.Designer.vb b/SDL/OriginalArchiv_ATR/frmATR.Designer.vb index 12973643..d2edd4f7 100644 --- a/SDL/OriginalArchiv_ATR/frmATR.Designer.vb +++ b/SDL/OriginalArchiv_ATR/frmATR.Designer.vb @@ -24,134 +24,408 @@ Partial Class frmATR Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATR)) Me.Panel1 = New System.Windows.Forms.Panel() - Me.MyTextBox6 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.txtKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.txtLocation = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.sbAvisoSuche = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.lblLKWId = New System.Windows.Forms.Label() + Me.txtAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label5 = New System.Windows.Forms.Label() - Me.MyTextBox5 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFiliale = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label4 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() - Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label2 = New System.Windows.Forms.Label() - Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Button3 = New System.Windows.Forms.Button() - Me.Button2 = New System.Windows.Forms.Button() + Me.txtDocDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnUpload = New System.Windows.Forms.Button() + Me.btnScan = New System.Windows.Forms.Button() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.Label1 = New System.Windows.Forms.Label() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Button1 = New System.Windows.Forms.Button() + Me.txtDocNumber = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel2 = New System.Windows.Forms.Panel() + Me.Label10 = New System.Windows.Forms.Label() Me.Panel3 = New System.Windows.Forms.Panel() - Me.CheckBox2 = New System.Windows.Forms.CheckBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.cbxKurierPaketdienst = New System.Windows.Forms.CheckBox() + Me.txtErhaltenReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label6 = New System.Windows.Forms.Label() - Me.CheckBox1 = New System.Windows.Forms.CheckBox() - Me.MyTextBox7 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxKurierMotorrad = New System.Windows.Forms.CheckBox() + Me.txtErhaltenDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label8 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() - Me.MyTextBox9 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label9 = New System.Windows.Forms.Label() - Me.MyTextBox8 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtErhaltenUhrzeit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel4 = New System.Windows.Forms.Panel() - Me.Label10 = New System.Windows.Forms.Label() - Me.Label11 = New System.Windows.Forms.Label() - Me.Label12 = New System.Windows.Forms.Label() - Me.MySearchBox1 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.btnSave = New System.Windows.Forms.Button() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtInfo = New System.Windows.Forms.RichTextBox() + Me.lblErr_Ausstellungsdatum = New System.Windows.Forms.Label() + Me.lblErr_DocNr = New System.Windows.Forms.Label() + Me.lblErr_Aufbewarungsort = New System.Windows.Forms.Label() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() Me.Panel1.SuspendLayout() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel4.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.White - Me.Panel1.Controls.Add(Me.MySearchBox1) + Me.Panel1.Controls.Add(Me.lblErr_Aufbewarungsort) + Me.Panel1.Controls.Add(Me.lblErr_DocNr) + Me.Panel1.Controls.Add(Me.Button5) + Me.Panel1.Controls.Add(Me.Button4) + Me.Panel1.Controls.Add(Me.Button3) + Me.Panel1.Controls.Add(Me.txtKennzeichen) + Me.Panel1.Controls.Add(Me.Label14) + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Controls.Add(Me.txtLocation) Me.Panel1.Controls.Add(Me.Label12) Me.Panel1.Controls.Add(Me.Label11) - Me.Panel1.Controls.Add(Me.MyTextBox6) + Me.Panel1.Controls.Add(Me.txtAbsender) + Me.Panel1.Controls.Add(Me.txtEmpfaenger) + Me.Panel1.Controls.Add(Me.Label13) + Me.Panel1.Controls.Add(Me.sbAvisoSuche) + Me.Panel1.Controls.Add(Me.lblLKWId) + Me.Panel1.Controls.Add(Me.txtAbfNr) Me.Panel1.Controls.Add(Me.Label5) - Me.Panel1.Controls.Add(Me.MyTextBox5) + Me.Panel1.Controls.Add(Me.txtFiliale) Me.Panel1.Controls.Add(Me.Label4) Me.Panel1.Controls.Add(Me.Label3) - Me.Panel1.Controls.Add(Me.MyTextBox3) Me.Panel1.Controls.Add(Me.Label2) - Me.Panel1.Controls.Add(Me.MyTextBox2) - Me.Panel1.Controls.Add(Me.Button3) - Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Controls.Add(Me.txtDocDatum) + Me.Panel1.Controls.Add(Me.btnUpload) + Me.Panel1.Controls.Add(Me.btnScan) Me.Panel1.Controls.Add(Me.PictureBox1) Me.Panel1.Controls.Add(Me.Label1) - Me.Panel1.Controls.Add(Me.MyTextBox1) + Me.Panel1.Controls.Add(Me.txtDocNumber) Me.Panel1.Controls.Add(Me.Panel2) Me.Panel1.Controls.Add(Me.Panel3) Me.Panel1.Controls.Add(Me.Panel4) + Me.Panel1.Controls.Add(Me.FlatButton4) + Me.Panel1.Controls.Add(Me.FlatButton1) + Me.Panel1.Controls.Add(Me.txtInfo) + Me.Panel1.Controls.Add(Me.lblErr_Ausstellungsdatum) 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(658, 419) + Me.Panel1.Size = New System.Drawing.Size(658, 588) Me.Panel1.TabIndex = 0 ' - 'MyTextBox6 + 'Button5 ' - Me.MyTextBox6._DateTimeOnly = False - Me.MyTextBox6._numbersOnly = False - Me.MyTextBox6._numbersOnlyKommastellen = "" - Me.MyTextBox6._numbersOnlyTrennzeichen = True - Me.MyTextBox6._Prozent = False - Me.MyTextBox6._ShortDateNew = False - Me.MyTextBox6._ShortDateOnly = False - Me.MyTextBox6._TimeOnly = False - Me.MyTextBox6._TimeOnly_Seconds = False - Me.MyTextBox6._value = "" - Me.MyTextBox6._Waehrung = False - Me.MyTextBox6._WaehrungZeichen = True - Me.MyTextBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.MyTextBox6.ForeColor = System.Drawing.Color.Black - Me.MyTextBox6.Location = New System.Drawing.Point(233, 252) - Me.MyTextBox6.MaxLineLength = -1 - Me.MyTextBox6.MaxLines_Warning = "" - Me.MyTextBox6.MaxLines_Warning_Label = Nothing - Me.MyTextBox6.Name = "MyTextBox6" - Me.MyTextBox6.Size = New System.Drawing.Size(207, 26) - Me.MyTextBox6.TabIndex = 16 + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.Location = New System.Drawing.Point(609, 341) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(39, 26) + Me.Button5.TabIndex = 105 + Me.Button5.Text = "FO" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(510, 341) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(101, 26) + Me.Button4.TabIndex = 104 + Me.Button4.Text = "VERRECHNUNG" + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button3.Location = New System.Drawing.Point(444, 341) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(67, 26) + Me.Button3.TabIndex = 103 + Me.Button3.Text = "VERIMEX" + Me.Button3.UseVisualStyleBackColor = True + ' + 'txtKennzeichen + ' + Me.txtKennzeichen._DateTimeOnly = False + Me.txtKennzeichen._numbersOnly = False + Me.txtKennzeichen._numbersOnlyKommastellen = "" + Me.txtKennzeichen._numbersOnlyTrennzeichen = True + Me.txtKennzeichen._Prozent = False + Me.txtKennzeichen._ShortDateNew = False + Me.txtKennzeichen._ShortDateOnly = False + Me.txtKennzeichen._TimeOnly = False + Me.txtKennzeichen._TimeOnly_Seconds = False + Me.txtKennzeichen._value = "" + Me.txtKennzeichen._Waehrung = False + Me.txtKennzeichen._WaehrungZeichen = False + Me.txtKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtKennzeichen.ForeColor = System.Drawing.Color.Black + Me.txtKennzeichen.Location = New System.Drawing.Point(473, 279) + Me.txtKennzeichen.MaxLineLength = -1 + Me.txtKennzeichen.MaxLines_Warning = "" + Me.txtKennzeichen.MaxLines_Warning_Label = Nothing + Me.txtKennzeichen.Name = "txtKennzeichen" + Me.txtKennzeichen.Size = New System.Drawing.Size(175, 26) + Me.txtKennzeichen.TabIndex = 7 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label14.Location = New System.Drawing.Point(469, 256) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(47, 20) + Me.Label14.TabIndex = 102 + Me.Label14.Text = "LKW:" + ' + 'Button2 + ' + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Button2.Image = Global.SDL.My.Resources.Resources.android_note12 + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(473, 211) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(175, 31) + Me.Button2.TabIndex = 100 + Me.Button2.Text = "Aus Zwischenablage" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button2.UseVisualStyleBackColor = True + ' + 'txtLocation + ' + Me.txtLocation._DateTimeOnly = False + Me.txtLocation._numbersOnly = False + Me.txtLocation._numbersOnlyKommastellen = "" + Me.txtLocation._numbersOnlyTrennzeichen = True + Me.txtLocation._Prozent = False + Me.txtLocation._ShortDateNew = False + Me.txtLocation._ShortDateOnly = False + Me.txtLocation._TimeOnly = False + Me.txtLocation._TimeOnly_Seconds = False + Me.txtLocation._value = "" + Me.txtLocation._Waehrung = False + Me.txtLocation._WaehrungZeichen = False + Me.txtLocation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtLocation.ForeColor = System.Drawing.Color.Black + Me.txtLocation.Location = New System.Drawing.Point(157, 341) + Me.txtLocation.MaxLineLength = -1 + Me.txtLocation.MaxLines_Warning = "" + Me.txtLocation.MaxLines_Warning_Label = Nothing + Me.txtLocation.Name = "txtLocation" + Me.txtLocation.Size = New System.Drawing.Size(288, 26) + Me.txtLocation.TabIndex = 8 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label12.Location = New System.Drawing.Point(9, 366) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(41, 20) + Me.Label12.TabIndex = 66 + Me.Label12.Text = "Info:" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label11.Location = New System.Drawing.Point(9, 344) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(143, 20) + Me.Label11.TabIndex = 66 + Me.Label11.Text = "Aufbewarungs-Ort:" + ' + 'txtAbsender + ' + Me.txtAbsender._AlleFirmenCLUSTER = False + Me.txtAbsender._AllowSetValue = True + Me.txtAbsender._autoSizeGross = True + Me.txtAbsender._display_Name1 = False + Me.txtAbsender._displayAVISO_Email = False + Me.txtAbsender._displayFullName = False + Me.txtAbsender._displayWoelflKd = False + Me.txtAbsender._hideIfListEmpty = True + Me.txtAbsender._loadKdData = True + Me.txtAbsender._searchName1 = True + Me.txtAbsender._UseFIRMA = "" + Me.txtAbsender._ValueKdAndName = True + Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtAbsender.dgvpos = "LEFT" + Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtAbsender.KdName = "" + Me.txtAbsender.KdNr = "-1" + Me.txtAbsender.kdNrField = Nothing + Me.txtAbsender.KdNrNullInt = Nothing + Me.txtAbsender.Location = New System.Drawing.Point(157, 151) + Me.txtAbsender.MaxLength = 50 + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.nurAktive = False + Me.txtAbsender.searchActive = True + Me.txtAbsender.Size = New System.Drawing.Size(263, 26) + Me.txtAbsender.TabIndex = 3 + Me.txtAbsender.TIMER_SEARCH = True + Me.txtAbsender.usrcntl = Nothing + ' + 'txtEmpfaenger + ' + Me.txtEmpfaenger._AlleFirmenCLUSTER = False + Me.txtEmpfaenger._AllowSetValue = True + Me.txtEmpfaenger._autoSizeGross = True + Me.txtEmpfaenger._display_Name1 = False + Me.txtEmpfaenger._displayAVISO_Email = False + Me.txtEmpfaenger._displayFullName = False + Me.txtEmpfaenger._displayWoelflKd = False + Me.txtEmpfaenger._hideIfListEmpty = True + Me.txtEmpfaenger._loadKdData = True + Me.txtEmpfaenger._searchName1 = True + Me.txtEmpfaenger._UseFIRMA = "" + Me.txtEmpfaenger._ValueKdAndName = True + Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.txtEmpfaenger.dgvpos = "LEFT" + Me.txtEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtEmpfaenger.KdName = "" + Me.txtEmpfaenger.KdNr = "-1" + Me.txtEmpfaenger.kdNrField = Nothing + Me.txtEmpfaenger.KdNrNullInt = Nothing + Me.txtEmpfaenger.Location = New System.Drawing.Point(157, 176) + Me.txtEmpfaenger.Name = "txtEmpfaenger" + Me.txtEmpfaenger.nurAktive = False + Me.txtEmpfaenger.searchActive = True + Me.txtEmpfaenger.Size = New System.Drawing.Size(263, 26) + Me.txtEmpfaenger.TabIndex = 4 + Me.txtEmpfaenger.TIMER_SEARCH = True + Me.txtEmpfaenger.usrcntl = Nothing + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label13.Location = New System.Drawing.Point(9, 179) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(92, 20) + Me.Label13.TabIndex = 33 + Me.Label13.Text = "Empfänger:" + ' + 'sbAvisoSuche + ' + Me.sbAvisoSuche._allowFreitext = False + Me.sbAvisoSuche._AllowSetValue = False + Me.sbAvisoSuche._allowSpaceAsSplitter = False + Me.sbAvisoSuche._autoSizeGross = False + Me.sbAvisoSuche._hideIfListEmpty = True + Me.sbAvisoSuche._value = Nothing + Me.sbAvisoSuche.conn_art = "FMZOLL" + Me.sbAvisoSuche.dgvpos = "LEFT" + Me.sbAvisoSuche.DISPLAY_PARAM = Nothing + Me.sbAvisoSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.sbAvisoSuche.INVISIBLE_COLUMNS = Nothing + Me.sbAvisoSuche.key_visible = False + Me.sbAvisoSuche.KEYPARAM = Nothing + Me.sbAvisoSuche.Location = New System.Drawing.Point(157, 255) + Me.sbAvisoSuche.Name = "sbAvisoSuche" + Me.sbAvisoSuche.searchActive = True + Me.sbAvisoSuche.Size = New System.Drawing.Size(288, 26) + Me.sbAvisoSuche.SQL_ORDER_BY = Nothing + Me.sbAvisoSuche.SQL_SELECT = Nothing + Me.sbAvisoSuche.SQL_WHERE = Nothing + Me.sbAvisoSuche.SQL_WhereParamList = Nothing + Me.sbAvisoSuche.TabIndex = 5 + Me.sbAvisoSuche.usrcntl = Nothing + ' + 'lblLKWId + ' + Me.lblLKWId.AutoSize = True + Me.lblLKWId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) + Me.lblLKWId.Location = New System.Drawing.Point(603, 263) + Me.lblLKWId.Name = "lblLKWId" + Me.lblLKWId.Size = New System.Drawing.Size(45, 13) + Me.lblLKWId.TabIndex = 30 + Me.lblLKWId.Text = "LKW-ID" + Me.lblLKWId.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblLKWId.Visible = False + ' + 'txtAbfNr + ' + Me.txtAbfNr._DateTimeOnly = False + Me.txtAbfNr._numbersOnly = True + Me.txtAbfNr._numbersOnlyKommastellen = "" + Me.txtAbfNr._numbersOnlyTrennzeichen = True + Me.txtAbfNr._Prozent = False + Me.txtAbfNr._ShortDateNew = False + Me.txtAbfNr._ShortDateOnly = False + Me.txtAbfNr._TimeOnly = False + Me.txtAbfNr._TimeOnly_Seconds = False + Me.txtAbfNr._value = "" + Me.txtAbfNr._Waehrung = False + Me.txtAbfNr._WaehrungZeichen = True + Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtAbfNr.ForeColor = System.Drawing.Color.Black + Me.txtAbfNr.Location = New System.Drawing.Point(238, 280) + Me.txtAbfNr.MaxLength = 8 + Me.txtAbfNr.MaxLineLength = -1 + Me.txtAbfNr.MaxLines_Warning = "" + Me.txtAbfNr.MaxLines_Warning_Label = Nothing + Me.txtAbfNr.Name = "txtAbfNr" + Me.txtAbfNr.Size = New System.Drawing.Size(207, 26) + Me.txtAbfNr.TabIndex = 7 ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label5.Location = New System.Drawing.Point(13, 255) + Me.Label5.Location = New System.Drawing.Point(9, 283) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(131, 20) Me.Label5.TabIndex = 15 Me.Label5.Text = "FilialenNr/Abf.Nr.:" ' - 'MyTextBox5 + 'txtFiliale ' - Me.MyTextBox5._DateTimeOnly = False - Me.MyTextBox5._numbersOnly = False - Me.MyTextBox5._numbersOnlyKommastellen = "" - Me.MyTextBox5._numbersOnlyTrennzeichen = True - Me.MyTextBox5._Prozent = False - Me.MyTextBox5._ShortDateNew = False - Me.MyTextBox5._ShortDateOnly = False - Me.MyTextBox5._TimeOnly = False - Me.MyTextBox5._TimeOnly_Seconds = False - Me.MyTextBox5._value = "" - Me.MyTextBox5._Waehrung = False - Me.MyTextBox5._WaehrungZeichen = True - Me.MyTextBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.MyTextBox5.ForeColor = System.Drawing.Color.Black - Me.MyTextBox5.Location = New System.Drawing.Point(152, 252) - Me.MyTextBox5.MaxLineLength = -1 - Me.MyTextBox5.MaxLines_Warning = "" - Me.MyTextBox5.MaxLines_Warning_Label = Nothing - Me.MyTextBox5.Name = "MyTextBox5" - Me.MyTextBox5.Size = New System.Drawing.Size(82, 26) - Me.MyTextBox5.TabIndex = 14 + Me.txtFiliale._DateTimeOnly = False + Me.txtFiliale._numbersOnly = True + Me.txtFiliale._numbersOnlyKommastellen = "" + Me.txtFiliale._numbersOnlyTrennzeichen = True + Me.txtFiliale._Prozent = False + Me.txtFiliale._ShortDateNew = False + Me.txtFiliale._ShortDateOnly = False + Me.txtFiliale._TimeOnly = False + Me.txtFiliale._TimeOnly_Seconds = False + Me.txtFiliale._value = "" + Me.txtFiliale._Waehrung = False + Me.txtFiliale._WaehrungZeichen = True + Me.txtFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtFiliale.ForeColor = System.Drawing.Color.Black + Me.txtFiliale.Location = New System.Drawing.Point(157, 280) + Me.txtFiliale.MaxLength = 4 + Me.txtFiliale.MaxLineLength = -1 + Me.txtFiliale.MaxLines_Warning = "" + Me.txtFiliale.MaxLines_Warning_Label = Nothing + Me.txtFiliale.Name = "txtFiliale" + Me.txtFiliale.Size = New System.Drawing.Size(82, 26) + Me.txtFiliale.TabIndex = 6 ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label4.Location = New System.Drawing.Point(13, 230) + Me.Label4.Location = New System.Drawing.Point(9, 258) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(114, 20) Me.Label4.TabIndex = 13 @@ -161,104 +435,81 @@ Partial Class frmATR ' Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label3.Location = New System.Drawing.Point(13, 155) + Me.Label3.Location = New System.Drawing.Point(9, 154) Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(92, 20) + Me.Label3.Size = New System.Drawing.Size(82, 20) Me.Label3.TabIndex = 11 - Me.Label3.Text = "Empfänger:" - ' - 'MyTextBox3 - ' - Me.MyTextBox3._DateTimeOnly = False - Me.MyTextBox3._numbersOnly = False - Me.MyTextBox3._numbersOnlyKommastellen = "" - Me.MyTextBox3._numbersOnlyTrennzeichen = True - Me.MyTextBox3._Prozent = False - Me.MyTextBox3._ShortDateNew = False - Me.MyTextBox3._ShortDateOnly = False - Me.MyTextBox3._TimeOnly = False - Me.MyTextBox3._TimeOnly_Seconds = False - Me.MyTextBox3._value = "" - Me.MyTextBox3._Waehrung = False - Me.MyTextBox3._WaehrungZeichen = True - Me.MyTextBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.MyTextBox3.ForeColor = System.Drawing.Color.Black - Me.MyTextBox3.Location = New System.Drawing.Point(152, 152) - Me.MyTextBox3.MaxLineLength = -1 - Me.MyTextBox3.MaxLines_Warning = "" - Me.MyTextBox3.MaxLines_Warning_Label = Nothing - Me.MyTextBox3.Name = "MyTextBox3" - Me.MyTextBox3.Size = New System.Drawing.Size(288, 26) - Me.MyTextBox3.TabIndex = 10 + Me.Label3.Text = "Absender:" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label2.Location = New System.Drawing.Point(13, 102) + Me.Label2.Location = New System.Drawing.Point(9, 102) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(61, 20) Me.Label2.TabIndex = 9 Me.Label2.Text = "Datum:" ' - 'MyTextBox2 + 'txtDocDatum ' - Me.MyTextBox2._DateTimeOnly = False - Me.MyTextBox2._numbersOnly = False - Me.MyTextBox2._numbersOnlyKommastellen = "" - Me.MyTextBox2._numbersOnlyTrennzeichen = True - Me.MyTextBox2._Prozent = False - Me.MyTextBox2._ShortDateNew = False - Me.MyTextBox2._ShortDateOnly = False - Me.MyTextBox2._TimeOnly = False - Me.MyTextBox2._TimeOnly_Seconds = False - Me.MyTextBox2._value = "" - Me.MyTextBox2._Waehrung = False - Me.MyTextBox2._WaehrungZeichen = True - Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.MyTextBox2.ForeColor = System.Drawing.Color.Black - Me.MyTextBox2.Location = New System.Drawing.Point(152, 99) - Me.MyTextBox2.MaxLineLength = -1 - Me.MyTextBox2.MaxLines_Warning = "" - Me.MyTextBox2.MaxLines_Warning_Label = Nothing - Me.MyTextBox2.Name = "MyTextBox2" - Me.MyTextBox2.Size = New System.Drawing.Size(288, 26) - Me.MyTextBox2.TabIndex = 8 + Me.txtDocDatum._DateTimeOnly = False + Me.txtDocDatum._numbersOnly = False + Me.txtDocDatum._numbersOnlyKommastellen = "" + Me.txtDocDatum._numbersOnlyTrennzeichen = False + Me.txtDocDatum._Prozent = False + Me.txtDocDatum._ShortDateNew = True + Me.txtDocDatum._ShortDateOnly = False + Me.txtDocDatum._TimeOnly = False + Me.txtDocDatum._TimeOnly_Seconds = False + Me.txtDocDatum._value = "" + Me.txtDocDatum._Waehrung = False + Me.txtDocDatum._WaehrungZeichen = False + Me.txtDocDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtDocDatum.ForeColor = System.Drawing.Color.Black + Me.txtDocDatum.Location = New System.Drawing.Point(157, 99) + Me.txtDocDatum.MaxLength = 10 + Me.txtDocDatum.MaxLineLength = -1 + Me.txtDocDatum.MaxLines_Warning = "" + Me.txtDocDatum.MaxLines_Warning_Label = Nothing + Me.txtDocDatum.Name = "txtDocDatum" + Me.txtDocDatum.Size = New System.Drawing.Size(288, 26) + Me.txtDocDatum.TabIndex = 2 ' - 'Button3 + 'btnUpload ' - Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.Button3.Image = Global.SDL.My.Resources.Resources.pdf_s - Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button3.Location = New System.Drawing.Point(476, 181) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(167, 31) - Me.Button3.TabIndex = 7 - Me.Button3.Text = "Upload..." - Me.Button3.UseVisualStyleBackColor = True + Me.btnUpload.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpload.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.btnUpload.Image = Global.SDL.My.Resources.Resources.pdf_s + Me.btnUpload.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnUpload.Location = New System.Drawing.Point(473, 181) + Me.btnUpload.Name = "btnUpload" + Me.btnUpload.Size = New System.Drawing.Size(175, 31) + Me.btnUpload.TabIndex = 11 + Me.btnUpload.Text = "Upload..." + Me.btnUpload.UseVisualStyleBackColor = True ' - 'Button2 + 'btnScan ' - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.Button2.Image = Global.SDL.My.Resources.Resources.scanner1 - Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(476, 151) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(167, 31) - Me.Button2.TabIndex = 6 - Me.Button2.Text = "Scan..." - Me.Button2.UseVisualStyleBackColor = True + Me.btnScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnScan.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.btnScan.Image = Global.SDL.My.Resources.Resources.scanner1 + Me.btnScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnScan.Location = New System.Drawing.Point(473, 151) + Me.btnScan.Name = "btnScan" + Me.btnScan.Size = New System.Drawing.Size(175, 31) + Me.btnScan.TabIndex = 10 + Me.btnScan.Text = "Scan..." + Me.btnScan.UseVisualStyleBackColor = True ' 'PictureBox1 ' Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.pdf_gray Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand - Me.PictureBox1.Location = New System.Drawing.Point(476, 67) + Me.PictureBox1.Location = New System.Drawing.Point(473, 67) Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(167, 76) + Me.PictureBox1.Size = New System.Drawing.Size(175, 76) Me.PictureBox1.TabIndex = 5 Me.PictureBox1.TabStop = False ' @@ -266,51 +517,40 @@ Partial Class frmATR ' Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label1.Location = New System.Drawing.Point(13, 70) + Me.Label1.Location = New System.Drawing.Point(9, 70) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(112, 20) Me.Label1.TabIndex = 4 Me.Label1.Text = "Dokument-Nr.:" ' - 'MyTextBox1 + 'txtDocNumber ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = False - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = False - Me.MyTextBox1._value = "" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(152, 67) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(288, 26) - Me.MyTextBox1.TabIndex = 3 - ' - 'Button1 - ' - Me.Button1.BackColor = System.Drawing.Color.White - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Button1.Location = New System.Drawing.Point(15, 15) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(167, 91) - Me.Button1.TabIndex = 2 - Me.Button1.Text = "Speichern" - Me.Button1.UseVisualStyleBackColor = False + Me.txtDocNumber._DateTimeOnly = False + Me.txtDocNumber._numbersOnly = False + Me.txtDocNumber._numbersOnlyKommastellen = "" + Me.txtDocNumber._numbersOnlyTrennzeichen = True + Me.txtDocNumber._Prozent = False + Me.txtDocNumber._ShortDateNew = False + Me.txtDocNumber._ShortDateOnly = False + Me.txtDocNumber._TimeOnly = False + Me.txtDocNumber._TimeOnly_Seconds = False + Me.txtDocNumber._value = "" + Me.txtDocNumber._Waehrung = False + Me.txtDocNumber._WaehrungZeichen = True + Me.txtDocNumber.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtDocNumber.ForeColor = System.Drawing.Color.Black + Me.txtDocNumber.Location = New System.Drawing.Point(157, 67) + Me.txtDocNumber.MaxLineLength = -1 + Me.txtDocNumber.MaxLines_Warning = "" + Me.txtDocNumber.MaxLines_Warning_Label = Nothing + Me.txtDocNumber.Name = "txtDocNumber" + Me.txtDocNumber.Size = New System.Drawing.Size(288, 26) + Me.txtDocNumber.TabIndex = 1 ' 'Panel2 ' Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel2.Controls.Add(Me.PictureBox6) Me.Panel2.Controls.Add(Me.Label10) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top Me.Panel2.Location = New System.Drawing.Point(0, 0) @@ -318,166 +558,6 @@ Partial Class frmATR Me.Panel2.Size = New System.Drawing.Size(658, 44) Me.Panel2.TabIndex = 1 ' - 'Panel3 - ' - Me.Panel3.BackColor = System.Drawing.Color.FloralWhite - Me.Panel3.Controls.Add(Me.Label9) - Me.Panel3.Controls.Add(Me.CheckBox2) - Me.Panel3.Controls.Add(Me.MyTextBox8) - Me.Panel3.Controls.Add(Me.Label6) - Me.Panel3.Controls.Add(Me.CheckBox1) - Me.Panel3.Controls.Add(Me.MyTextBox7) - Me.Panel3.Controls.Add(Me.Label8) - Me.Panel3.Controls.Add(Me.Label7) - Me.Panel3.Controls.Add(Me.MyTextBox9) - Me.Panel3.Location = New System.Drawing.Point(0, 301) - Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(462, 118) - Me.Panel3.TabIndex = 25 - ' - 'CheckBox2 - ' - Me.CheckBox2.AutoSize = True - Me.CheckBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.CheckBox2.Location = New System.Drawing.Point(296, 91) - Me.CheckBox2.Name = "CheckBox2" - Me.CheckBox2.Size = New System.Drawing.Size(155, 21) - Me.CheckBox2.TabIndex = 24 - Me.CheckBox2.Text = "Paketdienst (DHL,..)" - Me.CheckBox2.UseVisualStyleBackColor = True - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Underline) - Me.Label6.Location = New System.Drawing.Point(13, 13) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(149, 20) - Me.Label6.TabIndex = 18 - Me.Label6.Text = "Dokument erhalten:" - ' - 'CheckBox1 - ' - Me.CheckBox1.AutoSize = True - Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.CheckBox1.Location = New System.Drawing.Point(152, 91) - Me.CheckBox1.Name = "CheckBox1" - Me.CheckBox1.Size = New System.Drawing.Size(127, 21) - Me.CheckBox1.TabIndex = 23 - Me.CheckBox1.Text = "Motorrad-Kurier" - Me.CheckBox1.UseVisualStyleBackColor = True - ' - 'MyTextBox7 - ' - Me.MyTextBox7._DateTimeOnly = False - Me.MyTextBox7._numbersOnly = False - Me.MyTextBox7._numbersOnlyKommastellen = "" - Me.MyTextBox7._numbersOnlyTrennzeichen = True - Me.MyTextBox7._Prozent = False - Me.MyTextBox7._ShortDateNew = False - Me.MyTextBox7._ShortDateOnly = False - Me.MyTextBox7._TimeOnly = False - Me.MyTextBox7._TimeOnly_Seconds = False - Me.MyTextBox7._value = "" - Me.MyTextBox7._Waehrung = False - Me.MyTextBox7._WaehrungZeichen = True - Me.MyTextBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.MyTextBox7.ForeColor = System.Drawing.Color.Black - Me.MyTextBox7.Location = New System.Drawing.Point(152, 39) - Me.MyTextBox7.MaxLineLength = -1 - Me.MyTextBox7.MaxLines_Warning = "" - Me.MyTextBox7.MaxLines_Warning_Label = Nothing - Me.MyTextBox7.Name = "MyTextBox7" - Me.MyTextBox7.Size = New System.Drawing.Size(145, 26) - Me.MyTextBox7.TabIndex = 17 - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label8.Location = New System.Drawing.Point(13, 92) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(34, 20) - Me.Label8.TabIndex = 22 - Me.Label8.Text = "Art:" - ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label7.Location = New System.Drawing.Point(13, 42) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(116, 20) - Me.Label7.TabIndex = 19 - Me.Label7.Text = "Datum/Uhrzeit:" - ' - 'MyTextBox9 - ' - Me.MyTextBox9._DateTimeOnly = False - Me.MyTextBox9._numbersOnly = False - Me.MyTextBox9._numbersOnlyKommastellen = "" - Me.MyTextBox9._numbersOnlyTrennzeichen = True - Me.MyTextBox9._Prozent = False - Me.MyTextBox9._ShortDateNew = False - Me.MyTextBox9._ShortDateOnly = False - Me.MyTextBox9._TimeOnly = False - Me.MyTextBox9._TimeOnly_Seconds = False - Me.MyTextBox9._value = "" - Me.MyTextBox9._Waehrung = False - Me.MyTextBox9._WaehrungZeichen = True - Me.MyTextBox9.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.MyTextBox9.ForeColor = System.Drawing.Color.Black - Me.MyTextBox9.Location = New System.Drawing.Point(296, 39) - Me.MyTextBox9.MaxLineLength = -1 - Me.MyTextBox9.MaxLines_Warning = "" - Me.MyTextBox9.MaxLines_Warning_Label = Nothing - Me.MyTextBox9.Name = "MyTextBox9" - Me.MyTextBox9.Size = New System.Drawing.Size(144, 26) - Me.MyTextBox9.TabIndex = 21 - ' - 'Label9 - ' - Me.Label9.AutoSize = True - Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.Label9.Location = New System.Drawing.Point(13, 67) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(104, 20) - Me.Label9.TabIndex = 27 - Me.Label9.Text = "Referenz-Nr.:" - ' - 'MyTextBox8 - ' - Me.MyTextBox8._DateTimeOnly = False - Me.MyTextBox8._numbersOnly = False - Me.MyTextBox8._numbersOnlyKommastellen = "" - Me.MyTextBox8._numbersOnlyTrennzeichen = True - Me.MyTextBox8._Prozent = False - Me.MyTextBox8._ShortDateNew = False - Me.MyTextBox8._ShortDateOnly = False - Me.MyTextBox8._TimeOnly = False - Me.MyTextBox8._TimeOnly_Seconds = False - Me.MyTextBox8._value = "" - Me.MyTextBox8._Waehrung = False - Me.MyTextBox8._WaehrungZeichen = True - Me.MyTextBox8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.MyTextBox8.ForeColor = System.Drawing.Color.Black - Me.MyTextBox8.Location = New System.Drawing.Point(152, 64) - Me.MyTextBox8.MaxLineLength = -1 - Me.MyTextBox8.MaxLines_Warning = "" - Me.MyTextBox8.MaxLines_Warning_Label = Nothing - Me.MyTextBox8.Name = "MyTextBox8" - Me.MyTextBox8.Size = New System.Drawing.Size(288, 26) - Me.MyTextBox8.TabIndex = 26 - ' - 'Panel4 - ' - Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke - Me.Panel4.Controls.Add(Me.Button1) - Me.Panel4.Location = New System.Drawing.Point(461, 301) - Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(229, 118) - Me.Panel4.TabIndex = 28 - ' 'Label10 ' Me.Label10.AutoSize = True @@ -490,59 +570,295 @@ Partial Class frmATR Me.Label10.Text = "Bitte erfassen Sie die Daten vollständig, damit das ATR bei der Abfertigung gefun" & "den werden kann." ' - 'Label11 + 'Panel3 ' - Me.Label11.AutoSize = True - Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Italic) - Me.Label11.Location = New System.Drawing.Point(472, 233) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(101, 20) - Me.Label11.TabIndex = 29 - Me.Label11.Text = "Kennzeichen" - Me.Label11.Visible = False + Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Panel3.BackColor = System.Drawing.Color.FloralWhite + Me.Panel3.Controls.Add(Me.Label9) + Me.Panel3.Controls.Add(Me.cbxKurierPaketdienst) + Me.Panel3.Controls.Add(Me.txtErhaltenReferenz) + Me.Panel3.Controls.Add(Me.Label6) + Me.Panel3.Controls.Add(Me.cbxKurierMotorrad) + Me.Panel3.Controls.Add(Me.txtErhaltenDatum) + Me.Panel3.Controls.Add(Me.Label8) + Me.Panel3.Controls.Add(Me.Label7) + Me.Panel3.Controls.Add(Me.txtErhaltenUhrzeit) + Me.Panel3.Location = New System.Drawing.Point(0, 470) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(462, 118) + Me.Panel3.TabIndex = 98 ' - 'Label12 + 'Label9 ' - Me.Label12.AutoSize = True - Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Italic) - Me.Label12.Location = New System.Drawing.Point(472, 255) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(65, 20) - Me.Label12.TabIndex = 30 - Me.Label12.Text = "LKW-ID" - Me.Label12.Visible = False + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label9.Location = New System.Drawing.Point(9, 67) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(104, 20) + Me.Label9.TabIndex = 27 + Me.Label9.Text = "Referenz-Nr.:" ' - 'MySearchBox1 + 'cbxKurierPaketdienst ' - Me.MySearchBox1._allowFreitext = False - Me.MySearchBox1._AllowSetValue = False - Me.MySearchBox1._allowSpaceAsSplitter = False - Me.MySearchBox1._autoSizeGross = False - Me.MySearchBox1._hideIfListEmpty = True - Me.MySearchBox1._value = Nothing - Me.MySearchBox1.conn_art = "FMZOLL" - Me.MySearchBox1.dgvpos = "LEFT" - Me.MySearchBox1.DISPLAY_PARAM = Nothing - Me.MySearchBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.MySearchBox1.INVISIBLE_COLUMNS = Nothing - Me.MySearchBox1.key_visible = False - Me.MySearchBox1.KEYPARAM = Nothing - Me.MySearchBox1.Location = New System.Drawing.Point(152, 227) - Me.MySearchBox1.Name = "MySearchBox1" - Me.MySearchBox1.searchActive = True - Me.MySearchBox1.Size = New System.Drawing.Size(288, 26) - Me.MySearchBox1.SQL_ORDER_BY = Nothing - Me.MySearchBox1.SQL_SELECT = Nothing - Me.MySearchBox1.SQL_WHERE = Nothing - Me.MySearchBox1.SQL_WhereParamList = Nothing - Me.MySearchBox1.TabIndex = 31 - Me.MySearchBox1.usrcntl = Nothing + Me.cbxKurierPaketdienst.AutoSize = True + Me.cbxKurierPaketdienst.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.cbxKurierPaketdienst.Location = New System.Drawing.Point(300, 91) + Me.cbxKurierPaketdienst.Name = "cbxKurierPaketdienst" + Me.cbxKurierPaketdienst.Size = New System.Drawing.Size(155, 21) + Me.cbxKurierPaketdienst.TabIndex = 5 + Me.cbxKurierPaketdienst.Text = "Paketdienst (DHL,..)" + Me.cbxKurierPaketdienst.UseVisualStyleBackColor = True + ' + 'txtErhaltenReferenz + ' + Me.txtErhaltenReferenz._DateTimeOnly = False + Me.txtErhaltenReferenz._numbersOnly = False + Me.txtErhaltenReferenz._numbersOnlyKommastellen = "" + Me.txtErhaltenReferenz._numbersOnlyTrennzeichen = True + Me.txtErhaltenReferenz._Prozent = False + Me.txtErhaltenReferenz._ShortDateNew = False + Me.txtErhaltenReferenz._ShortDateOnly = False + Me.txtErhaltenReferenz._TimeOnly = False + Me.txtErhaltenReferenz._TimeOnly_Seconds = False + Me.txtErhaltenReferenz._value = "" + Me.txtErhaltenReferenz._Waehrung = False + Me.txtErhaltenReferenz._WaehrungZeichen = True + Me.txtErhaltenReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtErhaltenReferenz.ForeColor = System.Drawing.Color.Black + Me.txtErhaltenReferenz.Location = New System.Drawing.Point(156, 64) + Me.txtErhaltenReferenz.MaxLineLength = -1 + Me.txtErhaltenReferenz.MaxLines_Warning = "" + Me.txtErhaltenReferenz.MaxLines_Warning_Label = Nothing + Me.txtErhaltenReferenz.Name = "txtErhaltenReferenz" + Me.txtErhaltenReferenz.Size = New System.Drawing.Size(288, 26) + Me.txtErhaltenReferenz.TabIndex = 3 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Underline) + Me.Label6.Location = New System.Drawing.Point(9, 13) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(149, 20) + Me.Label6.TabIndex = 18 + Me.Label6.Text = "Dokument erhalten:" + ' + 'cbxKurierMotorrad + ' + Me.cbxKurierMotorrad.AutoSize = True + Me.cbxKurierMotorrad.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.cbxKurierMotorrad.Location = New System.Drawing.Point(156, 91) + Me.cbxKurierMotorrad.Name = "cbxKurierMotorrad" + Me.cbxKurierMotorrad.Size = New System.Drawing.Size(127, 21) + Me.cbxKurierMotorrad.TabIndex = 4 + Me.cbxKurierMotorrad.Text = "Motorrad-Kurier" + Me.cbxKurierMotorrad.UseVisualStyleBackColor = True + ' + 'txtErhaltenDatum + ' + Me.txtErhaltenDatum._DateTimeOnly = False + Me.txtErhaltenDatum._numbersOnly = False + Me.txtErhaltenDatum._numbersOnlyKommastellen = "" + Me.txtErhaltenDatum._numbersOnlyTrennzeichen = True + Me.txtErhaltenDatum._Prozent = False + Me.txtErhaltenDatum._ShortDateNew = True + Me.txtErhaltenDatum._ShortDateOnly = False + Me.txtErhaltenDatum._TimeOnly = False + Me.txtErhaltenDatum._TimeOnly_Seconds = False + Me.txtErhaltenDatum._value = "" + Me.txtErhaltenDatum._Waehrung = False + Me.txtErhaltenDatum._WaehrungZeichen = True + Me.txtErhaltenDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtErhaltenDatum.ForeColor = System.Drawing.Color.Black + Me.txtErhaltenDatum.Location = New System.Drawing.Point(156, 39) + Me.txtErhaltenDatum.MaxLength = 10 + Me.txtErhaltenDatum.MaxLineLength = -1 + Me.txtErhaltenDatum.MaxLines_Warning = "" + Me.txtErhaltenDatum.MaxLines_Warning_Label = Nothing + Me.txtErhaltenDatum.Name = "txtErhaltenDatum" + Me.txtErhaltenDatum.Size = New System.Drawing.Size(145, 26) + Me.txtErhaltenDatum.TabIndex = 1 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label8.Location = New System.Drawing.Point(9, 92) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(34, 20) + Me.Label8.TabIndex = 22 + Me.Label8.Text = "Art:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.Label7.Location = New System.Drawing.Point(9, 42) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(116, 20) + Me.Label7.TabIndex = 19 + Me.Label7.Text = "Datum/Uhrzeit:" + ' + 'txtErhaltenUhrzeit + ' + Me.txtErhaltenUhrzeit._DateTimeOnly = False + Me.txtErhaltenUhrzeit._numbersOnly = False + Me.txtErhaltenUhrzeit._numbersOnlyKommastellen = "" + Me.txtErhaltenUhrzeit._numbersOnlyTrennzeichen = True + Me.txtErhaltenUhrzeit._Prozent = False + Me.txtErhaltenUhrzeit._ShortDateNew = False + Me.txtErhaltenUhrzeit._ShortDateOnly = False + Me.txtErhaltenUhrzeit._TimeOnly = True + Me.txtErhaltenUhrzeit._TimeOnly_Seconds = False + Me.txtErhaltenUhrzeit._value = "" + Me.txtErhaltenUhrzeit._Waehrung = False + Me.txtErhaltenUhrzeit._WaehrungZeichen = True + Me.txtErhaltenUhrzeit.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.txtErhaltenUhrzeit.ForeColor = System.Drawing.Color.Black + Me.txtErhaltenUhrzeit.Location = New System.Drawing.Point(300, 39) + Me.txtErhaltenUhrzeit.MaxLength = 8 + Me.txtErhaltenUhrzeit.MaxLineLength = -1 + Me.txtErhaltenUhrzeit.MaxLines_Warning = "" + Me.txtErhaltenUhrzeit.MaxLines_Warning_Label = Nothing + Me.txtErhaltenUhrzeit.Name = "txtErhaltenUhrzeit" + Me.txtErhaltenUhrzeit.Size = New System.Drawing.Size(144, 26) + Me.txtErhaltenUhrzeit.TabIndex = 2 + ' + 'Panel4 + ' + Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel4.Controls.Add(Me.Button1) + Me.Panel4.Controls.Add(Me.btnSave) + Me.Panel4.Location = New System.Drawing.Point(461, 470) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(197, 118) + Me.Panel4.TabIndex = 99 + ' + 'Button1 + ' + Me.Button1.BackColor = System.Drawing.Color.White + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Button1.Image = Global.SDL.My.Resources.Resources.del_small + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(12, 83) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(175, 30) + Me.Button1.TabIndex = 3 + Me.Button1.Text = "Abbrechen " + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = False + ' + 'btnSave + ' + Me.btnSave.BackColor = System.Drawing.Color.White + Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.btnSave.Image = Global.SDL.My.Resources.Resources.save + Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSave.Location = New System.Drawing.Point(12, 7) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(175, 72) + Me.btnSave.TabIndex = 2 + Me.btnSave.Text = "Speichern " + Me.btnSave.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnSave.UseVisualStyleBackColor = False + ' + 'FlatButton4 + ' + Me.FlatButton4.allowBorder = False + Me.FlatButton4.BackgroundImage = CType(resources.GetObject("FlatButton4.BackgroundImage"), System.Drawing.Image) + Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton4.FlatAppearance.BorderSize = 0 + Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton4.ForeColor = System.Drawing.Color.Black + Me.FlatButton4.Location = New System.Drawing.Point(419, 150) + Me.FlatButton4.Name = "FlatButton4" + Me.FlatButton4.Size = New System.Drawing.Size(26, 26) + Me.FlatButton4.TabIndex = 98 + Me.FlatButton4.TabStop = False + Me.FlatButton4.UseVisualStyleBackColor = True + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.BackgroundImage = CType(resources.GetObject("FlatButton1.BackgroundImage"), System.Drawing.Image) + Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Location = New System.Drawing.Point(419, 175) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(26, 26) + Me.FlatButton1.TabIndex = 99 + Me.FlatButton1.TabStop = False + Me.FlatButton1.UseVisualStyleBackColor = True + ' + 'txtInfo + ' + Me.txtInfo.Location = New System.Drawing.Point(157, 366) + Me.txtInfo.Name = "txtInfo" + Me.txtInfo.Size = New System.Drawing.Size(491, 84) + Me.txtInfo.TabIndex = 9 + Me.txtInfo.Text = "" + ' + 'lblErr_Ausstellungsdatum + ' + Me.lblErr_Ausstellungsdatum.AutoSize = True + Me.lblErr_Ausstellungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) + Me.lblErr_Ausstellungsdatum.ForeColor = System.Drawing.Color.Red + Me.lblErr_Ausstellungsdatum.Location = New System.Drawing.Point(389, 126) + Me.lblErr_Ausstellungsdatum.Name = "lblErr_Ausstellungsdatum" + Me.lblErr_Ausstellungsdatum.Size = New System.Drawing.Size(56, 13) + Me.lblErr_Ausstellungsdatum.TabIndex = 106 + Me.lblErr_Ausstellungsdatum.Text = "Pflichtfeld!" + Me.lblErr_Ausstellungsdatum.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErr_Ausstellungsdatum.Visible = False + ' + 'lblErr_DocNr + ' + Me.lblErr_DocNr.AutoSize = True + Me.lblErr_DocNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) + Me.lblErr_DocNr.ForeColor = System.Drawing.Color.Red + Me.lblErr_DocNr.Location = New System.Drawing.Point(388, 53) + Me.lblErr_DocNr.Name = "lblErr_DocNr" + Me.lblErr_DocNr.Size = New System.Drawing.Size(56, 13) + Me.lblErr_DocNr.TabIndex = 107 + Me.lblErr_DocNr.Text = "Pflichtfeld!" + Me.lblErr_DocNr.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErr_DocNr.Visible = False + ' + 'lblErr_Aufbewarungsort + ' + Me.lblErr_Aufbewarungsort.AutoSize = True + Me.lblErr_Aufbewarungsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) + Me.lblErr_Aufbewarungsort.ForeColor = System.Drawing.Color.Red + Me.lblErr_Aufbewarungsort.Location = New System.Drawing.Point(388, 327) + Me.lblErr_Aufbewarungsort.Name = "lblErr_Aufbewarungsort" + Me.lblErr_Aufbewarungsort.Size = New System.Drawing.Size(56, 13) + Me.lblErr_Aufbewarungsort.TabIndex = 108 + Me.lblErr_Aufbewarungsort.Text = "Pflichtfeld!" + Me.lblErr_Aufbewarungsort.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErr_Aufbewarungsort.Visible = False + ' + 'PictureBox6 + ' + Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBox6.Location = New System.Drawing.Point(640, 0) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(18, 19) + Me.PictureBox6.TabIndex = 134 + Me.PictureBox6.TabStop = False ' 'frmATR ' + Me.AllowDrop = True Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(658, 419) + Me.ClientSize = New System.Drawing.Size(658, 588) Me.Controls.Add(Me.Panel1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmATR" @@ -556,6 +872,7 @@ Partial Class frmATR Me.Panel3.ResumeLayout(False) Me.Panel3.PerformLayout() Me.Panel4.ResumeLayout(False) + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -563,32 +880,50 @@ Partial Class frmATR Friend WithEvents Panel1 As Panel Friend WithEvents PictureBox1 As PictureBox Friend WithEvents Label1 As Label - Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Button1 As Button + Friend WithEvents txtDocNumber As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnSave As Button Friend WithEvents Panel2 As Panel - Friend WithEvents Button2 As Button + Friend WithEvents btnScan As Button Friend WithEvents Label2 As Label - Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Button3 As Button + Friend WithEvents txtDocDatum As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnUpload As Button Friend WithEvents Label8 As Label - Friend WithEvents MyTextBox9 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtErhaltenUhrzeit As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label7 As Label Friend WithEvents Label6 As Label - Friend WithEvents MyTextBox7 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents MyTextBox6 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtErhaltenDatum As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAbfNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label5 As Label - Friend WithEvents MyTextBox5 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtFiliale As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label4 As Label Friend WithEvents Label3 As Label - Friend WithEvents MyTextBox3 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Panel3 As Panel - Friend WithEvents CheckBox2 As CheckBox - Friend WithEvents CheckBox1 As CheckBox + Friend WithEvents cbxKurierPaketdienst As CheckBox + Friend WithEvents cbxKurierMotorrad As CheckBox Friend WithEvents Label9 As Label - Friend WithEvents MyTextBox8 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtErhaltenReferenz As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Panel4 As Panel Friend WithEvents Label10 As Label + Friend WithEvents lblLKWId As Label + Friend WithEvents sbAvisoSuche As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label13 As Label + Friend WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents txtEmpfaenger As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents Button1 As Button + Friend WithEvents FlatButton4 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents txtLocation As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label12 As Label Friend WithEvents Label11 As Label - Friend WithEvents MySearchBox1 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents txtInfo As RichTextBox + Friend WithEvents Button2 As Button + Friend WithEvents txtKennzeichen As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label14 As Label + Friend WithEvents Button5 As Button + Friend WithEvents Button4 As Button + Friend WithEvents Button3 As Button + Friend WithEvents lblErr_Aufbewarungsort As Label + Friend WithEvents lblErr_DocNr As Label + Friend WithEvents lblErr_Ausstellungsdatum As Label + Friend WithEvents PictureBox6 As PictureBox End Class diff --git a/SDL/OriginalArchiv_ATR/frmATR.resx b/SDL/OriginalArchiv_ATR/frmATR.resx index d584bd9e..001510a1 100644 --- a/SDL/OriginalArchiv_ATR/frmATR.resx +++ b/SDL/OriginalArchiv_ATR/frmATR.resx @@ -118,6 +118,38 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB + AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID + BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA + GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA + AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA + AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM + w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 + VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl + CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv + 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ + ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 + KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z + + + + + /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB + AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID + BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA + GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA + AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA + AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM + w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 + VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl + CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv + 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ + ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 + KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/SDL/OriginalArchiv_ATR/frmATR.vb b/SDL/OriginalArchiv_ATR/frmATR.vb index 8aa695ab..9862000b 100644 --- a/SDL/OriginalArchiv_ATR/frmATR.vb +++ b/SDL/OriginalArchiv_ATR/frmATR.vb @@ -1,5 +1,469 @@ -Public Class frmATR +Imports DocumentFormat.OpenXml.Drawing.Charts +Imports System.IO +Imports System.Windows.Controls.Primitives +Imports VERAG_PROG_ALLGEMEIN + + + + + +'DATENSERVER!!!!!!!!!!!!!!!!!! + +Public Class frmATR + + Dim ATR As VERAG_PROG_ALLGEMEIN.cOrigianlATR = Nothing + Dim loadedDSID As Integer = -1 + Dim DSID As Integer = -1 + + Sub New() + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + Sub New(atr_id) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + ATR = New VERAG_PROG_ALLGEMEIN.cOrigianlATR(atr_id) + loadedDSID = ATR.atr_dsId + End Sub + Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint End Sub + + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + 'If ATR IsNot Nothing Then + ' If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löchen?", vbYesNoCancel) Then + ' If ATR.delete Then + ' Me.Close() + ' End If + ' End If + 'End If + Me.Close() + End Sub + + Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click + + If doValidation() Then + If ATR Is Nothing Then + ATR = New cOrigianlATR() + ATR.atr_erfassungsdatum = Now + ATR.atr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + ATR.atr_mitId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + + End If + + getValues() + + 'Falls keine Sendung gewählt, aber FilialeNr/AbfertigungsNr eingegeben: + If ATR.atr_SendungsId <= 0 And ATR.atr_FilialenNr > 0 And ATR.atr_AbfertigungsNr > 0 Then + 'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(ATR.atr_FilialenNr, ATR.atr_AbfertigungsNr) + If SND IsNot Nothing Then + ATR.atr_SendungsId = SND.tblSnd_SendungID + ATR.atr_AvisoId = SND.tblSnd_AvisoID + End If + End If + + If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_anhID > 0) Or (loadedDSID <> DSID And loadedDSID > 0) Then + If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then + If ATR.atr_dsId < 0 Then + MsgBox("Kein PDF-Anhang!") + Else + Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(ATR.atr_anhID) + ANH.anh_SendungsId = ATR.atr_SendungsId + ANH.anh_AvisoId = ATR.atr_AvisoId + ANH.anh_docId = DSID + ANH.anh_Name = "ATR_ARCHIV" + ANH.anh_Typ = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getFilePathTypeValid(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(DSID)) + ANH.anh_Art = "ATR" + ANH.SAVE() 'Eintrag wird überschreiben + ATR.atr_anhID = ANH.anh_id + + End If + End If + End If + + If ATR.SAVE Then + Me.Close() + Exit Sub + End If + + End If + Me.DialogResult = DialogResult.None + End Sub + + + Function doValidation() As Boolean + lblErr_Ausstellungsdatum.Visible = False + lblErr_DocNr.Visible = False + lblErr_Aufbewarungsort.Visible = False + + If txtDocNumber.Text.Trim = "" Then lblErr_Ausstellungsdatum.Visible = True : Return False + If txtDocDatum._value = "" Then lblErr_DocNr.Visible = True : Return False + If txtLocation._value = "" Then lblErr_Aufbewarungsort.Visible = True : Return False + + Return True + End Function + + + + + Sub loadValues() + + If ATR.atr_empfaengerkdnr > -1 Then + txtEmpfaenger.KdNr = ATR.atr_empfaengerkdnr + Else + txtEmpfaenger.KdNr_value = -1 + txtEmpfaenger.Text = ATR.atr_empfaenger + End If + + If ATR.atr_absenderkdnr > -1 Then + txtAbsender.KdNr = ATR.atr_absenderkdnr + Else + txtAbsender.KdNr_value = -1 + txtAbsender.Text = ATR.atr_absender + End If + + txtLocation.Text = If(ATR.atr_location, "") + txtInfo.Text = If(ATR.atr_info, "") + + DSID = ATR.atr_dsId + togglePDFPic() + txtDocNumber.Text = If(ATR.atr_documentNr, "") + txtDocDatum._value = If(ATR.atr_austellungsdatum, "") + txtKennzeichen.Text = If(ATR.atr_LKW, "") + txtFiliale.Text = If(ATR.atr_FilialenNr > 0, ATR.atr_FilialenNr, "") + txtAbfNr.Text = If(ATR.atr_AbfertigungsNr > 0, ATR.atr_AbfertigungsNr, "") + + sbAvisoSuche.SET_VALUE(ATR.atr_SendungsId) + + If ATR.atr_erhalenDatum IsNot Nothing Then + txtErhaltenDatum._value = CDate(ATR.atr_erhalenDatum).ToShortDateString + txtErhaltenUhrzeit._value = CDate(ATR.atr_erhalenDatum).ToShortTimeString + End If + + txtErhaltenReferenz.Text = If(ATR.atr_DHL_ReferenzNr, "") + Select Case If(ATR.atr_erhalten_Art, "") + Case "PAKETDIENST" : cbxKurierPaketdienst.Checked = True + Case "MOTORRAD" : cbxKurierMotorrad.Checked = True + End Select + End Sub + Sub getValues() + + ATR.atr_documentNr = txtDocNumber.Text + ATR.atr_austellungsdatum = txtDocDatum._value + 'ATR.atr_erfassungsdatum = Now + ATR.atr_absender = txtAbsender.KdName + ATR.atr_absenderkdnr = txtAbsender.KdNr + ATR.atr_empfaenger = txtEmpfaenger.KdName + ATR.atr_empfaengerkdnr = txtEmpfaenger.KdNr + ATR.atr_location = txtLocation.Text + ATR.atr_info = txtInfo.Text + ATR.atr_dsId = DSID + If txtFiliale._value <> "" Then ATR.atr_FilialenNr = txtFiliale._value + If txtAbfNr._value <> "" Then ATR.atr_AbfertigungsNr = txtAbfNr._value + ATR.atr_LKW = txtKennzeichen.Text + + ATR.atr_SendungsId = sbAvisoSuche._value + If sbAvisoSuche._value <> "" Then + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + ATR.atr_AvisoId = SQL.DLookup("tblSnd_AvisoId", "tblSendungen", " tblSnd_SendungID='" & sbAvisoSuche._value & "'", "AVISO", -1) + End If + + + + If txtErhaltenDatum._value <> "" Then + If txtErhaltenUhrzeit._value <> "" Then + ATR.atr_erhalenDatum = CDate(txtErhaltenDatum._value & " " & txtErhaltenUhrzeit._value) + Else + ATR.atr_erhalenDatum = CDate(txtErhaltenDatum._value) + End If + End If + ATR.atr_DHL_ReferenzNr = txtErhaltenReferenz.Text + + If cbxKurierPaketdienst.Checked Then ATR.atr_erhalten_Art = "PAKETDIENST" + If cbxKurierMotorrad.Checked Then ATR.atr_erhalten_Art = "MOTORRAD" + + + End Sub + Private Sub frmATR_Load(sender As Object, e As EventArgs) Handles Me.Load + txtAbsender.initKdBox(Me) + + txtEmpfaenger.initKdBox(Me) + + 'sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID],LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + ' sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " (Datum >= '" & Now.AddDays(-30).ToShortDateString & "') ", "Datum DESC", "tblSnd_SendungID", "Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr", "AVISO", False, 600, 300) + sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,LKW_Nr + ' ' +cast(FilialenNr as varchar(4)) +'/'+cast(AbfertigungsNr as varchar(8))as display FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' /* AND (Datum >= '" & Now.AddDays(-30).ToShortDateString & "') */ ", " Datum DESC", "tblSnd_SendungID", "display", "AVISO", False, 600, 300) + + + If ATR IsNot Nothing Then + loadValues() + Else + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then + txtLocation.Text = "VERIMEX" + End If + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "VRR" Then + txtLocation.Text = "VERRECHNUNG" + End If + + End If + + + AddHandler txtAbsender.PropertyChanged, Sub() + FlatButton4.BackgroundImage = IIf(txtAbsender.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) + ' ATR.atr_absender = txtAbsender.Text + ' ATR.atr_absenderKdNr = txtAbsender.KdNr + + End Sub + + + AddHandler txtEmpfaenger.PropertyChanged, Sub() + FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) + 'ATR.atr_empfaenger = txtEmpfaenger.Text + 'ATR.atr_empfaengerKdNr = txtEmpfaenger.KdNr + + End Sub + + + togglePDFPic() + End Sub + + Sub togglePDFPic() + If DSID > 0 Then + PictureBox1.BackgroundImage = My.Resources.pdf + Else + PictureBox1.BackgroundImage = My.Resources.pdf_gray + End If + End Sub + Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click + If txtAbsender.KdNr > 0 Then + Me.Cursor = Cursors.WaitCursor + + Dim zoll As New SDL.frmKundenUebersichtZOLL(txtAbsender.KdNr) + If zoll IsNot Nothing Then zoll.Show() + + Me.Cursor = Cursors.Default + End If + End Sub + Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click + If txtEmpfaenger.KdNr > 0 Then + Me.Cursor = Cursors.WaitCursor + + Dim zoll As New SDL.frmKundenUebersichtZOLL(txtEmpfaenger.KdNr) + If zoll IsNot Nothing Then zoll.Show() + + Me.Cursor = Cursors.Default + End If + End Sub + + Private Sub sbAvisoSuche_TextChanged() Handles sbAvisoSuche.VALUE_CHANGED + txtFiliale.Text = "" + txtAbfNr.Text = "" + Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(sbAvisoSuche._value) + If SND IsNot Nothing Then + Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(SND.tblSnd_AvisoID) + txtFiliale.Text = SND.FilialenNr + txtAbfNr.Text = SND.AbfertigungsNr + lblLKWId.Text = SND.tblSnd_AvisoID + If AVISO IsNot Nothing Then + txtKennzeichen.Text = AVISO.LKW_Nr + End If + ' lblKennzeichen.Visible = True + lblLKWId.Visible = True + End If + End Sub + + Private Sub btnScan_Click(sender As Object, e As EventArgs) Handles btnScan.Click + quickScan() + togglePDFPic() + End Sub + + Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click + If DSID > 0 Then + Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(DSID) + If path <> "" Then Process.Start(path) + 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.OPEN_PATH(DSID) + + End If + End Sub + + Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click + addData_AnhangFD() + togglePDFPic() + End Sub + + Public Sub addData_AnhangFD() + Dim fd As New OpenFileDialog + fd.Multiselect = False + + If fd.ShowDialog = vbOK Then + ' For Each F_listItem In fd.FileNames + + Dim fi As New FileInfo(fd.FileName) + Dim filename = fi.Name + If filename = "" Then + MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & fd.FileName) + Else + + ' Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(filename, fi.Extension,, False, "SendungsAnhaenge") + ' MsgBox(TMP_Path) + ' File.Copy(F_listItem, TMP_Path) + Dim anhId = -1 + Dim destPath = "" + + Dim Typ = "" + If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then + If saveToDS(filename, fd.FileName, "ATR", Typ, DSID, anhId, destPath) Then + + End If + + End If + End If + 'Next + ' If flpnlAviso.Controls.Count > 0 Then DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me() + End If + End Sub + + Public Shared Function getFileTypeValid(extension, ByRef Typ) As Boolean + Select Case extension.ToString.Replace(".", "").ToUpper + Case "PDF" : Typ = "PDF" + Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL" + Case "DOC", "DOCX" : Typ = "WORD" + Case "TXT" : Typ = "TEXT" + Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD" + Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False + Case Else : Typ = "SONSTIGES" + End Select + Return True + End Function + + Public Shared Function saveToDS(ByRef fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean + fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName) + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ORIGINAL_ATR_ARCHIV", Now.Year, Now.ToString("ddMMyy"), "", Now.ToString("ddMMyyHHmmss") & fileName, -1, False) + If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False + If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False + + da_id = DS.da_id + destPath = DS.GET_TOP1_PATH + Dim fi As New FileInfo(sourcePath) + Return True + End Function + + Public Function quickScan(Optional SendungsId = Nothing) As Boolean + Try + 'If KdNr < 0 Then Exit Sub + Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("QuickScan") + frmScan.DefaultFileName = "ScanATR" & Now.ToString("ddMMyyyy_HHmmss") ' Me._TEXT_PDF + + If frmScan.ShowDialog() = DialogResult.OK Then + If frmScan.ReturnValue IsNot Nothing Then + Dim Filename = frmScan.fileName + Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(Filename, ".pdf",, False, "SendungsAnhaenge") + File.WriteAllBytes(TMP_Path, frmScan.ReturnValue) + + Dim anhId = -1 + Dim destPath = "" + If saveToDS(Filename, TMP_Path, "ATR", "PDF", DSID, anhId, destPath, SendungsId) Then + Return True + End If + 'addUsrcnlToPnl(TMP_Path) + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan") + End Try + Return False + End Function + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Dim data As IDataObject = Clipboard.GetDataObject + If True Then 'data.GetDataPresent(DataFormats.FileDrop) Then + For Each s As String In My.Computer.Clipboard.GetFileDropList() 'GetData(DataFormats.) 'data.GetData(DataFormats.FileDrop) 'DataFormats.FileDrop) + ' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s)) + ' File.Copy(s, newFile) + ' MsgBox(s) + If System.IO.File.Exists(s) Then + + Dim fi As New FileInfo(s) + Dim filename = fi.Name + If filename = "" Then + MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & s) + Else + + Dim anhId = -1 + Dim destPath = "" + + Dim Typ = "" + If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then + If saveToDS(filename, s, "ATR", Typ, DSID, anhId, destPath) Then + MsgBox("Dokument wurde hochgeladen.") + End If + End If + End If + End If + Next + + End If + togglePDFPic() + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + txtLocation.Text = "VERIMEX" + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + txtLocation.Text = "VERRECHNUNG" + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + txtLocation.Text = "FRONT-OFFICE" + End Sub + + Private Sub Panel1_DragDrop(sender As Object, e As DragEventArgs) Handles Panel1.DragDrop, PictureBox1.DragDrop + + Try + Dim added = False + + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + Dim files() As String = e.Data.GetData(DataFormats.FileDrop) + + If files.Count > 1 Then + MsgBox("Nur eine Datei möglich!") + ElseIf files.Count > 0 Then + If files(0) <> "" Then + Dim fio As New System.IO.FileInfo(files(0)) + If saveToDS(fio.Name, files(0), "ATR", "", DSID) Then + MsgBox("Dokument wurde hochgeladen.") + End If + End If + End If + + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then + Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e) + If FilePath <> "" Then + Dim fio As New System.IO.FileInfo(FilePath) + If saveToDS(fio.Name, FilePath, "ATR", "", DSID) Then + MsgBox("Dokument wurde hochgeladen.") + End If + End If + End If + + + + togglePDFPic() + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Sub + + Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click + Dim webAddress As String = "https://wiki.verag.ag/de/software/aviso/howtos/ATRArchiv" + Process.Start(webAddress) + End Sub End Class \ No newline at end of file diff --git a/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.Designer.vb b/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.Designer.vb index 983e526c..4eb7ddeb 100644 --- a/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.Designer.vb +++ b/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.Designer.vb @@ -25,19 +25,12 @@ Partial Class frmOriginalArchiv_ATR Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmOriginalArchiv_ATR)) Me.pnl = New System.Windows.Forms.Panel() - Me.txtInAuftrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() - Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label5 = New System.Windows.Forms.Label() - Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label6 = New System.Windows.Forms.Label() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label3 = New System.Windows.Forms.Label() - Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboSachbearbeiterQS = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button7 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() @@ -59,39 +52,56 @@ Partial Class frmOriginalArchiv_ATR Me.Label12 = New System.Windows.Forms.Label() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.Panel1 = New System.Windows.Forms.Panel() - Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Button2 = New System.Windows.Forms.Button() Me.pnloptions = New System.Windows.Forms.Panel() - Me.btn = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.btnDel = New System.Windows.Forms.Button() Me.btnExcel = New System.Windows.Forms.Button() Me.FlatButton7 = New System.Windows.Forms.Button() Me.lblErgebnis = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label() + Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSB = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtDocumetNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFEmpfänger = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtLKWKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnSendungKoppeln = New System.Windows.Forms.Button() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() Me.pnl.SuspendLayout() Me.pnlTop.SuspendLayout() Me.Panel1.SuspendLayout() - CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnloptions.SuspendLayout() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl ' Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnl.Controls.Add(Me.txtInAuftrag) + Me.pnl.Controls.Add(Me.txtSuche) + Me.pnl.Controls.Add(Me.Label9) + Me.pnl.Controls.Add(Me.txtSB) + Me.pnl.Controls.Add(Me.txtDocumetNummer) + Me.pnl.Controls.Add(Me.Label8) + Me.pnl.Controls.Add(Me.txtAbsender) Me.pnl.Controls.Add(Me.Label7) Me.pnl.Controls.Add(Me.txtReferenz) Me.pnl.Controls.Add(Me.Label5) - Me.pnl.Controls.Add(Me.txtFirma) + Me.pnl.Controls.Add(Me.txtFEmpfänger) Me.pnl.Controls.Add(Me.Label6) - Me.pnl.Controls.Add(Me.MyTextBox1) + Me.pnl.Controls.Add(Me.txtLKWKennzeichen) Me.pnl.Controls.Add(Me.Label3) Me.pnl.Controls.Add(Me.txtAbfertDat) Me.pnl.Controls.Add(Me.txtAbfertDatBis) - Me.pnl.Controls.Add(Me.cboSachbearbeiterQS) Me.pnl.Controls.Add(Me.cboFiliale) Me.pnl.Controls.Add(Me.txtAbfertigungsnummer) Me.pnl.Controls.Add(Me.Button7) @@ -115,46 +125,553 @@ Partial Class frmOriginalArchiv_ATR Me.pnl.Controls.Add(Me.DateTimePicker1) Me.pnl.Dock = System.Windows.Forms.DockStyle.Top Me.pnl.Location = New System.Drawing.Point(0, 0) - Me.pnl.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(1696, 199) + Me.pnl.Size = New System.Drawing.Size(1419, 171) Me.pnl.TabIndex = 0 ' - 'txtInAuftrag + 'Label9 ' - Me.txtInAuftrag._DateTimeOnly = False - Me.txtInAuftrag._numbersOnly = False - Me.txtInAuftrag._numbersOnlyKommastellen = "" - Me.txtInAuftrag._numbersOnlyTrennzeichen = True - Me.txtInAuftrag._Prozent = False - Me.txtInAuftrag._ShortDateNew = False - Me.txtInAuftrag._ShortDateOnly = False - Me.txtInAuftrag._TimeOnly = False - Me.txtInAuftrag._TimeOnly_Seconds = False - Me.txtInAuftrag._value = Nothing - Me.txtInAuftrag._Waehrung = False - Me.txtInAuftrag._WaehrungZeichen = True - Me.txtInAuftrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtInAuftrag.ForeColor = System.Drawing.Color.Black - Me.txtInAuftrag.Location = New System.Drawing.Point(888, 164) - Me.txtInAuftrag.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.txtInAuftrag.MaxLineLength = -1 - Me.txtInAuftrag.MaxLines_Warning = "" - Me.txtInAuftrag.MaxLines_Warning_Label = Nothing - Me.txtInAuftrag.Name = "txtInAuftrag" - Me.txtInAuftrag.Size = New System.Drawing.Size(303, 23) - Me.txtInAuftrag.TabIndex = 72 + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(337, 59) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(47, 13) + Me.Label9.TabIndex = 76 + Me.Label9.Text = "Suche:" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(609, 59) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(113, 13) + Me.Label8.TabIndex = 73 + Me.Label8.Text = "Dokument-Nummer" ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.Location = New System.Drawing.Point(809, 167) - Me.Label7.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label7.Location = New System.Drawing.Point(607, 136) Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(67, 17) + Me.Label7.Size = New System.Drawing.Size(52, 13) Me.Label7.TabIndex = 71 - Me.Label7.Text = "Avisierer:" + Me.Label7.Text = "Absender" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(335, 136) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(53, 13) + Me.Label5.TabIndex = 69 + Me.Label5.Text = "Referenz:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(607, 113) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(61, 13) + Me.Label6.TabIndex = 67 + Me.Label6.Text = "Empfänger:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(335, 113) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(34, 13) + Me.Label3.TabIndex = 65 + Me.Label3.Text = "LKW:" + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button7.ForeColor = System.Drawing.Color.Black + Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.Location = New System.Drawing.Point(281, 51) + Me.Button7.Margin = New System.Windows.Forms.Padding(0) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(34, 23) + Me.Button7.TabIndex = 45 + Me.Button7.Text = ">>" + Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button6.ForeColor = System.Drawing.Color.Black + Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.Location = New System.Drawing.Point(162, 51) + Me.Button6.Margin = New System.Windows.Forms.Padding(0) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(34, 23) + Me.Button6.TabIndex = 41 + Me.Button6.Text = "<<" + Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button5.ForeColor = System.Drawing.Color.Black + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.Location = New System.Drawing.Point(195, 51) + Me.Button5.Margin = New System.Windows.Forms.Padding(0) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(87, 23) + Me.Button5.TabIndex = 43 + Me.Button5.Text = "Heute" + Me.Button5.UseVisualStyleBackColor = True + ' + 'btnSuche + ' + Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search + Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSuche.Location = New System.Drawing.Point(1230, 72) + Me.btnSuche.Name = "btnSuche" + Me.btnSuche.Size = New System.Drawing.Size(162, 52) + Me.btnSuche.TabIndex = 61 + Me.btnSuche.Text = "Suche starten" + Me.btnSuche.UseVisualStyleBackColor = True + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(12, 109) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(23, 13) + Me.Label23.TabIndex = 38 + Me.Label23.Text = "bis:" + ' + 'btnJahr + ' + Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnJahr.ForeColor = System.Drawing.Color.Black + Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnJahr.Location = New System.Drawing.Point(195, 103) + Me.btnJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnJahr.Name = "btnJahr" + Me.btnJahr.Size = New System.Drawing.Size(87, 23) + Me.btnJahr.TabIndex = 51 + Me.btnJahr.Text = "2016" + Me.btnJahr.UseVisualStyleBackColor = True + ' + 'pnlTop + ' + Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnlTop.Controls.Add(Me.PictureBox6) + Me.pnlTop.Controls.Add(Me.Label4) + Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlTop.Location = New System.Drawing.Point(0, 0) + Me.pnlTop.Name = "pnlTop" + Me.pnlTop.Size = New System.Drawing.Size(1417, 48) + Me.pnlTop.TabIndex = 34 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.ForeColor = System.Drawing.Color.White + Me.Label4.Location = New System.Drawing.Point(10, 13) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(252, 26) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "Originale-Archiv (ATR)" + ' + 'btnBisJahr + ' + Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisJahr.ForeColor = System.Drawing.Color.Black + Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.Location = New System.Drawing.Point(281, 103) + Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisJahr.Name = "btnBisJahr" + Me.btnBisJahr.Size = New System.Drawing.Size(34, 23) + Me.btnBisJahr.TabIndex = 52 + Me.btnBisJahr.Text = ">>" + Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.UseVisualStyleBackColor = True + ' + 'btnVonJahr + ' + Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonJahr.ForeColor = System.Drawing.Color.Black + Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.Location = New System.Drawing.Point(162, 103) + Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonJahr.Name = "btnVonJahr" + Me.btnVonJahr.Size = New System.Drawing.Size(34, 23) + Me.btnVonJahr.TabIndex = 50 + Me.btnVonJahr.Text = "<<" + Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.UseVisualStyleBackColor = True + ' + 'btnMonat + ' + Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnMonat.ForeColor = System.Drawing.Color.Black + Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnMonat.Location = New System.Drawing.Point(195, 77) + Me.btnMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnMonat.Name = "btnMonat" + Me.btnMonat.Size = New System.Drawing.Size(87, 23) + Me.btnMonat.TabIndex = 48 + Me.btnMonat.Text = "September" + Me.btnMonat.UseVisualStyleBackColor = True + ' + 'btnBisMonat + ' + Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisMonat.ForeColor = System.Drawing.Color.Black + Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.Location = New System.Drawing.Point(281, 77) + Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisMonat.Name = "btnBisMonat" + Me.btnBisMonat.Size = New System.Drawing.Size(34, 23) + Me.btnBisMonat.TabIndex = 49 + Me.btnBisMonat.Text = ">>" + Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.UseVisualStyleBackColor = True + ' + 'btnVonMonat + ' + Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonMonat.ForeColor = System.Drawing.Color.Black + Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.Location = New System.Drawing.Point(162, 77) + Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonMonat.Name = "btnVonMonat" + Me.btnVonMonat.Size = New System.Drawing.Size(34, 23) + Me.btnVonMonat.TabIndex = 47 + Me.btnVonMonat.Text = "<<" + Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.UseVisualStyleBackColor = True + ' + 'DateTimePicker2 + ' + Me.DateTimePicker2.CustomFormat = "''" + Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker2.Location = New System.Drawing.Point(41, 106) + Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker2.Name = "DateTimePicker2" + Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker2.Size = New System.Drawing.Size(115, 20) + Me.DateTimePicker2.TabIndex = 37 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(12, 81) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(28, 13) + Me.Label13.TabIndex = 46 + Me.Label13.Text = "von:" + ' + 'lblAbfertigungsdatum + ' + Me.lblAbfertigungsdatum.AutoSize = True + Me.lblAbfertigungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAbfertigungsdatum.Location = New System.Drawing.Point(12, 59) + Me.lblAbfertigungsdatum.Name = "lblAbfertigungsdatum" + Me.lblAbfertigungsdatum.Size = New System.Drawing.Size(118, 13) + Me.lblAbfertigungsdatum.TabIndex = 32 + Me.lblAbfertigungsdatum.Text = "Ausstellungs-Datum" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(917, 59) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(40, 13) + Me.Label1.TabIndex = 39 + Me.Label1.Text = "Filiale" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(998, 59) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(121, 13) + Me.Label2.TabIndex = 40 + Me.Label2.Text = "Abfertigungsnummer" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.Location = New System.Drawing.Point(917, 115) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(97, 13) + Me.Label12.TabIndex = 44 + Me.Label12.Text = "Sachbearbeiter:" + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.CustomFormat = "''" + Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker1.Location = New System.Drawing.Point(41, 77) + Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20) + Me.DateTimePicker1.TabIndex = 35 + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.MyDatagridview1) + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 171) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1419, 390) + Me.Panel1.TabIndex = 1 + ' + 'Button2 + ' + Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Image = Global.SDL.My.Resources.Resources.plus + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(148, 333) + Me.Button2.Margin = New System.Windows.Forms.Padding(0) + Me.Button2.Name = "Button2" + Me.Button2.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) + Me.Button2.Size = New System.Drawing.Size(84, 35) + Me.Button2.TabIndex = 71 + Me.Button2.Text = "Neu" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button2.UseVisualStyleBackColor = True + Me.Button2.Visible = False + ' + 'pnloptions + ' + Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnloptions.Controls.Add(Me.btnSendungKoppeln) + Me.pnloptions.Controls.Add(Me.Button1) + Me.pnloptions.Controls.Add(Me.btnDel) + Me.pnloptions.Controls.Add(Me.btnExcel) + Me.pnloptions.Controls.Add(Me.FlatButton7) + Me.pnloptions.Controls.Add(Me.lblErgebnis) + Me.pnloptions.Controls.Add(Me.Label37) + Me.pnloptions.Controls.Add(Me.txtMaxSrch) + Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnloptions.Location = New System.Drawing.Point(0, 561) + Me.pnloptions.Name = "pnloptions" + Me.pnloptions.Size = New System.Drawing.Size(1419, 59) + Me.pnloptions.TabIndex = 2 + ' + 'Button1 + ' + 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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button1.Image = Global.SDL.My.Resources.Resources.plus + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(16, 7) + Me.Button1.Name = "Button1" + Me.Button1.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0) + Me.Button1.Size = New System.Drawing.Size(109, 47) + Me.Button1.TabIndex = 74 + Me.Button1.Text = "NEU" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True + ' + 'btnDel + ' + Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnDel.Image = Global.SDL.My.Resources.Resources.del_small + Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnDel.Location = New System.Drawing.Point(131, 7) + Me.btnDel.Name = "btnDel" + Me.btnDel.Size = New System.Drawing.Size(137, 47) + Me.btnDel.TabIndex = 73 + Me.btnDel.Text = "Eintrag löschen" + Me.btnDel.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnDel.UseVisualStyleBackColor = True + ' + 'btnExcel + ' + Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnExcel.Location = New System.Drawing.Point(1328, 22) + Me.btnExcel.Name = "btnExcel" + Me.btnExcel.Size = New System.Drawing.Size(41, 34) + Me.btnExcel.TabIndex = 67 + Me.btnExcel.UseVisualStyleBackColor = True + ' + 'FlatButton7 + ' + Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh + Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FlatButton7.ForeColor = System.Drawing.Color.Black + Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.FlatButton7.Location = New System.Drawing.Point(1375, 22) + Me.FlatButton7.Name = "FlatButton7" + Me.FlatButton7.Size = New System.Drawing.Size(41, 34) + Me.FlatButton7.TabIndex = 68 + Me.FlatButton7.UseVisualStyleBackColor = True + ' + 'lblErgebnis + ' + Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblErgebnis.Location = New System.Drawing.Point(1201, 5) + Me.lblErgebnis.Name = "lblErgebnis" + Me.lblErgebnis.Size = New System.Drawing.Size(215, 14) + Me.lblErgebnis.TabIndex = 66 + Me.lblErgebnis.Text = "Ergebnisse: 0" + Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label37 + ' + Me.Label37.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label37.AutoSize = True + Me.Label37.Location = New System.Drawing.Point(1242, 33) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(30, 13) + Me.Label37.TabIndex = 69 + Me.Label37.Text = "Max:" + ' + 'MyDatagridview1 + ' + Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 + Me.MyDatagridview1.AllowUserToAddRows = False + Me.MyDatagridview1.AllowUserToDeleteRows = False + Me.MyDatagridview1.AllowUserToOrderColumns = True + Me.MyDatagridview1.AllowUserToResizeRows = False + Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0) + Me.MyDatagridview1.Name = "MyDatagridview1" + Me.MyDatagridview1.ReadOnly = True + Me.MyDatagridview1.RowHeadersVisible = False + Me.MyDatagridview1.RowHeadersWidth = 51 + Me.MyDatagridview1.Size = New System.Drawing.Size(1419, 390) + Me.MyDatagridview1.TabIndex = 0 + ' + 'txtSuche + ' + Me.txtSuche._DateTimeOnly = False + Me.txtSuche._numbersOnly = False + Me.txtSuche._numbersOnlyKommastellen = "" + Me.txtSuche._numbersOnlyTrennzeichen = False + Me.txtSuche._Prozent = False + Me.txtSuche._ShortDateNew = False + Me.txtSuche._ShortDateOnly = False + Me.txtSuche._TimeOnly = False + Me.txtSuche._TimeOnly_Seconds = False + Me.txtSuche._value = "" + Me.txtSuche._Waehrung = False + Me.txtSuche._WaehrungZeichen = False + Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSuche.ForeColor = System.Drawing.Color.Black + Me.txtSuche.Location = New System.Drawing.Point(338, 75) + Me.txtSuche.MaxLineLength = -1 + Me.txtSuche.MaxLines_Warning = "" + Me.txtSuche.MaxLines_Warning_Label = Nothing + Me.txtSuche.Name = "txtSuche" + Me.txtSuche.Size = New System.Drawing.Size(258, 20) + Me.txtSuche.TabIndex = 77 + ' + 'txtSB + ' + Me.txtSB._DateTimeOnly = False + Me.txtSB._numbersOnly = False + Me.txtSB._numbersOnlyKommastellen = "" + Me.txtSB._numbersOnlyTrennzeichen = False + Me.txtSB._Prozent = False + Me.txtSB._ShortDateNew = False + Me.txtSB._ShortDateOnly = False + Me.txtSB._TimeOnly = False + Me.txtSB._TimeOnly_Seconds = False + Me.txtSB._value = "" + Me.txtSB._Waehrung = False + Me.txtSB._WaehrungZeichen = False + Me.txtSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSB.ForeColor = System.Drawing.Color.Black + Me.txtSB.Location = New System.Drawing.Point(920, 131) + Me.txtSB.MaxLineLength = -1 + Me.txtSB.MaxLines_Warning = "" + Me.txtSB.MaxLines_Warning_Label = Nothing + Me.txtSB.Multiline = True + Me.txtSB.Name = "txtSB" + Me.txtSB.Size = New System.Drawing.Size(240, 22) + Me.txtSB.TabIndex = 75 + ' + 'txtDocumetNummer + ' + Me.txtDocumetNummer._DateTimeOnly = False + Me.txtDocumetNummer._numbersOnly = False + Me.txtDocumetNummer._numbersOnlyKommastellen = "" + Me.txtDocumetNummer._numbersOnlyTrennzeichen = False + Me.txtDocumetNummer._Prozent = False + Me.txtDocumetNummer._ShortDateNew = False + Me.txtDocumetNummer._ShortDateOnly = False + Me.txtDocumetNummer._TimeOnly = False + Me.txtDocumetNummer._TimeOnly_Seconds = False + Me.txtDocumetNummer._value = "" + Me.txtDocumetNummer._Waehrung = False + Me.txtDocumetNummer._WaehrungZeichen = False + Me.txtDocumetNummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDocumetNummer.ForeColor = System.Drawing.Color.Black + Me.txtDocumetNummer.Location = New System.Drawing.Point(610, 75) + Me.txtDocumetNummer.MaxLineLength = -1 + Me.txtDocumetNummer.MaxLines_Warning = "" + Me.txtDocumetNummer.MaxLines_Warning_Label = Nothing + Me.txtDocumetNummer.Name = "txtDocumetNummer" + Me.txtDocumetNummer.Size = New System.Drawing.Size(284, 20) + Me.txtDocumetNummer.TabIndex = 74 + ' + 'txtAbsender + ' + Me.txtAbsender._DateTimeOnly = False + Me.txtAbsender._numbersOnly = False + Me.txtAbsender._numbersOnlyKommastellen = "" + Me.txtAbsender._numbersOnlyTrennzeichen = True + Me.txtAbsender._Prozent = False + Me.txtAbsender._ShortDateNew = False + Me.txtAbsender._ShortDateOnly = False + Me.txtAbsender._TimeOnly = False + Me.txtAbsender._TimeOnly_Seconds = False + Me.txtAbsender._value = Nothing + Me.txtAbsender._Waehrung = False + Me.txtAbsender._WaehrungZeichen = True + Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbsender.ForeColor = System.Drawing.Color.Black + Me.txtAbsender.Location = New System.Drawing.Point(666, 133) + Me.txtAbsender.MaxLineLength = -1 + Me.txtAbsender.MaxLines_Warning = "" + Me.txtAbsender.MaxLines_Warning_Label = Nothing + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.Size = New System.Drawing.Size(228, 20) + Me.txtAbsender.TabIndex = 72 ' 'txtReferenz ' @@ -172,97 +689,61 @@ Partial Class frmOriginalArchiv_ATR Me.txtReferenz._WaehrungZeichen = True Me.txtReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtReferenz.ForeColor = System.Drawing.Color.Black - Me.txtReferenz.Location = New System.Drawing.Point(888, 135) - Me.txtReferenz.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.txtReferenz.Location = New System.Drawing.Point(394, 133) Me.txtReferenz.MaxLineLength = -1 Me.txtReferenz.MaxLines_Warning = "" Me.txtReferenz.MaxLines_Warning_Label = Nothing Me.txtReferenz.Name = "txtReferenz" - Me.txtReferenz.Size = New System.Drawing.Size(303, 23) + Me.txtReferenz.Size = New System.Drawing.Size(202, 20) Me.txtReferenz.TabIndex = 70 ' - 'Label5 + 'txtFEmpfänger ' - Me.Label5.AutoSize = True - Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(809, 139) - Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(70, 17) - Me.Label5.TabIndex = 69 - Me.Label5.Text = "Referenz:" + Me.txtFEmpfänger._DateTimeOnly = False + Me.txtFEmpfänger._numbersOnly = False + Me.txtFEmpfänger._numbersOnlyKommastellen = "" + Me.txtFEmpfänger._numbersOnlyTrennzeichen = True + Me.txtFEmpfänger._Prozent = False + Me.txtFEmpfänger._ShortDateNew = False + Me.txtFEmpfänger._ShortDateOnly = False + Me.txtFEmpfänger._TimeOnly = False + Me.txtFEmpfänger._TimeOnly_Seconds = False + Me.txtFEmpfänger._value = Nothing + Me.txtFEmpfänger._Waehrung = False + Me.txtFEmpfänger._WaehrungZeichen = True + Me.txtFEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFEmpfänger.ForeColor = System.Drawing.Color.Black + Me.txtFEmpfänger.Location = New System.Drawing.Point(666, 109) + Me.txtFEmpfänger.MaxLineLength = -1 + Me.txtFEmpfänger.MaxLines_Warning = "" + Me.txtFEmpfänger.MaxLines_Warning_Label = Nothing + Me.txtFEmpfänger.Name = "txtFEmpfänger" + Me.txtFEmpfänger.Size = New System.Drawing.Size(228, 20) + Me.txtFEmpfänger.TabIndex = 68 ' - 'txtFirma + 'txtLKWKennzeichen ' - Me.txtFirma._DateTimeOnly = False - Me.txtFirma._numbersOnly = False - Me.txtFirma._numbersOnlyKommastellen = "" - Me.txtFirma._numbersOnlyTrennzeichen = True - Me.txtFirma._Prozent = False - Me.txtFirma._ShortDateNew = False - Me.txtFirma._ShortDateOnly = False - Me.txtFirma._TimeOnly = False - Me.txtFirma._TimeOnly_Seconds = False - Me.txtFirma._value = Nothing - Me.txtFirma._Waehrung = False - Me.txtFirma._WaehrungZeichen = True - Me.txtFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtFirma.ForeColor = System.Drawing.Color.Black - Me.txtFirma.Location = New System.Drawing.Point(501, 159) - Me.txtFirma.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.txtFirma.MaxLineLength = -1 - Me.txtFirma.MaxLines_Warning = "" - Me.txtFirma.MaxLines_Warning_Label = Nothing - Me.txtFirma.Name = "txtFirma" - Me.txtFirma.Size = New System.Drawing.Size(268, 23) - Me.txtFirma.TabIndex = 68 - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label6.Location = New System.Drawing.Point(447, 162) - Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(47, 17) - Me.Label6.TabIndex = 67 - Me.Label6.Text = "Firma:" - ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = False - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = False - Me.MyTextBox1._value = Nothing - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(501, 135) - Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(268, 23) - Me.MyTextBox1.TabIndex = 66 - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(447, 139) - Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(42, 17) - Me.Label3.TabIndex = 65 - Me.Label3.Text = "LKW:" + Me.txtLKWKennzeichen._DateTimeOnly = False + Me.txtLKWKennzeichen._numbersOnly = False + Me.txtLKWKennzeichen._numbersOnlyKommastellen = "" + Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True + Me.txtLKWKennzeichen._Prozent = False + Me.txtLKWKennzeichen._ShortDateNew = False + Me.txtLKWKennzeichen._ShortDateOnly = False + Me.txtLKWKennzeichen._TimeOnly = False + Me.txtLKWKennzeichen._TimeOnly_Seconds = False + Me.txtLKWKennzeichen._value = Nothing + Me.txtLKWKennzeichen._Waehrung = False + Me.txtLKWKennzeichen._WaehrungZeichen = True + Me.txtLKWKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtLKWKennzeichen.ForeColor = System.Drawing.Color.Black + Me.txtLKWKennzeichen.Location = New System.Drawing.Point(394, 110) + Me.txtLKWKennzeichen.MaxLineLength = -1 + Me.txtLKWKennzeichen.MaxLines_Warning = "" + Me.txtLKWKennzeichen.MaxLines_Warning_Label = Nothing + Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen" + Me.txtLKWKennzeichen.Size = New System.Drawing.Size(202, 20) + Me.txtLKWKennzeichen.TabIndex = 66 ' 'txtAbfertDat ' @@ -280,14 +761,13 @@ Partial Class frmOriginalArchiv_ATR Me.txtAbfertDat._WaehrungZeichen = True Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black - Me.txtAbfertDat.Location = New System.Drawing.Point(55, 95) - Me.txtAbfertDat.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77) Me.txtAbfertDat.MaxLength = 10 Me.txtAbfertDat.MaxLineLength = -1 Me.txtAbfertDat.MaxLines_Warning = "" Me.txtAbfertDat.MaxLines_Warning_Label = Nothing Me.txtAbfertDat.Name = "txtAbfertDat" - Me.txtAbfertDat.Size = New System.Drawing.Size(109, 23) + Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20) Me.txtAbfertDat.TabIndex = 33 ' 'txtAbfertDatBis @@ -306,31 +786,15 @@ Partial Class frmOriginalArchiv_ATR Me.txtAbfertDatBis._WaehrungZeichen = True Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black - Me.txtAbfertDatBis.Location = New System.Drawing.Point(55, 130) - Me.txtAbfertDatBis.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106) Me.txtAbfertDatBis.MaxLength = 10 Me.txtAbfertDatBis.MaxLineLength = -1 Me.txtAbfertDatBis.MaxLines_Warning = "" Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing Me.txtAbfertDatBis.Name = "txtAbfertDatBis" - Me.txtAbfertDatBis.Size = New System.Drawing.Size(109, 23) + Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20) Me.txtAbfertDatBis.TabIndex = 36 ' - 'cboSachbearbeiterQS - ' - Me.cboSachbearbeiterQS._allowedValuesFreiText = Nothing - Me.cboSachbearbeiterQS._allowFreiText = False - Me.cboSachbearbeiterQS._value = "" - Me.cboSachbearbeiterQS.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboSachbearbeiterQS.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboSachbearbeiterQS.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboSachbearbeiterQS.FormattingEnabled = True - Me.cboSachbearbeiterQS.Location = New System.Drawing.Point(813, 95) - Me.cboSachbearbeiterQS.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.cboSachbearbeiterQS.Name = "cboSachbearbeiterQS" - Me.cboSachbearbeiterQS.Size = New System.Drawing.Size(377, 28) - Me.cboSachbearbeiterQS.TabIndex = 59 - ' 'cboFiliale ' Me.cboFiliale._allowedValuesFreiText = Nothing @@ -339,10 +803,9 @@ Partial Class frmOriginalArchiv_ATR Me.cboFiliale.DropDownWidth = 250 Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(451, 95) - Me.cboFiliale.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.cboFiliale.Location = New System.Drawing.Point(920, 75) Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(105, 26) + Me.cboFiliale.Size = New System.Drawing.Size(80, 22) Me.cboFiliale.TabIndex = 53 ' 'txtAbfertigungsnummer @@ -361,430 +824,15 @@ Partial Class frmOriginalArchiv_ATR Me.txtAbfertigungsnummer._WaehrungZeichen = True Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(556, 95) - Me.txtAbfertigungsnummer.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(999, 75) Me.txtAbfertigungsnummer.MaxLineLength = -1 Me.txtAbfertigungsnummer.MaxLines_Warning = "" Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing Me.txtAbfertigungsnummer.Multiline = True Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(213, 26) + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 22) Me.txtAbfertigungsnummer.TabIndex = 55 ' - 'Button7 - ' - Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button7.ForeColor = System.Drawing.Color.Black - Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.Location = New System.Drawing.Point(375, 63) - Me.Button7.Margin = New System.Windows.Forms.Padding(0) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(45, 28) - Me.Button7.TabIndex = 45 - Me.Button7.Text = ">>" - Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.UseVisualStyleBackColor = True - ' - 'Button6 - ' - Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button6.ForeColor = System.Drawing.Color.Black - Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button6.Location = New System.Drawing.Point(216, 63) - Me.Button6.Margin = New System.Windows.Forms.Padding(0) - Me.Button6.Name = "Button6" - Me.Button6.Size = New System.Drawing.Size(45, 28) - Me.Button6.TabIndex = 41 - Me.Button6.Text = "<<" - Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button6.UseVisualStyleBackColor = True - ' - 'Button5 - ' - Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button5.ForeColor = System.Drawing.Color.Black - Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button5.Location = New System.Drawing.Point(260, 63) - Me.Button5.Margin = New System.Windows.Forms.Padding(0) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(116, 28) - Me.Button5.TabIndex = 43 - Me.Button5.Text = "Heute" - Me.Button5.UseVisualStyleBackColor = True - ' - 'btnSuche - ' - Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search - Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSuche.Location = New System.Drawing.Point(1444, 89) - Me.btnSuche.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.btnSuche.Name = "btnSuche" - Me.btnSuche.Size = New System.Drawing.Size(216, 64) - Me.btnSuche.TabIndex = 61 - Me.btnSuche.Text = "Suche starten" - Me.btnSuche.UseVisualStyleBackColor = True - ' - 'Label23 - ' - Me.Label23.AutoSize = True - Me.Label23.Location = New System.Drawing.Point(16, 134) - Me.Label23.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(28, 16) - Me.Label23.TabIndex = 38 - Me.Label23.Text = "bis:" - ' - 'btnJahr - ' - Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnJahr.ForeColor = System.Drawing.Color.Black - Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnJahr.Location = New System.Drawing.Point(260, 127) - Me.btnJahr.Margin = New System.Windows.Forms.Padding(0) - Me.btnJahr.Name = "btnJahr" - Me.btnJahr.Size = New System.Drawing.Size(116, 28) - Me.btnJahr.TabIndex = 51 - Me.btnJahr.Text = "2016" - Me.btnJahr.UseVisualStyleBackColor = True - ' - 'pnlTop - ' - Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.pnlTop.Controls.Add(Me.Label4) - Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top - Me.pnlTop.Location = New System.Drawing.Point(0, 0) - Me.pnlTop.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.pnlTop.Name = "pnlTop" - Me.pnlTop.Size = New System.Drawing.Size(1694, 59) - Me.pnlTop.TabIndex = 34 - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.ForeColor = System.Drawing.Color.White - Me.Label4.Location = New System.Drawing.Point(13, 16) - Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(395, 31) - Me.Label4.TabIndex = 0 - Me.Label4.Text = "Originale-Archiv (ATR/EUR1)" - ' - 'btnBisJahr - ' - Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnBisJahr.ForeColor = System.Drawing.Color.Black - Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisJahr.Location = New System.Drawing.Point(375, 127) - Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0) - Me.btnBisJahr.Name = "btnBisJahr" - Me.btnBisJahr.Size = New System.Drawing.Size(45, 28) - Me.btnBisJahr.TabIndex = 52 - Me.btnBisJahr.Text = ">>" - Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisJahr.UseVisualStyleBackColor = True - ' - 'btnVonJahr - ' - Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnVonJahr.ForeColor = System.Drawing.Color.Black - Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonJahr.Location = New System.Drawing.Point(216, 127) - Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0) - Me.btnVonJahr.Name = "btnVonJahr" - Me.btnVonJahr.Size = New System.Drawing.Size(45, 28) - Me.btnVonJahr.TabIndex = 50 - Me.btnVonJahr.Text = "<<" - Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonJahr.UseVisualStyleBackColor = True - ' - 'btnMonat - ' - Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnMonat.ForeColor = System.Drawing.Color.Black - Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnMonat.Location = New System.Drawing.Point(260, 95) - Me.btnMonat.Margin = New System.Windows.Forms.Padding(0) - Me.btnMonat.Name = "btnMonat" - Me.btnMonat.Size = New System.Drawing.Size(116, 28) - Me.btnMonat.TabIndex = 48 - Me.btnMonat.Text = "September" - Me.btnMonat.UseVisualStyleBackColor = True - ' - 'btnBisMonat - ' - Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnBisMonat.ForeColor = System.Drawing.Color.Black - Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisMonat.Location = New System.Drawing.Point(375, 95) - Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0) - Me.btnBisMonat.Name = "btnBisMonat" - Me.btnBisMonat.Size = New System.Drawing.Size(45, 28) - Me.btnBisMonat.TabIndex = 49 - Me.btnBisMonat.Text = ">>" - Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnBisMonat.UseVisualStyleBackColor = True - ' - 'btnVonMonat - ' - Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnVonMonat.ForeColor = System.Drawing.Color.Black - Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonMonat.Location = New System.Drawing.Point(216, 95) - Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0) - Me.btnVonMonat.Name = "btnVonMonat" - Me.btnVonMonat.Size = New System.Drawing.Size(45, 28) - Me.btnVonMonat.TabIndex = 47 - Me.btnVonMonat.Text = "<<" - Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVonMonat.UseVisualStyleBackColor = True - ' - 'DateTimePicker2 - ' - Me.DateTimePicker2.CustomFormat = "''" - Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom - Me.DateTimePicker2.Location = New System.Drawing.Point(55, 130) - Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0) - Me.DateTimePicker2.Name = "DateTimePicker2" - Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No - Me.DateTimePicker2.Size = New System.Drawing.Size(152, 22) - Me.DateTimePicker2.TabIndex = 37 - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(16, 100) - Me.Label13.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(32, 16) - Me.Label13.TabIndex = 46 - Me.Label13.Text = "von:" - ' - 'lblAbfertigungsdatum - ' - Me.lblAbfertigungsdatum.AutoSize = True - Me.lblAbfertigungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAbfertigungsdatum.Location = New System.Drawing.Point(16, 73) - Me.lblAbfertigungsdatum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblAbfertigungsdatum.Name = "lblAbfertigungsdatum" - Me.lblAbfertigungsdatum.Size = New System.Drawing.Size(54, 17) - Me.lblAbfertigungsdatum.TabIndex = 32 - Me.lblAbfertigungsdatum.Text = "Datum" - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(447, 75) - Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(51, 17) - Me.Label1.TabIndex = 39 - Me.Label1.Text = "Filiale" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(555, 75) - Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(157, 17) - Me.Label2.TabIndex = 40 - Me.Label2.Text = "Abfertigungsnummer" - ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label12.Location = New System.Drawing.Point(809, 75) - Me.Label12.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(124, 17) - Me.Label12.TabIndex = 44 - Me.Label12.Text = "Sachbearbeiter:" - ' - 'DateTimePicker1 - ' - Me.DateTimePicker1.CustomFormat = "''" - Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom - Me.DateTimePicker1.Location = New System.Drawing.Point(55, 95) - Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0) - Me.DateTimePicker1.Name = "DateTimePicker1" - Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No - Me.DateTimePicker1.Size = New System.Drawing.Size(152, 22) - Me.DateTimePicker1.TabIndex = 35 - ' - 'Panel1 - ' - Me.Panel1.Controls.Add(Me.MyDatagridview1) - Me.Panel1.Controls.Add(Me.Button2) - Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill - Me.Panel1.Location = New System.Drawing.Point(0, 199) - Me.Panel1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(1696, 491) - Me.Panel1.TabIndex = 1 - ' - 'MyDatagridview1 - ' - Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 - Me.MyDatagridview1.AllowUserToAddRows = False - Me.MyDatagridview1.AllowUserToDeleteRows = False - Me.MyDatagridview1.AllowUserToOrderColumns = True - Me.MyDatagridview1.AllowUserToResizeRows = False - Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill - Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0) - Me.MyDatagridview1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.MyDatagridview1.Name = "MyDatagridview1" - Me.MyDatagridview1.RowHeadersVisible = False - Me.MyDatagridview1.RowHeadersWidth = 51 - Me.MyDatagridview1.Size = New System.Drawing.Size(1696, 491) - Me.MyDatagridview1.TabIndex = 0 - ' - 'Button2 - ' - Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Image = Global.SDL.My.Resources.Resources.plus - Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(197, 421) - Me.Button2.Margin = New System.Windows.Forms.Padding(0) - Me.Button2.Name = "Button2" - Me.Button2.Padding = New System.Windows.Forms.Padding(0, 0, 13, 0) - Me.Button2.Size = New System.Drawing.Size(112, 43) - Me.Button2.TabIndex = 71 - Me.Button2.Text = "Neu" - Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button2.UseVisualStyleBackColor = True - Me.Button2.Visible = False - ' - 'pnloptions - ' - Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke - Me.pnloptions.Controls.Add(Me.btn) - Me.pnloptions.Controls.Add(Me.Button1) - Me.pnloptions.Controls.Add(Me.btnDel) - Me.pnloptions.Controls.Add(Me.btnExcel) - Me.pnloptions.Controls.Add(Me.FlatButton7) - Me.pnloptions.Controls.Add(Me.lblErgebnis) - Me.pnloptions.Controls.Add(Me.Label37) - Me.pnloptions.Controls.Add(Me.txtMaxSrch) - Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnloptions.Location = New System.Drawing.Point(0, 690) - Me.pnloptions.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.pnloptions.Name = "pnloptions" - Me.pnloptions.Size = New System.Drawing.Size(1696, 73) - Me.pnloptions.TabIndex = 2 - ' - 'btn - ' - Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Location = New System.Drawing.Point(1271, 27) - Me.btn.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.btn.Name = "btn" - Me.btn.Size = New System.Drawing.Size(129, 42) - Me.btn.TabIndex = 75 - Me.btn.Text = "Speichern" - Me.btn.UseVisualStyleBackColor = True - ' - 'Button1 - ' - 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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.Button1.Image = Global.SDL.My.Resources.Resources.plus - Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(21, 6) - Me.Button1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.Button1.Name = "Button1" - Me.Button1.Padding = New System.Windows.Forms.Padding(0, 0, 27, 0) - Me.Button1.Size = New System.Drawing.Size(145, 58) - Me.Button1.TabIndex = 74 - Me.Button1.Text = "NEU" - Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button1.UseVisualStyleBackColor = True - ' - 'btnDel - ' - Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.btnDel.Image = Global.SDL.My.Resources.Resources.del_small - Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnDel.Location = New System.Drawing.Point(175, 6) - Me.btnDel.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.btnDel.Name = "btnDel" - Me.btnDel.Size = New System.Drawing.Size(183, 58) - Me.btnDel.TabIndex = 73 - Me.btnDel.Text = "Eintrag löschen" - Me.btnDel.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnDel.UseVisualStyleBackColor = True - ' - 'btnExcel - ' - Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo - Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center - Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnExcel.Location = New System.Drawing.Point(1575, 27) - Me.btnExcel.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.btnExcel.Name = "btnExcel" - Me.btnExcel.Size = New System.Drawing.Size(55, 42) - Me.btnExcel.TabIndex = 67 - Me.btnExcel.UseVisualStyleBackColor = True - ' - 'FlatButton7 - ' - Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh - Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.FlatButton7.ForeColor = System.Drawing.Color.Black - Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.FlatButton7.Location = New System.Drawing.Point(1637, 27) - Me.FlatButton7.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) - Me.FlatButton7.Name = "FlatButton7" - Me.FlatButton7.Size = New System.Drawing.Size(55, 42) - Me.FlatButton7.TabIndex = 68 - Me.FlatButton7.UseVisualStyleBackColor = True - ' - 'lblErgebnis - ' - Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblErgebnis.Location = New System.Drawing.Point(1405, 6) - Me.lblErgebnis.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblErgebnis.Name = "lblErgebnis" - Me.lblErgebnis.Size = New System.Drawing.Size(287, 17) - Me.lblErgebnis.TabIndex = 66 - Me.lblErgebnis.Text = "Ergebnisse: 0" - Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'Label37 - ' - Me.Label37.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label37.AutoSize = True - Me.Label37.Location = New System.Drawing.Point(1460, 41) - Me.Label37.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(35, 16) - Me.Label37.TabIndex = 69 - Me.Label37.Text = "Max:" - ' 'txtMaxSrch ' Me.txtMaxSrch._DateTimeOnly = False @@ -802,27 +850,51 @@ Partial Class frmOriginalArchiv_ATR Me.txtMaxSrch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black - Me.txtMaxSrch.Location = New System.Drawing.Point(1503, 37) - Me.txtMaxSrch.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.txtMaxSrch.Location = New System.Drawing.Point(1274, 30) Me.txtMaxSrch.MaxLineLength = -1 Me.txtMaxSrch.MaxLines_Warning = "" Me.txtMaxSrch.MaxLines_Warning_Label = Nothing Me.txtMaxSrch.Name = "txtMaxSrch" - Me.txtMaxSrch.Size = New System.Drawing.Size(63, 23) + Me.txtMaxSrch.Size = New System.Drawing.Size(48, 20) Me.txtMaxSrch.TabIndex = 70 Me.txtMaxSrch.Text = "1000" Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' + 'btnSendungKoppeln + ' + Me.btnSendungKoppeln.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnSendungKoppeln.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSendungKoppeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.btnSendungKoppeln.Image = Global.SDL.My.Resources.Resources.LKW_klein1 + Me.btnSendungKoppeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSendungKoppeln.Location = New System.Drawing.Point(813, 6) + Me.btnSendungKoppeln.Name = "btnSendungKoppeln" + Me.btnSendungKoppeln.Size = New System.Drawing.Size(317, 47) + Me.btnSendungKoppeln.TabIndex = 75 + Me.btnSendungKoppeln.Text = "mit Sendung verknüpfen" + Me.btnSendungKoppeln.UseVisualStyleBackColor = True + Me.btnSendungKoppeln.Visible = False + ' + 'PictureBox6 + ' + Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBox6.Location = New System.Drawing.Point(1374, 9) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(32, 30) + Me.PictureBox6.TabIndex = 135 + Me.PictureBox6.TabStop = False + ' 'frmOriginalArchiv_ATR ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1696, 763) + Me.ClientSize = New System.Drawing.Size(1419, 620) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.pnl) Me.Controls.Add(Me.pnloptions) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) - Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.Name = "frmOriginalArchiv_ATR" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "ATR/EUR1" @@ -831,16 +903,16 @@ Partial Class frmOriginalArchiv_ATR Me.pnlTop.ResumeLayout(False) Me.pnlTop.PerformLayout() Me.Panel1.ResumeLayout(False) - CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() Me.pnloptions.ResumeLayout(False) Me.pnloptions.PerformLayout() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub Friend WithEvents pnl As System.Windows.Forms.Panel Friend WithEvents txtAbfertDat As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAbfertDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents cboSachbearbeiterQS As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents txtAbfertigungsnummer As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Button7 As System.Windows.Forms.Button @@ -871,16 +943,22 @@ Partial Class frmOriginalArchiv_ATR Friend WithEvents lblErgebnis As System.Windows.Forms.Label Friend WithEvents Label37 As System.Windows.Forms.Label Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtLKWKennzeichen As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Button2 As System.Windows.Forms.Button - Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtFEmpfänger As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents btnDel As Button Friend WithEvents txtReferenz As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label5 As Label - Friend WithEvents txtInAuftrag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label7 As Label Friend WithEvents Button1 As Button - Friend WithEvents btn As Button + Friend WithEvents txtDocumetNummer As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label8 As Label + Friend WithEvents txtSuche As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label9 As Label + Friend WithEvents txtSB As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnSendungKoppeln As Button + Friend WithEvents PictureBox6 As PictureBox End Class diff --git a/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb b/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb index 659dbd48..e0dc0d16 100644 --- a/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb +++ b/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb @@ -1,4 +1,6 @@ -Public Class frmOriginalArchiv_ATR +Imports javax.smartcardio + +Public Class frmOriginalArchiv_ATR @@ -7,10 +9,9 @@ Dim JAHR As Date = CDate("01.01." & Now.Year) + Public SendungKoppeln As Boolean = False + Public SendungsId As Integer = -1 - ' Dim bindPOST As New cEasyBinding("FMZOLL") - Dim bindPOST As New cEasyBinding("FMZOLL") - Dim myTable As New DataTable Private Sub frmVorauskasse_Load(sender As Object, e As EventArgs) Handles Me.Load Me.Top = 0 @@ -30,7 +31,7 @@ Case Else QSwhere = " AND mit_firma <> 'IMEX' " End Select - + If SendungKoppeln Then btnSendungKoppeln.Visible = True ' cboSachbearbeiterQS.fillWithSQL("SELECT ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & QSwhere & " ORDER BY Name ", False, "FMZOLL", True) @@ -47,30 +48,24 @@ End Select cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' " & where & " ORDER BY FilialenNr ", True, "FMZOLL", True) - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" - 'cboFiliale._allowedValuesFreiText = {"5501"} - cboFiliale.changeItem("5501") - Case "ATILLA" - cboFiliale._allowedValuesFreiText = {"4801"} - cboFiliale.changeItem("4801") - cboFiliale.Enabled = False - Case "AMBAR" - cboFiliale._allowedValuesFreiText = {"5701"} - cboFiliale.changeItem("5701") - cboFiliale.Enabled = False - End Select + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "IMEX" + ' 'cboFiliale._allowedValuesFreiText = {"5501"} + ' cboFiliale.changeItem("5501") + ' Case "ATILLA" + ' cboFiliale._allowedValuesFreiText = {"4801"} + ' cboFiliale.changeItem("4801") + ' 'cboFiliale.Enabled = False + ' Case "AMBAR" + ' cboFiliale._allowedValuesFreiText = {"5701"} + ' cboFiliale.changeItem("5701") + ' 'cboFiliale.Enabled = False + 'End Select - cboSachbearbeiterQS.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " & - " FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True) btnMonat.PerformClick() btnSuche.PerformClick() - bindPOST.updateImmediately = True - AddHandler bindPOST.bindingdataTable.ColumnChanged, Sub(send As Object, ev As DataColumnChangeEventArgs) - btn.PerformClick() 'geht anders nicht ?? - End Sub End Sub @@ -124,6 +119,7 @@ End Sub Dim biningInit = False + Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click Me.Cursor = Cursors.WaitCursor @@ -132,22 +128,14 @@ ' bindPOST = New cEasyBinding("FMZOLL") - sqlstr &= " SELECT " & TopMax & " [post_id],[post_Datum],[post_FilialenNr],[post_AbfertigungsNr],[post_art],[post_Empfaenger_KdNr],[post_Empfaenger_Name1],post_Empfaenger_Adresse1 + ' ' + post_Empfaenger_Adresse2 + ' ' + post_Empfaenger_Adresse3 as Adresse,[post_ContainerLKWNr],[post_FirmaInAuftragKdnr],[post_FirmaInAuftrag],[post_Sachbearbeiter],[post_ReferenzPaketdienst],[post_KdAuftrNrAvisierer],[post_RgEmpfaenger_Name] FROM [tblPostversand] WHERE 1=1 " + sqlstr &= " SELECT " & TopMax & " atr_id,atr_documentNr, atr_austellungsdatum, atr_FilialenNr, atr_AbfertigungsNr, atr_LKW,atr_EmpfaengerKdNr, atr_Empfaenger, atr_AbsenderKdNr,atr_Absender, atr_Sachbearbeiter,atr_DHL_ReferenzNr FROM [tblOriginalATR] WHERE 1=1 " With MyDatagridview1 - ' .DataSource = myTable - '.SET_SQL(sqlstr & getVorauskasseWhere() & " ORDER BY post_Datum desc ", "FMZOLL", getVorauskasseList) - ' .LOAD() - 'bindPOST.bindingdataSet.Tables(0) = New DataTable - bindPOST.initBinding(sqlstr & getVorauskasseWhere() & " ORDER BY post_Datum desc", "tblPostversand", getVorauskasseList) - .DataSource = bindPOST.bindingdataTable + .SET_SQL(sqlstr & getWhere() & " ORDER BY atr_austellungsdatum desc", "FMZOLL", getList) + .LOAD() + lblErgebnis.Text = "Ergebnisse: " & .Rows.Count - 'If Not biningInit Then - ' biningInit = True - - 'End If - ' setDGVOptions() End With showDGV() @@ -157,50 +145,65 @@ End Sub - Function getVorauskasseWhere() As String + Function getWhere() As String Dim sqlstr = "" If txtAbfertDat.Text <> "" Then If txtAbfertDatBis.Text <> "" Then - sqlstr &= " AND ([post_Datum] BETWEEN @Datum AND @DatumBis) " + sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @DatumBis) " Else - sqlstr &= " AND ([post_Datum] BETWEEN @Datum AND @Datum ) " + sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @Datum ) " End If End If + If txtSuche._value <> "" Then + sqlstr &= " AND ( " + sqlstr &= " atr_documentNr LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_absender LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_empfaenger LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_DHL_ReferenzNr LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_LKW LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_location LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_info LIKE '" & txtSuche._value & "%' OR " + sqlstr &= " atr_DHL_ReferenzNr LIKE '" & txtSuche._value & "%' " + sqlstr &= " ) " + End If + If txtAbfertigungsnummer.Text <> "" Then ' If txtAbfertigungsnummerBis.Text <> "" Then 'sqlstr &= " AND ([vk_AbfertigungsNr] BETWEEN @AbfertigungsNr AND @AbfertigungsNr_bis ) " 'Else 'sqlstr &= " AND vk_AbfertigungsNr LIKE @AbfertigungsNr " 'End If - sqlstr &= " AND post_AbfertigungsNr LIKE @AbfertigungsNr " + sqlstr &= " AND atr_AbfertigungsNr LIKE @AbfertigungsNr " End If ' If txtUnterNr.Text <> "" Then sqlstr &= " AND [UnterNr] LIKE @UnterNr " - If cboFiliale._value <> "" Then sqlstr &= " AND [post_FilialenNr] LIKE @FilialenNr " + If cboFiliale._value <> "" Then sqlstr &= " AND [atr_FilialenNr] LIKE @FilialenNr " - If cboSachbearbeiterQS._value <> "" Then sqlstr &= " AND [post_SachbearbeiterId] = @PersonalnummerQS " - If MyTextBox1.Text <> "" Then sqlstr &= " AND [post_ContainerLKWNr] LIKE @LKW " - If txtFirma.Text <> "" Then sqlstr &= " AND [post_Empfaenger_Name1] LIKE @Firma " - If txtInAuftrag.Text <> "" Then sqlstr &= " AND [post_FirmaInAuftrag] LIKE @InAuftrag " + If txtSB._value <> "" Then sqlstr &= " AND [atr_mitId] = @PersonalnummerQS " + If txtLKWKennzeichen.Text <> "" Then sqlstr &= " AND [atr_LKW] LIKE @LKW " + If txtFEmpfänger.Text <> "" Then sqlstr &= " AND [atr_empfaenger] LIKE @Empfaenger " + If txtAbsender.Text <> "" Then sqlstr &= " AND [atr_absender] LIKE @Absender " + If txtDocumetNummer.Text <> "" Then sqlstr &= " AND [atr_documentNr] LIKE @DocumentNummer " - If txtReferenz.Text <> "" Then sqlstr &= " AND [post_ReferenzPaketdienst] LIKE @Referenz " + If txtReferenz.Text <> "" Then sqlstr &= " AND [atr_DHL_ReferenzNr] LIKE @Referenz " Return sqlstr End Function - Function getVorauskasseList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Function getList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum", txtAbfertDat.Text & " 00:00:00")) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatumBis", txtAbfertDatBis.Text & " 23:59:59")) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%"))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNummer", txtDocumetNummer.Text.Replace("*", "%"))) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", cboSachbearbeiterQS._value)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW", MyTextBox1.Text.Replace("*", "%"))) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma", txtFirma.Text.Replace("*", "%"))) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("InAuftrag", txtInAuftrag.Text.Replace("*", "%"))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", txtSB._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW", txtLKWKennzeichen.Text.Replace("*", "%"))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Absender", txtAbsender.Text.Replace("*", "%"))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfaenger", txtFEmpfänger.Text.Replace("*", "%"))) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz", txtReferenz.Text.Replace("*", "%"))) Return list @@ -218,51 +221,46 @@ .MultiSelect = False - .Columns("post_id").Visible = False - .Columns("post_art").Visible = False - .Columns("post_KdAuftrNrAvisierer").Visible = False - .Columns("post_RgEmpfaenger_Name").Visible = False + .Columns("atr_id").Visible = False + ' .Columns("post_art").Visible = False + ' .Columns("post_KdAuftrNrAvisierer").Visible = False + ' .Columns("atr_EmpfaengerKdNr").Visible = False + ' .Columns("atr_AbsenderKdNr").Visible = False - .Columns("post_FilialenNr").Width = 45 - .Columns("post_FilialenNr").HeaderText = "Filiale" - .Columns("post_FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns("post_AbfertigungsNr").Width = 80 - .Columns("post_AbfertigungsNr").HeaderText = "Abf-Nr" - .Columns("post_AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns("post_Datum").Width = 100 - .Columns("post_Datum").HeaderText = "Datum" - .Columns("post_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("atr_FilialenNr").Width = 45 + .Columns("atr_FilialenNr").HeaderText = "Filiale" + .Columns("atr_FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("atr_AbfertigungsNr").Width = 80 + .Columns("atr_AbfertigungsNr").HeaderText = "Abf-Nr" + .Columns("atr_AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("atr_documentNr").Width = 120 + .Columns("atr_documentNr").HeaderText = "ATR-Nr" + .Columns("atr_documentNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("atr_austellungsdatum").Width = 100 + .Columns("atr_austellungsdatum").HeaderText = "Datum" + .Columns("atr_austellungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns("post_ContainerLKWNr").Width = 120 - .Columns("post_ContainerLKWNr").HeaderText = "LKW Kennz." + .Columns("atr_LKW").Width = 120 + .Columns("atr_LKW").HeaderText = "LKW Kennz." - .Columns("post_Empfaenger_KdNr").HeaderText = "KdNr" - .Columns("post_Empfaenger_KdNr").Width = 50 - .Columns("post_Empfaenger_Name1").HeaderText = "Empfänger" - .Columns("post_Empfaenger_Name1").Width = 150 - .Columns("Adresse").HeaderText = "Adresse" - .Columns("Adresse").Width = 150 + .Columns("atr_EmpfaengerKdNr").HeaderText = "KdNr" + .Columns("atr_EmpfaengerKdNr").Width = 50 + .Columns("atr_Empfaenger").HeaderText = "Empfänger" + .Columns("atr_Empfaenger").Width = 150 - .Columns("post_FirmaInAuftragKdnr").HeaderText = "KdNr" - .Columns("post_FirmaInAuftragKdnr").Width = 50 - .Columns("post_FirmaInAuftrag").HeaderText = "in Auftrag" - .Columns("post_FirmaInAuftrag").Width = 150 + .Columns("atr_AbsenderKdNr").HeaderText = "KdNr" + .Columns("atr_AbsenderKdNr").Width = 50 + .Columns("atr_Absender").HeaderText = "in Auftrag" + .Columns("atr_Absender").Width = 150 - .Columns("post_Sachbearbeiter").MinimumWidth = 100 - .Columns("post_Sachbearbeiter").HeaderText = "Sachb." + .Columns("atr_Sachbearbeiter").MinimumWidth = 100 + .Columns("atr_Sachbearbeiter").HeaderText = "Sachb." - .Columns("post_ReferenzPaketdienst").HeaderText = "Referenz Paketdienst" - .Columns("post_ReferenzPaketdienst").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("atr_DHL_ReferenzNr").HeaderText = "Referenz Paketdienst" + .Columns("atr_DHL_ReferenzNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - For Each c As DataGridViewColumn In .Columns - If c.Name = "post_ReferenzPaketdienst" Then - c.ReadOnly = False - Else - c.ReadOnly = True - End If - Next End With End Sub @@ -345,9 +343,9 @@ Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click If MyDatagridview1.SelectedRows.Count > 0 Then - Dim VK As New VERAG_PROG_ALLGEMEIN.cPostversand(MyDatagridview1.SelectedRows(0).Cells("post_id").Value) + Dim ATR As New VERAG_PROG_ALLGEMEIN.cOrigianlATR(MyDatagridview1.SelectedRows(0).Cells("atr_id").Value) If vbYes <> MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then Exit Sub - VK.DELETE() + ATR.DELETE() btnSuche.PerformClick() 'MyDatagridview1.RELOAD() @@ -360,17 +358,62 @@ Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles MyDatagridview1.DoubleClick If MyDatagridview1.SelectedRows.Count = 0 And MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub - Dim kdnr = MyDatagridview1.SelectedRows(0).Cells("post_Empfaenger_KdNr").Value - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen, kdnr, {kdnr, Nothing, Nothing, Nothing, "", MyDatagridview1.SelectedRows(0).Cells("post_id").Value}) - End Sub - - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen) + Dim atr_id = MyDatagridview1.SelectedRows(0).Cells("atr_id").Value + Dim f As New frmATR(atr_id) + f.ShowDialog(Me) btnSuche.PerformClick() End Sub - Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click - bindPOST.updateBinding() ' geht nur mit dem Umweg über Button + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Dim f As New frmATR + f.ShowDialog(Me) + btnSuche.PerformClick() + End Sub + + Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged + + End Sub + + Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown + If e.KeyCode = Keys.Return Then + btnSuche.PerformClick() + End If + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnSendungKoppeln.Click + If MyDatagridview1.SelectedRows.Count > 0 Then + Dim ATR = New VERAG_PROG_ALLGEMEIN.cOrigianlATR(MyDatagridview1.SelectedRows(0).Cells("atr_id").Value) + If ATR IsNot Nothing Then + + If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then + If ATR.atr_dsId < 0 Then MsgBox("Kein PDF-Anhang!") : Exit Sub + Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(ATR.atr_anhID) + ANH.anh_SendungsId = SendungsId + Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId) + ANH.anh_AvisoId = SND.tblSnd_AvisoID + ANH.anh_docId = ATR.atr_dsId + ANH.anh_Name = "ATR_ARCHIV" + ANH.anh_Typ = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getFilePathTypeValid(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ATR.atr_dsId)) + ANH.anh_Art = "ATR" + If ANH.SAVE() Then 'Eintrag wird überschreiben + ATR.atr_anhID = ANH.anh_id + ATR.atr_SendungsId = SendungsId + ATR.atr_AvisoId = SND.tblSnd_AvisoID + ATR.atr_FilialenNr = SND.FilialenNr + ATR.atr_AbfertigungsNr = SND.AbfertigungsNr + If ATR.SAVE() Then + Me.Close() + End If + End If + End If + End If + End If + + End Sub + + Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click + Dim webAddress As String = "https://wiki.verag.ag/de/software/aviso/howtos/ATRArchiv" + Process.Start(webAddress) End Sub End Class diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index c6b4d0fb..550c892f 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -780,6 +780,12 @@ True Resources.resx + + frmATR.vb + + + Form + frmOriginalArchiv_ATR.vb @@ -3175,6 +3181,9 @@ usrCntlSDLLeistungVERAGCardNEU.vb + + frmATR.vb + frmOriginalArchiv_ATR.vb @@ -4692,6 +4701,7 @@ + Always diff --git a/SDL/cGlobal.vb b/SDL/cGlobal.vb index a8c57ffc..73138fdf 100644 --- a/SDL/cGlobal.vb +++ b/SDL/cGlobal.vb @@ -1,4 +1,4 @@ -Public Class cGlobal +Public Class cGlobal_WARUM_SIEHE_VERGPROGALLG Public ConnStrInfo As String Public ConnStr As String Public USRNAME As String diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb b/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb index 133c64c8..65e0fea0 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb @@ -11,6 +11,8 @@ Public Class cOrigianlATR Property atr_mitId As Integer Property atr_absender As Object = Nothing Property atr_empfaenger As Object = Nothing + Property atr_empfaengerkdnr As Integer = -1 + Property atr_absenderkdnr As Integer = -1 Property atr_austellungsdatum As Object = Nothing Property atr_AvisoId As Object = Nothing Property atr_SendungsId As Object = Nothing @@ -19,12 +21,20 @@ Public Class cOrigianlATR Property atr_DHL_ReferenzNr As Object = Nothing Property atr_location As Object = Nothing Property atr_info As Object = Nothing + Property atr_erhalenDatum As Object = Nothing + Property atr_erhalten_Art As Object = Nothing + Property atr_FilialenNr As Integer = -1 + Property atr_AbfertigungsNr As Integer = -1 + Property atr_anhID As Integer = -1 Public hasEntry = False Dim SQL As New SQL + Sub New() + + End Sub Sub New(atr_id) Me.atr_id = atr_id LOAD() @@ -33,7 +43,6 @@ Public Class cOrigianlATR Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_id", atr_id,, True)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_documentNr", atr_documentNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_erfassungsdatum", atr_erfassungsdatum)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_Sachbearbeiter", atr_Sachbearbeiter)) @@ -48,6 +57,15 @@ Public Class cOrigianlATR list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_DHL_ReferenzNr", atr_DHL_ReferenzNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_location", atr_location)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_info", atr_info)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_erhalenDatum", atr_erhalenDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_erhalten_Art", atr_erhalten_Art)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_FilialenNr", atr_FilialenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_AbfertigungsNr", atr_AbfertigungsNr)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absenderkdnr", atr_absenderkdnr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaengerkdnr", atr_empfaengerkdnr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_anhID", atr_anhID)) + Return list End Function @@ -68,6 +86,12 @@ Public Class cOrigianlATR Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) End Function + Public Function DELETE() As Boolean + + Dim sqlstr = " DELETE tblOriginalATR WHERE atr_id='" & atr_id & "'" + + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function Public Sub LOAD() Try diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb index 31ada165..5eb9e251 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb @@ -1455,13 +1455,20 @@ Public Class cSyska_Interface For Each r In dt.Rows If KdNr = -1 OrElse r("KundenNrZentrale") = KdNr Then 'TEST!! - Dim strRisiko = 0 - If r("Risiko") Is DBNull.Value Then strRisiko = Format(CDbl(r("Risiko")), fmt).Replace(",", ".") + Dim strRisiko As String = "0" + If r("Risiko") IsNot DBNull.Value Then strRisiko = CDbl(r("Risiko")).ToString.Replace(",", ".") + + 'If r("Risiko") IsNot DBNull.Value Then + + ' MsgBox(Format(CDbl(r("Risiko")), fmt).Replace(",", ".")) + 'MsgBox(Format(CDbl(r("Risiko")), fmt)) + ' MsgBox((CDbl(r("Risiko")))) + 'End If SQL.doSQL("UPDATE [FIBU2].[dbo].[fibu_konto] SET [dec_wert3] = '" & strRisiko & "' WHERE ([i_firm_refid]=1 Or [i_firm_refid]=19) - AND [c_kontoart]='DE' + AND [c_kontoart]='DE' And [i_konto]=" & r("KundenNrZentrale") & " ", "FIBU") End If Next @@ -1490,7 +1497,7 @@ Public Class cSyska_Interface GROUP BY Adressen.Ordnungsbegriff, Adressen.LandKz, Adressen.AdressenNr, Kunden.KundenNrZentrale, Kunden.Abfertigungsverbot, Kunden.LfdSaldo, Kunden.UStV_SummeUmsatzsteuerbetragEUR, Kunden.UStV_SummeErstattungsbetragEUR, Kunden.UStV_Summe3470BetragEUR, Kunden.UStV_SummeVZBetragEUR, Kunden.UStV_SummeVorschaubetragEUR, Kunden.BankgarantieBetrag, Kunden.BankgarantieGültigBis ) as T1 - GROUP BY KundenNrZentrale, Risiko,LfdSaldo, BankgarantieBetrag, BankgarantieGültigBis" + GROUP BY KundenNrZentrale, Risiko,LfdSaldo, BankgarantieBetrag, BankgarantieGültigBis " End Function End Class diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb index ed5bc5e0..877bf876 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb @@ -20,7 +20,7 @@ Public Class cTherefore 'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021", "Import ab Jänner 2021", deleteFileAfterImport) 'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2022", "Import ab Jänner 2022", deleteFileAfterImport) 'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2023", "Import ab Jänner 2023", deleteFileAfterImport) - Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2024", "Import ab Jänner 2023", deleteFileAfterImport) + Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2024", "Import ab Jänner 2024", deleteFileAfterImport) ' Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2020", "Import ab Jänner 2020", deleteFileAfterImport) Case Else Return False diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index 9a2c4497..dda71b88 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -492,6 +492,23 @@ Public Class cProgramFunctions End Sub + Public Shared Function getFilePathTypeValid(filePath) As String + Dim fi As New FileInfo(filePath) + Dim filename = fi.Name + + Dim Typ = "" + Select Case fi.Extension.ToString.Replace(".", "").ToUpper + Case "PDF" : Typ = "PDF" + Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL" + Case "DOC", "DOCX" : Typ = "WORD" + Case "TXT" : Typ = "TEXT" + Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD" + Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False + Case Else : Typ = "SONSTIGES" + End Select + Return Typ + End Function + Shared Function EmAilAttach(e As DragEventArgs) As String Try