From e912482f671f7d6cae949e50dbd766066292eb6f Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 2 Oct 2025 16:42:49 +0200 Subject: [PATCH] ATEZ DHUB --- initATLASAufschubkonten/cWorker_NCTS.vb | 70 +++++++++++++++++++ .../frmDYNachrichtenVerarbeitung.vb | 34 +++++++++ 2 files changed, 104 insertions(+) diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index 3b3c14b..45d0e91 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -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) '================================== diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index d113060..c376ee8 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -1219,6 +1219,9 @@ Public Class frmDYNachrichtenVerarbeitung '=====ATEZ BEREITSTELLUNG========== cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d) '================================== + '=====ATEZ BEREITSTELLUNG EZA========== + cWorker_NCTS.checkATEZ_BereitstellungDHUB(DY_TMP2, d) + '================================== '=====ATEZ IRU BEREITSTELLUNG========== cWorker_NCTS.checkATEZIRU_Bereitstellung(DY_TMP2, d) '================================== @@ -1356,6 +1359,11 @@ Public Class frmDYNachrichtenVerarbeitung '=====ATEZ BEREITSTELLUNG========== cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d) '================================== + + '=====ATEZ BEREITSTELLUNG========== + cWorker_NCTS.checkATEZ_BereitstellungDHUB(DY_TMP2, d) + '================================== + '=====ATEZ IRU BEREITSTELLUNG========== cWorker_NCTS.checkATEZIRU_Bereitstellung(DY_TMP2, d) '================================== @@ -1532,6 +1540,10 @@ Public Class frmDYNachrichtenVerarbeitung '=====ATEZ BEREITSTELLUNG========== cWorker_NCTS.checkATEZ_BereitstellungBezugsNr(BezugsNr, d) '================================== + + '=====ATEZ BEREITSTELLUNG========== + cWorker_NCTS.checkATEZ_BereitstellungBezugsNrDHUB(BezugsNr, d) + '================================== '=====ATEZ IRU BEREITSTELLUNG========== cWorker_NCTS.checkATEZIRU_BereitstellungBezugsNr(BezugsNr, d) '================================== @@ -8498,6 +8510,12 @@ Public Class frmDYNachrichtenVerarbeitung If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id STATUS.SAVE() + + '=====ATEZ BEREITSTELLUNG========== + cWorker_NCTS.checkATEZ_BereitstellungDHUB(DY_TMP, d) + '================================== + + addDGVEinarbeitung("EZA: Nicht-abschließende Festsetzung", STATUS.dySt_BezugsNr) End If Catch ex As Exception @@ -8587,6 +8605,12 @@ Public Class frmDYNachrichtenVerarbeitung If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id STATUS.SAVE() + + '=====ATEZ BEREITSTELLUNG========== + cWorker_NCTS.checkATEZ_BereitstellungDHUB(DY_TMP, d) + '================================== + + addDGVEinarbeitung("EZA: Stornierung Bescheid", STATUS.dySt_BezugsNr) End If Catch ex As Exception @@ -9109,6 +9133,12 @@ Public Class frmDYNachrichtenVerarbeitung 'If If(EZA_TMP.eza_firma, "") = "IMEX" Then EZA_TMP.insertIntoSpedBuch(DY_TMP) EZA_TMP.insertIntoSpedBuch(DY_TMP) + + '=====ATEZ BEREITSTELLUNG========== + cWorker_NCTS.checkATEZ_BereitstellungDHUB(DY_TMP, d) + '================================== + + addDGVEinarbeitung("EZA: Abschließende Festsetzung", STATUS.dySt_BezugsNr) End If Catch ex As Exception @@ -10303,6 +10333,10 @@ Public Class frmDYNachrichtenVerarbeitung EZA_TMP.insertIntoSpedBuch(DY_TMP) + '=====ATEZ BEREITSTELLUNG========== + cWorker_NCTS.checkATEZ_BereitstellungDHUB(DY_TMP, d) + '================================== + addDGVEinarbeitung("EZA: Abgabenbescheid", STATUS.dySt_BezugsNr) End If