edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

StartOptions

Browse Source
This commit is contained in:
d.breimaier
2024-11-19 08:58:15 +01:00
parent 084245fc9e
commit b3d2d60c53
4 changed files with 696 additions and 671 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -23,6 +23,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
Dim ids As New cIDS
Dim programName As String
Dim Dateiname = ""
Public year As Integer
Sub New(programName As String)
@@ -115,7 +116,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
If programName.Contains("RMC") Then
DownloadFtpDirectory(rmc.API_STRING & "/", New NetworkCredential(rmc.API.Rows(0).Item("api_user").ToString, rmc.API.Rows(0).Item("api_password").ToString), "", cnt, deleteFilesAfterDownload)
ElseIf programName.Contains("UTA") Then
DownloadSFtpDirectory(uta.API_STRING, New NetworkCredential(uta.API.Rows(0).Item("api_user").ToString, uta.API.Rows(0).Item("api_password").ToString), "", cnt, deleteFilesAfterDownload, "/TRX/" & Now.Year, renameFilesAfterDownload)
DownloadSFtpDirectory(uta.API_STRING, New NetworkCredential(uta.API.Rows(0).Item("api_user").ToString, uta.API.Rows(0).Item("api_password").ToString), "", cnt, deleteFilesAfterDownload, "/TRX/" & year, renameFilesAfterDownload)
ElseIf programName.Contains("IDS") Then
'keinFTP (NOCH NICHT)!
End If