diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx
index 629c9c0bb..30d86e5aa 100644
--- a/Ventas/PVCobranza.aspx
+++ b/Ventas/PVCobranza.aspx
@@ -93,9 +93,11 @@
              CssClass="ScrollAD table table-striped table-hover Widthall" data-heighterror="320" data-freezecols="0" data-freezerows="0" GridLines="None"
              DataKeyNames="CveVenta,TipoDocto,Saldo,DescripcionVenta">
              <Columns>
-                 <asp:BoundField HeaderText="Descripcion" DataField="DescripcionVenta" ItemStyle-HorizontalAlign="Center" />                               
+                 <asp:BoundField HeaderText="Descripcion" DataField="DescripcionVenta" ItemStyle-HorizontalAlign="Center" />
+                  <asp:BoundField HeaderText="Folio" DataField="SerieFolio" ItemStyle-HorizontalAlign="Center" />
+                  <asp:BoundField HeaderText="Fecha/Hora" DataField="Fecha" ItemStyle-HorizontalAlign="Center" />
                  <asp:BoundField HeaderText="Importe" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                 <asp:TemplateField HeaderText="">
+                 <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Right">
                     <ItemTemplate>
                          <asp:LinkButton ID="BtnPagar" runat="server" CssClass="btn btn-xs btn-success" Text="Cobrar" CommandName="Cobrar" CommandArgument='<%# Eval("CveVenta") %>' />
                     </ItemTemplate>
diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index ba2db00f7..660217f72 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -2,7 +2,6 @@
 Option Strict On
 
 Imports System.Data
-Imports System.Runtime.Remoting
 Imports Extensiones
 
 Partial Class Ventas_PVCobranza
@@ -19,7 +18,7 @@ Partial Class Ventas_PVCobranza
         DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
         DdlSubProyecto.DataBind()
 
-        txtFechaI.Text = Now.AddYears(-1).ToShortDateString
+        txtFechaI.Text = Now.AddDays(-7).ToShortDateString
         txtFechaF.Text = Now.ToShortDateString
 
         'DdlCuentaEfectivo.Items.Clear()
@@ -71,7 +70,7 @@ Partial Class Ventas_PVCobranza
                                    "-1", 1, UsuarioActual.CveEmpresa, -1, 1,
                                    TipoDocto:="Rem", FechaCorte:=NowADS.AddDays(1), CveUsuarioConsulta:=UsuarioActual.CveUsuario, AplicaAnticiposPagados:=0) Then
 
-            Dim dtt As DataTable = ObjMovtos.DSResultados.Tables(0).FiltraParametros("CveVenta > 0")
+            Dim dtt As DataTable = ObjMovtos.DSResultados.Tables(0).FiltraParametros($"CveVenta > 0 AND (CveUsuarioCobranza IS NULL OR CveUsuarioCobranza = {UsuarioActual.CveUsuario})")
             'si hay ya asignado, solo la mostrará
             Dim Dtta As DataTable = dtt.FiltraParametros($"CveUsuarioCobranza = {UsuarioActual.CveUsuario}")
             If Dtta IsNot Nothing AndAlso Dtta.Rows.Count > 0 Then dtt = Dtta
@@ -199,11 +198,8 @@ Partial Class Ventas_PVCobranza
             Else
                 ObjConta.RollBack()
             End If
-
         End If
 
-
-
     End Sub
 
     Private Function RegistraIE(Metodo As Integer, CveBancoCuenta As Integer, ImportePago As Decimal, Fecha As Date, CvePrePoliza As Integer, VentaActual As Venta, ByRef ObjIE As ClsBancos, ByRef ObjConta As ClsContabilidad) As String