neu

initATLASAufschubkonten/VERAG_Interface/cVERAG_Interface.vb

@@ -3,10 +3,13 @@ Public Class cVERAG_InterfaceSharedObjects
 
     Property FTP_Path As String = ""
     Property CooName As String = ""
+    Property toSystem As String = "" ' Wo tatsächlcih hingeschikt wird, auch bei TOBB ist dieser Wert "VERAG", wenn eine Kopie an VERAG gesendet werden soll...
 
-    Sub New(FTP_Path, CooName)
+    Sub New(FTP_Path, CooName, Optional toSystem = Nothing)
         Me.FTP_Path = FTP_Path
         Me.CooName = CooName
+        Me.toSystem = If(toSystem, CooName) 'Default ist toSystem
+
     End Sub
 
 End Class