From 3edc464593b258fb90cb14c685cc3f06b27548f4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 7 Oct 2023 11:51:34 -0700
Subject: [PATCH] =?UTF-8?q?parametros=20obtencii=C3=B3n=20parametros?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/IE.aspx.vb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 9a5858990..cb3668154 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -1362,7 +1362,7 @@ Partial Class Bancos_IE
         Dim ObjMovtos As New ClsMovimientos()
 
         If CvemonedaInterna > 0 Then
-            If ObjMovtos.GetAnticiposProveedor(CveProveedor, -1, CvemonedaInterna, -1) AndAlso ObjMovtos.DtResultados.FiltraParametros("TipoDocto = 'NC'").Rows.Count > 0 Then
+            If ObjMovtos.GetAnticiposProveedor(CveProveedor, UsuarioActual.CveEmpresa, CveMoneda:=CvemonedaInterna, TipoDocto:="NC") AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then
                 GvA.DataSource = ObjMovtos.DtResultados.FiltraParametros("TipoDocto = 'NC' and Saldo > 0 and CveCompra > 0")
             Else
                 GvA.DataSource = Nothing
@@ -1372,7 +1372,6 @@ Partial Class Bancos_IE
         End If
         ObjMovtos.Dispose()
 
-
         GvA.DataBind()
         UpGvNotas.Update()
     End Sub