parametros obtenciión parametros

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