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/>" If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
LblSubProyecto.Text = "Sucursal" LblSubProyecto.Text = "Sucursal"
End Select 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)) If DdlProyecto IsNot Nothing Then
DdlSubProyecto.DataBind() 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"}))
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) 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 Sub
End Class End Class

45
RH/Personal.aspx.vb
View File

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