29 lines
924 B
VB.net
29 lines
924 B
VB.net
|
|
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, Optional toSystem = Nothing)
|
|
Me.FTP_Path = FTP_Path
|
|
Me.CooName = CooName
|
|
Me.toSystem = If(toSystem, CooName) 'Default ist toSystem
|
|
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
|
|
Public Class cVERAG_Interface_Settings
|
|
|
|
Property acticeInterface_OREGON As Boolean = True
|
|
Property acticeInterface_TOBB As Boolean = True
|
|
Property acticeInterface_EKOL As Boolean = True
|
|
Property acticeInterface_TEST As Boolean = True
|
|
Property acticeInterface_VERAG As Boolean = True
|
|
Property acticeInterface_IMEX As Boolean = True
|
|
|
|
Property acticeInterface_GASTONSCHUL_OUT As Boolean = True
|
|
End Class
|