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

Diff of /dao/DelphiScanner/Main.pas

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

revision 3096 by torben, Sun Aug 21 21:56:01 2016 UTC revision 3097 by torben, Sun Aug 21 22:34:01 2016 UTC
# Line 1436  begin Line 1436  begin
1436      begin      begin
1437        URLStr := Format(Config.UrlEmballageRepareret,[Sted,Stregkode]);        URLStr := Format(Config.UrlEmballageRepareret,[Sted,Stregkode]);
1438        WebSvar := IdHTTP1.Get(URLStr);        WebSvar := IdHTTP1.Get(URLStr);
       ShowMessage( WebSvar );  
1439    
1440        chkEmballageRepareret.Checked := False;        chkEmballageRepareret.Checked := False;
1441      end;      end;
1442    
1443        if (chkUdenforSpecifikation.Checked = True) then
1444        begin
1445          URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]);
1446          //ShowMessage( URLStr);
1447    
1448          WebSvar := IdHTTP1.Get(Config.URLUdenforSpecifikation);
1449          //ShowMessage( WebSvar );
1450    
1451          chkUdenforSpecifikation.Checked := False;
1452          LabelPrint.PrintLabel(Stregkode);
1453          exit;   //leave procedure
1454        end;
1455    
1456    
1457    
1458    
1459      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
Legend:
Removed from v.3096  
changed lines
  Added in v.3097
  ViewVC Help
Powered by ViewVC 1.1.20