66 |
Manual1: TMenuItem; |
Manual1: TMenuItem; |
67 |
PrinterstatusStaticText1: TStaticText; |
PrinterstatusStaticText1: TStaticText; |
68 |
Timer1: TTimer; |
Timer1: TTimer; |
69 |
CheckBox3: TCheckBox; |
chkScanTjekkode: TCheckBox; |
70 |
Scanogstjekkoden1: TMenuItem; |
Scanogstjekkoden1: TMenuItem; |
71 |
Automatisktjekkodestyring1: TMenuItem; |
Automatisktjekkodestyring1: TMenuItem; |
72 |
Automatiskvalg1: TMenuItem; |
Automatiskvalg1: TMenuItem; |
161 |
procedure CheckPrintQue(tjektype : string); |
procedure CheckPrintQue(tjektype : string); |
162 |
procedure Timer1Timer(Sender: TObject); |
procedure Timer1Timer(Sender: TObject); |
163 |
procedure Scanogstjekkoden1Click(Sender: TObject); |
procedure Scanogstjekkoden1Click(Sender: TObject); |
164 |
procedure CheckBox3Click(Sender: TObject); |
procedure chkScanTjekkodeClick(Sender: TObject); |
165 |
procedure Automatisktjekkodestyring1Click(Sender: TObject); |
procedure Automatisktjekkodestyring1Click(Sender: TObject); |
166 |
procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String); |
procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String); |
167 |
procedure Automatiskvalg1Click(Sender: TObject); |
procedure Automatiskvalg1Click(Sender: TObject); |
409 |
else |
else |
410 |
PakkeshopText1.Visible := false; |
PakkeshopText1.Visible := false; |
411 |
|
|
412 |
CheckBox3.Checked := false; |
chkScanTjekkode.Checked := false; |
413 |
CheckBox3.Enabled := false; |
chkScanTjekkode.Enabled := false; |
414 |
Scanogstjekkoden1.Enabled := false; |
Scanogstjekkoden1.Enabled := false; |
415 |
|
|
416 |
if (Scanningtype = '1') or (Scanningtype = '5') then |
if (Scanningtype = '1') or (Scanningtype = '5') then |
417 |
begin |
begin |
418 |
if (ScanTjekkode = '1') then |
if (ScanTjekkode = '1') then |
419 |
begin |
begin |
420 |
CheckBox3.Checked := true; |
chkScanTjekkode.Checked := true; |
421 |
CheckBox3.Enabled := true; |
chkScanTjekkode.Enabled := true; |
422 |
Scanogstjekkoden1.Enabled := true; |
Scanogstjekkoden1.Enabled := true; |
423 |
end |
end |
424 |
else |
else |
425 |
begin |
begin |
426 |
CheckBox3.Checked := false; |
chkScanTjekkode.Checked := false; |
427 |
CheckBox3.Enabled := true; // False vil forhindre indtastning af tjekkode i nat x-press scanning |
chkScanTjekkode.Enabled := true; // False vil forhindre indtastning af tjekkode i nat x-press scanning |
428 |
Scanogstjekkoden1.Enabled := true; // False vil forhindre indtastning af tjekkode i nat x-press scanning |
Scanogstjekkoden1.Enabled := true; // False vil forhindre indtastning af tjekkode i nat x-press scanning |
429 |
end; |
end; |
430 |
end; |
end; |
431 |
|
|
432 |
if Automatisktjekkodestyring1.Checked then |
if Automatisktjekkodestyring1.Checked then |
433 |
begin |
begin |
434 |
CheckBox3.Enabled := false; |
chkScanTjekkode.Enabled := false; |
435 |
Scanogstjekkoden1.Enabled := false; |
Scanogstjekkoden1.Enabled := false; |
436 |
end; |
end; |
437 |
|
|
490 |
begin |
begin |
491 |
if Automatisktjekkodestyring1.Checked then |
if Automatisktjekkodestyring1.Checked then |
492 |
begin |
begin |
493 |
CheckBox3.Enabled := false; |
chkScanTjekkode.Enabled := false; |
494 |
Scanogstjekkoden1.Enabled := false; |
Scanogstjekkoden1.Enabled := false; |
495 |
end |
end |
496 |
else |
else |
497 |
begin |
begin |
498 |
CheckBox3.Enabled := true; |
chkScanTjekkode.Enabled := true; |
499 |
Scanogstjekkoden1.Enabled := true; |
Scanogstjekkoden1.Enabled := true; |
500 |
end; |
end; |
501 |
|
|
722 |
|
|
723 |
if ScanTjekkode = '1' then |
if ScanTjekkode = '1' then |
724 |
begin |
begin |
725 |
CheckBox3.Checked := true; |
chkScanTjekkode.Checked := true; |
726 |
Scanogstjekkoden1.Checked := true; |
Scanogstjekkoden1.Checked := true; |
727 |
end |
end |
728 |
else |
else |
729 |
begin |
begin |
730 |
CheckBox3.Checked := false; |
chkScanTjekkode.Checked := false; |
731 |
Scanogstjekkoden1.Checked := false; |
Scanogstjekkoden1.Checked := false; |
732 |
end; |
end; |
733 |
|
|
734 |
if ScanTjekkodeAutomatik = '1' then |
if ScanTjekkodeAutomatik = '1' then |
735 |
begin |
begin |
736 |
Automatisktjekkodestyring1.Checked := true; |
Automatisktjekkodestyring1.Checked := true; |
737 |
CheckBox3.Enabled := false; |
chkScanTjekkode.Enabled := false; |
738 |
Scanogstjekkoden1.Enabled := false; |
Scanogstjekkoden1.Enabled := false; |
739 |
end; |
end; |
740 |
|
|
1327 |
|
|
1328 |
if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then |
if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then |
1329 |
begin |
begin |
1330 |
if CheckBox3.Enabled = true then |
if chkScanTjekkode.Enabled = true then |
1331 |
begin |
begin |
1332 |
if (CheckBox3.State = cbChecked) then |
if (chkScanTjekkode.State = cbChecked) then |
1333 |
begin |
begin |
1334 |
CheckBox3.State := cbUnchecked; |
chkScanTjekkode.State := cbUnchecked; |
1335 |
end |
end |
1336 |
else |
else |
1337 |
begin |
begin |
1338 |
CheckBox3.State := cbChecked; |
chkScanTjekkode.State := cbChecked; |
1339 |
end; |
end; |
1340 |
end |
end |
1341 |
else |
else |
1795 |
|
|
1796 |
if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then |
if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then |
1797 |
begin |
begin |
1798 |
CheckBox3.Checked := false; |
chkScanTjekkode.Checked := false; |
1799 |
for i := 0 to length(stregkoderMedTjekkodeArray)-1 do |
for i := 0 to length(stregkoderMedTjekkodeArray)-1 do |
1800 |
begin |
begin |
1801 |
if (Stregkode=stregkoderMedTjekkodeArray[i]) then |
if (Stregkode=stregkoderMedTjekkodeArray[i]) then |
1802 |
begin |
begin |
1803 |
CheckBox3.Checked := true; |
chkScanTjekkode.Checked := true; |
1804 |
Scanogstjekkoden1.Checked := true; |
Scanogstjekkoden1.Checked := true; |
1805 |
end; |
end; |
1806 |
end; |
end; |
2888 |
|
|
2889 |
end; |
end; |
2890 |
|
|
2891 |
procedure TMainForm.CheckBox3Click(Sender: TObject); |
procedure TMainForm.chkScanTjekkodeClick(Sender: TObject); |
2892 |
begin |
begin |
2893 |
if CheckBox3.Checked then |
if chkScanTjekkode.Checked then |
2894 |
begin |
begin |
2895 |
Scanogstjekkoden1.Checked := true; |
Scanogstjekkoden1.Checked := true; |
2896 |
end |
end |
5621 |
begin |
begin |
5622 |
if Scanogstjekkoden1.Checked then |
if Scanogstjekkoden1.Checked then |
5623 |
begin |
begin |
5624 |
CheckBox3.Checked := true; |
chkScanTjekkode.Checked := true; |
5625 |
end |
end |
5626 |
else |
else |
5627 |
begin |
begin |
5628 |
CheckBox3.Checked := false; |
chkScanTjekkode.Checked := false; |
5629 |
end; |
end; |
5630 |
end; |
end; |
5631 |
|
|