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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-07-04 18:19:26 -07:00
parent da1991458a bcdc49d183
commit 78419dc0bb
2 changed files with 34 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
App_Code/ClsPaginas.vb
View File

@@ -8059,12 +8059,18 @@ Public Class ClsPaginas
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
LblSubProyecto.Text = "Sucursal"
End Select
DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
DdlProyecto.DataBind()
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
If DdlProyecto IsNot Nothing Then
DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
DdlProyecto.DataBind()
DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
If DdlSubProyecto IsNot Nothing Then
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
End Sub
End Class

45
RH/Personal.aspx.vb
View File

@@ -5775,33 +5775,34 @@ Partial Class RH_Personal
If dtVC.Rows.Count > 0 Then
dr = dtVC.Rows(0)
If UsuarioActual.CveEmpresa.Contiene(72) Then
Dim SBDomicilioSucursal As New StringBuilder()
Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero, Estatus:=1).FiltroPrimero("")
'If UsuarioActual.CveEmpresa.Contiene(72, 119) Then
'End If
If DRSucursal IsNot Nothing Then
Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
Dim DomicilioSucursal As String = ""
Dim SBDomicilioSucursal As New StringBuilder()
Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero, Estatus:=1).FiltroPrimero("")
SBDomicilioSucursal.AppendFormat("{0}", DRSucursal("Calle"))
If DRSucursal("NoExt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString().ToEntero)
If DRSucursal("NoInt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString().ToEntero)
If DRSucursal("Colonia").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString())
If DRSucursal("CP").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString())
If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
If DRSucursal("Pais").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString())
End If
If DRSucursal IsNot Nothing Then
Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
Dim DomicilioSucursal As String = ""
params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString()))
params.Add(New ReportParameter("RFC", dr("RFC").ToString()))
params.Add(New ReportParameter("Puesto", dr("Puesto").ToString()))
params.Add(New ReportParameter("Departamento", dr("Departamento").ToString()))
params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString()))
params.Add(New ReportParameter("Telefono", dr("Celular").ToString()))
params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString()))
params.Add(New ReportParameter("PuestoUsuarioActual", dr("PuestoUsuarioImprimio").ToString()))
SBDomicilioSucursal.AppendFormat("{0}", DRSucursal("Calle"))
If DRSucursal("NoExt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString().ToEntero)
If DRSucursal("NoInt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString().ToEntero)
If DRSucursal("Colonia").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString())
If DRSucursal("CP").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString())
If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
If DRSucursal("Pais").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString())
End If
params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString()))
params.Add(New ReportParameter("RFC", dr("RFC").ToString()))
params.Add(New ReportParameter("Puesto", dr("Puesto").ToString()))
params.Add(New ReportParameter("Departamento", dr("Departamento").ToString()))
params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString()))
params.Add(New ReportParameter("Telefono", dr("Celular").ToString()))
params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString()))
params.Add(New ReportParameter("PuestoUsuarioActual", dr("PuestoUsuarioImprimio").ToString()))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))