diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 799a0b234..841c4e217 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1215,7 +1215,7 @@ Partial Class General_SaldosIniciales
                 Dim NoEncontrados As Integer = 0
                 Dim Encontrados As Integer = 0
                 Dim StrRFCNoencontrados As New StringBuilder
-                Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("")
+                Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("AplicaParaVenta = 1")
                 Dim CvePS As Integer = drr("CvePS").ToString.ToEntero
                 Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString.ToEntero
                 Dim CveClasificacion As Integer = drr("CveClasificacion").ToString.ToEntero
@@ -1728,7 +1728,7 @@ Partial Class General_SaldosIniciales
                         End If
 
                         Dim SubP As String = Row("SubProyecto").ToString.Trim
-                        If SubP <> "" OrElse SubP <> "-" Then
+                        If SubP <> "" AndAlso SubP <> "-" Then
                             DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
                             CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
                             If CveSubProyecto <= 0 Then