diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 3a88f8496..f37302c1c 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1981,7 +1981,7 @@ Partial Class General_SaldosIniciales
                     Dim CvePrePoliza As Integer = 0
                     Dim Cuenta As String = ""
                     Dim Reporte As New StringBuilder
-
+                    Dim SubProTemp As DataTable = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa)
                     CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, Now.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                     For Each Row As DataRow In dt.Rows
@@ -1994,12 +1994,14 @@ Partial Class General_SaldosIniciales
                         Dim CveSubProyecto As Integer = -1
                         Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
                         Dim YaExiste As Boolean = False
+                        Dim DataTemp As DataTable
 
                         Dim SubP As String = Row("SubProyecto").ToString
                         If SubP <> "" Then
-                            CveSubProyecto = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
+                            DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
+                            CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
                         End If
-
+                        Cuenta = Cuenta.Replace(" ", "")
                         If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
                             If ObjConta.DtResultados.Rows.Count > 0 Then
                                 IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero