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

-- mejora combos y visual fecha

Browse Source
This commit is contained in:
rrene
2023-03-28 08:48:47 -07:00
parent 2c5a4f1e37
commit ad12e2cb2f
2 changed files with 30 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
RH/Asistencias.aspx.vb
View File

@@ -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"})