Merge branch 'ADMIN' of https://verag.visualstudio.com/ADMIN/_git/ADMIN into ADMIN

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)

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

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