diff --git a/Bancos/PopIECompras.aspx b/Bancos/PopIECompras.aspx
index f76cdd80c..255fb784f 100644
--- a/Bancos/PopIECompras.aspx
+++ b/Bancos/PopIECompras.aspx
@@ -434,7 +434,7 @@
                                                             <asp:CheckBox ID="ChkEmitirComplementoPago" CssClass="md-checksd" Text="Emitir Complemento de Pago" runat="server" align="Right" />
                                                             <br />
                                                             <asp:GridView ID="GvVentas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveVenta,Saldo,Folio,CveCliente,CveMoneda,RetISR,RetIVA,IVA,IEPS,TipoCambio,Total,PorcentajeIVA"
-                                                                ToolTip="Listado de Movimientos" data-height="300" Style="width: 100%; height: 100%; text-align: center;" GridLines="None" HeaderStyle-ForeColor="Black">
+                                                                ToolTip="Listado de Movimientos" data-height="300" CssClass="ADScroll" Style="width: 100%; height: 100%; text-align: center;" GridLines="None" HeaderStyle-ForeColor="Black">
                                                                 <Columns>
                                                                     <asp:TemplateField>
                                                                         <ItemTemplate>
@@ -450,7 +450,7 @@
                                                                     <asp:TemplateField>
                                                                         <HeaderTemplate>Folio</HeaderTemplate>
                                                                         <ItemTemplate>
-                                                                            <asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal>
+                                                                            <asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
                                                                         </ItemTemplate>
                                                                     </asp:TemplateField>
                                                                     <asp:TemplateField>
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 3b4d46051..e0111b63a 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -832,19 +832,21 @@ Partial Class Bancos_PopIECompras
         ObjMov.Dispose()
     End Sub
 
-    Protected Sub CargaVentas(Optional CveMoneda As Integer = 1)
-        Dim ObjVentas As New ClsVentas
+    Protected Sub CargaVentas(Optional CveMoneda As Integer = 1)
+
         Dim ObjCliente As New ClsClientes
-        Dim CveCliente As Integer = -1
-
-        If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, "-1", "-1", "-1", ClienteRFC:=RFCProveedor, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
-            If ObjVentas.DtResultados.FiltraParametros("Saldo > 0").Rows.Count > 0 Then
-                CveCliente = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero
-                GvVentas.DataSource = ObjVentas.DtResultados.FiltraParametros($"Saldo > 0 AND CveMoneda = {CveMoneda}")
-                GvVentas.DataBind()
-            End If
-        End If
-
+        Dim ObjMovtos As New ClsMovimientos
+
+        Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", String.Format("RFC = '{0}'", RFCProveedor)).ToEntero
+
+        If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, -1) Then
+
+            GvVentas.DataSource = ObjMovtos.DtResultados.FiltraParametros($" Saldo > 0 AND CveVenta > 0 AND  CveMoneda = {CveMoneda}")
+
+        End If
+        ObjMovtos.Dispose()
+        GvVentas.DataBind()
+
         If CveCliente > 0 Then
             If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
                 ViewState("IdCuentaCliente") = ObjCliente.IdCtaContClientes
@@ -854,10 +856,10 @@ Partial Class Bancos_PopIECompras
                 ViewState("IdCtaContMonedaExtranjeraCliente") = ObjCliente.IdCtaContMonedaExtranjera
 
             End If
-        End If
-
-
-        ObjVentas.Dispose()
+        End If
+
+
+
         ObjCliente.Dispose()
         UpDatos.Update()
     End Sub