/[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 3107 by torben, Tue Aug 23 14:08:44 2016 UTC revision 3108 by torben, Mon Aug 29 14:03:14 2016 UTC
# Line 1443  begin Line 1443  begin
1443      if (chkUdenforSpecifikation.Checked = True) then      if (chkUdenforSpecifikation.Checked = True) then
1444      begin      begin
1445        URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]);        URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]);
1446        //ShowMessage( URLStr);        //InputBox( '1', '1', URLStr);
1447    
1448        WebSvar := IdHTTP1.Get(Config.URLUdenforSpecifikation);        WebSvar := IdHTTP1.Get(URLStr);
1449        //ShowMessage( WebSvar );        //InputBox( '2', '2', WebSvar );
1450    
1451        chkUdenforSpecifikation.Checked := False;        chkUdenforSpecifikation.Checked := False;
1452        LabelPrint.PrintLabel(Stregkode);        LabelPrint.PrintLabel(Stregkode);
1453    
1454          StregkodeST.Caption := '';
1455          Stregkode := '';
1456    
1457          RuteNummerST.Caption := '';
1458          BoghandlerNavnST.Caption := '';
1459          KommentarST.Caption := 'Retur til leverandør';
1460    
1461    
1462    
1463    
1464        exit;   //leave procedure        exit;   //leave procedure
1465      end;      end;
1466    
Legend:
Removed from v.3107  
changed lines
  Added in v.3108
  ViewVC Help
Powered by ViewVC 1.1.20