diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index 6912adc..39352ce 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index 1ee2748..4f57151 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/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;
diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res
index ed589d5..fe0f25b 100644
Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ