AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--Proceso para habilitar aplicacion de anticipos

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-01-20 12:24:53 -07:00
parent e56e64e48c
commit b198fdfb81
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Ventas/Ventas.aspx.vb
View File

@@ -3641,7 +3641,7 @@ Partial Class Ventas
End If End If
If UsuarioActual.Empresa.CveEmpresa = 189 Then If UsuarioActual.Empresa.CveEmpresa = 189 Then
ImgAntiPend.Visible = False ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
End If End If
InicializaDevolucionAlmacen() InicializaDevolucionAlmacen()
@@ -5489,7 +5489,7 @@ Partial Class Ventas
End If End If
If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString().ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString().ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then
If UsuarioActual.CveEmpresa = 189 Then If UsuarioActual.CveEmpresa = 189 Then
ImgAntiPend.Visible = False ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
Else Else
ImgAntiPend.Visible = True ImgAntiPend.Visible = True
End If End If
@@ -5602,7 +5602,7 @@ Partial Class Ventas
If DbRowVenta("Saldo").ToString().ToDouble < 0.01 Then 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 ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString().ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then
If UsuarioActual.CveEmpresa = 189 Then If UsuarioActual.CveEmpresa = 189 Then
ImgAntiPend.Visible = False ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
Else Else
ImgAntiPend.Visible = True ImgAntiPend.Visible = True
End If End If
@@ -17287,7 +17287,7 @@ Partial Class Ventas
End If End If
If UsuarioActual.CveEmpresa = 189 Then If UsuarioActual.CveEmpresa = 189 Then
ImgAntiPend.Visible = False ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
End If End If
Else Else
GVAnticipos.DataSource = Nothing GVAnticipos.DataSource = Nothing
@@ -19037,7 +19037,7 @@ Partial Class Ventas
End If End If
If UsuarioActual.CveEmpresa = 189 Then If UsuarioActual.CveEmpresa = 189 Then
ImgAntiPend.Visible = False ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
End If End If
If ImgAntiPend.Visible Then If ImgAntiPend.Visible Then
@@ -19085,7 +19085,7 @@ Partial Class Ventas
End If End If
If UsuarioActual.CveEmpresa = 189 Then If UsuarioActual.CveEmpresa = 189 Then
ImgAntiPend.Visible = False ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
End If End If
If ImgAntiPend.Visible Then If ImgAntiPend.Visible Then
@@ -33098,7 +33098,7 @@ Partial Class Ventas
If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True
If UsuarioActual.CveEmpresa = 189 Then If UsuarioActual.CveEmpresa = 189 Then
ImgAntiPend.Visible = False ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
End If End If
Else 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'", "")}") 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'", "")}")