Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsFinanzas.vb

@@ -261,21 +261,20 @@ Public Class ClsFinanzas
 
 
 
-    Public Function GetRazonesFinancierasBalanceGeneralRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
+    Public Function GetRazonesFinancierasBalanceGeneralRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Finan_RF_BalanceGeneralRepGet")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
             .Add("@Periodo", SqlDbType.Int).Value = Periodo
-
+            .Add("@Fechas", SqlDbType.VarChar).Value = Fechas
-
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -288,20 +287,20 @@ Public Class ClsFinanzas
 
 
 
-    Public Function GetRazonesFinancierasEstadoResultadosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
+    Public Function GetRazonesFinancierasEstadoResultadosRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Finan_RF_EstadoResultadosRepGet")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
             .Add("@Periodo", SqlDbType.Int).Value = Periodo
-
+            .Add("@Fechas", SqlDbType.VarChar).Value = Fechas
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
 
         End With
         Try
@@ -314,20 +313,19 @@ Public Class ClsFinanzas
     End Function
 
 
-    Public Function GetRazonesFinancierasRatiosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean
+    Public Function GetRazonesFinancierasRatiosRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Finan_RF_RatiosRepGet")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
             .Add("@Periodo", SqlDbType.Int).Value = Periodo
-
+            .Add("@Fechas", SqlDbType.VarChar).Value = Fechas
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
 
         End With
         Try

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"
+            Dim AppNombre As String = $"GlobalDTAsistenciasInasistencias-{CveEmpresa}"
-            'sino existe, recarga los datos
             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

App_Code/ClsRH.vb

@@ -314,11 +314,13 @@ Public Class ClsRH
 #End Region
 
 #Region "ClsRHAsistenciasInasistencias"
-    Public Function GetAsistenciasInasistencias() As Boolean
+    Public Function GetAsistenciasInasistencias(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_RH_AsistenciasInasistenciasGet")
-
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True

Contabilidad/RegPrePolizaS.aspx.vb

@@ -2772,10 +2772,18 @@ Partial Class ContabilidadC_RegPrePolizaS
             End If
 
             If Archivo.Exists Then
+
                 ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
+
             Else
+                Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                 ruta = "Empresas/Grales/Formatos/Polizas.rdlc"
             End If
+
+
+
+
             ImprimirbytesPDF(StreamPDF(ruta, dtVC, params, "ppoliza"), String.Format("{0}-{1}", TipoPoliza, dr("FolioPoliza").ToString), "PDF", True)
 
         End If

Contabilidad2/RepEstadoActividades.aspx

@@ -66,8 +66,8 @@
                                 </asp:DropDownList>
                             </div>
 
-                            <label class="col-md-1" >Consolidado: </label>
+                            <label class="col-md-1"  runat="server" id="DVConsolidado1" visible="false">Consolidado: </label>
-                             <div class="col-md-1">
+                             <div class="col-md-1" runat="server" id="DVConsolidado2" visible="false">
                                 <asp:DropDownList ID="DdlOpcion" runat="server" CssClass="select2me"   Width="100%">
                                     <asp:ListItem Selected="True" Value ="1">Normal</asp:ListItem>
                                     <asp:ListItem Value ="2">Consolidado</asp:ListItem>

Contabilidad2/RepEstadoActividades.aspx.vb

@@ -98,6 +98,13 @@ Partial Class AC_RepEstadoActividades
             CargaEjercicios()
 
             CargaDatos()
+
+
+            If UsuarioActual.Empresa.GrupoEmpresa > 0 And UsuarioActual.CveRol = 1 Then
+                DVConsolidado1.Visible = True
+                DVConsolidado2.Visible = True
+            End If
+
         End If
     End Sub
 

Contabilidad2/RepSituacionFinanciera.aspx

@@ -64,8 +64,8 @@
                                 </asp:DropDownList>
                             </div>
 
-                             <label class="col-md-1"  >Consolidado: </label>
+                              <label class="col-md-1"  runat="server" id="DVConsolidado1" visible="false">Consolidado: </label>
-                             <div class="col-md-1">
+                             <div class="col-md-1" runat="server" id="DVConsolidado2" visible="false">
                                 <asp:DropDownList ID="DdlOpcion" runat="server" CssClass="select2me"   Width="100%">
                                     <asp:ListItem Selected="True" Value ="1">Normal</asp:ListItem>
                                     <asp:ListItem Value ="2">Consolidado</asp:ListItem>

Contabilidad2/RepSituacionFinanciera.aspx.vb

@@ -149,6 +149,11 @@ Partial Class AC2_SituacionFinanciera
 
             CargaEjercicios()
 
+            If UsuarioActual.Empresa.GrupoEmpresa > 0 And UsuarioActual.CveRol = 1 Then
+                DVConsolidado1.Visible = True
+                DVConsolidado2.Visible = True
+            End If
+
             'CargaDatos()
         End If
     End Sub

Finanzas/RepRazonesFinancieras2.aspx

@@ -40,19 +40,29 @@
                         <div class="row">
                             <div class="col-md-12">
 
+
+                                <label class="col-md-1" runat="server" id="LblVista">Vista: </label>
+                                <div class="col-md-1 " runat="server" >
+                                    <asp:DropDownList ID="DdlVista" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlVista_SelectedIndexChanged">
+                                        <asp:ListItem Value="1" Selected="True">Ejercicio</asp:ListItem>
+                                        <asp:ListItem Value="2">Mensual</asp:ListItem>
+                                    </asp:DropDownList>
+                                </div>
+
+
                                 <label class="col-md-1" runat="server" id="LiEjercicioLbl">Ejercicio Inicio: </label>
-                                <div class="col-md-1 " runat="server" id="LiEjercicioDdl">
+                                <div class="col-md-2 " runat="server" id="LiEjercicioDdl">
-                                    <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio_SelectedIndexChanged">
+                                    <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" >
                                     </asp:DropDownList>
                                 </div>
 
                                 <label class="col-md-1" runat="server" id="LiEjercicioLbl2" visible="True">Ejercicio Fin: </label>
-                                <div class="col-md-1" runat="server" id="LiEjercicioDdl2" visible="True">
+                                <div class="col-md-2" runat="server" id="LiEjercicioDdl2" visible="True">
-                                    <asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio2_SelectedIndexChanged">
+                                    <asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" >
                                     </asp:DropDownList>
                                 </div>
-                                  <label class="col-md-2" style="width: 80px;"  runat="server" id="LiPeriodoLbl"  >Periodo: </label>    
+                                 <label class="col-md-2" style="width: 80px;"  runat="server" id="LblPeriodo" visible="false"  >Periodo: </label>    
-                                <div class="col-md-2 " runat="server" id="LiPeriodoDdl">
+                                <div class="col-md-2 " runat="server" id="DivPeriodo" visible="false">
                                     <asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
                                         <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
                                         <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>

Finanzas/RepRazonesFinancieras2.aspx.vb

@@ -31,18 +31,32 @@ Partial Class Finanzas_RepRazonesFinancieras2
     End Property
 
 
+    Property DTEjercicios As DataTable
+        Get
+            If ViewState("DTEjercicios") Is Nothing Then
+                ViewState("DTEjercicios") = New DataTable
+            End If
+
+            Return DirectCast(ViewState("DTEjercicios"), DataTable)
+
+        End Get
+        Set(value As DataTable)
+            ViewState("DTEjercicios") = value
+        End Set
+    End Property
+
+
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
             Tab.ActiveTabIndex = 0
 
-            CargaEjercicios()
+            CargaDTEjercicios()
+            DdlVista_SelectedIndexChanged(Nothing, Nothing)
 
             CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
 
-
-
             DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual)
             ValidaEjercicios()
 
@@ -85,26 +99,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
         UpFiltros.Update()
     End Sub
 
-    Private Sub CargaEjercicios()
-        'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim ClsConta As New ClsContabilidad
-        If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
-            DdlEjercicio.DataSource = ClsConta.DtResultados
-            DdlEjercicio2.DataSource = ClsConta.DtResultados
-        Else
-            DdlEjercicio.DataSource = Nothing
-            DdlEjercicio2.DataSource = Nothing
-        End If
-        ClsConta.Dispose()
-        DdlEjercicio.DataBind()
-        DdlEjercicio2.DataBind()
 
-        DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
-        If DdlEjercicio.Items.Count = 0 Then
-            DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString))
-        End If
-
-    End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
 
@@ -137,8 +132,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
         LnkExportar.Visible = False
         GvBalanceGeneralOcultarColumnas(GvBalanceGeneral, 1)
 
-        Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
+
-        Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
 
 
         Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
@@ -147,7 +141,12 @@ Partial Class Finanzas_RepRazonesFinancieras2
         Dim objFinanzas As New ClsFinanzas
         Dim dtTemp As New DataTable
 
-        If objFinanzas.GetRazonesFinancierasBalanceGeneralRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
+        Dim FechasConsultar As String = GetFechasConsultar()
+
+
+        ' Alert(FechasConsultar)
+
+        If objFinanzas.GetRazonesFinancierasBalanceGeneralRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
             dtTemp = objFinanzas.DtResultados
 
             GvBalanceGeneralMostrarColumnas(dtTemp, GvBalanceGeneral)
@@ -168,6 +167,8 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
     End Sub
 
+
+
     Private Sub GvBalanceGeneralOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
 
         For index = 2 To Gv.Columns.Count - 1
@@ -232,8 +233,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
         GVEstadoRsultadosOcultarColumnas(GVEstadoRsultados, 1)
 
 
-        Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
+
-        Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
 
 
         Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
@@ -242,7 +242,9 @@ Partial Class Finanzas_RepRazonesFinancieras2
         Dim objFinanzas As New ClsFinanzas
         Dim dtTemp As New DataTable
 
-        If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
+        Dim FechasConsultar As String = GetFechasConsultar()
+
+        If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
             dtTemp = objFinanzas.DtResultados
 
             GVEstadoRsultadosMostrarColumnas(dtTemp, GVEstadoRsultados)
@@ -280,11 +282,12 @@ Partial Class Finanzas_RepRazonesFinancieras2
             CType(Gv.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
             Gv.Columns(index + 4).Visible = True
             Dim tmpDate As Date
-            If (Date.TryParse(dt.Columns(index + 4).ColumnName, tmpDate)) Then
+            CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
-                CType(Gv.Columns(index + 4), BoundField).HeaderText = tmpDate.ToString("dd-MMM").Replace(".", "")
+            'If (Date.TryParse(dt.Columns(index + 4).ColumnName, tmpDate)) Then
-            Else
+            '    CType(Gv.Columns(index + 4), BoundField).HeaderText = tmpDate.ToString("dd-MMM").Replace(".", "")
-                CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
+            'Else
-            End If
+            '    CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
+            'End If
         Next
     End Sub
 
@@ -329,17 +332,17 @@ Partial Class Finanzas_RepRazonesFinancieras2
         GVRatiosOcultarColumnas(GVRatios, 1)
 
 
-        Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
+
-        Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
 
 
         Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
 
+        Dim FechasConsultar As String = GetFechasConsultar()
+
 
         Dim objFinanzas As New ClsFinanzas
 
-
+        If objFinanzas.GetRazonesFinancierasRatiosRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
-        If objFinanzas.GetRazonesFinancierasRatiosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
             DTRatios = objFinanzas.DtResultados
 
             GVRatiosMostrarColumnas(DTRatios, GVRatios)
@@ -477,15 +480,143 @@ Partial Class Finanzas_RepRazonesFinancieras2
 
 
 
+    Protected Sub DdlVista_SelectedIndexChanged(sender As Object, e As EventArgs)
 
 
+        LblPeriodo.Visible = False
+        DivPeriodo.Visible = False
+        DdlPeriodo.SelectedValueExist(12)
+
+        DdlEjercicio.SelectedValue = Nothing
+        DdlEjercicio2.SelectedValue = Nothing
+
+        DdlEjercicio.Items.Clear()
+        DdlEjercicio2.Items.Clear()
 
 
+        If DdlVista.SelectedValue.ToEntero = 1 Then
+
+            LblPeriodo.Visible = True
+            DivPeriodo.Visible = True
+
+            AddHandler DdlEjercicio.SelectedIndexChanged, AddressOf DdlEjercicio_SelectedIndexChanged
+            AddHandler DdlEjercicio2.SelectedIndexChanged, AddressOf DdlEjercicio2_SelectedIndexChanged
+            CargaEjercicios()
+        Else
+
+            RemoveHandler CType(DdlEjercicio, DropDownList).SelectedIndexChanged, AddressOf DdlEjercicio_SelectedIndexChanged
+            RemoveHandler CType(DdlEjercicio2, DropDownList).SelectedIndexChanged, AddressOf DdlEjercicio2_SelectedIndexChanged
+            CargaMeses()
+        End If
+
+        UpFiltros.Update()
+
+    End Sub
 
 
+    Private Sub CargaDTEjercicios()
+
+        Dim ClsConta As New ClsContabilidad
+        If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
+            DTEjercicios = ClsConta.DtResultados
+        End If
+        ClsConta.Dispose()
+    End Sub
+
+    Private Sub CargaEjercicios()
+
+        Dim Count As Integer = 0
+
+        For Each dRow As DataRow In DTEjercicios.Rows
+            DdlEjercicio.Items.Add(New ListItem($"{dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}"))
+            DdlEjercicio2.Items.Add(New ListItem($"{dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}"))
+            Count = Count + 1
+        Next
+
+        If Count > 0 Then
+            DdlEjercicio.SelectedIndex = 0
+            DdlEjercicio2.SelectedIndex = 0
+        End If
+
+    End Sub
 
 
+    Private Sub CargaMeses()
+
+        Dim Count As Integer = 0
+
+        For Each dRow As DataRow In DTEjercicios.Rows
+
+            DdlEjercicio.Items.Add(New ListItem($"Enero {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-01"))
+            DdlEjercicio.Items.Add(New ListItem($"Febrero {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-02"))
+            DdlEjercicio.Items.Add(New ListItem($"Marzo {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-03"))
+            DdlEjercicio.Items.Add(New ListItem($"Abril {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-04"))
+            DdlEjercicio.Items.Add(New ListItem($"Mayo {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-05"))
+            DdlEjercicio.Items.Add(New ListItem($"Junio {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-06"))
+            DdlEjercicio.Items.Add(New ListItem($"Julio {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-07"))
+            DdlEjercicio.Items.Add(New ListItem($"Agosto {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-08"))
+            DdlEjercicio.Items.Add(New ListItem($"Septiembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-09"))
+            DdlEjercicio.Items.Add(New ListItem($"Octubre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-10"))
+            DdlEjercicio.Items.Add(New ListItem($"Noviembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-11"))
+            DdlEjercicio.Items.Add(New ListItem($"Diciembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-12"))
+
+
+            DdlEjercicio2.Items.Add(New ListItem($"Enero {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-01"))
+            DdlEjercicio2.Items.Add(New ListItem($"Febrero {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-02"))
+            DdlEjercicio2.Items.Add(New ListItem($"Marzo {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-03"))
+            DdlEjercicio2.Items.Add(New ListItem($"Abril {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-04"))
+            DdlEjercicio2.Items.Add(New ListItem($"Mayo {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-05"))
+            DdlEjercicio2.Items.Add(New ListItem($"Junio {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-06"))
+            DdlEjercicio2.Items.Add(New ListItem($"Julio {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-07"))
+            DdlEjercicio2.Items.Add(New ListItem($"Agosto {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-08"))
+            DdlEjercicio2.Items.Add(New ListItem($"Septiembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-09"))
+            DdlEjercicio2.Items.Add(New ListItem($"Octubre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-10"))
+            DdlEjercicio2.Items.Add(New ListItem($"Noviembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-11"))
+            DdlEjercicio2.Items.Add(New ListItem($"Diciembre {dRow("Ejercicio").ToString}", $"{dRow("Ejercicio").ToString}-12"))
+
+
+            Count = Count + 1
+
+        Next
+
+        If Count > 0 Then
+            DdlEjercicio.SelectedIndex = 0
+            DdlEjercicio2.SelectedIndex = 0
+        End If
+
+
+    End Sub
+
+
+    Private Function GetFechasConsultar() As String
+        Dim ListaFechas As New List(Of String)
+
+        If DdlVista.SelectedValue.ToEntero = 1 Then 'POR EJERCICIO
+
+            If DdlEjercicio2.SelectedValue.ToEntero >= DdlEjercicio.SelectedValue.ToEntero Then
+
+                Dim x As Integer = DdlEjercicio.SelectedValue.ToEntero
+
+                For x = DdlEjercicio.SelectedValue.ToEntero To DdlEjercicio2.SelectedValue.ToEntero
+                    ListaFechas.Add($"{x}-12-31")
+                Next x
+            End If
+
+
+        Else ' POR MESES
+
+            ListaFechas.Add($"{DdlEjercicio.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd"))
+            ListaFechas.Add($"{DdlEjercicio2.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd"))
+
+        End If
+
+
+        Return String.Join(",", ListaFechas)
+
+    End Function
 
 
 End Class
 
+
+

Inventarios/EntradasSalidas.aspx

@@ -797,14 +797,14 @@
                                         <ItemTemplate>
                                             <asp:Literal ID="lbCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:#,##0.######}")%>'> </asp:Literal>
                                         </ItemTemplate>
-                                        <ItemStyle Width="43px"></ItemStyle>
+                                        <ItemStyle Width="60px"></ItemStyle>
                                     </asp:TemplateField>
                                     <asp:BoundField HeaderText="Producto" ReadOnly="true" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" />
                                     <asp:TemplateField HeaderText="Unidad">
                                         <ItemTemplate>
                                             <asp:Literal ID="lbUnidad" runat="server" Text='<%# Eval("UnidadMedida")%>'></asp:Literal>
                                         </ItemTemplate>
-                                        <ItemStyle Width="73px"></ItemStyle>
+                                        <ItemStyle Width="80px"></ItemStyle>
                                     </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Precio unitario" Visible="false">
                                         <EditItemTemplate>
@@ -813,14 +813,14 @@
                                         <ItemTemplate>
                                             <asp:Literal ID="lbPrecio" runat="server" Text='<%# Eval("PU", "{0:#,###,###.00####}")%>'></asp:Literal>
                                         </ItemTemplate>
-                                        <ItemStyle Width="63px" HorizontalAlign="Right"></ItemStyle>
+                                        <ItemStyle Width="80px" HorizontalAlign="Right"></ItemStyle>
                                         <FooterTemplate>
                                             <b>
                                                 <asp:Literal ID="lbTotProducto" runat="server" Text="Total:"></asp:Literal></b>
                                         </FooterTemplate>
                                         <FooterStyle HorizontalAlign="Right"></FooterStyle>
                                     </asp:TemplateField>
-                                    <asp:TemplateField HeaderText="Total" ItemStyle-Width="63px" ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right">
+                                    <asp:TemplateField HeaderText="Total" ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right">
                                         <ItemTemplate>
                                             <asp:Literal ID="LtTotal" runat="server" Text='<%# Eval("Total", "{0:N2}")%>'></asp:Literal>
                                         </ItemTemplate>
@@ -901,15 +901,12 @@
                                         </ItemTemplate>
                                         <ItemStyle Width="90px"></ItemStyle>
                                     </asp:TemplateField>
-                                    <asp:TemplateField HeaderText="Observaciones">
+                                    <asp:TemplateField HeaderText="Observaciones">                                         
-                                        <EditItemTemplate>
-                                            <asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" Width="80px" Text='<%# Eval("Observaciones")%>' Style="text-align: right;"></asp:TextBox>
-                                        </EditItemTemplate>
                                         <ItemTemplate>
                                             <asp:Literal ID="lblObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal>
                                         </ItemTemplate>
-                                        <ItemStyle Width="90px" HorizontalAlign="Right"></ItemStyle>
+                                        <ItemStyle Width="120px" ></ItemStyle>
-                                        <FooterStyle HorizontalAlign="Right"></FooterStyle>
+                                      
                                     </asp:TemplateField>
 
                                     <asp:TemplateField>

Inventarios/TraspasoAlmacen.aspx

@@ -615,30 +615,17 @@
                                             <div class="col-sm-9">
                                                 <asp:CheckBox ID="ChkRealizarDevolucion" runat="server" Checked="false" />
                                             </div>
-                                        </div>
+                                        </div> 
-                                        
-                                           
                                                 <asp:UpdatePanel runat="server">
-                                                    <ContentTemplate>
+                                                    <ContentTemplate> 
-
+                                                        <div class="row"> 
-                                                        <div class="row">
-
                                                             <div style="text-align: center;" class="col-sm-12">
                                                                 <asp:Button ID="BtnRecibir" runat="server" Text="Recibir Traspaso" OnClick="BtnRecibir_Click" class="btn btn-primary" ValidationGroup="GrpRecibir" />&nbsp;&nbsp;&nbsp;
                                                                  <asp:Button ID="BtnCancelarTraspaso" runat="server" Text="Cancelar Traspaso" OnClick="BtnCancelarTraspaso_Click" class="btn btn-danger" Visible="false" ValidationGroup="GrpRecibir" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el traspaso?" data-btn-ok-label="si" />                                                                 
-                                                            </div>                                                            
+                                                            </div> 
-
+                                                        </div> 
-                                                            
-
-
-                                                        </div>
-
-                                                       
-
-                                                       
                                                     </ContentTemplate>
-                                                </asp:UpdatePanel>
+                                                </asp:UpdatePanel> 
-                                           
                                         
                                     </div>
                                 </div>
@@ -679,25 +666,22 @@
                             <ContentTemplate>
                                 <asp:GridView ID="GvDatosRecepcion" DataKeyNames="CveMovimiento,CveUM,CvePS,PS,CveAF,CodigoBarras,CveAlmacen,CveAlmacenDestino,AplicaSerie,CveMovimientoDetalle,CveMovimientoDetalleTransitorio,PU,CveAlmacenSalida,CveMovimientoSalida,Serie,Lote,FechaCaducidad,Cantidad, GastoIndirectoSalida, Importe,Codigo,CveAlmacenTransitorioVirtual" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" ToolTip="Listado de Movimientos" CssClass="table table-hover Widthall" GridLines="None">
                                     <Columns>
-                                        <asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
+                                        <asp:TemplateField ItemStyle-Width="2%" ItemStyle-HorizontalAlign="Center">                                            
-                                            <%--<HeaderTemplate>
-                                        <input type="checkbox" id="ChkAll" onclick="CheckAll();" />
-                                    </HeaderTemplate>--%>
                                             <ItemTemplate>
                                                 <asp:CheckBox ID="Chk" Checked="true" runat="server"></asp:CheckBox>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
+                                        <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
                                             <ItemTemplate>
                                                 <asp:TextBox ID="TxtCantidad" Visible="false" Width="60px" runat="server" Text="0"></asp:TextBox>
                                                 <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,###.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
+                                        <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,###.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
-                                        <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
+                                        <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="5%" />
-                                        <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
+                                        <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" />
-                                        <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" />
+                                        <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" /> 
-                                        <%--<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="15%" />--%>
+                                        <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="15%" />
                                         <asp:TemplateField HeaderText="Serie" ItemStyle-Width="15%"  Visible="false" >
                                             <ItemTemplate>
                                                 <asp:TextBox ID="TxtSerie" Width="90px" runat="server" Text='<%# Eval("Serie") %>'></asp:TextBox>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1491,16 +1491,14 @@ Partial Class Inventarios_TraspasoAlmacen
             End If
             CveAlmacenDestino = DdlAlmacenRecepcion.SelectedValue.ToEntero
 
-            'CveUsuarioResponsable = DdlResponsableRecepcion.SelectedValue.ToEntero
-
             GvDatosRecepcion.DataSource = Dtt
             GvDatosRecepcion.DataBind()
 
             'GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("Serie") <> ""
-            GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("AplicaSerie") = "True"
+            GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("AplicaSerie") = "True"
-            GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("AplicaLote").ToEntero > 0 'Dtt.MAX("Lote") <> ""
+            GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("AplicaLote").ToEntero > 0 'Dtt.MAX("Lote") <> ""
-            GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("AplicaCaducidad").ToEntero > 0 'Dtt.MAX("FechaCaducidad").ToDate > MinFecha
+            GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("AplicaCaducidad").ToEntero > 0 'Dtt.MAX("FechaCaducidad").ToDate > MinFecha
-            GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("CveSeccionAlmacen").ToEntero > 0
+            GvDatosRecepcion.Columns(10).Visible = Dtt.MAX("CveSeccionAlmacen").ToEntero > 0
             'Dt.Dispose()
         End If
 
@@ -1517,7 +1515,6 @@ Partial Class Inventarios_TraspasoAlmacen
                 DivRealizarDevolucion.Visible = True
             End If
 
-
             If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                 HplImprimirRecepcion.Visible = True
                 HplImprimirRecepcion.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=Alm&CveMovimiento={CveMovimientoTraspaso}&EsTransitorio=True&CveAlmacenRecepcion={DdlAlmacenRecepcion.SelectedValue.ToEntero}&CveAlmacenTransitorioRecepcion={DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero}&FolioBusquedaTrasitorio={FolioBusqueda}")}"

Nomina/ChecadorAsistencia.aspx.cs

@@ -35,7 +35,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
                 TxtRpdFechaInicio.Text = string.Format("{1}{0:/MM/yyyy}", DateTime.Now,(DateTime.Now.Day>15?"16":"01"));
                 DdlTipoVista.SelectedValue = "2";
             }
-            DdlTipoAsistencias.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
+            DdlTipoAsistencias.DataSource = get_GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa);
             DdlTipoAsistencias.DataBind();
 
 
@@ -453,7 +453,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
             //Label LblAsisSubProyectoB = (Label)e.Row.FindControl("LblAsisSubProyecto");
             Panel PnlProyectoB = (Panel)e.Row.FindControl("PnlProyecto");
 
-            DdlTipoAsistenciasB.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
+            DdlTipoAsistenciasB.DataSource = get_GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa);
             DdlTipoAsistenciasB.DataBind();
             DdlTipoAsistenciasB.SelectedValueExist(CveAsistenciasInasistencias);
             if (DdlTipoAsistenciasB.SelectedIndex == 0)
@@ -462,19 +462,11 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
             }
             else
             {
-                DdlTipoAsistenciasB.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros(string.Format("CveEmpresa = {0} AND CveAsistenciasInasistencias IN({1},{2})", UsuarioActual.CveEmpresa, DdlTipoAsistenciasB.Items[0].Value, DdlTipoAsistenciasB.SelectedValue));
+                DdlTipoAsistenciasB.DataSource = get_GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa);
                 DdlTipoAsistenciasB.DataBind();
                 DdlTipoAsistenciasB.Enabled = true;
             }
-            /*
+           
-            DdlAsisProyectoB.DataSource = DdlAsisProyecto.DataSource;
-            DdlAsisProyectoB.DataBind();
-            DdlAsisSubProyectoB.DataSource = DdlAsisSubProyecto.DataSource;
-            DdlAsisSubProyectoB.DataBind();
-            LblAsisProyectoB.Text = LblAsisProyecto.Text;
-            LblAsisSubProyectoB.Text = LblAsisSubProyecto.Text;
-            */
-
             CargarCentrosDeCosto(DdlAsisProyectoB, DdlAsisSubProyectoB, LblAsisProyectoB, LblAsisSubProyecto);
             PnlProyectoB.Visible = PnlProyecto.Visible;
             DdlAsisProyectoB.SelectedValueExist(CveProyecto);

RH/Asistencias.aspx

@@ -25,169 +25,138 @@
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
 
-
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
-            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle">
-                <div class="portlet-title portlet-filterT smalltitle" style="min-height: 55px;">
                     <div class="tools">
                         <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
-                        <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a><%--class="expand"--%>
+                        <a href="javascript:;" class="expand"></a>
-                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
                     </div>
                     <div class="titlefiltros  caption ">
 
                         <div class="row">
-                            <div class="col-md-2">
+                           
-                                Cliente:
+                                <asp:Label ID="LblCliente" runat="server" class="col-md-1 truncate">Cliente:</asp:Label>
-                            <div>
+                                 <div class="col-md-2" id="divCliente" runat="server">
-                                <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlCliente" Width="100%" data-metodo="getcliente" UsaWebService="true" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%"></ADS:Dropdownlost>
+                                    <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlCliente" Width="100%" data-metodo="getcliente" UsaWebService="true" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%"></ADS:Dropdownlost>
-                            </div>
+                                </div> 
-                            </div>
+                                <asp:Label ID="LblProyectoAsignado" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
-
+                                <div class="col-md-1" id="DivProyectosAsignado1" runat="server">
-                            <div class="col-md-2" id="DivProyectosAsignado1" runat="server">
+                                    <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me" ValidationGroup="GrpGuardar">
-                                <asp:Label runat="server" ID="LblProyectoAsignado" AssociatedControlID="DdlProyecto">Proyecto:  </asp:Label>
-                                <div id="DivProyectosAsignado2" runat="server">
-                                    <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" Style="display: inline-block;" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                     </asp:DropDownList>
-                                </div>
+                                </div>   
-                            </div>
+                               <asp:Label ID="LblSubProyectoAsignado" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
-
+                                  <div class="col-md-1">
-                            <div class="col-md-2">
+                                    <asp:DropDownList ID="DdlSubProyecto" runat="server" Style="display: inline-block" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me" ValidationGroup="GrpGuardar">
-                                <asp:Label runat="server" ID="LblSubProyectoAsignado" AssociatedControlID="DdlSubProyecto">SubProyecto:  </asp:Label>
-
-                                <div>
-                                    <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" Style="display: inline-block" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                         <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                     </asp:DropDownList>
-                                </div> 
+                                </div>   
-                            </div> 
+                                <asp:Label runat="server"  class="col-md-1 truncate" AssociatedControlID="TxtFechaAsistencia">F. Asistencia: </asp:Label>
-                            <div class="col-md-2">
+                                 <div class="col-md-1">
-                                <asp:Label runat="server" AssociatedControlID="DdlTurno">Turno:  </asp:Label>
-                                <div>
-
-                                    <asp:DropDownList ID="DdlTurno" runat="server" AppendDataBoundItems="true" DataTextField="Turno" DataValueField="CveTurno"
-                                        Class="form-control input-sm select2me" ValidationGroup="GrpGuardar">
-                                        <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                    </asp:DropDownList>
-                                </div>
-                            </div>
-
-                            <div class="col-md-2">
-                                <asp:Label AssociatedControlID="DdlSupervisorOrganigrama" runat="server" Text="Supervisor:" Style="display: inline-block;"></asp:Label>
-                                <div>
-                                    <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:DropDownList>
-                                </div>
-                            </div>
-
-
-                            <div class="col-md-1">
-                                <asp:Label runat="server" AssociatedControlID="TxtFechaAsistencia">F. Asistencia: </asp:Label>
-                                <div  >
                                     <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
                                         <asp:TextBox Width="80px" ID="txtFechaAsistencia" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                         <span class="input-group-btn ">
                                             <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                        </span>
+                                        </span> 
-
                                         <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaAsistencia" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                         <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaAsistencia" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                                         <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaAsistencia" Display="None" ErrorMessage="El campo <b>''Fecha Asistencia''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
                                         <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaAsistencia" Display="None" ErrorMessage="El campo <b>''Fecha Asistencia''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
                                         <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                                         <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-
                                     </div>
-                                </div>
+                                </div> 
-                            </div>
+                            <asp:Label  runat="server" class="col-md-1 truncate" Text="Supervisor:" ></asp:Label>
-
+                                  <div class="col-md-1">
-
+                                        <div>
-
+                                            <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:DropDownList>
+                                        </div>
+                            </div> 
                         </div>
                     </div>
-                </div>
 
-                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+                </div>
+                    <div class="portlet-body" style="display: none">
                     <div class="row">
+                      
+                                
+                        <asp:Label runat="server"  class="col-md-1 truncate">Turno:  </asp:Label>
+                         <div class="col-md-2">
+
+                            <asp:DropDownList ID="DdlTurno" runat="server" AppendDataBoundItems="true" DataTextField="Turno" DataValueField="CveTurno"
+                                Class="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                     </div>
-                </div>
+                    </div>
+                   
             </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 HeaderStyle-Width="100px" >
-                                <asp:TemplateField ItemStyle-Width="100px" HeaderStyle-Width="100px" FooterStyle-HorizontalAlign="Left">
                                     <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 HeaderStyle-Width="110px">
-
-                                <asp:TemplateField>
                                     <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>
@@ -197,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">

RH/Asistencias.aspx.vb

@@ -13,7 +13,12 @@ Partial Class RH_Asistencias
             CargaSuperioresOrganigrama()
             CargaProyecto()
             CargaTurnos()
-            TxtFechaAsistencia.Text = Now.ToShortDateString
+            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
                 PnlMasivo.Visible = True
                 CargaTiposPeriodo()
@@ -25,15 +30,7 @@ Partial Class RH_Asistencias
 
 #Region "  ORGANIGRAMA  "
     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
@@ -41,44 +38,18 @@ Partial Class RH_Asistencias
             End If
         End Using
 
-
     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")
-
-    '    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
 
     Private Sub CargaProyecto()
-        'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveProyecto", "Proyecto"})
-        'DdlProyecto.DataBind()
 
-        CargarCentrosDeCosto(DdlProyecto, DdlProyecto, LblProyectoAsignado, LblSubProyectoAsignado)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoAsignado, LblSubProyectoAsignado, divProyecto:=DivProyectosAsignado1)
-        DivProyectosAsignado1.Visible = LblProyectoAsignado.Visible
-        DivProyectosAsignado2.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.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Private Sub CargaSubProyecto()
         DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
@@ -103,7 +74,6 @@ Partial Class RH_Asistencias
                     dt = dt.FiltraParametros(String.Format("CvePersonalPadre = {0}", DdlSupervisorOrganigrama.SelectedValue.ToEntero()))
                 ElseIf DdlSupervisorOrganigrama.SelectedValue.ToEntero() = -2 Then
                     dt = dt.FiltraParametros("CvePersonalPadre IS NULL")
-
                 Else
 
                 End If
@@ -177,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
+            'If e.Row.RowIndex = 0 Then
-                e.Row.Cells(0).Width = Unit.Pixel(60)
+            '    e.Row.Cells(0).Width = Unit.Pixel(60)
-                e.Row.Cells(1).Width = Unit.Pixel(300)
+            '    e.Row.Cells(1).Width = Unit.Pixel(300)
-                e.Row.Cells(2).Width = Unit.Pixel(100)
+            '    e.Row.Cells(2).Width = Unit.Pixel(100)
-                e.Row.Cells(3).Width = Unit.Pixel(80)
+            '    e.Row.Cells(3).Width = Unit.Pixel(80)
-                e.Row.Cells(4).Width = Unit.Pixel(85)
+            '    e.Row.Cells(4).Width = Unit.Pixel(85)
-                e.Row.Cells(5).Width = Unit.Pixel(85)
+            '    e.Row.Cells(5).Width = Unit.Pixel(85)
-                e.Row.Cells(6).Width = Unit.Pixel(150)
+            '    e.Row.Cells(6).Width = Unit.Pixel(150)
-                e.Row.Cells(7).Width = Unit.Pixel(90)
+            '    e.Row.Cells(7).Width = Unit.Pixel(90)
-            End If
+            '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>"
@@ -197,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")
 

RH/CatAsistenciasInasistencias.aspx.vb

@@ -46,9 +46,8 @@ Partial Class RH_CatAsistenciasInasistencias
 
     Public Sub CargaDatos()
         Dim ObjAsistenciasInasistencias As New ClsRH
-        If ObjAsistenciasInasistencias.GetAsistenciasInasistencias() Then
+        If ObjAsistenciasInasistencias.GetAsistenciasInasistencias(UsuarioActual.CveEmpresa) Then
-            ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados
-            GlobalDTAsistenciasInasistencias = 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()

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
 

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>

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
+            CveASistenciaInasistenciaAsistio = GlobalDTAsistenciasInasistencias(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(" TipoCorto = 'A'")(0)("CveAsistenciasInasistencias").ToString().ToEntero
-            CveAsistenciaInasistenciaFalta = GlobalDTAsistenciasInasistencias.FiltraParametros(" TipoCorto = 'F' AND CveEmpresa = " & UsuarioActual.Empresa.CveEmpresa)(0)("CveAsistenciasInasistencias").ToString().ToEntero
+            CveAsistenciaInasistenciaFalta = GlobalDTAsistenciasInasistencias(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(" TipoCorto = 'F'")(0)("CveAsistenciasInasistencias").ToString().ToEntero
-            CveAsistenciaInasistenciaRetardo = GlobalDTAsistenciasInasistencias.FiltraParametros(" TipoCorto = 'R' AND CveEmpresa = " & UsuarioActual.Empresa.CveEmpresa)(0)("CveAsistenciasInasistencias").ToString().ToEntero
+            CveAsistenciaInasistenciaRetardo = GlobalDTAsistenciasInasistencias(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(" TipoCorto = 'R' ")(0)("CveAsistenciasInasistencias").ToString().ToEntero
-            CveAsistenciaInasistenciaDescanso = GlobalDTAsistenciasInasistencias.FiltraParametros(" TipoCorto = 'D' AND CveEmpresa = " & UsuarioActual.Empresa.CveEmpresa)(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.")