From b6ae3f0ee2e8b4f53458a9aadb7e7e8e7990f2fe Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 1 Aug 2024 11:06:08 -0700 Subject: [PATCH] -- mejora --- Ventas/PVCobranza.aspx.vb | 2 +- Ventas/Ventas.aspx.vb | 11 ++++------- 2 files changed, 5 insertions(+), 8 deletions(-) diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index cd36fe12b..b27d08721 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -617,7 +617,7 @@ Partial Class Ventas_PVCobranza Dim DtRemisionesPS As New DataTable() Dim DtPagosFacturaGlobal As New DataTable() - If ObjClientes.GetVentasRemisionesTotales(VentaRemision.CveCliente, VentaRemision.CveVenta.ToString(), 1) Then + If ObjClientes.GetVentasRemisionesTotales(VentaRemision.CveCliente, VentaRemision.CveVenta.ToString(), 1, UsuarioActual.CveEmpresa) Then DtRemisionesPS = ObjClientes.DtResultados.Copy() End If diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 1ce7adb9b..a28a6fa63 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5956,10 +5956,7 @@ Partial Class Ventas 'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR If (TmpDT.SUM("CantidadFacturadaRem") < TmpDT.SUM("Cantidad")) AndAlso TieneBloqueoPorCreditoVencimiento = 0 Then - BtnsFacturar.Visible = True - If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then - BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60) - End If + BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60) 'E119, bloquear la facturación de remisiones que no estén surtidas If UsuarioActual.CveEmpresa = 119 Then @@ -6142,7 +6139,7 @@ Partial Class Ventas 'Verifico si es su supervisor asignado If DTVendedores.Rows.Count > 0 Then If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then - BtnsFacturar.Visible = True + BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60) BtnGenerarRemision.Visible = True Else BtnsFacturar.Visible = False @@ -6263,7 +6260,7 @@ Partial Class Ventas 'Verifico si es su supervisor asignado If DTVendedores.Rows.Count > 0 Then If GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() = 2 Then - BtnsFacturar.Visible = True + BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60) If UsuarioActual.TienePermisoProceso(199) Then BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True) @@ -7785,7 +7782,7 @@ Partial Class Ventas 'SI NO TIENE AUTORIZACION, MANTIENE EL BLOQUEO POR CONDICIONES DE CREDITO If Autorizacion > 0 Then - BtnsFacturar.Visible = True + BtnsFacturar.Visible = UsuarioActual.TienePermisoProceso(60) TieneBloqueoPorCreditoVencimiento = 0 End If End If