IDS_Anhang, VM Formulare, MDM, Asfinag, UTA, MSE, RMC

VERAG_PROG_ALLGEMEIN/Classes/cAsfinagMaut.vb

@@ -100,4 +100,29 @@ Public Class cAsfinagMaut
     End Function
 
 
+    Public ANLAGEN
+
+    Dim Dateiname = ""
+
+    Public Function initImportPfade() As Boolean
+
+        ANLAGEN = cAsfinagMaut.Paramter.GET_PARAM_ByName("ANLAGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+
+        Return True
+
+    End Function
+
+
+    Public Class Paramter
+
+        Shared apiSettingsloaded As Boolean = False
+        Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+        Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
+            Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value]  FROM [tblPartnersystem_Paramter] WHERE  Param_system='ASFINAG' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
+        End Function
+    End Class
+
+
 End Class
+