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; |
115 |
procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); |
procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); |
116 |
procedure RadioButton1Click(Sender: TObject); |
procedure RadioButton1Click(Sender: TObject); |
117 |
procedure RadioButton2Click(Sender: TObject); |
procedure RadioButton2Click(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); |
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 |
|
|
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 |
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 |
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 |
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; |
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; |
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; |
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; |
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; |
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; |
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; |