AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- mejora parametro cveempresa

Browse Source
This commit is contained in:
rrene
2024-08-10 14:06:04 -07:00
parent 8f34b2341c
commit 55fc50f89d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Nomina/EventoDetalle.aspx.vb
View File

@@ -954,7 +954,7 @@ Partial Class OI_EventoDetalle
' End If ' End If
'End If 'End If
Dim DT As DataTable = GlobalDTUsuarios(-1, tCveEmpresa).FiltraParametros(String.Format(" Estatus = 1 {0}", FiltroAD), "Rol ASC") Dim DT As DataTable = GlobalDTUsuarios(-1, tCveEmpresa).FiltraParametros(String.Format(" Estatus =1 {0}", FiltroAD), "Rol ASC")
GVUsuarios.DataSource = AgregaGrupos(DT) GVUsuarios.DataSource = AgregaGrupos(DT)
DT.Dispose() DT.Dispose()
@@ -1126,7 +1126,7 @@ Partial Class OI_EventoDetalle
'UsuarioPara = DdlUsuarioPara.SelectedItem.Text 'UsuarioPara = DdlUsuarioPara.SelectedItem.Text
Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, UsuarioActual.CveEmpresa).FiltroPrimero("") Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, CveEmpresa).FiltroPrimero("")
If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
Dim RutaGuardar = "" Dim RutaGuardar = ""
RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta) RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta)