From acb5d18fadd6a6ecc45337f39447d519c0d60850 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 14 Aug 2023 19:23:10 -0700 Subject: [PATCH] -- double a decimal --- App_Code/ClsBancos.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 05c8e5531..dc7db36d4 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -151,9 +151,9 @@ Public Class ClsBancos Public Property Referencia As String Public Property TipoCredito As Integer Public Property Plazo As Integer - Public Property ImporteCredito As Double - Public Property CreditoValor As Double - Public Property TotalFinanciado As Double + Public Property ImporteCredito As Decimal + Public Property CreditoValor As Decimal + Public Property TotalFinanciado As Decimal Public Property Proveedor As String Public Property CveProveedor As Integer Public Property CveTipoCredito As Integer @@ -2434,8 +2434,8 @@ Public Class ClsBancos FacturaSerieFolio = Data.Rows(0)("FacturaSerieFolio").ToString FacturaDescripcion = Data.Rows(0)("FacturaDescripcion").ToString FacturaFecha = Data.Rows(0)("FacturaFecha").ToString.ToDate - CreditoValor = Data.Rows(0)("CreditoValor").ToString.ToDouble - TotalFinanciado = Data.Rows(0)("TotalFinanciado").ToString.ToDouble + CreditoValor = Data.Rows(0)("CreditoValor").ToString.ToDecimal + TotalFinanciado = Data.Rows(0)("TotalFinanciado").ToString.ToDecimal CvePrePoliza = Data.Rows(0)("CvePrePoliza").ToString.ToEntero End If Retorno = True