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

TC

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

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

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