diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 11f56d18e..fa3ad4341 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -690,7 +690,7 @@ Partial Class Bancos_PopIEVentas
                 If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
 
 
-                    Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString(), dr("ClienteRFC").ToString, UsuarioActual.Empresa.RFC)
+                    Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString(), UsuarioActual.Empresa.RFC, dr("ClienteRFC").ToString, dr("Total").ToString.ToDecimal)
 
                     If Valida.EsValida > 0 Then
                         If Valida.EsValida = 2 Then
@@ -713,9 +713,9 @@ Partial Class Bancos_PopIEVentas
                         Else
                             Validada = True
                         End If
-                    Else
-                        'no se pudo validar, pero ya tuvo la primera vuelta de validacion
-                        Validada = True
+                    Else
+                        'no se pudo validar, pero ya tuvo la primera vuelta de validacion
+                        Validada = False
                     End If
                     Valida.Dispose()
                 Else
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index c46a48f5b..bc5167d0e 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1398,7 +1398,7 @@ Partial Class General_SaldosIniciales
 
 
                     'If Not CveCliente > 0 Then Alert(String.Format("No se encontró el cliente con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorVentas = True : RFC.GuardaLog : Exit For
-                    TipoDocto = IIf(TipoDocto = "INGRESO", "Ing", IIf(TipoDocto = "EGRESO", "Egs", "Rem")).ToString
+                    TipoDocto = IIf(TipoDocto.Contiene("INGRESO", "INGRESOS"), "Ing", IIf(TipoDocto = "EGRESO", "Egs", "Rem")).ToString
                     'PrePóliza
                     Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Venta/SaldoInicial", 1, Total, Total, 1, Fecha, String.Format("{0}-{1}", Serie, Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
@@ -1410,9 +1410,9 @@ Partial Class General_SaldosIniciales
                     End If
 
                     'Moneda
-                    If Moneda = "Pesos" Then
+                    If Moneda.ToUpper.Contiene("PESOS", "PESO", "MN") Then
                         CveMoneda = 1
-                    ElseIf Moneda = "Dólares" Then
+                    ElseIf Moneda.ToUpper.Contiene("DÓLARES", "DOLARES", "USD") Then
                         CveMoneda = 2
                     End If