MDM, USTVA, MDMFunctions,

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -481,6 +481,14 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
         Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
     End Function
 
+    Shared Function getISO3LandFromLandNr(LandNr As Integer)
+        If Not IsNumeric(LandNr) Then Return Nothing
+        If LandNr = 0 Then Return Nothing
+        Dim sqlstr = "SELECT TOP 1 isnull(LandKz_ISO_3,'') AS LandKzISO3 from [Länderverzeichnis für die Außenhandelsstatistik] where LandNr = '" & LandNr & "' "
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
+    End Function
+
     Shared Function getISO2Land(LandKz As String)
         If LandKz Is Nothing Then Return Nothing
         Dim sqlstr = "SELECT TOP 1 isnull([Länderverzeichnis für die Außenhandelsstatistik].LandKz,'') AS LandKzISO2 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 & "' "