107 |
chkForstorTilDirekte: TCheckBox; |
chkForstorTilDirekte: TCheckBox; |
108 |
chkEmballageRepareret: TCheckBox; |
chkEmballageRepareret: TCheckBox; |
109 |
KommentarST: TLabel; |
KommentarST: TLabel; |
110 |
|
chkUdenforSpecifikation: TCheckBox; |
111 |
|
|
112 |
|
|
113 |
|
|
842 |
|
|
843 |
if SpecialVersionSted = 'DBK' then |
if SpecialVersionSted = 'DBK' then |
844 |
begin |
begin |
|
//FarveNormal := 'A9F5A9'; // her kan vi evt. overrule ini fil |
|
845 |
Sted := SpecialVersionSted; |
Sted := SpecialVersionSted; |
|
// her skal vi også disable de knapper DBK ikke kan bruge |
|
|
PanelValg2.Enabled := false; |
|
|
PanelValg2.Font.Color := clInactiveCaption; |
|
|
PanelValg3.Enabled := false; |
|
|
PanelValg3.Font.Color := clInactiveCaption; |
|
|
PanelValg5.Enabled := false; |
|
|
PanelValg5.Font.Color := clInactiveCaption; |
|
|
PanelValg6.Enabled := false; |
|
|
PanelValg6.Font.Color := clInactiveCaption; |
|
|
|
|
|
|
|
|
// her skal vi også disable de menupunkter DBK ikke kan bruge |
|
|
menuNatxpressReturDAO1.Enabled := false; |
|
|
menuNatxpressReturfraKunde1.Enabled := false; |
|
|
|
|
|
menuPakkeshop1.Enabled := false; |
|
|
menuPakkeshopRetur1.Enabled := false; |
|
|
|
|
|
if SpecialVersionScanningtype = 'A' then |
|
|
begin |
|
|
Scanningtype := '1'; |
|
|
end |
|
|
else |
|
|
begin |
|
|
Scanningtype := SpecialVersionScanningtype; |
|
|
end; |
|
846 |
end; |
end; |
847 |
|
|
848 |
if (SpecialVersionSted = '01') |
if (SpecialVersionSted = '01') |
2208 |
begin |
begin |
2209 |
if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then |
if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then |
2210 |
begin |
begin |
2211 |
Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution'; |
Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; |
2212 |
PrintNyLabel := False; |
PrintNyLabel := False; |
2213 |
end; |
end; |
2214 |
end |
end |
2215 |
else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) then |
else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then |
2216 |
begin |
begin |
2217 |
if (Leveringssted = 'E') and (Sted = 'DBK') then |
if (Leveringssted = 'E') and (Sted = 'DBK') then |
2218 |
begin |
begin |
2220 |
end |
end |
2221 |
else |
else |
2222 |
begin |
begin |
2223 |
Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution'; |
Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; |
2224 |
PrintNyLabel := False; |
PrintNyLabel := False; |
2225 |
end; |
end; |
2226 |
end; |
end; |