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:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.2.9")>
<Assembly: AssemblyFileVersion("1.3.2.9")>
<Assembly: AssemblyVersion("1.3.3.0")>
<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_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)
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.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblUpload = New System.Windows.Forms.Label()
Me.txtDyMandant = New System.Windows.Forms.Label()
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
Me.MenuStrip = New System.Windows.Forms.MenuStrip()
@@ -55,7 +56,7 @@ Partial Class usrCntlTCeZOLL_EZA
Me.DynamicAutomotiveXLSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = 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()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.SuspendLayout()
@@ -382,6 +383,16 @@ Partial Class usrCntlTCeZOLL_EZA
Me.Panel1.Size = New System.Drawing.Size(934, 25)
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
'
Me.txtDyMandant.BackColor = System.Drawing.Color.White
@@ -432,7 +443,7 @@ Partial Class usrCntlTCeZOLL_EZA
'
'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.Size = New System.Drawing.Size(87, 20)
Me.DateiimportToolStripMenuItem.Text = "Datei-Import"
@@ -440,8 +451,8 @@ Partial Class usrCntlTCeZOLL_EZA
'DynamicAutomotiveXLSToolStripMenuItem
'
Me.DynamicAutomotiveXLSToolStripMenuItem.Name = "DynamicAutomotiveXLSToolStripMenuItem"
Me.DynamicAutomotiveXLSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DynamicAutomotiveXLSToolStripMenuItem.Text = "Trendyol (XLSX)"
Me.DynamicAutomotiveXLSToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.DynamicAutomotiveXLSToolStripMenuItem.Text = "Trendyol TNR (XLSX)"
'
'ToolStripMenuItem1
'
@@ -456,15 +467,11 @@ Partial Class usrCntlTCeZOLL_EZA
Me.EZAIDToolStripMenuItem.Size = New System.Drawing.Size(109, 22)
Me.EZAIDToolStripMenuItem.Text = "EZA ID"
'
'lblUpload
'ToolStripMenuItem2
'
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
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(181, 22)
Me.ToolStripMenuItem2.Text = "Trendyol (XLSX)"
'
'usrCntlTCeZOLL_EZA
'
@@ -522,4 +529,5 @@ Partial Class usrCntlTCeZOLL_EZA
Friend WithEvents DateiimportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DynamicAutomotiveXLSToolStripMenuItem As ToolStripMenuItem
Friend WithEvents lblUpload As Label
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
End Class

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

@@ -628,7 +628,7 @@ Public Class usrCntlTCeZOLL_EZA
End Sub
Private Function importExcel_trendyol() As Boolean
Private Function importExcel_trendyol(splitTNR) As Boolean
lblUpload.Text = "Excel öffnen..."
lblUpload.Visible = True
@@ -684,10 +684,6 @@ Public Class usrCntlTCeZOLL_EZA
MsgBox(startRows)
' Inhalt durchlaufen
@@ -717,8 +713,13 @@ Public Class usrCntlTCeZOLL_EZA
'myArray(i_soll2 - startRows + 1, 4)
lblUpload.Text = "Aggregieren..."
' Dim DT = aggregierenTrendxol(myArray) '--> !!BEschreibung!! , TNR, Orig, Curr
Dim DT = aggregierenTrendxolTNR(myArray) '--> TNR, Orig, Curr
Dim DT As DataTable = Nothing
If splitTNR Then
DT = aggregierenTrendxolTNR(myArray) '--> TNR, Orig, Curr
Else
aggregierenTrendxol(myArray) '--> !!BEschreibung!! , TNR, Orig, Curr
End If
Dim cnt = 0
@@ -759,8 +760,6 @@ Public Class usrCntlTCeZOLL_EZA
TC_ANM.POSITIONSDATEN.Add(POSITION)
cnt += 1
Next
@@ -921,7 +920,6 @@ Public Class usrCntlTCeZOLL_EZA
For Each grp In amountGrpByDates
'Dim row As New DataRow
'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})
Next
@@ -1028,7 +1026,7 @@ Public Class usrCntlTCeZOLL_EZA
Select New With {
Key .Params = groupKeys,
.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"))}
' .SumQTY = Group.Sum(Function(x) x.Field(Of Integer)("I"))}
'row.Field(Of String)("D") & ", " & row.Field(Of String)("F")
@@ -1040,6 +1038,7 @@ Public Class usrCntlTCeZOLL_EZA
For Each grp In amountGrpByDates
'Dim row As New DataRow
'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})
Next
@@ -1157,8 +1156,14 @@ Public Class usrCntlTCeZOLL_EZA
End If
End Sub
Private Sub DynamicAutomotiveXLSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DynamicAutomotiveXLSToolStripMenuItem.Click
importExcel_trendyol()
Private Sub DynamicAutomotiveXLSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DynamicAutomotiveXLSToolStripMenuItem.Click, ToolStripMenuItem2.Click
If sender Is DynamicAutomotiveXLSToolStripMenuItem Then
importExcel_trendyol(True)
Else
importExcel_trendyol(False)
End If
End Sub
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()
Me.components = New System.ComponentModel.Container()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
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.Panel3 = New System.Windows.Forms.Panel()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.clmnOrigin = 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.clmnPreis = 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.txtContainerNr3 = 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.Label31 = 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()
CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel3.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -139,17 +146,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'pnl
'
Me.pnl.AutoScroll = True
Me.pnl.Controls.Add(Me.Button1)
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.Panel3)
Me.pnl.Controls.Add(Me.Label33)
Me.pnl.Controls.Add(Me.txtContainerNr3)
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.TabIndex = 0
'
'Button1
'Panel3
'
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, 597)
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
'
'Label36
'
Me.Label36.ForeColor = System.Drawing.Color.Red
Me.Label36.Location = New System.Drawing.Point(243, 618)
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
'
'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"
Me.Panel3.Controls.Add(Me.txtPosVerfahrenscode)
Me.Panel3.Controls.Add(Me.txtPosPraeferenz)
Me.Panel3.Controls.Add(Me.Label42)
Me.Panel3.Controls.Add(Me.Label41)
Me.Panel3.Controls.Add(Me.Label40)
Me.Panel3.Controls.Add(Me.MyDatagridview1)
Me.Panel3.Controls.Add(Me.Button1)
Me.Panel3.Controls.Add(Me.MyDatagridview2)
Me.Panel3.Controls.Add(Me.Label36)
Me.Panel3.Controls.Add(Me.Label34)
Me.Panel3.Controls.Add(Me.txtEigenmasse)
Me.Panel3.Controls.Add(Me.Label35)
Me.Panel3.Controls.Add(Me.txtRohmasse)
Me.Panel3.Controls.Add(Me.Label39)
Me.Panel3.Controls.Add(Me.Label37)
Me.Panel3.Controls.Add(Me.Label38)
Me.Panel3.Location = New System.Drawing.Point(0, 205)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(927, 406)
Me.Panel3.TabIndex = 74
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
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.Location = New System.Drawing.Point(3, 634)
Me.MyDatagridview1.Location = New System.Drawing.Point(3, 67)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.Size = New System.Drawing.Size(609, 324)
Me.MyDatagridview1.TabIndex = 62
@@ -422,10 +294,158 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.clmnWaehrung.HeaderText = "Wärung"
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
'
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.Size = New System.Drawing.Size(68, 13)
Me.Label33.TabIndex = 61
@@ -447,7 +467,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtContainerNr3._WaehrungZeichen = True
Me.txtContainerNr3.Enabled = False
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.MaxLineLength = -1
Me.txtContainerNr3.MaxLines_Warning = ""
@@ -472,7 +492,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtContainerNr2._WaehrungZeichen = True
Me.txtContainerNr2.Enabled = False
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.MaxLineLength = -1
Me.txtContainerNr2.MaxLines_Warning = ""
@@ -497,7 +517,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtContainerNr1._WaehrungZeichen = True
Me.txtContainerNr1.Enabled = False
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.MaxLineLength = -1
Me.txtContainerNr1.MaxLines_Warning = ""
@@ -510,7 +530,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
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.Location = New System.Drawing.Point(733, 225)
Me.Label32.Location = New System.Drawing.Point(733, 635)
Me.Label32.Name = "Label32"
Me.Label32.Size = New System.Drawing.Size(103, 13)
Me.Label32.TabIndex = 22
@@ -532,7 +552,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATBPk2._WaehrungZeichen = True
Me.txtVP_ATBPk2.Enabled = False
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.MaxLineLength = -1
Me.txtVP_ATBPk2.MaxLines_Warning = ""
@@ -557,7 +577,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATBPk1._WaehrungZeichen = True
Me.txtVP_ATBPk1.Enabled = False
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.MaxLineLength = -1
Me.txtVP_ATBPk1.MaxLines_Warning = ""
@@ -582,7 +602,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATBNr2._WaehrungZeichen = False
Me.txtVP_ATBNr2.Enabled = False
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.MaxLineLength = -1
Me.txtVP_ATBNr2.MaxLines_Warning = ""
@@ -607,7 +627,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATBNr1._WaehrungZeichen = False
Me.txtVP_ATBNr1.Enabled = False
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.MaxLineLength = -1
Me.txtVP_ATBNr1.MaxLines_Warning = ""
@@ -619,7 +639,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label15
'
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.Size = New System.Drawing.Size(103, 13)
Me.Label15.TabIndex = 28
@@ -642,7 +662,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATB2._WaehrungZeichen = False
Me.txtVP_ATB2.Enabled = False
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.MaxLineLength = -1
Me.txtVP_ATB2.MaxLines_Warning = ""
@@ -654,7 +674,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label19
'
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.Size = New System.Drawing.Size(103, 13)
Me.Label19.TabIndex = 23
@@ -677,7 +697,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATB1._WaehrungZeichen = False
Me.txtVP_ATB1.Enabled = False
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.MaxLineLength = -1
Me.txtVP_ATB1.MaxLines_Warning = ""
@@ -702,7 +722,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVPReferenz._WaehrungZeichen = True
Me.txtVPReferenz.Enabled = False
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.MaxLineLength = -1
Me.txtVPReferenz.MaxLines_Warning = ""
@@ -719,7 +739,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboVPArt.DropDownWidth = 350
Me.cboVPArt.Enabled = False
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.Size = New System.Drawing.Size(59, 21)
Me.cboVPArt.TabIndex = 20
@@ -728,7 +748,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
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.Location = New System.Drawing.Point(250, 225)
Me.Label22.Location = New System.Drawing.Point(250, 635)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(103, 13)
Me.Label22.TabIndex = 19
@@ -751,7 +771,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtGesRohmasse._WaehrungZeichen = True
Me.txtGesRohmasse.Enabled = False
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.MaxLineLength = -1
Me.txtGesRohmasse.MaxLines_Warning = ""
@@ -765,7 +785,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label29
'
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.Size = New System.Drawing.Size(111, 13)
Me.Label29.TabIndex = 53
@@ -837,7 +857,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.sbBestimmungsBundesland._value = ""
Me.sbBestimmungsBundesland.Enabled = False
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.Size = New System.Drawing.Size(214, 21)
Me.sbBestimmungsBundesland.TabIndex = 45
@@ -929,14 +949,14 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboGeschaeftsArt.DropDownWidth = 350
Me.cboGeschaeftsArt.Enabled = False
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.Size = New System.Drawing.Size(214, 21)
Me.cboGeschaeftsArt.TabIndex = 56
'
'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.Size = New System.Drawing.Size(135, 13)
Me.Label28.TabIndex = 36
@@ -958,7 +978,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.sbAdrZollstelle.INVISIBLE_COLUMNS = Nothing
Me.sbAdrZollstelle.key_visible = False
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.searchActive = True
Me.sbAdrZollstelle.Size = New System.Drawing.Size(214, 20)
@@ -972,7 +992,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label26
'
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.Size = New System.Drawing.Size(167, 13)
Me.Label26.TabIndex = 51
@@ -982,7 +1002,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label27
'
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.Size = New System.Drawing.Size(135, 13)
Me.Label27.TabIndex = 55
@@ -1005,7 +1025,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtWarenort._WaehrungZeichen = True
Me.txtWarenort.Enabled = False
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.MaxLineLength = -1
Me.txtWarenort.MaxLines_Warning = ""
@@ -1022,7 +1042,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboZahlungsweise.DropDownWidth = 350
Me.cboZahlungsweise.Enabled = False
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.Size = New System.Drawing.Size(214, 21)
Me.cboZahlungsweise.TabIndex = 52
@@ -1052,7 +1072,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label17
'
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.Size = New System.Drawing.Size(135, 13)
Me.Label17.TabIndex = 49
@@ -1067,7 +1087,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboVerkehrszweigInland.DropDownWidth = 350
Me.cboVerkehrszweigInland.Enabled = False
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.Size = New System.Drawing.Size(140, 21)
Me.cboVerkehrszweigInland.TabIndex = 50
@@ -1075,7 +1095,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label16
'
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.Size = New System.Drawing.Size(135, 13)
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.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.Size = New System.Drawing.Size(154, 50)
Me.pic.TabIndex = 47
@@ -1161,7 +1181,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.sbBestimmungsland.INVISIBLE_COLUMNS = Nothing
Me.sbBestimmungsland.key_visible = False
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.searchActive = True
Me.sbBestimmungsland.Size = New System.Drawing.Size(214, 20)
@@ -1174,7 +1194,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'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.Size = New System.Drawing.Size(116, 13)
Me.Label11.TabIndex = 42
@@ -1183,7 +1203,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'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.Size = New System.Drawing.Size(135, 13)
Me.Label12.TabIndex = 40
@@ -1205,7 +1225,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.sbVersendungsLand.INVISIBLE_COLUMNS = Nothing
Me.sbVersendungsLand.key_visible = False
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.searchActive = True
Me.sbVersendungsLand.Size = New System.Drawing.Size(214, 20)
@@ -1218,7 +1238,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'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.Size = New System.Drawing.Size(135, 13)
Me.Label9.TabIndex = 38
@@ -1240,7 +1260,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.sbEingangZollstelleID.INVISIBLE_COLUMNS = Nothing
Me.sbEingangZollstelleID.key_visible = False
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.searchActive = True
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.Label23)
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.Size = New System.Drawing.Size(930, 21)
Me.Panel1.Size = New System.Drawing.Size(933, 21)
Me.Panel1.TabIndex = 48
'
'txtKennzeichenInland
@@ -1414,9 +1434,9 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.Panel2.Controls.Add(Me.Label24)
Me.Panel2.Controls.Add(Me.Label30)
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.Size = New System.Drawing.Size(930, 41)
Me.Panel2.Size = New System.Drawing.Size(933, 41)
Me.Panel2.TabIndex = 60
'
'cboLieferbedingungSchluessel
@@ -1544,7 +1564,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtRechnungspreisWaehrung.INVISIBLE_COLUMNS = Nothing
Me.txtRechnungspreisWaehrung.key_visible = False
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.searchActive = True
Me.txtRechnungspreisWaehrung.Size = New System.Drawing.Size(75, 20)
@@ -1571,7 +1591,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtRechnungspreis._WaehrungZeichen = True
Me.txtRechnungspreis.Enabled = False
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.MaxLineLength = -1
Me.txtRechnungspreis.MaxLines_Warning = ""
@@ -1584,7 +1604,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label21
'
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.Size = New System.Drawing.Size(135, 13)
Me.Label21.TabIndex = 57
@@ -1593,7 +1613,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'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.Size = New System.Drawing.Size(158, 13)
Me.Label10.TabIndex = 44
@@ -1603,7 +1623,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label31
'
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.Size = New System.Drawing.Size(103, 13)
Me.Label31.TabIndex = 32
@@ -1612,12 +1632,88 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Label25
'
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.Size = New System.Drawing.Size(103, 13)
Me.Label25.TabIndex = 27
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
'
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.pnl.ResumeLayout(False)
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.MyDatagridview2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
@@ -1743,4 +1841,10 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Friend WithEvents Label37 As Label
Friend WithEvents Label38 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

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

@@ -117,15 +117,6 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</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">
<value>True</value>
</metadata>
@@ -189,4 +180,13 @@
<metadata name="clmnWaehrung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</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>

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
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()
For Each rowDoc As DataGridViewRow In MyDatagridview2.Rows
If rowDoc.Index - 1 = MyDatagridview2.Rows.Count - 1 Then Exit For
@@ -422,7 +426,13 @@ Public Class usrCntlTCeZOLL_EZA_Allg
MyDatagridview1.Rows.Clear()
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
End Sub