Privilegios de usuario para ver parte de contabilidad

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@122 93f398dd-4eb6-7a46-baf6-13f46f578da2

Source/Cliente/uPantallaPrincipal.pas

@@ -194,14 +194,26 @@ end;
 
 procedure TfPantallaPrincipal.FormShow(Sender: TObject);
 begin
+  //El usuario vendedor de graden solo podrá ver ventas (Graden-Vendedor(2))
+  if (AppFactuGES.UsuarioActivo.ID_PERFIL = 7) then
+  begin
+    Informes1.Enabled := False;
+    Informes1.Visible := False;    
+    Contabilidad1.Enabled := False;
+    Contabilidad1.Visible := False;
+    Compras1.Enabled := False;
+    Compras1.Visible := False;
+  end;
+
   InicializarUI;
 
-  //Solo verá los informes el perfil Administrador(3), están en la tabla usuarios
+  //Solo verá administracion de usuarios el perfil Administrador(3), están en la tabla usuarios
   if (AppFactuGES.UsuarioActivo.ID_PERFIL <> 3) then
   begin
 //    Perfiles1.Visible := False;
     Administracin1.Visible := False;
   end;
+
 end;
 
 procedure TfPantallaPrincipal.RefrescarUI;