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 |