From 06fc712958ce5fbf6caee895d5cf0e581755557a Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Fri, 3 Jan 2020 16:53:17 -0700 Subject: [PATCH] - cambios global --- Compras/Proveedores.aspx.vb | 13 +++++++------ Inventarios/InventarioFisicoDetalle.aspx.vb | 2 +- Ventas/Clientes.aspx | 4 ++-- 3 files changed, 10 insertions(+), 9 deletions(-) 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 @@ - + - +