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

eza greenpulse

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-10-16 16:02:49 +02:00
parent 3bdd07c272
commit 69c9ce6746
4 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
View File

@@ -1234,6 +1234,7 @@ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_
Next
packst = packst.Trim
PosAnzahl = DY.eza_WARENPOS.Count
If packst.Length > 185 Then packst = packst.Substring(0, 185) & "..."
SPEDITIONSBUCH.Packstücke = packst & ", " & rohmasseTmp.ToString("N1") & " kg"
If If(SPEDITIONSBUCH.Rohmasse, 0) = 0 AndAlso rohmasseTmp > 0 Then SPEDITIONSBUCH.Rohmasse = CInt(rohmasseTmp)
@@ -1359,6 +1360,7 @@ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_
Next
packst = packst.Trim
PosAnzahl = DY.aes_WARENPOS.Count
If packst.Length > 185 Then packst = packst.Substring(0, 185) & "..."
SPEDITIONSBUCH.Packstücke = packst & ", " & rohmasseTmp.ToString("N1") & " kg"
If If(SPEDITIONSBUCH.Rohmasse, 0) = 0 AndAlso rohmasseTmp > 0 Then SPEDITIONSBUCH.Rohmasse = CInt(rohmasseTmp)

4
DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb
View File

@@ -127,7 +127,7 @@ Public Class cDakosyEZA_Greenpulse
ByRef details As cATEZ_Greenpulse_KafkaDecs.ImporterDetailsNode)
' Pflicht: EORI in Parties
parties.ImporterIdentificationNumber = eori
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = cZOLL_IMPORT.getAdresseFromEORI(eori, "", "")
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = cZOLL_IMPORT.getAdresseFromEORI(eori, "", "", True)
If AD IsNot Nothing Then
details.ImporterTitle = (If(AD.Name_1, "") & " " & If(AD.Name_2, "")).trim
@@ -146,7 +146,7 @@ Public Class cDakosyEZA_Greenpulse
ByRef parties As cATEZ_Greenpulse_KafkaDecs.PartiesNode,
ByRef details As cATEZ_Greenpulse_KafkaDecs.ExporterDetailsNode)
parties.ExporterIdentificationNumber = eori
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = cZOLL_IMPORT.getAdresseFromEORI(eori, "", "")
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = cZOLL_IMPORT.getAdresseFromEORI(eori, "", "", True)
If AD IsNot Nothing Then
details.ExporterTitle = (If(AD.Name_1, "") & " " & If(AD.Name_2, "")).trim