diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb
index 3b372de36..8394d6218 100644
--- a/Bancos/ConciliacionesBancarias.aspx.vb
+++ b/Bancos/ConciliacionesBancarias.aspx.vb
@@ -571,7 +571,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
 
         Dim Dt1 As New DataTable
         Dt1 = DtDatos.FiltraParametros($"FueConciliado = 0 And Tipo = 'Abono'")
-        Dim TotalDt1 As Double = Dt1.SUM("Importe")
+        Dim TotalDt1 As Decimal = Dt1.SUMD("Importe")
 
         Dim Row1 As DataRow = Dt1.NewRow
         Row1("Importe") = TotalDt1
@@ -581,7 +581,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
 
         Dim Dt2 As New DataTable
         Dt2 = DtDatosEdoCuenta.FiltraParametros($"FueConciliado = 0 And Tipo = 'Abono'")
-        Dim TotalDt2 As Double = Dt2.SUM("Importe")
+        Dim TotalDt2 As Decimal = Dt2.SUMD("Importe")
 
         Dim Row2 As DataRow = Dt2.NewRow
         Row2("Importe") = TotalDt2
@@ -591,7 +591,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
 
         Dim Dt3 As New DataTable
         Dt3 = DtDatos.FiltraParametros($"FueConciliado = 0 And Tipo = 'Cargo'")
-        Dim TotalDt3 As Double = Dt3.SUM("Importe")
+        Dim TotalDt3 As Decimal = Dt3.SUMD("Importe")
 
         Dim Row3 As DataRow = Dt3.NewRow
         Row3("Importe") = TotalDt3
@@ -601,7 +601,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
 
         Dim Dt4 As New DataTable
         Dt4 = DtDatosEdoCuenta.FiltraParametros($"FueConciliado = 0 And Tipo = 'Cargo'")
-        Dim TotalDt4 As Double = Dt4.SUM("Importe")
+        Dim TotalDt4 As Decimal = Dt4.SUMD("Importe")
 
         Dim Row4 As DataRow = Dt4.NewRow
         Row4("Importe") = TotalDt4
@@ -628,7 +628,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
         lrds.Add(rds4)
 
         params.Add(New ReportParameter("SaldoFinalEstadoCuenta", (TxtSaldoFinal.Text.FormatoNumero)))
-        Dim SaldoFinalLibros As Double = (TxtSaldoFinal.Text.ToDouble - TotalDt1 + TotalDt2 + TotalDt3 - TotalDt4)
+        Dim SaldoFinalLibros As Decimal = (TxtSaldoFinal.Text.ToDecimal - TotalDt1 + TotalDt2 + TotalDt3 - TotalDt4)
         params.Add(New ReportParameter("SaldoFinalLibros", SaldoFinalLibros.FormatoNumero))
 
         Dim SaldoFinalContabilidad As Double = 0