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

ATEZ DHUB

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-10-02 16:42:49 +02:00
parent 610008089b
commit e912482f67
2 changed files with 104 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -2451,6 +2451,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d)
'==================================
@@ -3135,6 +3139,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d)
'==================================
@@ -3203,6 +3211,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'====================================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d)
@@ -3273,6 +3285,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d)
'==================================
@@ -3345,6 +3361,9 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d)
'==================================
@@ -3647,6 +3666,9 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d)
'==================================
@@ -3764,6 +3786,9 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d)
'==================================
@@ -3930,6 +3955,9 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d)
'==================================
@@ -4112,6 +4140,9 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d)
'==================================
@@ -4154,6 +4185,19 @@ Public Class cWorker_NCTS
End If
End Sub
Shared Sub checkATEZ_BereitstellungDHUB(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String)
If DY_TMP Is Nothing Then Exit Sub
Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(DY_TMP.dy_BezugsNr)
If DY_TMP.dy_BezugsNr.Contains("DHUB") Then
' If ATEZ.status IsNot Nothing Then
'If ATEZ.status < 40 Then
Dim fio As New System.IO.FileInfo(filePath)
FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\DAKOSY_DeclarantHub\" & fio.Name.Replace("lock_", ""))
'End If
' End If
End If
End Sub
Shared Sub checkATEZIRU_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String, Optional Division3 As String = "")
If DY_TMP Is Nothing Then Exit Sub
@@ -4225,6 +4269,20 @@ Public Class cWorker_NCTS
' End If
End If
End Sub
Shared Sub checkATEZ_BereitstellungBezugsNrDHUB(dy_BezugsNr As String, filePath As String)
If dy_BezugsNr = "" Then Exit Sub
Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr)
If dy_BezugsNr.Contains("DHUB") Then
' If ATEZ.status IsNot Nothing Then
'If ATEZ.status < 40 Then
Dim fio As New System.IO.FileInfo(filePath)
FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\DAKOSY_DeclarantHub\" & fio.Name.Replace("lock_", ""))
'End If
' End If
End If
End Sub
'Shared Sub checkATEZIRU_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String)
' If dy_BezugsNr = "" Then Exit Sub
' Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr)
@@ -4363,6 +4421,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d)
'==================================
@@ -4436,6 +4498,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d)
'==================================
@@ -4508,6 +4574,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d)
'==================================