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 |
|
|