mdm, div. Änderungen, etc.

VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMIC.vb

@@ -252,5 +252,13 @@
     End Function
 
 
+    Public Class Paramter
+
+        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='MIC' AND [Param_name]='" & tcParam_name & "'  AND Param_testsystem = " & IIf(TESTSYSTEM, 1, 0), , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
+        End Function
+    End Class
+
 
 End Class