FTP ATEZ

initATLASAufschubkonten/cWorker_NCTS.vb

@@ -2002,7 +2002,6 @@ Public Class cWorker_NCTS
                 NCTS_TMP.insertIntoSpedBuch(DY_TMP)
 
 
-
                 '=====ATEZ BEREITSTELLUNG==========
                 checkATEZ_Bereitstellung(DY_TMP, d)
                 '==================================
@@ -2025,14 +2024,14 @@ Public Class cWorker_NCTS
 
     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 IsNot Nothing Then
-                'If ATEZ.status < 40 Then
-                FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\")
-                'End If
-            End If
+            '   If ATEZ.status IsNot Nothing Then
+            'If ATEZ.status < 40 Then
+            Dim fio As New IO.FileInfo(filePath)
+                FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
+            'End If
+            '  End If
         End If
     End Sub