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

TC

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-12-02 08:26:04 +01:00
parent dfb4720882
commit 97d186df52
7 changed files with 434 additions and 258 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

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

49
SDL/ZOLLSYSTEM/TELOTEC/cTelotecInterface_Send.vb
View File

@@ -372,6 +372,55 @@ Class cTELOTECInterface_Send
If POS.Telo_Artikelmenge IsNot Nothing Then XML_POS.Telo_ArtikelMenge = POS.Telo_Artikelmenge If POS.Telo_Artikelmenge IsNot Nothing Then XML_POS.Telo_ArtikelMenge = POS.Telo_Artikelmenge
If POS.Telo_ArtikelMEH IsNot Nothing Then XML_POS.Telo_ArtikelMEH = POS.Telo_ArtikelMEH If POS.Telo_ArtikelMEH IsNot Nothing Then XML_POS.Telo_ArtikelMEH = POS.Telo_ArtikelMEH
If POS.PACKSTUECKE IsNot Nothing AndAlso POS.PACKSTUECKE.Count > 0 Then
For Each PK In POS.PACKSTUECKE
Dim XML_PK As New vifDecPack
XML_PK.Mandant_ID = XML.Mandant_ID
XML_PK.Bereich_ID = XML.Bereich_ID
XML_PK.Referenz_ID = XML.Referenz_ID
XML_PK.ComIndicator = XML.ComIndicator
XML_PK.Pos_ID = POS.Pos_ID
If PK.Pack_Nr IsNot Nothing Then XML_PK.Pack_Nr = PK.Pack_Nr
If PK.Pack_Kind IsNot Nothing Then XML_PK.Pack_Kind = PK.Pack_Kind
XML_POS.vifDecPack.Add(XML_PK)
Next
End If
If POS.DOC_CERTS IsNot Nothing AndAlso POS.DOC_CERTS.Count > 0 Then
For Each DOC In POS.DOC_CERTS
Dim XML_DOC As New vifDecDocCerts
XML_DOC.Mandant_ID = XML.Mandant_ID
XML_DOC.Bereich_ID = XML.Bereich_ID
XML_DOC.Referenz_ID = XML.Referenz_ID
XML_DOC.ComIndicator = XML.ComIndicator
XML_DOC.Pos_ID = POS.Pos_ID
If DOC.DocCerts_ID IsNot Nothing Then XML_DOC.DocCerts_ID = DOC.DocCerts_ID
If DOC.DocCerts_DocCd IsNot Nothing Then XML_DOC.DocCerts_DocCd = DOC.DocCerts_DocCd
If DOC.DocCerts_DTy IsNot Nothing Then XML_DOC.DocCerts_DTy = DOC.DocCerts_DTy
If DOC.DocCerts_DRef IsNot Nothing Then XML_DOC.DocCerts_DRef = DOC.DocCerts_DRef
If DOC.DocCerts_IssD IsNot Nothing Then XML_DOC.DocCerts_IssD = DOC.DocCerts_IssD
If DOC.DocCerts_IssCtry IsNot Nothing Then XML_DOC.DocCerts_IssCtry = DOC.DocCerts_IssCtry
If DOC.DocCerts_DTIN IsNot Nothing Then XML_DOC.DocCerts_DTIN = DOC.DocCerts_DTIN
If DOC.DocCerts_UidVid IsNot Nothing Then XML_DOC.DocCerts_UidVid = DOC.DocCerts_UidVid
'If DOC.DocCerts_ValD IsNot Nothing Then XML_DOC.DocCerts_Val = DOC.DocCerts_ValD
XML_POS.vifDecDocCerts.Add(XML_DOC)
Next
End If
XML.vifDecItem.Add(XML_POS) XML.vifDecItem.Add(XML_POS)
Next Next

32
SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.Designer.vb generated
View File

@@ -45,6 +45,7 @@ Partial Class usrCntlTCeZOLL_EZA
Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblUpload = New System.Windows.Forms.Label()
Me.txtDyMandant = New System.Windows.Forms.Label() Me.txtDyMandant = New System.Windows.Forms.Label()
Me.txtDyNiederlassung = New System.Windows.Forms.Label() Me.txtDyNiederlassung = New System.Windows.Forms.Label()
Me.MenuStrip = New System.Windows.Forms.MenuStrip() Me.MenuStrip = New System.Windows.Forms.MenuStrip()
@@ -55,7 +56,7 @@ Partial Class usrCntlTCeZOLL_EZA
Me.DynamicAutomotiveXLSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DynamicAutomotiveXLSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.EZAIDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EZAIDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.lblUpload = New System.Windows.Forms.Label() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.SuspendLayout() Me.SplitContainer.SuspendLayout()
@@ -382,6 +383,16 @@ Partial Class usrCntlTCeZOLL_EZA
Me.Panel1.Size = New System.Drawing.Size(934, 25) Me.Panel1.Size = New System.Drawing.Size(934, 25)
Me.Panel1.TabIndex = 1 Me.Panel1.TabIndex = 1
' '
'lblUpload
'
Me.lblUpload.BackColor = System.Drawing.Color.White
Me.lblUpload.Location = New System.Drawing.Point(255, 6)
Me.lblUpload.Name = "lblUpload"
Me.lblUpload.Size = New System.Drawing.Size(154, 13)
Me.lblUpload.TabIndex = 22
Me.lblUpload.Text = "VERG"
Me.lblUpload.Visible = False
'
'txtDyMandant 'txtDyMandant
' '
Me.txtDyMandant.BackColor = System.Drawing.Color.White Me.txtDyMandant.BackColor = System.Drawing.Color.White
@@ -432,7 +443,7 @@ Partial Class usrCntlTCeZOLL_EZA
' '
'DateiimportToolStripMenuItem 'DateiimportToolStripMenuItem
' '
Me.DateiimportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DynamicAutomotiveXLSToolStripMenuItem}) Me.DateiimportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2, Me.DynamicAutomotiveXLSToolStripMenuItem})
Me.DateiimportToolStripMenuItem.Name = "DateiimportToolStripMenuItem" Me.DateiimportToolStripMenuItem.Name = "DateiimportToolStripMenuItem"
Me.DateiimportToolStripMenuItem.Size = New System.Drawing.Size(87, 20) Me.DateiimportToolStripMenuItem.Size = New System.Drawing.Size(87, 20)
Me.DateiimportToolStripMenuItem.Text = "Datei-Import" Me.DateiimportToolStripMenuItem.Text = "Datei-Import"
@@ -440,8 +451,8 @@ Partial Class usrCntlTCeZOLL_EZA
'DynamicAutomotiveXLSToolStripMenuItem 'DynamicAutomotiveXLSToolStripMenuItem
' '
Me.DynamicAutomotiveXLSToolStripMenuItem.Name = "DynamicAutomotiveXLSToolStripMenuItem" Me.DynamicAutomotiveXLSToolStripMenuItem.Name = "DynamicAutomotiveXLSToolStripMenuItem"
Me.DynamicAutomotiveXLSToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.DynamicAutomotiveXLSToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.DynamicAutomotiveXLSToolStripMenuItem.Text = "Trendyol (XLSX)" Me.DynamicAutomotiveXLSToolStripMenuItem.Text = "Trendyol TNR (XLSX)"
' '
'ToolStripMenuItem1 'ToolStripMenuItem1
' '
@@ -456,15 +467,11 @@ Partial Class usrCntlTCeZOLL_EZA
Me.EZAIDToolStripMenuItem.Size = New System.Drawing.Size(109, 22) Me.EZAIDToolStripMenuItem.Size = New System.Drawing.Size(109, 22)
Me.EZAIDToolStripMenuItem.Text = "EZA ID" Me.EZAIDToolStripMenuItem.Text = "EZA ID"
' '
'lblUpload 'ToolStripMenuItem2
' '
Me.lblUpload.BackColor = System.Drawing.Color.White Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.lblUpload.Location = New System.Drawing.Point(255, 6) Me.ToolStripMenuItem2.Size = New System.Drawing.Size(181, 22)
Me.lblUpload.Name = "lblUpload" Me.ToolStripMenuItem2.Text = "Trendyol (XLSX)"
Me.lblUpload.Size = New System.Drawing.Size(154, 13)
Me.lblUpload.TabIndex = 22
Me.lblUpload.Text = "VERG"
Me.lblUpload.Visible = False
' '
'usrCntlTCeZOLL_EZA 'usrCntlTCeZOLL_EZA
' '
@@ -522,4 +529,5 @@ Partial Class usrCntlTCeZOLL_EZA
Friend WithEvents DateiimportToolStripMenuItem As ToolStripMenuItem Friend WithEvents DateiimportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DynamicAutomotiveXLSToolStripMenuItem As ToolStripMenuItem Friend WithEvents DynamicAutomotiveXLSToolStripMenuItem As ToolStripMenuItem
Friend WithEvents lblUpload As Label Friend WithEvents lblUpload As Label
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
End Class End Class

31
SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.vb
View File

@@ -628,7 +628,7 @@ Public Class usrCntlTCeZOLL_EZA
End Sub End Sub
Private Function importExcel_trendyol() As Boolean Private Function importExcel_trendyol(splitTNR) As Boolean
lblUpload.Text = "Excel öffnen..." lblUpload.Text = "Excel öffnen..."
lblUpload.Visible = True lblUpload.Visible = True
@@ -684,10 +684,6 @@ Public Class usrCntlTCeZOLL_EZA
MsgBox(startRows)
' Inhalt durchlaufen ' Inhalt durchlaufen
@@ -717,8 +713,13 @@ Public Class usrCntlTCeZOLL_EZA
'myArray(i_soll2 - startRows + 1, 4) 'myArray(i_soll2 - startRows + 1, 4)
lblUpload.Text = "Aggregieren..." lblUpload.Text = "Aggregieren..."
' Dim DT = aggregierenTrendxol(myArray) '--> !!BEschreibung!! , TNR, Orig, Curr Dim DT As DataTable = Nothing
Dim DT = aggregierenTrendxolTNR(myArray) '--> TNR, Orig, Curr If splitTNR Then
DT = aggregierenTrendxolTNR(myArray) '--> TNR, Orig, Curr
Else
aggregierenTrendxol(myArray) '--> !!BEschreibung!! , TNR, Orig, Curr
End If
Dim cnt = 0 Dim cnt = 0
@@ -759,8 +760,6 @@ Public Class usrCntlTCeZOLL_EZA
TC_ANM.POSITIONSDATEN.Add(POSITION) TC_ANM.POSITIONSDATEN.Add(POSITION)
cnt += 1 cnt += 1
Next Next
@@ -921,7 +920,6 @@ Public Class usrCntlTCeZOLL_EZA
For Each grp In amountGrpByDates For Each grp In amountGrpByDates
'Dim row As New DataRow 'Dim row As New DataRow
'MsgBox("" & grp.Params.Orig & " " & grp.Params.Description & " " & grp.Params.Tnr & " " & grp.Params.Curr & "= " & grp.SumQTY & " " & grp.SumAmount & "") 'MsgBox("" & grp.Params.Orig & " " & grp.Params.Description & " " & grp.Params.Tnr & " " & grp.Params.Curr & "= " & grp.SumQTY & " " & grp.SumAmount & "")
DT_AGG.Rows.Add({grp.Params.Description, grp.Params.Tnr, grp.Params.Curr, grp.Params.Orig, grp.SumQTY, grp.SumAmount}) DT_AGG.Rows.Add({grp.Params.Description, grp.Params.Tnr, grp.Params.Curr, grp.Params.Orig, grp.SumQTY, grp.SumAmount})
Next Next
@@ -1028,7 +1026,7 @@ Public Class usrCntlTCeZOLL_EZA
Select New With { Select New With {
Key .Params = groupKeys, Key .Params = groupKeys,
.SumQTY = Group.Sum(Function(x) x.Field(Of Integer)("I")), .SumQTY = Group.Sum(Function(x) x.Field(Of Integer)("I")),
.Desc = "zB: " & Group.Max(Function(x) (x.Field(Of String)("D") & ", " & x.Field(Of String)("D"))), .Desc = "zB: " & Group.Min(Function(x) (x.Field(Of String)("D") & ", " & x.Field(Of String)("F"))) & " / " & Group.Max(Function(x) (x.Field(Of String)("D") & ", " & x.Field(Of String)("F"))) & ", etc.",
.SumAmount = Group.Sum(Function(x) x.Field(Of Decimal)("M"))} .SumAmount = Group.Sum(Function(x) x.Field(Of Decimal)("M"))}
' .SumQTY = Group.Sum(Function(x) x.Field(Of Integer)("I"))} ' .SumQTY = Group.Sum(Function(x) x.Field(Of Integer)("I"))}
'row.Field(Of String)("D") & ", " & row.Field(Of String)("F") 'row.Field(Of String)("D") & ", " & row.Field(Of String)("F")
@@ -1040,6 +1038,7 @@ Public Class usrCntlTCeZOLL_EZA
For Each grp In amountGrpByDates For Each grp In amountGrpByDates
'Dim row As New DataRow 'Dim row As New DataRow
'MsgBox("" & grp.Params.Orig & " " & grp.Params.Description & " " & grp.Params.Tnr & " " & grp.Params.Curr & "= " & grp.SumQTY & " " & grp.SumAmount & "") 'MsgBox("" & grp.Params.Orig & " " & grp.Params.Description & " " & grp.Params.Tnr & " " & grp.Params.Curr & "= " & grp.SumQTY & " " & grp.SumAmount & "")
MsgBox(grp.SumQTY)
DT_AGG.Rows.Add({grp.Desc, grp.Params.Tnr, grp.Params.Curr, grp.Params.Orig, grp.SumQTY, grp.SumAmount}) DT_AGG.Rows.Add({grp.Desc, grp.Params.Tnr, grp.Params.Curr, grp.Params.Orig, grp.SumQTY, grp.SumAmount})
Next Next
@@ -1157,8 +1156,14 @@ Public Class usrCntlTCeZOLL_EZA
End If End If
End Sub End Sub
Private Sub DynamicAutomotiveXLSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DynamicAutomotiveXLSToolStripMenuItem.Click Private Sub DynamicAutomotiveXLSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DynamicAutomotiveXLSToolStripMenuItem.Click, ToolStripMenuItem2.Click
importExcel_trendyol() If sender Is DynamicAutomotiveXLSToolStripMenuItem Then
importExcel_trendyol(True)
Else
importExcel_trendyol(False)
End If
End Sub End Sub
End Class End Class

542
SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.Designer.vb generated
View File

@@ -24,19 +24,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button() Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label36 = New System.Windows.Forms.Label()
Me.txtEigenmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label37 = New System.Windows.Forms.Label()
Me.Label38 = New System.Windows.Forms.Label()
Me.Label39 = New System.Windows.Forms.Label()
Me.Label35 = New System.Windows.Forms.Label()
Me.Label34 = New System.Windows.Forms.Label()
Me.MyDatagridview2 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.clmnAnhart = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnAnhReferenz = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnAnhDatum = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.clmnOrigin = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.clmnOrigin = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnTarifnummer = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.clmnTarifnummer = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -47,6 +35,19 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.clmnEigenmasse = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.clmnEigenmasse = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnPreis = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.clmnPreis = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnWaehrung = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.clmnWaehrung = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button1 = New System.Windows.Forms.Button()
Me.MyDatagridview2 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.clmnAnhart = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnAnhReferenz = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnAnhDatum = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label36 = New System.Windows.Forms.Label()
Me.Label34 = New System.Windows.Forms.Label()
Me.txtEigenmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label35 = New System.Windows.Forms.Label()
Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label39 = New System.Windows.Forms.Label()
Me.Label37 = New System.Windows.Forms.Label()
Me.Label38 = New System.Windows.Forms.Label()
Me.Label33 = New System.Windows.Forms.Label() Me.Label33 = New System.Windows.Forms.Label()
Me.txtContainerNr3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtContainerNr3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtContainerNr2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtContainerNr2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -127,9 +128,15 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.Label10 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label()
Me.Label31 = New System.Windows.Forms.Label() Me.Label31 = New System.Windows.Forms.Label()
Me.Label25 = New System.Windows.Forms.Label() Me.Label25 = New System.Windows.Forms.Label()
Me.Label40 = New System.Windows.Forms.Label()
Me.Label41 = New System.Windows.Forms.Label()
Me.Label42 = New System.Windows.Forms.Label()
Me.txtPosPraeferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPosVerfahrenscode = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel3.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -139,17 +146,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'pnl 'pnl
' '
Me.pnl.AutoScroll = True Me.pnl.AutoScroll = True
Me.pnl.Controls.Add(Me.Button1) Me.pnl.Controls.Add(Me.Panel3)
Me.pnl.Controls.Add(Me.Label36)
Me.pnl.Controls.Add(Me.txtEigenmasse)
Me.pnl.Controls.Add(Me.txtRohmasse)
Me.pnl.Controls.Add(Me.Label37)
Me.pnl.Controls.Add(Me.Label38)
Me.pnl.Controls.Add(Me.Label39)
Me.pnl.Controls.Add(Me.Label35)
Me.pnl.Controls.Add(Me.Label34)
Me.pnl.Controls.Add(Me.MyDatagridview2)
Me.pnl.Controls.Add(Me.MyDatagridview1)
Me.pnl.Controls.Add(Me.Label33) Me.pnl.Controls.Add(Me.Label33)
Me.pnl.Controls.Add(Me.txtContainerNr3) Me.pnl.Controls.Add(Me.txtContainerNr3)
Me.pnl.Controls.Add(Me.txtContainerNr2) Me.pnl.Controls.Add(Me.txtContainerNr2)
@@ -219,160 +216,35 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.pnl.Size = New System.Drawing.Size(930, 979) Me.pnl.Size = New System.Drawing.Size(930, 979)
Me.pnl.TabIndex = 0 Me.pnl.TabIndex = 0
' '
'Button1 'Panel3
' '
Me.Button1.BackColor = System.Drawing.Color.White Me.Panel3.Controls.Add(Me.txtPosVerfahrenscode)
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.Panel3.Controls.Add(Me.txtPosPraeferenz)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Panel3.Controls.Add(Me.Label42)
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.Panel3.Controls.Add(Me.Label41)
Me.Button1.ForeColor = System.Drawing.Color.Black Me.Panel3.Controls.Add(Me.Label40)
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter Me.Panel3.Controls.Add(Me.MyDatagridview1)
Me.Button1.Location = New System.Drawing.Point(481, 597) Me.Panel3.Controls.Add(Me.Button1)
Me.Button1.Margin = New System.Windows.Forms.Padding(2) Me.Panel3.Controls.Add(Me.MyDatagridview2)
Me.Button1.Name = "Button1" Me.Panel3.Controls.Add(Me.Label36)
Me.Button1.Size = New System.Drawing.Size(131, 24) Me.Panel3.Controls.Add(Me.Label34)
Me.Button1.TabIndex = 73 Me.Panel3.Controls.Add(Me.txtEigenmasse)
Me.Button1.Text = "nach Preis aufteilen" Me.Panel3.Controls.Add(Me.Label35)
Me.Button1.UseVisualStyleBackColor = False Me.Panel3.Controls.Add(Me.txtRohmasse)
' Me.Panel3.Controls.Add(Me.Label39)
'Label36 Me.Panel3.Controls.Add(Me.Label37)
' Me.Panel3.Controls.Add(Me.Label38)
Me.Label36.ForeColor = System.Drawing.Color.Red Me.Panel3.Location = New System.Drawing.Point(0, 205)
Me.Label36.Location = New System.Drawing.Point(243, 618) Me.Panel3.Name = "Panel3"
Me.Label36.Name = "Label36" Me.Panel3.Size = New System.Drawing.Size(927, 406)
Me.Label36.Size = New System.Drawing.Size(233, 13) Me.Panel3.TabIndex = 74
Me.Label36.TabIndex = 72
Me.Label36.Text = "Eigenmasse muss kleiner als Rohmasse sein!"
Me.Label36.Visible = False
'
'txtEigenmasse
'
Me.txtEigenmasse._DateTimeOnly = False
Me.txtEigenmasse._numbersOnly = True
Me.txtEigenmasse._numbersOnlyKommastellen = "2"
Me.txtEigenmasse._numbersOnlyTrennzeichen = True
Me.txtEigenmasse._Prozent = False
Me.txtEigenmasse._ShortDateNew = False
Me.txtEigenmasse._ShortDateOnly = False
Me.txtEigenmasse._TimeOnly = False
Me.txtEigenmasse._TimeOnly_Seconds = False
Me.txtEigenmasse._value = "0"
Me.txtEigenmasse._Waehrung = False
Me.txtEigenmasse._WaehrungZeichen = True
Me.txtEigenmasse.ForeColor = System.Drawing.Color.Red
Me.txtEigenmasse.Location = New System.Drawing.Point(243, 597)
Me.txtEigenmasse.MaxLength = 18
Me.txtEigenmasse.MaxLineLength = -1
Me.txtEigenmasse.MaxLines_Warning = ""
Me.txtEigenmasse.MaxLines_Warning_Label = Nothing
Me.txtEigenmasse.Name = "txtEigenmasse"
Me.txtEigenmasse.Size = New System.Drawing.Size(117, 20)
Me.txtEigenmasse.TabIndex = 70
Me.txtEigenmasse.Text = "0,00"
'
'txtRohmasse
'
Me.txtRohmasse._DateTimeOnly = False
Me.txtRohmasse._numbersOnly = True
Me.txtRohmasse._numbersOnlyKommastellen = "2"
Me.txtRohmasse._numbersOnlyTrennzeichen = True
Me.txtRohmasse._Prozent = False
Me.txtRohmasse._ShortDateNew = False
Me.txtRohmasse._ShortDateOnly = False
Me.txtRohmasse._TimeOnly = False
Me.txtRohmasse._TimeOnly_Seconds = False
Me.txtRohmasse._value = "0"
Me.txtRohmasse._Waehrung = False
Me.txtRohmasse._WaehrungZeichen = True
Me.txtRohmasse.ForeColor = System.Drawing.Color.Red
Me.txtRohmasse.Location = New System.Drawing.Point(359, 597)
Me.txtRohmasse.MaxLength = 18
Me.txtRohmasse.MaxLineLength = -1
Me.txtRohmasse.MaxLines_Warning = ""
Me.txtRohmasse.MaxLines_Warning_Label = Nothing
Me.txtRohmasse.Name = "txtRohmasse"
Me.txtRohmasse.Size = New System.Drawing.Size(117, 20)
Me.txtRohmasse.TabIndex = 71
Me.txtRohmasse.Text = "0,00"
'
'Label37
'
Me.Label37.AutoSize = True
Me.Label37.Location = New System.Drawing.Point(240, 581)
Me.Label37.Name = "Label37"
Me.Label37.Size = New System.Drawing.Size(67, 13)
Me.Label37.TabIndex = 67
Me.Label37.Text = "Eigenmasse:"
'
'Label38
'
Me.Label38.AutoSize = True
Me.Label38.Location = New System.Drawing.Point(356, 581)
Me.Label38.Name = "Label38"
Me.Label38.Size = New System.Drawing.Size(60, 13)
Me.Label38.TabIndex = 68
Me.Label38.Text = "Rohmasse:"
'
'Label39
'
Me.Label39.Location = New System.Drawing.Point(129, 600)
Me.Label39.Name = "Label39"
Me.Label39.Size = New System.Drawing.Size(111, 13)
Me.Label39.TabIndex = 69
Me.Label39.Text = "Gewicht:"
Me.Label39.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label35
'
Me.Label35.AutoSize = True
Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label35.Location = New System.Drawing.Point(615, 618)
Me.Label35.Name = "Label35"
Me.Label35.Size = New System.Drawing.Size(73, 13)
Me.Label35.TabIndex = 66
Me.Label35.Text = "Unterlagen:"
'
'Label34
'
Me.Label34.AutoSize = True
Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label34.Location = New System.Drawing.Point(3, 618)
Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(70, 13)
Me.Label34.TabIndex = 65
Me.Label34.Text = "Positionen:"
'
'MyDatagridview2
'
Me.MyDatagridview2.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnAnhart, Me.clmnAnhReferenz, Me.clmnAnhDatum})
Me.MyDatagridview2.Location = New System.Drawing.Point(618, 634)
Me.MyDatagridview2.Name = "MyDatagridview2"
Me.MyDatagridview2.Size = New System.Drawing.Size(307, 324)
Me.MyDatagridview2.TabIndex = 64
'
'clmnAnhart
'
Me.clmnAnhart.HeaderText = "Art"
Me.clmnAnhart.Name = "clmnAnhart"
'
'clmnAnhReferenz
'
Me.clmnAnhReferenz.HeaderText = "Referenz"
Me.clmnAnhReferenz.Name = "clmnAnhReferenz"
'
'clmnAnhDatum
'
Me.clmnAnhDatum.HeaderText = "Datum"
Me.clmnAnhDatum.Name = "clmnAnhDatum"
' '
'MyDatagridview1 'MyDatagridview1
' '
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnOrigin, Me.clmnTarifnummer, Me.clmnWarenbeschreibung, Me.clmnPackstuecke, Me.clmnPkArt, Me.clmnRohmasse, Me.clmnEigenmasse, Me.clmnPreis, Me.clmnWaehrung}) Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnOrigin, Me.clmnTarifnummer, Me.clmnWarenbeschreibung, Me.clmnPackstuecke, Me.clmnPkArt, Me.clmnRohmasse, Me.clmnEigenmasse, Me.clmnPreis, Me.clmnWaehrung})
Me.MyDatagridview1.Location = New System.Drawing.Point(3, 634) Me.MyDatagridview1.Location = New System.Drawing.Point(3, 67)
Me.MyDatagridview1.Name = "MyDatagridview1" Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.Size = New System.Drawing.Size(609, 324) Me.MyDatagridview1.Size = New System.Drawing.Size(609, 324)
Me.MyDatagridview1.TabIndex = 62 Me.MyDatagridview1.TabIndex = 62
@@ -422,10 +294,158 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.clmnWaehrung.HeaderText = "Wärung" Me.clmnWaehrung.HeaderText = "Wärung"
Me.clmnWaehrung.Name = "clmnWaehrung" Me.clmnWaehrung.Name = "clmnWaehrung"
' '
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.White
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button1.ForeColor = System.Drawing.Color.Black
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button1.Location = New System.Drawing.Point(481, 30)
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(131, 24)
Me.Button1.TabIndex = 73
Me.Button1.Text = "nach Preis aufteilen"
Me.Button1.UseVisualStyleBackColor = False
'
'MyDatagridview2
'
Me.MyDatagridview2.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnAnhart, Me.clmnAnhReferenz, Me.clmnAnhDatum})
Me.MyDatagridview2.Location = New System.Drawing.Point(618, 67)
Me.MyDatagridview2.Name = "MyDatagridview2"
Me.MyDatagridview2.Size = New System.Drawing.Size(307, 161)
Me.MyDatagridview2.TabIndex = 64
'
'clmnAnhart
'
Me.clmnAnhart.HeaderText = "Art"
Me.clmnAnhart.Name = "clmnAnhart"
'
'clmnAnhReferenz
'
Me.clmnAnhReferenz.HeaderText = "Referenz"
Me.clmnAnhReferenz.Name = "clmnAnhReferenz"
'
'clmnAnhDatum
'
Me.clmnAnhDatum.HeaderText = "Datum"
Me.clmnAnhDatum.Name = "clmnAnhDatum"
'
'Label36
'
Me.Label36.ForeColor = System.Drawing.Color.Red
Me.Label36.Location = New System.Drawing.Point(243, 51)
Me.Label36.Name = "Label36"
Me.Label36.Size = New System.Drawing.Size(233, 13)
Me.Label36.TabIndex = 72
Me.Label36.Text = "Eigenmasse muss kleiner als Rohmasse sein!"
Me.Label36.Visible = False
'
'Label34
'
Me.Label34.AutoSize = True
Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label34.Location = New System.Drawing.Point(3, 51)
Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(70, 13)
Me.Label34.TabIndex = 65
Me.Label34.Text = "Positionen:"
'
'txtEigenmasse
'
Me.txtEigenmasse._DateTimeOnly = False
Me.txtEigenmasse._numbersOnly = True
Me.txtEigenmasse._numbersOnlyKommastellen = "2"
Me.txtEigenmasse._numbersOnlyTrennzeichen = True
Me.txtEigenmasse._Prozent = False
Me.txtEigenmasse._ShortDateNew = False
Me.txtEigenmasse._ShortDateOnly = False
Me.txtEigenmasse._TimeOnly = False
Me.txtEigenmasse._TimeOnly_Seconds = False
Me.txtEigenmasse._value = "0"
Me.txtEigenmasse._Waehrung = False
Me.txtEigenmasse._WaehrungZeichen = True
Me.txtEigenmasse.ForeColor = System.Drawing.Color.Red
Me.txtEigenmasse.Location = New System.Drawing.Point(243, 30)
Me.txtEigenmasse.MaxLength = 18
Me.txtEigenmasse.MaxLineLength = -1
Me.txtEigenmasse.MaxLines_Warning = ""
Me.txtEigenmasse.MaxLines_Warning_Label = Nothing
Me.txtEigenmasse.Name = "txtEigenmasse"
Me.txtEigenmasse.Size = New System.Drawing.Size(117, 20)
Me.txtEigenmasse.TabIndex = 70
Me.txtEigenmasse.Text = "0,00"
'
'Label35
'
Me.Label35.AutoSize = True
Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label35.Location = New System.Drawing.Point(615, 51)
Me.Label35.Name = "Label35"
Me.Label35.Size = New System.Drawing.Size(73, 13)
Me.Label35.TabIndex = 66
Me.Label35.Text = "Unterlagen:"
'
'txtRohmasse
'
Me.txtRohmasse._DateTimeOnly = False
Me.txtRohmasse._numbersOnly = True
Me.txtRohmasse._numbersOnlyKommastellen = "2"
Me.txtRohmasse._numbersOnlyTrennzeichen = True
Me.txtRohmasse._Prozent = False
Me.txtRohmasse._ShortDateNew = False
Me.txtRohmasse._ShortDateOnly = False
Me.txtRohmasse._TimeOnly = False
Me.txtRohmasse._TimeOnly_Seconds = False
Me.txtRohmasse._value = "0"
Me.txtRohmasse._Waehrung = False
Me.txtRohmasse._WaehrungZeichen = True
Me.txtRohmasse.ForeColor = System.Drawing.Color.Red
Me.txtRohmasse.Location = New System.Drawing.Point(359, 30)
Me.txtRohmasse.MaxLength = 18
Me.txtRohmasse.MaxLineLength = -1
Me.txtRohmasse.MaxLines_Warning = ""
Me.txtRohmasse.MaxLines_Warning_Label = Nothing
Me.txtRohmasse.Name = "txtRohmasse"
Me.txtRohmasse.Size = New System.Drawing.Size(117, 20)
Me.txtRohmasse.TabIndex = 71
Me.txtRohmasse.Text = "0,00"
'
'Label39
'
Me.Label39.Location = New System.Drawing.Point(129, 33)
Me.Label39.Name = "Label39"
Me.Label39.Size = New System.Drawing.Size(111, 13)
Me.Label39.TabIndex = 69
Me.Label39.Text = "Gewicht:"
Me.Label39.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label37
'
Me.Label37.AutoSize = True
Me.Label37.Location = New System.Drawing.Point(240, 14)
Me.Label37.Name = "Label37"
Me.Label37.Size = New System.Drawing.Size(67, 13)
Me.Label37.TabIndex = 67
Me.Label37.Text = "Eigenmasse:"
'
'Label38
'
Me.Label38.AutoSize = True
Me.Label38.Location = New System.Drawing.Point(356, 14)
Me.Label38.Name = "Label38"
Me.Label38.Size = New System.Drawing.Size(60, 13)
Me.Label38.TabIndex = 68
Me.Label38.Text = "Rohmasse:"
'
'Label33 'Label33
' '
Me.Label33.Enabled = False Me.Label33.Enabled = False
Me.Label33.Location = New System.Drawing.Point(835, 477) Me.Label33.Location = New System.Drawing.Point(835, 887)
Me.Label33.Name = "Label33" Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(68, 13) Me.Label33.Size = New System.Drawing.Size(68, 13)
Me.Label33.TabIndex = 61 Me.Label33.TabIndex = 61
@@ -447,7 +467,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtContainerNr3._WaehrungZeichen = True Me.txtContainerNr3._WaehrungZeichen = True
Me.txtContainerNr3.Enabled = False Me.txtContainerNr3.Enabled = False
Me.txtContainerNr3.ForeColor = System.Drawing.Color.Black Me.txtContainerNr3.ForeColor = System.Drawing.Color.Black
Me.txtContainerNr3.Location = New System.Drawing.Point(793, 260) Me.txtContainerNr3.Location = New System.Drawing.Point(793, 670)
Me.txtContainerNr3.MaxLength = 11 Me.txtContainerNr3.MaxLength = 11
Me.txtContainerNr3.MaxLineLength = -1 Me.txtContainerNr3.MaxLineLength = -1
Me.txtContainerNr3.MaxLines_Warning = "" Me.txtContainerNr3.MaxLines_Warning = ""
@@ -472,7 +492,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtContainerNr2._WaehrungZeichen = True Me.txtContainerNr2._WaehrungZeichen = True
Me.txtContainerNr2.Enabled = False Me.txtContainerNr2.Enabled = False
Me.txtContainerNr2.ForeColor = System.Drawing.Color.Black Me.txtContainerNr2.ForeColor = System.Drawing.Color.Black
Me.txtContainerNr2.Location = New System.Drawing.Point(793, 241) Me.txtContainerNr2.Location = New System.Drawing.Point(793, 651)
Me.txtContainerNr2.MaxLength = 11 Me.txtContainerNr2.MaxLength = 11
Me.txtContainerNr2.MaxLineLength = -1 Me.txtContainerNr2.MaxLineLength = -1
Me.txtContainerNr2.MaxLines_Warning = "" Me.txtContainerNr2.MaxLines_Warning = ""
@@ -497,7 +517,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtContainerNr1._WaehrungZeichen = True Me.txtContainerNr1._WaehrungZeichen = True
Me.txtContainerNr1.Enabled = False Me.txtContainerNr1.Enabled = False
Me.txtContainerNr1.ForeColor = System.Drawing.Color.Black Me.txtContainerNr1.ForeColor = System.Drawing.Color.Black
Me.txtContainerNr1.Location = New System.Drawing.Point(793, 222) Me.txtContainerNr1.Location = New System.Drawing.Point(793, 632)
Me.txtContainerNr1.MaxLength = 11 Me.txtContainerNr1.MaxLength = 11
Me.txtContainerNr1.MaxLineLength = -1 Me.txtContainerNr1.MaxLineLength = -1
Me.txtContainerNr1.MaxLines_Warning = "" Me.txtContainerNr1.MaxLines_Warning = ""
@@ -510,7 +530,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
' '
Me.Label32.Enabled = False Me.Label32.Enabled = False
Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label32.Location = New System.Drawing.Point(733, 225) Me.Label32.Location = New System.Drawing.Point(733, 635)
Me.Label32.Name = "Label32" Me.Label32.Name = "Label32"
Me.Label32.Size = New System.Drawing.Size(103, 13) Me.Label32.Size = New System.Drawing.Size(103, 13)
Me.Label32.TabIndex = 22 Me.Label32.TabIndex = 22
@@ -532,7 +552,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATBPk2._WaehrungZeichen = True Me.txtVP_ATBPk2._WaehrungZeichen = True
Me.txtVP_ATBPk2.Enabled = False Me.txtVP_ATBPk2.Enabled = False
Me.txtVP_ATBPk2.ForeColor = System.Drawing.Color.Black Me.txtVP_ATBPk2.ForeColor = System.Drawing.Color.Black
Me.txtVP_ATBPk2.Location = New System.Drawing.Point(550, 260) Me.txtVP_ATBPk2.Location = New System.Drawing.Point(550, 670)
Me.txtVP_ATBPk2.MaxLength = 5 Me.txtVP_ATBPk2.MaxLength = 5
Me.txtVP_ATBPk2.MaxLineLength = -1 Me.txtVP_ATBPk2.MaxLineLength = -1
Me.txtVP_ATBPk2.MaxLines_Warning = "" Me.txtVP_ATBPk2.MaxLines_Warning = ""
@@ -557,7 +577,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATBPk1._WaehrungZeichen = True Me.txtVP_ATBPk1._WaehrungZeichen = True
Me.txtVP_ATBPk1.Enabled = False Me.txtVP_ATBPk1.Enabled = False
Me.txtVP_ATBPk1.ForeColor = System.Drawing.Color.Black Me.txtVP_ATBPk1.ForeColor = System.Drawing.Color.Black
Me.txtVP_ATBPk1.Location = New System.Drawing.Point(550, 241) Me.txtVP_ATBPk1.Location = New System.Drawing.Point(550, 651)
Me.txtVP_ATBPk1.MaxLength = 5 Me.txtVP_ATBPk1.MaxLength = 5
Me.txtVP_ATBPk1.MaxLineLength = -1 Me.txtVP_ATBPk1.MaxLineLength = -1
Me.txtVP_ATBPk1.MaxLines_Warning = "" Me.txtVP_ATBPk1.MaxLines_Warning = ""
@@ -582,7 +602,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATBNr2._WaehrungZeichen = False Me.txtVP_ATBNr2._WaehrungZeichen = False
Me.txtVP_ATBNr2.Enabled = False Me.txtVP_ATBNr2.Enabled = False
Me.txtVP_ATBNr2.ForeColor = System.Drawing.Color.Black Me.txtVP_ATBNr2.ForeColor = System.Drawing.Color.Black
Me.txtVP_ATBNr2.Location = New System.Drawing.Point(495, 260) Me.txtVP_ATBNr2.Location = New System.Drawing.Point(495, 670)
Me.txtVP_ATBNr2.MaxLength = 4 Me.txtVP_ATBNr2.MaxLength = 4
Me.txtVP_ATBNr2.MaxLineLength = -1 Me.txtVP_ATBNr2.MaxLineLength = -1
Me.txtVP_ATBNr2.MaxLines_Warning = "" Me.txtVP_ATBNr2.MaxLines_Warning = ""
@@ -607,7 +627,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATBNr1._WaehrungZeichen = False Me.txtVP_ATBNr1._WaehrungZeichen = False
Me.txtVP_ATBNr1.Enabled = False Me.txtVP_ATBNr1.Enabled = False
Me.txtVP_ATBNr1.ForeColor = System.Drawing.Color.Black Me.txtVP_ATBNr1.ForeColor = System.Drawing.Color.Black
Me.txtVP_ATBNr1.Location = New System.Drawing.Point(495, 241) Me.txtVP_ATBNr1.Location = New System.Drawing.Point(495, 651)
Me.txtVP_ATBNr1.MaxLength = 4 Me.txtVP_ATBNr1.MaxLength = 4
Me.txtVP_ATBNr1.MaxLineLength = -1 Me.txtVP_ATBNr1.MaxLineLength = -1
Me.txtVP_ATBNr1.MaxLines_Warning = "" Me.txtVP_ATBNr1.MaxLines_Warning = ""
@@ -619,7 +639,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label15 'Label15
' '
Me.Label15.Enabled = False Me.Label15.Enabled = False
Me.Label15.Location = New System.Drawing.Point(250, 263) Me.Label15.Location = New System.Drawing.Point(250, 673)
Me.Label15.Name = "Label15" Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(103, 13) Me.Label15.Size = New System.Drawing.Size(103, 13)
Me.Label15.TabIndex = 28 Me.Label15.TabIndex = 28
@@ -642,7 +662,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATB2._WaehrungZeichen = False Me.txtVP_ATB2._WaehrungZeichen = False
Me.txtVP_ATB2.Enabled = False Me.txtVP_ATB2.Enabled = False
Me.txtVP_ATB2.ForeColor = System.Drawing.Color.Black Me.txtVP_ATB2.ForeColor = System.Drawing.Color.Black
Me.txtVP_ATB2.Location = New System.Drawing.Point(359, 260) Me.txtVP_ATB2.Location = New System.Drawing.Point(359, 670)
Me.txtVP_ATB2.MaxLength = 21 Me.txtVP_ATB2.MaxLength = 21
Me.txtVP_ATB2.MaxLineLength = -1 Me.txtVP_ATB2.MaxLineLength = -1
Me.txtVP_ATB2.MaxLines_Warning = "" Me.txtVP_ATB2.MaxLines_Warning = ""
@@ -654,7 +674,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label19 'Label19
' '
Me.Label19.Enabled = False Me.Label19.Enabled = False
Me.Label19.Location = New System.Drawing.Point(250, 244) Me.Label19.Location = New System.Drawing.Point(250, 654)
Me.Label19.Name = "Label19" Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(103, 13) Me.Label19.Size = New System.Drawing.Size(103, 13)
Me.Label19.TabIndex = 23 Me.Label19.TabIndex = 23
@@ -677,7 +697,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATB1._WaehrungZeichen = False Me.txtVP_ATB1._WaehrungZeichen = False
Me.txtVP_ATB1.Enabled = False Me.txtVP_ATB1.Enabled = False
Me.txtVP_ATB1.ForeColor = System.Drawing.Color.Black Me.txtVP_ATB1.ForeColor = System.Drawing.Color.Black
Me.txtVP_ATB1.Location = New System.Drawing.Point(359, 241) Me.txtVP_ATB1.Location = New System.Drawing.Point(359, 651)
Me.txtVP_ATB1.MaxLength = 21 Me.txtVP_ATB1.MaxLength = 21
Me.txtVP_ATB1.MaxLineLength = -1 Me.txtVP_ATB1.MaxLineLength = -1
Me.txtVP_ATB1.MaxLines_Warning = "" Me.txtVP_ATB1.MaxLines_Warning = ""
@@ -702,7 +722,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVPReferenz._WaehrungZeichen = True Me.txtVPReferenz._WaehrungZeichen = True
Me.txtVPReferenz.Enabled = False Me.txtVPReferenz.Enabled = False
Me.txtVPReferenz.ForeColor = System.Drawing.Color.Black Me.txtVPReferenz.ForeColor = System.Drawing.Color.Black
Me.txtVPReferenz.Location = New System.Drawing.Point(417, 222) Me.txtVPReferenz.Location = New System.Drawing.Point(417, 632)
Me.txtVPReferenz.MaxLength = 28 Me.txtVPReferenz.MaxLength = 28
Me.txtVPReferenz.MaxLineLength = -1 Me.txtVPReferenz.MaxLineLength = -1
Me.txtVPReferenz.MaxLines_Warning = "" Me.txtVPReferenz.MaxLines_Warning = ""
@@ -719,7 +739,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboVPArt.DropDownWidth = 350 Me.cboVPArt.DropDownWidth = 350
Me.cboVPArt.Enabled = False Me.cboVPArt.Enabled = False
Me.cboVPArt.FormattingEnabled = True Me.cboVPArt.FormattingEnabled = True
Me.cboVPArt.Location = New System.Drawing.Point(359, 222) Me.cboVPArt.Location = New System.Drawing.Point(359, 632)
Me.cboVPArt.Name = "cboVPArt" Me.cboVPArt.Name = "cboVPArt"
Me.cboVPArt.Size = New System.Drawing.Size(59, 21) Me.cboVPArt.Size = New System.Drawing.Size(59, 21)
Me.cboVPArt.TabIndex = 20 Me.cboVPArt.TabIndex = 20
@@ -728,7 +748,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
' '
Me.Label22.Enabled = False Me.Label22.Enabled = False
Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label22.Location = New System.Drawing.Point(250, 225) Me.Label22.Location = New System.Drawing.Point(250, 635)
Me.Label22.Name = "Label22" Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(103, 13) Me.Label22.Size = New System.Drawing.Size(103, 13)
Me.Label22.TabIndex = 19 Me.Label22.TabIndex = 19
@@ -751,7 +771,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtGesRohmasse._WaehrungZeichen = True Me.txtGesRohmasse._WaehrungZeichen = True
Me.txtGesRohmasse.Enabled = False Me.txtGesRohmasse.Enabled = False
Me.txtGesRohmasse.ForeColor = System.Drawing.Color.Black Me.txtGesRohmasse.ForeColor = System.Drawing.Color.Black
Me.txtGesRohmasse.Location = New System.Drawing.Point(694, 474) Me.txtGesRohmasse.Location = New System.Drawing.Point(694, 884)
Me.txtGesRohmasse.MaxLength = 18 Me.txtGesRohmasse.MaxLength = 18
Me.txtGesRohmasse.MaxLineLength = -1 Me.txtGesRohmasse.MaxLineLength = -1
Me.txtGesRohmasse.MaxLines_Warning = "" Me.txtGesRohmasse.MaxLines_Warning = ""
@@ -765,7 +785,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label29 'Label29
' '
Me.Label29.Enabled = False Me.Label29.Enabled = False
Me.Label29.Location = New System.Drawing.Point(580, 477) Me.Label29.Location = New System.Drawing.Point(580, 887)
Me.Label29.Name = "Label29" Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(111, 13) Me.Label29.Size = New System.Drawing.Size(111, 13)
Me.Label29.TabIndex = 53 Me.Label29.TabIndex = 53
@@ -837,7 +857,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.sbBestimmungsBundesland._value = "" Me.sbBestimmungsBundesland._value = ""
Me.sbBestimmungsBundesland.Enabled = False Me.sbBestimmungsBundesland.Enabled = False
Me.sbBestimmungsBundesland.FormattingEnabled = True Me.sbBestimmungsBundesland.FormattingEnabled = True
Me.sbBestimmungsBundesland.Location = New System.Drawing.Point(694, 358) Me.sbBestimmungsBundesland.Location = New System.Drawing.Point(694, 768)
Me.sbBestimmungsBundesland.Name = "sbBestimmungsBundesland" Me.sbBestimmungsBundesland.Name = "sbBestimmungsBundesland"
Me.sbBestimmungsBundesland.Size = New System.Drawing.Size(214, 21) Me.sbBestimmungsBundesland.Size = New System.Drawing.Size(214, 21)
Me.sbBestimmungsBundesland.TabIndex = 45 Me.sbBestimmungsBundesland.TabIndex = 45
@@ -929,14 +949,14 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboGeschaeftsArt.DropDownWidth = 350 Me.cboGeschaeftsArt.DropDownWidth = 350
Me.cboGeschaeftsArt.Enabled = False Me.cboGeschaeftsArt.Enabled = False
Me.cboGeschaeftsArt.FormattingEnabled = True Me.cboGeschaeftsArt.FormattingEnabled = True
Me.cboGeschaeftsArt.Location = New System.Drawing.Point(145, 493) Me.cboGeschaeftsArt.Location = New System.Drawing.Point(145, 903)
Me.cboGeschaeftsArt.Name = "cboGeschaeftsArt" Me.cboGeschaeftsArt.Name = "cboGeschaeftsArt"
Me.cboGeschaeftsArt.Size = New System.Drawing.Size(214, 21) Me.cboGeschaeftsArt.Size = New System.Drawing.Size(214, 21)
Me.cboGeschaeftsArt.TabIndex = 56 Me.cboGeschaeftsArt.TabIndex = 56
' '
'Label28 'Label28
' '
Me.Label28.Location = New System.Drawing.Point(7, 303) Me.Label28.Location = New System.Drawing.Point(7, 713)
Me.Label28.Name = "Label28" Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(135, 13) Me.Label28.Size = New System.Drawing.Size(135, 13)
Me.Label28.TabIndex = 36 Me.Label28.TabIndex = 36
@@ -958,7 +978,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.sbAdrZollstelle.INVISIBLE_COLUMNS = Nothing Me.sbAdrZollstelle.INVISIBLE_COLUMNS = Nothing
Me.sbAdrZollstelle.key_visible = False Me.sbAdrZollstelle.key_visible = False
Me.sbAdrZollstelle.KEYPARAM = Nothing Me.sbAdrZollstelle.KEYPARAM = Nothing
Me.sbAdrZollstelle.Location = New System.Drawing.Point(145, 300) Me.sbAdrZollstelle.Location = New System.Drawing.Point(145, 710)
Me.sbAdrZollstelle.Name = "sbAdrZollstelle" Me.sbAdrZollstelle.Name = "sbAdrZollstelle"
Me.sbAdrZollstelle.searchActive = True Me.sbAdrZollstelle.searchActive = True
Me.sbAdrZollstelle.Size = New System.Drawing.Size(214, 20) Me.sbAdrZollstelle.Size = New System.Drawing.Size(214, 20)
@@ -972,7 +992,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label26 'Label26
' '
Me.Label26.Enabled = False Me.Label26.Enabled = False
Me.Label26.Location = New System.Drawing.Point(-25, 477) Me.Label26.Location = New System.Drawing.Point(-25, 887)
Me.Label26.Name = "Label26" Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(167, 13) Me.Label26.Size = New System.Drawing.Size(167, 13)
Me.Label26.TabIndex = 51 Me.Label26.TabIndex = 51
@@ -982,7 +1002,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label27 'Label27
' '
Me.Label27.Enabled = False Me.Label27.Enabled = False
Me.Label27.Location = New System.Drawing.Point(7, 496) Me.Label27.Location = New System.Drawing.Point(7, 906)
Me.Label27.Name = "Label27" Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(135, 13) Me.Label27.Size = New System.Drawing.Size(135, 13)
Me.Label27.TabIndex = 55 Me.Label27.TabIndex = 55
@@ -1005,7 +1025,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtWarenort._WaehrungZeichen = True Me.txtWarenort._WaehrungZeichen = True
Me.txtWarenort.Enabled = False Me.txtWarenort.Enabled = False
Me.txtWarenort.ForeColor = System.Drawing.Color.Black Me.txtWarenort.ForeColor = System.Drawing.Color.Black
Me.txtWarenort.Location = New System.Drawing.Point(145, 387) Me.txtWarenort.Location = New System.Drawing.Point(145, 797)
Me.txtWarenort.MaxLength = 17 Me.txtWarenort.MaxLength = 17
Me.txtWarenort.MaxLineLength = -1 Me.txtWarenort.MaxLineLength = -1
Me.txtWarenort.MaxLines_Warning = "" Me.txtWarenort.MaxLines_Warning = ""
@@ -1022,7 +1042,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboZahlungsweise.DropDownWidth = 350 Me.cboZahlungsweise.DropDownWidth = 350
Me.cboZahlungsweise.Enabled = False Me.cboZahlungsweise.Enabled = False
Me.cboZahlungsweise.FormattingEnabled = True Me.cboZahlungsweise.FormattingEnabled = True
Me.cboZahlungsweise.Location = New System.Drawing.Point(145, 474) Me.cboZahlungsweise.Location = New System.Drawing.Point(145, 884)
Me.cboZahlungsweise.Name = "cboZahlungsweise" Me.cboZahlungsweise.Name = "cboZahlungsweise"
Me.cboZahlungsweise.Size = New System.Drawing.Size(214, 21) Me.cboZahlungsweise.Size = New System.Drawing.Size(214, 21)
Me.cboZahlungsweise.TabIndex = 52 Me.cboZahlungsweise.TabIndex = 52
@@ -1052,7 +1072,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label17 'Label17
' '
Me.Label17.Enabled = False Me.Label17.Enabled = False
Me.Label17.Location = New System.Drawing.Point(7, 428) Me.Label17.Location = New System.Drawing.Point(7, 838)
Me.Label17.Name = "Label17" Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(135, 13) Me.Label17.Size = New System.Drawing.Size(135, 13)
Me.Label17.TabIndex = 49 Me.Label17.TabIndex = 49
@@ -1067,7 +1087,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboVerkehrszweigInland.DropDownWidth = 350 Me.cboVerkehrszweigInland.DropDownWidth = 350
Me.cboVerkehrszweigInland.Enabled = False Me.cboVerkehrszweigInland.Enabled = False
Me.cboVerkehrszweigInland.FormattingEnabled = True Me.cboVerkehrszweigInland.FormattingEnabled = True
Me.cboVerkehrszweigInland.Location = New System.Drawing.Point(145, 425) Me.cboVerkehrszweigInland.Location = New System.Drawing.Point(145, 835)
Me.cboVerkehrszweigInland.Name = "cboVerkehrszweigInland" Me.cboVerkehrszweigInland.Name = "cboVerkehrszweigInland"
Me.cboVerkehrszweigInland.Size = New System.Drawing.Size(140, 21) Me.cboVerkehrszweigInland.Size = New System.Drawing.Size(140, 21)
Me.cboVerkehrszweigInland.TabIndex = 50 Me.cboVerkehrszweigInland.TabIndex = 50
@@ -1075,7 +1095,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label16 'Label16
' '
Me.Label16.Enabled = False Me.Label16.Enabled = False
Me.Label16.Location = New System.Drawing.Point(7, 390) Me.Label16.Location = New System.Drawing.Point(7, 800)
Me.Label16.Name = "Label16" Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(135, 13) Me.Label16.Size = New System.Drawing.Size(135, 13)
Me.Label16.TabIndex = 46 Me.Label16.TabIndex = 46
@@ -1086,7 +1106,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
' '
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(399, 328) Me.pic.Location = New System.Drawing.Point(399, 738)
Me.pic.Name = "pic" Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(154, 50) Me.pic.Size = New System.Drawing.Size(154, 50)
Me.pic.TabIndex = 47 Me.pic.TabIndex = 47
@@ -1161,7 +1181,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.sbBestimmungsland.INVISIBLE_COLUMNS = Nothing Me.sbBestimmungsland.INVISIBLE_COLUMNS = Nothing
Me.sbBestimmungsland.key_visible = False Me.sbBestimmungsland.key_visible = False
Me.sbBestimmungsland.KEYPARAM = Nothing Me.sbBestimmungsland.KEYPARAM = Nothing
Me.sbBestimmungsland.Location = New System.Drawing.Point(694, 339) Me.sbBestimmungsland.Location = New System.Drawing.Point(694, 749)
Me.sbBestimmungsland.Name = "sbBestimmungsland" Me.sbBestimmungsland.Name = "sbBestimmungsland"
Me.sbBestimmungsland.searchActive = True Me.sbBestimmungsland.searchActive = True
Me.sbBestimmungsland.Size = New System.Drawing.Size(214, 20) Me.sbBestimmungsland.Size = New System.Drawing.Size(214, 20)
@@ -1174,7 +1194,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
' '
'Label11 'Label11
' '
Me.Label11.Location = New System.Drawing.Point(575, 342) Me.Label11.Location = New System.Drawing.Point(575, 752)
Me.Label11.Name = "Label11" Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(116, 13) Me.Label11.Size = New System.Drawing.Size(116, 13)
Me.Label11.TabIndex = 42 Me.Label11.TabIndex = 42
@@ -1183,7 +1203,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
' '
'Label12 'Label12
' '
Me.Label12.Location = New System.Drawing.Point(7, 341) Me.Label12.Location = New System.Drawing.Point(7, 751)
Me.Label12.Name = "Label12" Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(135, 13) Me.Label12.Size = New System.Drawing.Size(135, 13)
Me.Label12.TabIndex = 40 Me.Label12.TabIndex = 40
@@ -1205,7 +1225,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.sbVersendungsLand.INVISIBLE_COLUMNS = Nothing Me.sbVersendungsLand.INVISIBLE_COLUMNS = Nothing
Me.sbVersendungsLand.key_visible = False Me.sbVersendungsLand.key_visible = False
Me.sbVersendungsLand.KEYPARAM = Nothing Me.sbVersendungsLand.KEYPARAM = Nothing
Me.sbVersendungsLand.Location = New System.Drawing.Point(145, 338) Me.sbVersendungsLand.Location = New System.Drawing.Point(145, 748)
Me.sbVersendungsLand.Name = "sbVersendungsLand" Me.sbVersendungsLand.Name = "sbVersendungsLand"
Me.sbVersendungsLand.searchActive = True Me.sbVersendungsLand.searchActive = True
Me.sbVersendungsLand.Size = New System.Drawing.Size(214, 20) Me.sbVersendungsLand.Size = New System.Drawing.Size(214, 20)
@@ -1218,7 +1238,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
' '
'Label9 'Label9
' '
Me.Label9.Location = New System.Drawing.Point(556, 303) Me.Label9.Location = New System.Drawing.Point(556, 713)
Me.Label9.Name = "Label9" Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(135, 13) Me.Label9.Size = New System.Drawing.Size(135, 13)
Me.Label9.TabIndex = 38 Me.Label9.TabIndex = 38
@@ -1240,7 +1260,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.sbEingangZollstelleID.INVISIBLE_COLUMNS = Nothing Me.sbEingangZollstelleID.INVISIBLE_COLUMNS = Nothing
Me.sbEingangZollstelleID.key_visible = False Me.sbEingangZollstelleID.key_visible = False
Me.sbEingangZollstelleID.KEYPARAM = Nothing Me.sbEingangZollstelleID.KEYPARAM = Nothing
Me.sbEingangZollstelleID.Location = New System.Drawing.Point(694, 300) Me.sbEingangZollstelleID.Location = New System.Drawing.Point(694, 710)
Me.sbEingangZollstelleID.Name = "sbEingangZollstelleID" Me.sbEingangZollstelleID.Name = "sbEingangZollstelleID"
Me.sbEingangZollstelleID.searchActive = True Me.sbEingangZollstelleID.searchActive = True
Me.sbEingangZollstelleID.Size = New System.Drawing.Size(214, 20) Me.sbEingangZollstelleID.Size = New System.Drawing.Size(214, 20)
@@ -1276,9 +1296,9 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.Panel1.Controls.Add(Me.cboArtGrenzUeberschreitung) Me.Panel1.Controls.Add(Me.cboArtGrenzUeberschreitung)
Me.Panel1.Controls.Add(Me.Label23) Me.Panel1.Controls.Add(Me.Label23)
Me.Panel1.Enabled = False Me.Panel1.Enabled = False
Me.Panel1.Location = New System.Drawing.Point(3, 406) Me.Panel1.Location = New System.Drawing.Point(3, 816)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(930, 21) Me.Panel1.Size = New System.Drawing.Size(933, 21)
Me.Panel1.TabIndex = 48 Me.Panel1.TabIndex = 48
' '
'txtKennzeichenInland 'txtKennzeichenInland
@@ -1414,9 +1434,9 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.Panel2.Controls.Add(Me.Label24) Me.Panel2.Controls.Add(Me.Label24)
Me.Panel2.Controls.Add(Me.Label30) Me.Panel2.Controls.Add(Me.Label30)
Me.Panel2.Enabled = False Me.Panel2.Enabled = False
Me.Panel2.Location = New System.Drawing.Point(0, 520) Me.Panel2.Location = New System.Drawing.Point(0, 930)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(930, 41) Me.Panel2.Size = New System.Drawing.Size(933, 41)
Me.Panel2.TabIndex = 60 Me.Panel2.TabIndex = 60
' '
'cboLieferbedingungSchluessel 'cboLieferbedingungSchluessel
@@ -1544,7 +1564,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtRechnungspreisWaehrung.INVISIBLE_COLUMNS = Nothing Me.txtRechnungspreisWaehrung.INVISIBLE_COLUMNS = Nothing
Me.txtRechnungspreisWaehrung.key_visible = False Me.txtRechnungspreisWaehrung.key_visible = False
Me.txtRechnungspreisWaehrung.KEYPARAM = Nothing Me.txtRechnungspreisWaehrung.KEYPARAM = Nothing
Me.txtRechnungspreisWaehrung.Location = New System.Drawing.Point(833, 493) Me.txtRechnungspreisWaehrung.Location = New System.Drawing.Point(833, 903)
Me.txtRechnungspreisWaehrung.Name = "txtRechnungspreisWaehrung" Me.txtRechnungspreisWaehrung.Name = "txtRechnungspreisWaehrung"
Me.txtRechnungspreisWaehrung.searchActive = True Me.txtRechnungspreisWaehrung.searchActive = True
Me.txtRechnungspreisWaehrung.Size = New System.Drawing.Size(75, 20) Me.txtRechnungspreisWaehrung.Size = New System.Drawing.Size(75, 20)
@@ -1571,7 +1591,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtRechnungspreis._WaehrungZeichen = True Me.txtRechnungspreis._WaehrungZeichen = True
Me.txtRechnungspreis.Enabled = False Me.txtRechnungspreis.Enabled = False
Me.txtRechnungspreis.ForeColor = System.Drawing.Color.Black Me.txtRechnungspreis.ForeColor = System.Drawing.Color.Black
Me.txtRechnungspreis.Location = New System.Drawing.Point(694, 493) Me.txtRechnungspreis.Location = New System.Drawing.Point(694, 903)
Me.txtRechnungspreis.MaxLength = 70 Me.txtRechnungspreis.MaxLength = 70
Me.txtRechnungspreis.MaxLineLength = -1 Me.txtRechnungspreis.MaxLineLength = -1
Me.txtRechnungspreis.MaxLines_Warning = "" Me.txtRechnungspreis.MaxLines_Warning = ""
@@ -1584,7 +1604,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label21 'Label21
' '
Me.Label21.Enabled = False Me.Label21.Enabled = False
Me.Label21.Location = New System.Drawing.Point(556, 496) Me.Label21.Location = New System.Drawing.Point(556, 906)
Me.Label21.Name = "Label21" Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(135, 13) Me.Label21.Size = New System.Drawing.Size(135, 13)
Me.Label21.TabIndex = 57 Me.Label21.TabIndex = 57
@@ -1593,7 +1613,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
' '
'Label10 'Label10
' '
Me.Label10.Location = New System.Drawing.Point(533, 361) Me.Label10.Location = New System.Drawing.Point(533, 771)
Me.Label10.Name = "Label10" Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(158, 13) Me.Label10.Size = New System.Drawing.Size(158, 13)
Me.Label10.TabIndex = 44 Me.Label10.TabIndex = 44
@@ -1603,7 +1623,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label31 'Label31
' '
Me.Label31.Enabled = False Me.Label31.Enabled = False
Me.Label31.Location = New System.Drawing.Point(611, 263) Me.Label31.Location = New System.Drawing.Point(611, 673)
Me.Label31.Name = "Label31" Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(103, 13) Me.Label31.Size = New System.Drawing.Size(103, 13)
Me.Label31.TabIndex = 32 Me.Label31.TabIndex = 32
@@ -1612,12 +1632,88 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label25 'Label25
' '
Me.Label25.Enabled = False Me.Label25.Enabled = False
Me.Label25.Location = New System.Drawing.Point(611, 244) Me.Label25.Location = New System.Drawing.Point(611, 654)
Me.Label25.Name = "Label25" Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(103, 13) Me.Label25.Size = New System.Drawing.Size(103, 13)
Me.Label25.TabIndex = 27 Me.Label25.TabIndex = 27
Me.Label25.Text = "Pk." Me.Label25.Text = "Pk."
' '
'Label40
'
Me.Label40.Location = New System.Drawing.Point(618, 262)
Me.Label40.Name = "Label40"
Me.Label40.Size = New System.Drawing.Size(116, 13)
Me.Label40.TabIndex = 74
Me.Label40.Text = "Präferenz:"
'
'Label41
'
Me.Label41.Location = New System.Drawing.Point(618, 287)
Me.Label41.Name = "Label41"
Me.Label41.Size = New System.Drawing.Size(116, 13)
Me.Label41.TabIndex = 76
Me.Label41.Text = "Verfahrenscode:"
'
'Label42
'
Me.Label42.AutoSize = True
Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label42.Location = New System.Drawing.Point(618, 240)
Me.Label42.Name = "Label42"
Me.Label42.Size = New System.Drawing.Size(169, 13)
Me.Label42.TabIndex = 78
Me.Label42.Text = "Auf jede Position anwenden:"
'
'txtPosPraeferenz
'
Me.txtPosPraeferenz._DateTimeOnly = False
Me.txtPosPraeferenz._numbersOnly = True
Me.txtPosPraeferenz._numbersOnlyKommastellen = ""
Me.txtPosPraeferenz._numbersOnlyTrennzeichen = False
Me.txtPosPraeferenz._Prozent = False
Me.txtPosPraeferenz._ShortDateNew = False
Me.txtPosPraeferenz._ShortDateOnly = False
Me.txtPosPraeferenz._TimeOnly = False
Me.txtPosPraeferenz._TimeOnly_Seconds = False
Me.txtPosPraeferenz._value = Nothing
Me.txtPosPraeferenz._Waehrung = False
Me.txtPosPraeferenz._WaehrungZeichen = False
Me.txtPosPraeferenz.Enabled = False
Me.txtPosPraeferenz.ForeColor = System.Drawing.Color.Black
Me.txtPosPraeferenz.Location = New System.Drawing.Point(719, 259)
Me.txtPosPraeferenz.MaxLength = 3
Me.txtPosPraeferenz.MaxLineLength = -1
Me.txtPosPraeferenz.MaxLines_Warning = ""
Me.txtPosPraeferenz.MaxLines_Warning_Label = Nothing
Me.txtPosPraeferenz.Name = "txtPosPraeferenz"
Me.txtPosPraeferenz.Size = New System.Drawing.Size(137, 20)
Me.txtPosPraeferenz.TabIndex = 79
'
'txtPosVerfahrenscode
'
Me.txtPosVerfahrenscode._DateTimeOnly = False
Me.txtPosVerfahrenscode._numbersOnly = True
Me.txtPosVerfahrenscode._numbersOnlyKommastellen = ""
Me.txtPosVerfahrenscode._numbersOnlyTrennzeichen = False
Me.txtPosVerfahrenscode._Prozent = False
Me.txtPosVerfahrenscode._ShortDateNew = False
Me.txtPosVerfahrenscode._ShortDateOnly = False
Me.txtPosVerfahrenscode._TimeOnly = False
Me.txtPosVerfahrenscode._TimeOnly_Seconds = False
Me.txtPosVerfahrenscode._value = Nothing
Me.txtPosVerfahrenscode._Waehrung = False
Me.txtPosVerfahrenscode._WaehrungZeichen = False
Me.txtPosVerfahrenscode.Enabled = False
Me.txtPosVerfahrenscode.ForeColor = System.Drawing.Color.Black
Me.txtPosVerfahrenscode.Location = New System.Drawing.Point(719, 284)
Me.txtPosVerfahrenscode.MaxLength = 4
Me.txtPosVerfahrenscode.MaxLineLength = -1
Me.txtPosVerfahrenscode.MaxLines_Warning = ""
Me.txtPosVerfahrenscode.MaxLines_Warning_Label = Nothing
Me.txtPosVerfahrenscode.Name = "txtPosVerfahrenscode"
Me.txtPosVerfahrenscode.Size = New System.Drawing.Size(137, 20)
Me.txtPosVerfahrenscode.TabIndex = 80
'
'usrCntlTCeZOLL_EZA_Allg 'usrCntlTCeZOLL_EZA_Allg
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1628,8 +1724,10 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.Size = New System.Drawing.Size(930, 979) Me.Size = New System.Drawing.Size(930, 979)
Me.pnl.ResumeLayout(False) Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout() Me.pnl.PerformLayout()
CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
@@ -1743,4 +1841,10 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Friend WithEvents Label37 As Label Friend WithEvents Label37 As Label
Friend WithEvents Label38 As Label Friend WithEvents Label38 As Label
Friend WithEvents Label39 As Label Friend WithEvents Label39 As Label
Friend WithEvents Panel3 As Panel
Friend WithEvents txtPosVerfahrenscode As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtPosPraeferenz As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label42 As Label
Friend WithEvents Label41 As Label
Friend WithEvents Label40 As Label
End Class End Class

18
SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.resx
View File

@@ -117,15 +117,6 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="clmnAnhart.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAnhReferenz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAnhDatum.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnOrigin.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="clmnOrigin.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
@@ -189,4 +180,13 @@
<metadata name="clmnWaehrung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="clmnWaehrung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<metadata name="clmnAnhart.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAnhReferenz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAnhDatum.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root> </root>

12
SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.vb
View File

@@ -399,6 +399,10 @@ Public Class usrCntlTCeZOLL_EZA_Allg
PACK.Pack_Nr = row.Cells("clmnPackstuecke").Value PACK.Pack_Nr = row.Cells("clmnPackstuecke").Value
POS.PACKSTUECKE.Add(PACK) POS.PACKSTUECKE.Add(PACK)
POS.Item_Pref = If(txtPosPraeferenz._value <> "", txtPosPraeferenz._value, Nothing)
POS.Item_ProcCd = If(txtPosVerfahrenscode._value <> "", txtPosVerfahrenscode._value, Nothing)
POS.DOC_CERTS.Clear() POS.DOC_CERTS.Clear()
For Each rowDoc As DataGridViewRow In MyDatagridview2.Rows For Each rowDoc As DataGridViewRow In MyDatagridview2.Rows
If rowDoc.Index - 1 = MyDatagridview2.Rows.Count - 1 Then Exit For If rowDoc.Index - 1 = MyDatagridview2.Rows.Count - 1 Then Exit For
@@ -422,7 +426,13 @@ Public Class usrCntlTCeZOLL_EZA_Allg
MyDatagridview1.Rows.Clear() MyDatagridview1.Rows.Clear()
For Each POS In TEL_ANM.POSITIONSDATEN For Each POS In TEL_ANM.POSITIONSDATEN
MyDatagridview1.Rows.Add({POS.Item_Orig, POS.Item_ComCd, POS.Item_GdsDes, "", "", "", "", POS.Item_ItVal, "EUR"}) Dim Pk_Nr = ""
Dim Pk_Kind = "PK"
If POS.PACKSTUECKE IsNot Nothing AndAlso POS.PACKSTUECKE.Count > 0 Then
Pk_Nr = If(POS.PACKSTUECKE(0).Pack_Nr, "")
Pk_Kind = If(POS.PACKSTUECKE(0).Pack_Kind, "")
End If
MyDatagridview1.Rows.Add({POS.Item_Orig, POS.Item_ComCd, POS.Item_GdsDes, Pk_Nr, Pk_Kind, "", "", POS.Item_ItVal, "EUR"})
Next Next
End Sub End Sub