diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index fdfba80f9..3d3497fb1 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1641,7 +1641,7 @@ Partial Class General_SaldosIniciales
                 Try
                     DtProveedores = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
 
-                    Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("")
+                    Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("CveTipoPS = 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()