/[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 3056 by torben, Mon Jun 27 12:21:43 2016 UTC revision 3057 by torben, Tue Jun 28 12:39:35 2016 UTC
# Line 841  begin Line 841  begin
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')
Legend:
Removed from v.3056  
changed lines
  Added in v.3057
  ViewVC Help
Powered by ViewVC 1.1.20