20 |
IdHTTP1: TIdHTTP; |
IdHTTP1: TIdHTTP; |
21 |
XMLDocument1: TXMLDocument; |
XMLDocument1: TXMLDocument; |
22 |
ApplicationEvents1: TApplicationEvents; |
ApplicationEvents1: TApplicationEvents; |
23 |
CheckBox1: TCheckBox; |
chkSporgEfterKunde: TCheckBox; |
24 |
KommentarST: TStaticText; |
KommentarST: TStaticText; |
25 |
MainMenu1: TMainMenu; |
MainMenu1: TMainMenu; |
26 |
N1: TMenuItem; |
N1: TMenuItem; |
36 |
Lukprogrammet1: TMenuItem; |
Lukprogrammet1: TMenuItem; |
37 |
N2: TMenuItem; |
N2: TMenuItem; |
38 |
N3: TMenuItem; |
N3: TMenuItem; |
39 |
RadioButton1: TRadioButton; |
radioStorPakke: TRadioButton; |
40 |
RadioButton2: TRadioButton; |
radioLillePakke: TRadioButton; |
41 |
N4: TMenuItem; |
N4: TMenuItem; |
42 |
Storepakker1: TMenuItem; |
Storepakker1: TMenuItem; |
43 |
Smpakker1: TMenuItem; |
Smpakker1: TMenuItem; |
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; |
113 |
procedure FormKeyPress(Sender: TObject; var Key: Char); |
procedure FormKeyPress(Sender: TObject; var Key: Char); |
114 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
115 |
procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); |
procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); |
116 |
procedure RadioButton1Click(Sender: TObject); |
procedure radioStorPakkeClick(Sender: TObject); |
117 |
procedure RadioButton2Click(Sender: TObject); |
procedure radioLillePakkeClick(Sender: TObject); |
118 |
procedure CheckBox1Click(Sender: TObject); |
procedure chkSporgEfterKundeClick(Sender: TObject); |
119 |
procedure Pakkernormal1Click(Sender: TObject); |
procedure Pakkernormal1Click(Sender: TObject); |
120 |
procedure Testforbindelsen1Click(Sender: TObject); |
procedure Testforbindelsen1Click(Sender: TObject); |
121 |
procedure Testprinter1Click(Sender: TObject); |
procedure Testprinter1Click(Sender: TObject); |
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 |
|
|
711 |
|
|
712 |
if SporgEfterBoghandler = '1' then |
if SporgEfterBoghandler = '1' then |
713 |
begin |
begin |
714 |
CheckBox1.Checked := true; |
chkSporgEfterKunde.Checked := true; |
715 |
Sprgefterboghandlernummer1.Checked := true; |
Sprgefterboghandlernummer1.Checked := true; |
716 |
end |
end |
717 |
else |
else |
718 |
begin |
begin |
719 |
CheckBox1.Checked := false; |
chkSporgEfterKunde.Checked := false; |
720 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
721 |
end; |
end; |
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 |
|
|
1000 |
if Pakketype = '1' then |
if Pakketype = '1' then |
1001 |
begin |
begin |
1002 |
Storepakker1.Checked := true; |
Storepakker1.Checked := true; |
1003 |
RadioButton1.Checked := true; |
radioStorPakke.Checked := true; |
1004 |
end |
end |
1005 |
else |
else |
1006 |
begin |
begin |
1007 |
Smpakker1.Checked := true; |
Smpakker1.Checked := true; |
1008 |
RadioButton2.Checked := true; |
radioLillePakke.Checked := true; |
1009 |
end; |
end; |
1010 |
|
|
1011 |
if TestFunktionen = '1' then |
if TestFunktionen = '1' then |
1242 |
|
|
1243 |
if StregKode = 'Lille pakke' then |
if StregKode = 'Lille pakke' then |
1244 |
begin |
begin |
1245 |
if RadioButton2.Enabled = true then |
if radioLillePakke.Enabled = true then |
1246 |
begin |
begin |
1247 |
InitLillePakke(); |
InitLillePakke(); |
1248 |
end |
end |
1268 |
|
|
1269 |
if StregKode = 'Stor pakke' then |
if StregKode = 'Stor pakke' then |
1270 |
begin |
begin |
1271 |
if RadioButton1.Enabled = true then |
if radioStorPakke.Enabled = true then |
1272 |
begin |
begin |
1273 |
InitStorPakke(); |
InitStorPakke(); |
1274 |
end |
end |
1294 |
|
|
1295 |
if StregKode = 'Indtast kundenummer' then |
if StregKode = 'Indtast kundenummer' then |
1296 |
begin |
begin |
1297 |
if CheckBox1.Enabled = true then |
if chkSporgEfterKunde.Enabled = true then |
1298 |
begin |
begin |
1299 |
if (CheckBox1.State = cbChecked) then |
if (chkSporgEfterKunde.State = cbChecked) then |
1300 |
begin |
begin |
1301 |
CheckBox1.State := cbUnchecked; |
chkSporgEfterKunde.State := cbUnchecked; |
1302 |
end |
end |
1303 |
else |
else |
1304 |
begin |
begin |
1305 |
CheckBox1.State := cbChecked; |
chkSporgEfterKunde.State := cbChecked; |
1306 |
end; |
end; |
1307 |
end |
end |
1308 |
else |
else |
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; |
2297 |
Testprinter1.Visible := true; |
Testprinter1.Visible := true; |
2298 |
Smpakker1.Enabled := true; |
Smpakker1.Enabled := true; |
2299 |
Storepakker1.Enabled := true; |
Storepakker1.Enabled := true; |
2300 |
RadioButton1.Enabled := true; |
radioStorPakke.Enabled := true; |
2301 |
RadioButton2.Enabled := true; |
radioLillePakke.Enabled := true; |
2302 |
DownloadButton01.Enabled := false; // kontrolfil bruges ikke her |
DownloadButton01.Enabled := false; // kontrolfil bruges ikke her |
2303 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
2304 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
2335 |
Testprinter1.Visible := true; |
Testprinter1.Visible := true; |
2336 |
Smpakker1.Enabled := true; |
Smpakker1.Enabled := true; |
2337 |
Storepakker1.Enabled := true; |
Storepakker1.Enabled := true; |
2338 |
RadioButton1.Enabled := true; |
radioStorPakke.Enabled := true; |
2339 |
RadioButton2.Enabled := true; |
radioLillePakke.Enabled := true; |
2340 |
DownloadButton01.Enabled := false; // kontrolfil bruges ikke her |
DownloadButton01.Enabled := false; // kontrolfil bruges ikke her |
2341 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
2342 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
2355 |
pakkestorrelse : String; |
pakkestorrelse : String; |
2356 |
PrintNyLabelInteger : Integer; |
PrintNyLabelInteger : Integer; |
2357 |
begin |
begin |
2358 |
if RadioButton1.Checked then |
if radioStorPakke.Checked then |
2359 |
begin |
begin |
2360 |
pakkestorrelse := 'Stor'; |
pakkestorrelse := 'Stor'; |
2361 |
end; |
end; |
2362 |
if RadioButton2.Checked then |
if radioLillePakke.Checked then |
2363 |
begin |
begin |
2364 |
pakkestorrelse := 'Lille'; |
pakkestorrelse := 'Lille'; |
2365 |
end; |
end; |
2514 |
if Pakkeshoplevering1.Checked then |
if Pakkeshoplevering1.Checked then |
2515 |
List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; '; |
List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; '; |
2516 |
List1Pakkestorrelse := ''; |
List1Pakkestorrelse := ''; |
2517 |
if RadioButton1.Checked then |
if radioStorPakke.Checked then |
2518 |
begin |
begin |
2519 |
List1Pakkestorrelse := 'Stor pakke'; |
List1Pakkestorrelse := 'Stor pakke'; |
2520 |
end; |
end; |
2521 |
if RadioButton2.Checked then |
if radioLillePakke.Checked then |
2522 |
begin |
begin |
2523 |
List1Pakkestorrelse := 'Lille pakke'; |
List1Pakkestorrelse := 'Lille pakke'; |
2524 |
end; |
end; |
2540 |
if Budlevering1.Checked then |
if Budlevering1.Checked then |
2541 |
begin |
begin |
2542 |
List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn; |
List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn; |
2543 |
if (RadioButton1.Checked) then |
if (radioStorPakke.Checked) then |
2544 |
begin |
begin |
2545 |
List1msg := List1msg + '; Stor pakke'; |
List1msg := List1msg + '; Stor pakke'; |
2546 |
end; |
end; |
2547 |
if (RadioButton2.Checked) then |
if (radioLillePakke.Checked) then |
2548 |
begin |
begin |
2549 |
List1msg := List1msg + '; Lille pakke'; |
List1msg := List1msg + '; Lille pakke'; |
2550 |
end; |
end; |
2603 |
|
|
2604 |
// 20150306: start |
// 20150306: start |
2605 |
// if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) then |
// if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) then |
2606 |
if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then |
if Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then |
2607 |
// 20150306: slut |
// 20150306: slut |
2608 |
begin |
begin |
2609 |
if (RuteNummer = 'Ukendt') then |
if (RuteNummer = 'Ukendt') then |
2757 |
exit; |
exit; |
2758 |
end; |
end; |
2759 |
|
|
2760 |
if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then |
if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then |
2761 |
begin |
begin |
2762 |
end |
end |
2763 |
else |
else |
2849 |
end; |
end; |
2850 |
|
|
2851 |
|
|
2852 |
procedure TMainForm.RadioButton1Click(Sender: TObject); |
procedure TMainForm.radioStorPakkeClick(Sender: TObject); |
2853 |
begin |
begin |
2854 |
Storepakker1.Checked := true; |
Storepakker1.Checked := true; |
2855 |
RadioButton1.Checked := true; |
radioStorPakke.Checked := true; |
2856 |
end; |
end; |
2857 |
|
|
2858 |
procedure TMainForm.RadioButton2Click(Sender: TObject); |
procedure TMainForm.radioLillePakkeClick(Sender: TObject); |
2859 |
begin |
begin |
2860 |
Smpakker1.Checked := true; |
Smpakker1.Checked := true; |
2861 |
RadioButton2.Checked := true; |
radioLillePakke.Checked := true; |
2862 |
end; |
end; |
2863 |
|
|
2864 |
|
|
2865 |
procedure TMainForm.CheckBox1Click(Sender: TObject); |
procedure TMainForm.chkSporgEfterKundeClick(Sender: TObject); |
2866 |
begin |
begin |
2867 |
if CheckBox1.Checked then |
if chkSporgEfterKunde.Checked then |
2868 |
begin |
begin |
2869 |
Sprgefterboghandlernummer1.Checked := true; |
Sprgefterboghandlernummer1.Checked := true; |
2870 |
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 |
3783 |
|
|
3784 |
if Sprgefterboghandlernummer1.Checked then |
if Sprgefterboghandlernummer1.Checked then |
3785 |
begin |
begin |
3786 |
CheckBox1.Checked := true; |
chkSporgEfterKunde.Checked := true; |
3787 |
end |
end |
3788 |
else |
else |
3789 |
begin |
begin |
3790 |
CheckBox1.Checked := false; |
chkSporgEfterKunde.Checked := false; |
3791 |
end; |
end; |
3792 |
|
|
3793 |
|
|
3815 |
InitForm(FarveNormal,TitelNormal,UrlNormal); |
InitForm(FarveNormal,TitelNormal,UrlNormal); |
3816 |
PanelValg1.Color := clGreen; |
PanelValg1.Color := clGreen; |
3817 |
PanelValg1.Font.Color := clWhite; |
PanelValg1.Font.Color := clWhite; |
3818 |
CheckBox1.Enabled := true; |
|
3819 |
chkAltidPrintLabel.Enabled := true; |
chkAltidPrintLabel.Enabled := true; |
3820 |
Altidprintepakkelabel1.Enabled := true; |
Altidprintepakkelabel1.Enabled := true; |
3821 |
Altidprintepakkelabel1.Checked := false; |
Altidprintepakkelabel1.Checked := false; |
3822 |
chkAltidPrintLabel.Checked := false; |
chkAltidPrintLabel.Checked := false; |
3823 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3824 |
CheckBox1.Checked := false; |
chkSporgEfterKunde.Checked := false; |
3825 |
Sprgefterboghandlernummer1.Enabled := true; |
Sprgefterboghandlernummer1.Enabled := true; |
3826 |
Smpakker1.Enabled := false; |
Smpakker1.Enabled := false; |
3827 |
Storepakker1.Enabled := false; |
Storepakker1.Enabled := false; |
3828 |
RadioButton1.Enabled := false; |
radioStorPakke.Enabled := false; |
3829 |
RadioButton2.Enabled := false; |
radioLillePakke.Enabled := false; |
3830 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3831 |
OpdaterListenButton01.Enabled := true; |
OpdaterListenButton01.Enabled := true; |
3832 |
EKLoverforsel.Enabled := true; |
EKLoverforsel.Enabled := true; |
3847 |
InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO); |
InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO); |
3848 |
PanelValg2.Color := clGreen; |
PanelValg2.Color := clGreen; |
3849 |
PanelValg2.Font.Color := clWhite; |
PanelValg2.Font.Color := clWhite; |
3850 |
CheckBox1.Enabled := false; |
|
3851 |
chkAltidPrintLabel.Enabled := false; |
chkAltidPrintLabel.Enabled := false; |
3852 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
3853 |
|
|
3854 |
Altidprintepakkelabel1.Checked := false; |
Altidprintepakkelabel1.Checked := false; |
3855 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3856 |
CheckBox1.Checked := false; |
chkSporgEfterKunde.Checked := false; |
3857 |
Sprgefterboghandlernummer1.Enabled := false; |
Sprgefterboghandlernummer1.Enabled := false; |
3858 |
Smpakker1.Enabled := true; |
Smpakker1.Enabled := true; |
3859 |
Storepakker1.Enabled := true; |
Storepakker1.Enabled := true; |
3860 |
RadioButton1.Enabled := true; |
radioStorPakke.Enabled := true; |
3861 |
RadioButton2.Enabled := true; |
radioLillePakke.Enabled := true; |
3862 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3863 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3864 |
ListBox2.Items.Clear; |
ListBox2.Items.Clear; |
3874 |
InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler); |
InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler); |
3875 |
PanelValg3.Color := clGreen; |
PanelValg3.Color := clGreen; |
3876 |
PanelValg3.Font.Color := clWhite; |
PanelValg3.Font.Color := clWhite; |
3877 |
CheckBox1.Enabled := false; |
|
3878 |
chkAltidPrintLabel.Enabled := false; |
chkAltidPrintLabel.Enabled := false; |
3879 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
3880 |
Altidprintepakkelabel1.Checked := false; |
Altidprintepakkelabel1.Checked := false; |
3881 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3882 |
CheckBox1.Checked := false; |
chkSporgEfterKunde.Checked := false; |
3883 |
Sprgefterboghandlernummer1.Enabled := false; |
Sprgefterboghandlernummer1.Enabled := false; |
3884 |
Smpakker1.Enabled := true; |
Smpakker1.Enabled := true; |
3885 |
Storepakker1.Enabled := true; |
Storepakker1.Enabled := true; |
3886 |
RadioButton1.Enabled := true; |
radioStorPakke.Enabled := true; |
3887 |
RadioButton2.Enabled := true; |
radioLillePakke.Enabled := true; |
3888 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3889 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3890 |
ListBox2.Items.Clear; |
ListBox2.Items.Clear; |
3900 |
InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering); |
InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering); |
3901 |
PanelValg4.Color := clGreen; |
PanelValg4.Color := clGreen; |
3902 |
PanelValg4.Font.Color := clWhite; |
PanelValg4.Font.Color := clWhite; |
3903 |
CheckBox1.Enabled := false; |
|
3904 |
chkAltidPrintLabel.Enabled := false; |
chkAltidPrintLabel.Enabled := false; |
3905 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
3906 |
|
|
3907 |
Altidprintepakkelabel1.Checked := false; |
Altidprintepakkelabel1.Checked := false; |
3908 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3909 |
CheckBox1.Checked := false; |
chkSporgEfterKunde.Checked := false; |
3910 |
Sprgefterboghandlernummer1.Enabled := false; |
Sprgefterboghandlernummer1.Enabled := false; |
3911 |
Smpakker1.Enabled := true; |
Smpakker1.Enabled := true; |
3912 |
Storepakker1.Enabled := true; |
Storepakker1.Enabled := true; |
3913 |
RadioButton1.Enabled := true; |
radioStorPakke.Enabled := true; |
3914 |
RadioButton2.Enabled := true; |
radioLillePakke.Enabled := true; |
3915 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3916 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3917 |
DownloadButton01.Enabled := false; |
DownloadButton01.Enabled := false; |
3936 |
InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering); |
InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering); |
3937 |
PanelValg5.Color := clGreen; |
PanelValg5.Color := clGreen; |
3938 |
PanelValg5.Font.Color := clWhite; |
PanelValg5.Font.Color := clWhite; |
3939 |
CheckBox1.Enabled := false; |
|
3940 |
chkAltidPrintLabel.Enabled := false; |
chkAltidPrintLabel.Enabled := false; |
3941 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
3942 |
|
|
3943 |
Altidprintepakkelabel1.Checked := false; |
Altidprintepakkelabel1.Checked := false; |
3944 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3945 |
CheckBox1.Checked := false; |
chkSporgEfterKunde.Checked := false; |
3946 |
Sprgefterboghandlernummer1.Enabled := false; |
Sprgefterboghandlernummer1.Enabled := false; |
3947 |
Smpakker1.Enabled := false; |
Smpakker1.Enabled := false; |
3948 |
Storepakker1.Enabled := false; |
Storepakker1.Enabled := false; |
3949 |
RadioButton1.Enabled := false; |
radioStorPakke.Enabled := false; |
3950 |
RadioButton2.Enabled := false; |
radioLillePakke.Enabled := false; |
3951 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3952 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3953 |
DownloadButton01.Enabled := false; |
DownloadButton01.Enabled := false; |
3974 |
InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop); |
InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop); |
3975 |
PanelValg6.Color := clGreen; |
PanelValg6.Color := clGreen; |
3976 |
PanelValg6.Font.Color := clWhite; |
PanelValg6.Font.Color := clWhite; |
3977 |
CheckBox1.Enabled := false; |
|
3978 |
chkAltidPrintLabel.Enabled := false; |
chkAltidPrintLabel.Enabled := false; |
3979 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
3980 |
|
|
3981 |
Altidprintepakkelabel1.Checked := false; |
Altidprintepakkelabel1.Checked := false; |
3982 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
3983 |
CheckBox1.Checked := false; |
chkSporgEfterKunde.Checked := false; |
3984 |
Sprgefterboghandlernummer1.Enabled := false; |
Sprgefterboghandlernummer1.Enabled := false; |
3985 |
Smpakker1.Enabled := false; |
Smpakker1.Enabled := false; |
3986 |
Storepakker1.Enabled := false; |
Storepakker1.Enabled := false; |
3987 |
RadioButton1.Enabled := false; |
radioStorPakke.Enabled := false; |
3988 |
RadioButton2.Enabled := false; |
radioLillePakke.Enabled := false; |
3989 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
3990 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3991 |
DownloadButton01.Enabled := false; |
DownloadButton01.Enabled := false; |
4016 |
InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop); |
InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop); |
4017 |
PanelValg7.Color := clGreen; |
PanelValg7.Color := clGreen; |
4018 |
PanelValg7.Font.Color := clWhite; |
PanelValg7.Font.Color := clWhite; |
4019 |
CheckBox1.Enabled := false; |
|
4020 |
chkAltidPrintLabel.Enabled := false; |
chkAltidPrintLabel.Enabled := false; |
4021 |
Altidprintepakkelabel1.Enabled := false; |
Altidprintepakkelabel1.Enabled := false; |
4022 |
|
|
4023 |
Altidprintepakkelabel1.Checked := false; |
Altidprintepakkelabel1.Checked := false; |
4024 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
4025 |
CheckBox1.Checked := false; |
chkSporgEfterKunde.Checked := false; |
4026 |
Sprgefterboghandlernummer1.Enabled := false; |
Sprgefterboghandlernummer1.Enabled := false; |
4027 |
Smpakker1.Enabled := false; |
Smpakker1.Enabled := false; |
4028 |
Storepakker1.Enabled := false; |
Storepakker1.Enabled := false; |
4029 |
RadioButton1.Enabled := false; |
radioStorPakke.Enabled := false; |
4030 |
RadioButton2.Enabled := false; |
radioLillePakke.Enabled := false; |
4031 |
ListBox1.Visible := true; |
ListBox1.Visible := true; |
4032 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
4033 |
DownloadButton01.Enabled := false; |
DownloadButton01.Enabled := false; |
4056 |
|
|
4057 |
procedure TMainForm.InitLillePakke(); |
procedure TMainForm.InitLillePakke(); |
4058 |
begin |
begin |
4059 |
RadioButton2.Checked := true; |
radioLillePakke.Checked := true; |
4060 |
Smpakker1.Checked := true; |
Smpakker1.Checked := true; |
4061 |
// 20150310: start |
// 20150310: start |
4062 |
// Stregkode := ''; |
// Stregkode := ''; |
4065 |
|
|
4066 |
procedure TMainForm.InitStorPakke(); |
procedure TMainForm.InitStorPakke(); |
4067 |
begin |
begin |
4068 |
RadioButton1.Checked := true; |
radioStorPakke.Checked := true; |
4069 |
Storepakker1.Checked := true; |
Storepakker1.Checked := true; |
4070 |
// 20150310: start |
// 20150310: start |
4071 |
// Stregkode := ''; |
// Stregkode := ''; |
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 |
|
|