MDM, Mahnungen, EORI, Kundenblatt, MSEAPI, UTA, Zollanmeldungen_Import_Dakosy

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -464,6 +464,13 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
     End Function
 
 
+    Shared Function getISO2LandFromISO3Land(Iso3Land As String)
+        If Iso3Land Is Nothing Then Return Nothing
+        If Iso3Land.Length <> 3 Then Return Nothing
+        Dim sqlstr = "SELECT TOP 1 isnull(LandKz,'') AS LandKzISO2 from [Länderverzeichnis für die Außenhandelsstatistik] where LandKz_ISO_3 = '" & Iso3Land & "' "
+        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