/[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 3090 by torben, Mon Aug 15 19:26:48 2016 UTC revision 3097 by torben, Sun Aug 21 22:34:01 2016 UTC
# Line 54  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;      AlarmLyd : String;
# Line 73  type Line 76  type
76      TjekUrls : String;      TjekUrls : String;
77      TestFunktionen : String;      TestFunktionen : String;
78    
79        LabelStor : integer;
80    
81    
82    
83      procedure ReadFromInifile( iniFile: TIniFile);      procedure ReadFromInifile( iniFile: TIniFile);
# Line 131  begin Line 136  begin
136      TjekUrls := ReadString('Settings','TjekUrls','2');      TjekUrls := ReadString('Settings','TjekUrls','2');
137    
138    
139      LabelType := ReadInteger('Settings','LabelType',1);      LabelType := ReadInteger('Settings','LabelType', 1);
140    
141        LabelStor := ReadInteger('Settings','LabelStor', 0);
142    
143      if LabelType = 0 then      if LabelType = 0 then
144      begin      begin
# Line 252  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    
Legend:
Removed from v.3090  
changed lines
  Added in v.3097
  ViewVC Help
Powered by ViewVC 1.1.20