ATEZ Bereitstellung DY; 4802 ATILLA

initATLASAufschubkonten/cWorker_NCTS.vb

@@ -1240,7 +1240,7 @@ Public Class cWorker_NCTS
                 If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN : NCTS_TMP.SAVE()
             End If
         End If
-            saveDY_NCTS = NCTS_TMP
+        saveDY_NCTS = NCTS_TMP
     End Function
 
     Shared Sub SaveNCTS_FirmaNL(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, division As String)
@@ -1699,8 +1699,13 @@ Public Class cWorker_NCTS
                 If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
                 STATUS.SAVE()
 
-                ' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
+                '=======BEREITSTELLUNG DER DATEN AN FREMDSYSTEME=======
                 cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
+                '======================================================
+
+                '=====ATEZ BEREITSTELLUNG==========
+                checkATEZ_Bereitstellung(DY_TMP, d)
+                '==================================
 
                 FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung", STATUS.dySt_BezugsNr)
             End If
@@ -1998,6 +2003,10 @@ Public Class cWorker_NCTS
 
 
 
+                '=====ATEZ BEREITSTELLUNG==========
+                checkATEZ_Bereitstellung(DY_TMP, d)
+                '==================================
+
                 FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
             End If
         Catch ex As Exception
@@ -2014,6 +2023,18 @@ Public Class cWorker_NCTS
         End If
     End Sub
 
+    Shared Sub checkATEZ_Bereitstellung(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 ATEZ IsNot Nothing AndAlso ATEZ.hasEntry Then
+            If ATEZ.status Then
+                FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\")
+            End If
+        End If
+    End Sub
+
+
 
     Shared Function readNCTS_AnrechnungReferenzbetraege(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
         Try
@@ -2071,6 +2092,10 @@ Public Class cWorker_NCTS
                 If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
                 STATUS.SAVE()
 
+                '=====ATEZ BEREITSTELLUNG==========
+                checkATEZ_Bereitstellung(DY_TMP, d)
+                '==================================
+
                 FORM.addDGVEinarbeitung("NCTS: AnrechnungReferenzbetäege", STATUS.dySt_BezugsNr)
             End If
         Catch ex As Exception