|
|
| sets code page for export to file |
 |
| codepage |
code page |
|
global
procedure SetBankCodepage(Integer bank)
begin
string 100 s;
s = "CP850";
switch (bank) begin
case 0: s = "CP850"; // Denmark - Midtbank
case 1: s = "CP850"; // Denmark - Jyske Bank
case 2: s = "CP850"; // Denmark - Den Denske Bank
case 3: s = "CP850"; // Denmark - SYDBANK
case 4: s = "CP850"; // Denmark - Unibank
case 5: s = "CP850"; // Denmark - BGBank
case 15: s = "CP1257"; // Estonia - Microbanker
case 16: s = "CP1257"; // Estonia - Telehansa
// case 17: s = "CP1257"; // Estonia - Tele pank
case 18: s = "CP1257"; // Estonia - Ж_hispank
case 19: s = "CP1257"; // Estonia - Riigikassa
case 13:
if (WindowsMode) then begin
s = "CP1252"; // Finland - LM 00
end else begin
s = "MACINTOSH"; // Finland - LM 00
end;
case 14:
if (WindowsMode) then begin
s = "CP1252"; // Finland - LM 02
end else begin
s = "MACINTOSH"; // Finland - LM 02
end;
case 24:
if (WindowsMode) then begin
s = "CP1252"; // Finland - LM 03
end else begin
s = "MACINTOSH"; // Finland - LM 03
end;
case 25:
if (WindowsMode) then begin
s = "CP1252"; // Finland - LM 03
end else begin
s = "MACINTOSH"; // Finland - LM 03
end;
case 26:
if (WindowsMode) then begin
s = "CP1252"; // Finland - LM 03
end else begin
s = "MACINTOSH"; // Finland - LM 03
end;
case 20: s = "CP1257"; // Latvia - 1
case 21: s = "CP1257"; // Latvia - 2
case 22: s = "CP1257"; // Latvia - 3
case 32: s = "CP1257"; // Latvia - Hansabank
case 52: s = "CP1257"; // Latvia - Nord LB
// case 33: s = "CP1257"; // Latvia - Pareks-bank
// case 44: s = "CP1257"; // Latvia - Vereinsbank
case 9: s = "CP850"; // Norway - DnB Telepay
case 10: s = "CP850"; // Norway - K-Link
case 11: s = "CP850"; // Norway - SparNett
case 12: s = "CP850"; // Norway - Postbanken
case 6:
if (WindowsMode) then begin
s = "CP850"; // Sweden - SE-Banken//CP1252
end else begin
s = "CP850"; // Sweden - SE-Banken
end;
case 7:
if (WindowsMode) then begin
s = "CP1252"; // Sweden - Handelsbanken
end else begin
s = "MACINTOSH"; // Sweden - Handelsbanken
end;
case 8:
if (WindowsMode) then begin
s = "CP850"; // Sweden - Nordbanken//CP1252
end else begin
s = "CP850"; // Sweden - Nordbanken
end;
case 23:
if (WindowsMode) then begin
s = "CP850"; // Sweden - FЪreningsSparbanken//CP1252
end else begin
s = "CP850"; // Sweden - FЪreningsSparbanken
end;
case 63:
if (WindowsMode) then begin
s = "CP1252"; // //Sweden - Plusgirot
end else begin
s = "MACINTOSH"; // //Sweden - Plusgirot
end;
case 30: s = "CP850"; // England - Albany
case 31: s = "CP850"; // England - BACS
case 33: s = "CP850"; // England - Hexagon
case 40: s = "CP850"; // Iceland - bunaМarbankinn
case 41: s = "CP850"; // Iceland - LANDSBANKINN
case 42: s = "CP850"; // Iceland - ISLANDSBANKI
case 43: s = "CP850"; // Iceland - SPARISJODIR
case 50: s = "CP1250"; // Poland - ING Bank
case 51: s = "CP1250"; // Poland - Reiffaisen Bank
case 61: s = "CP1257"; // Lithuania - LITAS-ESIS
case 62: s = "CP850"; // Lithuania - Reiffaisen Bank
case 63: s = "CP1252"; //Sweden - Plusgirot
case 70: s = "CP1250"; // Czech - Komercni banka
case 71: s = "CP1250"; // Ceskoslovenska obchodni banka - CSOB
case 72: s = "CP1250"; // Ceska sporitelna - CS
case 73: s = "CP1250"; // Czech - CITI bank
case 90: s = "CP1250"; // Slovenia
end;
if (SetExportCodepage(s)==false) then begin
LogText(0,"Failed to set codepage " & s);
end;
return;
end;
|
««