--- dao/DelphiScanner/Configuration.pas 2016/08/15 19:26:48 3090 +++ dao/DelphiScanner/Configuration.pas 2016/08/21 22:34:01 3097 @@ -54,6 +54,9 @@ URLPrintLabel : String; UrlEKLoverforselPakkeshop : String; + URLUdenforSpecifikation : String; + UrlEmballageRepareret : String; + UrlFindPakketype, UrlSendPrograminfo: String; AlarmLyd : String; @@ -73,6 +76,8 @@ TjekUrls : String; TestFunktionen : String; + LabelStor : integer; + procedure ReadFromInifile( iniFile: TIniFile); @@ -131,7 +136,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,7 +259,14 @@ 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);