--- dao/DelphiScanner/Main.pas 2016/08/21 21:56:01 3096 +++ dao/DelphiScanner/Main.pas 2016/08/21 22:34:01 3097 @@ -1436,11 +1436,24 @@ begin URLStr := Format(Config.UrlEmballageRepareret,[Sted,Stregkode]); WebSvar := IdHTTP1.Get(URLStr); - ShowMessage( WebSvar ); chkEmballageRepareret.Checked := False; end; + if (chkUdenforSpecifikation.Checked = True) then + begin + URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]); + //ShowMessage( URLStr); + + WebSvar := IdHTTP1.Get(Config.URLUdenforSpecifikation); + //ShowMessage( WebSvar ); + + chkUdenforSpecifikation.Checked := False; + LabelPrint.PrintLabel(Stregkode); + exit; //leave procedure + end; + + if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then