Contratos 2020-12-24

2020-12-24 14:03:55 -07:00
parent 73d3d6af73
commit 1161767d18
4 changed files with 426 additions and 33 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1366,7 +1366,15 @@ Partial Class Compras_Compras
            Dim ObjPersonal As New ClsRH
            ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa)
            DdlPersonal.DataSource = ObjPersonal.DtResultados
-            DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
+
+            If UsuarioActual.CveEmpresa = 119 Then
+                DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados
+            Else
+                DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
+            End If
+
+
+
            ObjPersonal.Dispose()
            DdlPersonal.DataBind()
            DdlPersonalReembolso.DataBind()