diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.Designer.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.Designer.vb index 31f5785c..890d50e7 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.Designer.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.Designer.vb @@ -22,9 +22,8 @@ Partial Class usrCntlATLAS_EZA 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ 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() diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb index 339436ce..5a0489e6 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb @@ -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 diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb index ddd601d1..45da35ab 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb @@ -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 diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb index 2d6b4820..e8176e9a 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb @@ -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 diff --git a/SDL/ZOLLSYSTEM/TELOTEC/cTelotecInterface_Send.vb b/SDL/ZOLLSYSTEM/TELOTEC/cTelotecInterface_Send.vb index 450f20bc..5a8d1d0f 100644 --- a/SDL/ZOLLSYSTEM/TELOTEC/cTelotecInterface_Send.vb +++ b/SDL/ZOLLSYSTEM/TELOTEC/cTelotecInterface_Send.vb @@ -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" diff --git a/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.Designer.vb b/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.Designer.vb index 44beb7a9..e00e41aa 100644 --- a/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.Designer.vb +++ b/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.Designer.vb @@ -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 diff --git a/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.vb b/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.vb index 52fb4aba..3a92dd03 100644 --- a/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.vb +++ b/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.vb @@ -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 diff --git a/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.Designer.vb b/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.Designer.vb index 78a371a3..1bdd05ef 100644 --- a/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.Designer.vb +++ b/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.Designer.vb @@ -22,7 +22,32 @@ Partial Class usrCntlTCeZOLL_EZA_Allg 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 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 diff --git a/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.resx b/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.resx index 1af7de15..653ef663 100644 --- a/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.resx +++ b/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.resx @@ -117,4 +117,76 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + \ No newline at end of file diff --git a/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.vb b/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.vb index 77a33a04..b279f3ca 100644 --- a/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.vb +++ b/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA_Allg.vb @@ -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