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

2021-05-07 21:53:33 -07:00
parent 81f31130d9 21559c432a
commit a467b48ecd
15 changed files with 5918 additions and 4702 deletions
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -7290,12 +7290,11 @@ Public Class ClsContPAQi
        StrSQL.Append("		FROM [dbo].[Polizas]  P ")
        StrSQL.Append("			LEFT JOIN TiposPolizas T ON T.Id = P.TipoPol ")
        StrSQL.Append("			LEFT JOIN MovimientosPoliza M ON M.IdPoliza = P.Id ")
-        StrSQL.Append("			LEFT JOIN [SERVIDOR].[Ventas].dbo.Conta_PrePolizas PP on P.Id = PP.IdPoliza")
+        StrSQL.Append("			LEFT JOIN [SERVIDOR].[Ventas].dbo.Conta_PrePolizas PP on P.Id = PP.IdPoliza AND YEAR(PP.Fecha) = @Ejercicio AND MONTH(PP.Fecha) = @Periodo AND PP.CveEmpresa = @CveEmpresa")
        StrSQL.Append("		WHERE P.Ejercicio = @Ejercicio ")
        StrSQL.Append("			AND P.Periodo = @Periodo ")
        StrSQL.Append("			AND (@TipoPoliza = -1 OR P.TipoPol = @TipoPoliza) ")
        StrSQL.Append("			AND (@SegmentoNegocio = -1 OR M.IdSegNeg = @SegmentoNegocio) ")
-        StrSQL.Append("			AND (PP.CveEmpresa = @CveEmpresa) ")
        StrSQL.Append("		GROUP BY P.Id, P.Fecha, T.Nombre, P.Concepto, P.Cargos, P.Abonos, P.Folio, PP.CvePrepoliza ")
        StrSQL.Append("		ORDER BY P.Folio ")

--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -241,7 +241,7 @@ Public Class ClsMovimientos
                           Gpo As Integer, CveResponsable As Integer,
                           TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1",
                           Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
-                           Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean
+                           Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1) As Boolean

        Dim Retorno As Boolean = False
        'Data = New DataTable
@@ -273,7 +273,8 @@ Public Class ClsMovimientos
            .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
            .Add("@CveCobranzaEstatus", SqlDbType.Int).Value = CveCobranzaEstatus
            .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
-            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados
        End With

        Try
@@ -324,7 +325,7 @@ Public Class ClsMovimientos
                                  CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1",
                                  Optional FechaVI As String = "-1", Optional FechaVF As String = "1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1,
                                  Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1,
-                                  Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1) As Boolean
+                                  Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1) As Boolean

        Dim Retorno As Boolean = False
        'Data = New DataTable
@@ -364,8 +365,8 @@ Public Class ClsMovimientos
            .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito
            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-            .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
-
+            .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
+            .Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados
        End With

        Try
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -1843,7 +1843,6 @@ Partial Class ContabilidadC_RegPrePoliza
                dt = DtMovimientos.FiltraParametros("", "", filtroComplemento)
                For Each Row As DataRow In dt.Rows
                    If ObjCompra.GetCompraComplementoPago(-1, UsuarioActual.CveEmpresa, Row("CveIE").ToString.ToEntero) Then
-                        Console.WriteLine(Row("CveIE").ToString)
                        If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
                            Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
                            Dim RFC As String = dr("RFCde").ToString
@@ -1860,17 +1859,20 @@ Partial Class ContabilidadC_RegPrePoliza
                    End If
                Next
                MergePdfFiles(Pathpdf.ToArray)
+                If File.Exists(pathPoliza) Then
+                    Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
+                End If
+
            Else
                Alert("No se tiene cargado comprobante de pago", TipoMensaje.MsgAdvertencia)
            End If

        Catch ex As Exception
            Alert("Error al descargar el paquete", TipoMensaje.MsgError)
+            If File.Exists(pathPoliza) Then
+                Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
+            End If
        End Try
-
-        If Directory.Exists(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick)) Then
-            Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
-        End If
        ObjCompra.Dispose()
        ObjIE.Dispose()
    End Sub
@@ -1989,6 +1991,9 @@ Partial Class ContabilidadC_RegPrePoliza

                End If
                result = True
+                If Directory.Exists(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick)) Then
+                    Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
+                End If
            End If
        Catch ex As Exception
        End Try
@@ -2183,6 +2188,8 @@ Partial Class ContabilidadC_RegPrePoliza
                    Dim YaExiste As Boolean = False
                    Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero
                    Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
+                    'sino viene  el cveconcepto, busca por le nombre del concepto
+                    If CveConceptoContable = 0 Then CveConceptoContable = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable = '{0}'", Row("ConceptoContable"))).ToEntero

                    If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
                        If ObjConta.DtResultados.Rows.Count > 0 Then
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -69,13 +69,13 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">

            <li>
-                <asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="far fa-file-excel" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton>
+                <asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton>
            </li>
            <li>
                <asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" OnClick="LnkComplementoPago_Click" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Crear Complemento de Pago</asp:LinkButton>
            </li>
            <li>
-                <asp:LinkButton ID="LnkImprimirPDF" runat="server" Visible="false" OnClick="LnkImprimirPDF_Click" Style="color: #686868;"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir Poliza</asp:LinkButton>
+                <asp:LinkButton ID="LnkImprimirPDF" runat="server"  OnClick="LnkImprimirPDF_Click" Style="color: #686868;"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir Poliza</asp:LinkButton>
            </li>


--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -517,11 +517,6 @@ Partial Class ContabilidadC_RegPrePolizaS
            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 234, 235, 240) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
            If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
            If CveConceptoContable.Contiene(30, 204) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
-
-            If CveConceptoContable.Contiene(30) Then
-                LnkImprimirPDF.Visible = True
-                CveIE = e.Row.DBCampo("CveIE").ToString.ToEntero
-            End If

            'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable

@@ -740,8 +735,8 @@ Partial Class ContabilidadC_RegPrePolizaS
            dr("CvePersonal") = drt("CvePersonal")
            dr("CveClasificacion") = -1
            dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
-            dr("FolioPoliza") = drt("FolioPoliza")
-
+            'dr("FolioPoliza") = 0 'drt("FolioPoliza")
+
            DtMovimientos.Rows.Add(dr)
        Next

@@ -1944,19 +1939,29 @@ Partial Class ContabilidadC_RegPrePolizaS
                    Dim Importe As Decimal = If(Row("Cargo").ToString.ToDecimal <> 0, Row("Cargo").ToString.ToDecimal, Row("Abono").ToString.ToDecimal)
                    Dim Concepto As String = Row("Concepto").ToString
                    Dim Referencia As String = Row("Referencia").ToString
-                    Dim IdCuenta As Integer = -1
+                    Dim CveCuenta As Integer = -1
                    Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString.ToEntero
                    Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
                    Dim YaExiste As Boolean = False
                    Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero
                    Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
+                    Dim CveClasificacion As Integer = -1
+                    'sino viene  el cveconcepto, busca por le nombre del concepto
+                    If CveConceptoContable = 0 Then CveConceptoContable = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable = '{0}'", Row("ConceptoAdministrativo"))).ToEntero
+
+                    If CveConceptoContable = 69 Then
+                        CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", "").ToEntero
+                    End If
+
+                    If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))).ToEntero
+


                    If Importe <> 0 Then

                        If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
                            If ObjConta.DtResultados.Rows.Count > 0 Then
-                                IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero
+                                CveCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero
                                'TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo")
                            Else
                                Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe} </br>")
@@ -1970,13 +1975,13 @@ Partial Class ContabilidadC_RegPrePolizaS


                        If YaExiste = False Then
-                            If IdCuenta > 0 Then
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate, IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then
+                            If CveCuenta > 0 Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate, IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion, CveCuenta:=CveCuenta) Then
                                    TieneError = True
                                    Exit For
                                End If
                            Else
-                                IdCuenta = -2
+                                CveCuenta = -2
                            End If
                        End If

--- a/Contabilidad2/CatCuentas.aspx
+++ b/Contabilidad2/CatCuentas.aspx
@@ -55,6 +55,9 @@
    Catálogo de Cuentas Contables
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+            <li>
+                <asp:LinkButton ID="LnkImprimirExcel" runat="server"  OnClick="LnkImprimirExcel_Click" Style="color: #686868;"><i class="fa fa-file-excel-o" style="color:#686868;"></i> Imprimir Cuentas</asp:LinkButton>
+            </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
    <asp:UpdatePanel ID="upcuentas" runat="server" UpdateMode="Conditional">
--- a/Contabilidad2/CatCuentas.aspx.vb
+++ b/Contabilidad2/CatCuentas.aspx.vb
@@ -1,5 +1,6 @@
 Imports System.Data
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms

 Partial Class Contabilidad2_CatCuentas
    Inherits ClsPaginas
@@ -673,5 +674,19 @@ Partial Class Contabilidad2_CatCuentas
            End Select
        End If
    End Sub
+    Protected Sub LnkImprimirExcel_Click(sender As Object, e As EventArgs)
+        Imprime("Excel")
+    End Sub
+    Private Sub Imprime(Formato As String)
+        If DtDatos IsNot Nothing Then

+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+
+            ImprimirPDF("Empresas/Grales/Formatos/Cuentas.rdlc", DtDatos, params, "Cuentas", Formato)
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
 End Class
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -1679,9 +1679,9 @@ Partial Class Contratos_ContratoObra
            If e.Row.DBCampo("PermitirEstimacion").ToString = "1" Then
                ' e.Row.FCCheckBox("CHKPEstimacion").Checked = True
            End If
-            If Autorizado Then
-                e.Row.FCLinkButton("imgE").Visible = False
-                e.Row.FCLinkButton("imgD").Visible = False
+            If Autorizado Then
+                ' e.Row.FCLinkButton("imgE").Visible = False
+                'e.Row.FCLinkButton("imgD").Visible = False
            End If
            If CveTipoContrato = 25 Then
                e.Row.Cells(1).Width = Unit.Pixel(10)
@@ -2044,8 +2044,8 @@ Partial Class Contratos_ContratoObra
                ' e.Row.FCCheckBox("CHKPEstimacion").Checked = True
            End If
            If Autorizado Then
-                e.Row.FCLinkButton("imgE").Visible = False
-                e.Row.FCLinkButton("imgD").Visible = False
+                'e.Row.FCLinkButton("imgE").Visible = False
+                'e.Row.FCLinkButton("imgD").Visible = False
            End If

        End If
--- a/CxC/RepCxC.aspx
+++ b/CxC/RepCxC.aspx
@@ -335,6 +335,9 @@
                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
+                        <div class="col-md-2">
+                            <asp:CheckBox ID="ChkAnticipos" runat="server" Text="Incluye Anticipos" TextAlign="Left" Visible="false" />
+                            </div>

                    </div>

--- a/CxC/RepCxC.aspx.vb
+++ b/CxC/RepCxC.aspx.vb
@@ -105,6 +105,7 @@ Partial Class RepCxC
            CargaCombos()
            CargaGvPersonalizarRaqngoColumnas()
            CargaDatos()
+            If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then ChkAnticipos.visible = True
            ActivaEnviarEstadoCuenta()
            If UsuarioActual.CveRol = 1 Or UsuarioActual.TienePermisoProceso(243) Then LnkDescargarSegmentos.Visible = True
            CreaDataTableColor()
@@ -195,12 +196,14 @@ Partial Class RepCxC
        CveCobranzaEstatus = DdlCobranzaEstatus.SelectedValue.ToEntero
        CveClienteClasificacion = DdlClienteClasificacion.SelectedValue.ToEntero
        Dim CveCliente = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1)
+        Dim AplicaAnticipos As Integer = If(ChkAnticipos.checked, 1, 0)
+

        If ObjMovtos.GetCxC(FechaI, FechaF, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1,
                            "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico,
                            If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero,
                            CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                            TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then
+                            TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=AplicaAnticipos) Then

            GvDatos.DataSource = ObjMovtos.DtResultados
            DtDatos = ObjMovtos.DtResultados
--- a/Empresas/15/Formatos/Factura.rdlc
+++ b/Empresas/15/Formatos/Factura.rdlc
--- a/Empresas/Grales/Formatos/Cuentas.rdlc
+++ b/Empresas/Grales/Formatos/Cuentas.rdlc
--- a/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
+++ b/Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2016/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
  <AutoRefresh>0</AutoRefresh>
  <DataSources>
    <DataSource Name="DataSet">
@@ -37,6 +37,10 @@
          <DataField>SerieLote</DataField>
          <rd:TypeName>System.String</rd:TypeName>
        </Field>
+        <Field Name="Serie">
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
        <Field Name="FolioSalida">
          <DataField>FolioSalida</DataField>
          <rd:TypeName>System.String</rd:TypeName>
@@ -86,16 +90,19 @@
                  <Width>1.69333cm</Width>
                </TablixColumn>
                <TablixColumn>
-                  <Width>1.74675cm</Width>
+                  <Width>1.16467cm</Width>
                </TablixColumn>
                <TablixColumn>
                  <Width>1.51446cm</Width>
                </TablixColumn>
                <TablixColumn>
-                  <Width>3.74919cm</Width>
+                  <Width>3.37414cm</Width>
                </TablixColumn>
                <TablixColumn>
-                  <Width>6.22158cm</Width>
+                  <Width>5.82471cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>1.53921cm</Width>
                </TablixColumn>
                <TablixColumn>
                  <Width>1.57859cm</Width>
@@ -235,7 +242,7 @@
                            <Paragraph>
                              <TextRuns>
                                <TextRun>
-                                  <Value>Disponible</Value>
+                                  <Value>Disp.</Value>
                                  <Style>
                                    <FontSize>8pt</FontSize>
                                    <FontWeight>Bold</FontWeight>
@@ -450,6 +457,62 @@
                        </Textbox>
                      </CellContents>
                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox13">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Serie </Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox13</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <BackgroundColor>Silver</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                    <TablixCell>
                      <CellContents>
                        <Textbox Name="Textbox4">
@@ -747,7 +810,6 @@
                            <PaddingBottom>2pt</PaddingBottom>
                          </Style>
                        </Textbox>
-                        <rd:Selected>true</rd:Selected>
                      </CellContents>
                    </TablixCell>
                    <TablixCell>
@@ -888,6 +950,41 @@
                            <PaddingBottom>2pt</PaddingBottom>
                          </Style>
                        </Textbox>
+                        <rd:Selected>true</rd:Selected>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Serie">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Serie.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIf(Fields!PS.Value = "", "Bold", "Default")</FontWeight>
+                                    <Color>=IIf(Fields!PS.Value = "", "White", "Black")</Color>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Serie</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BackgroundColor>=IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
                      </CellContents>
                    </TablixCell>
                    <TablixCell>
@@ -1050,6 +1147,7 @@
                <TablixMember />
                <TablixMember />
                <TablixMember />
+                <TablixMember />
              </TablixMembers>
            </TablixColumnHierarchy>
            <TablixRowHierarchy>
@@ -1069,7 +1167,7 @@
            <DataSetName>DataSet1</DataSetName>
            <Top>0.17639cm</Top>
            <Height>1.0148cm</Height>
-            <Width>24.37731cm</Width>
+            <Width>24.56252cm</Width>
            <Style>
              <Border>
                <Style>None</Style>
@@ -1080,7 +1178,7 @@
        <Height>0.67394in</Height>
        <Style />
      </Body>
-      <Width>9.69372in</Width>
+      <Width>9.67028in</Width>
      <Page>
        <PageHeader>
          <Height>3.48078cm</Height>
@@ -1108,7 +1206,7 @@
              <rd:DefaultName>Textbox1</rd:DefaultName>
              <Top>0.47625cm</Top>
              <Height>0.6cm</Height>
-              <Width>24.62205cm</Width>
+              <Width>24.56252cm</Width>
              <Style>
                <Border>
                  <Style>None</Style>
@@ -1155,7 +1253,7 @@
              <rd:DefaultName>Textbox2</rd:DefaultName>
              <Top>1.07625cm</Top>
              <Height>0.52945cm</Height>
-              <Width>24.62205cm</Width>
+              <Width>24.56252cm</Width>
              <ZIndex>1</ZIndex>
              <Style>
                <Border>
@@ -1173,7 +1271,7 @@
              <Sizing>FitProportional</Sizing>
              <Top>0.11458in</Top>
              <Height>2.09585cm</Height>
-              <Width>24.37731cm</Width>
+              <Width>24.56252cm</Width>
              <ZIndex>2</ZIndex>
              <Style>
                <Border>
@@ -1201,7 +1299,7 @@
              <rd:DefaultName>Filtros</rd:DefaultName>
              <Top>2.56328cm</Top>
              <Height>0.6cm</Height>
-              <Width>24.37731cm</Width>
+              <Width>24.56252cm</Width>
              <ZIndex>3</ZIndex>
              <Style>
                <Border>
@@ -1216,7 +1314,7 @@
            <Line Name="Line1">
              <Top>3.30439cm</Top>
              <Height>0cm</Height>
-              <Width>24.37731cm</Width>
+              <Width>24.56252cm</Width>
              <ZIndex>4</ZIndex>
              <Style>
                <Border>
@@ -1375,7 +1473,7 @@
            <Line Name="Line2">
              <Top>0.15875cm</Top>
              <Height>0cm</Height>
-              <Width>24.37731cm</Width>
+              <Width>24.56252cm</Width>
              <ZIndex>4</ZIndex>
              <Style>
                <Border>
@@ -1513,6 +1611,49 @@
      <Prompt>ReportParameter1</Prompt>
    </ReportParameter>
  </ReportParameters>
+  <ReportParametersLayout>
+    <GridLayoutDefinition>
+      <NumberOfColumns>2</NumberOfColumns>
+      <NumberOfRows>4</NumberOfRows>
+      <CellDefinitions>
+        <CellDefinition>
+          <ColumnIndex>0</ColumnIndex>
+          <RowIndex>0</RowIndex>
+          <ParameterName>NombreEmpresa</ParameterName>
+        </CellDefinition>
+        <CellDefinition>
+          <ColumnIndex>1</ColumnIndex>
+          <RowIndex>0</RowIndex>
+          <ParameterName>FechaInicio</ParameterName>
+        </CellDefinition>
+        <CellDefinition>
+          <ColumnIndex>0</ColumnIndex>
+          <RowIndex>1</RowIndex>
+          <ParameterName>FechaFin</ParameterName>
+        </CellDefinition>
+        <CellDefinition>
+          <ColumnIndex>1</ColumnIndex>
+          <RowIndex>1</RowIndex>
+          <ParameterName>UsuarioImprimio</ParameterName>
+        </CellDefinition>
+        <CellDefinition>
+          <ColumnIndex>0</ColumnIndex>
+          <RowIndex>2</RowIndex>
+          <ParameterName>LogoPath</ParameterName>
+        </CellDefinition>
+        <CellDefinition>
+          <ColumnIndex>1</ColumnIndex>
+          <RowIndex>2</RowIndex>
+          <ParameterName>Filtros</ParameterName>
+        </CellDefinition>
+        <CellDefinition>
+          <ColumnIndex>0</ColumnIndex>
+          <RowIndex>3</RowIndex>
+          <ParameterName>FechaImprimio</ParameterName>
+        </CellDefinition>
+      </CellDefinitions>
+    </GridLayoutDefinition>
+  </ReportParametersLayout>
  <rd:ReportUnitType>Cm</rd:ReportUnitType>
  <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>
 </Report>
--- a/OC/RepSolicitudesAnticipo.aspx
+++ b/OC/RepSolicitudesAnticipo.aspx
@@ -3,6 +3,7 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
    Reporte de Solicitudes de Anticipo
@@ -120,13 +121,14 @@
            </div>
            <asp:GridView ID="GvSolicitudes" runat="server" GridLines="None" DataKeyNames="CveOrdenCompra,Folio, RazonSocial, ImporteSol, FolioMov, Importe, Nombre, CveEvento"
                CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" data-footer="0" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False"
-                EmptyDataText="No se encontraron registros">
+                EmptyDataText="No se encontraron registros" OnRowDataBound="GvSolicitudes_RowDataBound">
                <Columns>
                     <asp:TemplateField Visible="false">
                        <HeaderTemplate>
+                            <asp:CheckBox ID="ChkAll" runat="server"/>
                        </HeaderTemplate>
                        <ItemTemplate>
-                            <asp:CheckBox ID="ChkOrdenCompra" runat="server"/>
+                            <asp:CheckBox ID="ChkOrdenCompra"  runat="server" />
                        </ItemTemplate>
                    </asp:TemplateField>
                    <asp:TemplateField HeaderText="Ord. Compra" ItemStyle-Width="10%">
@@ -233,12 +235,10 @@

 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
-
    <script type="text/javascript">
-        jQuery('#C_datetimepicker').datetimepicker({
-            timepicker: false,
-            format: 'd.m.Y'
-        });
+        function SeleccionarTodos(chk) {
+            $("#C_GvSolicitudes input:checkbox").attr("checked", chk.checked);
+        }
    </script>
 </asp:Content>

--- a/OC/RepSolicitudesAnticipo.aspx.cs
+++ b/OC/RepSolicitudesAnticipo.aspx.cs
@@ -77,6 +77,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
        CargaProveedor();
        CargaUsuarios();
        CargaDatos();
+
    }

    private void CargaSubProyectos()
@@ -155,11 +156,20 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
    }
    protected void LnkCambiarFecha_Click(object sender, EventArgs e)
    {
-        GvSolicitudes.Columns[0].Visible = true;
-        LnkGuardar.Visible = true;
-        LnkCambiarFecha.Visible = false;
-        UPAcciones.Update();
-        UPDatos.Update();
+        if (GvSolicitudes.Rows.Count > 0)
+        {
+            GvSolicitudes.Columns[0].Visible = true;
+            LnkGuardar.Visible = true;
+            LnkCambiarFecha.Visible = false;
+            GvSolicitudes.HeaderRow.FCCheckBox("ChkAll").Attributes.Add("onclick", "SeleccionarTodos(this);");
+            UPAcciones.Update();
+            UPDatos.Update();
+        }
+        else
+        {
+            Alert("No hay informacion cargada", TipoMensaje.MsgAdvertencia);
+        }
+
    }
    protected void LnkGuardar_Click(object sender, EventArgs e)
    {
@@ -284,4 +294,14 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
        ImprimirbytesPDF(all, "RepSolicitudesAnticipo");
        
    }
+
+    protected void GvSolicitudes_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            e.Row.FCCheckBox("ChkOrdenCompra").Attributes.Add("Class", "ChkOrdenCompra");
+        }
+
+    }
+
 }