--- dao/DelphiScanner/Configuration.pas 2016/08/15 19:26:48 3090 +++ dao/DelphiScanner/Configuration.pas 2016/10/19 06:59:57 3124 @@ -54,8 +54,13 @@ URLPrintLabel : String; UrlEKLoverforselPakkeshop : String; + URLUdenforSpecifikation : String; + UrlEmballageRepareret : String; + UrlFindPakketype, UrlSendPrograminfo: String; + UrlHentPakkeAntal: String; + AlarmLyd : String; ScannetOkLyd : String; ScannetOkStorLyd : String; @@ -73,6 +78,8 @@ TjekUrls : String; TestFunktionen : String; + LabelStor : integer; + procedure ReadFromInifile( iniFile: TIniFile); @@ -131,7 +138,9 @@ TjekUrls := ReadString('Settings','TjekUrls','2'); - LabelType := ReadInteger('Settings','LabelType',1); + LabelType := ReadInteger('Settings','LabelType', 1); + + LabelStor := ReadInteger('Settings','LabelStor', 0); if LabelType = 0 then begin @@ -252,9 +261,19 @@ URLOmdirigerTilPakkeshop := BaseURL + '/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s'; URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop); - URLPrintLabel := BaseURL + '/BogpakkeKontrol/PrintLabel.php?stregkode=%s'; + UrlEmballageRepareret := BaseURL + '/webservices/pakkeshop/EmballageRepareret.php?sted=%s&stregkode=%s'; + UrlEmballageRepareret := InjectURL(UrlEmballageRepareret); + + URLUdenforSpecifikation := BaseURL + '/webservices/pakkeshop/UdenforSpecifikation.php?sted=%s&stregkode=%s'; + URLUdenforSpecifikation := InjectURL(URLUdenforSpecifikation); + + + URLPrintLabel := BaseURL + '/WebServices/BogpakkeKontrol/PrintLabel.php?stregkode=%s'; URLPrintLabel := InjectURL(URLPrintLabel); + UrlHentPakkeAntal := BaseURL + '/WebServices/BogpakkeKontrol/HentPakkeAntal.php?sted=%s'; + UrlHentPakkeAntal := InjectURL(UrlHentPakkeAntal); + //Finally check for files: