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

Atez_EZA

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-05 11:02:19 +01:00
parent 8adc606acb
commit 9226e9a8e6
3 changed files with 99 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

148
Aviso/ATEZ/frmATEZ_EZA.Designer.vb generated
View File

@@ -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

28
Aviso/ATEZ/frmATEZ_EZA.vb
View File

@@ -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

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.2.4.0")>
<Assembly: AssemblyFileVersion("4.2.4.0")>
<Assembly: AssemblyVersion("4.2.4.2")>
<Assembly: AssemblyFileVersion("4.2.4.2")>