This commit is contained in:
2021-11-17 20:42:39 -07:00
parent 03c70147ef
commit d06af6b35f

View File

@@ -1726,7 +1726,7 @@ Partial Class General_SaldosIniciales
Exit For Exit For
End If End If
Dim SubP As String = Row("SubProyecto").ToString Dim SubP As String = Row("SubProyecto").ToString.Trim
If SubP <> "" OrElse SubP <> "-" Then If SubP <> "" OrElse SubP <> "-" Then
DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP)) DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
@@ -1771,6 +1771,7 @@ Partial Class General_SaldosIniciales
Catch ex As Exception Catch ex As Exception
Alert(ex.Message)
ObjConta.RollBack() ObjConta.RollBack()
End Try End Try