From 64795a798bfc2fadc39bd5694e1fb602b41614df Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Tue, 27 Aug 2024 10:08:38 +0200
Subject: [PATCH] ATEZ IRU NCTS

---
 initATLASAufschubkonten/cWorker_NCTS.vb       | 45 +++++++++++++++++++
 .../frmDYNachrichtenVerarbeitung.vb           |  4 +-
 initATLASAufschubkonten/frmStartOptions.vb    |  3 ++
 3 files changed, 51 insertions(+), 1 deletion(-)

diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb
index 099711b..b04fa9a 100644
--- a/initATLASAufschubkonten/cWorker_NCTS.vb
+++ b/initATLASAufschubkonten/cWorker_NCTS.vb
@@ -3939,6 +3939,51 @@ Public Class cWorker_NCTS
             '  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)
+        If (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 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-test"
+                Dim DY_pwd = "A1ZDTK99"
+                Dim DY_port = "22"
+                Dim DY_PFAD_IN = ""
+                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_Bereitstellung_VBD(dy_BezugsNr As String, filePath As String)
diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
index 6dbf6e6..535f5dc 100644
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
@@ -1274,7 +1274,9 @@ Public Class frmDYNachrichtenVerarbeitung
                             '=====ATEZ BEREITSTELLUNG==========
                             cWorker_NCTS.checkATEZ_BereitstellungBezugsNr(BezugsNr, d)
                             '==================================
-
+                            '=====ATEZ IRU BEREITSTELLUNG==========
+                            cWorker_NCTS.checkATEZIRU_BereitstellungBezugsNr(BezugsNr, d)
+                            '==================================
 
                         End If
                     Next
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 3ab8191..35b35d4 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -101,6 +101,9 @@ Public Class frmStartOptions
         'doIDSPlatts()
         'Exit Sub
 
+        cWorker_NCTS.checkATEZIRU_BereitstellungBezugsNr("IRU0/123", "C:\Users\DEVELOPER1\Desktop\TEST.txt")
+
+
         'PARAM = "AMBAR_VERAG_BUCHUNGEN_CS"
         'Standart-Errorverhalten ist MAIL
         VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL