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

exg

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-10-16 10:25:23 +02:00
parent eec4e8e3dd
commit 67f501e6ed
3 changed files with 286 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
initATLASAufschubkonten/cWorker_AES_EXG.vb
View File

@@ -99,13 +99,12 @@ Public Class cWorker_AES_EXG
EXG_ITEM.exgPos_GoodsItemNumber = ITEM.GoodsItemNumber
'Tarifnummer prüfen und zusammenstellen
'Tarifnummer als 8-stelligen String zusammensetzen
Dim hsCode As String = If(ITEM.HarmonizedSystemSubHeadingCode, "").Trim()
Dim cnCode As String = If(ITEM.CombinedNomenclatureCode, "").Trim()
If cnCode <> "" Then cnCode = cnCode.PadLeft(2, "0"c)
EXG_ITEM.exgPos_CommodityCode = hsCode & cnCode
If (hsCode <> "" AndAlso hsCode.Length <> 6) OrElse (cnCode <> "" AndAlso cnCode.Length <> 2) OrElse (hsCode = "" AndAlso cnCode <> "") Then
Debug.WriteLine("Ungültige Warentarifnummer in Position " & ITEM.GoodsItemNumber & ": " & EXG_ITEM.exgPos_CommodityCode)
End If
EXG_ITEM.exgPos_DescriptionOfGoods = ITEM.DescriptionOfGoods