diff --git a/RH/Asistencias.aspx b/RH/Asistencias.aspx index c1355d4d0..2e2aa8fcf 100644 --- a/RH/Asistencias.aspx +++ b/RH/Asistencias.aspx @@ -34,7 +34,7 @@
diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index 62bdc408a..bc966e3e0 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -9,7 +9,7 @@ Partial Class RH_Asistencias If Not IsPostBack Then 'CargaClientes() - DdlCliente.Attributes.Add("onclick", "CargaClientes();") + 'DdlCliente.Attributes.Add("onclick", "CargaClientes();") CargaSuperioresOrganigrama() CargaProyecto() CargaTurnos() @@ -44,23 +44,23 @@ Partial Class RH_Asistencias End Sub #End Region - Private Sub CargaClientes() - Dim ObjClientes As New ClsClientes - If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then - DdlCliente.DataSource = ObjClientes.DtResultados - Else - DdlCliente.DataSource = Nothing - End If - ObjClientes.Dispose() - 'Application("GlobalDTResponsable") + 'Private Sub CargaClientes() + ' Dim ObjClientes As New ClsClientes + ' If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then + ' DdlCliente.DataSource = ObjClientes.DtResultados + ' Else + ' DdlCliente.DataSource = Nothing + ' End If + ' ObjClientes.Dispose() + ' 'Application("GlobalDTResponsable") - DdlCliente.DataBind() - End Sub + ' DdlCliente.DataBind() + 'End Sub - Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click - CargaClientes() - DdlCliente.Attributes.Remove("onclick") - End Sub + 'Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click + ' 'CargaClientes() + ' 'DdlCliente.Attributes.Remove("onclick") + 'End Sub Private Sub CargaProyecto() 'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveProyecto", "Proyecto"})