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 |