diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb index e902816e..2f9e246b 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb @@ -23,45 +23,30 @@ Partial Class usrCntlSpeditionsBuchSuche Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlSpeditionsBuchSuche)) Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlSpeditionsBuchSuche)) Me.TabPage1 = New System.Windows.Forms.TabPage() Me.cntxtCntxtSpeditionsbuch = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.SendungsdetailsÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EintragLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblLKWId = New System.Windows.Forms.Label() - Me.lstFiliale = New VERAG_PROG_ALLGEMEIN.MyListBox() - Me.kdtxtAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAuftraggeberKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtCRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboVersLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboBestLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblBestimmungsland = New System.Windows.Forms.Label() - Me.txtPackstücke = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblPackst = New System.Windows.Forms.Label() Me.Button11 = New System.Windows.Forms.Button() Me.Label15 = New System.Windows.Forms.Label() Me.lblAvisierer = New System.Windows.Forms.Label() - Me.kdtxtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAvisiererKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnlRechts = New System.Windows.Forms.Panel() Me.btnNurAbf = New System.Windows.Forms.Button() - Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox() Me.btnAlle = New System.Windows.Forms.Button() Me.btnKeine = New System.Windows.Forms.Button() Me.lblAbfertigungsarten = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() - Me.txtFiskalEndempfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnlAnzeige = New System.Windows.Forms.Panel() - Me.dgvLKW = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnlOpt = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel() Me.Button2 = New System.Windows.Forms.Button() @@ -70,7 +55,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Button8 = New System.Windows.Forms.Button() Me.Panel1 = New System.Windows.Forms.Panel() Me.cbxRptDetailsZahlungsdetails = New System.Windows.Forms.CheckBox() - Me.cboDetailberichtKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label38 = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label() Me.CheckBox3 = New System.Windows.Forms.CheckBox() @@ -79,7 +63,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Button10 = New System.Windows.Forms.Button() Me.cbxSpedDetailBem = New System.Windows.Forms.CheckBox() Me.Label42 = New System.Windows.Forms.Label() - Me.txtUeberschr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button22 = New System.Windows.Forms.Button() Me.cbxFilterInBericht = New System.Windows.Forms.CheckBox() Me.Button21 = New System.Windows.Forms.Button() @@ -87,9 +70,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.pnlBerichte = New System.Windows.Forms.Panel() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() Me.btnHandling = New System.Windows.Forms.Button() - Me.cboHandlingssatz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.btnHandling_AMBAR = New System.Windows.Forms.Button() - Me.cboHandlingssatz_AMBAR = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxHandlingAbrechnen = New System.Windows.Forms.CheckBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.cbxDetailbericht = New System.Windows.Forms.CheckBox() @@ -109,8 +90,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Button17 = New System.Windows.Forms.Button() Me.btnCSAufteilung = New System.Windows.Forms.Button() Me.Button14 = New System.Windows.Forms.Button() - Me.txtMax = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboRolle = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label35 = New System.Windows.Forms.Label() Me.Label34 = New System.Windows.Forms.Label() Me.Button9 = New System.Windows.Forms.Button() @@ -127,7 +106,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.btnExcel = New System.Windows.Forms.Button() Me.FlatButton7 = New System.Windows.Forms.Button() Me.Label37 = New System.Windows.Forms.Label() - Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblErgebnis = New System.Windows.Forms.Label() Me.Button3 = New System.Windows.Forms.Button() Me.lblAbsender = New System.Windows.Forms.Label() @@ -142,22 +120,12 @@ Partial Class usrCntlSpeditionsBuchSuche Me.lblUeberschrift = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label() Me.lblEmpfaenger = New System.Windows.Forms.Label() - Me.kdtxtFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.cboSB_Qs = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfertigungsnummerBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button7 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button() Me.btnToday = New System.Windows.Forms.Button() Me.btnSuche = New System.Windows.Forms.Button() Me.pnlSearch = New System.Windows.Forms.Panel() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() - Me.cboSB_TR = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label47 = New System.Windows.Forms.Label() Me.Label28 = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label() @@ -181,45 +149,76 @@ Partial Class usrCntlSpeditionsBuchSuche Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.cbxfehlZahlung_SENDUNG = New System.Windows.Forms.CheckBox() Me.cbxfehlZahlung_AVISOID = New System.Windows.Forms.CheckBox() - Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblVermerke = New System.Windows.Forms.Label() - Me.txtZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.cbxEIDR = New System.Windows.Forms.CheckBox() Me.cbxCMR = New System.Windows.Forms.CheckBox() Me.Label41 = New System.Windows.Forms.Label() - Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lstGrenze = New VERAG_PROG_ALLGEMEIN.MyListBox() Me.lblKdAuftragsNr = New System.Windows.Forms.Label() Me.lblAuftraggeber = New System.Windows.Forms.Label() Me.lblFrachtf = New System.Windows.Forms.Label() - Me.MyTextBox14 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() - Me.kdtxtEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.cbxFakturiert = New System.Windows.Forms.CheckBox() Me.lblLKW_KZ = New System.Windows.Forms.Label() - Me.txtAbsenderKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdtxtEndempfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.cbxBar = New System.Windows.Forms.CheckBox() - Me.txtEmpfaengerKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdtxtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtFrachtfuehrerKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEndempfaengerKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblCRNNr = New System.Windows.Forms.Label() - Me.txtErfassungsnNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblVersendungsland = New System.Windows.Forms.Label() Me.lblErfassungsNr = New System.Windows.Forms.Label() Me.cbxOderEmpfanger = New System.Windows.Forms.CheckBox() Me.Panel2 = New System.Windows.Forms.Panel() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.lstFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyListBox() Me.Label45 = New System.Windows.Forms.Label() - Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.SplitContainer = New System.Windows.Forms.SplitContainer() + Me.cboSB_TR = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboSB_Qs = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertigungsnummerBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lstGrenze = New VERAG_PROG_ALLGEMEIN.MyListBox() + Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdtxtAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAuftraggeberKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboVersLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboBestLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtPackstücke = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdtxtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAvisiererKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox() + Me.kdtxtFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.MyTextBox14 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdtxtEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAbsenderKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdtxtEndempfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtEmpfaengerKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdtxtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtFrachtfuehrerKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEndempfaengerKdnr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtErfassungsnNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lstFiliale = New VERAG_PROG_ALLGEMEIN.MyListBox() + Me.lstFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyListBox() + Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtFiskalEndempfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvLKW = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.cboDetailberichtKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtUeberschr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboHandlingssatz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboHandlingssatz_AMBAR = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtMax = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboRolle = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.cntxtCntxtSpeditionsbuch.SuspendLayout() Me.pnlRechts.SuspendLayout() - CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlAnzeige.SuspendLayout() - CType(Me.dgvLKW, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlOpt.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() @@ -240,6 +239,8 @@ Partial Class usrCntlSpeditionsBuchSuche Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout() Me.SplitContainer.SuspendLayout() + CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvLKW, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'TabPage1 @@ -272,31 +273,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.EintragLöschenToolStripMenuItem.Size = New System.Drawing.Size(198, 22) Me.EintragLöschenToolStripMenuItem.Text = "Eintrag löschen" ' - 'txtAvisoId - ' - Me.txtAvisoId._DateTimeOnly = False - Me.txtAvisoId._numbersOnly = False - Me.txtAvisoId._numbersOnlyKommastellen = "" - Me.txtAvisoId._numbersOnlyTrennzeichen = True - Me.txtAvisoId._Prozent = False - Me.txtAvisoId._ShortDateNew = False - Me.txtAvisoId._ShortDateOnly = False - Me.txtAvisoId._TimeOnly = False - Me.txtAvisoId._TimeOnly_Seconds = False - Me.txtAvisoId._value = Nothing - Me.txtAvisoId._Waehrung = False - Me.txtAvisoId._WaehrungZeichen = True - Me.txtAvisoId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAvisoId.ForeColor = System.Drawing.Color.Black - Me.txtAvisoId.Location = New System.Drawing.Point(353, 192) - Me.txtAvisoId.MaxLineLength = -1 - Me.txtAvisoId.MaxLines_Warning = "" - Me.txtAvisoId.MaxLines_Warning_Label = Nothing - Me.txtAvisoId.Name = "txtAvisoId" - Me.txtAvisoId.Size = New System.Drawing.Size(132, 20) - Me.txtAvisoId.TabIndex = 43 - Me.txtAvisoId.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'lblLKWId ' Me.lblLKWId.AutoSize = True @@ -306,142 +282,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.lblLKWId.TabIndex = 42 Me.lblLKWId.Text = "LKW-Id:" ' - 'lstFiliale - ' - Me.lstFiliale._value = "" - Me.lstFiliale.FormattingEnabled = True - Me.lstFiliale.Location = New System.Drawing.Point(3, 15) - Me.lstFiliale.Name = "lstFiliale" - Me.lstFiliale.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple - Me.lstFiliale.Size = New System.Drawing.Size(116, 82) - Me.lstFiliale.TabIndex = 4 - ' - 'kdtxtAuftraggeber - ' - Me.kdtxtAuftraggeber._AlleFirmenCLUSTER = False - Me.kdtxtAuftraggeber._AllowSetValue = True - Me.kdtxtAuftraggeber._autoSizeGross = False - Me.kdtxtAuftraggeber._display_Name1 = False - Me.kdtxtAuftraggeber._displayAVISO_Email = False - Me.kdtxtAuftraggeber._displayFullName = False - Me.kdtxtAuftraggeber._displayWoelflKd = False - Me.kdtxtAuftraggeber._hideIfListEmpty = True - Me.kdtxtAuftraggeber._loadKdData = False - Me.kdtxtAuftraggeber._searchName1 = True - Me.kdtxtAuftraggeber._UseFIRMA = "" - Me.kdtxtAuftraggeber._ValueKdAndName = True - Me.kdtxtAuftraggeber.dgvpos = "LEFT" - Me.kdtxtAuftraggeber.KdName = "" - Me.kdtxtAuftraggeber.KdNr = "-1" - Me.kdtxtAuftraggeber.kdNrField = Nothing - Me.kdtxtAuftraggeber.KdNrNullInt = Nothing - Me.kdtxtAuftraggeber.Location = New System.Drawing.Point(135, 26) - Me.kdtxtAuftraggeber.Name = "kdtxtAuftraggeber" - Me.kdtxtAuftraggeber.nurAktive = False - Me.kdtxtAuftraggeber.searchActive = True - Me.kdtxtAuftraggeber.Size = New System.Drawing.Size(261, 20) - Me.kdtxtAuftraggeber.TabIndex = 17 - Me.kdtxtAuftraggeber.TIMER_SEARCH = True - Me.kdtxtAuftraggeber.usrcntl = Nothing - ' - 'txtAuftraggeberKdnr - ' - Me.txtAuftraggeberKdnr._DateTimeOnly = False - Me.txtAuftraggeberKdnr._numbersOnly = False - Me.txtAuftraggeberKdnr._numbersOnlyKommastellen = "" - Me.txtAuftraggeberKdnr._numbersOnlyTrennzeichen = True - Me.txtAuftraggeberKdnr._Prozent = False - Me.txtAuftraggeberKdnr._ShortDateNew = False - Me.txtAuftraggeberKdnr._ShortDateOnly = False - Me.txtAuftraggeberKdnr._TimeOnly = False - Me.txtAuftraggeberKdnr._TimeOnly_Seconds = False - Me.txtAuftraggeberKdnr._value = Nothing - Me.txtAuftraggeberKdnr._Waehrung = False - Me.txtAuftraggeberKdnr._WaehrungZeichen = True - Me.txtAuftraggeberKdnr.BackColor = System.Drawing.Color.White - Me.txtAuftraggeberKdnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAuftraggeberKdnr.ForeColor = System.Drawing.Color.Black - Me.txtAuftraggeberKdnr.Location = New System.Drawing.Point(406, 26) - Me.txtAuftraggeberKdnr.MaxLineLength = -1 - Me.txtAuftraggeberKdnr.MaxLines_Warning = "" - Me.txtAuftraggeberKdnr.MaxLines_Warning_Label = Nothing - Me.txtAuftraggeberKdnr.Name = "txtAuftraggeberKdnr" - Me.txtAuftraggeberKdnr.ReadOnly = True - Me.txtAuftraggeberKdnr.Size = New System.Drawing.Size(79, 20) - Me.txtAuftraggeberKdnr.TabIndex = 18 - ' - 'txtCRN - ' - Me.txtCRN._DateTimeOnly = False - Me.txtCRN._numbersOnly = False - Me.txtCRN._numbersOnlyKommastellen = "" - Me.txtCRN._numbersOnlyTrennzeichen = True - Me.txtCRN._Prozent = False - Me.txtCRN._ShortDateNew = False - Me.txtCRN._ShortDateOnly = False - Me.txtCRN._TimeOnly = False - Me.txtCRN._TimeOnly_Seconds = False - Me.txtCRN._value = Nothing - Me.txtCRN._Waehrung = False - Me.txtCRN._WaehrungZeichen = True - Me.txtCRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCRN.ForeColor = System.Drawing.Color.Black - Me.txtCRN.Location = New System.Drawing.Point(738, 26) - Me.txtCRN.MaxLineLength = -1 - Me.txtCRN.MaxLines_Warning = "" - Me.txtCRN.MaxLines_Warning_Label = Nothing - Me.txtCRN.Name = "txtCRN" - Me.txtCRN.Size = New System.Drawing.Size(241, 20) - Me.txtCRN.TabIndex = 15 - ' - 'txtBelegNr - ' - Me.txtBelegNr._DateTimeOnly = False - Me.txtBelegNr._numbersOnly = False - Me.txtBelegNr._numbersOnlyKommastellen = "" - Me.txtBelegNr._numbersOnlyTrennzeichen = True - Me.txtBelegNr._Prozent = False - Me.txtBelegNr._ShortDateNew = False - Me.txtBelegNr._ShortDateOnly = False - Me.txtBelegNr._TimeOnly = False - Me.txtBelegNr._TimeOnly_Seconds = False - Me.txtBelegNr._value = Nothing - Me.txtBelegNr._Waehrung = False - Me.txtBelegNr._WaehrungZeichen = True - Me.txtBelegNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtBelegNr.ForeColor = System.Drawing.Color.Black - Me.txtBelegNr.Location = New System.Drawing.Point(493, 70) - Me.txtBelegNr.MaxLineLength = -1 - Me.txtBelegNr.MaxLines_Warning = "" - Me.txtBelegNr.MaxLines_Warning_Label = Nothing - Me.txtBelegNr.Name = "txtBelegNr" - Me.txtBelegNr.Size = New System.Drawing.Size(239, 20) - Me.txtBelegNr.TabIndex = 8 - ' - 'cboVersLand - ' - Me.cboVersLand._allowedValuesFreiText = Nothing - Me.cboVersLand._allowFreiText = False - Me.cboVersLand._value = "" - Me.cboVersLand.DropDownWidth = 300 - Me.cboVersLand.FormattingEnabled = True - Me.cboVersLand.Location = New System.Drawing.Point(758, 69) - Me.cboVersLand.Name = "cboVersLand" - Me.cboVersLand.Size = New System.Drawing.Size(117, 21) - Me.cboVersLand.TabIndex = 24 - ' - 'cboBestLand - ' - Me.cboBestLand._allowedValuesFreiText = Nothing - Me.cboBestLand._allowFreiText = False - Me.cboBestLand._value = "" - Me.cboBestLand.DropDownWidth = 300 - Me.cboBestLand.FormattingEnabled = True - Me.cboBestLand.Location = New System.Drawing.Point(881, 69) - Me.cboBestLand.Name = "cboBestLand" - Me.cboBestLand.Size = New System.Drawing.Size(118, 21) - Me.cboBestLand.TabIndex = 25 - ' 'lblBestimmungsland ' Me.lblBestimmungsland.AutoSize = True @@ -451,30 +291,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.lblBestimmungsland.TabIndex = 20 Me.lblBestimmungsland.Text = "Bestimmungsland:" ' - 'txtPackstücke - ' - Me.txtPackstücke._DateTimeOnly = False - Me.txtPackstücke._numbersOnly = False - Me.txtPackstücke._numbersOnlyKommastellen = "" - Me.txtPackstücke._numbersOnlyTrennzeichen = True - Me.txtPackstücke._Prozent = False - Me.txtPackstücke._ShortDateNew = False - Me.txtPackstücke._ShortDateOnly = False - Me.txtPackstücke._TimeOnly = False - Me.txtPackstücke._TimeOnly_Seconds = False - Me.txtPackstücke._value = Nothing - Me.txtPackstücke._Waehrung = False - Me.txtPackstücke._WaehrungZeichen = True - Me.txtPackstücke.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPackstücke.ForeColor = System.Drawing.Color.Black - Me.txtPackstücke.Location = New System.Drawing.Point(493, 108) - Me.txtPackstücke.MaxLineLength = -1 - Me.txtPackstücke.MaxLines_Warning = "" - Me.txtPackstücke.MaxLines_Warning_Label = Nothing - Me.txtPackstücke.Name = "txtPackstücke" - Me.txtPackstücke.Size = New System.Drawing.Size(64, 20) - Me.txtPackstücke.TabIndex = 41 - ' 'lblPackst ' Me.lblPackst.AutoSize = True @@ -516,60 +332,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.lblAvisierer.TabIndex = 36 Me.lblAvisierer.Text = "Avisierer:" ' - 'kdtxtAvisierer - ' - Me.kdtxtAvisierer._AlleFirmenCLUSTER = False - Me.kdtxtAvisierer._AllowSetValue = True - Me.kdtxtAvisierer._autoSizeGross = False - Me.kdtxtAvisierer._display_Name1 = False - Me.kdtxtAvisierer._displayAVISO_Email = False - Me.kdtxtAvisierer._displayFullName = False - Me.kdtxtAvisierer._displayWoelflKd = False - Me.kdtxtAvisierer._hideIfListEmpty = True - Me.kdtxtAvisierer._loadKdData = False - Me.kdtxtAvisierer._searchName1 = True - Me.kdtxtAvisierer._UseFIRMA = "" - Me.kdtxtAvisierer._ValueKdAndName = True - Me.kdtxtAvisierer.dgvpos = "LEFT" - Me.kdtxtAvisierer.KdName = "" - Me.kdtxtAvisierer.KdNr = "-1" - Me.kdtxtAvisierer.kdNrField = Nothing - Me.kdtxtAvisierer.KdNrNullInt = Nothing - Me.kdtxtAvisierer.Location = New System.Drawing.Point(135, 108) - Me.kdtxtAvisierer.Name = "kdtxtAvisierer" - Me.kdtxtAvisierer.nurAktive = False - Me.kdtxtAvisierer.searchActive = True - Me.kdtxtAvisierer.Size = New System.Drawing.Size(261, 20) - Me.kdtxtAvisierer.TabIndex = 37 - Me.kdtxtAvisierer.TIMER_SEARCH = True - Me.kdtxtAvisierer.usrcntl = Nothing - ' - 'txtAvisiererKdNr - ' - Me.txtAvisiererKdNr._DateTimeOnly = False - Me.txtAvisiererKdNr._numbersOnly = False - Me.txtAvisiererKdNr._numbersOnlyKommastellen = "" - Me.txtAvisiererKdNr._numbersOnlyTrennzeichen = True - Me.txtAvisiererKdNr._Prozent = False - Me.txtAvisiererKdNr._ShortDateNew = False - Me.txtAvisiererKdNr._ShortDateOnly = False - Me.txtAvisiererKdNr._TimeOnly = False - Me.txtAvisiererKdNr._TimeOnly_Seconds = False - Me.txtAvisiererKdNr._value = Nothing - Me.txtAvisiererKdNr._Waehrung = False - Me.txtAvisiererKdNr._WaehrungZeichen = True - Me.txtAvisiererKdNr.BackColor = System.Drawing.Color.White - Me.txtAvisiererKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAvisiererKdNr.ForeColor = System.Drawing.Color.Black - Me.txtAvisiererKdNr.Location = New System.Drawing.Point(406, 108) - Me.txtAvisiererKdNr.MaxLineLength = -1 - Me.txtAvisiererKdNr.MaxLines_Warning = "" - Me.txtAvisiererKdNr.MaxLines_Warning_Label = Nothing - Me.txtAvisiererKdNr.Name = "txtAvisiererKdNr" - Me.txtAvisiererKdNr.ReadOnly = True - Me.txtAvisiererKdNr.Size = New System.Drawing.Size(79, 20) - Me.txtAvisiererKdNr.TabIndex = 38 - ' 'pnlRechts ' Me.pnlRechts.AutoSize = True @@ -595,19 +357,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.btnNurAbf.Text = "Nur Abfertigungs Leistungen" Me.btnNurAbf.UseVisualStyleBackColor = True ' - 'MyListBox1 - ' - Me.MyListBox1._value = "" - Me.MyListBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.MyListBox1.FormattingEnabled = True - Me.MyListBox1.Location = New System.Drawing.Point(4, 19) - Me.MyListBox1.Name = "MyListBox1" - Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple - Me.MyListBox1.Size = New System.Drawing.Size(225, 147) - Me.MyListBox1.TabIndex = 1 - ' 'btnAlle ' Me.btnAlle.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -649,72 +398,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Label17.Text = "EU-Fiskal Empf.:" Me.Label17.Visible = False ' - 'txtFiskalEndempfaenger - ' - Me.txtFiskalEndempfaenger._DateTimeOnly = False - Me.txtFiskalEndempfaenger._numbersOnly = False - Me.txtFiskalEndempfaenger._numbersOnlyKommastellen = "" - Me.txtFiskalEndempfaenger._numbersOnlyTrennzeichen = True - Me.txtFiskalEndempfaenger._Prozent = False - Me.txtFiskalEndempfaenger._ShortDateNew = False - Me.txtFiskalEndempfaenger._ShortDateOnly = False - Me.txtFiskalEndempfaenger._TimeOnly = False - Me.txtFiskalEndempfaenger._TimeOnly_Seconds = False - Me.txtFiskalEndempfaenger._value = Nothing - Me.txtFiskalEndempfaenger._Waehrung = False - Me.txtFiskalEndempfaenger._WaehrungZeichen = True - Me.txtFiskalEndempfaenger.BackColor = System.Drawing.Color.White - Me.txtFiskalEndempfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtFiskalEndempfaenger.ForeColor = System.Drawing.Color.Black - Me.txtFiskalEndempfaenger.Location = New System.Drawing.Point(224, 72) - Me.txtFiskalEndempfaenger.MaxLineLength = -1 - Me.txtFiskalEndempfaenger.MaxLines_Warning = "" - Me.txtFiskalEndempfaenger.MaxLines_Warning_Label = Nothing - Me.txtFiskalEndempfaenger.Name = "txtFiskalEndempfaenger" - Me.txtFiskalEndempfaenger.ReadOnly = True - Me.txtFiskalEndempfaenger.Size = New System.Drawing.Size(261, 20) - Me.txtFiskalEndempfaenger.TabIndex = 34 - Me.txtFiskalEndempfaenger.Visible = False - ' - 'DataGridView - ' - Me.DataGridView.AKTUALISIERUNGS_INTERVALL = -1 - Me.DataGridView.AllowUserToAddRows = False - Me.DataGridView.AllowUserToDeleteRows = False - Me.DataGridView.AllowUserToOrderColumns = True - Me.DataGridView.AllowUserToResizeRows = False - DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DataGridView.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 - Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.DataGridView.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.DataGridView.DefaultCellStyle = DataGridViewCellStyle2 - Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill - Me.DataGridView.Location = New System.Drawing.Point(450, 0) - Me.DataGridView.Name = "DataGridView" - DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DataGridView.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 - Me.DataGridView.Size = New System.Drawing.Size(789, 262) - Me.DataGridView.TabIndex = 0 - ' 'pnlAnzeige ' Me.pnlAnzeige.BackColor = System.Drawing.Color.White @@ -730,47 +413,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.pnlAnzeige.Size = New System.Drawing.Size(1239, 452) Me.pnlAnzeige.TabIndex = 0 ' - 'dgvLKW - ' - Me.dgvLKW.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvLKW.AllowUserToAddRows = False - Me.dgvLKW.AllowUserToDeleteRows = False - Me.dgvLKW.AllowUserToOrderColumns = True - Me.dgvLKW.AllowUserToResizeRows = False - Me.dgvLKW.BackgroundColor = System.Drawing.Color.WhiteSmoke - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 - Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvLKW.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle5 - Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Left - Me.dgvLKW.Location = New System.Drawing.Point(0, 0) - Me.dgvLKW.Name = "dgvLKW" - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 - Me.dgvLKW.Size = New System.Drawing.Size(450, 262) - Me.dgvLKW.TabIndex = 35 - Me.dgvLKW.Visible = False - ' 'pnlOpt ' Me.pnlOpt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle @@ -886,18 +528,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.cbxRptDetailsZahlungsdetails.Text = "Zahlungsdetails" Me.cbxRptDetailsZahlungsdetails.UseVisualStyleBackColor = False ' - 'cboDetailberichtKdAtrNr - ' - Me.cboDetailberichtKdAtrNr._allowedValuesFreiText = Nothing - Me.cboDetailberichtKdAtrNr._allowFreiText = False - Me.cboDetailberichtKdAtrNr._value = "" - Me.cboDetailberichtKdAtrNr.DropDownWidth = 300 - Me.cboDetailberichtKdAtrNr.FormattingEnabled = True - Me.cboDetailberichtKdAtrNr.Location = New System.Drawing.Point(140, 78) - Me.cboDetailberichtKdAtrNr.Name = "cboDetailberichtKdAtrNr" - Me.cboDetailberichtKdAtrNr.Size = New System.Drawing.Size(76, 21) - Me.cboDetailberichtKdAtrNr.TabIndex = 56 - ' 'Label38 ' Me.Label38.AutoSize = True @@ -989,31 +619,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Label42.TabIndex = 50 Me.Label42.Text = "Beschr.:" ' - 'txtUeberschr - ' - Me.txtUeberschr._DateTimeOnly = False - Me.txtUeberschr._numbersOnly = False - Me.txtUeberschr._numbersOnlyKommastellen = "" - Me.txtUeberschr._numbersOnlyTrennzeichen = True - Me.txtUeberschr._Prozent = False - Me.txtUeberschr._ShortDateNew = False - Me.txtUeberschr._ShortDateOnly = False - Me.txtUeberschr._TimeOnly = False - Me.txtUeberschr._TimeOnly_Seconds = False - Me.txtUeberschr._value = "" - Me.txtUeberschr._Waehrung = False - Me.txtUeberschr._WaehrungZeichen = True - Me.txtUeberschr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtUeberschr.ForeColor = System.Drawing.Color.Black - Me.txtUeberschr.Location = New System.Drawing.Point(204, 107) - Me.txtUeberschr.MaxLineLength = -1 - Me.txtUeberschr.MaxLines_Warning = "" - Me.txtUeberschr.MaxLines_Warning_Label = Nothing - Me.txtUeberschr.Multiline = True - Me.txtUeberschr.Name = "txtUeberschr" - Me.txtUeberschr.Size = New System.Drawing.Size(173, 20) - Me.txtUeberschr.TabIndex = 51 - ' 'Button22 ' Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -1071,9 +676,9 @@ Partial Class usrCntlSpeditionsBuchSuche ' Me.pnlBerichte.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.pnlBerichte.Controls.Add(Me.CheckBox5) Me.pnlBerichte.Controls.Add(Me.FlowLayoutPanel1) Me.pnlBerichte.Controls.Add(Me.cbxHandlingAbrechnen) - Me.pnlBerichte.Controls.Add(Me.CheckBox4) Me.pnlBerichte.Controls.Add(Me.cbxDetailbericht) Me.pnlBerichte.Controls.Add(Me.Button24) Me.pnlBerichte.Controls.Add(Me.Button23) @@ -1092,6 +697,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.pnlBerichte.Controls.Add(Me.Button9) Me.pnlBerichte.Controls.Add(Me.btnQSAufteilung) Me.pnlBerichte.Controls.Add(Me.Label43) + Me.pnlBerichte.Controls.Add(Me.CheckBox4) Me.pnlBerichte.Location = New System.Drawing.Point(588, 0) Me.pnlBerichte.Name = "pnlBerichte" Me.pnlBerichte.Size = New System.Drawing.Size(495, 186) @@ -1123,18 +729,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.btnHandling.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnHandling.UseVisualStyleBackColor = True ' - 'cboHandlingssatz - ' - Me.cboHandlingssatz._allowedValuesFreiText = Nothing - Me.cboHandlingssatz._allowFreiText = False - Me.cboHandlingssatz._value = "" - Me.cboHandlingssatz.DropDownWidth = 300 - Me.cboHandlingssatz.FormattingEnabled = True - Me.cboHandlingssatz.Location = New System.Drawing.Point(3, 31) - Me.cboHandlingssatz.Name = "cboHandlingssatz" - Me.cboHandlingssatz.Size = New System.Drawing.Size(159, 21) - Me.cboHandlingssatz.TabIndex = 60 - ' 'btnHandling_AMBAR ' Me.btnHandling_AMBAR.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -1149,19 +743,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.btnHandling_AMBAR.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnHandling_AMBAR.UseVisualStyleBackColor = True ' - 'cboHandlingssatz_AMBAR - ' - Me.cboHandlingssatz_AMBAR._allowedValuesFreiText = Nothing - Me.cboHandlingssatz_AMBAR._allowFreiText = False - Me.cboHandlingssatz_AMBAR._value = "" - Me.cboHandlingssatz_AMBAR.DropDownWidth = 250 - Me.cboHandlingssatz_AMBAR.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboHandlingssatz_AMBAR.FormattingEnabled = True - Me.cboHandlingssatz_AMBAR.Location = New System.Drawing.Point(3, 59) - Me.cboHandlingssatz_AMBAR.Name = "cboHandlingssatz_AMBAR" - Me.cboHandlingssatz_AMBAR.Size = New System.Drawing.Size(128, 22) - Me.cboHandlingssatz_AMBAR.TabIndex = 53 - ' 'cbxHandlingAbrechnen ' Me.cbxHandlingAbrechnen.AutoSize = True @@ -1178,7 +759,7 @@ Partial Class usrCntlSpeditionsBuchSuche ' Me.CheckBox4.AutoSize = True Me.CheckBox4.BackColor = System.Drawing.Color.WhiteSmoke - Me.CheckBox4.Location = New System.Drawing.Point(413, 141) + Me.CheckBox4.Location = New System.Drawing.Point(328, 126) Me.CheckBox4.Name = "CheckBox4" Me.CheckBox4.Size = New System.Drawing.Size(78, 17) Me.CheckBox4.TabIndex = 95 @@ -1255,14 +836,14 @@ Partial Class usrCntlSpeditionsBuchSuche ' Me.ToolStripMenuItem2.Image = CType(resources.GetObject("ToolStripMenuItem2.Image"), System.Drawing.Image) Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" - Me.ToolStripMenuItem2.Size = New System.Drawing.Size(308, 24) + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(316, 30) Me.ToolStripMenuItem2.Text = "Kanadevia (Zeitraum auswählen)" ' 'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem ' Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image) Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem" - Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24) + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30) Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Passau (Zeitraum auswählen)" Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False ' @@ -1270,14 +851,14 @@ Partial Class usrCntlSpeditionsBuchSuche ' Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Name = "ZFSteyrZeitraumAuswählenToolStripMenuItem" - Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24) + Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30) Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Text = "ZF Steyr (Zeitraum auswählen)" ' 'ZFThyrnauZeitraumAuswählenToolStripMenuItem ' Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Name = "ZFThyrnauZeitraumAuswählenToolStripMenuItem" - Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24) + Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30) Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Text = "ZF Thyrnau (Zeitraum auswählen)" Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Visible = False ' @@ -1285,7 +866,7 @@ Partial Class usrCntlSpeditionsBuchSuche ' Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Name = "AuswertungDiversZeitraumAuswählenToolStripMenuItem" - Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24) + Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30) Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)" Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Visible = False ' @@ -1376,42 +957,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button14.UseVisualStyleBackColor = True ' - 'txtMax - ' - Me.txtMax._DateTimeOnly = False - Me.txtMax._numbersOnly = True - Me.txtMax._numbersOnlyKommastellen = "" - Me.txtMax._numbersOnlyTrennzeichen = True - Me.txtMax._Prozent = False - Me.txtMax._ShortDateNew = False - Me.txtMax._ShortDateOnly = False - Me.txtMax._TimeOnly = False - Me.txtMax._TimeOnly_Seconds = False - Me.txtMax._value = "" - Me.txtMax._Waehrung = False - Me.txtMax._WaehrungZeichen = True - Me.txtMax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtMax.ForeColor = System.Drawing.Color.Black - Me.txtMax.Location = New System.Drawing.Point(401, 13) - Me.txtMax.MaxLineLength = -1 - Me.txtMax.MaxLines_Warning = "" - Me.txtMax.MaxLines_Warning_Label = Nothing - Me.txtMax.Name = "txtMax" - Me.txtMax.Size = New System.Drawing.Size(76, 20) - Me.txtMax.TabIndex = 33 - ' - 'cboRolle - ' - Me.cboRolle._allowedValuesFreiText = Nothing - Me.cboRolle._allowFreiText = False - Me.cboRolle._value = "" - Me.cboRolle.DropDownWidth = 300 - Me.cboRolle.FormattingEnabled = True - Me.cboRolle.Location = New System.Drawing.Point(401, 32) - Me.cboRolle.Name = "cboRolle" - Me.cboRolle.Size = New System.Drawing.Size(76, 21) - Me.cboRolle.TabIndex = 39 - ' 'Label35 ' Me.Label35.AutoSize = True @@ -1592,32 +1137,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Label37.TabIndex = 41 Me.Label37.Text = "Max:" ' - 'txtMaxSrch - ' - Me.txtMaxSrch._DateTimeOnly = False - Me.txtMaxSrch._numbersOnly = True - Me.txtMaxSrch._numbersOnlyKommastellen = "" - Me.txtMaxSrch._numbersOnlyTrennzeichen = True - Me.txtMaxSrch._Prozent = False - Me.txtMaxSrch._ShortDateNew = False - Me.txtMaxSrch._ShortDateOnly = False - Me.txtMaxSrch._TimeOnly = False - Me.txtMaxSrch._TimeOnly_Seconds = False - Me.txtMaxSrch._value = "" - Me.txtMaxSrch._Waehrung = False - Me.txtMaxSrch._WaehrungZeichen = True - 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(1136, 31) - 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(41, 20) - Me.txtMaxSrch.TabIndex = 42 - Me.txtMaxSrch.Text = "1000" - Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'lblErgebnis ' Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -1768,199 +1287,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.lblEmpfaenger.TabIndex = 9 Me.lblEmpfaenger.Text = "(Rg.) Empfänger:" ' - 'kdtxtFrachtfuehrer - ' - Me.kdtxtFrachtfuehrer._AlleFirmenCLUSTER = False - Me.kdtxtFrachtfuehrer._AllowSetValue = True - Me.kdtxtFrachtfuehrer._autoSizeGross = False - Me.kdtxtFrachtfuehrer._display_Name1 = False - Me.kdtxtFrachtfuehrer._displayAVISO_Email = False - Me.kdtxtFrachtfuehrer._displayFullName = False - Me.kdtxtFrachtfuehrer._displayWoelflKd = False - Me.kdtxtFrachtfuehrer._hideIfListEmpty = True - Me.kdtxtFrachtfuehrer._loadKdData = False - Me.kdtxtFrachtfuehrer._searchName1 = True - Me.kdtxtFrachtfuehrer._UseFIRMA = "" - Me.kdtxtFrachtfuehrer._ValueKdAndName = True - Me.kdtxtFrachtfuehrer.dgvpos = "LEFT" - Me.kdtxtFrachtfuehrer.KdName = "" - Me.kdtxtFrachtfuehrer.KdNr = "-1" - Me.kdtxtFrachtfuehrer.kdNrField = Nothing - Me.kdtxtFrachtfuehrer.KdNrNullInt = Nothing - Me.kdtxtFrachtfuehrer.Location = New System.Drawing.Point(135, 127) - Me.kdtxtFrachtfuehrer.Name = "kdtxtFrachtfuehrer" - Me.kdtxtFrachtfuehrer.nurAktive = False - Me.kdtxtFrachtfuehrer.searchActive = True - Me.kdtxtFrachtfuehrer.Size = New System.Drawing.Size(261, 20) - Me.kdtxtFrachtfuehrer.TabIndex = 22 - Me.kdtxtFrachtfuehrer.TIMER_SEARCH = True - Me.kdtxtFrachtfuehrer.usrcntl = Nothing - ' - 'cboSB_Qs - ' - Me.cboSB_Qs._allowedValuesFreiText = Nothing - Me.cboSB_Qs._allowFreiText = False - Me.cboSB_Qs._value = "" - Me.cboSB_Qs.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboSB_Qs.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboSB_Qs.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboSB_Qs.FormattingEnabled = True - Me.cboSB_Qs.Location = New System.Drawing.Point(738, 58) - Me.cboSB_Qs.Name = "cboSB_Qs" - Me.cboSB_Qs.Size = New System.Drawing.Size(117, 24) - Me.cboSB_Qs.TabIndex = 27 - ' - 'txtAbfertDat - ' - Me.txtAbfertDat._DateTimeOnly = False - Me.txtAbfertDat._numbersOnly = False - Me.txtAbfertDat._numbersOnlyKommastellen = "" - Me.txtAbfertDat._numbersOnlyTrennzeichen = True - Me.txtAbfertDat._Prozent = False - Me.txtAbfertDat._ShortDateNew = True - Me.txtAbfertDat._ShortDateOnly = False - Me.txtAbfertDat._TimeOnly = False - Me.txtAbfertDat._TimeOnly_Seconds = False - Me.txtAbfertDat._value = "" - Me.txtAbfertDat._Waehrung = False - 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(43, 30) - 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(83, 20) - Me.txtAbfertDat.TabIndex = 1 - ' - 'txtAbfertDatBis - ' - Me.txtAbfertDatBis._DateTimeOnly = False - Me.txtAbfertDatBis._numbersOnly = False - Me.txtAbfertDatBis._numbersOnlyKommastellen = "" - Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True - Me.txtAbfertDatBis._Prozent = False - Me.txtAbfertDatBis._ShortDateNew = True - Me.txtAbfertDatBis._ShortDateOnly = False - Me.txtAbfertDatBis._TimeOnly = False - Me.txtAbfertDatBis._TimeOnly_Seconds = False - Me.txtAbfertDatBis._value = "" - Me.txtAbfertDatBis._Waehrung = False - Me.txtAbfertDatBis._WaehrungZeichen = True - Me.txtAbfertDatBis.Enabled = False - 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(43, 59) - 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(83, 20) - Me.txtAbfertDatBis.TabIndex = 3 - ' - 'cboSachbearbeiter - ' - Me.cboSachbearbeiter._allowedValuesFreiText = Nothing - Me.cboSachbearbeiter._allowFreiText = False - Me.cboSachbearbeiter._value = "" - Me.cboSachbearbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboSachbearbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboSachbearbeiter.FormattingEnabled = True - Me.cboSachbearbeiter.Location = New System.Drawing.Point(738, 31) - Me.cboSachbearbeiter.Name = "cboSachbearbeiter" - Me.cboSachbearbeiter.Size = New System.Drawing.Size(268, 24) - Me.cboSachbearbeiter.TabIndex = 26 - ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - 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(333, 29) - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(80, 22) - Me.cboFiliale.TabIndex = 20 - ' - 'txtUnterNr - ' - Me.txtUnterNr._DateTimeOnly = False - Me.txtUnterNr._numbersOnly = False - Me.txtUnterNr._numbersOnlyKommastellen = "" - Me.txtUnterNr._numbersOnlyTrennzeichen = True - Me.txtUnterNr._Prozent = False - Me.txtUnterNr._ShortDateNew = False - Me.txtUnterNr._ShortDateOnly = False - Me.txtUnterNr._TimeOnly = False - Me.txtUnterNr._TimeOnly_Seconds = False - Me.txtUnterNr._value = Nothing - Me.txtUnterNr._Waehrung = False - Me.txtUnterNr._WaehrungZeichen = True - Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtUnterNr.ForeColor = System.Drawing.Color.Black - Me.txtUnterNr.Location = New System.Drawing.Point(633, 31) - Me.txtUnterNr.MaxLineLength = -1 - Me.txtUnterNr.MaxLines_Warning = "" - Me.txtUnterNr.MaxLines_Warning_Label = Nothing - Me.txtUnterNr.Name = "txtUnterNr" - Me.txtUnterNr.Size = New System.Drawing.Size(41, 20) - Me.txtUnterNr.TabIndex = 24 - ' - 'txtAbfertigungsnummerBis - ' - Me.txtAbfertigungsnummerBis._DateTimeOnly = False - Me.txtAbfertigungsnummerBis._numbersOnly = False - Me.txtAbfertigungsnummerBis._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummerBis._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsnummerBis._Prozent = False - Me.txtAbfertigungsnummerBis._ShortDateNew = False - Me.txtAbfertigungsnummerBis._ShortDateOnly = False - Me.txtAbfertigungsnummerBis._TimeOnly = False - Me.txtAbfertigungsnummerBis._TimeOnly_Seconds = False - Me.txtAbfertigungsnummerBis._value = Nothing - Me.txtAbfertigungsnummerBis._Waehrung = False - Me.txtAbfertigungsnummerBis._WaehrungZeichen = True - Me.txtAbfertigungsnummerBis.Enabled = False - Me.txtAbfertigungsnummerBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertigungsnummerBis.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsnummerBis.Location = New System.Drawing.Point(466, 58) - Me.txtAbfertigungsnummerBis.MaxLineLength = -1 - Me.txtAbfertigungsnummerBis.MaxLines_Warning = "" - Me.txtAbfertigungsnummerBis.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummerBis.Name = "txtAbfertigungsnummerBis" - Me.txtAbfertigungsnummerBis.Size = New System.Drawing.Size(161, 20) - Me.txtAbfertigungsnummerBis.TabIndex = 23 - ' - 'txtAbfertigungsnummer - ' - Me.txtAbfertigungsnummer._DateTimeOnly = False - Me.txtAbfertigungsnummer._numbersOnly = False - Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsnummer._Prozent = False - Me.txtAbfertigungsnummer._ShortDateNew = False - Me.txtAbfertigungsnummer._ShortDateOnly = False - Me.txtAbfertigungsnummer._TimeOnly = False - Me.txtAbfertigungsnummer._TimeOnly_Seconds = False - Me.txtAbfertigungsnummer._value = Nothing - Me.txtAbfertigungsnummer._Waehrung = False - 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(466, 32) - Me.txtAbfertigungsnummer.MaxLineLength = -1 - Me.txtAbfertigungsnummer.MaxLines_Warning = "" - Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 20) - Me.txtAbfertigungsnummer.TabIndex = 22 - ' 'Button7 ' Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -2136,20 +1462,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.SplitContainer1.SplitterDistance = 84 Me.SplitContainer1.TabIndex = 0 ' - 'cboSB_TR - ' - Me.cboSB_TR._allowedValuesFreiText = Nothing - Me.cboSB_TR._allowFreiText = False - Me.cboSB_TR._value = "" - Me.cboSB_TR.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboSB_TR.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboSB_TR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboSB_TR.FormattingEnabled = True - Me.cboSB_TR.Location = New System.Drawing.Point(889, 57) - Me.cboSB_TR.Name = "cboSB_TR" - Me.cboSB_TR.Size = New System.Drawing.Size(117, 24) - Me.cboSB_TR.TabIndex = 33 - ' 'Label47 ' Me.Label47.AutoSize = True @@ -2420,30 +1732,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.cbxfehlZahlung_AVISOID.ThreeState = True Me.cbxfehlZahlung_AVISOID.UseVisualStyleBackColor = False ' - 'txtVermerk - ' - Me.txtVermerk._DateTimeOnly = False - Me.txtVermerk._numbersOnly = False - Me.txtVermerk._numbersOnlyKommastellen = "" - Me.txtVermerk._numbersOnlyTrennzeichen = True - Me.txtVermerk._Prozent = False - Me.txtVermerk._ShortDateNew = False - Me.txtVermerk._ShortDateOnly = False - Me.txtVermerk._TimeOnly = False - Me.txtVermerk._TimeOnly_Seconds = False - Me.txtVermerk._value = Nothing - Me.txtVermerk._Waehrung = False - Me.txtVermerk._WaehrungZeichen = True - Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtVermerk.ForeColor = System.Drawing.Color.Black - Me.txtVermerk.Location = New System.Drawing.Point(563, 109) - Me.txtVermerk.MaxLineLength = -1 - Me.txtVermerk.MaxLines_Warning = "" - Me.txtVermerk.MaxLines_Warning_Label = Nothing - Me.txtVermerk.Name = "txtVermerk" - Me.txtVermerk.Size = New System.Drawing.Size(64, 20) - Me.txtVermerk.TabIndex = 57 - ' 'lblVermerke ' Me.lblVermerke.AutoSize = True @@ -2453,33 +1741,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.lblVermerke.TabIndex = 56 Me.lblVermerke.Text = "Vermerk:" ' - 'txtZollstelle - ' - Me.txtZollstelle._allowFreitext = False - Me.txtZollstelle._AllowSetValue = False - Me.txtZollstelle._allowSpaceAsSplitter = False - Me.txtZollstelle._autoSizeGross = False - Me.txtZollstelle._hideIfListEmpty = True - Me.txtZollstelle._value = Nothing - Me.txtZollstelle.conn_art = "FMZOLL" - Me.txtZollstelle.dgvpos = "LEFT" - Me.txtZollstelle.DISPLAY_PARAM = Nothing - Me.txtZollstelle.INVISIBLE_COLUMNS = Nothing - Me.txtZollstelle.key_visible = False - Me.txtZollstelle.KEYPARAM = Nothing - Me.txtZollstelle.Location = New System.Drawing.Point(649, 192) - Me.txtZollstelle.MaxLength = 50 - Me.txtZollstelle.Name = "txtZollstelle" - Me.txtZollstelle.searchActive = True - Me.txtZollstelle.Size = New System.Drawing.Size(106, 20) - Me.txtZollstelle.SQL_ORDER_BY = Nothing - Me.txtZollstelle.SQL_SELECT = Nothing - Me.txtZollstelle.SQL_WHERE = Nothing - Me.txtZollstelle.SQL_WhereParamList = Nothing - Me.txtZollstelle.TabIndex = 55 - Me.txtZollstelle.usrcntl = Nothing - Me.txtZollstelle.Visible = False - ' 'cbxEIDR ' Me.cbxEIDR.AutoSize = True @@ -2517,6 +1778,392 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Label41.TabIndex = 48 Me.Label41.Text = "Grenze:" ' + 'lblKdAuftragsNr + ' + Me.lblKdAuftragsNr.AutoSize = True + Me.lblKdAuftragsNr.Location = New System.Drawing.Point(490, 10) + Me.lblKdAuftragsNr.Name = "lblKdAuftragsNr" + Me.lblKdAuftragsNr.Size = New System.Drawing.Size(102, 13) + Me.lblKdAuftragsNr.TabIndex = 45 + Me.lblKdAuftragsNr.Text = "Kd-Auftragsnummer:" + ' + 'lblAuftraggeber + ' + Me.lblAuftraggeber.AutoSize = True + Me.lblAuftraggeber.Location = New System.Drawing.Point(14, 29) + Me.lblAuftraggeber.Name = "lblAuftraggeber" + Me.lblAuftraggeber.Size = New System.Drawing.Size(71, 13) + Me.lblAuftraggeber.TabIndex = 16 + Me.lblAuftraggeber.Text = "Auftraggeber:" + ' + 'lblFrachtf + ' + Me.lblFrachtf.AutoSize = True + Me.lblFrachtf.Location = New System.Drawing.Point(14, 130) + Me.lblFrachtf.Name = "lblFrachtf" + Me.lblFrachtf.Size = New System.Drawing.Size(67, 13) + Me.lblFrachtf.TabIndex = 21 + Me.lblFrachtf.Text = "Frachtführer:" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(403, 10) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(82, 13) + Me.Label11.TabIndex = 2 + Me.Label11.Text = "FM-ZOLL KdNr:" + ' + 'cbxFakturiert + ' + Me.cbxFakturiert.AutoSize = True + Me.cbxFakturiert.BackColor = System.Drawing.Color.White + Me.cbxFakturiert.Checked = True + Me.cbxFakturiert.CheckState = System.Windows.Forms.CheckState.Indeterminate + Me.cbxFakturiert.Location = New System.Drawing.Point(532, 180) + Me.cbxFakturiert.Name = "cbxFakturiert" + Me.cbxFakturiert.Size = New System.Drawing.Size(70, 17) + Me.cbxFakturiert.TabIndex = 32 + Me.cbxFakturiert.Text = "Fakturiert" + Me.cbxFakturiert.ThreeState = True + Me.cbxFakturiert.UseVisualStyleBackColor = False + ' + 'lblLKW_KZ + ' + Me.lblLKW_KZ.AutoSize = True + Me.lblLKW_KZ.Location = New System.Drawing.Point(12, 195) + Me.lblLKW_KZ.Name = "lblLKW_KZ" + Me.lblLKW_KZ.Size = New System.Drawing.Size(99, 13) + Me.lblLKW_KZ.TabIndex = 26 + Me.lblLKW_KZ.Text = "LKW-Kennzeichen:" + ' + 'cbxBar + ' + Me.cbxBar.AutoSize = True + Me.cbxBar.BackColor = System.Drawing.Color.White + Me.cbxBar.Checked = True + Me.cbxBar.CheckState = System.Windows.Forms.CheckState.Indeterminate + Me.cbxBar.Location = New System.Drawing.Point(490, 180) + Me.cbxBar.Name = "cbxBar" + Me.cbxBar.Size = New System.Drawing.Size(42, 17) + Me.cbxBar.TabIndex = 31 + Me.cbxBar.Text = "Bar" + Me.cbxBar.ThreeState = True + Me.cbxBar.UseVisualStyleBackColor = False + ' + 'lblCRNNr + ' + Me.lblCRNNr.AutoSize = True + Me.lblCRNNr.Location = New System.Drawing.Point(735, 10) + Me.lblCRNNr.Name = "lblCRNNr" + Me.lblCRNNr.Size = New System.Drawing.Size(47, 13) + Me.lblCRNNr.TabIndex = 13 + Me.lblCRNNr.Text = "CRN-Nr:" + ' + 'lblVersendungsland + ' + Me.lblVersendungsland.AutoSize = True + Me.lblVersendungsland.Location = New System.Drawing.Point(755, 55) + Me.lblVersendungsland.Name = "lblVersendungsland" + Me.lblVersendungsland.Size = New System.Drawing.Size(92, 13) + Me.lblVersendungsland.TabIndex = 19 + Me.lblVersendungsland.Text = "Versendungsland:" + ' + 'lblErfassungsNr + ' + Me.lblErfassungsNr.AutoSize = True + Me.lblErfassungsNr.Location = New System.Drawing.Point(490, 138) + Me.lblErfassungsNr.Name = "lblErfassungsNr" + Me.lblErfassungsNr.Size = New System.Drawing.Size(99, 13) + Me.lblErfassungsNr.TabIndex = 12 + Me.lblErfassungsNr.Text = "Erfassungsnummer:" + ' + 'cbxOderEmpfanger + ' + Me.cbxOderEmpfanger.AutoSize = True + Me.cbxOderEmpfanger.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.cbxOderEmpfanger.Location = New System.Drawing.Point(295, 9) + Me.cbxOderEmpfanger.Name = "cbxOderEmpfanger" + Me.cbxOderEmpfanger.Size = New System.Drawing.Size(101, 17) + Me.cbxOderEmpfanger.TabIndex = 44 + Me.cbxOderEmpfanger.Text = "oder Empfänger" + Me.cbxOderEmpfanger.UseVisualStyleBackColor = True + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel2.Controls.Add(Me.MyComboBox1) + Me.Panel2.Controls.Add(Me.lstFiliale) + Me.Panel2.Controls.Add(Me.lstFilialeHandling) + Me.Panel2.Controls.Add(Me.Label45) + Me.Panel2.Controls.Add(Me.cboFilialeHandling) + Me.Panel2.Controls.Add(Me.Label15) + Me.Panel2.Location = New System.Drawing.Point(758, 93) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(245, 122) + Me.Panel2.TabIndex = 53 + ' + 'Label45 + ' + Me.Label45.AutoSize = True + Me.Label45.Location = New System.Drawing.Point(124, 1) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(81, 13) + Me.Label45.TabIndex = 50 + Me.Label45.Text = "Filiale Handling:" + ' + 'SplitContainer + ' + Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1 + Me.SplitContainer.IsSplitterFixed = True + Me.SplitContainer.Location = New System.Drawing.Point(0, 48) + Me.SplitContainer.Name = "SplitContainer" + Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer.Panel1 + ' + Me.SplitContainer.Panel1.Controls.Add(Me.pnlSearch) + ' + 'SplitContainer.Panel2 + ' + Me.SplitContainer.Panel2.Controls.Add(Me.pnlAnzeige) + Me.SplitContainer.Size = New System.Drawing.Size(1239, 784) + Me.SplitContainer.SplitterDistance = 330 + Me.SplitContainer.SplitterWidth = 2 + Me.SplitContainer.TabIndex = 3 + ' + 'cboSB_TR + ' + Me.cboSB_TR._allowedValuesFreiText = Nothing + Me.cboSB_TR._allowFreiText = False + Me.cboSB_TR._value = "" + Me.cboSB_TR.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboSB_TR.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboSB_TR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboSB_TR.FormattingEnabled = True + Me.cboSB_TR.Location = New System.Drawing.Point(889, 57) + Me.cboSB_TR.Name = "cboSB_TR" + Me.cboSB_TR.Size = New System.Drawing.Size(117, 24) + Me.cboSB_TR.TabIndex = 33 + ' + 'cboSB_Qs + ' + Me.cboSB_Qs._allowedValuesFreiText = Nothing + Me.cboSB_Qs._allowFreiText = False + Me.cboSB_Qs._value = "" + Me.cboSB_Qs.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboSB_Qs.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboSB_Qs.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboSB_Qs.FormattingEnabled = True + Me.cboSB_Qs.Location = New System.Drawing.Point(738, 58) + Me.cboSB_Qs.Name = "cboSB_Qs" + Me.cboSB_Qs.Size = New System.Drawing.Size(117, 24) + Me.cboSB_Qs.TabIndex = 27 + ' + 'txtAbfertDat + ' + Me.txtAbfertDat._DateTimeOnly = False + Me.txtAbfertDat._numbersOnly = False + Me.txtAbfertDat._numbersOnlyKommastellen = "" + Me.txtAbfertDat._numbersOnlyTrennzeichen = True + Me.txtAbfertDat._Prozent = False + Me.txtAbfertDat._ShortDateNew = True + Me.txtAbfertDat._ShortDateOnly = False + Me.txtAbfertDat._TimeOnly = False + Me.txtAbfertDat._TimeOnly_Seconds = False + Me.txtAbfertDat._value = "" + Me.txtAbfertDat._Waehrung = False + 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(43, 30) + 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(83, 20) + Me.txtAbfertDat.TabIndex = 1 + ' + 'txtAbfertDatBis + ' + Me.txtAbfertDatBis._DateTimeOnly = False + Me.txtAbfertDatBis._numbersOnly = False + Me.txtAbfertDatBis._numbersOnlyKommastellen = "" + Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True + Me.txtAbfertDatBis._Prozent = False + Me.txtAbfertDatBis._ShortDateNew = True + Me.txtAbfertDatBis._ShortDateOnly = False + Me.txtAbfertDatBis._TimeOnly = False + Me.txtAbfertDatBis._TimeOnly_Seconds = False + Me.txtAbfertDatBis._value = "" + Me.txtAbfertDatBis._Waehrung = False + Me.txtAbfertDatBis._WaehrungZeichen = True + Me.txtAbfertDatBis.Enabled = False + 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(43, 59) + 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(83, 20) + Me.txtAbfertDatBis.TabIndex = 3 + ' + 'cboSachbearbeiter + ' + Me.cboSachbearbeiter._allowedValuesFreiText = Nothing + Me.cboSachbearbeiter._allowFreiText = False + Me.cboSachbearbeiter._value = "" + Me.cboSachbearbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboSachbearbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboSachbearbeiter.FormattingEnabled = True + Me.cboSachbearbeiter.Location = New System.Drawing.Point(738, 31) + Me.cboSachbearbeiter.Name = "cboSachbearbeiter" + Me.cboSachbearbeiter.Size = New System.Drawing.Size(268, 24) + Me.cboSachbearbeiter.TabIndex = 26 + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + 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(333, 29) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(80, 22) + Me.cboFiliale.TabIndex = 20 + ' + 'txtUnterNr + ' + Me.txtUnterNr._DateTimeOnly = False + Me.txtUnterNr._numbersOnly = False + Me.txtUnterNr._numbersOnlyKommastellen = "" + Me.txtUnterNr._numbersOnlyTrennzeichen = True + Me.txtUnterNr._Prozent = False + Me.txtUnterNr._ShortDateNew = False + Me.txtUnterNr._ShortDateOnly = False + Me.txtUnterNr._TimeOnly = False + Me.txtUnterNr._TimeOnly_Seconds = False + Me.txtUnterNr._value = Nothing + Me.txtUnterNr._Waehrung = False + Me.txtUnterNr._WaehrungZeichen = True + Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtUnterNr.ForeColor = System.Drawing.Color.Black + Me.txtUnterNr.Location = New System.Drawing.Point(633, 31) + Me.txtUnterNr.MaxLineLength = -1 + Me.txtUnterNr.MaxLines_Warning = "" + Me.txtUnterNr.MaxLines_Warning_Label = Nothing + Me.txtUnterNr.Name = "txtUnterNr" + Me.txtUnterNr.Size = New System.Drawing.Size(41, 20) + Me.txtUnterNr.TabIndex = 24 + ' + 'txtAbfertigungsnummerBis + ' + Me.txtAbfertigungsnummerBis._DateTimeOnly = False + Me.txtAbfertigungsnummerBis._numbersOnly = False + Me.txtAbfertigungsnummerBis._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummerBis._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsnummerBis._Prozent = False + Me.txtAbfertigungsnummerBis._ShortDateNew = False + Me.txtAbfertigungsnummerBis._ShortDateOnly = False + Me.txtAbfertigungsnummerBis._TimeOnly = False + Me.txtAbfertigungsnummerBis._TimeOnly_Seconds = False + Me.txtAbfertigungsnummerBis._value = Nothing + Me.txtAbfertigungsnummerBis._Waehrung = False + Me.txtAbfertigungsnummerBis._WaehrungZeichen = True + Me.txtAbfertigungsnummerBis.Enabled = False + Me.txtAbfertigungsnummerBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertigungsnummerBis.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsnummerBis.Location = New System.Drawing.Point(466, 58) + Me.txtAbfertigungsnummerBis.MaxLineLength = -1 + Me.txtAbfertigungsnummerBis.MaxLines_Warning = "" + Me.txtAbfertigungsnummerBis.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummerBis.Name = "txtAbfertigungsnummerBis" + Me.txtAbfertigungsnummerBis.Size = New System.Drawing.Size(161, 20) + Me.txtAbfertigungsnummerBis.TabIndex = 23 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer._DateTimeOnly = False + Me.txtAbfertigungsnummer._numbersOnly = False + Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsnummer._Prozent = False + Me.txtAbfertigungsnummer._ShortDateNew = False + Me.txtAbfertigungsnummer._ShortDateOnly = False + Me.txtAbfertigungsnummer._TimeOnly = False + Me.txtAbfertigungsnummer._TimeOnly_Seconds = False + Me.txtAbfertigungsnummer._value = Nothing + Me.txtAbfertigungsnummer._Waehrung = False + 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(466, 32) + Me.txtAbfertigungsnummer.MaxLineLength = -1 + Me.txtAbfertigungsnummer.MaxLines_Warning = "" + Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 20) + Me.txtAbfertigungsnummer.TabIndex = 22 + ' + 'txtVermerk + ' + Me.txtVermerk._DateTimeOnly = False + Me.txtVermerk._numbersOnly = False + Me.txtVermerk._numbersOnlyKommastellen = "" + Me.txtVermerk._numbersOnlyTrennzeichen = True + Me.txtVermerk._Prozent = False + Me.txtVermerk._ShortDateNew = False + Me.txtVermerk._ShortDateOnly = False + Me.txtVermerk._TimeOnly = False + Me.txtVermerk._TimeOnly_Seconds = False + Me.txtVermerk._value = Nothing + Me.txtVermerk._Waehrung = False + Me.txtVermerk._WaehrungZeichen = True + Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtVermerk.ForeColor = System.Drawing.Color.Black + Me.txtVermerk.Location = New System.Drawing.Point(563, 109) + Me.txtVermerk.MaxLineLength = -1 + Me.txtVermerk.MaxLines_Warning = "" + Me.txtVermerk.MaxLines_Warning_Label = Nothing + Me.txtVermerk.Name = "txtVermerk" + Me.txtVermerk.Size = New System.Drawing.Size(64, 20) + Me.txtVermerk.TabIndex = 57 + ' + 'txtZollstelle + ' + Me.txtZollstelle._allowFreitext = False + Me.txtZollstelle._AllowSetValue = False + Me.txtZollstelle._allowSpaceAsSplitter = False + Me.txtZollstelle._autoSizeGross = False + Me.txtZollstelle._hideIfListEmpty = True + Me.txtZollstelle._value = Nothing + Me.txtZollstelle.conn_art = "FMZOLL" + Me.txtZollstelle.dgvpos = "LEFT" + Me.txtZollstelle.DISPLAY_PARAM = Nothing + Me.txtZollstelle.INVISIBLE_COLUMNS = Nothing + Me.txtZollstelle.key_visible = False + Me.txtZollstelle.KEYPARAM = Nothing + Me.txtZollstelle.Location = New System.Drawing.Point(649, 192) + Me.txtZollstelle.MaxLength = 50 + Me.txtZollstelle.Name = "txtZollstelle" + Me.txtZollstelle.searchActive = True + Me.txtZollstelle.Size = New System.Drawing.Size(106, 20) + Me.txtZollstelle.SQL_ORDER_BY = Nothing + Me.txtZollstelle.SQL_SELECT = Nothing + Me.txtZollstelle.SQL_WHERE = Nothing + Me.txtZollstelle.SQL_WhereParamList = Nothing + Me.txtZollstelle.TabIndex = 55 + Me.txtZollstelle.usrcntl = Nothing + Me.txtZollstelle.Visible = False + ' 'txtKdAuftragsNr ' Me.txtKdAuftragsNr._DateTimeOnly = False @@ -2551,32 +2198,275 @@ Partial Class usrCntlSpeditionsBuchSuche Me.lstGrenze.Size = New System.Drawing.Size(105, 82) Me.lstGrenze.TabIndex = 47 ' - 'lblKdAuftragsNr + 'txtAvisoId ' - Me.lblKdAuftragsNr.AutoSize = True - Me.lblKdAuftragsNr.Location = New System.Drawing.Point(490, 10) - Me.lblKdAuftragsNr.Name = "lblKdAuftragsNr" - Me.lblKdAuftragsNr.Size = New System.Drawing.Size(102, 13) - Me.lblKdAuftragsNr.TabIndex = 45 - Me.lblKdAuftragsNr.Text = "Kd-Auftragsnummer:" + Me.txtAvisoId._DateTimeOnly = False + Me.txtAvisoId._numbersOnly = False + Me.txtAvisoId._numbersOnlyKommastellen = "" + Me.txtAvisoId._numbersOnlyTrennzeichen = True + Me.txtAvisoId._Prozent = False + Me.txtAvisoId._ShortDateNew = False + Me.txtAvisoId._ShortDateOnly = False + Me.txtAvisoId._TimeOnly = False + Me.txtAvisoId._TimeOnly_Seconds = False + Me.txtAvisoId._value = Nothing + Me.txtAvisoId._Waehrung = False + Me.txtAvisoId._WaehrungZeichen = True + Me.txtAvisoId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAvisoId.ForeColor = System.Drawing.Color.Black + Me.txtAvisoId.Location = New System.Drawing.Point(353, 192) + Me.txtAvisoId.MaxLineLength = -1 + Me.txtAvisoId.MaxLines_Warning = "" + Me.txtAvisoId.MaxLines_Warning_Label = Nothing + Me.txtAvisoId.Name = "txtAvisoId" + Me.txtAvisoId.Size = New System.Drawing.Size(132, 20) + Me.txtAvisoId.TabIndex = 43 + Me.txtAvisoId.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'lblAuftraggeber + 'kdtxtAuftraggeber ' - Me.lblAuftraggeber.AutoSize = True - Me.lblAuftraggeber.Location = New System.Drawing.Point(14, 29) - Me.lblAuftraggeber.Name = "lblAuftraggeber" - Me.lblAuftraggeber.Size = New System.Drawing.Size(71, 13) - Me.lblAuftraggeber.TabIndex = 16 - Me.lblAuftraggeber.Text = "Auftraggeber:" + Me.kdtxtAuftraggeber._AlleFirmenCLUSTER = False + Me.kdtxtAuftraggeber._AllowSetValue = True + Me.kdtxtAuftraggeber._autoSizeGross = False + Me.kdtxtAuftraggeber._display_Name1 = False + Me.kdtxtAuftraggeber._displayAVISO_Email = False + Me.kdtxtAuftraggeber._displayFullName = False + Me.kdtxtAuftraggeber._displayWoelflKd = False + Me.kdtxtAuftraggeber._hideIfListEmpty = True + Me.kdtxtAuftraggeber._loadKdData = False + Me.kdtxtAuftraggeber._searchName1 = True + Me.kdtxtAuftraggeber._UseFIRMA = "" + Me.kdtxtAuftraggeber._ValueKdAndName = True + Me.kdtxtAuftraggeber.dgvpos = "LEFT" + Me.kdtxtAuftraggeber.KdName = "" + Me.kdtxtAuftraggeber.KdNr = "-1" + Me.kdtxtAuftraggeber.kdNrField = Nothing + Me.kdtxtAuftraggeber.KdNrNullInt = Nothing + Me.kdtxtAuftraggeber.Location = New System.Drawing.Point(135, 26) + Me.kdtxtAuftraggeber.Name = "kdtxtAuftraggeber" + Me.kdtxtAuftraggeber.nurAktive = False + Me.kdtxtAuftraggeber.searchActive = True + Me.kdtxtAuftraggeber.Size = New System.Drawing.Size(261, 20) + Me.kdtxtAuftraggeber.TabIndex = 17 + Me.kdtxtAuftraggeber.TIMER_SEARCH = True + Me.kdtxtAuftraggeber.usrcntl = Nothing ' - 'lblFrachtf + 'txtAuftraggeberKdnr ' - Me.lblFrachtf.AutoSize = True - Me.lblFrachtf.Location = New System.Drawing.Point(14, 130) - Me.lblFrachtf.Name = "lblFrachtf" - Me.lblFrachtf.Size = New System.Drawing.Size(67, 13) - Me.lblFrachtf.TabIndex = 21 - Me.lblFrachtf.Text = "Frachtführer:" + Me.txtAuftraggeberKdnr._DateTimeOnly = False + Me.txtAuftraggeberKdnr._numbersOnly = False + Me.txtAuftraggeberKdnr._numbersOnlyKommastellen = "" + Me.txtAuftraggeberKdnr._numbersOnlyTrennzeichen = True + Me.txtAuftraggeberKdnr._Prozent = False + Me.txtAuftraggeberKdnr._ShortDateNew = False + Me.txtAuftraggeberKdnr._ShortDateOnly = False + Me.txtAuftraggeberKdnr._TimeOnly = False + Me.txtAuftraggeberKdnr._TimeOnly_Seconds = False + Me.txtAuftraggeberKdnr._value = Nothing + Me.txtAuftraggeberKdnr._Waehrung = False + Me.txtAuftraggeberKdnr._WaehrungZeichen = True + Me.txtAuftraggeberKdnr.BackColor = System.Drawing.Color.White + Me.txtAuftraggeberKdnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAuftraggeberKdnr.ForeColor = System.Drawing.Color.Black + Me.txtAuftraggeberKdnr.Location = New System.Drawing.Point(406, 26) + Me.txtAuftraggeberKdnr.MaxLineLength = -1 + Me.txtAuftraggeberKdnr.MaxLines_Warning = "" + Me.txtAuftraggeberKdnr.MaxLines_Warning_Label = Nothing + Me.txtAuftraggeberKdnr.Name = "txtAuftraggeberKdnr" + Me.txtAuftraggeberKdnr.ReadOnly = True + Me.txtAuftraggeberKdnr.Size = New System.Drawing.Size(79, 20) + Me.txtAuftraggeberKdnr.TabIndex = 18 + ' + 'txtCRN + ' + Me.txtCRN._DateTimeOnly = False + Me.txtCRN._numbersOnly = False + Me.txtCRN._numbersOnlyKommastellen = "" + Me.txtCRN._numbersOnlyTrennzeichen = True + Me.txtCRN._Prozent = False + Me.txtCRN._ShortDateNew = False + Me.txtCRN._ShortDateOnly = False + Me.txtCRN._TimeOnly = False + Me.txtCRN._TimeOnly_Seconds = False + Me.txtCRN._value = Nothing + Me.txtCRN._Waehrung = False + Me.txtCRN._WaehrungZeichen = True + Me.txtCRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCRN.ForeColor = System.Drawing.Color.Black + Me.txtCRN.Location = New System.Drawing.Point(738, 26) + Me.txtCRN.MaxLineLength = -1 + Me.txtCRN.MaxLines_Warning = "" + Me.txtCRN.MaxLines_Warning_Label = Nothing + Me.txtCRN.Name = "txtCRN" + Me.txtCRN.Size = New System.Drawing.Size(241, 20) + Me.txtCRN.TabIndex = 15 + ' + 'txtBelegNr + ' + Me.txtBelegNr._DateTimeOnly = False + Me.txtBelegNr._numbersOnly = False + Me.txtBelegNr._numbersOnlyKommastellen = "" + Me.txtBelegNr._numbersOnlyTrennzeichen = True + Me.txtBelegNr._Prozent = False + Me.txtBelegNr._ShortDateNew = False + Me.txtBelegNr._ShortDateOnly = False + Me.txtBelegNr._TimeOnly = False + Me.txtBelegNr._TimeOnly_Seconds = False + Me.txtBelegNr._value = Nothing + Me.txtBelegNr._Waehrung = False + Me.txtBelegNr._WaehrungZeichen = True + Me.txtBelegNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtBelegNr.ForeColor = System.Drawing.Color.Black + Me.txtBelegNr.Location = New System.Drawing.Point(493, 70) + Me.txtBelegNr.MaxLineLength = -1 + Me.txtBelegNr.MaxLines_Warning = "" + Me.txtBelegNr.MaxLines_Warning_Label = Nothing + Me.txtBelegNr.Name = "txtBelegNr" + Me.txtBelegNr.Size = New System.Drawing.Size(239, 20) + Me.txtBelegNr.TabIndex = 8 + ' + 'cboVersLand + ' + Me.cboVersLand._allowedValuesFreiText = Nothing + Me.cboVersLand._allowFreiText = False + Me.cboVersLand._value = "" + Me.cboVersLand.DropDownWidth = 300 + Me.cboVersLand.FormattingEnabled = True + Me.cboVersLand.Location = New System.Drawing.Point(758, 69) + Me.cboVersLand.Name = "cboVersLand" + Me.cboVersLand.Size = New System.Drawing.Size(117, 21) + Me.cboVersLand.TabIndex = 24 + ' + 'cboBestLand + ' + Me.cboBestLand._allowedValuesFreiText = Nothing + Me.cboBestLand._allowFreiText = False + Me.cboBestLand._value = "" + Me.cboBestLand.DropDownWidth = 300 + Me.cboBestLand.FormattingEnabled = True + Me.cboBestLand.Location = New System.Drawing.Point(881, 69) + Me.cboBestLand.Name = "cboBestLand" + Me.cboBestLand.Size = New System.Drawing.Size(118, 21) + Me.cboBestLand.TabIndex = 25 + ' + 'txtPackstücke + ' + Me.txtPackstücke._DateTimeOnly = False + Me.txtPackstücke._numbersOnly = False + Me.txtPackstücke._numbersOnlyKommastellen = "" + Me.txtPackstücke._numbersOnlyTrennzeichen = True + Me.txtPackstücke._Prozent = False + Me.txtPackstücke._ShortDateNew = False + Me.txtPackstücke._ShortDateOnly = False + Me.txtPackstücke._TimeOnly = False + Me.txtPackstücke._TimeOnly_Seconds = False + Me.txtPackstücke._value = Nothing + Me.txtPackstücke._Waehrung = False + Me.txtPackstücke._WaehrungZeichen = True + Me.txtPackstücke.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPackstücke.ForeColor = System.Drawing.Color.Black + Me.txtPackstücke.Location = New System.Drawing.Point(493, 108) + Me.txtPackstücke.MaxLineLength = -1 + Me.txtPackstücke.MaxLines_Warning = "" + Me.txtPackstücke.MaxLines_Warning_Label = Nothing + Me.txtPackstücke.Name = "txtPackstücke" + Me.txtPackstücke.Size = New System.Drawing.Size(64, 20) + Me.txtPackstücke.TabIndex = 41 + ' + 'kdtxtAvisierer + ' + Me.kdtxtAvisierer._AlleFirmenCLUSTER = False + Me.kdtxtAvisierer._AllowSetValue = True + Me.kdtxtAvisierer._autoSizeGross = False + Me.kdtxtAvisierer._display_Name1 = False + Me.kdtxtAvisierer._displayAVISO_Email = False + Me.kdtxtAvisierer._displayFullName = False + Me.kdtxtAvisierer._displayWoelflKd = False + Me.kdtxtAvisierer._hideIfListEmpty = True + Me.kdtxtAvisierer._loadKdData = False + Me.kdtxtAvisierer._searchName1 = True + Me.kdtxtAvisierer._UseFIRMA = "" + Me.kdtxtAvisierer._ValueKdAndName = True + Me.kdtxtAvisierer.dgvpos = "LEFT" + Me.kdtxtAvisierer.KdName = "" + Me.kdtxtAvisierer.KdNr = "-1" + Me.kdtxtAvisierer.kdNrField = Nothing + Me.kdtxtAvisierer.KdNrNullInt = Nothing + Me.kdtxtAvisierer.Location = New System.Drawing.Point(135, 108) + Me.kdtxtAvisierer.Name = "kdtxtAvisierer" + Me.kdtxtAvisierer.nurAktive = False + Me.kdtxtAvisierer.searchActive = True + Me.kdtxtAvisierer.Size = New System.Drawing.Size(261, 20) + Me.kdtxtAvisierer.TabIndex = 37 + Me.kdtxtAvisierer.TIMER_SEARCH = True + Me.kdtxtAvisierer.usrcntl = Nothing + ' + 'txtAvisiererKdNr + ' + Me.txtAvisiererKdNr._DateTimeOnly = False + Me.txtAvisiererKdNr._numbersOnly = False + Me.txtAvisiererKdNr._numbersOnlyKommastellen = "" + Me.txtAvisiererKdNr._numbersOnlyTrennzeichen = True + Me.txtAvisiererKdNr._Prozent = False + Me.txtAvisiererKdNr._ShortDateNew = False + Me.txtAvisiererKdNr._ShortDateOnly = False + Me.txtAvisiererKdNr._TimeOnly = False + Me.txtAvisiererKdNr._TimeOnly_Seconds = False + Me.txtAvisiererKdNr._value = Nothing + Me.txtAvisiererKdNr._Waehrung = False + Me.txtAvisiererKdNr._WaehrungZeichen = True + Me.txtAvisiererKdNr.BackColor = System.Drawing.Color.White + Me.txtAvisiererKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAvisiererKdNr.ForeColor = System.Drawing.Color.Black + Me.txtAvisiererKdNr.Location = New System.Drawing.Point(406, 108) + Me.txtAvisiererKdNr.MaxLineLength = -1 + Me.txtAvisiererKdNr.MaxLines_Warning = "" + Me.txtAvisiererKdNr.MaxLines_Warning_Label = Nothing + Me.txtAvisiererKdNr.Name = "txtAvisiererKdNr" + Me.txtAvisiererKdNr.ReadOnly = True + Me.txtAvisiererKdNr.Size = New System.Drawing.Size(79, 20) + Me.txtAvisiererKdNr.TabIndex = 38 + ' + 'MyListBox1 + ' + Me.MyListBox1._value = "" + Me.MyListBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.MyListBox1.FormattingEnabled = True + Me.MyListBox1.Location = New System.Drawing.Point(4, 19) + Me.MyListBox1.Name = "MyListBox1" + Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple + Me.MyListBox1.Size = New System.Drawing.Size(225, 147) + Me.MyListBox1.TabIndex = 1 + ' + 'kdtxtFrachtfuehrer + ' + Me.kdtxtFrachtfuehrer._AlleFirmenCLUSTER = False + Me.kdtxtFrachtfuehrer._AllowSetValue = True + Me.kdtxtFrachtfuehrer._autoSizeGross = False + Me.kdtxtFrachtfuehrer._display_Name1 = False + Me.kdtxtFrachtfuehrer._displayAVISO_Email = False + Me.kdtxtFrachtfuehrer._displayFullName = False + Me.kdtxtFrachtfuehrer._displayWoelflKd = False + Me.kdtxtFrachtfuehrer._hideIfListEmpty = True + Me.kdtxtFrachtfuehrer._loadKdData = False + Me.kdtxtFrachtfuehrer._searchName1 = True + Me.kdtxtFrachtfuehrer._UseFIRMA = "" + Me.kdtxtFrachtfuehrer._ValueKdAndName = True + Me.kdtxtFrachtfuehrer.dgvpos = "LEFT" + Me.kdtxtFrachtfuehrer.KdName = "" + Me.kdtxtFrachtfuehrer.KdNr = "-1" + Me.kdtxtFrachtfuehrer.kdNrField = Nothing + Me.kdtxtFrachtfuehrer.KdNrNullInt = Nothing + Me.kdtxtFrachtfuehrer.Location = New System.Drawing.Point(135, 127) + Me.kdtxtFrachtfuehrer.Name = "kdtxtFrachtfuehrer" + Me.kdtxtFrachtfuehrer.nurAktive = False + Me.kdtxtFrachtfuehrer.searchActive = True + Me.kdtxtFrachtfuehrer.Size = New System.Drawing.Size(261, 20) + Me.kdtxtFrachtfuehrer.TabIndex = 22 + Me.kdtxtFrachtfuehrer.TIMER_SEARCH = True + Me.kdtxtFrachtfuehrer.usrcntl = Nothing ' 'MyTextBox14 ' @@ -2602,15 +2492,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.MyTextBox14.Size = New System.Drawing.Size(160, 20) Me.MyTextBox14.TabIndex = 30 ' - 'Label11 - ' - Me.Label11.AutoSize = True - Me.Label11.Location = New System.Drawing.Point(403, 10) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(82, 13) - Me.Label11.TabIndex = 2 - Me.Label11.Text = "FM-ZOLL KdNr:" - ' 'kdtxtEmpfaenger ' Me.kdtxtEmpfaenger._AlleFirmenCLUSTER = False @@ -2639,29 +2520,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.kdtxtEmpfaenger.TIMER_SEARCH = True Me.kdtxtEmpfaenger.usrcntl = Nothing ' - 'cbxFakturiert - ' - Me.cbxFakturiert.AutoSize = True - Me.cbxFakturiert.BackColor = System.Drawing.Color.White - Me.cbxFakturiert.Checked = True - Me.cbxFakturiert.CheckState = System.Windows.Forms.CheckState.Indeterminate - Me.cbxFakturiert.Location = New System.Drawing.Point(532, 180) - Me.cbxFakturiert.Name = "cbxFakturiert" - Me.cbxFakturiert.Size = New System.Drawing.Size(70, 17) - Me.cbxFakturiert.TabIndex = 32 - Me.cbxFakturiert.Text = "Fakturiert" - Me.cbxFakturiert.ThreeState = True - Me.cbxFakturiert.UseVisualStyleBackColor = False - ' - 'lblLKW_KZ - ' - Me.lblLKW_KZ.AutoSize = True - Me.lblLKW_KZ.Location = New System.Drawing.Point(12, 195) - Me.lblLKW_KZ.Name = "lblLKW_KZ" - Me.lblLKW_KZ.Size = New System.Drawing.Size(99, 13) - Me.lblLKW_KZ.TabIndex = 26 - Me.lblLKW_KZ.Text = "LKW-Kennzeichen:" - ' 'txtAbsenderKdnr ' Me.txtAbsenderKdnr._DateTimeOnly = False @@ -2716,20 +2574,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.kdtxtEndempfaenger.TIMER_SEARCH = True Me.kdtxtEndempfaenger.usrcntl = Nothing ' - 'cbxBar - ' - Me.cbxBar.AutoSize = True - Me.cbxBar.BackColor = System.Drawing.Color.White - Me.cbxBar.Checked = True - Me.cbxBar.CheckState = System.Windows.Forms.CheckState.Indeterminate - Me.cbxBar.Location = New System.Drawing.Point(490, 180) - Me.cbxBar.Name = "cbxBar" - Me.cbxBar.Size = New System.Drawing.Size(42, 17) - Me.cbxBar.TabIndex = 31 - Me.cbxBar.Text = "Bar" - Me.cbxBar.ThreeState = True - Me.cbxBar.UseVisualStyleBackColor = False - ' 'txtEmpfaengerKdnr ' Me.txtEmpfaengerKdnr._DateTimeOnly = False @@ -2836,15 +2680,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.txtEndempfaengerKdnr.Size = New System.Drawing.Size(79, 20) Me.txtEndempfaengerKdnr.TabIndex = 29 ' - 'lblCRNNr - ' - Me.lblCRNNr.AutoSize = True - Me.lblCRNNr.Location = New System.Drawing.Point(735, 10) - Me.lblCRNNr.Name = "lblCRNNr" - Me.lblCRNNr.Size = New System.Drawing.Size(47, 13) - Me.lblCRNNr.TabIndex = 13 - Me.lblCRNNr.Text = "CRN-Nr:" - ' 'txtErfassungsnNr ' Me.txtErfassungsnNr._DateTimeOnly = False @@ -2869,50 +2704,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.txtErfassungsnNr.Size = New System.Drawing.Size(110, 20) Me.txtErfassungsnNr.TabIndex = 14 ' - 'lblVersendungsland - ' - Me.lblVersendungsland.AutoSize = True - Me.lblVersendungsland.Location = New System.Drawing.Point(755, 55) - Me.lblVersendungsland.Name = "lblVersendungsland" - Me.lblVersendungsland.Size = New System.Drawing.Size(92, 13) - Me.lblVersendungsland.TabIndex = 19 - Me.lblVersendungsland.Text = "Versendungsland:" - ' - 'lblErfassungsNr - ' - Me.lblErfassungsNr.AutoSize = True - Me.lblErfassungsNr.Location = New System.Drawing.Point(490, 138) - Me.lblErfassungsNr.Name = "lblErfassungsNr" - Me.lblErfassungsNr.Size = New System.Drawing.Size(99, 13) - Me.lblErfassungsNr.TabIndex = 12 - Me.lblErfassungsNr.Text = "Erfassungsnummer:" - ' - 'cbxOderEmpfanger - ' - Me.cbxOderEmpfanger.AutoSize = True - Me.cbxOderEmpfanger.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.cbxOderEmpfanger.Location = New System.Drawing.Point(295, 9) - Me.cbxOderEmpfanger.Name = "cbxOderEmpfanger" - Me.cbxOderEmpfanger.Size = New System.Drawing.Size(101, 17) - Me.cbxOderEmpfanger.TabIndex = 44 - Me.cbxOderEmpfanger.Text = "oder Empfänger" - Me.cbxOderEmpfanger.UseVisualStyleBackColor = True - ' - 'Panel2 - ' - Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke - Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel2.Controls.Add(Me.MyComboBox1) - Me.Panel2.Controls.Add(Me.lstFiliale) - Me.Panel2.Controls.Add(Me.lstFilialeHandling) - Me.Panel2.Controls.Add(Me.Label45) - Me.Panel2.Controls.Add(Me.cboFilialeHandling) - Me.Panel2.Controls.Add(Me.Label15) - Me.Panel2.Location = New System.Drawing.Point(758, 93) - Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(245, 122) - Me.Panel2.TabIndex = 53 - ' 'MyComboBox1 ' Me.MyComboBox1._allowedValuesFreiText = Nothing @@ -2926,6 +2717,16 @@ Partial Class usrCntlSpeditionsBuchSuche Me.MyComboBox1.Size = New System.Drawing.Size(116, 22) Me.MyComboBox1.TabIndex = 52 ' + 'lstFiliale + ' + Me.lstFiliale._value = "" + Me.lstFiliale.FormattingEnabled = True + Me.lstFiliale.Location = New System.Drawing.Point(3, 15) + Me.lstFiliale.Name = "lstFiliale" + Me.lstFiliale.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple + Me.lstFiliale.Size = New System.Drawing.Size(116, 82) + Me.lstFiliale.TabIndex = 4 + ' 'lstFilialeHandling ' Me.lstFilialeHandling._value = "" @@ -2936,15 +2737,6 @@ Partial Class usrCntlSpeditionsBuchSuche Me.lstFilialeHandling.Size = New System.Drawing.Size(118, 82) Me.lstFilialeHandling.TabIndex = 51 ' - 'Label45 - ' - Me.Label45.AutoSize = True - Me.Label45.Location = New System.Drawing.Point(124, 1) - Me.Label45.Name = "Label45" - Me.Label45.Size = New System.Drawing.Size(81, 13) - Me.Label45.TabIndex = 50 - Me.Label45.Text = "Filiale Handling:" - ' 'cboFilialeHandling ' Me.cboFilialeHandling._allowedValuesFreiText = Nothing @@ -2958,26 +2750,247 @@ Partial Class usrCntlSpeditionsBuchSuche Me.cboFilialeHandling.Size = New System.Drawing.Size(118, 22) Me.cboFilialeHandling.TabIndex = 32 ' - 'SplitContainer + 'txtFiskalEndempfaenger ' - Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1 - Me.SplitContainer.IsSplitterFixed = True - Me.SplitContainer.Location = New System.Drawing.Point(0, 48) - Me.SplitContainer.Name = "SplitContainer" - Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal + Me.txtFiskalEndempfaenger._DateTimeOnly = False + Me.txtFiskalEndempfaenger._numbersOnly = False + Me.txtFiskalEndempfaenger._numbersOnlyKommastellen = "" + Me.txtFiskalEndempfaenger._numbersOnlyTrennzeichen = True + Me.txtFiskalEndempfaenger._Prozent = False + Me.txtFiskalEndempfaenger._ShortDateNew = False + Me.txtFiskalEndempfaenger._ShortDateOnly = False + Me.txtFiskalEndempfaenger._TimeOnly = False + Me.txtFiskalEndempfaenger._TimeOnly_Seconds = False + Me.txtFiskalEndempfaenger._value = Nothing + Me.txtFiskalEndempfaenger._Waehrung = False + Me.txtFiskalEndempfaenger._WaehrungZeichen = True + Me.txtFiskalEndempfaenger.BackColor = System.Drawing.Color.White + Me.txtFiskalEndempfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFiskalEndempfaenger.ForeColor = System.Drawing.Color.Black + Me.txtFiskalEndempfaenger.Location = New System.Drawing.Point(224, 72) + Me.txtFiskalEndempfaenger.MaxLineLength = -1 + Me.txtFiskalEndempfaenger.MaxLines_Warning = "" + Me.txtFiskalEndempfaenger.MaxLines_Warning_Label = Nothing + Me.txtFiskalEndempfaenger.Name = "txtFiskalEndempfaenger" + Me.txtFiskalEndempfaenger.ReadOnly = True + Me.txtFiskalEndempfaenger.Size = New System.Drawing.Size(261, 20) + Me.txtFiskalEndempfaenger.TabIndex = 34 + Me.txtFiskalEndempfaenger.Visible = False ' - 'SplitContainer.Panel1 + 'DataGridView ' - Me.SplitContainer.Panel1.Controls.Add(Me.pnlSearch) + Me.DataGridView.AKTUALISIERUNGS_INTERVALL = -1 + Me.DataGridView.AllowUserToAddRows = False + Me.DataGridView.AllowUserToDeleteRows = False + Me.DataGridView.AllowUserToOrderColumns = True + Me.DataGridView.AllowUserToResizeRows = False + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridView.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.DataGridView.DefaultCellStyle = DataGridViewCellStyle2 + Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView.Location = New System.Drawing.Point(450, 0) + Me.DataGridView.Name = "DataGridView" + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridView.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.DataGridView.Size = New System.Drawing.Size(789, 262) + Me.DataGridView.TabIndex = 0 ' - 'SplitContainer.Panel2 + 'dgvLKW ' - Me.SplitContainer.Panel2.Controls.Add(Me.pnlAnzeige) - Me.SplitContainer.Size = New System.Drawing.Size(1239, 784) - Me.SplitContainer.SplitterDistance = 330 - Me.SplitContainer.SplitterWidth = 2 - Me.SplitContainer.TabIndex = 3 + Me.dgvLKW.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvLKW.AllowUserToAddRows = False + Me.dgvLKW.AllowUserToDeleteRows = False + Me.dgvLKW.AllowUserToOrderColumns = True + Me.dgvLKW.AllowUserToResizeRows = False + Me.dgvLKW.BackgroundColor = System.Drawing.Color.WhiteSmoke + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvLKW.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle5 + Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Left + Me.dgvLKW.Location = New System.Drawing.Point(0, 0) + Me.dgvLKW.Name = "dgvLKW" + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 + Me.dgvLKW.Size = New System.Drawing.Size(450, 262) + Me.dgvLKW.TabIndex = 35 + Me.dgvLKW.Visible = False + ' + 'cboDetailberichtKdAtrNr + ' + Me.cboDetailberichtKdAtrNr._allowedValuesFreiText = Nothing + Me.cboDetailberichtKdAtrNr._allowFreiText = False + Me.cboDetailberichtKdAtrNr._value = "" + Me.cboDetailberichtKdAtrNr.DropDownWidth = 300 + Me.cboDetailberichtKdAtrNr.FormattingEnabled = True + Me.cboDetailberichtKdAtrNr.Location = New System.Drawing.Point(140, 78) + Me.cboDetailberichtKdAtrNr.Name = "cboDetailberichtKdAtrNr" + Me.cboDetailberichtKdAtrNr.Size = New System.Drawing.Size(76, 21) + Me.cboDetailberichtKdAtrNr.TabIndex = 56 + ' + 'txtUeberschr + ' + Me.txtUeberschr._DateTimeOnly = False + Me.txtUeberschr._numbersOnly = False + Me.txtUeberschr._numbersOnlyKommastellen = "" + Me.txtUeberschr._numbersOnlyTrennzeichen = True + Me.txtUeberschr._Prozent = False + Me.txtUeberschr._ShortDateNew = False + Me.txtUeberschr._ShortDateOnly = False + Me.txtUeberschr._TimeOnly = False + Me.txtUeberschr._TimeOnly_Seconds = False + Me.txtUeberschr._value = "" + Me.txtUeberschr._Waehrung = False + Me.txtUeberschr._WaehrungZeichen = True + Me.txtUeberschr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtUeberschr.ForeColor = System.Drawing.Color.Black + Me.txtUeberschr.Location = New System.Drawing.Point(204, 107) + Me.txtUeberschr.MaxLineLength = -1 + Me.txtUeberschr.MaxLines_Warning = "" + Me.txtUeberschr.MaxLines_Warning_Label = Nothing + Me.txtUeberschr.Multiline = True + Me.txtUeberschr.Name = "txtUeberschr" + Me.txtUeberschr.Size = New System.Drawing.Size(173, 20) + Me.txtUeberschr.TabIndex = 51 + ' + 'cboHandlingssatz + ' + Me.cboHandlingssatz._allowedValuesFreiText = Nothing + Me.cboHandlingssatz._allowFreiText = False + Me.cboHandlingssatz._value = "" + Me.cboHandlingssatz.DropDownWidth = 300 + Me.cboHandlingssatz.FormattingEnabled = True + Me.cboHandlingssatz.Location = New System.Drawing.Point(3, 31) + Me.cboHandlingssatz.Name = "cboHandlingssatz" + Me.cboHandlingssatz.Size = New System.Drawing.Size(159, 21) + Me.cboHandlingssatz.TabIndex = 60 + ' + 'cboHandlingssatz_AMBAR + ' + Me.cboHandlingssatz_AMBAR._allowedValuesFreiText = Nothing + Me.cboHandlingssatz_AMBAR._allowFreiText = False + Me.cboHandlingssatz_AMBAR._value = "" + Me.cboHandlingssatz_AMBAR.DropDownWidth = 250 + Me.cboHandlingssatz_AMBAR.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboHandlingssatz_AMBAR.FormattingEnabled = True + Me.cboHandlingssatz_AMBAR.Location = New System.Drawing.Point(3, 59) + Me.cboHandlingssatz_AMBAR.Name = "cboHandlingssatz_AMBAR" + Me.cboHandlingssatz_AMBAR.Size = New System.Drawing.Size(128, 22) + Me.cboHandlingssatz_AMBAR.TabIndex = 53 + ' + 'txtMax + ' + Me.txtMax._DateTimeOnly = False + Me.txtMax._numbersOnly = True + Me.txtMax._numbersOnlyKommastellen = "" + Me.txtMax._numbersOnlyTrennzeichen = True + Me.txtMax._Prozent = False + Me.txtMax._ShortDateNew = False + Me.txtMax._ShortDateOnly = False + Me.txtMax._TimeOnly = False + Me.txtMax._TimeOnly_Seconds = False + Me.txtMax._value = "" + Me.txtMax._Waehrung = False + Me.txtMax._WaehrungZeichen = True + Me.txtMax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtMax.ForeColor = System.Drawing.Color.Black + Me.txtMax.Location = New System.Drawing.Point(401, 13) + Me.txtMax.MaxLineLength = -1 + Me.txtMax.MaxLines_Warning = "" + Me.txtMax.MaxLines_Warning_Label = Nothing + Me.txtMax.Name = "txtMax" + Me.txtMax.Size = New System.Drawing.Size(76, 20) + Me.txtMax.TabIndex = 33 + ' + 'cboRolle + ' + Me.cboRolle._allowedValuesFreiText = Nothing + Me.cboRolle._allowFreiText = False + Me.cboRolle._value = "" + Me.cboRolle.DropDownWidth = 300 + Me.cboRolle.FormattingEnabled = True + Me.cboRolle.Location = New System.Drawing.Point(401, 32) + Me.cboRolle.Name = "cboRolle" + Me.cboRolle.Size = New System.Drawing.Size(76, 21) + Me.cboRolle.TabIndex = 39 + ' + 'txtMaxSrch + ' + Me.txtMaxSrch._DateTimeOnly = False + Me.txtMaxSrch._numbersOnly = True + Me.txtMaxSrch._numbersOnlyKommastellen = "" + Me.txtMaxSrch._numbersOnlyTrennzeichen = True + Me.txtMaxSrch._Prozent = False + Me.txtMaxSrch._ShortDateNew = False + Me.txtMaxSrch._ShortDateOnly = False + Me.txtMaxSrch._TimeOnly = False + Me.txtMaxSrch._TimeOnly_Seconds = False + Me.txtMaxSrch._value = "" + Me.txtMaxSrch._Waehrung = False + Me.txtMaxSrch._WaehrungZeichen = True + 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(1136, 31) + 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(41, 20) + Me.txtMaxSrch.TabIndex = 42 + Me.txtMaxSrch.Text = "1000" + Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'CheckBox5 + ' + Me.CheckBox5.AutoSize = True + Me.CheckBox5.BackColor = System.Drawing.Color.WhiteSmoke + Me.CheckBox5.Location = New System.Drawing.Point(413, 141) + Me.CheckBox5.Name = "CheckBox5" + Me.CheckBox5.Size = New System.Drawing.Size(92, 17) + Me.CheckBox5.TabIndex = 98 + Me.CheckBox5.Text = "mit DL-Kosten" + Me.CheckBox5.UseVisualStyleBackColor = False ' 'usrCntlSpeditionsBuchSuche ' @@ -2990,10 +3003,8 @@ Partial Class usrCntlSpeditionsBuchSuche Me.cntxtCntxtSpeditionsbuch.ResumeLayout(False) Me.pnlRechts.ResumeLayout(False) Me.pnlRechts.PerformLayout() - CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlAnzeige.ResumeLayout(False) Me.pnlAnzeige.PerformLayout() - CType(Me.dgvLKW, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlOpt.ResumeLayout(False) Me.pnlOpt.PerformLayout() Me.Panel3.ResumeLayout(False) @@ -3025,6 +3036,8 @@ Partial Class usrCntlSpeditionsBuchSuche Me.SplitContainer.Panel2.ResumeLayout(False) CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer.ResumeLayout(False) + CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvLKW, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -3213,4 +3226,5 @@ Partial Class usrCntlSpeditionsBuchSuche Friend WithEvents cbxfehlZahlung_SENDUNG As CheckBox Friend WithEvents cbxHandlingAbrechnen As CheckBox Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel + Friend WithEvents CheckBox5 As CheckBox End Class diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx index 34a80e24..2e0c8c84 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx @@ -296,4 +296,7 @@ 546, 17 + + 25 + \ No newline at end of file diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index 2f66f69c..ee027a2c 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -3989,7 +3989,8 @@ Class cSpeditionsbuchReport AbfVon As Date, AbfBis As Date, Optional whereStr As String = "", - Optional Open As Boolean = True) As String + Optional Open As Boolean = True, + Optional DL_Kosten As Boolean = False) As String Try Dim dt As DataTable = LoadSpeditionsbuchData(KDNR, AbfVon, AbfBis, whereStr) If dt Is Nothing OrElse dt.Rows.Count = 0 Then @@ -4012,7 +4013,7 @@ Class cSpeditionsbuchReport blatt = datei.Worksheets(1) - CreateDetailReport(blatt, dt, KDNR) + CreateDetailReport(blatt, dt, KDNR, DL_Kosten) ' CreateGeneralReport(blatt, dt, KDNR, AbfVon, AbfBis) @@ -4175,7 +4176,7 @@ Class cSpeditionsbuchReport Return cd End Function - Private Sub CreateDetailReport(blatt As Object, dt As DataTable, kdnr As Integer) + Private Sub CreateDetailReport(blatt As Object, dt As DataTable, kdnr As Integer, Optional DL_Kosten As Boolean = False) Dim cnt As Integer = 2 For Each r As DataRow In dt.Rows @@ -4189,7 +4190,7 @@ Class cSpeditionsbuchReport If(r("AbfertigungsNr"), "").ToString()) End If 's - WriteDetailReportRow(blatt, r, cd, cnt, kdnr) + WriteDetailReportRow(blatt, r, cd, cnt, kdnr, DL_Kosten) Catch ex As Exception MsgBox(ex.Message & vbCrLf & ex.StackTrace) @@ -4226,6 +4227,203 @@ Class cSpeditionsbuchReport End Sub Private Sub WriteDetailReportRow(blatt As Object, + r As DataRow, + cd As cVERAG_CustomsDeclarations, + ByRef cnt As Integer, + kdnrsrch As Integer, + Optional DL_Kosten As Boolean = False) + + Dim kdAtrNr As String = NormalizeKdAuftragsNr(r("KdAuftragsNr"), kdnrsrch) + + Dim dienstleistungsKosten As Decimal = 0D + + If DL_Kosten Then + blatt.Range("AF1").Value = "Service Costs" + dienstleistungsKosten = GetDienstleistungskosten(r, kdnrsrch) + End If + + If cd IsNot Nothing AndAlso cd.hasEntry Then + + Dim empfaenger As String = GetPartyName(cd, cVERAG_CustomsDeclarations.IMPORTER_ROLES, "") + Dim absender As String = GetPartyName(cd, cVERAG_CustomsDeclarations.EXPORTER_ROLES, "") + + If cd.Items IsNot Nothing AndAlso cd.Items.Count > 0 Then + + For Each item As cVERAG_CustomsDeclarations_Item In cd.Items + + ' Abgaben kommen jetzt von der Position + Dim eustBetrag As Decimal = GetDutyAmount(item, {"B%", "B00", "EUST", "VAT"}) + Dim zollBetrag As Decimal = GetDutyAmountExcluding(item, {"B%", "B00", "EUST", "VAT"}) + + Dim itemInvoiceAmount As Decimal = + If(item.zaItem_InvoiceValueForeign, item.zaItem_InvoiceValueEUR) + + Dim zollInProzent As Double = 0 + + If itemInvoiceAmount <> 0 Then + zollInProzent = CDbl(zollBetrag / itemInvoiceAmount * 100D) + End If + + blatt.Range("A" & cnt).Value = cnt - 1 + blatt.Range("B" & cnt).Value = r("Abfertigungsdatum") + blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr")) + blatt.Range("D" & cnt).Value = empfaenger + blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr") + blatt.Range("F" & cnt).Value = kdAtrNr + blatt.Range("G" & cnt).Value = + If(Not String.IsNullOrWhiteSpace(If(r("BelegNr"), "").ToString()), + r("BelegNr"), + cd.za_MRN) + + blatt.Range("H" & cnt).Value = item.zaItem_PosNo + blatt.Range("I" & cnt).Value = item.zaItem_HSCode + blatt.Range("J" & cnt).Value = "-" + blatt.Range("K" & cnt).Value = item.zaItem_Description + blatt.Range("L" & cnt).Value = "" + + blatt.Range("M" & cnt).Value = + If(Not String.IsNullOrWhiteSpace(If(item.zaItem_InvoiceCurrency, "")), + item.zaItem_InvoiceCurrency, + cd.za_InvoiceCurrency) + + blatt.Range("N" & cnt).Value = item.zaItem_MainProcedure + blatt.Range("O" & cnt).Value = cd.za_EntryCustomsOffice + blatt.Range("P" & cnt).Value = If(item.zaItem_PosNo = 1, cd.za_TotGrossMass, "") + blatt.Range("Q" & cnt).Value = item.zaItem_NetMass + blatt.Range("R" & cnt).Value = itemInvoiceAmount + blatt.Range("S" & cnt).Value = eustBetrag + blatt.Range("T" & cnt).Value = zollBetrag + blatt.Range("U" & cnt).Value = zollInProzent.ToString("N2") & " %" + blatt.Range("V" & cnt).Value = cd.za_CountryDispatch + blatt.Range("W" & cnt).Value = absender + blatt.Range("X" & cnt).Value = item.zaItem_OriginCountry + blatt.Range("Y" & cnt).Value = cd.za_CountryDestination + blatt.Range("Z" & cnt).Value = cd.za_Incoterms + blatt.Range("AA" & cnt).Value = cd.za_IncotermsPlace + + blatt.Range("AB" & cnt).Value = + item.zaItem_MainProcedure & + If(Not String.IsNullOrWhiteSpace(item.zaItem_AdditionalProc), + "/" & item.zaItem_AdditionalProc, + "") + + blatt.Range("AC" & cnt).Value = item.zaItem_PreferenceCode + blatt.Range("AD" & cnt).Value = If(IsItemCBAM(item), "Y", "N") + blatt.Range("AE" & cnt).Value = item.GetInvoiceListString() + + If DL_Kosten Then + blatt.Range("AF" & cnt).Value = dienstleistungsKosten + End If + + cnt += 1 + + Next + + Else + + 'Fallback: wenn keine Positionen vorhanden sind, + 'weiterhin Header-Duties verwenden + + Dim eustBetrag As Decimal = + GetDutyAmount(cd, {"B%", "B00", "EUST", "VAT"}) + + Dim zollBetrag As Decimal = + GetDutyAmountExcluding(cd, {"B%", "B00", "EUST", "VAT"}) + + Dim invoiceAmount As Decimal = If(cd.za_InvoiceAmount, 0D) + + Dim zollInProzent As Double = 0 + + If invoiceAmount <> 0 Then + zollInProzent = CDbl(zollBetrag / invoiceAmount * 100D) + End If + + blatt.Range("A" & cnt).Value = cnt - 1 + blatt.Range("B" & cnt).Value = r("Abfertigungsdatum") + blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr")) + blatt.Range("D" & cnt).Value = empfaenger + blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr") + blatt.Range("F" & cnt).Value = kdAtrNr + + blatt.Range("G" & cnt).Value = + If(Not String.IsNullOrWhiteSpace(If(r("BelegNr"), "").ToString()), + r("BelegNr"), + cd.za_MRN) + + blatt.Range("H" & cnt).Value = "" + blatt.Range("I" & cnt).Value = "" + blatt.Range("J" & cnt).Value = "-" + blatt.Range("K" & cnt).Value = "" + blatt.Range("L" & cnt).Value = "" + blatt.Range("M" & cnt).Value = cd.za_InvoiceCurrency + blatt.Range("N" & cnt).Value = cd.za_MainProcedure + blatt.Range("O" & cnt).Value = cd.za_EntryCustomsOffice + blatt.Range("P" & cnt).Value = cd.za_TotGrossMass + blatt.Range("Q" & cnt).Value = "" + blatt.Range("R" & cnt).Value = cd.za_InvoiceAmount + blatt.Range("S" & cnt).Value = eustBetrag + blatt.Range("T" & cnt).Value = zollBetrag + blatt.Range("U" & cnt).Value = zollInProzent.ToString("N2") & " %" + blatt.Range("V" & cnt).Value = cd.za_CountryDispatch + blatt.Range("W" & cnt).Value = absender + blatt.Range("X" & cnt).Value = "" + blatt.Range("Y" & cnt).Value = cd.za_CountryDestination + blatt.Range("Z" & cnt).Value = cd.za_Incoterms + blatt.Range("AA" & cnt).Value = cd.za_IncotermsPlace + blatt.Range("AB" & cnt).Value = "" + blatt.Range("AC" & cnt).Value = "" + blatt.Range("AD" & cnt).Value = "" + blatt.Range("AE" & cnt).Value = "" + + If DL_Kosten Then + blatt.Range("AF" & cnt).Value = dienstleistungsKosten + End If + + cnt += 1 + + End If + + Else + + blatt.Range("A" & cnt).Value = cnt - 1 + blatt.Range("B" & cnt).Value = r("Abfertigungsdatum") + blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr")) + blatt.Range("D" & cnt).Value = r("Empfänger") + blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr") + blatt.Range("F" & cnt).Value = kdAtrNr + blatt.Range("G" & cnt).Value = r("BelegNr") + + If DL_Kosten Then + blatt.Range("AF" & cnt).Value = dienstleistungsKosten + End If + + cnt += 1 + + End If + + End Sub + + Private Function GetDienstleistungskosten(r As DataRow, kdnrsrch As Integer) As Decimal + Try + Dim sqlstr As String = + "SELECT ISNULL(SUM(pos.SteuerfreierBetrag + pos.SteuerpflichtigerBetrag), 0) " & + "FROM Rechnungsausgang RK " & + "INNER JOIN RechnungsausgangPositionen POS ON RK.RK_ID = POS.RK_ID " & + "INNER JOIN Leistungen ON POS.LeistungsNr = Leistungen.LeistungsNr " & + "WHERE RK.FilialenNr = " & CInt(r("FilialenNr")) & " " & + "AND RK.AbfertigungsNr = " & CInt(r("AbfertigungsNr")) & " " & + "AND Leistungen.Abfertigungskosten = 1 " & + "AND Leistungen.abzugsfaehigInZZ = 0 " & + "AND RK.RechnungsKundenNr = " & kdnrsrch + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Return SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0) + + Catch + Return 0D + End Try + End Function + Private Sub WriteDetailReportRow_OLD(blatt As Object, r As DataRow, cd As cVERAG_CustomsDeclarations, ByRef cnt As Integer, @@ -4394,6 +4592,22 @@ Class cSpeditionsbuchReport Sum(Function(d) If(d.zaDuty_AmountEUR, 0D)) End Function + Private Function GetDutyAmount(cd As cVERAG_CustomsDeclarations_Item, dutyTypes As String()) As Decimal + If cd Is Nothing OrElse cd.Duties Is Nothing Then Return 0D + + Return cd.Duties. + Where(Function(d) DutyTypeMatches(If(d.zaDuty_DutyType, ""), dutyTypes)). + Sum(Function(d) If(d.zaDuty_AmountEUR, 0D)) + End Function + + Private Function GetDutyAmountExcluding(cd As cVERAG_CustomsDeclarations_Item, excludedDutyTypes As String()) As Decimal + If cd Is Nothing OrElse cd.Duties Is Nothing Then Return 0D + + Return cd.Duties. + Where(Function(d) Not DutyTypeMatches(If(d.zaDuty_DutyType, ""), excludedDutyTypes)). + Sum(Function(d) If(d.zaDuty_AmountEUR, 0D)) + End Function + Private Function DutyTypeMatches(dutyType As String, patterns As String()) As Boolean Dim value As String = If(dutyType, "").Trim().ToUpper() If value = "" OrElse patterns Is Nothing Then Return False @@ -4439,11 +4653,13 @@ Class cSpeditionsbuchReport Distinct()) End Function - Private Function IsItemCBAM(item As cVERAG_CustomsDeclarations_Item) As Boolean + Private Function IsItemCBAM_TNR(item As cVERAG_CustomsDeclarations_Item) As Boolean Try If item Is Nothing Then Return False - Dim cbamList = VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.LoadCBAMTariffNumbers() + If VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST Is Nothing Then VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST = cGreendeal_CBAM_Trn.LoadCBAMTariffNumbers + + Dim cbamList = VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST ' VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.LoadCBAMTariffNumbers() Dim hs = If(item.zaItem_HSCode, "").Trim() If hs = "" OrElse cbamList Is Nothing Then Return False @@ -4456,6 +4672,50 @@ Class cSpeditionsbuchReport Return False End Function + Private Function IsItemCBAM(item As cVERAG_CustomsDeclarations_Item) As Boolean + + Try + + If item Is Nothing Then Return False + + ' Ursprungsland prüfen (nicht CBAM-pflichtige Länder ausschließen) + Dim originCountry = If(item.zaItem_OriginCountry, "").Trim().ToUpper() + + Select Case originCountry + ' EU-27 + Case "AT", "BE", "BG", "HR", "CY", "CZ", "DK", "EE", "FI", "FR", + "DE", "GR", "HU", "IE", "IT", "LV", "LT", "LU", "MT", "NL", + "PL", "PT", "RO", "SK", "SI", "ES", "SE", ' Ausnahmen + "CH", ' Schweiz + "NO", ' Norwegen + "IS", ' Island + "LI", ' Liechtenstein + "XI" ' Nordirland + + Return False + End Select + + + If VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST Is Nothing Then VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST = cGreendeal_CBAM_Trn.LoadCBAMTariffNumbers + + Dim cbamList = VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST ' VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.LoadCBAMTariffNumbers() + + Dim hs = If(item.zaItem_HSCode, "").Trim() + + If hs = "" OrElse cbamList Is Nothing Then Return False + + For Each p In cbamList + + If hs.StartsWith(If(p, "").Trim()) Then Return True + + Next + + Catch + End Try + + Return False + + End Function Private Function NormalizeKdAuftragsNr(value As Object, kdnrsrch As Integer) As String Dim kdAtrNr As String = If(value, "").ToString() diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb index 966bf729..b5dc211c 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb @@ -46,7 +46,7 @@ Public Class usrCntlATLAS_EXGestellung cbxNCTS.Checked = False - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Or VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Then Button2.Visible = True Label5.Visible = True End If diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb index 29fa5fa7..e1f0365a 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb @@ -277,6 +277,7 @@ Public Class cRelayHub Case "Lieferschein" : fileType = "delivery_note" Case "Packliste" : fileType = "packaging_list" Case "Freihandelszone", "FTZ" : fileType = "ftz" + Case "EUR1", "EUR", "EUR.1" : fileType = "eur" Case "GGED_D", "GGED-D" : fileType = "gged_p" Case Else : fileType = "unknown" '"other"