Asfinag

initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb

@@ -7,22 +7,25 @@ Public Class frmAsfinag_NachrichtenVerabeitung
     Dim allowClose = False
     Dim PARTNERSYSTEM = "ASFINAG"
     Dim FileType As String
+    Dim testFTP As Boolean
     Dim asfinag As New cAsfinag()
     Dim Dateiname = ""
 
-    Sub New(FileType)
+    Sub New(FileType, testFTP)
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
         Me.FileType = FileType
+        Me.testFTP = testFTP
     End Sub
-    Sub New(FileType, allowClose) 'autostart
+    Sub New(FileType, testFTP, allowClose) 'autostart
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
-        FileType = FileType
+        Me.FileType = FileType
+        Me.testFTP = testFTP
         Me.allowClose = allowClose
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
@@ -30,6 +33,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung
 
     Private Sub frmDYNachrichtenVerarbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load
         lblTestsystem.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
+        lblFTP.Text = IIf(testFTP, "TEST-FTP", "PROD-FTP")
         asfinag.initImportPfade()
 
         If FileType <> "" Then
@@ -59,7 +63,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung
         Try
             Dim stringLIst As New List(Of String)
             Label9.Visible = True
-            Dim cnt = asfinag.getNachrichtenDatenFromFTP(stringLIst, FileType)
+            Dim cnt = asfinag.getNachrichtenDatenFromFTP(stringLIst, FileType, testFTP)
             For Each s In stringLIst
                 Dim targetsystem As String = "nicht definiert"
                 If s.Substring(0, 1) = "T" Then