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; |
1513 |
InitPakkeshoplevering(); |
InitPakkeshoplevering(); |
1514 |
end; |
end; |
1515 |
end |
end |
1516 |
// Retur kan ikke scannes med 'Automatisk valg' |
else if Pakketype = 'PakkeshopRetur' then |
1517 |
|
begin |
1518 |
|
if Scanningtype <> '6' then |
1519 |
|
begin |
1520 |
|
VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' ); |
1521 |
|
|
1522 |
|
exit; |
1523 |
|
end; |
1524 |
|
end |
1525 |
|
|
1526 |
|
|
1527 |
else |
else |
1528 |
begin |
begin |
2981 |
SmsKode := '999999'; |
SmsKode := '999999'; |
2982 |
DBKbane := '999'; |
DBKbane := '999'; |
2983 |
Leveringssted := 'XXX'; |
Leveringssted := 'XXX'; |
2984 |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
LabelPrint.TestZpl(); |
2985 |
|
//PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
2986 |
LabelPrint.CheckPrintQue('Test', PrinterNavn); |
LabelPrint.CheckPrintQue('Test', PrinterNavn); |
2987 |
end; |
end; |
2988 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
3053 |
|
|
3054 |
end; |
end; |
3055 |
|
|
3056 |
|
|
3057 |
procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer; |
procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer; |
3058 |
Rect: TRect; State: TOwnerDrawState); |
Rect: TRect; State: TOwnerDrawState); |
3059 |
var |
var |
4925 |
end; |
end; |
4926 |
|
|
4927 |
|
|
4928 |
|
//Nedarvet fra IParentForm |
4929 |
|
procedure TMainForm.Msg( msg : string); |
4930 |
|
begin |
4931 |
|
ShowMessage(msg); |
4932 |
|
end; |
4933 |
|
|
4934 |
//Nedarvet fra IParentForm |
//Nedarvet fra IParentForm |
4935 |
procedure TMainForm.LogMessage( msg : string); |
procedure TMainForm.LogMessage( msg : string); |