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; |
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 |
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 |