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

Asfinag

Browse Source
This commit is contained in:
d.breimaier
2023-11-23 15:47:35 +01:00
parent c9aad69b94
commit 518a2ecaa7
6 changed files with 272 additions and 203 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
initATLASAufschubkonten/cAsfinag.vb
View File

@@ -1394,16 +1394,15 @@ Public Class cAsfinag
FTP_PFAD = cAsfinag.Paramter.GET_PARAM_ByName("SERVER_Path_In", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
If Not IO.Directory.Exists(VERARBEITUNG_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)
If Not IO.Directory.Exists(FTP_PFAD_TEST) Then IO.Directory.CreateDirectory(FTP_PFAD_TEST)
End Function
Function getNachrichtenDatenFromFTP(ByRef filenameList As List(Of String), ByVal fileType As String) As Integer
Function getNachrichtenDatenFromFTP(ByRef filenameList As List(Of String), ByVal fileType As String, ByRef testFTP As Boolean) As Integer
Dim cnt = 0
Try
Dim SERVERPath = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
If testFTP Then
SERVERPath = Me.FTP_PFAD_TEST
Else