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========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d) checkATEZ_Bereitstellung(DY_TMP, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d) checkATEZIRU_Bereitstellung(DY_TMP, d)
'================================== '==================================
@@ -3135,6 +3139,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d) checkATEZ_Bereitstellung(DY_TMP, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d) checkATEZIRU_Bereitstellung(DY_TMP, d)
'================================== '==================================
@@ -3203,6 +3211,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d) checkATEZ_Bereitstellung(DY_TMP, d)
'====================================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'================================== '==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d) checkATEZIRU_Bereitstellung(DY_TMP, d)
@@ -3273,6 +3285,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d) checkATEZ_Bereitstellung(DY_TMP, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d) checkATEZIRU_Bereitstellung(DY_TMP, d)
'================================== '==================================
@@ -3345,6 +3361,9 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d) checkATEZ_Bereitstellung(DY_TMP, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d) checkATEZIRU_Bereitstellung(DY_TMP, d)
'================================== '==================================
@@ -3647,6 +3666,9 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d) checkATEZ_Bereitstellung(DY_TMP, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d) checkATEZIRU_Bereitstellung(DY_TMP, d)
'================================== '==================================
@@ -3764,6 +3786,9 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d) checkATEZ_Bereitstellung(DY_TMP, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d) checkATEZIRU_Bereitstellung(DY_TMP, d)
'================================== '==================================
@@ -3930,6 +3955,9 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d) checkATEZ_Bereitstellung(DY_TMP, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d) checkATEZIRU_Bereitstellung(DY_TMP, d)
'================================== '==================================
@@ -4112,6 +4140,9 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d) checkATEZ_Bereitstellung(DY_TMP, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d) checkATEZIRU_Bereitstellung(DY_TMP, d)
'================================== '==================================
@@ -4154,6 +4185,19 @@ Public Class cWorker_NCTS
End If End If
End Sub 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 = "") 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 If DY_TMP Is Nothing Then Exit Sub
@@ -4225,6 +4269,20 @@ Public Class cWorker_NCTS
' End If ' End If
End If End If
End Sub 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) 'Shared Sub checkATEZIRU_BereitstellungBezugsNr(dy_BezugsNr As String, filePath As String)
' If dy_BezugsNr = "" Then Exit Sub ' If dy_BezugsNr = "" Then Exit Sub
' Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr) ' Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(dy_BezugsNr)
@@ -4363,6 +4421,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d) checkATEZ_Bereitstellung(DY_TMP, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d) checkATEZIRU_Bereitstellung(DY_TMP, d)
'================================== '==================================
@@ -4436,6 +4498,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d) checkATEZ_Bereitstellung(DY_TMP, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d) checkATEZIRU_Bereitstellung(DY_TMP, d)
'================================== '==================================
@@ -4508,6 +4574,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d) checkATEZ_Bereitstellung(DY_TMP, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
checkATEZIRU_Bereitstellung(DY_TMP, d) checkATEZIRU_Bereitstellung(DY_TMP, d)
'================================== '==================================

34
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -1219,6 +1219,9 @@ Public Class frmDYNachrichtenVerarbeitung
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d) cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG EZA==========
cWorker_NCTS.checkATEZ_BereitstellungDHUB(DY_TMP2, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
cWorker_NCTS.checkATEZIRU_Bereitstellung(DY_TMP2, d) cWorker_NCTS.checkATEZIRU_Bereitstellung(DY_TMP2, d)
'================================== '==================================
@@ -1356,6 +1359,11 @@ Public Class frmDYNachrichtenVerarbeitung
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d) cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG==========
cWorker_NCTS.checkATEZ_BereitstellungDHUB(DY_TMP2, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
cWorker_NCTS.checkATEZIRU_Bereitstellung(DY_TMP2, d) cWorker_NCTS.checkATEZIRU_Bereitstellung(DY_TMP2, d)
'================================== '==================================
@@ -1532,6 +1540,10 @@ Public Class frmDYNachrichtenVerarbeitung
'=====ATEZ BEREITSTELLUNG========== '=====ATEZ BEREITSTELLUNG==========
cWorker_NCTS.checkATEZ_BereitstellungBezugsNr(BezugsNr, d) cWorker_NCTS.checkATEZ_BereitstellungBezugsNr(BezugsNr, d)
'================================== '==================================
'=====ATEZ BEREITSTELLUNG==========
cWorker_NCTS.checkATEZ_BereitstellungBezugsNrDHUB(BezugsNr, d)
'==================================
'=====ATEZ IRU BEREITSTELLUNG========== '=====ATEZ IRU BEREITSTELLUNG==========
cWorker_NCTS.checkATEZIRU_BereitstellungBezugsNr(BezugsNr, d) 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 If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE() STATUS.SAVE()
'=====ATEZ BEREITSTELLUNG==========
cWorker_NCTS.checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
addDGVEinarbeitung("EZA: Nicht-abschließende Festsetzung", STATUS.dySt_BezugsNr) addDGVEinarbeitung("EZA: Nicht-abschließende Festsetzung", STATUS.dySt_BezugsNr)
End If End If
Catch ex As Exception Catch ex As Exception
@@ -8587,6 +8605,12 @@ Public Class frmDYNachrichtenVerarbeitung
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE() STATUS.SAVE()
'=====ATEZ BEREITSTELLUNG==========
cWorker_NCTS.checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
addDGVEinarbeitung("EZA: Stornierung Bescheid", STATUS.dySt_BezugsNr) addDGVEinarbeitung("EZA: Stornierung Bescheid", STATUS.dySt_BezugsNr)
End If End If
Catch ex As Exception Catch ex As Exception
@@ -9109,6 +9133,12 @@ Public Class frmDYNachrichtenVerarbeitung
'If If(EZA_TMP.eza_firma, "") = "IMEX" Then EZA_TMP.insertIntoSpedBuch(DY_TMP) 'If If(EZA_TMP.eza_firma, "") = "IMEX" Then EZA_TMP.insertIntoSpedBuch(DY_TMP)
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) addDGVEinarbeitung("EZA: Abschließende Festsetzung", STATUS.dySt_BezugsNr)
End If End If
Catch ex As Exception Catch ex As Exception
@@ -10303,6 +10333,10 @@ Public Class frmDYNachrichtenVerarbeitung
EZA_TMP.insertIntoSpedBuch(DY_TMP) EZA_TMP.insertIntoSpedBuch(DY_TMP)
'=====ATEZ BEREITSTELLUNG==========
cWorker_NCTS.checkATEZ_BereitstellungDHUB(DY_TMP, d)
'==================================
addDGVEinarbeitung("EZA: Abgabenbescheid", STATUS.dySt_BezugsNr) addDGVEinarbeitung("EZA: Abgabenbescheid", STATUS.dySt_BezugsNr)
End If End If