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

-- double a decimal

Browse Source
This commit is contained in:
rrene
2023-08-14 19:23:10 -07:00
parent d096c38420
commit acb5d18fad
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/ClsBancos.vb
View File

@@ -151,9 +151,9 @@ Public Class ClsBancos
Public Property Referencia As String Public Property Referencia As String
Public Property TipoCredito As Integer Public Property TipoCredito As Integer
Public Property Plazo As Integer Public Property Plazo As Integer
Public Property ImporteCredito As Double Public Property ImporteCredito As Decimal
Public Property CreditoValor As Double Public Property CreditoValor As Decimal
Public Property TotalFinanciado As Double Public Property TotalFinanciado As Decimal
Public Property Proveedor As String Public Property Proveedor As String
Public Property CveProveedor As Integer Public Property CveProveedor As Integer
Public Property CveTipoCredito As Integer Public Property CveTipoCredito As Integer
@@ -2434,8 +2434,8 @@ Public Class ClsBancos
FacturaSerieFolio = Data.Rows(0)("FacturaSerieFolio").ToString FacturaSerieFolio = Data.Rows(0)("FacturaSerieFolio").ToString
FacturaDescripcion = Data.Rows(0)("FacturaDescripcion").ToString FacturaDescripcion = Data.Rows(0)("FacturaDescripcion").ToString
FacturaFecha = Data.Rows(0)("FacturaFecha").ToString.ToDate FacturaFecha = Data.Rows(0)("FacturaFecha").ToString.ToDate
CreditoValor = Data.Rows(0)("CreditoValor").ToString.ToDouble CreditoValor = Data.Rows(0)("CreditoValor").ToString.ToDecimal
TotalFinanciado = Data.Rows(0)("TotalFinanciado").ToString.ToDouble TotalFinanciado = Data.Rows(0)("TotalFinanciado").ToString.ToDecimal
CvePrePoliza = Data.Rows(0)("CvePrePoliza").ToString.ToEntero CvePrePoliza = Data.Rows(0)("CvePrePoliza").ToString.ToEntero
End If End If
Retorno = True Retorno = True