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; |
105 |
PanelManglendePakker6: TPanel; |
PanelManglendePakker6: TPanel; |
106 |
menuIndlevering: TMenuItem; |
menuIndlevering: TMenuItem; |
107 |
chkForstorTilDirekte: TCheckBox; |
chkForstorTilDirekte: TCheckBox; |
108 |
|
chkEmballageRepareret: TCheckBox; |
109 |
|
KommentarST: TLabel; |
110 |
|
|
111 |
|
|
112 |
|
|
196 |
|
|
197 |
|
|
198 |
//Nedarvet fra IParentForm |
//Nedarvet fra IParentForm |
199 |
|
procedure Msg( msg : string); |
200 |
procedure LogMessage( msg : string); |
procedure LogMessage( msg : string); |
201 |
procedure SetPrinterstatusText( txt: string; alert: boolean); |
procedure SetPrinterstatusText( txt: string; alert: boolean); |
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; |
744 |
SpecialVersionSted := 'NS'; |
SpecialVersionSted := 'NS'; |
745 |
{$EndIf} |
{$EndIf} |
746 |
|
|
|
|
|
747 |
//SpecialVersionSted := '01'; // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
//SpecialVersionSted := '01'; // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
748 |
//SpecialVersionSted := '02'; // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK) |
//SpecialVersionSted := '02'; // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK) |
749 |
//SpecialVersionSted := '03'; // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
//SpecialVersionSted := '03'; // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE) |
761 |
|
|
762 |
if SpecialVersionSted = 'NS' then |
if SpecialVersionSted = 'NS' then |
763 |
begin |
begin |
764 |
SpecialVersionSted := '01'; |
//SpecialVersionSted := '01'; // Fra før NS overtog scanning løssalg |
765 |
SpecialVersionScanningtype := '4'; |
//SpecialVersionScanningtype := '4'; |
766 |
|
|
767 |
|
//FarveNormal := 'A9F5A9'; // her kan vi evt. overrule ini fil |
768 |
|
Sted := SpecialVersionSted; |
769 |
|
// her skal vi også disable de knapper BK ikke kan bruge |
770 |
|
PanelValg2.Enabled := false; |
771 |
|
PanelValg2.Font.Color := clInactiveCaption; |
772 |
|
PanelValg3.Enabled := false; |
773 |
|
PanelValg3.Font.Color := clInactiveCaption; |
774 |
|
//PanelValg6.Enabled := false; |
775 |
|
//PanelValg6.Font.Color := clInactiveCaption; |
776 |
|
|
777 |
|
// her skal vi også disable de menupunkter FD ikke kan bruge |
778 |
|
ReturpakkerfraDAO1.Enabled := false; |
779 |
|
Returpakkerfraboghandler1.Enabled := false; |
780 |
|
|
781 |
|
//Returpakkerfrapakkeshop1.Enabled := false; |
782 |
end; |
end; |
783 |
|
|
784 |
if SpecialVersionSted = 'FD' then |
if SpecialVersionSted = 'FD' then |
1528 |
InitPakkeshoplevering(); |
InitPakkeshoplevering(); |
1529 |
end; |
end; |
1530 |
end |
end |
1531 |
// Retur kan ikke scannes med 'Automatisk valg' |
else if Pakketype = 'PakkeshopRetur' then |
1532 |
|
begin |
1533 |
|
if Scanningtype <> '6' then |
1534 |
|
begin |
1535 |
|
VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' ); |
1536 |
|
|
1537 |
|
exit; |
1538 |
|
end; |
1539 |
|
end |
1540 |
|
|
1541 |
|
|
1542 |
else |
else |
1543 |
begin |
begin |
2996 |
SmsKode := '999999'; |
SmsKode := '999999'; |
2997 |
DBKbane := '999'; |
DBKbane := '999'; |
2998 |
Leveringssted := 'XXX'; |
Leveringssted := 'XXX'; |
2999 |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
LabelPrint.TestZpl(); |
3000 |
|
//PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
3001 |
LabelPrint.CheckPrintQue('Test', PrinterNavn); |
LabelPrint.CheckPrintQue('Test', PrinterNavn); |
3002 |
end; |
end; |
3003 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
3068 |
|
|
3069 |
end; |
end; |
3070 |
|
|
3071 |
|
|
3072 |
procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer; |
procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer; |
3073 |
Rect: TRect; State: TOwnerDrawState); |
Rect: TRect; State: TOwnerDrawState); |
3074 |
var |
var |
4865 |
KommentarST.Caption := strMessage; |
KommentarST.Caption := strMessage; |
4866 |
end; |
end; |
4867 |
|
|
4868 |
|
Stregkode := ''; //Nulstil stregkode feltet efter at fejl er vist |
4869 |
|
|
4870 |
end; |
end; |
4871 |
|
|
4872 |
function TMainForm.getProddato() : TDate; |
function TMainForm.getProddato() : TDate; |
4940 |
end; |
end; |
4941 |
|
|
4942 |
|
|
4943 |
|
//Nedarvet fra IParentForm |
4944 |
|
procedure TMainForm.Msg( msg : string); |
4945 |
|
begin |
4946 |
|
ShowMessage(msg); |
4947 |
|
end; |
4948 |
|
|
4949 |
//Nedarvet fra IParentForm |
//Nedarvet fra IParentForm |
4950 |
procedure TMainForm.LogMessage( msg : string); |
procedure TMainForm.LogMessage( msg : string); |