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