NCTS ATEZ

initATLASAufschubkonten/cWorker_NCTS.vb

@@ -2451,6 +2451,10 @@ Public Class cWorker_NCTS
                 '=====ATEZ BEREITSTELLUNG==========
                 checkATEZ_Bereitstellung(DY_TMP, d)
                 '==================================
+                '=====ATEZ IRU BEREITSTELLUNG==========
+                checkATEZIRU_Bereitstellung(DY_TMP, d)
+                '==================================
+
 
 
                 FORM.addDGVEinarbeitung("NCTS: StatusmeldungNCTSDE", STATUS.dySt_BezugsNr)
@@ -3131,6 +3135,9 @@ Public Class cWorker_NCTS
                 '=====ATEZ BEREITSTELLUNG==========
                 checkATEZ_Bereitstellung(DY_TMP, d)
                 '==================================
+                '=====ATEZ IRU BEREITSTELLUNG==========
+                checkATEZIRU_Bereitstellung(DY_TMP, d)
+                '==================================
 
                 FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung", STATUS.dySt_BezugsNr)
             End If
@@ -3197,6 +3204,9 @@ Public Class cWorker_NCTS
                 '=====ATEZ BEREITSTELLUNG==========
                 checkATEZ_Bereitstellung(DY_TMP, d)
                 '==================================
+                '=====ATEZ IRU BEREITSTELLUNG==========
+                checkATEZIRU_Bereitstellung(DY_TMP, d)
+                '==================================
 
                 FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung 003", STATUS.dySt_BezugsNr)
             End If
@@ -3263,6 +3273,9 @@ Public Class cWorker_NCTS
                 '=====ATEZ BEREITSTELLUNG==========
                 checkATEZ_Bereitstellung(DY_TMP, d)
                 '==================================
+                '=====ATEZ IRU BEREITSTELLUNG==========
+                checkATEZIRU_Bereitstellung(DY_TMP, d)
+                '==================================
 
                 FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung 003", STATUS.dySt_BezugsNr)
             End If
@@ -3332,6 +3345,9 @@ Public Class cWorker_NCTS
                 '=====ATEZ BEREITSTELLUNG==========
                 checkATEZ_Bereitstellung(DY_TMP, d)
                 '==================================
+                '=====ATEZ IRU BEREITSTELLUNG==========
+                checkATEZIRU_Bereitstellung(DY_TMP, d)
+                '==================================
 
                 FORM.addDGVEinarbeitung("NCTS: Ereignismitteilung001", STATUS.dySt_BezugsNr)
             End If
@@ -3631,6 +3647,9 @@ Public Class cWorker_NCTS
                 '=====ATEZ BEREITSTELLUNG==========
                 checkATEZ_Bereitstellung(DY_TMP, d)
                 '==================================
+                '=====ATEZ IRU BEREITSTELLUNG==========
+                checkATEZIRU_Bereitstellung(DY_TMP, d)
+                '==================================
 
                 FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
             End If
@@ -3745,6 +3764,9 @@ Public Class cWorker_NCTS
                 '=====ATEZ BEREITSTELLUNG==========
                 checkATEZ_Bereitstellung(DY_TMP, d)
                 '==================================
+                '=====ATEZ IRU BEREITSTELLUNG==========
+                checkATEZIRU_Bereitstellung(DY_TMP, d)
+                '==================================
 
                 FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
             End If
@@ -3908,6 +3930,9 @@ Public Class cWorker_NCTS
                 '=====ATEZ BEREITSTELLUNG==========
                 checkATEZ_Bereitstellung(DY_TMP, d)
                 '==================================
+                '=====ATEZ IRU BEREITSTELLUNG==========
+                checkATEZIRU_Bereitstellung(DY_TMP, d)
+                '==================================
 
                 FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
             End If
@@ -4087,6 +4112,9 @@ Public Class cWorker_NCTS
                     '=====ATEZ BEREITSTELLUNG==========
                     checkATEZ_Bereitstellung(DY_TMP, d)
                     '==================================
+                    '=====ATEZ IRU BEREITSTELLUNG==========
+                    checkATEZIRU_Bereitstellung(DY_TMP, d)
+                    '==================================
 
                     FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
                 End If
@@ -4126,6 +4154,64 @@ Public Class cWorker_NCTS
         End If
     End Sub
 
+    Shared Sub checkATEZIRU_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 (DY_TMP.dy_BezugsNr.Contains("IRU0")) Then
+            '  Dim fio As New IO.FileInfo(filePath)
+            '  FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
+
+            Try
+
+                If Not System.IO.File.Exists(filePath) Then
+
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). File existert nicht.", "" & vbNewLine & "Datei: " & filePath, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    Exit Sub
+                End If
+                Dim F As New System.IO.FileInfo(filePath)
+
+                'Dim DY_server = "91.93.197.91"
+                'Dim DY_name = "Verag"
+                'Dim DY_pwd = "5P1PYOr1"
+                ''Dim DY_name = "Verag-test"
+                ''Dim DY_pwd = "A1ZDTK99"
+                'Dim DY_port = "22"
+                'Dim DY_PFAD_IN = ""
+                'Dim DY_PFAD_IN_KD = ""
+
+
+                Dim DY_server = "sftp-01.singlewindow.io"
+                Dim DY_name = "IRU-TEST"
+                Dim DY_pwd = "T1AF58OP"
+                'Dim DY_name = "Verag-test"
+                'Dim DY_pwd = "A1ZDTK99"
+                Dim DY_port = "22"
+                Dim DY_PFAD_IN = "/TIR/DE/OUT"
+                Dim DY_PFAD_IN_KD = ""
+
+                'getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY)
+
+                Dim ConnectionInfo As New Renci.SshNet.ConnectionInfo(DY_server, DY_port, DY_name, New Renci.SshNet.PasswordAuthenticationMethod(DY_name, DY_pwd))
+                Using client = New Renci.SshNet.SftpClient(ConnectionInfo)
+                    client.Connect()
+                    If DY_PFAD_IN <> "" Then client.ChangeDirectory(DY_PFAD_IN)
+                    Using uplfileStream = System.IO.File.OpenRead(filePath)
+                        client.UploadFile(uplfileStream, "." & F.Name, True)
+                        client.RenameFile("." & F.Name, F.Name)
+                    End Using
+                    client.Disconnect()
+                End Using
+
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Senden an ATEZ FTP (IRU-NCTS-File). " & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                Exit Sub
+            End Try
+
+
+        End If
+    End Sub
+
     Shared Sub checkATEZ_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)
@@ -4154,13 +4240,23 @@ Public Class cWorker_NCTS
                 End If
                 Dim F As New System.IO.FileInfo(filePath)
 
-                Dim DY_server = "91.93.197.91"
+                'Dim DY_server = "91.93.197.91"
-                Dim DY_name = "Verag"
+                'Dim DY_name = "Verag"
-                Dim DY_pwd = "5P1PYOr1"
+                'Dim DY_pwd = "5P1PYOr1"
+                ''Dim DY_name = "Verag-test"
+                ''Dim DY_pwd = "A1ZDTK99"
+                'Dim DY_port = "22"
+                'Dim DY_PFAD_IN = ""
+                'Dim DY_PFAD_IN_KD = ""
+
+
+                Dim DY_server = "sftp-01.singlewindow.io"
+                Dim DY_name = "IRU-TEST"
+                Dim DY_pwd = "T1AF58OP"
                 'Dim DY_name = "Verag-test"
                 'Dim DY_pwd = "A1ZDTK99"
                 Dim DY_port = "22"
-                Dim DY_PFAD_IN = ""
+                Dim DY_PFAD_IN = "/TIR/DE/OUT"
                 Dim DY_PFAD_IN_KD = ""
 
                 'getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY)
@@ -4266,6 +4362,9 @@ Public Class cWorker_NCTS
                 '=====ATEZ BEREITSTELLUNG==========
                 checkATEZ_Bereitstellung(DY_TMP, d)
                 '==================================
+                '=====ATEZ IRU BEREITSTELLUNG==========
+                checkATEZIRU_Bereitstellung(DY_TMP, d)
+                '==================================
 
                 FORM.addDGVEinarbeitung("NCTS: AnrechnungReferenzbetäege", STATUS.dySt_BezugsNr)
             End If
@@ -4336,6 +4435,9 @@ Public Class cWorker_NCTS
                 '=====ATEZ BEREITSTELLUNG==========
                 checkATEZ_Bereitstellung(DY_TMP, d)
                 '==================================
+                '=====ATEZ IRU BEREITSTELLUNG==========
+                checkATEZIRU_Bereitstellung(DY_TMP, d)
+                '==================================
 
                 FORM.addDGVEinarbeitung("NCTS: AnrechnungReferenzbetäege", STATUS.dySt_BezugsNr)
             End If
@@ -4405,6 +4507,9 @@ Public Class cWorker_NCTS
                 '=====ATEZ BEREITSTELLUNG==========
                 checkATEZ_Bereitstellung(DY_TMP, d)
                 '==================================
+                '=====ATEZ IRU BEREITSTELLUNG==========
+                checkATEZIRU_Bereitstellung(DY_TMP, d)
+                '==================================
 
                 FORM.addDGVEinarbeitung("NCTS: AnrechnungReferenzbetäege", STATUS.dySt_BezugsNr)
             End If

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -14,7 +14,7 @@ Public Class frmDYNachrichtenVerarbeitung
     Dim VERARBEITUNGS_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\"
     Dim ZIEL_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Ablage\"
     Dim ERROR_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_ERROR\"
-    Dim BOX_VERSION = "8.8"
+    Dim BOX_VERSION = "10"
 
     Dim Dateiname = ""
 
@@ -1142,7 +1142,9 @@ Public Class frmDYNachrichtenVerarbeitung
                                         '=====ATEZ BEREITSTELLUNG==========
                                         cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d)
                                         '==================================
-
+                                        '=====ATEZ IRU BEREITSTELLUNG==========
+                                        cWorker_NCTS.checkATEZIRU_Bereitstellung(DY_TMP2, d)
+                                        '==================================
 
                                     Case "EZA", ""
                                         Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "EZA")
@@ -1277,7 +1279,9 @@ Public Class frmDYNachrichtenVerarbeitung
                                         '=====ATEZ BEREITSTELLUNG==========
                                         cWorker_NCTS.checkATEZ_Bereitstellung(DY_TMP2, d)
                                         '==================================
-
+                                        '=====ATEZ IRU BEREITSTELLUNG==========
+                                        cWorker_NCTS.checkATEZIRU_Bereitstellung(DY_TMP2, d)
+                                        '==================================
 
                                     Case "EZA", ""
                                         Dim DY_TMP2 As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS2, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "EZA")
@@ -10808,5 +10812,16 @@ Public Class frmDYNachrichtenVerarbeitung
         Return atez
 
     End Function
+
+    Shared Function isAtezIRU(bezugsNr As String) As Boolean
+        Dim atez As Boolean = False
+
+        If bezugsNr <> "" AndAlso bezugsNr.Length > 4 AndAlso bezugsNr.Substring(bezugsNr.Length, 4) = "IRU0" Then
+            atez = True
+        End If
+
+        Return atez
+
+    End Function
 End Class