-- cargar todos los subproyectos

2023-11-29 18:23:32 -07:00
parent 5c0b915acc
commit 18a7661b1a
1 changed files with 1 additions and 1 deletions
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -105,7 +105,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones

        DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)

-        DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1)
        DdlSubProyectos.Items.Insert(0, New ListItem("-", "0"))

        Dim ObjBancos As New ClsBancos