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

EXG-GEstellung, Tetrapak

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-10-23 23:24:14 +02:00
parent ca3c6a16bf
commit b67c2dfd1b
8 changed files with 454 additions and 172 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -708,7 +708,16 @@ Public Class usrCntlATLAS_EZA
EZA.eza_LetzteBearbeitung = Now
EZA.eza_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
EZA.eza_firma = Me.FIRMA_DY
For Each p In EZA.eza_WARENPOS
Debug.WriteLine("VOR | Pos " & p.ezaWP_PositionsNummer & " | Ursprung: " & If(p.ezaWP_UrsprungslandCode, "NULL").ToString())
Next
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungEZA(EZA, Me, DY_ANM)
For Each p In EZA.eza_WARENPOS
Debug.WriteLine("NACH | Pos " & p.ezaWP_PositionsNummer & " | Ursprung: " & If(p.ezaWP_UrsprungslandCode, "NULL").ToString())
Next
If Not EZA.SAVE_ALL() Then Exit Sub
Dim saveFile = ""
If DAKOSY_Interface_SEND.generateVersandanmeldungEZA(EZA, saveFile, cboDakosyAction._value) Then