diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 859af37e3..1856edae0 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -1532,12 +1532,13 @@ Partial Class Compras_Proveedores
ObjProveedores.Commit()
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
- 'ACTUALIZAR GLOBAL
- If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
- GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = ObjProveedores.DtResultados
- Else
- ErrorBancos = True
- End If
+ ''ACTUALIZAR GLOBAL
+ GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
+ 'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+ ' GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = ObjProveedores.DtResultados
+ 'Else
+ ' ErrorBancos = True
+ 'End If
Alert("El Proveedor se guardó correctamente. " & "
" & MsgCuentaContable, TipoMensaje.MsgInformacion, If(Request("CveFactura") Is Nothing, "document.location.href=""/Compras/CatProveedores.aspx""", "window.opener.location.href = window.opener.location.href; window.close();"))
RecargaGlobalCuentasBancarias()
End If
diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb
index 83cf75375..8e5e23634 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/Inventarios/InventarioFisicoDetalle.aspx.vb
@@ -332,7 +332,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
#Region " ELIMINAR "
Protected Sub gvInventarioFisicoDetalle_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvIFD.RowDeleting
- If ddlUsuario.SelectedValue = UsuarioActual.CveUsuario.ToString Then
+ If ddlUsuario.SelectedValue = UsuarioActual.CveUsuario.ToString OrElse UsuarioActual.TienePermisoProceso(283) Then
Dim Inventarios As New ClsInventarios
Dim Retorno As Boolean = Inventarios.RemoveInventarioFisicoDetalles(GvIFD.DataKeys(e.RowIndex).Value.ToString.ToEntero())
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 5f9618df9..feda30e95 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -256,9 +256,9 @@
-
+
-
+