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

Autorizaciones, SI EL LIMITE ES 0, PERMITE AUTORIZAR

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-02-05 12:04:20 -07:00
parent 415c7de32b
commit 6ebf5b81c5
1 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Ventas/CatAutorizacionLimites.aspx.vb
View File

@@ -196,7 +196,8 @@ Partial Class Ventas_CatAutorizacionLimites
Protected Sub LnkAutorizar_Click(sender As Object, e As EventArgs) Protected Sub LnkAutorizar_Click(sender As Object, e As EventArgs)
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
Dim TipoAutorizacion = gvRow.DataKey("TipoAutorizacion").ToEntero()
Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero() Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero()
Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero() Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero()
Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero() Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero()
@@ -209,6 +210,8 @@ Partial Class Ventas_CatAutorizacionLimites
Dim SaldoCliente = gvRow.DataKey("Saldo").ToDecimal() Dim SaldoCliente = gvRow.DataKey("Saldo").ToDecimal()
Dim LimiteCredito = gvRow.DataKey("LimiteCredito").ToDecimal() Dim LimiteCredito = gvRow.DataKey("LimiteCredito").ToDecimal()
'SI EL LIMITE ES 0, PERMITE AUTORIZAR
If LimiteCredito > 0 Then
Dim PorcentajeMaximoAutorizar As Decimal = 0.1 Dim PorcentajeMaximoAutorizar As Decimal = 0.1
If UsuarioActual.PorcentajeMaximoAutorizacion > 0 Then If UsuarioActual.PorcentajeMaximoAutorizacion > 0 Then