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

4
RH/ActualizacionMasiva.aspx.vb
View File

@@ -13,7 +13,7 @@ Partial Class RH_ActualizacionMasiva
'DdlCliente.Attributes.Add("onclick", "CargaClientes();")
'CargaProyecto()
ViewState("gvtsubproyectos") = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
ViewState("gvtsubproyectos") = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto)
divddlproyeto.Visible = DdlProyecto.Visible
GvDatos.Columns(2).Visible = DdlProyecto.Visible
@@ -123,7 +123,7 @@ Partial Class RH_ActualizacionMasiva
End If
End Sub
Private Sub CargaSupervisores()
ViewState("DTUsuarios") = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0} AND EsSupervisorRH = 1 ", UsuarioActual.CveEmpresa))
ViewState("DTUsuarios") = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" EsSupervisorRH = 1 ")
Dim Row As DataRow = DirectCast(ViewState("DTUsuarios"), DataTable).NewRow()
Row("CveUsuario") = -1 : Row("Nombre") = "Sin Supervisor Asignado"

2
RH/Asistencias.aspx.vb
View File

@@ -60,7 +60,7 @@ Partial Class RH_Asistencias
Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlProyecto.SelectedValue.ToEntero)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub

2
RH/CatChecadores.aspx.cs
View File

@@ -47,7 +47,7 @@ public partial class RH_CatChecadores : ClsPaginas
private void CargaSubProyectos()
{
DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
DdlSubProyecto.DataBind();
CargarCentrosDeCosto(null, DdlSubProyecto,null, LblSubProyecto);

8
RH/CatPersonal.aspx.vb
View File

@@ -304,7 +304,7 @@ Partial Class RH_CatPersonal
DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
'filtro por usuario subproyecto/sucursal vsh
'If UsuarioActual.CveEmpresa = 7 Then
' DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
' DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos( UsuarioActual.CveEmpresa ).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
'End If
UpSubProyecto.Update()
End Sub
@@ -316,7 +316,7 @@ Partial Class RH_CatPersonal
DdlMedioTransporte.DataBind()
'filtro por usuario subproyecto/sucursal vsh
'If UsuarioActual.CveEmpresa = 7 Then
' DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
' DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos( UsuarioActual.CveEmpresa ).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
'End If
'UpSubProyecto.Update()
End Sub
@@ -333,7 +333,7 @@ Partial Class RH_CatPersonal
End Sub
Private Sub CargaSupervisores()
DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
DdlSupervisor.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" EsSupervisorRH = 1 ")
DdlSupervisor.DataBind()
End Sub
@@ -1039,7 +1039,7 @@ Partial Class RH_CatPersonal
crow = 1
ccol = ccol + 1
Catalogos.Cell(crow, ccol).Value = "subproyecto"
Dim dtsubproyecto = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
Dim dtsubproyecto = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
For Each row As DataRow In dtsubproyecto.Rows
crow = crow + 1
Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveSubProyecto"), row("SubProyecto"))

2
RH/CatSubProyectosZonas.aspx.vb
View File

@@ -79,7 +79,7 @@ Partial Class RH_CatSubProyectosZonas
Private Sub RH_CatSubProyectosZonas_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.Empresa.CveEmpresa, 1)
DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.Empresa.CveEmpresa)
DdlSubproyecto.DataBind()
DdlSubproyecto.Items.Insert(0, New ListItem("Seleccine un subroyecto", "-1"))
CargaZonas()

2
RH/ListaAsistenciaRH.aspx.vb
View File

@@ -32,7 +32,7 @@ Partial Class RH_ListaAsistenciaRH
Private Sub CargaCombos()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

2
RH/MiPerfil.aspx.vb
View File

@@ -1367,7 +1367,7 @@ Partial Class RH_MiPerfil
If (CveSubProyectoPersonal > 0) Then
Dim ObjBancos As New ClsBancos()
Dim Serie As String = GlobalDTSubProyectos(-1, CveSubProyectoPersonal, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Serie")
Dim Serie As String = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyectoPersonal).FiltroPrimeroValor("Serie")
If (ObjBancos.GetNextFolioSolicitudViaticos(UsuarioActual.CveEmpresa, String.Format("{0}-", Serie))) Then
TxtFolio.Text = ObjBancos.DtResultados.FiltroPrimeroValor("Folio")

16
RH/Personal.aspx.vb
View File

@@ -1124,7 +1124,7 @@ Partial Class RH_Personal
End If
If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
Dim DTSub As DataTable = GlobalDTSubProyectos(-1, Request("CveSubProyecto").ToEntero()) 'Cambiame
Dim DTSub As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Request("CveSubProyecto").ToEntero()) 'Cambiame
If DTSub.Rows.Count > 0 Then
Dim DTProy As DataTable = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("CveProyecto = " & DTSub.Rows(0)("CveProyecto").ToString())
If DTProy.Rows.Count > 0 Then
@@ -1360,7 +1360,7 @@ Partial Class RH_Personal
Private Sub CargaSubProyectoAsignado()
If DivProyectosAsignado.Visible Then
DdlSubProyectoAsignado.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
DdlSubProyectoAsignado.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
DdlSubProyectoAsignado.DataBind()
DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
'old
@@ -1382,7 +1382,7 @@ Partial Class RH_Personal
Private Sub CargaSubProyectoAsistenciaA()
DdlSubProyectoAsistenciasA.Items.Clear()
DdlSubProyectoAsistenciasA.DataSource = GlobalDTSubProyectos(DdlProyectoAsistenciaA.SelectedValue.ToEntero())
DdlSubProyectoAsistenciasA.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlProyectoAsistenciaA.SelectedValue.ToEntero())
DdlSubProyectoAsistenciasA.DataBind()
DdlSubProyectoAsistenciasA.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -1399,7 +1399,7 @@ Partial Class RH_Personal
End Sub
Private Sub CargaSupervisores()
DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
DdlSupervisor.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" EsSupervisorRH = 1 ")
DdlSupervisor.DataBind()
End Sub
@@ -1423,7 +1423,7 @@ Partial Class RH_Personal
' DdlPermisosReemplazo.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
' DdlPermisosReemplazo.DataSource = GlobalDTUsuarios(-1,UsuarioActual.CveEmpresa)
'DdlPermisosReemplazo.DataBind()
End Sub
Private Sub CargaMetodosPago()
@@ -6533,7 +6533,7 @@ Partial Class RH_Personal
'End If
Dim SBDomicilioSucursal As New StringBuilder()
Dim DRSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero(), Estatus:=1).FiltroPrimero("")
Dim DRSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero(), Estatus:=1).FiltroPrimero("")
If DRSucursal IsNot Nothing Then
Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
@@ -7829,11 +7829,11 @@ Partial Class RH_Personal
Private Sub EnviarCorreoBajaReingresoNominista(eTipoMovimientoRH As TipoMovimientoRH)
Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")
Dim CorreoNominista As String = GlobalDTUsuarios(DDLUsuarioNomina.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
Dim correo As New ClsSisMail
Dim Cuerpo As New StringBuilder
Dim CorreoUsuario As String = GlobalDTUsuarios(CveUsuario:=UsuarioActual.CveUsuario).FiltroPrimeroValor("Correo")
Dim CorreoUsuario As String = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
Dim CCP As String = If(CorreoUsuario.Trim.Length > 0, CorreoUsuario, "")
'Para Pruebas

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"

4
RH/RepAsistencias.aspx.vb
View File

@@ -71,14 +71,14 @@ Partial Class RH_RepAsistencias
'DivProyectosAsignado.Visible = LblProyectoAsignado.Visible
DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub

2
RH/RepChecadorPreAsistencia.aspx.vb
View File

@@ -307,7 +307,7 @@ Partial Class RH_RepChecadorPreAsistencia
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
DdlTurno.DataBind()
' DdlTurno.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlTurno.Items.Insert(0, New ListItem("Todos", "-1"))

2
RH/RepCursos.aspx.vb
View File

@@ -24,7 +24,7 @@ Partial Class RH_RepCursos
DdlDepartamentos.DataBind()
DdlDepartamentos.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
DdlSupervisor.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" EsSupervisorRH = 1 ")
DdlSupervisor.DataBind()
DdlSupervisor.Items.Insert(0, New ListItem("Todos", "-1"))

6
RH/RepDocumentacionVencida.aspx.vb
View File

@@ -12,8 +12,6 @@ Imports GemBox.Spreadsheet
Partial Class RH_RepDocumentacionVencida
Inherits ClsPaginas
Private Property DTDatos As DataTable
Get
If ViewState("DTDatos") Is Nothing Then
@@ -87,7 +85,7 @@ Partial Class RH_RepDocumentacionVencida
DDLSucursal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DDLSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DDLSucursal.DataBind()
DDLSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
If UsuarioActual.CveSucursal > 0 Then
@@ -96,7 +94,7 @@ Partial Class RH_RepDocumentacionVencida
End If
DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
DdlSupervisor.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" EsSupervisorRH = 1 ")
DdlSupervisor.DataBind()

2
RH/RepUniformes.aspx.vb
View File

@@ -26,7 +26,7 @@ Partial Class RH_RepUniformes
If Not Page.IsPostBack Then
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' ")

2
RH/RepUniformesResguardo.aspx.vb
View File

@@ -26,7 +26,7 @@ Partial Class RH_RepUniformesResguardo
If Not Page.IsPostBack Then
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' ")

4
RH/RepVacaciones.aspx.vb
View File

@@ -20,7 +20,7 @@ Partial Class RH_RepVacaciones
Private Sub CargaCombos()
DDLSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DDLSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DDLSubProyecto.DataBind()
DDLSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -36,7 +36,7 @@ Partial Class RH_RepVacaciones
'DDLSucursal.DataBind()
'DDLSucursal.Items.Insert(0, New ListItem("Todas", "-1"))
DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
DdlSupervisor.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" EsSupervisorRH = 1 ")
DdlSupervisor.DataBind()
DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa)

2
RH/SolicitudViaticos.aspx.cs
View File

@@ -276,7 +276,7 @@ public partial class RH_SolicitudViaticos : ClsPaginas
//{
// ClsBancos ObjBancos = new ClsBancos();
// String Serie = get_GlobalDTSubProyectos(-1, CveSubProyectoPersonal, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Serie");
// String Serie = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyectoPersonal).FiltroPrimeroValor("Serie");
// if (ObjBancos.GetNextFolioSolicitudViaticos(UsuarioActual.CveEmpresa, String.Format("{0}-", Serie)))
// {