From 9226e9a8e62cd1a25045827fef8344acbc63cc01 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 5 Mar 2026 11:02:19 +0100 Subject: [PATCH] Atez_EZA --- Aviso/ATEZ/frmATEZ_EZA.Designer.vb | 148 ++++++++++++++++------------- Aviso/ATEZ/frmATEZ_EZA.vb | 28 +++--- Aviso/My Project/AssemblyInfo.vb | 4 +- 3 files changed, 99 insertions(+), 81 deletions(-) diff --git a/Aviso/ATEZ/frmATEZ_EZA.Designer.vb b/Aviso/ATEZ/frmATEZ_EZA.Designer.vb index e66573f..b084873 100644 --- a/Aviso/ATEZ/frmATEZ_EZA.Designer.vb +++ b/Aviso/ATEZ/frmATEZ_EZA.Designer.vb @@ -28,8 +28,11 @@ Partial Class frmATEZ_EZA Me.pnlHead = New System.Windows.Forms.Panel() Me.lblInfo = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() + Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label3 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() + Me.sbAdressierteZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.txtDyMandant = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.txtDyNiederlassung = New System.Windows.Forms.Label() @@ -43,11 +46,9 @@ Partial Class frmATEZ_EZA Me.btnAgg_Origin = New System.Windows.Forms.Button() Me.btnAgg_Unit = New System.Windows.Forms.Button() Me.btnAgg_desc = New System.Windows.Forms.Button() - Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.sbAdressierteZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Label4 = New System.Windows.Forms.Label() Me.pnlHead.SuspendLayout() CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -74,6 +75,7 @@ Partial Class frmATEZ_EZA ' Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.pnlHead.BackColor = System.Drawing.Color.White + Me.pnlHead.Controls.Add(Me.Label4) Me.pnlHead.Controls.Add(Me.lblInfo) Me.pnlHead.Controls.Add(Me.Label8) Me.pnlHead.Controls.Add(Me.cboStammreferenz) @@ -110,6 +112,45 @@ Partial Class frmATEZ_EZA Me.Label8.Text = "Stammreferenz:" Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'cboStammreferenz + ' + Me.cboStammreferenz._allowedValuesFreiText = Nothing + Me.cboStammreferenz._allowFreiText = False + Me.cboStammreferenz._value = "" + Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboStammreferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.cboStammreferenz.FormattingEnabled = True + Me.cboStammreferenz.Location = New System.Drawing.Point(151, 56) + Me.cboStammreferenz.Name = "cboStammreferenz" + Me.cboStammreferenz.Size = New System.Drawing.Size(255, 24) + Me.cboStammreferenz.TabIndex = 145 + ' + 'txtLKWId + ' + Me.txtLKWId._DateTimeOnly = False + Me.txtLKWId._numbersOnly = False + Me.txtLKWId._numbersOnlyKommastellen = "" + Me.txtLKWId._numbersOnlyTrennzeichen = True + Me.txtLKWId._Prozent = False + Me.txtLKWId._ShortDateNew = False + Me.txtLKWId._ShortDateOnly = False + Me.txtLKWId._TimeOnly = False + Me.txtLKWId._TimeOnly_Seconds = False + Me.txtLKWId._value = "" + Me.txtLKWId._Waehrung = False + Me.txtLKWId._WaehrungZeichen = True + Me.txtLKWId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtLKWId.ForeColor = System.Drawing.Color.Black + Me.txtLKWId.Location = New System.Drawing.Point(151, 86) + Me.txtLKWId.MaxLineLength = -1 + Me.txtLKWId.MaxLines_Warning = "" + Me.txtLKWId.MaxLines_Warning_Label = Nothing + Me.txtLKWId.Name = "txtLKWId" + Me.txtLKWId.Size = New System.Drawing.Size(255, 23) + Me.txtLKWId.TabIndex = 144 + ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(10, 91) @@ -126,6 +167,32 @@ Partial Class frmATEZ_EZA Me.Label9.TabIndex = 110 Me.Label9.Text = "Adressierte-Zollstelle:" ' + 'sbAdressierteZollstelle + ' + Me.sbAdressierteZollstelle._allowFreitext = False + Me.sbAdressierteZollstelle._AllowSetValue = False + Me.sbAdressierteZollstelle._allowSpaceAsSplitter = False + Me.sbAdressierteZollstelle._autoSizeGross = False + Me.sbAdressierteZollstelle._hideIfListEmpty = True + Me.sbAdressierteZollstelle._value = "" + Me.sbAdressierteZollstelle.conn_art = "FMZOLL" + Me.sbAdressierteZollstelle.dgvpos = "LEFT" + Me.sbAdressierteZollstelle.DISPLAY_PARAM = Nothing + Me.sbAdressierteZollstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.sbAdressierteZollstelle.INVISIBLE_COLUMNS = Nothing + Me.sbAdressierteZollstelle.key_visible = False + Me.sbAdressierteZollstelle.KEYPARAM = Nothing + Me.sbAdressierteZollstelle.Location = New System.Drawing.Point(151, 112) + Me.sbAdressierteZollstelle.Name = "sbAdressierteZollstelle" + Me.sbAdressierteZollstelle.searchActive = True + Me.sbAdressierteZollstelle.Size = New System.Drawing.Size(255, 23) + Me.sbAdressierteZollstelle.SQL_ORDER_BY = Nothing + Me.sbAdressierteZollstelle.SQL_SELECT = Nothing + Me.sbAdressierteZollstelle.SQL_WHERE = Nothing + Me.sbAdressierteZollstelle.SQL_WhereParamList = Nothing + Me.sbAdressierteZollstelle.TabIndex = 111 + Me.sbAdressierteZollstelle.usrcntl = Nothing + ' 'txtDyMandant ' Me.txtDyMandant.BackColor = System.Drawing.Color.White @@ -258,71 +325,6 @@ Partial Class frmATEZ_EZA Me.btnAgg_desc.Text = "Warenbeschreibung" Me.btnAgg_desc.UseVisualStyleBackColor = True ' - 'cboStammreferenz - ' - Me.cboStammreferenz._allowedValuesFreiText = Nothing - Me.cboStammreferenz._allowFreiText = False - Me.cboStammreferenz._value = "" - Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboStammreferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.cboStammreferenz.FormattingEnabled = True - Me.cboStammreferenz.Location = New System.Drawing.Point(151, 56) - Me.cboStammreferenz.Name = "cboStammreferenz" - Me.cboStammreferenz.Size = New System.Drawing.Size(255, 24) - Me.cboStammreferenz.TabIndex = 145 - ' - 'txtLKWId - ' - Me.txtLKWId._DateTimeOnly = False - Me.txtLKWId._numbersOnly = False - Me.txtLKWId._numbersOnlyKommastellen = "" - Me.txtLKWId._numbersOnlyTrennzeichen = True - Me.txtLKWId._Prozent = False - Me.txtLKWId._ShortDateNew = False - Me.txtLKWId._ShortDateOnly = False - Me.txtLKWId._TimeOnly = False - Me.txtLKWId._TimeOnly_Seconds = False - Me.txtLKWId._value = "" - Me.txtLKWId._Waehrung = False - Me.txtLKWId._WaehrungZeichen = True - Me.txtLKWId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtLKWId.ForeColor = System.Drawing.Color.Black - Me.txtLKWId.Location = New System.Drawing.Point(151, 86) - Me.txtLKWId.MaxLineLength = -1 - Me.txtLKWId.MaxLines_Warning = "" - Me.txtLKWId.MaxLines_Warning_Label = Nothing - Me.txtLKWId.Name = "txtLKWId" - Me.txtLKWId.Size = New System.Drawing.Size(255, 23) - Me.txtLKWId.TabIndex = 144 - ' - 'sbAdressierteZollstelle - ' - Me.sbAdressierteZollstelle._allowFreitext = False - Me.sbAdressierteZollstelle._AllowSetValue = False - Me.sbAdressierteZollstelle._allowSpaceAsSplitter = False - Me.sbAdressierteZollstelle._autoSizeGross = False - Me.sbAdressierteZollstelle._hideIfListEmpty = True - Me.sbAdressierteZollstelle._value = "" - Me.sbAdressierteZollstelle.conn_art = "FMZOLL" - Me.sbAdressierteZollstelle.dgvpos = "LEFT" - Me.sbAdressierteZollstelle.DISPLAY_PARAM = Nothing - Me.sbAdressierteZollstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.sbAdressierteZollstelle.INVISIBLE_COLUMNS = Nothing - Me.sbAdressierteZollstelle.key_visible = False - Me.sbAdressierteZollstelle.KEYPARAM = Nothing - Me.sbAdressierteZollstelle.Location = New System.Drawing.Point(151, 112) - Me.sbAdressierteZollstelle.Name = "sbAdressierteZollstelle" - Me.sbAdressierteZollstelle.searchActive = True - Me.sbAdressierteZollstelle.Size = New System.Drawing.Size(255, 23) - Me.sbAdressierteZollstelle.SQL_ORDER_BY = Nothing - Me.sbAdressierteZollstelle.SQL_SELECT = Nothing - Me.sbAdressierteZollstelle.SQL_WHERE = Nothing - Me.sbAdressierteZollstelle.SQL_WhereParamList = Nothing - Me.sbAdressierteZollstelle.TabIndex = 111 - Me.sbAdressierteZollstelle.usrcntl = Nothing - ' 'dgvAnhaenge ' Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1 @@ -348,6 +350,15 @@ Partial Class frmATEZ_EZA Me.columnName.Name = "columnName" Me.columnName.ReadOnly = True ' + 'Label4 + ' + Me.Label4.BackColor = System.Drawing.Color.White + Me.Label4.Location = New System.Drawing.Point(106, 8) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(45, 12) + Me.Label4.TabIndex = 149 + Me.Label4.Text = "SUB" + ' 'frmATEZ_EZA ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -400,4 +411,5 @@ Partial Class frmATEZ_EZA Friend WithEvents btnAgg_Origin As Button Friend WithEvents btnAgg_Unit As Button Friend WithEvents btnAgg_desc As Button + Friend WithEvents Label4 As Label End Class diff --git a/Aviso/ATEZ/frmATEZ_EZA.vb b/Aviso/ATEZ/frmATEZ_EZA.vb index 104ce2e..6364b23 100644 --- a/Aviso/ATEZ/frmATEZ_EZA.vb +++ b/Aviso/ATEZ/frmATEZ_EZA.vb @@ -1,5 +1,6 @@  Imports com.esendex.sdk.optouts.models +Imports DAKOSY_Worker Imports DAKOSY_Worker.eZollTypes Imports SDL Imports VERAG_PROG_ALLGEMEIN @@ -450,21 +451,26 @@ Public Class frmATEZ_EZA Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load - Select Case FIRMA_DY - Case "VERAG" : txtDyMandant.Text = "VERG" - txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + 'Select Case FIRMA_DY + ' Case "VERAG" : txtDyMandant.Text = "VERG" + ' txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG - Select Case FilialenNr - Case "5103" : txtDyNiederlassung.Text = "WAI" + ' Select Case FilialenNr + ' Case "5103" : txtDyNiederlassung.Text = "WAI" - End Select + ' End Select - Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW" - Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED" - Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME" - Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO" - End Select + ' Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW" + ' Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED" + ' Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME" + ' Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO" + 'End Select + + txtDyMandant.Text = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me) + txtDyNiederlassung.Text = cDakosyFunftions.getDivision(txtDyMandant.Text) + + Label4.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "-").ToString initSeachboxes() lblAnh.Visible = True diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 426f252..9280b24 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +