-mejora

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>

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