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

-- cambio de GlobalDTSubProyectos

Browse Source 
- cambio en GlobalDTUsuarios
This commit is contained in:
rrene
2024-08-01 05:46:28 -07:00
parent 14f053bc86
commit 1c14bceea9
240 changed files with 692 additions and 689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
RH/Reclutamiento.aspx.vb
View File

@@ -818,10 +818,10 @@ Partial Class RH_Reclutamiento
DDLEstadoCivil4.DataBind()
If UsuarioActual.CveSubProyecto > 0 Then
'DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltraParametros($"CveSubProyecto={UsuarioActual.CveSubProyecto}")
'DdlSubproyecto.DataSource = GlobalDTSubProyectos( UsuarioActual.CveEmpresa ).FiltraParametros($"CveSubProyecto={UsuarioActual.CveSubProyecto}")
DdlSubproyecto.DataSource = GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros($"CveUsuario={UsuarioActual.CveUsuario}")
Else
'DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
'DdlSubproyecto.DataSource = GlobalDTSubProyectos( UsuarioActual.CveEmpresa )
DdlSubproyecto.DataSource = GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros($"CveUsuario={UsuarioActual.CveUsuario}")
End If
@@ -5416,12 +5416,12 @@ Partial Class RH_Reclutamiento
If DdlEmpresaAsiganada.SelectedIndex > 0 Then
ddlPuesto.DataSource = GlobalDTRHPuestos(DdlEmpresaAsiganada.SelectedValue.ToEntero)
'If GlobalDTSubProyectos(-1, CveEmpresa:=DdlEmpresaAsiganada.SelectedValue.ToEntero).FiltraParametros($"SubProyecto = '{DdlSubproyecto.SelectedItem.Text}'").Rows.Count > 0 Then
' CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=DdlEmpresaAsiganada.SelectedValue.ToEntero).FiltraParametros($"SubProyecto = '{DdlSubproyecto.SelectedItem.Text}'").Rows(0)("CveSubProyecto").ToString.ToEntero
' DdlCliente.DataSource = GlobalDTCliente(DdlEmpresaAsiganada.SelectedValue.ToEntero).FiltraParametros($"CveSucursal = {CveSubProyecto}")
'If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
DdlCliente.DataSource = GlobalDTCliente(7)
'If GlobalDTSubProyectos( DdlEmpresaAsiganada.SelectedValue.ToEntero).FiltraParametros($"SubProyecto = '{DdlSubproyecto.SelectedItem.Text}'").Rows.Count > 0 Then
' CveSubProyecto = GlobalDTSubProyectos( DdlEmpresaAsiganada.SelectedValue.ToEntero).FiltraParametros($"SubProyecto = '{DdlSubproyecto.SelectedItem.Text}'").Rows(0)("CveSubProyecto").ToString.ToEntero
' DdlCliente.DataSource = GlobalDTCliente(DdlEmpresaAsiganada.SelectedValue.ToEntero).FiltraParametros($"CveSucursal = {CveSubProyecto}")
'If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
DdlCliente.DataSource = GlobalDTCliente(7)
'End If
'End If
@@ -5660,7 +5660,7 @@ Partial Class RH_Reclutamiento
Private Sub EviarCorreoNomista()
Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).Rows(0)("Correo").ToString
Dim CorreoNominista As String = GlobalDTUsuarios(DDLUsuarioNomina.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)("Correo").ToString
Dim correo As New ClsSisMail
Dim Cuerpo As New StringBuilder
'CorreoNominista = "pruebaad@outlook.com"