/[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 3117 by torben, Thu Sep 22 13:12:23 2016 UTC
# Line 203  type Line 203  type
203    procedure SetPrinterstatusText( txt: string; alert: boolean);    procedure SetPrinterstatusText( txt: string; alert: boolean);
204    function GetFormObject() : TForm;    function GetFormObject() : TForm;
205    function GetXMLDocument() : TXMLDocument;    function GetXMLDocument() : TXMLDocument;
206        procedure chkEmballageRepareretClick(Sender: TObject);
207        procedure chkUdenforSpecifikationClick(Sender: TObject);
208    
209    
210    
# Line 1443  begin Line 1445  begin
1445      if (chkUdenforSpecifikation.Checked = True) then      if (chkUdenforSpecifikation.Checked = True) then
1446      begin      begin
1447        URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]);        URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]);
1448        //ShowMessage( URLStr);        //InputBox( '1', '1', URLStr);
1449    
1450        WebSvar := IdHTTP1.Get(Config.URLUdenforSpecifikation);        WebSvar := IdHTTP1.Get(URLStr);
1451        //ShowMessage( WebSvar );        //InputBox( '2', '2', WebSvar );
1452    
1453        chkUdenforSpecifikation.Checked := False;        chkUdenforSpecifikation.Checked := False;
1454        LabelPrint.PrintLabel(Stregkode);        LabelPrint.PrintLabel(Stregkode);
1455    
1456          StregkodeST.Caption := '';
1457          Stregkode := '';
1458    
1459          RuteNummerST.Caption := '';
1460          BoghandlerNavnST.Caption := '';
1461          KommentarST.Caption := 'Retur til leverandør';
1462    
1463    
1464    
1465    
1466        exit;   //leave procedure        exit;   //leave procedure
1467      end;      end;
1468    
# Line 2450  begin Line 2463  begin
2463  end;  end;
2464    
2465    
2466    procedure TMainForm.chkUdenforSpecifikationClick(Sender: TObject);
2467    begin
2468      if (chkUdenforSpecifikation.Checked = true) then
2469      begin
2470        chkEmballageRepareret.Checked := false;
2471      end;
2472    end;
2473    
2474    procedure TMainForm.chkEmballageRepareretClick(Sender: TObject);
2475    begin
2476      if (chkEmballageRepareret.Checked = true) then
2477      begin
2478        chkUdenforSpecifikation.Checked := false;
2479      end;
2480    end;
2481    
2482  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
2483  begin  begin
2484    if chkAltidPrintLabel.Checked then    if chkAltidPrintLabel.Checked then
# Line 2463  begin Line 2492  begin
2492    
2493  end;  end;
2494    
2495    
2496    
2497  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
2498  begin  begin
2499    if chkScanTjekkode.Checked then    if chkScanTjekkode.Checked then
Legend:
Removed from v.3107  
changed lines
  Added in v.3117
  ViewVC Help
Powered by ViewVC 1.1.20