/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3045 by torben, Wed Jun 1 13:25:34 2016 UTC revision 3046 by torben, Mon Jun 13 08:29:35 2016 UTC
# Line 744  begin Line 744  begin
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)
# Line 762  begin Line 761  begin
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
Legend:
Removed from v.3045  
changed lines
  Added in v.3046
  ViewVC Help
Powered by ViewVC 1.1.20