Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/CFDITimbre.vb

@@ -327,12 +327,14 @@ Public Class CFDIConceptos
     Public Property ClaveProdServ As String = ""
     Public Property ClaveUnidad As String = ""
     Public Property Impuestos As List(Of CFDIConceptosImpuestos)
+    Public Property ACuentaTerceros As CFDIConceptosACuentaTerceros
     Public Property Descuento As Decimal = 0.00D
     Public Property ObjetoImpuesto As String = "02"
     Public Property ImporteGravaIVAAdicional As Decimal = 0.00D 'caso IEPS
 
     Sub New()
         Impuestos = New List(Of CFDIConceptosImpuestos)
+        ACuentaTerceros = New CFDIConceptosACuentaTerceros
     End Sub
 
 End Class
@@ -349,6 +351,16 @@ Public Class CFDIConceptosImpuestos
     Public Property ImporteMN As Decimal = 0.000000D
 
 
+End Class
+
+<Serializable>
+Public Class CFDIConceptosACuentaTerceros
+    Public Property RfcACuentaTerceros As String = ""
+    Public Property NombreACuentaTerceros As String = ""
+    Public Property RegimenFiscalACuentaTerceros As String = ""
+    Public Property DomicilioFiscalACuentaTerceros As String = ""
+
+
 End Class
 
 <Serializable>

App_Code/ClsBancos.vb

@@ -1113,7 +1113,8 @@ Public Class ClsBancos
                 Timbre = Timbrado.PreparaTimbrePago40(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal,
                                     RFCCliente, dr("NombreCliente").ToString, dr("ClienteCP").ToString, dr("CodigoRegimenFiscal").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago,
                                      dr("FechaDocumento").ToString.ToDate, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDecimal,
-                                                UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado)
+                                                UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado,
+                                     RfcACuentaTerceros:=dr("RfcACuentaTerceros").ToString, NombreACuentaTerceros:=dr("NombreACuentaTerceros").ToString, RegimenFiscalACuentaTerceros:=dr("RegimenFiscalACuentaTerceros").ToString, DomicilioFiscalACuentaTerceros:=dr("DomicilioFiscalACuentaTerceros").ToString)
 
             Else
                 CFDIVersion = "3.3"

App_Code/ClsContabilidad.vb

@@ -1325,7 +1325,7 @@ Public Class ClsContabilidad
 
             Try
 
-                If GetEncabezadoPrePoliza(CvePrePoliza, Empresa.CveEmpresa) Then
+                If GetEncabezadoPrePoliza(CvePrePoliza, Empresa.CveEmpresa) AndAlso DtResultados.Rows.Count > 0 Then
                     CveTipoPoliza = Data.Rows(0)("CveTipoPoliza").ToString.ToEntero
                     Cargos = Data.Rows(0)("Cargos").ToString.ToDecimal
                     Abonos = Data.Rows(0)("Abonos").ToString.ToDecimal

App_Code/ClsPaginas.vb

@@ -7788,7 +7788,7 @@ Public Class ClsPaginas
         'concepto pago
         Concepto = String.Format("{0} NC:{1}", CompraActual.ProveedorNombre, Pago.Referencia)
         If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' A N T I C I P O   /   E G R E S O S   X   C O M P R O B A R 
-            Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor)
+            Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, Pago.CveMonedaPago, True, CompraActual.CveTipoConceptoProveedor)
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=Pago.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
@@ -7800,7 +7800,7 @@ Public Class ClsPaginas
             End If
         End If
         If Pago.TipoPago.Contiene("NC", "DEV") AndAlso Not ErrorMovtos Then ' N O T A   D E   C R E D I T O 
-            Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(15, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor)
+            Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(15, Pago.CveMonedaPago, True, CompraActual.CveTipoConceptoProveedor)
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
@@ -7812,7 +7812,7 @@ Public Class ClsPaginas
             End If
         End If
         If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then '  D E U D O R   D I V E R S O
-            Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(17, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor)
+            Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(17, Pago.CveMonedaPago, True, CompraActual.CveTipoConceptoProveedor)
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=Pago.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
@@ -9387,6 +9387,9 @@ Public Class ClsPaginas
             PaginaDict.Add("/RH/CatRegistroPatronal.aspx".ToUpper(), 1324)
             PaginaDict.Add("/SAT/SolicitudesNominaSat.aspx".ToUpper(), 545)
             PaginaDict.Add("/SAT/SolicitudesIngresoSat.aspx".ToUpper(), 1329)
+
+            PaginaDict.Add("/RH/RepAsistencias.aspx".ToUpper(), 1336)
+
 #End Region
 #Region "Sistema"
             '--------------------- Páginas que deben tener restricción ---------------------

App_Code/ClsRH.vb

@@ -2616,8 +2616,9 @@ Public Class ClsRH
         End Try
 
         Return Retorno
-    End Function
+    End Function
-
+
+
     Public Function GetAsistencias(CvePersonal As Integer, CveClienteAsignado As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CveEstatusPersonal As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
@@ -2641,6 +2642,33 @@ Public Class ClsRH
             OnError("Ocurrió un error al consultar las Asistencias del Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
 
+        Return Retorno
+    End Function
+
+    Public Function RepGetAsistencias(Grupo As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CveTurno As Integer, CveEstatusPersonal As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, CvePersonalPadre As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        SqlDataAdapter("PA_RH_RepPersonalAsistenciasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Grupo", SqlDbType.Int).Value = Grupo
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveClienteAsignado", SqlDbType.Int).Value = CveClienteAsignado
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveTurno", SqlDbType.Int).Value = CveTurno
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CvePersonalPadre", SqlDbType.Int).Value = CvePersonalPadre
+            .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un error al consultar las Asistencias del Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
         Return Retorno
     End Function
 
@@ -7283,7 +7311,7 @@ Public Class ClsRH
 
 #End Region
 
-#Region "Checador"
+#Region "Checador"
     Public Function GetChecadores(CveChecador As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_RH_ChecadorGet")
@@ -7356,6 +7384,45 @@ Public Class ClsRH
         End Try
         Return Retorno
     End Function
+
+
+    Public Function AddRemoveChecadoresSubProyectos(CveChecador As Integer, CveSubProyecto As Integer, CveUsuario As Integer, Agreagar As Boolean) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_RH_ChecadorSubProyectosAddRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveChecador", SqlDbType.Int).Value = CveChecador
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Agreagar", SqlDbType.Bit).Value = Agreagar
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el sub proyecto", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+
+    Public Function GetChecadoresSubProyectos(CveChecador As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_RH_ChecadorSubProyectosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveChecador", SqlDbType.Int).Value = CveChecador
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obteger los sub proyecto", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+
+
 #End Region
 
 #Region " A C T I V I D A D E  S"

App_Code/Timbrado.vb

@@ -10,6 +10,8 @@ Imports System.Xml
 Imports System.Xml.Serialization
 Imports Extensiones
 Imports Newtonsoft.Json.Linq
+Imports Profact.TimbraCFDI33.Complementos.CartaPorte10
+Imports Profact.TimbraCFDI33.Complementos.CartaPorte20
 Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20
 
 
@@ -1042,7 +1044,11 @@ Public Class Timbrado
                                   Serie As String, Folio As String, FechaTimbrado As DateTime,
                                   CuentaPago As String, FechaPago As DateTime, FormaPago As String, MonedaPago As String, Monto As Decimal, LugarExpedicion As String,
                                   CuentaBeneficiario As String, TipoCambioP As Decimal, dttpagos As Data.DataTable, dttpagosimpuestos As DataTable,
-                                  Optional UsoCFDI As String = "CP01", Optional CFDIRelacionado As String = "") As CFDITimbre
+                                  Optional UsoCFDI As String = "CP01", Optional CFDIRelacionado As String = "",
+                                    Optional RfcACuentaTerceros As String = "",
+                                    Optional NombreACuentaTerceros As String = "",
+                                    Optional RegimenFiscalACuentaTerceros As String = "",
+                                    Optional DomicilioFiscalACuentaTerceros As String = "") As CFDITimbre
 
         Dim Timbre As New CFDITimbre
 
@@ -1087,6 +1093,14 @@ Public Class Timbrado
                                                         .ClaveProdServ = "84111506",
                                                         .Noidentificacion = "",
                                                         .ObjetoImpuesto = "01"}
+
+        'Pago ACuentaTerceros
+        If RfcACuentaTerceros <> "" Then
+            concepto.ACuentaTerceros.RfcACuentaTerceros = RfcACuentaTerceros
+            concepto.ACuentaTerceros.NombreACuentaTerceros = NombreACuentaTerceros
+            concepto.ACuentaTerceros.DomicilioFiscalACuentaTerceros = DomicilioFiscalACuentaTerceros
+            concepto.ACuentaTerceros.RegimenFiscalACuentaTerceros = RegimenFiscalACuentaTerceros
+        End If
         Timbre.Conceptos.Add(concepto)
 
         Select Case FormaPago
@@ -1137,6 +1151,7 @@ Public Class Timbrado
                 ObjetoImpuesto = dr("ObjetoImpuesto").ToString
                 VentaImportePagoMN = dr("VentasTotalPagado").ToString.ToDecimal
 
+
                 '' si la moneda es igual, se omite el tipo de cambio de la venta
                 If MonedaPago = VentaAbreviaturaSAT Then
                     VentaTipoCambio = 1
@@ -3628,10 +3643,10 @@ Public Class Timbrado
         If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then
             AmbienteProductivo = False
             Clave = "12345678a"
-            EmisorRFC = "IIA040805DZ4"
+            EmisorRFC = "EKU9003173C9"
-            EmisorNombre = "INDISTRIA ILUMINADORA DE ALMACENES SA DE CV"
+            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
-            ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\publicKey.key"
+            ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key"
-            ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\publicCer.cer"
+            ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer"
             UsuarioActual.Empresa.CodigoRegimenFiscal = "601"
         End If
 
@@ -3792,6 +3807,11 @@ Public Class Timbrado
                     comprobante.Conceptos(i).InformacionAduanera = New Profact.TimbraCFDI40.ComprobanteConceptoInformacionAduanera(1) {} 'solo un codigo por el momento
                     comprobante.Conceptos(i).InformacionAduanera(0) = New Profact.TimbraCFDI40.ComprobanteConceptoInformacionAduanera() With {.NumeroPedimento = concep.NumeroPedimento}
                 End If
+                If concep.ACuentaTerceros IsNot Nothing AndAlso concep.ACuentaTerceros.RfcACuentaTerceros <> "" Then
+                    comprobante.Conceptos(i).ACuentaTerceros = New Profact.TimbraCFDI40.ComprobanteConceptoACuentaTerceros() With {
+                                            .RfcACuentaTerceros = concep.ACuentaTerceros.RfcACuentaTerceros, .NombreACuentaTerceros = concep.ACuentaTerceros.NombreACuentaTerceros,
+                                            .RegimenFiscalACuentaTerceros = concep.ACuentaTerceros.RegimenFiscalACuentaTerceros, .DomicilioFiscalACuentaTerceros = concep.ACuentaTerceros.DomicilioFiscalACuentaTerceros}
+                End If
 
                 j = 0
                 k = 0
@@ -4246,7 +4266,9 @@ Public Class Timbrado
                                 ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).ImpuestoP = Tra.Impuesto
                                 ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).TipoFactorP = Tra.TipoFactor
                                 ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).TasaOCuotaP = Tra.TasaOCuota.RoundSQL(6)
+                                ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).TasaOCuotaPSpecified = True
                                 ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).ImporteP = Tra.ImporteMN.RoundSQL(6)
+                                ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).ImportePSpecified = True
                                 ComPag.Pago(ii).ImpuestosP(0).TrasladosP(x).BaseP = Tra.BaseMN.RoundSQL(2)
                                 x += 1
                             Next
@@ -4333,7 +4355,7 @@ Public Class Timbrado
                         ComCartaPorte.Mercancias.Mercancia(i) = New ProfactCartaPorte.CartaPorteMercanciasMercancia
 
                         If concep.BienesTransp <> "" Then
-                            ComCartaPorte.Mercancias.Mercancia(i).BienesTransp = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ClaveProdServCP), "Item" & concep.BienesTransp), ProfactCartaPorte.c_ClaveProdServCP)
+                            ComCartaPorte.Mercancias.Mercancia(i).BienesTransp = concep.BienesTransp
                         End If
 
                         ComCartaPorte.Mercancias.Mercancia(i).Descripcion = concep.Descripción
@@ -4345,7 +4367,7 @@ Public Class Timbrado
                             ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = True
                             'si lleva material pelgroso, debe llevar embalaje
                             ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = True
-                            ComCartaPorte.Mercancias.Mercancia(i).Embalaje = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoEmbalaje), "Item" & concep.Embalaje), ProfactCartaPorte.c_TipoEmbalaje)
+                            ComCartaPorte.Mercancias.Mercancia(i).Embalaje = concep.Embalaje
                             ComCartaPorte.Mercancias.Mercancia(i).DescripEmbalaje = concep.DescripEmbalaje
                         End If
 
@@ -4760,22 +4782,17 @@ Public Class Timbrado
 
                         If Retorno = "[]" Then
                             Retorno = resultadoTimbre.Descripcion
+                            MensajeErrorCFDI = resultadoTimbre.Descripcion
                         End If
-                        If MensajeErrorCFDI = "[]" Then
-                            Retorno = resultadoTimbre.Descripcion
-                        End If
-
                     End If
                     resultadoTimbre.GuardaXml(RutaArchivo, NombreArchivoXML)
                 Catch ex As Exception
                     Retorno = ex.ToString()
                 End Try
-
             Else
                 Retorno = resultadoTimbre.Detalle
                 MensajeErrorCFDI = resultadoTimbre.Detalle
             End If
-
         End If
 
         GuardaLogTimbrado(swTiempo.ToString, UsuarioActual.Empresa.CvePAC)
@@ -4851,6 +4868,11 @@ Public Class Timbrado
                 Next
                 If concep.CuentaPredial <> "" Then cfdi.CuentaPredial(concep.CuentaPredial)
                 If concep.NumeroPedimento <> "" Then cfdi.InformacionAduanera(concep.NumeroPedimento)
+
+                If concep.ACuentaTerceros IsNot Nothing AndAlso concep.ACuentaTerceros.RfcACuentaTerceros <> "" Then
+                    cfdi.ACuentaTerceros(concep.ACuentaTerceros.RfcACuentaTerceros, concep.ACuentaTerceros.NombreACuentaTerceros,
+                                              concep.ACuentaTerceros.RegimenFiscalACuentaTerceros, concep.ACuentaTerceros.DomicilioFiscalACuentaTerceros)
+                End If
             Next
         End If
 
@@ -5121,7 +5143,6 @@ Public Class Timbrado
                               docp.CadPago,
                               docp.SelloPago)
 
-
                 If docp.DocumentosRelacionados.Count > 0 Then
 
                     For Each doc As CFDIComplementoPagosDocsRelacionados In docp.DocumentosRelacionados
@@ -5555,7 +5576,7 @@ Public Class Timbrado
         If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then
 
             EmisorRFC = "EKU9003173C9"
-            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE SA DE CV"
+            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
             ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key"
             ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer"
 
@@ -6522,7 +6543,7 @@ Public Class Timbrado
                         ComCartaPorte.Mercancias.Mercancia(i) = New ProfactCartaPorte.CartaPorteMercanciasMercancia
 
                         If concep.BienesTransp <> "" Then
-                            ComCartaPorte.Mercancias.Mercancia(i).BienesTransp = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ClaveProdServCP), "Item" & concep.BienesTransp), ProfactCartaPorte.c_ClaveProdServCP)
+                            ComCartaPorte.Mercancias.Mercancia(i).BienesTransp = concep.BienesTransp
                         End If
 
                         ComCartaPorte.Mercancias.Mercancia(i).Descripcion = concep.Descripción
@@ -6534,7 +6555,7 @@ Public Class Timbrado
                             ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = True
                             'si lleva material pelgroso, debe llevar embalaje
                             ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = True
-                            ComCartaPorte.Mercancias.Mercancia(i).Embalaje = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoEmbalaje), "Item" & concep.Embalaje), ProfactCartaPorte.c_TipoEmbalaje)
+                            ComCartaPorte.Mercancias.Mercancia(i).Embalaje = concep.Embalaje
 
                         End If
 

Bancos/IE.aspx

@@ -1421,7 +1421,7 @@
                                 <asp:TemplateField HeaderText="Cancelar" Visible="false" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="LnkCancelarComplemetno"  OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False"
-                                            data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el complemento?" data-btn-ok-label="si"
+                                            data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el complemento?" data-btn-ok-label="si" Visible="false"
                                             CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>" />
                                     </ItemTemplate>
                                 </asp:TemplateField>

Bancos/IE.aspx.vb

@@ -5702,10 +5702,11 @@ Partial Class Bancos_IE
                     If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
                         DVGenerarComplementoModal.Visible = True
                     End If
-                    If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 1 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
+                    If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count >= 1 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
                         DivCancelarComplemento.Visible = True
                         GvComplementoPagos.Columns(7).Visible = True
-                        If UsuarioActual.TienePermisoProceso(85) Then GvComplementoPagos.Columns(8).Visible = True
+                        ' si tiene el permiso para eliminar IE o editar IE
+                        If UsuarioActual.TienePermisoProceso(85) OrElse UsuarioActual.TienePermisoProceso(99) Then GvComplementoPagos.Columns(8).Visible = True
                     End If
                     GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "Folio", "SerieFolio", "FechaComplemento", "Importe", "RFCReceptor", "StrEstatus", "FechaCancelacion", "Tipo", "Estatus", "CveIE", "CvePAC", "MotivoCancelacion"})
 
@@ -5745,9 +5746,6 @@ Partial Class Bancos_IE
                     End If
 
                 Else
-                    e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = False
-                    e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False
-
                     If e.Row.DataKey("Estatus").ToEntero = 2 Then
                         e.Row.FCLiteral("LtlMotivoCancelacion").Visible = True
                     End If

Compras/Compras.aspx.vb

@@ -13940,7 +13940,7 @@ Partial Class Compras_Compras
     Protected Sub BtnRefacturacionVer_Click(sender As Object, e As EventArgs) Handles BtnRefacturacionVer.Click
         Dim Opcion As Integer = 1
 
-        If UsuarioActual.CveEmpresa.Contiene(119, 1, 140) Then Opcion = 2
+        If UsuarioActual.CveEmpresa.Contiene(119, 1, 140, 172, 173, 174) Then Opcion = 2
 
         Dim ObjCompras As New ClsCompras
 

Compras/Proveedores.aspx

@@ -346,10 +346,11 @@
                                             <div class="row">
                                                 <div class="col-md-12">
                                                     <div class="form-group form-md-line-input">            
-                                                        <asp:DropDownList ID="DdlCveTipoProveedor" runat="server" CssClass="form-control select2me " Width="206px" AutoPostBack="True" OnSelectedIndexChanged="DdlCveTipoProveedor_SelectedIndexChanged">                                                           
+                                                        <asp:DropDownList ID="DdlCveTipoProveedor" runat="server" CssClass="form-control select2me " Width="206px" AutoPostBack="True" OnSelectedIndexChanged="DdlCveTipoProveedor_SelectedIndexChanged">
-                                                            <asp:ListItem Selected="True" Text="Proveedor" Value="1"></asp:ListItem>
+                                                             <asp:ListItem Selected="True" Text="-" Value="0"></asp:ListItem>
-                                                            <asp:ListItem Selected="False" Text="Acreedor" Value="2"></asp:ListItem>
+                                                            <asp:ListItem   Text="Proveedor" Value="1"></asp:ListItem>
-                                                            <asp:ListItem Selected="False" Text="Ambos" Value="3"></asp:ListItem>
+                                                            <asp:ListItem   Text="Acreedor" Value="2"></asp:ListItem>
+                                                            <asp:ListItem   Text="Ambos" Value="3"></asp:ListItem>
                                                         </asp:DropDownList>
                                                         <asp:RequiredFieldValidator ID="RFVCveTipoProveedor" runat="server" ControlToValidate="DdlCveTipoProveedor" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Proveedor''</b> es necesario, por favor seleccione uno." InitialValue="0" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCECveTipoProveedor" runat="server" HighlightCssClass="vco posicionvalidation" TargetControlID="RFVCveTipoProveedor" Width="350px"></ajax:ValidatorCalloutExtender>

Contabilidad2/RepBalanceGeneralHorizontal.aspx

@@ -113,7 +113,7 @@
                             </div>
                              </div>
                               
-</div>
+                </div>
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>

Contabilidad2/RepEstadoActividades.aspx

@@ -52,11 +52,9 @@
                                     <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
-
+                                                        
-                            <div class="col-md-1">
+                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>                          
-                                <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
+                            <div class="col-md-2" id="DivProyecto" runat="server">
-                            </div>
-                            <div class="col-md-2">
                                 <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
                                 </asp:DropDownList>
                             </div>

Contabilidad2/RepEstadoActividades.aspx.vb

@@ -117,7 +117,7 @@ Partial Class AC_RepEstadoActividades
         End If
         DdlPeriodo.SelectedValue = Now.Month.ToString
 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
 
     End Sub
 

GPS/Asistencia.rdlc

@@ -67,19 +67,19 @@
                   <Width>1.43285cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>5.73362cm</Width>
+                  <Width>7.48903cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.51764cm</Width>
+                  <Width>2.17368cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.99729cm</Width>
+                  <Width>1.89146cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.5cm</Width>
+                  <Width>2.25269cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.5cm</Width>
+                  <Width>1.89147cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>2.1825cm</Width>
@@ -87,7 +87,7 @@
               </TablixColumns>
               <TablixRows>
                 <TablixRow>
-                  <Height>0.6cm</Height>
+                  <Height>0.41479cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -99,10 +99,15 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>Código</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
-                              <Style />
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
                             </Paragraph>
                           </Paragraphs>
                           <rd:DefaultName>Textbox1</rd:DefaultName>
@@ -130,10 +135,7 @@
                               <Style>Solid</Style>
                               <Width>1pt</Width>
                             </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
+                            <BackgroundColor>Silver</BackgroundColor>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -148,10 +150,15 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>Personal</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
-                              <Style />
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
                             </Paragraph>
                           </Paragraphs>
                           <rd:DefaultName>Textbox3</rd:DefaultName>
@@ -179,10 +186,7 @@
                               <Style>Solid</Style>
                               <Width>1pt</Width>
                             </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
+                            <BackgroundColor>Silver</BackgroundColor>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -197,10 +201,15 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>Asistencias</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
-                              <Style />
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
                             </Paragraph>
                           </Paragraphs>
                           <rd:DefaultName>Textbox5</rd:DefaultName>
@@ -228,10 +237,7 @@
                               <Style>Solid</Style>
                               <Width>1pt</Width>
                             </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
+                            <BackgroundColor>Silver</BackgroundColor>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -246,10 +252,15 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>% de Pago</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
-                              <Style />
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
                             </Paragraph>
                           </Paragraphs>
                           <rd:DefaultName>Textbox9</rd:DefaultName>
@@ -277,10 +288,7 @@
                               <Style>Solid</Style>
                               <Width>1pt</Width>
                             </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
+                            <BackgroundColor>Silver</BackgroundColor>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -295,10 +303,15 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>Horas Dobles</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
-                              <Style />
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
                             </Paragraph>
                           </Paragraphs>
                           <rd:DefaultName>Textbox11</rd:DefaultName>
@@ -326,10 +339,7 @@
                               <Style>Solid</Style>
                               <Width>1pt</Width>
                             </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
+                            <BackgroundColor>Silver</BackgroundColor>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -344,10 +354,15 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>Horas Triples</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
-                              <Style />
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
                             </Paragraph>
                           </Paragraphs>
                           <rd:DefaultName>Textbox7</rd:DefaultName>
@@ -375,10 +390,7 @@
                               <Style>Solid</Style>
                               <Width>1pt</Width>
                             </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
+                            <BackgroundColor>Silver</BackgroundColor>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -393,10 +405,15 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>Firma</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
-                              <Style />
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
                             </Paragraph>
                           </Paragraphs>
                           <rd:DefaultName>Textbox13</rd:DefaultName>
@@ -424,10 +441,7 @@
                               <Style>Solid</Style>
                               <Width>1pt</Width>
                             </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
+                            <BackgroundColor>Silver</BackgroundColor>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -435,7 +449,7 @@
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.6cm</Height>
+                  <Height>0.36188cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -447,7 +461,9 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>=Fields!Codigo.Value</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -457,7 +473,7 @@
                           <Style>
                             <Border>
                               <Color>Gray</Color>
-                              <Style>Solid</Style>
+                              <Style>None</Style>
                               <Width>0.5pt</Width>
                             </Border>
                             <TopBorder>
@@ -480,10 +496,6 @@
                               <Style>Solid</Style>
                               <Width>0.5pt</Width>
                             </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -498,7 +510,9 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>=Fields!Nombre.Value</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -531,10 +545,6 @@
                               <Style>Solid</Style>
                               <Width>0.5pt</Width>
                             </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -549,7 +559,9 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>=Fields!AsistenciasInasistencias.Value</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -582,10 +594,6 @@
                               <Style>Solid</Style>
                               <Width>0.5pt</Width>
                             </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -601,6 +609,7 @@
                                 <TextRun>
                                   <Value>=Fields!PorcentajePago.Value</Value>
                                   <Style>
+                                    <FontSize>8pt</FontSize>
                                     <Format>0;(0)</Format>
                                   </Style>
                                 </TextRun>
@@ -615,13 +624,8 @@
                               <Style>Solid</Style>
                               <Width>0.5pt</Width>
                             </Border>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -634,7 +638,9 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>=IIf(Fields!HorasDobles.Value&gt;0,Fields!HorasDobles.Value.ToString(),"")</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -667,10 +673,6 @@
                               <Style>Solid</Style>
                               <Width>0.5pt</Width>
                             </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -685,7 +687,9 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>=IIf(Fields!HorasTriples.Value&gt;0,Fields!HorasTriples.Value.ToString(),"")</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -718,10 +722,6 @@
                               <Style>Solid</Style>
                               <Width>0.5pt</Width>
                             </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -736,7 +736,9 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value />
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -769,10 +771,6 @@
                               <Style>Solid</Style>
                               <Width>0.5pt</Width>
                             </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
                       </CellContents>
@@ -805,8 +803,8 @@
             <DataSetName>DataSet1</DataSetName>
             <Top>3.2953cm</Top>
             <Left>0.31432cm</Left>
-            <Height>1.2cm</Height>
+            <Height>0.77667cm</Height>
-            <Width>18.8639cm</Width>
+            <Width>19.31368cm</Width>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -901,7 +899,7 @@
             </Style>
           </Image>
         </ReportItems>
-        <Height>1.92637in</Height>
+        <Height>1.6972in</Height>
         <Style />
       </Body>
       <Width>7.72756in</Width>
@@ -922,14 +920,16 @@
                       <Style />
                     </TextRun>
                   </TextRuns>
-                  <Style />
+                  <Style>
+                    <TextAlign>Right</TextAlign>
+                  </Style>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox4</rd:DefaultName>
               <Top>0.14111cm</Top>
-              <Left>16.67822cm</Left>
+              <Left>16.00382cm</Left>
               <Height>0.6cm</Height>
-              <Width>2.5cm</Width>
+              <Width>3.62419cm</Width>
               <Style>
                 <Border>
                   <Style>None</Style>

Inventarios/Kardex.aspx

@@ -381,68 +381,61 @@
                             <asp:LinkButton data-toggle="tooltip" title="Editar Fecha" ID="LnkEditarFecha" OnClick="LnkEditarFecha_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:BoundField DataField="Concepto" ItemStyle-Width="170px" HeaderText="Movimiento" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Concepto" HeaderText="Movimiento" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="Almacen" ItemStyle-Width="140px" HeaderText="Almacén" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Almacen" HeaderText="Almacén" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField ItemStyle-Width="70px" HeaderText="Folio">
                         <ItemTemplate>
                             <asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" />
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="140px" ItemStyle-HorizontalAlign="Left" HeaderText="Folio Doc.">
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio Doc.">
                         <ItemTemplate>
                             <asp:HyperLink runat="server" Target="_blank" ID="hlFolioD" Text='<%# Eval("FolioDocto")%>' CssClass="Texto" />
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" HeaderText="Folio Rel." Visible="false">
+                    <asp:TemplateField  ItemStyle-HorizontalAlign="Left" HeaderText="Folio Rel." Visible="false">
                         <ItemTemplate>
                             <asp:HyperLink runat="server" Target="_blank" ID="hlFolioDr" Text='<%# Eval("FolioRelacionEntrada")%>' NavigateUrl='<%# Eval("CveVentaRelacionada", "/Ventas/Ventas.aspx?CveVenta={0}")%>' CssClass="Texto" />
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" HeaderText="U. M.">
+                    <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Left" HeaderText="U. M.">
                         <ItemTemplate>
                             <asp:Label ID="lbUm" runat="server" Text='<%# Eval("UnidadMedida")%>' data-toggle="tooltip" title='<%# Eval("CveUnidadMedida")%>'></asp:Label>
                         </ItemTemplate>
-                        <ItemStyle Width="100px"></ItemStyle>
                     </asp:TemplateField>
                      <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Sección" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbSA" runat="server" Text='<%# Eval("SeccionAlmacen")%>'></asp:Literal>
-                        </ItemTemplate>
+                        </ItemTemplate>                       
-                        <ItemStyle Width="100px"></ItemStyle>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Serie" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbS" runat="server" Text='<%# Eval("Serie")%>'></asp:Literal>
-                        </ItemTemplate>
+                        </ItemTemplate>                       
-                        <ItemStyle Width="100px"></ItemStyle>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Lote" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbL" runat="server" Text='<%# Eval("Lote")%>'></asp:Literal>
-                        </ItemTemplate>
+                        </ItemTemplate>                     
-                        <ItemStyle Width="70"></ItemStyle>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Center" HeaderText="F. Caducidad" Visible="false">
+                    <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Center" HeaderText="F. Caducidad" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="lbFCad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}")%>' data-toggle="tooltip"></asp:Label>
-                        </ItemTemplate>
+                        </ItemTemplate>                      
-                        <ItemStyle Width="75px"></ItemStyle>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Entrada">
+                    <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" HeaderText="Entrada">
                         <ItemTemplate>
                             <asp:Label ID="lbEntrada" runat="server"
                                 Text='<%# Eval("Entrada", "{0:###,###.####}")%>'></asp:Label>
-                        </ItemTemplate>
+                        </ItemTemplate>                       
-                        <ItemStyle Width="100px" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Salida">
+                    <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" HeaderText="Salida">
                         <ItemTemplate>
                             <asp:Label ID="lbSalida" runat="server"
                                 Text='<%# Eval("Salida", "{0:###,###.####}")%>'></asp:Label>
                         </ItemTemplate>
-                        <ItemStyle Width="100px" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Costo">
+                    <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" HeaderText="Costo">
                         <ItemTemplate>
                             <asp:Label ID="lbCosto" runat="server"
                                 Text='<%# Eval("Costo", "{0:N2}")%>'></asp:Label>
@@ -453,22 +446,19 @@
                         <ItemTemplate>
                             <asp:Label ID="lbImporte" runat="server"
                                 Text='<%# Eval("Importe", "{0:N2}")%>'></asp:Label>
-                        </ItemTemplate>
+                        </ItemTemplate>                       
-                        <ItemStyle Width="100px" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Existencias">
+                    <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" HeaderText="Existencias">
                         <ItemTemplate>
                             <asp:Label ID="lbExistencias" runat="server"
                                 Text='<%# Eval("Existencias", "{0:#,###.####}")%>'></asp:Label>
-                        </ItemTemplate>
+                        </ItemTemplate>                      
-                        <ItemStyle Width="100px"></ItemStyle>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Valor">
                         <ItemTemplate>
                             <asp:Label ID="lbValor" runat="server"
                                 Text='<%# Eval("ValorInventario", "{0:N2}")%>'></asp:Label>
-                        </ItemTemplate>
+                        </ItemTemplate>                      
-                        <ItemStyle Width="100px" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
                 </Columns>
                 <RowStyle CssClass="Texto" />

Inventarios/RepConsumoInterno.aspx

@@ -146,13 +146,14 @@
                     <asp:BoundField DataField="FechaMovto" HeaderText="Fecha"  ItemStyle-Width="5%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField DataField="Almacen" HeaderText="Almacén" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
                     
-                    <asp:BoundField DataField="CodPS" HeaderText="Producto" ItemStyle-Width="30%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="CodPS" HeaderText="Producto" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="Cantidad" HeaderText="Cantidad" ItemStyle-Width="5%"  DataFormatString="{0:N0}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField DataField="Observaciones" HeaderText="Observaciones" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" />
 
                     <asp:BoundField DataField="NombreCompleto" HeaderText="Personal" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="CodigoAF" HeaderText="Activo Fijo" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="PU" Visible ="false" HeaderText="Importe" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField DataField="PU" Visible ="false" HeaderText="PU" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField DataField="Importe" Visible ="false" HeaderText="Importe" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
                    
                   <%--  <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="7%">
                         <ItemTemplate>

Inventarios/RepConsumoInterno.aspx.cs

@@ -64,6 +64,7 @@ public partial class Inventarios_RepConsumoInterno : ClsPaginas
         ObjGeneral.Dispose();
         bool TienePermisoImportes = UsuarioActual.TienePermisoProceso(201);
         GVDatos.Columns[8].Visible = TienePermisoImportes; // costo
+        GVDatos.Columns[9].Visible = TienePermisoImportes; // costo
 
         GVDatos.DataBind();
        

RH/CatChecadores.aspx

@@ -96,6 +96,33 @@
                             <label for="ChkEstatus">Estatus:</label>
                             <asp:CheckBox runat="server" ID="ChkEstatus" CssClass="make-switchsd" data-size="small" Text=" " />
                         </div>
+
+                         </br>
+                        </br>
+                        <div class="row">
+                            <div class="row">
+                                <div class="col-md-12">
+                                    <asp:GridView ID="GvChecadorSubProyectos" runat="server" AutoGenerateColumns="False" OnRowDataBound="GvChecadorSubProyectos_RowDataBound" Width="90%"
+                                        DataKeyNames="CveSubProyecto,CveChecador"
+                                        EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
+                                        <Columns>
+                                            <asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" />
+                                            <asp:BoundField HeaderText="Usuario" DataField="Usuario"  />
+                                            <asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:d}" />
+                                            <asp:TemplateField>
+                                                <ItemTemplate>
+                                                    <asp:CheckBox ID="Chk" runat="server" />
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                        </Columns>
+                                    </asp:GridView>
+
+
+                                </div>                                
+                            </div>
+
+                        </div>
+
                     </div>
                     </br>
                     <div class="modal-footer">

RH/CatChecadores.aspx.cs

@@ -57,6 +57,11 @@ public partial class RH_CatChecadores : ClsPaginas
         TxtPuerto.Text = "";
         BtnChecadorAgregar.Text = "Agregar";
         divChkEstatus.Visible = false;
+
+        GvChecadorSubProyectos.DataSource = null;
+        GvChecadorSubProyectos.DataBind();
+        GvChecadorSubProyectos.Visible = false;
+
         UpModalTiposD.Update();
         RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
     }
@@ -64,6 +69,7 @@ public partial class RH_CatChecadores : ClsPaginas
     protected void BtnChecadorAgregar_Click(object sender, EventArgs e)
     {
         ClsRH ObjRH = new ClsRH();
+
         if (BtnChecadorAgregar.Text == "Agregar")
         {
             if (ObjRH.AddChecadores(TxtChecador.Text, DdlSubProyecto.SelectedValue.ToEntero(), TxtIPLocal.Text, TxtPuerto.Text, UsuarioActual.CveUsuario,CveModelo:DdlModelo.SelectedValue.ToEntero()))
@@ -73,10 +79,37 @@ public partial class RH_CatChecadores : ClsPaginas
         }
         else
         {
+            bool errorProceso = false;
+            //ObjRH.IniciaTransacSQL();
+
             if (ObjRH.UpdateChecadores(CveChecador,TxtChecador.Text,DdlSubProyecto.SelectedValue.ToEntero(),TxtIPLocal.Text,TxtPuerto.Text,Estatus: ChkEstatus.Checked, CveModelo: DdlModelo.SelectedValue.ToEntero()))
             {
                 Alert("Checador actualizado correctamente");
             }
+
+            foreach(GridViewRow GvRow  in GvChecadorSubProyectos.Rows)
+            {
+                if(GvRow.RowType == DataControlRowType.DataRow)
+                {
+                    CheckBox Chk = GvRow.FCCheckBox("Chk");
+                    if (!ObjRH.AddRemoveChecadoresSubProyectos(CveChecador, GvRow.DataKey("CveSubProyecto").ToEntero(), UsuarioActual.CveUsuario, Chk.Checked))
+                    {
+                        errorProceso = true;
+                        break;
+                    }
+                }                
+            }
+
+            //if (errorProceso)
+            //{
+            //    ObjRH.RollBack();
+            //}
+            //else
+            //{
+            //    ObjRH.Commit();
+            //}
+            
+
         }
         ObjRH.Dispose();
         CargaDatos();
@@ -90,13 +123,30 @@ public partial class RH_CatChecadores : ClsPaginas
 
         CveChecador = GvRow.DataKey("CveChecador").ToEntero();
         TxtChecador.Text = GvRow.DataKey("Checador");
-        DdlSubProyecto.SelectedValue = GvRow.DataKey("CveSubProyecto");
+        DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"));
+
         DdlModelo.SelectedValue = GvRow.DataKey("CveModelo");
         TxtIPLocal.Text = GvRow.DataKey("IPLocal");
         TxtPuerto.Text = GvRow.DataKey("Puerto");
         BtnChecadorAgregar.Text = "Actualizar";
         ChkEstatus.Checked = GvRow.DataKey("Estatus") == "Activo";
         divChkEstatus.Visible = true;
+
+        GvChecadorSubProyectos.Visible = true;
+
+         ClsRH objRH = new ClsRH();
+
+        if (objRH.GetChecadoresSubProyectos(CveChecador, UsuarioActual.CveEmpresa))
+        {
+            GvChecadorSubProyectos.DataSource = objRH.DtResultados;
+        }
+
+        GvChecadorSubProyectos.DataBind();
+        objRH.Dispose();
+
+
+
+
         UpModalTiposD.Update();
         RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
     }
@@ -114,4 +164,12 @@ public partial class RH_CatChecadores : ClsPaginas
         }
         ObjRH.Dispose();
     }
+
+    protected void GvChecadorSubProyectos_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if(e.Row.RowType == DataControlRowType.DataRow)
+        {
+            e.Row.FCCheckBox("Chk").Checked = e.Row.DataKey("CveChecador").ToEntero() > 0 ? true : false;
+        }
+    }
 }

RH/RepAsistencias.aspx

@@ -0,0 +1,311 @@
+<%@ Page Title="RH - Captura de Asistencias" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAsistencias.aspx.vb" Inherits="RH_RepAsistencias" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+       /* .adsCol div{
+            height:22px!important
+        }*/
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+	Reporte Asistencias
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    
+      <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpAcciones">
+        <ContentTemplate>
+
+            <li>
+                <asp:LinkButton ID="LnkExportar" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+            </li>
+
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkExportar" />
+        </Triggers>
+    </asp:UpdatePanel>
+
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <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"--%>
+                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
+                    </div>
+                    <div class="titlefiltros  caption ">
+
+                         <div class="row">
+
+                              <div class="col-md-1" style="text-align:right">                                                       
+                              Grupo:
+                           </div>
+                            <div class="col-md-1">                                                            
+                                <asp:DropDownList runat="server" CssClass="select2me" ID="DdlGrupo" Width="100%">
+                                    <asp:ListItem Value="1" Selected="True">Cliente</asp:ListItem>
+                                    <asp:ListItem Value="2">Personal</asp:ListItem>
+                                </asp:DropDownList>                                
+                            </div>
+
+                           <div class="col-md-1" style="text-align:right">                         
+                              Cliente:
+                           </div>
+                            <div class="col-md-1">                            
+                                <asp:Button ID="BtnCargarClientes" runat="server" ClientIDMode="Static" Text="CargarClientes" Style="display: none;" />
+                                <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 class="col-md-1" style="text-align:right">
+                                <asp:Label runat="server" ID="LblSubProyectoAsignado" AssociatedControlID="DdlSubProyecto">SubProyecto:  </asp:Label>
+                            </div>
+                           <div class="col-md-1">
+                                <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:DropDownList>
+                            </div>
+                            <div class="col-md-1" style="text-align:right">
+                                <asp:Label runat="server" AssociatedControlID="DdlTurno">Turno:  </asp:Label>
+                            </div>
+                           <div class="col-md-1">
+                                <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 class="col-md-1" style="text-align:right">
+                                <asp:Label AssociatedControlID="DdlSupervisorOrganigrama" runat="server" Text="Supervisor:" Style="display: inline-block;"></asp:Label>
+                           </div>
+                           <div class="col-md-1">
+                                <asp:DropDownList ID="DdlSupervisorOrganigrama" runat="server" Style="display: inline-block; ;" AppendDataBoundItems="True" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                    <asp:ListItem Text="Sin Asignar" Value="-2"></asp:ListItem>
+                                    <asp:ListItem Text="Cabecera" Value="0"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                       </div>
+
+
+                    </div>
+                </div>
+                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
+
+                    <div class="row">
+
+                         <div class="col-md-1" style="text-align:right">
+                             <asp:Label runat="server" AssociatedControlID="TxtFechaAsistencia">F. Inicial: </asp:Label>
+                         </div>
+                         <div class="col-md-1">
+                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
+                             <asp:TextBox ID="TxtFechaAsistencia" runat="server" MaxLength="10" Width="90px" Height="28px"></asp:TextBox><span class="input-group-btn ">
+                                 <asp:LinkButton ID="LnkFechaAsistencia" class="btn default " Style="padding: 4px 8px;" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                             </span>
+                             <ajax:MaskedEditExtender ID="MEEFechaAsistencia" runat="server" TargetControlID="TxtFechaAsistencia" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                             <ajax:CalendarExtender runat="server" ID="CEFechaAsistencia" TargetControlID="TxtFechaAsistencia" PopupButtonID="LnkFechaAsistencia" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                             <asp:RequiredFieldValidator ID="RFVFechaAsistencia" runat="server" ControlToValidate="TxtFechaAsistencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Ingreso''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                             <asp:CompareValidator ID="CVFechaAsistencia" runat="server" ControlToValidate="TxtFechaAsistencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Ingreso''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                             <ajax:ValidatorCalloutExtender ID="VCOFechaAsistencia1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaAsistencia" Width="350px"></ajax:ValidatorCalloutExtender>
+                             
+                                 <ajax:ValidatorCalloutExtender ID="VCOFechaAsistencia2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAsistencia" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                              </div>
+                         </div>
+
+                         <div class="col-md-1" style="text-align:right">
+                             <asp:Label runat="server" AssociatedControlID="TxtFechaAsistenciaFin">F. Fin: </asp:Label>
+                         </div>
+                         <div class="col-md-1">
+                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
+                                 <asp:TextBox ID="TxtFechaAsistenciaFin" runat="server" MaxLength="10" Width="90px" Height="28px"></asp:TextBox><span class="input-group-btn ">
+                                     <asp:LinkButton ID="LnkFechaAsistenciaFin" class="btn default " Style="padding: 4px 8px;" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                 </span>
+                                 <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaAsistenciaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                 <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaAsistenciaFin" PopupButtonID="LnkFechaAsistenciaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                 <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtFechaAsistenciaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Ingreso''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                 <asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="TxtFechaAsistenciaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Ingreso''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
+                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAsistencia" Width="350px"></ajax:ValidatorCalloutExtender>
+                             </div>
+                          </div>
+
+
+                    </div>
+
+                </div>
+            </div>
+
+
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+     
+
+    <div class="row">
+        <div class="col-md-12">
+
+            <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+
+                     <%--'SUM(1) CountEmpleados, ISNULL(C.CveCliente,-1) AS CveCliente, ISNULL(C.Nombre,''Cliente sin Asignar'') AS Cliente ,RH.CvePersonal, RH.NombreCompleto, ',--%>
+
+                    <asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" DataKeyNames="Ordenador,CvePersonal,Cliente,NombreCompleto" 
+                        EmptyDataText="No se encontraron registros" ToolTip="Listado de Personal"
+                        
+                        CssClass="ADSCROLLER2  table table-striped table-advance table-hover" data-cols="1" data-heightmenos="300"
+                        Style="text-align: center;" GridLines="None">
+                        <Columns>
+                            <asp:TemplateField ItemStyle-HorizontalAlign="Left"  HeaderStyle-Width="300px" >
+                                <HeaderTemplate>Grupo</HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:Label  CssClass="truncate" ID ="LtlNombreCompleto"  runat="server" Text='<%# Eval("NombreCompleto") %>'></asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>                            
+                            
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                          <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                           <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                            
+                           <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                            
+                           <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                            
+                           <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            
+                           <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            
+                           <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+                            
+                           <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+                            <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
+
+
+                        </Columns>
+                        <RowStyle CssClass="Texto" />
+                        <AlternatingRowStyle CssClass="TextoAlterno" />
+                        <HeaderStyle CssClass="Titulos" />
+                    </asp:GridView>
+
+                    
+
+                </ContentTemplate>
+            </asp:UpdatePanel>
+
+        </div>
+
+    </div>
+
+    
+
+    
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script type="text/javascript">
+        function CargaClientes() {
+            $("#BtnCargarClientes").click();
+        }
+    </script>
+</asp:Content>

RH/RepAsistencias.aspx.vb

@@ -0,0 +1,184 @@
+Imports System.Data
+Imports Extensiones
+
+
+Partial Class RH_RepAsistencias
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
+        If Not IsPostBack Then
+            'CargaClientes()
+            DdlCliente.Attributes.Add("onclick", "CargaClientes();")
+
+            CargaProyecto()
+            CargaTurnos()
+
+            TxtFechaAsistenciaFin.Text = Now.ToShortDateString
+            TxtFechaAsistencia.Text = $"01/{Now.ToString("MM")}/{Now.Year}"
+
+
+        End If
+    End Sub
+
+#Region "CargaCombos"
+
+
+    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(Nothing, Nothing, Nothing, LblSubProyectoAsignado)
+        'DivProyectosAsignado.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(-1)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub CargaTurnos()
+        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
+        DdlTurno.DataBind()
+    End Sub
+
+#End Region
+
+    'Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
+    '    CargaSubProyecto()
+    'End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+
+        LnkExportar.Visible = False
+        GvOcultarColumnas()
+
+        If TxtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(Now.Year - 1, Now.Year, Now.Year + 1) Then
+
+            Dim objpersonal As New ClsRH
+            Dim dtTemp As New DataTable
+            Dim CveClienteAsignado As Integer = If(DdlCliente.SelectedValue.ToEntero > 0, DdlCliente.SelectedValue.ToEntero, -1)
+
+            If objpersonal.RepGetAsistencias(DdlGrupo.SelectedValue.ToEntero, CveClienteAsignado, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, TxtFechaAsistencia.Text.Trim.ToDate,
+                                             TxtFechaAsistenciaFin.Text.Trim.ToDate, UsuarioActual.CveEmpresa, DdlSupervisorOrganigrama.SelectedValue.ToEntero()) Then
+                dtTemp = objpersonal.DtResultados
+
+                GvMostrarColumnas(dtTemp)
+                GV.DataSource = dtTemp
+
+                If dtTemp.Rows.Count > 0 Then
+                    LnkExportar.Visible = True
+                End If
+
+            Else
+                GV.DataSource = Nothing
+            End If
+
+            objpersonal.Dispose()
+            GV.DataBind()
+
+            UpDatos.Update()
+            UpAcciones.Update()
+
+        Else
+            Alert("La Fecha está fuera de los parámetros establecidos, por favor revise. Fecha: " & TxtFechaAsistencia.Text, TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+
+    Private Sub GvOcultarColumnas()
+
+        Dim index = 1
+
+        For index = 1 To GV.Columns.Count - 1
+            CType(GV.Columns(index), BoundField).DataField = Nothing
+        Next
+        UpDatos.Update()
+    End Sub
+    Private Sub GvMostrarColumnas(dt As DataTable)
+        Dim index = 1
+
+
+        For index = 1 To dt.Columns.Count - 5
+            CType(GV.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
+
+            Dim tmpDate As Date
+            If (Date.TryParse(dt.Columns(index + 4).ColumnName, tmpDate)) Then
+                CType(GV.Columns(index + 4), BoundField).HeaderText = tmpDate.ToString("dd-MMM").Replace(".", "")
+            Else
+                CType(GV.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
+            End If
+
+
+
+
+        Next
+
+
+        UpDatos.Update()
+    End Sub
+
+    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.DataKey("Ordenador").ToEntero = 0 Then
+                e.Row.CssClass = "SubTotales"
+
+            End If
+
+            e.Row.Attributes.Add("style", "max-height: 22px;")
+
+        End If
+
+
+
+    End Sub
+
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+        Dim SubProyecto As String = ""
+
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
+            SubProyecto = DdlSubProyecto.SelectedItem.Text
+        End If
+
+        Dim SbFiltros As New StringBuilder()
+        SbFiltros.Append($"Fecha Inicio: {TxtFechaAsistencia.Text} Fecha Fin: {TxtFechaAsistenciaFin.Text} ")
+        SbFiltros.Append($"SubProyecto: {SubProyecto}")
+
+        GV.ExportToExcelGembox("ReporteIncidencias", UsuarioActual, "Reporte Incidencias", "", DatosFiltros:=SbFiltros.ToString())
+        'GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}", "Anexo del Catálogo - Anual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
+
+    End Sub
+
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
+
+
+End Class

RH/RepPersonalInconsistencias.aspx

@@ -92,8 +92,8 @@
                             <ContentTemplate>
                                 <asp:Label ID="LbTotalContratos" runat="server" Font-Size="Medium"></asp:Label><br />
                                 <br />
-                                <asp:GridView ID="GV" runat="server" ShowHeader="True" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros de Contratos Vencidos o Próximos a Vencer." CellPadding="1" CellSpacing="1" RowStyle-VerticalAlign="Middle" RowStyle-HorizontalAlign="Center" 
+                                <asp:GridView ID="GV" runat="server" ShowHeader="True" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros de Contratos Vencidos o Próximos a Vencer." CellPadding="1" CellSpacing="1" RowStyle-VerticalAlign="Middle"  
-                                     CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
+                                     CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
                                     <Columns>
                                         <asp:TemplateField  ItemStyle-HorizontalAlign="Left">
                                             <HeaderTemplate>
@@ -105,8 +105,7 @@
                                             <ItemTemplate>
                                                 <asp:Label ID="Label1" runat="server" Text='<%# Bind("NombreCompleto")%>'></asp:Label>
                                             </ItemTemplate>
-                                            <ControlStyle CssClass="Texto" />
+                                            <ControlStyle CssClass="Texto" />                                          
-                                            <ItemStyle Width="450px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -118,8 +117,7 @@
                                             <ItemTemplate>
                                                 <asp:Label ID="Label2" runat="server" Text='<%# Bind("FechaIngreso", "{0:d}")%>'></asp:Label>
                                             </ItemTemplate>
-                                            <ControlStyle CssClass="Texto" />
+                                            <ControlStyle CssClass="Texto" />                                          
-                                            <ItemStyle Width="200px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -131,8 +129,7 @@
                                             <ItemTemplate>
                                                 <asp:Label ID="Label3" runat="server" Text='<%# Bind("Turno")%>'></asp:Label>
                                             </ItemTemplate>
-                                            <ControlStyle CssClass="Texto" />
+                                            <ControlStyle CssClass="Texto" />                                          
-                                            <ItemStyle Width="110px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -144,8 +141,7 @@
                                             <ItemTemplate>
                                                 <asp:Label ID="Label4" runat="server" Text='<%# Bind("Departamento")%>'></asp:Label>
                                             </ItemTemplate>
-                                            <ControlStyle CssClass="Texto" />
+                                            <ControlStyle CssClass="Texto" />                                          
-                                            <ItemStyle Width="150px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -157,8 +153,7 @@
                                             <ItemTemplate>
                                                 <asp:Label ID="Label5" runat="server" Text='<%# Bind("Puesto")%>'></asp:Label>
                                             </ItemTemplate>
-                                            <ControlStyle CssClass="Texto" />
+                                            <ControlStyle CssClass="Texto" />                                           
-                                            <ItemStyle Width="200px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -170,8 +165,7 @@
                                             <ItemTemplate>
                                                 <asp:Label ID="Label6" runat="server" Text='<%# Bind("Proyecto")%>'></asp:Label>
                                             </ItemTemplate>
-                                            <ControlStyle CssClass="Texto" />
+                                            <ControlStyle CssClass="Texto" />                                           
-                                            <ItemStyle Width="300px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -184,7 +178,7 @@
                                                 <asp:Label ID="Label7" runat="server" Text='<%# Bind("SubProyecto")%>'></asp:Label>
                                             </ItemTemplate>
                                             <ControlStyle CssClass="Texto" />
-                                            <ItemStyle Width="300px" />
+                                           
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -196,8 +190,7 @@
                                             <ItemTemplate>
                                                 <asp:Label ID="Label8" runat="server" Text='<%# Bind("SeInscribioSS")%>'></asp:Label>
                                             </ItemTemplate>
-                                            <ControlStyle CssClass="Texto" />
+                                            <ControlStyle CssClass="Texto" />                                           
-                                            <ItemStyle Width="450px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
@@ -209,26 +202,20 @@
                                             <ItemTemplate>
                                                 <asp:Label ID="Label9" runat="server" Text='<%# Bind("FechaFinContrato", "{0:d}")%>'></asp:Label>
                                             </ItemTemplate>
-                                            <ControlStyle CssClass="Texto" />
+                                            <ControlStyle CssClass="Texto" />                                          
-                                            <ItemStyle Width="200px" />
                                         </asp:TemplateField>
                                         <asp:TemplateField>
                                             <HeaderTemplate>
-                                               <%-- <asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="False" Text="" CommandArgument="Estatus0;0" OnClick="LbOrden_Click">--%>
+                                             Estatus
-                                                    Estatus
-                                                   <%-- <asp:Literal ID="ImgEstatus0" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
-                                                </asp:LinkButton>--%>
                                             </HeaderTemplate>
                                             <ItemTemplate>
                                                 <asp:Label ID="Label10" runat="server" Text='<%# Bind("Estatus")%>'></asp:Label>
                                             </ItemTemplate>
-                                            <ControlStyle CssClass="Texto" />
+                                            <ControlStyle CssClass="Texto" />                                          
-                                            <ItemStyle Width="110px" />
+                                        </asp:TemplateField>                                        
-                                        </asp:TemplateField>
                                     </Columns>
-                                    <HeaderStyle CssClass="Titulos"></HeaderStyle>
+                                    <RowStyle CssClass="Texto" />
-                                    <AlternatingRowStyle CssClass="TextoAlterno"></AlternatingRowStyle>
+                                    <HeaderStyle CssClass="Titulos" />
-                                    <RowStyle CssClass="Texto"></RowStyle>
                                 </asp:GridView>
                             </ContentTemplate>
                         </asp:UpdatePanel>
@@ -376,8 +363,7 @@
                                             <ItemStyle Width="400px" />
                                         </asp:TemplateField>
                                     </Columns>
-                                    <HeaderStyle CssClass="Titulos"></HeaderStyle>
+                                    <HeaderStyle CssClass="Titulos"></HeaderStyle>                                  
-                                    <AlternatingRowStyle CssClass="TextoAlterno"></AlternatingRowStyle>
                                     <RowStyle CssClass="Texto"></RowStyle>
                                 </asp:GridView>
                             </ContentTemplate>

Ventas/Clientes.aspx

@@ -1988,17 +1988,17 @@
                                                         <asp:CheckBox ID="ChkCobranzaEnviarCorreo" runat="server" Text="Enviar Correo Cobranza" />
                                                     </div>
                                                 </div>
-                                                <div class="row">
+                                                <div class="row">                                                    
-                                                    <div class="col-md-12 text-center">
+                                                    <div class="col-md-4 text-center">
-                                                        <asp:LinkButton ID="LnkGenerarReporteCxC" CssClass="btn btn-success" Text="<i class='fa fa-cogs'></i>  Generar" runat="server" />
-                                                        &nbsp;&nbsp;<asp:Button ID="BtnCobranzaSMS" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" runat="server" Visible="false" Text=" Enviar SMS" OnClick="BtnCobranzaSMS_Click" CssClass="btn btn-default" />
-                                                    </div>
-                                                    <div class="col-md-12 text-center">
                                                         <asp:RadioButtonList ID="RBLGenerarReporteCxC" RepeatDirection="Horizontal" runat="server" Style="margin: 0 auto;">
                                                             <asp:ListItem Text="PDF" Value="PDF" Selected="True" />
                                                             <asp:ListItem Text="EXCEL" Value="EXCEL" />
                                                         </asp:RadioButtonList>
                                                     </div>
+                                                    <div class="col-md-4 text-center">
+                                                        <asp:LinkButton ID="LnkGenerarReporteCxC" CssClass="btn btn-success" Text="<i class='fa fa-cogs'></i>  Generar" runat="server" />
+                                                        &nbsp;&nbsp;<asp:Button ID="BtnCobranzaSMS" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" runat="server" Visible="false" Text=" Enviar SMS" OnClick="BtnCobranzaSMS_Click" CssClass="btn btn-default" />
+                                                    </div>
                                                 </div>
                                             </div>
                                             <div class="portlet-footer">

Ventas/Clientes.aspx.vb

@@ -1999,7 +1999,7 @@ Partial Class Clientes
             If DtCxCActivas.MAX("LineaAdicional") = "" Then GvCxC.Columns(6).Visible = False
             If DtCxCActivas.MAX("CobranzaEstatus") = "" Then GvCxC.Columns(10).Visible = False
             'solo tomo los 10 ultimos mas el totalizador general
-            Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
+            Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'", "Fecha DESC")
             DtHistorialCxC = dt
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 GvCxCHistorial.DataSource = dt.AsEnumerable().Take(22).CopyToDataTable()