diff --git a/AC/Reportes/RepEstadoActividades.rdlc b/AC/Reportes/RepEstadoActividades.rdlc
index 931f42736..9e2910482 100644
--- a/AC/Reportes/RepEstadoActividades.rdlc
+++ b/AC/Reportes/RepEstadoActividades.rdlc
@@ -204,7 +204,7 @@
                               <Value>=Fields!ImporteAnterior.Value</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
-                                <Format>#,0.00;(#,0.00)</Format>
+                                <Format>#,0.00</Format>
                                 <Color>=Iif(Fields!ImporteAnterior.Value&lt;0,"Red","Black")</Color>
                                 <Language>es-MX</Language>
                               </Style>
@@ -576,7 +576,7 @@
                               <Value>=Fields!ImporteAnterior.Value</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
-                                <Format>#,0.00;(#,0.00)</Format>
+                                <Format>#,0.00</Format>
                                 <Color>=Iif(Fields!ImporteAnterior.Value&lt;0,"Red","Black")</Color>
                                 <Language>es-Mx</Language>
                               </Style>
@@ -857,7 +857,7 @@
   <Width>20.24762cm</Width>
   <Page>
     <PageHeader>
-      <Height>1.66688cm</Height>
+      <Height>1.83445cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -920,11 +920,32 @@
                 <TextAlign>Center</TextAlign>
               </Style>
             </Paragraph>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Centro de Costos: </Value>
+                  <Style>
+                    <FontSize>11pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+                <TextRun>
+                  <Value>=Parameters!SubProyecto.Value</Value>
+                  <Style>
+                    <FontSize>11pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox5</rd:DefaultName>
           <Top>0.71396cm</Top>
           <Left>2.94324cm</Left>
-          <Height>0.6cm</Height>
+          <Height>1.12049cm</Height>
           <Width>13.85838cm</Width>
           <ZIndex>1</ZIndex>
           <Style>
@@ -946,7 +967,7 @@
                 <TextRun>
                   <Value>=Parameters!pEmp.Value</Value>
                   <Style>
-                    <FontSize>13pt</FontSize>
+                    <FontSize>12pt</FontSize>
                     <FontWeight>Bold</FontWeight>
                   </Style>
                 </TextRun>
@@ -1292,6 +1313,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="SubProyecto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>163d4464-e41c-42b9-8827-487ff815b059</rd:ReportID>
diff --git a/Acumuladores/RepPolizasVirtuales.aspx b/Acumuladores/RepPolizasVirtuales.aspx
index 46bf8d1d2..fbf64c285 100644
--- a/Acumuladores/RepPolizasVirtuales.aspx
+++ b/Acumuladores/RepPolizasVirtuales.aspx
@@ -45,9 +45,17 @@
                         <div class="row">
 
 
-                                 <div class="col-md-1 truncate">
-                                Fecha Inicio:
-                           
+
+
+                            <asp:Label  runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</asp:Label>
+                            <div runat="server"  class="col-md-2">
+                                 
+                                <asp:DropDownList ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me Widthall"  runat="server"  Width="100%" ></asp:DropDownList>                            
+                                 
+                            </div>
+
+                             <div class="col-md-1 truncate">
+                                Fecha Inicio:                           
                             </div>
                             <div class="col-md-1" style="min-width: 115px">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
diff --git a/Acumuladores/RepPolizasVirtuales.aspx.vb b/Acumuladores/RepPolizasVirtuales.aspx.vb
index 000901090..314611829 100644
--- a/Acumuladores/RepPolizasVirtuales.aspx.vb
+++ b/Acumuladores/RepPolizasVirtuales.aspx.vb
@@ -7,14 +7,16 @@ Partial Class Acumuladores_RepPolizasVirtuales
 
     Private Sub Acumuladores_RepPolizasVirtuales_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-
+            CargaCombos()
         End If
     End Sub
 
+    Private Sub CargaCombos()
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto)
 
 
-
-
+    End Sub
 
     Public Sub CargaDatos()
 
@@ -25,7 +27,7 @@ Partial Class Acumuladores_RepPolizasVirtuales
         Dim FI As Date = If(txtFechaI.Text.Length > 0, txtFechaI.Text.ToDate, MinFecha)
         Dim FF As Date = If(txtFechaF.Text.Length > 0, txtFechaF.Text.ToDate, MaxFecha)
 
-        If ObjAcum.GetPolizaVirtualRep(FI, FF, DdlOpcion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If ObjAcum.GetPolizaVirtualRep(FI, FF, DdlOpcion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.Toentero, UsuarioActual.CveUsuario) Then
             GvDatos.DataSource = ObjAcum.DtResultados
 
             If ObjAcum.DtResultados.Rows.Count > 0 Then
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index c6fbde67a..c9886a914 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -1280,7 +1280,7 @@ Public Class ClsAcumuladores
     End Function
 
 
-    Public Function GetPolizaVirtualRep(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetPolizaVirtualRep(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, CveUsuario As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         SqlDataAdapter("PA_Vta_PolizaVirtualRepGet")
@@ -1289,7 +1289,9 @@ Public Class ClsAcumuladores
             .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
 
         End With
 
diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb
index 4f11a4492..869c345c2 100644
--- a/Contabilidad2/RepEstadoActividades.aspx.vb
+++ b/Contabilidad2/RepEstadoActividades.aspx.vb
@@ -319,10 +319,25 @@ Partial Class AC_RepEstadoActividades
         params.Add(New ReportParameter("lbTotalActual", LbTotalActual.Text))
         params.Add(New ReportParameter("lbTotalAnterior", LbTotalAnterior.Text))
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+
+        ' params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+
+        Dim LogoRuta As String = ""
+        LogoRuta = String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)
+
+        If IO.File.Exists(LogoRuta) Then
+            params.Add(New ReportParameter("pImg", $"file://{LogoRuta}"))
+        Else
+            params.Add(New ReportParameter("pImg", ""))
+        End If
+
+
+
         params.Add(New ReportParameter("pFirma1", ""))
         params.Add(New ReportParameter("pFirma2", ""))
         params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem.Text, DdlEjercicio.SelectedItem.Text)))
+        params.Add(New ReportParameter("SubProyecto", DdlSubproyecto.SelectedItem.Text))
+
         ImprimirPDF("AC/Reportes/RepEstadoActividades.rdlc", lrds, params, "EstadoActividades", Formato)
     End Sub