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

61
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -2445,6 +2445,10 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
''=====IMPORT IN VERAG DATENMODELL==========
'Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
'IMP.ImportDakosyNCTS(NCTS_TMP, False)
''==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
@@ -3134,6 +3138,11 @@ Public Class cWorker_NCTS
cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
'======================================================
''=====IMPORT IN VERAG DATENMODELL==========
'Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
'IMP.ImportDakosyNCTS(NCTS_TMP, False)
''==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
@@ -3207,6 +3216,11 @@ Public Class cWorker_NCTS
cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
'======================================================
''=====IMPORT IN VERAG DATENMODELL==========
'Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
'IMP.ImportDakosyNCTS(NCTS_TMP, False)
''==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'====================================================
@@ -3276,6 +3290,11 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
'=====IMPORT IN VERAG DATENMODELL==========
Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
IMP.ImportDakosyNCTS(NCTS_TMP, True)
'==================================
'=======BEREITSTELLUNG DER DATEN AN FREMDSYSTEME=======
cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP)
'======================================================
@@ -3352,6 +3371,11 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
'=====IMPORT IN VERAG DATENMODELL==========
Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
IMP.ImportDakosyNCTS(NCTS_TMP, True)
'==================================
'=======BEREITSTELLUNG DER DATEN AN FREMDSYSTEME=======
cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP)
'======================================================
@@ -3660,6 +3684,11 @@ Public Class cWorker_NCTS
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
''=====IMPORT IN VERAG DATENMODELL==========
'Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
'IMP.ImportDakosyNCTS(NCTS_TMP, False)
''==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
@@ -3780,6 +3809,11 @@ Public Class cWorker_NCTS
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
''=====IMPORT IN VERAG DATENMODELL==========
'Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
'IMP.ImportDakosyNCTS(NCTS_TMP, True)
''==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
@@ -3950,6 +3984,13 @@ Public Class cWorker_NCTS
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
'=====IMPORT IN VERAG DATENMODELL==========
Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
IMP.ImportDakosyNCTS(NCTS_TMP, True)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
@@ -4178,6 +4219,11 @@ Public Class cWorker_NCTS
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
'=====IMPORT IN VERAG DATENMODELL==========
Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
IMP.ImportDakosyNCTS(NCTS_TMP, True)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
@@ -4469,6 +4515,11 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
''''=====IMPORT IN VERAG DATENMODELL==========
'''Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
'''IMP.ImportDakosyNCTS(NCTS_TMP, True)
''''==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
@@ -4546,6 +4597,11 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
'''=====IMPORT IN VERAG DATENMODELL==========
''Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
''IMP.ImportDakosyNCTS(NCTS_TMP, False)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
@@ -4622,6 +4678,11 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
'=====IMPORT IN VERAG DATENMODELL==========
Dim IMP As New DAKOSY_Worker.cImporter_DakosyToVERAG
IMP.ImportDakosyNCTS(NCTS_TMP, True)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================