Ventas Tasa 0 , CatProyectos proyectos duplciados, IE improte de Anticipo de OC

2023-03-04 09:15:23 -07:00
parent 93d312089f
commit 9aa764b829
3 changed files with 19 additions and 4 deletions
--- a/Planeacion/CatProyectos.aspx.vb
+++ b/Planeacion/CatProyectos.aspx.vb
@@ -63,7 +63,7 @@ Partial Class CatProyectos

    Public Sub CargaDatos()
        Dim ObjProyectos As New ClsProyectos
-        If ObjProyectos.GetProyectos(UsuarioActual.CveEmpresa) Then
+        If ObjProyectos.GetProyectos(UsuarioActual.CveEmpresa, Opcion:=1) Then
            GvDatos.DataSource = ObjProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            GvDatos.DataBind()
        End If