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

-- definición de variables

Browse Source
This commit is contained in:
rrene
2023-08-28 06:58:45 -07:00
parent 7ef257b622
commit 20cc4a84ea
1 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Ventas/CatAutorizacionLimites.aspx.vb
View File

@@ -95,8 +95,8 @@ Partial Class Ventas_CatAutorizacionLimites
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Protected Sub LnkEliminar_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 CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero() Dim CveAutorizacion As Integer = gvRow.DataKey("CveAutorizacion").ToEntero()
Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero() Dim CveCliente As Integer = gvRow.DataKey("CveCliente").ToEntero()
Dim ObjGral As New ClsVentas Dim ObjGral As New ClsVentas
If ObjGral.RemoveAutorizacionLimite(CveAutorizacion, CveCliente) Then If ObjGral.RemoveAutorizacionLimite(CveAutorizacion, CveCliente) Then
@@ -208,19 +208,19 @@ 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 TipoAutorizacion As Integer = gvRow.DataKey("TipoAutorizacion").ToEntero()
Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero() Dim CveAutorizacion As Integer = gvRow.DataKey("CveAutorizacion").ToEntero()
Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero() Dim CveCliente As Integer = gvRow.DataKey("CveCliente").ToEntero()
Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero() Dim CveVendedor As Integer = gvRow.DataKey("CveVendedor").ToEntero()
Dim CveEstatusAutorizacion As Integer = 1 Dim CveEstatusAutorizacion As Integer = 1
Dim Importe = gvRow.DataKey("Importe").ToDecimal().RoundSQL(2) Dim Importe As Decimal = gvRow.DataKey("Importe").ToDecimal().RoundSQL(2)
'AUTORIZACION DE IMPORTE, 'AUTORIZACION DE IMPORTE,
'el cliente limite de 500, y saldo de 501. autorización que puede autorizar no puede ser mayor a 49 ( limite * 1.% - Saldo) 'el cliente limite de 500, y saldo de 501. autorización que puede autorizar no puede ser mayor a 49 ( limite * 1.% - Saldo)
If TipoAutorizacion = 1 Then If TipoAutorizacion = 1 Then
Dim SaldoCliente = gvRow.DataKey("Saldo").ToDecimal() Dim SaldoCliente As Decimal = gvRow.DataKey("Saldo").ToDecimal()
Dim LimiteCredito = gvRow.DataKey("LimiteCredito").ToDecimal() Dim LimiteCredito As Decimal = gvRow.DataKey("LimiteCredito").ToDecimal()
'SI EL LIMITE ES 0, PERMITE AUTORIZAR 'SI EL LIMITE ES 0, PERMITE AUTORIZAR
If LimiteCredito > 0 Then If LimiteCredito > 0 Then
Dim PorcentajeMaximoAutorizar As Decimal = 0.1D Dim PorcentajeMaximoAutorizar As Decimal = 0.1D
@@ -240,11 +240,11 @@ Partial Class Ventas_CatAutorizacionLimites
'AUTORIZACION POR DIAS VENCIDOS 'AUTORIZACION POR DIAS VENCIDOS
ElseIf TipoAutorizacion = 2 Then ElseIf TipoAutorizacion = 2 Then
Dim DiasVencidos = gvRow.DataKey("DiasVencidos").ToEntero() Dim DiasVencidos As Integer = gvRow.DataKey("DiasVencidos").ToEntero()
If DiasVencidos > 0 Then If DiasVencidos > 0 Then
Dim DiasVencidosPermitidos As Integer = 5 Dim DiasVencidosPermitidos As Integer = 5
Dim DiasVencidosAutorizacion = gvRow.DataKey("DiasVencidosAutorizacion").ToEntero() Dim DiasVencidosAutorizacion As Integer = gvRow.DataKey("DiasVencidosAutorizacion").ToEntero()
If DiasVencidos > DiasVencidosAutorizacion Then If DiasVencidos > DiasVencidosAutorizacion Then
Alert($"No se puede autorizar, los días vencidos del cliente son mayores a la autorización. Dias Vencidos: {DiasVencidos:N0}", TipoMensaje.MsgAdvertencia) Alert($"No se puede autorizar, los días vencidos del cliente son mayores a la autorización. Dias Vencidos: {DiasVencidos:N0}", TipoMensaje.MsgAdvertencia)
@@ -273,10 +273,10 @@ Partial Class Ventas_CatAutorizacionLimites
Protected Sub LnkRechazar_Click(sender As Object, e As EventArgs) Protected Sub LnkRechazar_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 CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero() Dim CveAutorizacion As Integer = gvRow.DataKey("CveAutorizacion").ToEntero()
Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero() Dim CveCliente As Integer = gvRow.DataKey("CveCliente").ToEntero()
Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero() Dim CveVendedor As Integer = gvRow.DataKey("CveVendedor").ToEntero()
Dim Importe = gvRow.DataKey("Importe").ToDecimal() Dim Importe As Decimal = gvRow.DataKey("Importe").ToDecimal()
Dim CveEstatusAutorizacion As Integer = 3 Dim CveEstatusAutorizacion As Integer = 3
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
@@ -355,7 +355,7 @@ Partial Class Ventas_CatAutorizacionLimites
StrFiltro.AppendFormat(", Fecha Fin: {0}", fechaFin) StrFiltro.AppendFormat(", Fecha Fin: {0}", fechaFin)
'Oculta columnas en export sin afectar GridView en página 'Oculta columnas en export sin afectar GridView en página
Dim tcols = GvDatos.Columns.Count Dim tcols As Integer = GvDatos.Columns.Count
GvDatos.HeaderRow.Cells(tcols - 2).Visible = False 'Autorizar/Rechazar GvDatos.HeaderRow.Cells(tcols - 2).Visible = False 'Autorizar/Rechazar
GvDatos.HeaderRow.Cells(tcols - 1).Visible = False 'Eliminar GvDatos.HeaderRow.Cells(tcols - 1).Visible = False 'Eliminar