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

Formatos de Factura 4.0

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-04-04 19:54:20 -07:00
parent 5b2583b2b5
commit b14603a8b9
13 changed files with 21289 additions and 20157 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
RH/RepAsistencias.aspx
View File

@@ -112,6 +112,8 @@
<asp:DropDownList runat="server" CssClass="select2me" ID="DdlGrupo" Width="100%">
<asp:ListItem Value="1" Selected="True">Cliente</asp:ListItem>
<asp:ListItem Value="2">Personal</asp:ListItem>
<asp:ListItem Value="3">Turno</asp:ListItem>
<asp:ListItem Value="4">Supervisor</asp:ListItem>
</asp:DropDownList>
</div>
@@ -140,8 +142,7 @@
<div class="col-md-1">
<asp:DropDownList ID="DdlSupervisorOrganigrama" runat="server" Style="display: inline-block; ;" AppendDataBoundItems="True" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Sin Asignar" Value="-2"></asp:ListItem>
<asp:ListItem Text="Cabecera" Value="0"></asp:ListItem>
<asp:ListItem Text="Sin Asignar" Value="-2"></asp:ListItem>
</asp:DropDownList>
</div>
@@ -165,7 +166,7 @@
<%--'SUM(1) CountEmpleados, ISNULL(C.CveCliente,-1) AS CveCliente, ISNULL(C.Nombre,''Cliente sin Asignar'') AS Cliente ,RH.CvePersonal, RH.NombreCompleto, ',--%>
<asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" DataKeyNames="Ordenador,CvePersonal,Cliente,NombreCompleto"
<asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" DataKeyNames="Ordenador"
EmptyDataText="No se encontraron registros" ToolTip="Listado de Personal"
CssClass="ADSCROLLER2 table table-striped table-advance table-hover" data-cols="1" data-heightmenos="300"

20
RH/RepAsistencias.aspx.vb
View File

@@ -10,6 +10,7 @@ Partial Class RH_RepAsistencias
If Not IsPostBack Then
'CargaClientes()
'DdlCliente.Attributes.Add("onclick", "CargaClientes();")
CargaSuperioresOrganigrama()
CargaClientes()
CargaProyecto()
CargaTurnos()
@@ -23,6 +24,25 @@ Partial Class RH_RepAsistencias
#Region "CargaCombos"
Private Sub CargaSuperioresOrganigrama()
'Dim ObjRH As New ClsRH
'If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
' DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados
'Else
' DdlSupervisorOrganigrama.DataSource = Nothing
' Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
'End If
'ObjRH.Dispose()
Using objbase As New ClsRH()
If (objbase.SupervisorOrganigramaGet(UsuarioActual.CveEmpresa)) Then
DdlSupervisorOrganigrama.DataSource = objbase.DtResultados
DdlSupervisorOrganigrama.DataBind()
End If
End Using
End Sub
Private Sub CargaClientes()
Dim ObjClientes As New ClsClientes