-- mejora en visualizacion de pago de ventas n compras

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