/[projects]/dao/DelphiScanner/Configuration.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Configuration.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3088 by torben, Mon Aug 15 15:56:50 2016 UTC revision 3097 by torben, Sun Aug 21 22:34:01 2016 UTC
# Line 39  type Line 39  type
39      YPosSmskode : integer;      YPosSmskode : integer;
40      FontSizeSmskode : integer;      FontSizeSmskode : integer;
41    
42         FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
43              FarveIndlevering : String;
44    
45         TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,
46              TitelIndlevering : String;
47    
48    
49    
# Line 49  type Line 54  type
54      URLPrintLabel : String;      URLPrintLabel : String;
55      UrlEKLoverforselPakkeshop : String;      UrlEKLoverforselPakkeshop : String;
56    
57        URLUdenforSpecifikation : String;
58        UrlEmballageRepareret : String;
59    
60      UrlFindPakketype, UrlSendPrograminfo: String;      UrlFindPakketype, UrlSendPrograminfo: String;
61    
62        AlarmLyd : String;
63        ScannetOkLyd : String;
64        ScannetOkStorLyd : String;
65    
66        ScannetOkTilTjekkodeLyd : String;
67    
68        PrinterNavn : String;
69        TjekPrinter : String;
70    
71        SporgEfterBoghandler : String;
72    
73        ScanTjekkode : String;
74        ScanTjekkodeAutomatik : string;
75    
76        TjekUrls : String;
77        TestFunktionen : String;
78    
79        LabelStor : integer;
80    
81    
82    
83      procedure ReadFromInifile( iniFile: TIniFile);      procedure ReadFromInifile( iniFile: TIniFile);
# Line 60  type Line 87  type
87    
88  implementation  implementation
89    
90  uses Utils;  uses Utils, SysUtils;
91    
92    
93  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
# Line 71  begin Line 98  begin
98    
99    with iniFile do    with iniFile do
100    begin    begin
101        FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');
102        TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');
103        FarveReturDAO := ReadString('Settings','FarveReturDAO','A9F5A9');
104        TitelReturDAO := ReadString('Settings','TitelReturDAO','Returforsendelse fra DAO');
105        FarveReturBoghandler := ReadString('Settings','FarveReturBoghandler','F2F5A9');
106        TitelReturBoghandler := ReadString('Settings','TitelReturBoghandler','Returforsendelse fra boghandler');
107        FarveBudlevering := ReadString('Settings','FarveBudlevering','2E9AFE');
108        TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
109        FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
110        TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');
111    
112        FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
113        TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');
114    
115        FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
116        TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');
117    
118    
119        SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
120        ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
121        ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
122    
123        //Scanningtype := ReadString('Settings','Scanningtype','A');  //Scanningstype skal ikke lęses fra config
124        //Pakketype := ReadString('Settings','Pakketype','0');        //Pakketype Skal ikke lęses fra config
125    
126        TestFunktionen := ReadString('Settings','TestFunktion','0');
127    
128        AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
129        ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
130        ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
131    
132        ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
133    
134        PrinterNavn := ReadString('Settings','PrinterNavn','');
135        TjekPrinter := ReadString('Settings','TjekPrinter','1');
136        TjekUrls := ReadString('Settings','TjekUrls','2');
137    
138    
139        LabelType := ReadInteger('Settings','LabelType', 1);
140    
141      LabelType := ReadInteger('Settings','LabelType',1);      LabelStor := ReadInteger('Settings','LabelStor', 0);
142    
143      if LabelType = 0 then      if LabelType = 0 then
144      begin      begin
# Line 193  begin Line 259  begin
259      URLOmdirigerTilPakkeshop := BaseURL + '/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s';      URLOmdirigerTilPakkeshop := BaseURL + '/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s';
260      URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);      URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);
261    
262      URLPrintLabel := BaseURL + '/BogpakkeKontrol/PrintLabel.php?stregkode=%s';      UrlEmballageRepareret := BaseURL + '/webservices/pakkeshop/EmballageRepareret.php?sted=%s&stregkode=%s';
263        UrlEmballageRepareret := InjectURL(UrlEmballageRepareret);
264    
265        URLUdenforSpecifikation := BaseURL + '/webservices/pakkeshop/UdenforSpecifikation.php?sted=%s&stregkode=%s';
266        URLUdenforSpecifikation := InjectURL(URLUdenforSpecifikation);
267    
268    
269        URLPrintLabel := BaseURL + '/WebServices/BogpakkeKontrol/PrintLabel.php?stregkode=%s';
270      URLPrintLabel := InjectURL(URLPrintLabel);      URLPrintLabel := InjectURL(URLPrintLabel);
271    
272    
273    
274        //Finally check for files:
275        if not FileExists(AlarmLyd) then
276        begin
277          AlarmLyd := '';
278        end;
279    
280        if not FileExists(ScannetOkLyd) then
281        begin
282          ScannetOkLyd := '';
283        end;
284    
285        if not FileExists(ScannetOkStorLyd) then
286        begin
287          ScannetOkStorLyd := '';
288        end;
289    
290    
291        if not FileExists(ScannetOkTilTjekkodeLyd) then
292        begin
293          ScannetOkTilTjekkodeLyd := '';
294        end;
295    
296    
297    
298  end;  end;
299    
300    
Legend:
Removed from v.3088  
changed lines
  Added in v.3097
  ViewVC Help
Powered by ViewVC 1.1.20