diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index f016f7235..85012720b 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -3118,7 +3118,7 @@ Partial Class PopUpVerFactura
                             params.Add(New ReportParameter("TelefonoProveedor", If(CveCompra > 0, dr("Telefono").ToString, "")))
                             params.Add(New ReportParameter("ContactoProveedor", If(CveCompra > 0, dr("ContactoNombre").ToString, "")))
                             params.Add(New ReportParameter("ImporteLetra", String.Format("({0})", DtMovimientos.SUM("Total").ToString.ToDecimal.Texto2Letras(CveMoneda).ToUpper)))
-                            params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, "")))
+                            params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble - dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
                             params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
                             params.Add(New ReportParameter("IVA", If(CveCompra > 0, (dr("IVA").ToString.ToDouble).FormatoNumero, "")))
                             params.Add(New ReportParameter("Total", If(CveCompra > 0, (dr("Total").ToString.ToDouble).FormatoNumero, "")))
diff --git a/Empresas/189/Formatos/Entradas.rdlc b/Empresas/189/Formatos/Entradas.rdlc
index 0060afcbd..9e37a2380 100644
--- a/Empresas/189/Formatos/Entradas.rdlc
+++ b/Empresas/189/Formatos/Entradas.rdlc
@@ -1413,11 +1413,15 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=Fields!Cargo.Value</Value>
+                                  <Value>=IIf(
+    Fields!Cargo.Value = 0, 
+    "", 
+    Format(Fields!Cargo.Value, "###,###,###.00")
+)</Value>
                                   <Style>
                                     <FontFamily>MYRIAd Pro</FontFamily>
                                     <FontSize>6.5pt</FontSize>
-                                    <Format>###,###,###.##</Format>
+                                    <Format>###,###,###.00</Format>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1445,11 +1449,15 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=Fields!Abono.Value</Value>
+                                  <Value>=IIf(
+    Fields!Abono.Value = 0, 
+    "", 
+    Format(Fields!Abono.Value, "###,###,###.00")
+)</Value>
                                   <Style>
                                     <FontFamily>MYRIAd Pro</FontFamily>
                                     <FontSize>6.5pt</FontSize>
-                                    <Format>###,###,###.##</Format>
+                                    <Format>###,###,###.00</Format>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1572,12 +1580,16 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=Sum(Fields!Cargo.Value)</Value>
+                                  <Value>=IIf(
+    Fields!Cargo.Value = 0, 
+    "", 
+    Format(Sum(Fields!Cargo.Value), "###,###,###.00")
+)</Value>
                                   <Style>
                                     <FontFamily>MYRIAd Pro</FontFamily>
                                     <FontSize>7.5pt</FontSize>
                                     <FontWeight>Bold</FontWeight>
-                                    <Format>###,###,###.##</Format>
+                                    <Format>###,###,###.00</Format>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1594,6 +1606,7 @@
                             </Border>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -1605,12 +1618,16 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=Sum(Fields!Abono.Value)</Value>
+                                  <Value>=IIf(
+    Fields!Abono.Value = 0, 
+    "", 
+    Format(Sum(Fields!Abono.Value), "###,###,###.00")
+)</Value>
                                   <Style>
                                     <FontFamily>MYRIAd Pro</FontFamily>
                                     <FontSize>7.5pt</FontSize>
                                     <FontWeight>Bold</FontWeight>
-                                    <Format>###,###,###.##</Format>
+                                    <Format>###,###,###.00</Format>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index 5a6b5880d..63a160b67 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -339,9 +339,12 @@ Partial Class Ventas_PVCobranza
 
     Private Sub MuestraNoTimbradasCentroCosto()
         Dim ObjSub As New ClsSubProyectos
-        If ObjSub.GetNoTimbradasCentroCosto(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If ObjSub.GetNoTimbradasCentroCosto(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero) Then
             If ObjSub.DtResultados.Rows.Count > 0 Then
-                GvPendientesTimbrar.DataSource = ObjSub.DtResultados.FiltraParametros($"Fecha = '{Now.ToString("dd/MM/yyyy")}'")
+                Dim miFecha As DateTime = Now
+                Dim fechaSiguiente As DateTime = miFecha.AddDays(1)
+                Dim filtro As String = String.Format("Fecha >= #{0}# AND Fecha < #{1}#", miFecha.ToString("MM/dd/yyyy"), fechaSiguiente.ToString("MM/dd/yyyy"))
+                GvPendientesTimbrar.DataSource = ObjSub.DtResultados.FiltraParametros(filtro)
             End If
         End If
         ObjSub.Dispose()