new

SDL/cProgramFunctions.vb

@@ -135,6 +135,11 @@ Public Class cProgramFunctions
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
         Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
     End Function
+    Shared Function isEULand(LandKz As String)
+        Dim sqlstr = "SELECT count(*)  FROM [Währungstabelle] where LandKz='" & LandKz & "' and MitgliedslandEU=1"
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Return CBool(SQL.getValueTxtBySql(sqlstr, "FMZOLL"))
+    End Function
 
     Shared Function getLandBez_fromISO1Land(LandKz As String, Optional returnValue As Object = Nothing)
         If LandKz Is Nothing Then Return returnValue