neu

SDL/cProgramFunctions.vb

@@ -141,8 +141,18 @@ Public Class cProgramFunctions
         Return CBool(SQL.getValueTxtBySql(sqlstr, "FMZOLL"))
     End Function
 
-    Shared Function getLandBez_fromISO1Land(LandKz As String, Optional returnValue As Object = Nothing)
+    Shared Function getLandBez_fromISO1Land(LandKz As String, Optional returnValue As Object = Nothing, Optional RechnungSprache As String = "DE")
         If LandKz Is Nothing Then Return returnValue
+        Select Case RechnungSprache
+            Case "EN"
+                Select Case LandKz
+                    Case "GB" : Return "UNITED KINGDOM"
+                    Case "FR" : Return "FRANCE"
+                    Case "ES" : Return "SPAIN"
+                    Case "IT" : Return "ITALY"
+                    Case "TR" : Return "TURKEY"
+                End Select
+        End Select
         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")