diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 95f405963..428c5e9b5 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -4,8 +4,7 @@ Imports System.Data
 Imports System.Math
 Imports ClosedXML.Excel
 Imports Extensiones
-Imports GemBox.Spreadsheet
-Imports log4net.Filter
+
 
 Partial Class General_SaldosIniciales
     Inherits ClsPaginas
@@ -1601,14 +1600,14 @@ Partial Class General_SaldosIniciales
                     Dim Fecha As Date = Row("Fecha").ToString().ToDate
                     Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString().ToDate
                     Dim ImpuestoLocal As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString().ToDecimal, 0D)
-                    Dim Amortizacion As Double = If(dt.Columns.Contains("Amort.Ant"), Row("Amort.Ant").ToString().ToDouble, 0.0)
+                    Dim Amortizacion As Decimal = If(dt.Columns.Contains("Amort.Ant"), Row("Amort.Ant").ToString().ToDecimal, 0)
                     Dim SubTotal As Decimal = Row("SubTotal").ToString().ToDecimal
                     Dim IVA As Decimal = Row("IVA").ToString().ToDecimal
                     Dim Total As Decimal = Row("Total").ToString().ToDecimal
                     Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
                     Dim CveCliente As Integer = DtClientes.FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString().ToEntero()
                     Dim RetIVA As Decimal = Row("Ret IVA").ToString().ToDecimal
-                    Dim RetISR As Double = Row("Ret ISR").ToString().ToDouble
+                    Dim RetISR As Decimal = Row("Ret ISR").ToString().ToDecimal
                     Dim Moneda As String = Row("Moneda").ToString()
                     Dim TipoCambio As String = Row("Tipo Cambio").ToString()
                     Dim CveMoneda As Integer = 1