ich habe mal ein 2-Dim Array mit den Länderkennzeichen (http://www.Zoll.de) und den Konstanten erstellt. Es sind die für die Europa Version.
Code: Alles auswählen
FUNCTION SeekEURO(cLand)
LOCAL aMP := EUROKENZ()
LOCAL nPosi := 0
LOCAL RetVar := geoCountryGermany
nPosi := AScan( aMP , {|x| x[1] == cLand} )
IF nPosi > 0
RetVar := aMP[nPosi,2]
ENDIF
RETURN RetVar
FUNCTION EUROKENZ()
LOCAL aMP := {;
{"AL",geoCountryAlbania },; // 6 Albanien
{"AR",geoCountryArgentina },; // 11 Argentinien
{"AU",geoCountryAustralia },; // 12 Australien
{"BD",geoCountryBangladesh },; // 23 Bangladesch
{"BE",geoCountryBelgium },; // 21 Belgien
{"BO",geoCountryBolivia },; // 26 Bolivien
{"BR",geoCountryBrazil },; // 32 Brasilien
{"BG",geoCountryBulgaria },; // 35 Bulgarien
{"CL",geoCountryChile },; // 46 Chile
{"CN",geoCountryChina },; // 45 China
{"DK",geoCountryDenmark },; // 61 Dänemark
{"DE",geoCountryGermany },; // 94 Deutschland
{"EC",geoCountryEcuador },; // 66 Ecuador
{"EE",geoCountryEstonia },; // 70 Estland
{"FI",geoCountryFinland },; // 77 Finnland
{"FR",geoCountryFrance },; // 84 Frankreich
{"GY",geoCountryFrenchGuiana },; // 76 Französisch-Guyana
{" ",geoCountryDefault },; // 0 Gebietsschema-ID des Computers des Benutzers
{"GE",geoCountryGeorgia },; // 88 Georgien
{"GR",geoCountryGreece },; // 98 Griechenland
{"GB",geoCountryUnitedKingdom },; // 242 Großbritannien
{"IN",geoCountryIndia },; // 113 Indien
{"ID",geoCountryIndonesia },; // 111 Indonesien
{"IE",geoCountryIreland },; // 68 Irland
{"IS",geoCountryIceland },; // 110 Island
{"IT",geoCountryItaly },; // 118 Italien
{"JP",geoCountryJapan },; // 122 Japan
{"CA",geoCountryCanada },; // 39 Kanada
{"CO",geoCountryColombia },; // 51 Kolumbien
{"LV",geoCountryLatvia },; // 140 Lettland
{"LI",geoCountryLiechtenstein },; // 145 Liechtenstein
{"LT",geoCountryLithuania },; // 141 Litauen
{"LU",geoCountryLuxembourg },; // 147 Luxemburg
{"MY",geoCountryMalaysia },; // 167 Malaysia
{"99",geoCountryMultiCountry },; // 39070 Mehrere Länder oder Länder, für die es keine GeoCountry-Konstante gibt
{"MX",geoCountryMexico },; // 166 Mexiko
{"NL",geoCountryTheNetherlands},; // 176 Niederlande
{"KP",geoCountryNorthKorea },; // 131 Nordkorea
{"NO",geoCountryNorway },; // 177 Norwegen
{"AT",geoCountryAustria },; // 14 Österreich
{"PY",geoCountryParaguay },; // 185 Paraguay
{"PE",geoCountryPeru },; // 187 Peru
{"PL",geoCountryPoland },; // 191 Polen
{"PT",geoCountryPortugal },; // 193 Portugal
{"RO",geoCountryRomania },; // 200 Rumänien
{"RU",geoCountryRussia },; // 203 Russland
{"SE",geoCountrySweden },; // 221 Schweden
{"CH",geoCountrySwitzerland },; // 223 Schweiz
{"SK",geoCountrySlovakia },; // 143 Slowakei
{"SI",geoCountrySlovenia },; // 212 Slowenien
{"ZA",geoCountrySouthAfrica },; // 209 Südafrika
{"KR",geoCountrySouthKorea },; // 134 Südkorea
{"ES",geoCountrySpain },; // 217 Spanien
{"SR",geoCountrySuriname },; // 181 Surinam
{"CZ",geoCountryCzechRepublic },; // 75 Tschechische Republik
{"TR",geoCountryTurkey },; // 235 Türkei
{"UA",geoCountryUkraine },; // 241 Ukraine
{"HU",geoCountryHungary },; // 109 Ungarn
{"UY",geoCountryUruguay },; // 246 Uruguay
{"VE",geoCountryVenezuela },; // 249 Venezuela
{"US",geoCountryUnitedStates },; // 244 Vereinigte Staaten
{"BY",geoCountryBelarus } } // 29 Weißrussland
RETURN aMP