841 |
|
|
842 |
if SpecialVersionSted = 'DBK' then |
if SpecialVersionSted = 'DBK' then |
843 |
begin |
begin |
|
//FarveNormal := 'A9F5A9'; // her kan vi evt. overrule ini fil |
|
844 |
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; |
|
845 |
end; |
end; |
846 |
|
|
847 |
if (SpecialVersionSted = '01') |
if (SpecialVersionSted = '01') |