From 32d1b156c028d38efb922a938e1a9c6c4bf5c7c3 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Jan 2022 12:12:15 -0700 Subject: [PATCH] -mejora en autorizar redondeaba a entero --- Ventas/CatAutorizacionLimites.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb index ed1e6c027..5a3c9de21 100644 --- a/Ventas/CatAutorizacionLimites.aspx.vb +++ b/Ventas/CatAutorizacionLimites.aspx.vb @@ -175,7 +175,7 @@ Partial Class Ventas_CatAutorizacionLimites Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero() Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero() Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero() - Dim Importe = gvRow.DataKey("Importe").ToEntero() + Dim Importe = gvRow.DataKey("Importe").ToDecimal() Dim CveEstatusAutorizacion As Integer = 1 Dim ObjVentas As New ClsVentas @@ -192,7 +192,7 @@ Partial Class Ventas_CatAutorizacionLimites Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero() Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero() Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero() - Dim Importe = gvRow.DataKey("Importe").ToEntero() + Dim Importe = gvRow.DataKey("Importe").ToDecimal() Dim CveEstatusAutorizacion As Integer = 3 Dim ObjVentas As New ClsVentas