From 69b2a7af7471609263f5dce971a12c15e6d374e9 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 13 May 2023 12:46:37 -0700
Subject: [PATCH] -- cambio en globaldtAsistencias, parametro cveempresa

---
 App_Code/ClsPaginas.vb                 | 15 +++--
 RH/Asistencias.aspx                    | 79 ++++++++++++--------------
 RH/Asistencias.aspx.vb                 | 23 ++++----
 RH/CatAsistenciasInasistencias.aspx.vb | 11 ++--
 RH/ListaAsistenciaRH.aspx.vb           |  4 +-
 RH/RepChecadorPreAsistencia.aspx       |  2 +-
 RH/RepChecadorPreAsistencia.aspx.vb    | 18 +++---
 7 files changed, 71 insertions(+), 81 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 908445a59..4816e439d 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3537,19 +3537,18 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTAsistenciasInasistencias() As DataTable
+    Property GlobalDTAsistenciasInasistencias(CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = "GlobalDTAsistenciasInasistencias"
-            'sino existe, recarga los datos
+            Dim AppNombre As String = $"GlobalDTAsistenciasInasistencias-{CveEmpresa}"
             If Application(AppNombre) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
-                If ObjPersonal.GetAsistenciasInasistencias() Then Application(AppNombre) = ObjPersonal.DtResultados
+                If ObjPersonal.GetAsistenciasInasistencias(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
             End If
             GlobalDTAsistenciasInasistencias = DirectCast(Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = "GlobalDTAsistenciasInasistencias"
+            Dim AppNombre As String = $"GlobalDTAsistenciasInasistencias-{CveEmpresa}"
             Application(AppNombre) = value
         End Set
     End Property
@@ -8231,12 +8230,12 @@ Public Class ClsPaginas
 
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 295, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 295, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
                 ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 227, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 227, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
             Else
                 'Agregamos Nacional
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
             End If
 
             If Not ErrorMovtos AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=Pago.CveIE, CveVenta:=VentaActual.CveVenta, CveSubProyecto:=VentaActual.CveSubProyecto, CveCliente:=VentaActual.CveCliente, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then
diff --git a/RH/Asistencias.aspx b/RH/Asistencias.aspx
index c22c41f78..4aae019e5 100644
--- a/RH/Asistencias.aspx
+++ b/RH/Asistencias.aspx
@@ -98,70 +98,65 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
-    <table style="width: 100%;">
-        <tr>
-            <td>
+  
                 <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
-                        <asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" DataKeyNames="CvePersonal,CveCliente" EmptyDataText="No se encontró Personal asignado al Proyecto o al Cliente" ToolTip="Listado de Personal" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
+                        <asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" DataKeyNames="CvePersonal,CveCliente" EmptyDataText="No se encontró Personal asignado al Proyecto o al Cliente" ToolTip="Listado de Personal" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"  GridLines="None">
                             <Columns>
-                                <asp:TemplateField>
+                                <asp:TemplateField HeaderStyle-Width="70px">
                                     <HeaderTemplate>N°</HeaderTemplate>
                                     <ItemTemplate>
                                         <asp:Literal ID="LtlCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:TemplateField>
+                                <asp:TemplateField HeaderStyle-Width="300px">
                                     <HeaderTemplate>Personal</HeaderTemplate>
                                     <ItemTemplate>
                                         <asp:Literal ID="LtlPersonal" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-
-                                <asp:TemplateField ItemStyle-Width="100px" HeaderStyle-Width="100px" FooterStyle-HorizontalAlign="Left">
+                                <asp:TemplateField HeaderStyle-Width="100px" >
                                     <HeaderTemplate>Cliente</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:Label ID="LtlCliente" CssClass="truncate" Width="100px" runat="server" Text='<%# Eval("Nombre") %>'></asp:Label>
+                                        <asp:Label ID="LtlCliente" CssClass="truncate" Width="100px" runat="server" Text='<%# Eval("Cliente") %>'></asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-
-
-                                <asp:TemplateField>
+                                <asp:TemplateField HeaderStyle-Width="110px">
                                     <HeaderTemplate>Asistencia</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:DropDownList ID="DdlTipoAsistencias" runat="server" DataTextField="Tipo" DataValueField="CveAsistenciasInasistencias" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 90px !important;"></asp:DropDownList>
+                                        <asp:DropDownList ID="DdlTipoAsistencias" runat="server" DataTextField="Tipo" DataValueField="CveAsistenciasInasistencias" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;"></asp:DropDownList>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:TemplateField>
+                                <asp:TemplateField HeaderStyle-Width="80px">
                                     <HeaderTemplate>% de Pago</HeaderTemplate>
                                     <ItemTemplate>
                                         <asp:TextBox ID="TxtPorPago" runat="server" MaxLength="3" Text="100" Width="74px"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:TemplateField>
+                                <asp:TemplateField HeaderStyle-Width="80px">
                                     <HeaderTemplate>Hrs Dobles</HeaderTemplate>
                                     <ItemTemplate>
                                         <asp:TextBox ID="TxtHorasDobles" runat="server" MaxLength="3" Text="0" Width="79px"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:TemplateField>
+                                <asp:TemplateField HeaderStyle-Width="80px">
                                     <HeaderTemplate>Hrs Triples</HeaderTemplate>
                                     <ItemTemplate>
                                         <asp:TextBox ID="TxtHorasTriples" runat="server" MaxLength="3" Text="0" Width="79px"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:TemplateField>
+                                <asp:TemplateField HeaderStyle-Width="150px">
                                     <HeaderTemplate>Motivo H. Extras</HeaderTemplate>
                                     <ItemTemplate>
                                         <asp:DropDownList ID="DdlMotivoHoraExtra" runat="server" AppendDataBoundItems="true" DataTextField="MotivoHoraExtra" DataValueField="CveMotivoHoraExtra" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 140px !important;">
-                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                            <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
                                         </asp:DropDownList>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Obs.</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:TextBox ID="TxtObservaciones" runat="server" Width="84px" MaxLength="150"></asp:TextBox>
+                                        <asp:TextBox ID="TxtObservaciones" runat="server" Width="100%" MaxLength="150"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                             </Columns>
@@ -171,35 +166,31 @@
                         </asp:GridView>
                         <div class="text-right">
                             <asp:Button ID="BtnGuardar" Visible="false" runat="server" Text="Guardar Asistencia" class="btn btn-primary" />
+                            <table class="table table-striped table-advance table-hover">
+                            <thead>
+                                <tr class="Titulos">
+                                    <th>#</th>
+                                    <th style="text-align: left;">&nbsp;Notación</th>
+                                </tr>
+                            </thead>
+                            <tr>
+                                <td>1&nbsp;</td>
+                                <td style="text-align: left;">&nbsp;Sin registrar asistencia</td>
+                            </tr>
+                            <tr>
+                                <td>2&nbsp;</td>
+                                <td style="text-align: left; background-color: #ADD8E6">&nbsp;Se registró asistencia</td>
+                            </tr>
+                            <tr>
+                                <td>3&nbsp;</td>
+                                <td style="text-align: left; background-color: #f2dede">&nbsp;Se registró asistencia y fue modificada</td>
+                            </tr>
+                        </table>
                         </div>
 
                     </ContentTemplate>
                 </asp:UpdatePanel>
-            </td>
-            <td style="width: 250px; text-align: left; vertical-align: top;">
-                <table class="table table-striped table-advance table-hover">
-                    <thead>
-                        <tr class="Titulos">
-                            <th>#</th>
-                            <th style="text-align: left;">&nbsp;Notación</th>
-                        </tr>
-                    </thead>
-                    <tr>
-                        <td>1&nbsp;</td>
-                        <td style="text-align: left;">&nbsp;Sin registrar asistencia</td>
-                    </tr>
-                    <tr>
-                        <td>2&nbsp;</td>
-                        <td style="text-align: left; background-color: #ADD8E6">&nbsp;Se registró asistencia</td>
-                    </tr>
-                    <tr>
-                        <td>3&nbsp;</td>
-                        <td style="text-align: left; background-color: #f2dede">&nbsp;Se registró asistencia y fue modificada</td>
-                    </tr>
-                </table>
-            </td>
-        </tr>
-    </table>
+            
 
     <div id="DModalCargaASistenciaMasiva" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel ID="UPP" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb
index decb15779..4d4d577ef 100644
--- a/RH/Asistencias.aspx.vb
+++ b/RH/Asistencias.aspx.vb
@@ -16,6 +16,7 @@ Partial Class RH_Asistencias
             If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then ' emp citricola
                 divCliente.Visible = False
                 LblCliente.Visible = False
+                GV.Columns(2).Visible = False
             End If
             txtFechaAsistencia.Text = Now.ToShortDateString
             If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveUsuario = 2343 Then
@@ -146,16 +147,16 @@ Partial Class RH_Asistencias
 
     Protected Sub GV_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.RowIndex = 0 Then
-                e.Row.Cells(0).Width = Unit.Pixel(60)
-                e.Row.Cells(1).Width = Unit.Pixel(300)
-                e.Row.Cells(2).Width = Unit.Pixel(100)
-                e.Row.Cells(3).Width = Unit.Pixel(80)
-                e.Row.Cells(4).Width = Unit.Pixel(85)
-                e.Row.Cells(5).Width = Unit.Pixel(85)
-                e.Row.Cells(6).Width = Unit.Pixel(150)
-                e.Row.Cells(7).Width = Unit.Pixel(90)
-            End If
+            'If e.Row.RowIndex = 0 Then
+            '    e.Row.Cells(0).Width = Unit.Pixel(60)
+            '    e.Row.Cells(1).Width = Unit.Pixel(300)
+            '    e.Row.Cells(2).Width = Unit.Pixel(100)
+            '    e.Row.Cells(3).Width = Unit.Pixel(80)
+            '    e.Row.Cells(4).Width = Unit.Pixel(85)
+            '    e.Row.Cells(5).Width = Unit.Pixel(85)
+            '    e.Row.Cells(6).Width = Unit.Pixel(150)
+            '    e.Row.Cells(7).Width = Unit.Pixel(90)
+            'End If
 
             e.Row.FCLiteral("LtlCodigo").Text = "<a class=""Texto"" href=""/RH/Personal.aspx?CvePersonal=" & e.Row.DBCampo("CvePersonal") & "&Opt=4"">" & e.Row.DBCampo("Codigo") & "</a>"
             e.Row.FCLiteral("LtlPersonal").Text = "<a class=""Texto"" href=""/RH/Personal.aspx?CvePersonal=" & e.Row.DBCampo("CvePersonal") & "&Opt=4"">" & e.Row.DBCampo("Nombre") & "</a>"
@@ -166,7 +167,7 @@ Partial Class RH_Asistencias
             e.Row.FCTextBox("TxtHorasTriples").Text = e.Row.DBCampo("HorasTriples")
 
             'Carga Tipos de Asistencia
-            e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("DdlTipoAsistencias").DataBind()
             If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias")
 
diff --git a/RH/CatAsistenciasInasistencias.aspx.vb b/RH/CatAsistenciasInasistencias.aspx.vb
index df5eb6a3a..99337a21a 100644
--- a/RH/CatAsistenciasInasistencias.aspx.vb
+++ b/RH/CatAsistenciasInasistencias.aspx.vb
@@ -46,9 +46,8 @@ Partial Class RH_CatAsistenciasInasistencias
 
     Public Sub CargaDatos()
         Dim ObjAsistenciasInasistencias As New ClsRH
-        If ObjAsistenciasInasistencias.GetAsistenciasInasistencias() Then
-            ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAsistenciasInasistencias = ObjAsistenciasInasistencias.DtResultados
+        If ObjAsistenciasInasistencias.GetAsistenciasInasistencias(UsuarioActual.CveEmpresa) Then
+            ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -96,7 +95,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
             Alert("El nuevo Tipo Asistencias/Inasistencias se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulos.Update()
             ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAsistenciasInasistencias = ObjAsistenciasInasistencias.DtResultados
+            GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa) = Nothing
 
             If ViewState("Orden").ToString() <> String.Empty Then
                 CargaGrid(ViewState("Orden").ToString())
@@ -176,7 +175,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
                     aplicaPrimaVac) Then
             GvDatos.EditIndex = -1
             ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAsistenciasInasistencias = ObjAsistenciasInasistencias.DtResultados
+            GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
         ObjAsistenciasInasistencias.Dispose()
@@ -200,7 +199,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
         If ObjAsistenciasInasistencias.RemoveAsistenciasInasistencias(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAsistenciasInasistencias = ObjAsistenciasInasistencias.DtResultados
+            GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa) = Nothing
             Alert("El AsistenciasInasistencias se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
         ObjAsistenciasInasistencias.Dispose()
diff --git a/RH/ListaAsistenciaRH.aspx.vb b/RH/ListaAsistenciaRH.aspx.vb
index 19655741b..b4e574491 100644
--- a/RH/ListaAsistenciaRH.aspx.vb
+++ b/RH/ListaAsistenciaRH.aspx.vb
@@ -65,7 +65,7 @@ Partial Class RH_ListaAsistenciaRH
         If e.Row.RowType = DataControlRowType.DataRow Then
             'CvePersonal,CveAsistencia,CveAsistenciasInasistencias
             'DdlAsistenciaInasistencia
-            Dim DTAsistenciasInasistencias As DataTable = GlobalDTAsistenciasInasistencias().FiltraParametros($"CveEmpresa ={ UsuarioActual.CveEmpresa}")
+            Dim DTAsistenciasInasistencias As DataTable = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
 
             'If DTAsistenciasInasistencias.Rows.Count = 0 Then
             '    DTAsistenciasInasistencias = GlobalDTAsistenciasInasistencias().FiltraParametros($"CveEmpresa = 2 ")
@@ -85,7 +85,7 @@ Partial Class RH_ListaAsistenciaRH
     Private Sub BtnProcesaLista_Click(sender As Object, e As EventArgs) Handles BtnProcesaLista.Click
 
         Dim TieneError As Boolean = False
-        Dim DTAsistenciasInasistencias As DataTable = GlobalDTAsistenciasInasistencias().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+        Dim DTAsistenciasInasistencias As DataTable = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
 
         If DTAsistenciasInasistencias.Rows.Count > 0 Then
 
diff --git a/RH/RepChecadorPreAsistencia.aspx b/RH/RepChecadorPreAsistencia.aspx
index 26cd19071..4e5443f3d 100644
--- a/RH/RepChecadorPreAsistencia.aspx
+++ b/RH/RepChecadorPreAsistencia.aspx
@@ -35,7 +35,7 @@
                     <div class="titlefiltros caption ">
                         <ul class="list-inline text-size-12">
                             <li>Tipo Periodo:
-                                 <asp:DropDownList ID="DdlTipoPeriodo" AutoPostBack="true"  runat="server" CssClass="form-control input-sm select2me" Style="width: 200px !important;" ValidationGroup="GrpGuardar" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo">
+                                 <asp:DropDownList ID="DdlTipoPeriodo" AutoPostBack="true"  runat="server" CssClass="form-control input-sm select2me" Style="width: 150px !important;" ValidationGroup="GrpGuardar" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo">
                                  </asp:DropDownList>
                             </li>
                             <li><asp:label ID="LblPeriodo" runat="server"  Visible="true" >Periodo:</asp:label>
diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb
index c032b790e..a364806ee 100644
--- a/RH/RepChecadorPreAsistencia.aspx.vb
+++ b/RH/RepChecadorPreAsistencia.aspx.vb
@@ -141,7 +141,7 @@ Partial Class RH_RepChecadorPreAsistencia
     Private Sub CargaCombos()
 
 
-        DdlAsistenciaInacistencia.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros(String.Format(" CveEmpresa = {0} AND CveAsistenciasInasistencias <> 6", UsuarioActual.Empresa.CveEmpresa))
+        DdlAsistenciaInacistencia.DataSource = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros("  CveAsistenciasInasistencias <> 6")
         DdlAsistenciaInacistencia.DataBind()
         DdlAsistenciaInacistencia.Items.Insert(0, New ListItem("Seleccionar una opción", "-1"))
         Dim objNom As New ClsNominas
@@ -295,10 +295,10 @@ Partial Class RH_RepChecadorPreAsistencia
         Dim CveAsistenciaInasistenciaDescanso As Integer = -1
 
         Try
-            CveASistenciaInasistenciaAsistio = GlobalDTAsistenciasInasistencias.FiltraParametros(" TipoCorto = 'A' AND CveEmpresa = " & UsuarioActual.Empresa.CveEmpresa)(0)("CveAsistenciasInasistencias").ToString().ToEntero
-            CveAsistenciaInasistenciaFalta = GlobalDTAsistenciasInasistencias.FiltraParametros(" TipoCorto = 'F' AND CveEmpresa = " & UsuarioActual.Empresa.CveEmpresa)(0)("CveAsistenciasInasistencias").ToString().ToEntero
-            CveAsistenciaInasistenciaRetardo = GlobalDTAsistenciasInasistencias.FiltraParametros(" TipoCorto = 'R' AND CveEmpresa = " & UsuarioActual.Empresa.CveEmpresa)(0)("CveAsistenciasInasistencias").ToString().ToEntero
-            CveAsistenciaInasistenciaDescanso = GlobalDTAsistenciasInasistencias.FiltraParametros(" TipoCorto = 'D' AND CveEmpresa = " & UsuarioActual.Empresa.CveEmpresa)(0)("CveAsistenciasInasistencias").ToString().ToEntero
+            CveASistenciaInasistenciaAsistio = GlobalDTAsistenciasInasistencias(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(" TipoCorto = 'A'")(0)("CveAsistenciasInasistencias").ToString().ToEntero
+            CveAsistenciaInasistenciaFalta = GlobalDTAsistenciasInasistencias(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(" TipoCorto = 'F'")(0)("CveAsistenciasInasistencias").ToString().ToEntero
+            CveAsistenciaInasistenciaRetardo = GlobalDTAsistenciasInasistencias(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(" TipoCorto = 'R' ")(0)("CveAsistenciasInasistencias").ToString().ToEntero
+            CveAsistenciaInasistenciaDescanso = GlobalDTAsistenciasInasistencias(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(" TipoCorto = 'D' ")(0)("CveAsistenciasInasistencias").ToString().ToEntero
 
         Catch ex As Exception
             Alert("Se presento un error al obtener las claves de asistencia.", TipoMensaje.MsgError)
@@ -1585,14 +1585,14 @@ Partial Class RH_RepChecadorPreAsistencia
 
         Dim objRH As New ClsRH
 
-        If objRH.PreAsistenciaRegistrosGet(FechaInicioPeriodo, FechaFinPeriodo, DdlTurno.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
+        If objRH.PreAsistenciaRegistrosGet(FechaInicioPeriodo, FechaFinPeriodo, DdlTurno.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             DTChecadorRegistros = objRH.DtResultados
         End If
 
         objRH.Dispose()
 
         Instruccion = arrayComands(0)
-        DTTipoAsistenciaInasistencia = GlobalDTAsistenciasInasistencias.FiltraParametros(" CveEmpresa = " & UsuarioActual.Empresa.CveEmpresa & " AND  TipoCorto = '" & Instruccion & "' ")
+        DTTipoAsistenciaInasistencia = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros("  TipoCorto = '" & Instruccion & "' ")
 
         If DTTipoAsistenciaInasistencia.Rows.Count > 0 Then
             CveEstado = DTTipoAsistenciaInasistencia(0)(0).ToString().ToEntero
@@ -1748,7 +1748,7 @@ Partial Class RH_RepChecadorPreAsistencia
         Dim CvePersonal As Integer = temtDt(0)("CvePersonal").ToString().ToEntero
         Dim filtro As String = String.Format(" CvePersonal = '{0}'  AND  Fecha  = '{1}'", CvePersonal, fecha)
 
-        Dim AplicaFalta As String = GlobalDTAsistenciasInasistencias.FiltraParametros(String.Format(" CveAsistenciasInasistencias =  {0} ", DdlAsistenciaInacistencia.SelectedValue))(0)("AplicaFalta").ToString()
+        Dim AplicaFalta As String = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveAsistenciasInasistencias =  {0} ", DdlAsistenciaInacistencia.SelectedValue))(0)("AplicaFalta").ToString()
 
 
         myRow = DtResultados.Select(filtro)
@@ -1763,7 +1763,7 @@ Partial Class RH_RepChecadorPreAsistencia
 
         myRow(0)("CveAsistenciasInasistencias") = DdlAsistenciaInacistencia.SelectedValue
 
-        myRow(0)("TipoCorto") = GlobalDTAsistenciasInasistencias.FiltraParametros(String.Format(" CveAsistenciasInasistencias =  {0} ", DdlAsistenciaInacistencia.SelectedValue))(0)("TipoCorto").ToString()
+        myRow(0)("TipoCorto") = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveAsistenciasInasistencias =  {0} ", DdlAsistenciaInacistencia.SelectedValue))(0)("TipoCorto").ToString()
 
         RegistraScript("$('#divDetallesDia').modal('hide');")
         Alert("Actualizado correctamente.")