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

NCTS ATEZ

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-11-13 17:10:29 +01:00
parent b7d937ac6a
commit 926fe73e50
2 changed files with 127 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -14,7 +14,7 @@ Public Class frmDYNachrichtenVerarbeitung
Dim VERARBEITUNGS_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\"
Dim ZIEL_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Ablage\"
Dim ERROR_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_ERROR\"
Dim BOX_VERSION = "8.8"
Dim BOX_VERSION = "10"
Dim Dateiname = ""
@@ -1142,7 +1142,9 @@ Public Class frmDYNachrichtenVerarbeitung
'=====ATEZ BEREITSTELLUNG==========
cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
cWorker_NCTS.checkATEZIRU_Bereitstellung(DY_TMP2, d)
'==================================
Case "EZA", ""
Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "EZA")
@@ -1277,7 +1279,9 @@ Public Class frmDYNachrichtenVerarbeitung
'=====ATEZ BEREITSTELLUNG==========
cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
cWorker_NCTS.checkATEZIRU_Bereitstellung(DY_TMP2, d)
'==================================
Case "EZA", ""
Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "EZA")
@@ -10808,5 +10812,16 @@ Public Class frmDYNachrichtenVerarbeitung
Return atez
End Function
Shared Function isAtezIRU(bezugsNr As String) As Boolean
Dim atez As Boolean = False
If bezugsNr <> "" AndAlso bezugsNr.Length > 4 AndAlso bezugsNr.Substring(bezugsNr.Length, 4) = "IRU0" Then
atez = True
End If
Return atez
End Function
End Class