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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
d.breimaier
2024-05-28 10:34:44 +02:00
parent cbdd3fb690 6bbb5123df
commit 90e68d6796
10 changed files with 977 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.Designer.vb generated
View File

@@ -22,9 +22,8 @@ Partial Class usrCntlATLAS_EZA
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
Me.btnAllgemein = New System.Windows.Forms.Button()
Me.btnAdressen = New System.Windows.Forms.Button()
Me.btnAktiveVeredelung = New System.Windows.Forms.Button()
@@ -42,7 +41,7 @@ Partial Class usrCntlATLAS_EZA
Me.Label3 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblBezugsnummer = New System.Windows.Forms.Label()
Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip()
Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BezugsnummerKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel()

3
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
View File

@@ -933,5 +933,8 @@ Public Class usrCntlATLAS_EZA
End Function
Private Sub pnl_Paint_1(sender As Object, e As PaintEventArgs) Handles pnl.Paint
End Sub
End Class

2
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb generated
View File

@@ -509,7 +509,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtWarennummer._ShortDateOnly = False
Me.txtWarennummer._TimeOnly = False
Me.txtWarennummer._TimeOnly_Seconds = False
Me.txtWarennummer._value = Nothing
Me.txtWarennummer._value = ""
Me.txtWarennummer._Waehrung = False
Me.txtWarennummer._WaehrungZeichen = True
Me.txtWarennummer.ForeColor = System.Drawing.Color.Black

6
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb
View File

@@ -255,7 +255,7 @@
End Sub
Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged
Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged, txtEigenmasse.TextChanged
Label7.Visible = False
If IsNumeric(txtRohmasse._value) And IsNumeric(txtEigenmasse._value) Then
If CDbl(txtRohmasse._value) < CDbl(txtEigenmasse._value) Then
@@ -358,6 +358,10 @@
End If
End Sub
Private Sub txtEigenmasse_TextChanged(sender As Object, e As EventArgs)
End Sub
'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

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

@@ -1,5 +1,6 @@
Imports TELOTEC_Worker
Imports System.IO
Imports TELOTEC_Worker.vifDec
Class cTELOTECInterface_Send
@@ -336,6 +337,45 @@ Class cTELOTECInterface_Send
'XML.CtrlRslt_ResCd = cDY.CtrlRslt_ResCd ' VARCHAR(2) NULL,
XML.CtrlRslt_DLimit = cDY.CtrlRslt_DLimit ' DATETIME NULL,
If cDY.POSITIONSDATEN IsNot Nothing AndAlso cDY.POSITIONSDATEN.Count > 0 Then
For Each POS In cDY.POSITIONSDATEN
Dim XML_POS As New vifDecItem
XML_POS.Mandant_ID = XML.Mandant_ID
XML_POS.Bereich_ID = XML.Bereich_ID
XML_POS.Referenz_ID = XML.Referenz_ID
XML_POS.ComIndicator = XML.ComIndicator
'If POS.Mandant_ID IsNot Nothing Then XML_POS.Mandant_ID = POS.Mandant_ID
'If POS.Bereich_ID IsNot Nothing Then XML_POS.Bereich_ID = POS.Bereich_ID
'If POS.Referenz_ID IsNot Nothing Then XML_POS.Referenz_ID = POS.Referenz_ID
'If POS.ComIndicator IsNot Nothing Then XML_POS.ComIndicator = POS.ComIndicator
XML_POS.Pos_ID = POS.Pos_ID
If POS.Item_Status IsNot Nothing Then XML_POS.Item_Status = POS.Item_Status
If POS.Item_ComCd IsNot Nothing Then XML_POS.Item_ComCd = POS.Item_ComCd
If POS.Item_GdsDes IsNot Nothing Then XML_POS.Item_GdsDes = POS.Item_GdsDes
If POS.Item_Gross IsNot Nothing Then XML_POS.Item_Gross = CDbl(POS.Item_Gross)
If POS.Item_Net IsNot Nothing Then XML_POS.Item_Net = CDbl(POS.Item_Net)
If POS.Item_Orig IsNot Nothing Then XML_POS.Item_Orig = POS.Item_Orig
If POS.Item_ProcCd IsNot Nothing Then XML_POS.Item_ProcCd = POS.Item_ProcCd
If POS.Item_ProcAddCd IsNot Nothing Then XML_POS.Item_ProcAddCd = POS.Item_ProcAddCd
If POS.Item_ItVal IsNot Nothing Then XML_POS.Item_ItVal = CDbl(POS.Item_ItVal)
If POS.Item_Pref IsNot Nothing Then XML_POS.Item_Pref = POS.Item_Pref
If POS.Item_Quota IsNot Nothing Then XML_POS.Item_Quota = POS.Item_Quota
If POS.Item_ValMet IsNot Nothing Then XML_POS.Item_ValMet = POS.Item_ValMet
If POS.Item_VATInd IsNot Nothing Then XML_POS.Item_VATInd = POS.Item_VATInd
If POS.Item_StatVal IsNot Nothing Then XML_POS.Item_StatVal = POS.Item_StatVal
If POS.SurvCO_Ref IsNot Nothing Then XML_POS.SurvCO_Ref = POS.SurvCO_Ref
If POS.Telo_Artikel_ID IsNot Nothing Then XML_POS.Telo_Artikel_ID = POS.Telo_Artikel_ID
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
XML.vifDecItem.Add(XML_POS)
Next
End If
saveFile = cTC_Functions.getDefaultFolder_SEND() & "TC_" & Now.ToString("yyMMdd_HHmmss") & ".xml"

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

@@ -51,8 +51,11 @@ Partial Class usrCntlTCeZOLL_EZA
Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiimportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
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()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.SuspendLayout()
@@ -80,6 +83,7 @@ Partial Class usrCntlTCeZOLL_EZA
'
'SplitContainer.Panel2
'
Me.SplitContainer.Panel2.AutoScroll = True
Me.SplitContainer.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
Me.SplitContainer.Size = New System.Drawing.Size(934, 687)
Me.SplitContainer.SplitterDistance = 72
@@ -366,6 +370,7 @@ Partial Class usrCntlTCeZOLL_EZA
'
'Panel1
'
Me.Panel1.Controls.Add(Me.lblUpload)
Me.Panel1.Controls.Add(Me.txtDyMandant)
Me.Panel1.Controls.Add(Me.txtDyNiederlassung)
Me.Panel1.Controls.Add(Me.Label1)
@@ -399,7 +404,7 @@ Partial Class usrCntlTCeZOLL_EZA
'MenuStrip
'
Me.MenuStrip.BackColor = System.Drawing.Color.White
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem, Me.ToolStripMenuItem1})
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem, Me.DateiimportToolStripMenuItem, Me.ToolStripMenuItem1})
Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip.Name = "MenuStrip"
Me.MenuStrip.Size = New System.Drawing.Size(934, 24)
@@ -425,6 +430,19 @@ Partial Class usrCntlTCeZOLL_EZA
Me.LadenToolStripMenuItem.Text = "Laden ..."
Me.LadenToolStripMenuItem.Visible = False
'
'DateiimportToolStripMenuItem
'
Me.DateiimportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DynamicAutomotiveXLSToolStripMenuItem})
Me.DateiimportToolStripMenuItem.Name = "DateiimportToolStripMenuItem"
Me.DateiimportToolStripMenuItem.Size = New System.Drawing.Size(87, 20)
Me.DateiimportToolStripMenuItem.Text = "Datei-Import"
'
'DynamicAutomotiveXLSToolStripMenuItem
'
Me.DynamicAutomotiveXLSToolStripMenuItem.Name = "DynamicAutomotiveXLSToolStripMenuItem"
Me.DynamicAutomotiveXLSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DynamicAutomotiveXLSToolStripMenuItem.Text = "Trendyol (XLSX)"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EZAIDToolStripMenuItem})
@@ -438,6 +456,16 @@ Partial Class usrCntlTCeZOLL_EZA
Me.EZAIDToolStripMenuItem.Size = New System.Drawing.Size(109, 22)
Me.EZAIDToolStripMenuItem.Text = "EZA ID"
'
'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
'
'usrCntlTCeZOLL_EZA
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -491,4 +519,7 @@ Partial Class usrCntlTCeZOLL_EZA
Friend WithEvents btnDV1 As System.Windows.Forms.Button
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents EZAIDToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DateiimportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DynamicAutomotiveXLSToolStripMenuItem As ToolStripMenuItem
Friend WithEvents lblUpload As Label
End Class

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

@@ -2,6 +2,9 @@
Imports Tamir
Imports Tamir.SharpSsh
Imports Microsoft.Office.Interop
Imports Org.BouncyCastle.Crypto.Agreement
Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlTCeZOLL_EZA
Property ALLG As usrCntlTCeZOLL_EZA_Allg
@@ -574,6 +577,7 @@ Public Class usrCntlTCeZOLL_EZA
TC_ANM.Declarant_TIN = "ATEOS1000059735" 'EORI
cTELOTECInterface_Send.loadInClass_VersandanmeldungEZA(TC_ANM, Me)
If Not TC_ANM.SAVE() Then Exit Sub
@@ -624,6 +628,359 @@ Public Class usrCntlTCeZOLL_EZA
End Sub
Private Function importExcel_trendyol() As Boolean
lblUpload.Text = "Excel öffnen..."
lblUpload.Visible = True
Dim fd As New OpenFileDialog
fd.Filter = "Excel Dateien|*.xls;*.xlsx"
Dim result As DialogResult = fd.ShowDialog()
If Not fd.FileName.EndsWith(".xls") And Not fd.FileName.EndsWith(".xlsx") Then
Me.Cursor = Cursors.Default
lblUpload.Visible = False : Return False
End If
If result = System.Windows.Forms.DialogResult.OK Then
Me.Cursor = Cursors.WaitCursor
Dim exclApp As New Excel.Application 'Object 'as Application
Dim Datei As Excel.Workbook ' 'as WorkBook
Dim Blatt As Excel.Worksheet 'Object 'as WorkSheet
With exclApp
Try
.CutCopyMode = False
.DisplayAlerts = False
Datei = .Workbooks.Open(fd.FileName)
Blatt = Datei.Worksheets(1)
Datei.Activate()
Try
Blatt.ShowAllData() 'Falls Filter ausgewählt wurde
Catch ex As Exception
End Try
Dim startFound As Boolean = False
Dim endFound As Boolean = False
If Not checkExcel_trendyol(Blatt) Then 'VALIDIERUNG
Me.Cursor = Cursors.Default
lblUpload.Visible = False : Return False
End If
If TC_ANM.POSITIONSDATEN.Count > 0 Then
If vbYes = MsgBox("Sollten die aktuellen Einträge gelöscht werden?", vbYesNo) Then
TC_ANM.POSITIONSDATEN.Clear() 'Zurücksetzen
End If
End If
Dim startRows As Integer = 25
Dim endRows As Integer = startRows
While endRows < Blatt.UsedRange.Rows.Count
If Not Blatt.Range("B" & endRows) Is Nothing AndAlso Not Blatt.Range("B" & endRows).Value Is Nothing AndAlso Not Blatt.Range("B" & endRows).Value.ToString.Trim = "" Then
endFound = True
Else
Exit While
End If
endRows += 1
End While
endRows -= 1
If Not endFound Then
MsgBox("Keine Daten vorhanden!")
Me.Cursor = Cursors.Default
lblUpload.Visible = False : Return False
End If
lblUpload.Text = "Daten auslesen..."
'Laden des Bereiches aus dem Excel:
Dim myRange As Excel.Range
myRange = Blatt.Range("B" & startRows & ":N" & endRows & "")
Dim myArray As Object(,) '<-- declared as 2D Array
myArray = myRange.Value 'store the content of each cell
'myArray(i_soll2 - startRows + 1, 4)
lblUpload.Text = "Aggregieren..."
Dim DT = aggregierenTrendxol(myArray)
Dim cnt = 0
Dim sqlTest = "SELECT ezt_Codenummer,case when ezt_text Like '%für Frauen%' then 'Damen' when ezt_text Like '%für Männer%' THEN 'HERREN' ELSE '' END,
case
when ezt_text Like '%aus synthetischen Chemiefasern%' then ', aus synthetischen Chemiefasern'
when ezt_text Like '%Gewirken oder Gestricken%' then ', gewirkt oder gestickt'
when ezt_text Like '%aus Kunststoff%' THEN ', aus Kunststoff'
ELSE '' END,
ezt_text
FROM [VERAG].[dbo].[tblEZT_Importcodenummern]
where ezt_Codenummer LIKE '6206400000%'
"
lblUpload.Text = "Laden & Übersetzen..."
If DT IsNot Nothing Then
Try
For Each row As DataRow In DT.Rows
Dim POSITION As New TELOTEC_Worker.cTelotec_Positionsdaten
POSITION.Item_ComCd = row("Tariff").ToString().Replace(".", "")
POSITION.PACKSTUECKE.Clear()
Dim PK As New TELOTEC_Worker.cTelotec_Packstuecke
PK.Pack_Kind = "PK"
PK.Pack_Nr = row("SumQty").ToString()
POSITION.PACKSTUECKE.Add(PK)
If row("Currency") = "EUR" Then
POSITION.Item_ItVal = CDbl(row("SumAmount").ToString()).ToString("N2")
End If
Dim desc = row("Description").ToString
cDeeplAPI.deepl_Translate(row("Description").ToString, desc, "DE", "EN")
POSITION.Item_GdsDes = desc
POSITION.Item_Orig = row("Origin").ToString()
TC_ANM.POSITIONSDATEN.Add(POSITION)
cnt += 1
Next
'For i As Integer = 1 To endRows - startRows + 1 Step 1
' Dim POSITION As New TELOTEC_Worker.cTelotec_Positionsdaten
' POSITION.Item_ComCd = myArray(i, 6).ToString().Replace(".", "")
' POSITION.PACKSTUECKE.Clear()
' Dim PK As New TELOTEC_Worker.cTelotec_Packstuecke
' PK.Pack_Kind = "PK"
' PK.Pack_Nr = myArray(i, 8).ToString()
' POSITION.PACKSTUECKE.Add(PK)
' If myArray(i, 13).ToString() = "EUR" Then
' POSITION.Item_ItVal = CDbl(myArray(i, 12).ToString()).ToString("N2")
' End If
' POSITION.Item_GdsDes = myArray(i, 5).ToString()
' POSITION.Item_Orig = myArray(i, 4).ToString()
' TC_ANM.POSITIONSDATEN.Add(POSITION)
' cnt += 1
'Next
Catch ex As Exception
MsgBox("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
Datei.Close()
Me.Cursor = Cursors.Default
lblUpload.Visible = False : Return False
End Try
End If
.Visible = False
Datei.Close()
Me.FindForm.SuspendLayout()
' POSITIONEN.setValues(TC_ANM)
ALLG.setPosValues(TC_ANM)
btnPositionen.PerformClick()
' MsgBox(cnt & " Datensätze wurden eingelesen. ")
Me.FindForm.ResumeLayout()
lblUpload.Text = "Fertig! " & cnt & " Datensätze wurden eingelesen. "
Me.Cursor = Cursors.Default
Return True
Catch ex As Exception
'
Me.Cursor = Cursors.Default
MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
lblUpload.Visible = False
' Return False
End Try
End With
Return True
Else
MsgBox("Keine Datei ausgewählt!")
End If
Me.Cursor = Cursors.Default
lblUpload.Visible = False
Return False
End Function
Sub CreateDataTable(ByRef DT As DataTable)
'DT.Columns.Add("A")
DT.Columns.Add("B")
DT.Columns.Add("C")
DT.Columns.Add("D")
DT.Columns.Add("E")
DT.Columns.Add("F")
DT.Columns.Add("G")
DT.Columns.Add("H")
DT.Columns.Add("I", System.Type.GetType("System.Int32"))
DT.Columns.Add("J")
DT.Columns.Add("K")
DT.Columns.Add("L")
DT.Columns.Add("M", System.Type.GetType("System.Decimal"))
DT.Columns.Add("N")
End Sub
Sub CreateDataTableAgg(ByRef DT As DataTable)
'DT.Columns.Add("A")
DT.Columns.Add("Description")
DT.Columns.Add("Tariff")
DT.Columns.Add("Currency")
DT.Columns.Add("Origin")
DT.Columns.Add("SumQty")
DT.Columns.Add("SumAmount")
End Sub
Function aggregierenTrendxol(myArray) As DataTable
Try
Dim DT As DataTable = New DataTable()
Call CreateDataTable(DT) 'Create the DataTable and all Columns
'Add the 2D Array to the DataTable
For i As Integer = 1 To myArray.GetUpperBound(0)
DT.Rows.Add()
For j As Integer = 1 To myArray.GetUpperBound(1)
'If j = 8 Then
' DT.Rows(i - 1).Item(j - 1) = CInt(myArray(i, j))
'Else
' DT.Rows(i - 1).Item(j - 1) = myArray(i, j)
'End If
DT.Rows(i - 1).Item(j - 1) = myArray(i, j)
Next j
Next i
' MsgBox(DT.Rows.Count)
'Dim amountGrpByDates = From row In DT
' Group row By dateGroup = New With {
' Key .Yr = row.Field(Of Integer)("Yr"),
' Key .Mnth = row.Field(Of Integer)("Mnth"),
' Key .Period = row.Field(Of String)("Period")
' } Into Group
' Select New With {
' Key .Dates = dateGroup,
' .SumAmount = Group.Sum(Function(x) x.Field(Of Decimal)("Amount"))}
'For Each r In DT.Rows
' '' MsgBox("a> " & r("A"))
' 'MsgBox("b> " & r("B"))
' 'MsgBox("c> " & r("C"))
' 'MsgBox("d> " & r("D"))
' 'MsgBox("e> " & r("E"))
' 'MsgBox("f> " & r("F"))
' 'MsgBox("g> " & r("G"))
' 'MsgBox("h> " & r("H"))
' MsgBox("i> " & r("I"))
'Next
Dim amountGrpByDates = From row In DT
Group row By groupKeys = New With {
Key .Orig = row.Field(Of String)("E"),
Key .Description = row.Field(Of String)("D") & ", " & row.Field(Of String)("F"),
Key .Tnr = row.Field(Of String)("G"),
Key .Curr = row.Field(Of String)("N")
} Into Group
Select New With {
Key .Params = groupKeys,
.SumQTY = Group.Sum(Function(x) x.Field(Of Integer)("I")),
.SumAmount = Group.Sum(Function(x) x.Field(Of Decimal)("M"))}
' .SumQTY = Group.Sum(Function(x) x.Field(Of Integer)("I"))}
Dim DT_AGG As New DataTable
Call CreateDataTableAgg(DT_AGG) 'Create the DataTable and all Columns
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
'DT.AsEnumerable().GroupBy(row >= row.Field < Int() > ("G"))
'Dim myArrayAgg As Object(,) '<-- declared as 2D Array
'For iOuter As Integer = myArray.GetLowerBound(0) To myArray.GetUpperBound(0)
' 'iOuter represents the first dimension
' MsgBox(myArray(iOuter, 6))
' 'For iInner As Integer = myArray.GetLowerBound(1) To myArray.GetUpperBound(1)
' ' 'iInner represents the second dimension
' ' myArray(iOuter, iInner) = "This Isn't Nothing" 'Set the value
' 'Next 'iInner
' 'If you are only interested in the first element you don't need the inner loop
' myArray(iOuter, 0) = "This is the first element in the second dimension"
'Next 'iOuter
'MasterIndex is now filled completely
'For i As Integer = 1 To endRows - startRows + 1 Step 1
' Dim POSITION As New TELOTEC_Worker.cTelotec_Positionsdaten
' POSITION.Item_ComCd = myArray(i, 6).ToString().Replace(".", "")
' POSITION.PACKSTUECKE.Clear()
' Dim PK As New TELOTEC_Worker.cTelotec_Packstuecke
' PK.Pack_Kind = "PK"
' PK.Pack_Nr = myArray(i, 8).ToString()
' POSITION.PACKSTUECKE.Add(PK)
' If myArray(i, 13).ToString() = "EUR" Then
' POSITION.Item_ItVal = CDbl(myArray(i, 12).ToString()).ToString("N2")
' End If
' POSITION.Item_GdsDes = myArray(i, 5).ToString()
' POSITION.Item_Orig = myArray(i, 4).ToString()
' TC_ANM.POSITIONSDATEN.Add(POSITION)
' cnt += 1
'Next
Return DT_AGG
Catch ex As Exception
MsgBox("Fehler beim Aggregieren !" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
Me.Cursor = Cursors.Default
Return Nothing
End Try
End Function
Private Function checkExcel_trendyol(Blatt As Excel.Worksheet) As Boolean
'Prüfung
Try
If Blatt Is Nothing Then Return False
If Blatt.Range("B24") Is Nothing Then Return False
If Blatt.Range("B24").Value.ToString <> "DESCRIPTION" Then Return False
Catch ex As Exception
MsgBox("Fehler bei der Prüfung!" & ex.Message)
Me.Cursor = Cursors.Default
Return False
End Try
Return True
End Function
Private Sub NeueBezugsnummerVergebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueBezugsnummerVergebenToolStripMenuItem.Click
@@ -635,5 +992,9 @@ Public Class usrCntlTCeZOLL_EZA
MsgBox(TC_ANM.telanm_id)
End If
End Sub
Private Sub DynamicAutomotiveXLSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DynamicAutomotiveXLSToolStripMenuItem.Click
importExcel_trendyol()
End Sub
End Class

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

@@ -22,7 +22,32 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
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.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.clmnOrigin = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnTarifnummer = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnWarenbeschreibung = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnPackstuecke = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnPkArt = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnRohmasse = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnEigenmasse = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnPreis = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnWaehrung = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label33 = New System.Windows.Forms.Label()
Me.txtContainerNr3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtContainerNr2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtContainerNr1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -38,7 +63,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVPReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboVPArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label22 = New System.Windows.Forms.Label()
Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGesRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label29 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.cboVerfahren = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -102,8 +127,9 @@ 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.Label33 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -112,6 +138,18 @@ 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.Label33)
Me.pnl.Controls.Add(Me.txtContainerNr3)
Me.pnl.Controls.Add(Me.txtContainerNr2)
@@ -128,7 +166,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.pnl.Controls.Add(Me.txtVPReferenz)
Me.pnl.Controls.Add(Me.cboVPArt)
Me.pnl.Controls.Add(Me.Label22)
Me.pnl.Controls.Add(Me.txtRohmasse)
Me.pnl.Controls.Add(Me.txtGesRohmasse)
Me.pnl.Controls.Add(Me.Label29)
Me.pnl.Controls.Add(Me.Label14)
Me.pnl.Controls.Add(Me.cboVerfahren)
@@ -178,21 +216,236 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(930, 632)
Me.pnl.Size = New System.Drawing.Size(930, 979)
Me.pnl.TabIndex = 0
'
'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, 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"
'
'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.Name = "MyDatagridview1"
Me.MyDatagridview1.Size = New System.Drawing.Size(609, 324)
Me.MyDatagridview1.TabIndex = 62
'
'clmnOrigin
'
Me.clmnOrigin.HeaderText = "Ursprung"
Me.clmnOrigin.Name = "clmnOrigin"
'
'clmnTarifnummer
'
Me.clmnTarifnummer.HeaderText = "Tarifnummer"
Me.clmnTarifnummer.Name = "clmnTarifnummer"
'
'clmnWarenbeschreibung
'
Me.clmnWarenbeschreibung.HeaderText = "Warenbeschreibung"
Me.clmnWarenbeschreibung.Name = "clmnWarenbeschreibung"
'
'clmnPackstuecke
'
Me.clmnPackstuecke.HeaderText = "Packstücke"
Me.clmnPackstuecke.Name = "clmnPackstuecke"
'
'clmnPkArt
'
Me.clmnPkArt.HeaderText = "PkArt"
Me.clmnPkArt.Name = "clmnPkArt"
'
'clmnRohmasse
'
Me.clmnRohmasse.HeaderText = "Rohmasse"
Me.clmnRohmasse.Name = "clmnRohmasse"
'
'clmnEigenmasse
'
Me.clmnEigenmasse.HeaderText = "Eigenmasse"
Me.clmnEigenmasse.Name = "clmnEigenmasse"
'
'clmnPreis
'
Me.clmnPreis.HeaderText = "Preis"
Me.clmnPreis.Name = "clmnPreis"
'
'clmnWaehrung
'
Me.clmnWaehrung.HeaderText = "Wärung"
Me.clmnWaehrung.Name = "clmnWaehrung"
'
'Label33
'
Me.Label33.Enabled = False
Me.Label33.Location = New System.Drawing.Point(835, 477)
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(68, 13)
Me.Label33.TabIndex = 61
Me.Label33.Text = "kg"
'
'txtContainerNr3
'
Me.txtContainerNr3._DateTimeOnly = False
Me.txtContainerNr3._numbersOnly = False
Me.txtContainerNr3._numbersOnlyKommastellen = ""
Me.txtContainerNr3._numbersOnlyTrennzeichen = True
Me.txtContainerNr3._Prozent = False
Me.txtContainerNr3._ShortDateNew = False
Me.txtContainerNr3._ShortDateOnly = False
Me.txtContainerNr3._TimeOnly = False
Me.txtContainerNr3._TimeOnly_Seconds = False
Me.txtContainerNr3._value = ""
Me.txtContainerNr3._Waehrung = False
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.MaxLength = 11
@@ -208,13 +461,16 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtContainerNr2._DateTimeOnly = False
Me.txtContainerNr2._numbersOnly = False
Me.txtContainerNr2._numbersOnlyKommastellen = ""
Me.txtContainerNr2._numbersOnlyTrennzeichen = True
Me.txtContainerNr2._Prozent = False
Me.txtContainerNr2._ShortDateNew = False
Me.txtContainerNr2._ShortDateOnly = False
Me.txtContainerNr2._TimeOnly = False
Me.txtContainerNr2._TimeOnly_Seconds = False
Me.txtContainerNr2._value = ""
Me.txtContainerNr2._Waehrung = False
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.MaxLength = 11
@@ -230,13 +486,16 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtContainerNr1._DateTimeOnly = False
Me.txtContainerNr1._numbersOnly = False
Me.txtContainerNr1._numbersOnlyKommastellen = ""
Me.txtContainerNr1._numbersOnlyTrennzeichen = True
Me.txtContainerNr1._Prozent = False
Me.txtContainerNr1._ShortDateNew = False
Me.txtContainerNr1._ShortDateOnly = False
Me.txtContainerNr1._TimeOnly = False
Me.txtContainerNr1._TimeOnly_Seconds = False
Me.txtContainerNr1._value = ""
Me.txtContainerNr1._Waehrung = False
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.MaxLength = 11
@@ -249,6 +508,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'Label32
'
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.Name = "Label32"
@@ -261,10 +521,12 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATBPk2._DateTimeOnly = False
Me.txtVP_ATBPk2._numbersOnly = True
Me.txtVP_ATBPk2._numbersOnlyKommastellen = ""
Me.txtVP_ATBPk2._numbersOnlyTrennzeichen = True
Me.txtVP_ATBPk2._Prozent = False
Me.txtVP_ATBPk2._ShortDateNew = False
Me.txtVP_ATBPk2._ShortDateOnly = False
Me.txtVP_ATBPk2._TimeOnly = False
Me.txtVP_ATBPk2._TimeOnly_Seconds = False
Me.txtVP_ATBPk2._value = ""
Me.txtVP_ATBPk2._Waehrung = False
Me.txtVP_ATBPk2._WaehrungZeichen = True
@@ -284,10 +546,12 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATBPk1._DateTimeOnly = False
Me.txtVP_ATBPk1._numbersOnly = True
Me.txtVP_ATBPk1._numbersOnlyKommastellen = ""
Me.txtVP_ATBPk1._numbersOnlyTrennzeichen = True
Me.txtVP_ATBPk1._Prozent = False
Me.txtVP_ATBPk1._ShortDateNew = False
Me.txtVP_ATBPk1._ShortDateOnly = False
Me.txtVP_ATBPk1._TimeOnly = False
Me.txtVP_ATBPk1._TimeOnly_Seconds = False
Me.txtVP_ATBPk1._value = ""
Me.txtVP_ATBPk1._Waehrung = False
Me.txtVP_ATBPk1._WaehrungZeichen = True
@@ -307,10 +571,12 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATBNr2._DateTimeOnly = False
Me.txtVP_ATBNr2._numbersOnly = True
Me.txtVP_ATBNr2._numbersOnlyKommastellen = ""
Me.txtVP_ATBNr2._numbersOnlyTrennzeichen = True
Me.txtVP_ATBNr2._Prozent = False
Me.txtVP_ATBNr2._ShortDateNew = False
Me.txtVP_ATBNr2._ShortDateOnly = False
Me.txtVP_ATBNr2._TimeOnly = False
Me.txtVP_ATBNr2._TimeOnly_Seconds = False
Me.txtVP_ATBNr2._value = ""
Me.txtVP_ATBNr2._Waehrung = False
Me.txtVP_ATBNr2._WaehrungZeichen = False
@@ -330,10 +596,12 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATBNr1._DateTimeOnly = False
Me.txtVP_ATBNr1._numbersOnly = True
Me.txtVP_ATBNr1._numbersOnlyKommastellen = ""
Me.txtVP_ATBNr1._numbersOnlyTrennzeichen = True
Me.txtVP_ATBNr1._Prozent = False
Me.txtVP_ATBNr1._ShortDateNew = False
Me.txtVP_ATBNr1._ShortDateOnly = False
Me.txtVP_ATBNr1._TimeOnly = False
Me.txtVP_ATBNr1._TimeOnly_Seconds = False
Me.txtVP_ATBNr1._value = ""
Me.txtVP_ATBNr1._Waehrung = False
Me.txtVP_ATBNr1._WaehrungZeichen = False
@@ -350,6 +618,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'Label15
'
Me.Label15.Enabled = False
Me.Label15.Location = New System.Drawing.Point(250, 263)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(103, 13)
@@ -362,10 +631,12 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATB2._DateTimeOnly = False
Me.txtVP_ATB2._numbersOnly = False
Me.txtVP_ATB2._numbersOnlyKommastellen = ""
Me.txtVP_ATB2._numbersOnlyTrennzeichen = True
Me.txtVP_ATB2._Prozent = False
Me.txtVP_ATB2._ShortDateNew = False
Me.txtVP_ATB2._ShortDateOnly = False
Me.txtVP_ATB2._TimeOnly = False
Me.txtVP_ATB2._TimeOnly_Seconds = False
Me.txtVP_ATB2._value = Nothing
Me.txtVP_ATB2._Waehrung = False
Me.txtVP_ATB2._WaehrungZeichen = False
@@ -382,6 +653,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'Label19
'
Me.Label19.Enabled = False
Me.Label19.Location = New System.Drawing.Point(250, 244)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(103, 13)
@@ -394,10 +666,12 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVP_ATB1._DateTimeOnly = False
Me.txtVP_ATB1._numbersOnly = False
Me.txtVP_ATB1._numbersOnlyKommastellen = ""
Me.txtVP_ATB1._numbersOnlyTrennzeichen = True
Me.txtVP_ATB1._Prozent = False
Me.txtVP_ATB1._ShortDateNew = False
Me.txtVP_ATB1._ShortDateOnly = False
Me.txtVP_ATB1._TimeOnly = False
Me.txtVP_ATB1._TimeOnly_Seconds = False
Me.txtVP_ATB1._value = Nothing
Me.txtVP_ATB1._Waehrung = False
Me.txtVP_ATB1._WaehrungZeichen = False
@@ -417,10 +691,12 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtVPReferenz._DateTimeOnly = False
Me.txtVPReferenz._numbersOnly = False
Me.txtVPReferenz._numbersOnlyKommastellen = ""
Me.txtVPReferenz._numbersOnlyTrennzeichen = True
Me.txtVPReferenz._Prozent = False
Me.txtVPReferenz._ShortDateNew = False
Me.txtVPReferenz._ShortDateOnly = False
Me.txtVPReferenz._TimeOnly = False
Me.txtVPReferenz._TimeOnly_Seconds = False
Me.txtVPReferenz._value = Nothing
Me.txtVPReferenz._Waehrung = False
Me.txtVPReferenz._WaehrungZeichen = True
@@ -441,6 +717,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboVPArt._allowFreiText = False
Me.cboVPArt._value = ""
Me.cboVPArt.DropDownWidth = 350
Me.cboVPArt.Enabled = False
Me.cboVPArt.FormattingEnabled = True
Me.cboVPArt.Location = New System.Drawing.Point(359, 222)
Me.cboVPArt.Name = "cboVPArt"
@@ -449,6 +726,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'Label22
'
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.Name = "Label22"
@@ -457,32 +735,36 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.Label22.Text = "Vorpapier:"
Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtRohmasse
'txtGesRohmasse
'
Me.txtRohmasse._DateTimeOnly = False
Me.txtRohmasse._numbersOnly = True
Me.txtRohmasse._numbersOnlyKommastellen = "1"
Me.txtRohmasse._Prozent = False
Me.txtRohmasse._ShortDateNew = False
Me.txtRohmasse._ShortDateOnly = False
Me.txtRohmasse._TimeOnly = False
Me.txtRohmasse._value = "0"
Me.txtRohmasse._Waehrung = False
Me.txtRohmasse._WaehrungZeichen = True
Me.txtRohmasse.ForeColor = System.Drawing.Color.Black
Me.txtRohmasse.Location = New System.Drawing.Point(694, 474)
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(140, 20)
Me.txtRohmasse.TabIndex = 54
Me.txtRohmasse.Text = "0,00"
Me.txtRohmasse.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtGesRohmasse._DateTimeOnly = False
Me.txtGesRohmasse._numbersOnly = True
Me.txtGesRohmasse._numbersOnlyKommastellen = "1"
Me.txtGesRohmasse._numbersOnlyTrennzeichen = True
Me.txtGesRohmasse._Prozent = False
Me.txtGesRohmasse._ShortDateNew = False
Me.txtGesRohmasse._ShortDateOnly = False
Me.txtGesRohmasse._TimeOnly = False
Me.txtGesRohmasse._TimeOnly_Seconds = False
Me.txtGesRohmasse._value = "0"
Me.txtGesRohmasse._Waehrung = False
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.MaxLength = 18
Me.txtGesRohmasse.MaxLineLength = -1
Me.txtGesRohmasse.MaxLines_Warning = ""
Me.txtGesRohmasse.MaxLines_Warning_Label = Nothing
Me.txtGesRohmasse.Name = "txtGesRohmasse"
Me.txtGesRohmasse.Size = New System.Drawing.Size(140, 20)
Me.txtGesRohmasse.TabIndex = 54
Me.txtGesRohmasse.Text = "0,00"
Me.txtGesRohmasse.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label29
'
Me.Label29.Enabled = False
Me.Label29.Location = New System.Drawing.Point(580, 477)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(111, 13)
@@ -505,6 +787,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboVerfahren._allowFreiText = False
Me.cboVerfahren._value = ""
Me.cboVerfahren.DropDownWidth = 350
Me.cboVerfahren.Enabled = False
Me.cboVerfahren.FormattingEnabled = True
Me.cboVerfahren.Location = New System.Drawing.Point(145, 178)
Me.cboVerfahren.Name = "cboVerfahren"
@@ -516,6 +799,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cbxAnmelderIstEmpfänger.AutoSize = True
Me.cbxAnmelderIstEmpfänger.Checked = True
Me.cbxAnmelderIstEmpfänger.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cbxAnmelderIstEmpfänger.Enabled = False
Me.cbxAnmelderIstEmpfänger.Location = New System.Drawing.Point(694, 161)
Me.cbxAnmelderIstEmpfänger.Name = "cbxAnmelderIstEmpfänger"
Me.cbxAnmelderIstEmpfänger.Size = New System.Drawing.Size(133, 17)
@@ -530,6 +814,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboVertretungsart._allowFreiText = False
Me.cboVertretungsart._value = ""
Me.cboVertretungsart.DropDownWidth = 350
Me.cboVertretungsart.Enabled = False
Me.cboVertretungsart.FormattingEnabled = True
Me.cboVertretungsart.Location = New System.Drawing.Point(145, 158)
Me.cboVertretungsart.Name = "cboVertretungsart"
@@ -550,6 +835,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.sbBestimmungsBundesland._allowedValuesFreiText = Nothing
Me.sbBestimmungsBundesland._allowFreiText = False
Me.sbBestimmungsBundesland._value = ""
Me.sbBestimmungsBundesland.Enabled = False
Me.sbBestimmungsBundesland.FormattingEnabled = True
Me.sbBestimmungsBundesland.Location = New System.Drawing.Point(694, 358)
Me.sbBestimmungsBundesland.Name = "sbBestimmungsBundesland"
@@ -559,6 +845,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'cbxDV1
'
Me.cbxDV1.AutoSize = True
Me.cbxDV1.Enabled = False
Me.cbxDV1.Location = New System.Drawing.Point(694, 142)
Me.cbxDV1.Name = "cbxDV1"
Me.cbxDV1.Size = New System.Drawing.Size(108, 17)
@@ -572,6 +859,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboZollrStatus._allowFreiText = False
Me.cboZollrStatus._value = ""
Me.cboZollrStatus.DropDownWidth = 350
Me.cboZollrStatus.Enabled = False
Me.cboZollrStatus.FormattingEnabled = True
Me.cboZollrStatus.Location = New System.Drawing.Point(145, 138)
Me.cboZollrStatus.Name = "cboZollrStatus"
@@ -593,6 +881,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboStatStatus._allowFreiText = False
Me.cboStatStatus._value = ""
Me.cboStatStatus.DropDownWidth = 350
Me.cboStatStatus.Enabled = False
Me.cboStatStatus.FormattingEnabled = True
Me.cboStatStatus.Location = New System.Drawing.Point(433, 138)
Me.cboStatStatus.Name = "cboStatStatus"
@@ -611,6 +900,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'cbxFiskalvertretung
'
Me.cbxFiskalvertretung.AutoSize = True
Me.cbxFiskalvertretung.Enabled = False
Me.cbxFiskalvertretung.Location = New System.Drawing.Point(184, 81)
Me.cbxFiskalvertretung.Name = "cbxFiskalvertretung"
Me.cbxFiskalvertretung.Size = New System.Drawing.Size(101, 17)
@@ -623,6 +913,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cbxVorzeitigeAnmeldung.AutoSize = True
Me.cbxVorzeitigeAnmeldung.Checked = True
Me.cbxVorzeitigeAnmeldung.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxVorzeitigeAnmeldung.Enabled = False
Me.cbxVorzeitigeAnmeldung.Location = New System.Drawing.Point(17, 81)
Me.cbxVorzeitigeAnmeldung.Name = "cbxVorzeitigeAnmeldung"
Me.cbxVorzeitigeAnmeldung.Size = New System.Drawing.Size(128, 17)
@@ -636,6 +927,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboGeschaeftsArt._allowFreiText = False
Me.cboGeschaeftsArt._value = ""
Me.cboGeschaeftsArt.DropDownWidth = 350
Me.cboGeschaeftsArt.Enabled = False
Me.cboGeschaeftsArt.FormattingEnabled = True
Me.cboGeschaeftsArt.Location = New System.Drawing.Point(145, 493)
Me.cboGeschaeftsArt.Name = "cboGeschaeftsArt"
@@ -655,12 +947,14 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
Me.sbAdrZollstelle._allowFreitext = False
Me.sbAdrZollstelle._AllowSetValue = False
Me.sbAdrZollstelle._allowSpaceAsSplitter = False
Me.sbAdrZollstelle._autoSizeGross = False
Me.sbAdrZollstelle._hideIfListEmpty = True
Me.sbAdrZollstelle._value = ""
Me.sbAdrZollstelle.conn_art = "FMZOLL"
Me.sbAdrZollstelle.dgvpos = "LEFT"
Me.sbAdrZollstelle.DISPLAY_PARAM = Nothing
Me.sbAdrZollstelle.Enabled = False
Me.sbAdrZollstelle.INVISIBLE_COLUMNS = Nothing
Me.sbAdrZollstelle.key_visible = False
Me.sbAdrZollstelle.KEYPARAM = Nothing
@@ -677,6 +971,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'Label26
'
Me.Label26.Enabled = False
Me.Label26.Location = New System.Drawing.Point(-25, 477)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(167, 13)
@@ -686,6 +981,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'Label27
'
Me.Label27.Enabled = False
Me.Label27.Location = New System.Drawing.Point(7, 496)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(135, 13)
@@ -698,13 +994,16 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtWarenort._DateTimeOnly = False
Me.txtWarenort._numbersOnly = False
Me.txtWarenort._numbersOnlyKommastellen = ""
Me.txtWarenort._numbersOnlyTrennzeichen = True
Me.txtWarenort._Prozent = False
Me.txtWarenort._ShortDateNew = False
Me.txtWarenort._ShortDateOnly = False
Me.txtWarenort._TimeOnly = False
Me.txtWarenort._TimeOnly_Seconds = False
Me.txtWarenort._value = Nothing
Me.txtWarenort._Waehrung = False
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.MaxLength = 17
@@ -721,6 +1020,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboZahlungsweise._allowFreiText = False
Me.cboZahlungsweise._value = ""
Me.cboZahlungsweise.DropDownWidth = 350
Me.cboZahlungsweise.Enabled = False
Me.cboZahlungsweise.FormattingEnabled = True
Me.cboZahlungsweise.Location = New System.Drawing.Point(145, 474)
Me.cboZahlungsweise.Name = "cboZahlungsweise"
@@ -742,6 +1042,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboArtVerfahrenUeberfuehrung._allowFreiText = False
Me.cboArtVerfahrenUeberfuehrung._value = ""
Me.cboArtVerfahrenUeberfuehrung.DropDownWidth = 350
Me.cboArtVerfahrenUeberfuehrung.Enabled = False
Me.cboArtVerfahrenUeberfuehrung.FormattingEnabled = True
Me.cboArtVerfahrenUeberfuehrung.Location = New System.Drawing.Point(145, 118)
Me.cboArtVerfahrenUeberfuehrung.Name = "cboArtVerfahrenUeberfuehrung"
@@ -750,6 +1051,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'Label17
'
Me.Label17.Enabled = False
Me.Label17.Location = New System.Drawing.Point(7, 428)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(135, 13)
@@ -763,6 +1065,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.cboVerkehrszweigInland._allowFreiText = False
Me.cboVerkehrszweigInland._value = ""
Me.cboVerkehrszweigInland.DropDownWidth = 350
Me.cboVerkehrszweigInland.Enabled = False
Me.cboVerkehrszweigInland.FormattingEnabled = True
Me.cboVerkehrszweigInland.Location = New System.Drawing.Point(145, 425)
Me.cboVerkehrszweigInland.Name = "cboVerkehrszweigInland"
@@ -771,6 +1074,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'Label16
'
Me.Label16.Enabled = False
Me.Label16.Location = New System.Drawing.Point(7, 390)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(135, 13)
@@ -812,6 +1116,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
Me.btnEU.BackColor = System.Drawing.Color.White
Me.btnEU.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnEU.Enabled = False
Me.btnEU.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnEU.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold)
Me.btnEU.ForeColor = System.Drawing.Color.Black
@@ -828,6 +1133,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
Me.btnCo.BackColor = System.Drawing.Color.OrangeRed
Me.btnCo.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnCo.Enabled = False
Me.btnCo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCo.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold)
Me.btnCo.ForeColor = System.Drawing.SystemColors.ControlLightLight
@@ -844,12 +1150,14 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
Me.sbBestimmungsland._allowFreitext = False
Me.sbBestimmungsland._AllowSetValue = False
Me.sbBestimmungsland._allowSpaceAsSplitter = False
Me.sbBestimmungsland._autoSizeGross = False
Me.sbBestimmungsland._hideIfListEmpty = True
Me.sbBestimmungsland._value = ""
Me.sbBestimmungsland.conn_art = "FMZOLL"
Me.sbBestimmungsland.dgvpos = "RIGHT"
Me.sbBestimmungsland.DISPLAY_PARAM = Nothing
Me.sbBestimmungsland.Enabled = False
Me.sbBestimmungsland.INVISIBLE_COLUMNS = Nothing
Me.sbBestimmungsland.key_visible = False
Me.sbBestimmungsland.KEYPARAM = Nothing
@@ -886,12 +1194,14 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
Me.sbVersendungsLand._allowFreitext = False
Me.sbVersendungsLand._AllowSetValue = False
Me.sbVersendungsLand._allowSpaceAsSplitter = False
Me.sbVersendungsLand._autoSizeGross = False
Me.sbVersendungsLand._hideIfListEmpty = True
Me.sbVersendungsLand._value = ""
Me.sbVersendungsLand.conn_art = "FMZOLL"
Me.sbVersendungsLand.dgvpos = "LEFT"
Me.sbVersendungsLand.DISPLAY_PARAM = Nothing
Me.sbVersendungsLand.Enabled = False
Me.sbVersendungsLand.INVISIBLE_COLUMNS = Nothing
Me.sbVersendungsLand.key_visible = False
Me.sbVersendungsLand.KEYPARAM = Nothing
@@ -919,12 +1229,14 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
Me.sbEingangZollstelleID._allowFreitext = False
Me.sbEingangZollstelleID._AllowSetValue = False
Me.sbEingangZollstelleID._allowSpaceAsSplitter = False
Me.sbEingangZollstelleID._autoSizeGross = False
Me.sbEingangZollstelleID._hideIfListEmpty = True
Me.sbEingangZollstelleID._value = ""
Me.sbEingangZollstelleID.conn_art = "FMZOLL"
Me.sbEingangZollstelleID.dgvpos = "LEFT"
Me.sbEingangZollstelleID.DISPLAY_PARAM = Nothing
Me.sbEingangZollstelleID.Enabled = False
Me.sbEingangZollstelleID.INVISIBLE_COLUMNS = Nothing
Me.sbEingangZollstelleID.key_visible = False
Me.sbEingangZollstelleID.KEYPARAM = Nothing
@@ -963,6 +1275,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.Panel1.Controls.Add(Me.Label18)
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.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(930, 21)
@@ -973,10 +1286,12 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtKennzeichenInland._DateTimeOnly = False
Me.txtKennzeichenInland._numbersOnly = False
Me.txtKennzeichenInland._numbersOnlyKommastellen = ""
Me.txtKennzeichenInland._numbersOnlyTrennzeichen = True
Me.txtKennzeichenInland._Prozent = False
Me.txtKennzeichenInland._ShortDateNew = False
Me.txtKennzeichenInland._ShortDateOnly = False
Me.txtKennzeichenInland._TimeOnly = False
Me.txtKennzeichenInland._TimeOnly_Seconds = False
Me.txtKennzeichenInland._value = ""
Me.txtKennzeichenInland._Waehrung = False
Me.txtKennzeichenInland._WaehrungZeichen = True
@@ -993,6 +1308,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
Me.sbKennzeichenInlandLand._allowFreitext = False
Me.sbKennzeichenInlandLand._AllowSetValue = False
Me.sbKennzeichenInlandLand._allowSpaceAsSplitter = False
Me.sbKennzeichenInlandLand._autoSizeGross = False
Me.sbKennzeichenInlandLand._hideIfListEmpty = True
Me.sbKennzeichenInlandLand._value = ""
@@ -1097,7 +1413,8 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.Panel2.Controls.Add(Me.txtLieferbedingungort)
Me.Panel2.Controls.Add(Me.Label24)
Me.Panel2.Controls.Add(Me.Label30)
Me.Panel2.Location = New System.Drawing.Point(0, 551)
Me.Panel2.Enabled = False
Me.Panel2.Location = New System.Drawing.Point(0, 520)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(930, 41)
Me.Panel2.TabIndex = 60
@@ -1140,10 +1457,12 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtLieferbedingungText._DateTimeOnly = False
Me.txtLieferbedingungText._numbersOnly = False
Me.txtLieferbedingungText._numbersOnlyKommastellen = ""
Me.txtLieferbedingungText._numbersOnlyTrennzeichen = True
Me.txtLieferbedingungText._Prozent = False
Me.txtLieferbedingungText._ShortDateNew = False
Me.txtLieferbedingungText._ShortDateOnly = False
Me.txtLieferbedingungText._TimeOnly = False
Me.txtLieferbedingungText._TimeOnly_Seconds = False
Me.txtLieferbedingungText._value = ""
Me.txtLieferbedingungText._Waehrung = False
Me.txtLieferbedingungText._WaehrungZeichen = True
@@ -1172,10 +1491,12 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtLieferbedingungort._DateTimeOnly = False
Me.txtLieferbedingungort._numbersOnly = False
Me.txtLieferbedingungort._numbersOnlyKommastellen = ""
Me.txtLieferbedingungort._numbersOnlyTrennzeichen = True
Me.txtLieferbedingungort._Prozent = False
Me.txtLieferbedingungort._ShortDateNew = False
Me.txtLieferbedingungort._ShortDateOnly = False
Me.txtLieferbedingungort._TimeOnly = False
Me.txtLieferbedingungort._TimeOnly_Seconds = False
Me.txtLieferbedingungort._value = ""
Me.txtLieferbedingungort._Waehrung = False
Me.txtLieferbedingungort._WaehrungZeichen = True
@@ -1212,12 +1533,14 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
Me.txtRechnungspreisWaehrung._allowFreitext = False
Me.txtRechnungspreisWaehrung._AllowSetValue = False
Me.txtRechnungspreisWaehrung._allowSpaceAsSplitter = False
Me.txtRechnungspreisWaehrung._autoSizeGross = False
Me.txtRechnungspreisWaehrung._hideIfListEmpty = True
Me.txtRechnungspreisWaehrung._value = ""
Me.txtRechnungspreisWaehrung.conn_art = "FMZOLL"
Me.txtRechnungspreisWaehrung.dgvpos = "LEFT"
Me.txtRechnungspreisWaehrung.DISPLAY_PARAM = Nothing
Me.txtRechnungspreisWaehrung.Enabled = False
Me.txtRechnungspreisWaehrung.INVISIBLE_COLUMNS = Nothing
Me.txtRechnungspreisWaehrung.key_visible = False
Me.txtRechnungspreisWaehrung.KEYPARAM = Nothing
@@ -1237,13 +1560,16 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Me.txtRechnungspreis._DateTimeOnly = False
Me.txtRechnungspreis._numbersOnly = True
Me.txtRechnungspreis._numbersOnlyKommastellen = "2"
Me.txtRechnungspreis._numbersOnlyTrennzeichen = True
Me.txtRechnungspreis._Prozent = False
Me.txtRechnungspreis._ShortDateNew = False
Me.txtRechnungspreis._ShortDateOnly = False
Me.txtRechnungspreis._TimeOnly = False
Me.txtRechnungspreis._TimeOnly_Seconds = False
Me.txtRechnungspreis._value = ""
Me.txtRechnungspreis._Waehrung = False
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.MaxLength = 70
@@ -1257,6 +1583,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'Label21
'
Me.Label21.Enabled = False
Me.Label21.Location = New System.Drawing.Point(556, 496)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(135, 13)
@@ -1275,6 +1602,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'Label31
'
Me.Label31.Enabled = False
Me.Label31.Location = New System.Drawing.Point(611, 263)
Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(103, 13)
@@ -1283,30 +1611,25 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
'
'Label25
'
Me.Label25.Enabled = False
Me.Label25.Location = New System.Drawing.Point(611, 244)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(103, 13)
Me.Label25.TabIndex = 27
Me.Label25.Text = "Pk."
'
'Label33
'
Me.Label33.Location = New System.Drawing.Point(835, 477)
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(68, 13)
Me.Label33.TabIndex = 61
Me.Label33.Text = "kg"
'
'usrCntlATLAS_EZA_Allg
'usrCntlTCeZOLL_EZA_Allg
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlATLAS_EZA_Allg"
Me.Size = New System.Drawing.Size(930, 632)
Me.Name = "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()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
@@ -1377,7 +1700,7 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Friend WithEvents cbxAnmelderIstEmpfänger As System.Windows.Forms.CheckBox
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents cboVerfahren As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtRohmasse As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtGesRohmasse As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label29 As Label
Friend WithEvents txtVP_ATBNr2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVP_ATBNr1 As VERAG_PROG_ALLGEMEIN.MyTextBox
@@ -1397,4 +1720,27 @@ Partial Class usrCntlTCeZOLL_EZA_Allg
Friend WithEvents txtContainerNr1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label32 As Label
Friend WithEvents Label33 As Label
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents clmnOrigin As DataGridViewTextBoxColumn
Friend WithEvents clmnTarifnummer As DataGridViewTextBoxColumn
Friend WithEvents clmnWarenbeschreibung As DataGridViewTextBoxColumn
Friend WithEvents clmnPackstuecke As DataGridViewTextBoxColumn
Friend WithEvents clmnPkArt As DataGridViewTextBoxColumn
Friend WithEvents clmnRohmasse As DataGridViewTextBoxColumn
Friend WithEvents clmnEigenmasse As DataGridViewTextBoxColumn
Friend WithEvents clmnPreis As DataGridViewTextBoxColumn
Friend WithEvents clmnWaehrung As DataGridViewTextBoxColumn
Friend WithEvents MyDatagridview2 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents clmnAnhart As DataGridViewTextBoxColumn
Friend WithEvents clmnAnhReferenz As DataGridViewTextBoxColumn
Friend WithEvents clmnAnhDatum As DataGridViewTextBoxColumn
Friend WithEvents Label35 As Label
Friend WithEvents Label34 As Label
Friend WithEvents Button1 As Button
Friend WithEvents Label36 As Label
Friend WithEvents txtEigenmasse As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtRohmasse As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label37 As Label
Friend WithEvents Label38 As Label
Friend WithEvents Label39 As Label
End Class

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

@@ -117,4 +117,76 @@
<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>
<metadata name="clmnTarifnummer.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnWarenbeschreibung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPackstuecke.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPkArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnRohmasse.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnEigenmasse.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<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>
<metadata name="clmnOrigin.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnTarifnummer.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnWarenbeschreibung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPackstuecke.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPkArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnRohmasse.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnEigenmasse.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnWaehrung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root>

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

@@ -1,4 +1,8 @@
Public Class usrCntlTCeZOLL_EZA_Allg
Imports GrapeCity.ActiveReports.ReportsCore.Tools
Imports Microsoft.Office.Core
Imports sun.security.pkcs10
Public Class usrCntlTCeZOLL_EZA_Allg
Property EZA_ART = "EZA"
Dim TEL_ANM As TELOTEC_Worker.cTelotec_Anmeldung = Nothing
@@ -376,10 +380,52 @@
' Case CheckState.Unchecked : EZA.eza_AnmelderistEmpfaenger = "N"
'End Select
EZA.POSITIONSDATEN.Clear()
Dim cnt = 1
For Each row As DataGridViewRow In MyDatagridview1.Rows
If row.Index - 1 = MyDatagridview1.Rows.Count - 1 Then Exit For
Dim POS As New TELOTEC_Worker.cTelotec_Positionsdaten
POS.Pos_ID = cnt
cnt += 1
POS.Item_ComCd = row.Cells("clmnTarifnummer").Value
POS.Item_GdsDes = row.Cells("clmnWarenbeschreibung").Value
POS.Item_Gross = row.Cells("clmnRohmasse").Value
POS.Item_Net = row.Cells("clmnEigenmasse").Value
POS.Item_ItVal = row.Cells("clmnPreis").Value
POS.PACKSTUECKE.Clear()
Dim PACK As New TELOTEC_Worker.cTelotec_Packstuecke
PACK.Pack_Kind = row.Cells("clmnPkArt").Value
PACK.Pack_Nr = row.Cells("clmnPackstuecke").Value
POS.PACKSTUECKE.Add(PACK)
POS.DOC_CERTS.Clear()
For Each rowDoc As DataGridViewRow In MyDatagridview2.Rows
If rowDoc.Index - 1 = MyDatagridview2.Rows.Count - 1 Then Exit For
Dim DOC As New TELOTEC_Worker.cTelotec_PositionsdatenDokumente
DOC.DocCerts_DocCd = rowDoc.Cells("clmnAnhart").Value
DOC.DocCerts_DRef = rowDoc.Cells("clmnAnhReferenz").Value
DOC.DocCerts_IssD = rowDoc.Cells("clmnAnhDatum").Value
POS.DOC_CERTS.Add(DOC)
Next
EZA.POSITIONSDATEN.Add(POS)
Next
End Sub
Public Sub setPosValues(TEL_ANM As TELOTEC_Worker.cTelotec_Anmeldung)
If TEL_ANM Is Nothing Then Exit Sub
If TEL_ANM.POSITIONSDATEN Is Nothing Then Exit Sub
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"})
Next
End Sub
Public Sub setValues(TEL_ANM As TELOTEC_Worker.cTelotec_Anmeldung)
If TEL_ANM Is Nothing Then Exit Sub
@@ -564,4 +610,33 @@
txtVPReferenz.Focus() 'wg.enabled
End If
End Sub
Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged
Label36.Visible = False
If IsNumeric(txtRohmasse._value) And IsNumeric(txtEigenmasse._value) Then
If CDbl(txtRohmasse._value) < CDbl(txtEigenmasse._value) Then
Label36.Visible = True
End If
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Not IsNumeric(txtEigenmasse._value) Then Exit Sub
If Not IsNumeric(txtRohmasse._value) Then Exit Sub
Dim gesPreis As Double = 0
For Each row As DataGridViewRow In MyDatagridview1.Rows
If row.Cells("clmnPreis").Value IsNot Nothing AndAlso IsNumeric(row.Cells("clmnPreis").Value) Then
gesPreis += CDbl(row.Cells("clmnPreis").Value)
End If
Next
For Each row As DataGridViewRow In MyDatagridview1.Rows
row.Cells("clmnEigenmasse").Value = CDbl(CDbl(row.Cells("clmnPreis").Value) * (CDbl(txtEigenmasse._value) / gesPreis)).ToString("N2")
row.Cells("clmnRohmasse").Value = CDbl(CDbl(row.Cells("clmnPreis").Value) * (CDbl(txtRohmasse._value) / gesPreis)).ToString("N2")
Next
End Sub
End Class