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

Merge branch 'ADMIN' of https://dev.azure.com/VeragAG/_git/ADMIN into ADMIN

Browse Source
This commit is contained in:
d.breimaier
2025-10-06 10:47:09 +02:00
parent 09cd251c81 bc9247db6b
commit 58047b88c7
5 changed files with 204 additions and 21 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)
'==================================

34
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -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