From b198fdfb8173f47d5a513b021e706d7982c3edec Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 20 Jan 2025 12:24:53 -0700 Subject: [PATCH] --Proceso para habilitar aplicacion de anticipos --- Ventas/Ventas.aspx.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e39c4fe68..fd44294b9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3641,7 +3641,7 @@ Partial Class Ventas End If If UsuarioActual.Empresa.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) End If InicializaDevolucionAlmacen() @@ -5489,7 +5489,7 @@ Partial Class Ventas End If If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString().ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then If UsuarioActual.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) Else ImgAntiPend.Visible = True End If @@ -5602,7 +5602,7 @@ Partial Class Ventas If DbRowVenta("Saldo").ToString().ToDouble < 0.01 Then If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString().ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then If UsuarioActual.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) Else ImgAntiPend.Visible = True End If @@ -17287,7 +17287,7 @@ Partial Class Ventas End If If UsuarioActual.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) End If Else GVAnticipos.DataSource = Nothing @@ -19037,7 +19037,7 @@ Partial Class Ventas End If If UsuarioActual.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) End If If ImgAntiPend.Visible Then @@ -19085,7 +19085,7 @@ Partial Class Ventas End If If UsuarioActual.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) End If If ImgAntiPend.Visible Then @@ -33098,7 +33098,7 @@ Partial Class Ventas If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True If UsuarioActual.CveEmpresa = 189 Then - ImgAntiPend.Visible = False + ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406) End If Else Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo = 'Ant' ", "")} {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}")