neu

SDL/cProgramFunctions.vb

@@ -136,7 +136,12 @@ Public Class cProgramFunctions
         Return 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
+        Dim sqlstr = "SELECT TOP 1 isnull([Länderverzeichnis für die Außenhandelsstatistik].[LandBez],'') AS [LandBez] FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel     WHERE Währungstabelle.LandKz='" & LandKz & "' "
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
+    End Function
 
     Shared Sub setControlReadOnly(ControlObj As Control, Optional readonlyBool As Boolean = True)
         '  ControlObj.Enabled = False