-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios
2024-08-01 05:46:28 -07:00
parent 14f053bc86
commit 1c14bceea9
240 changed files with 692 additions and 689 deletions
--- a/Contratos/RepPresupuestosDetalleCompras.aspx.vb
+++ b/Contratos/RepPresupuestosDetalleCompras.aspx.vb
@@ -102,7 +102,7 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
            DdlSubProyecto.SelectedValueExist(CveSubProyecto)
        ElseIf Agrupador = 1 Then
            If Not EsProyecto Then
-                Dim Dr As DataRow = GlobalDTSubProyectos(-1, Gpo)(0)
+                Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0)
                DdlProyecto.SelectedValueExist(Dr("CveProyecto"))
                CargaSubProyecto()
                DdlSubProyecto.SelectedValueExist(Gpo)