diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index bff609215..109929692 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1726,7 +1726,7 @@ Partial Class General_SaldosIniciales
                             Exit For
                         End If
 
-                        Dim SubP As String = Row("SubProyecto").ToString
+                        Dim SubP As String = Row("SubProyecto").ToString.Trim
                         If SubP <> "" OrElse SubP <> "-" Then
                             DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
                             CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
@@ -1771,6 +1771,7 @@ Partial Class General_SaldosIniciales
 
 
                 Catch ex As Exception
+                    Alert(ex.Message)
                     ObjConta.RollBack()
                 End Try