39 |
XMLDocument1: TXMLDocument; |
XMLDocument1: TXMLDocument; |
40 |
ApplicationEvents1: TApplicationEvents; |
ApplicationEvents1: TApplicationEvents; |
41 |
chkSporgEfterKunde: TCheckBox; |
chkSporgEfterKunde: TCheckBox; |
|
KommentarST: TStaticText; |
|
42 |
MainMenu1: TMainMenu; |
MainMenu1: TMainMenu; |
43 |
N1: TMenuItem; |
N1: TMenuItem; |
44 |
Pakkernormal1: TMenuItem; |
Pakkernormal1: TMenuItem; |
106 |
menuIndlevering: TMenuItem; |
menuIndlevering: TMenuItem; |
107 |
chkForstorTilDirekte: TCheckBox; |
chkForstorTilDirekte: TCheckBox; |
108 |
chkEmballageRepareret: TCheckBox; |
chkEmballageRepareret: TCheckBox; |
109 |
|
KommentarST: TLabel; |
110 |
|
|
111 |
|
|
112 |
|
|
202 |
function GetFormObject() : TForm; |
function GetFormObject() : TForm; |
203 |
|
|
204 |
|
|
205 |
|
|
206 |
private |
private |
207 |
SpecialVersionSted, SpecialVersionScanningtype: String; // Bruges når programmet skal bruges udenfor DAO scanningssteder |
SpecialVersionSted, SpecialVersionScanningtype: String; // Bruges når programmet skal bruges udenfor DAO scanningssteder |
208 |
Stregkode : String; |
Stregkode : String; |
289 |
procedure TMainForm.InitForm(Farve,Titel,Url : String); |
procedure TMainForm.InitForm(Farve,Titel,Url : String); |
290 |
begin |
begin |
291 |
|
|
292 |
|
IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect |
293 |
|
IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read |
294 |
|
|
295 |
|
|
296 |
|
|
297 |
|
|
298 |
StaticTextManglendePakker.Caption := ''; |
StaticTextManglendePakker.Caption := ''; |
299 |
|
|
300 |
|
|
750 |
SpecialVersionSted := 'NS'; |
SpecialVersionSted := 'NS'; |
751 |
{$EndIf} |
{$EndIf} |
752 |
|
|
|
|
|
753 |
//SpecialVersionSted := '01'; // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
//SpecialVersionSted := '01'; // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
754 |
//SpecialVersionSted := '02'; // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK) |
//SpecialVersionSted := '02'; // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK) |
755 |
//SpecialVersionSted := '03'; // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
//SpecialVersionSted := '03'; // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
767 |
|
|
768 |
if SpecialVersionSted = 'NS' then |
if SpecialVersionSted = 'NS' then |
769 |
begin |
begin |
770 |
SpecialVersionSted := '01'; |
//SpecialVersionSted := '01'; // Fra før NS overtog scanning løssalg |
771 |
SpecialVersionScanningtype := '4'; |
//SpecialVersionScanningtype := '4'; |
772 |
|
|
773 |
|
//FarveNormal := 'A9F5A9'; // her kan vi evt. overrule ini fil |
774 |
|
Sted := SpecialVersionSted; |
775 |
|
// her skal vi også disable de knapper BK ikke kan bruge |
776 |
|
PanelValg2.Enabled := false; |
777 |
|
PanelValg2.Font.Color := clInactiveCaption; |
778 |
|
PanelValg3.Enabled := false; |
779 |
|
PanelValg3.Font.Color := clInactiveCaption; |
780 |
|
//PanelValg6.Enabled := false; |
781 |
|
//PanelValg6.Font.Color := clInactiveCaption; |
782 |
|
|
783 |
|
// her skal vi også disable de menupunkter FD ikke kan bruge |
784 |
|
ReturpakkerfraDAO1.Enabled := false; |
785 |
|
Returpakkerfraboghandler1.Enabled := false; |
786 |
|
|
787 |
|
//Returpakkerfrapakkeshop1.Enabled := false; |
788 |
end; |
end; |
789 |
|
|
790 |
if SpecialVersionSted = 'FD' then |
if SpecialVersionSted = 'FD' then |
1534 |
InitPakkeshoplevering(); |
InitPakkeshoplevering(); |
1535 |
end; |
end; |
1536 |
end |
end |
1537 |
// Retur kan ikke scannes med 'Automatisk valg' |
else if Pakketype = 'PakkeshopRetur' then |
1538 |
|
begin |
1539 |
|
if Scanningtype <> '6' then |
1540 |
|
begin |
1541 |
|
VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' ); |
1542 |
|
|
1543 |
|
exit; |
1544 |
|
end; |
1545 |
|
end |
1546 |
|
|
1547 |
|
|
1548 |
else |
else |
1549 |
begin |
begin |
3002 |
SmsKode := '999999'; |
SmsKode := '999999'; |
3003 |
DBKbane := '999'; |
DBKbane := '999'; |
3004 |
Leveringssted := 'XXX'; |
Leveringssted := 'XXX'; |
3005 |
LabelPrint.TestZpl(); |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
|
//PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
|
3006 |
LabelPrint.CheckPrintQue('Test', PrinterNavn); |
LabelPrint.CheckPrintQue('Test', PrinterNavn); |
3007 |
end; |
end; |
3008 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
3073 |
|
|
3074 |
end; |
end; |
3075 |
|
|
3076 |
|
|
3077 |
procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer; |
procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer; |
3078 |
Rect: TRect; State: TOwnerDrawState); |
Rect: TRect; State: TOwnerDrawState); |
3079 |
var |
var |
4276 |
begin |
begin |
4277 |
// Her skal vi ikke gøre noget - men vi skal forespørge igen |
// Her skal vi ikke gøre noget - men vi skal forespørge igen |
4278 |
WebSvar := IdHTTP1.Get(URLStr); |
WebSvar := IdHTTP1.Get(URLStr); |
4279 |
|
|
4280 |
|
|
4281 |
|
|
4282 |
end; |
end; |
4283 |
on e:exception do |
on e:exception do |
4284 |
begin |
begin |