From f5ad4e8548444c669fd5f348e26143dade56e739 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 28 Nov 2024 20:30:08 -0700
Subject: [PATCH] -- filtro de empresa, en proveedoresbancos

---
 App_Code/ClsMovimientos.vb | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index 4b7d82517..c096aa61b 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -649,12 +649,10 @@ Public Class ClsMovimientos
             OnError("Ocurrió un error al consultar las CxP del Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
 
-
-
         Return Retorno
     End Function
 
-    Public Function GetProveedorBancos(CveProveedor As Integer, Optional CveMoneda As Integer = -1, Optional FechaVencimientoInicio As String = "-1", Optional FechaVencimientoFin As String = "-1", Optional CveUsuarioProgramo As Integer = -1, Optional CveProveedorSucursal As Integer = -1, Optional SelectTop As Integer = -1) As Boolean
+    Public Function GetProveedorBancos(CveProveedor As Integer, CveEmpresa As Integer, Optional CveMoneda As Integer = -1, Optional FechaVencimientoInicio As String = "-1", Optional FechaVencimientoFin As String = "-1", Optional CveUsuarioProgramo As Integer = -1, Optional CveProveedorSucursal As Integer = -1, Optional SelectTop As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ProveedorBancos")
         With SqlAdapter.SelectCommand.Parameters
@@ -663,11 +661,11 @@ Public Class ClsMovimientos
             .Add("@FechaF", SqlDbType.VarChar).Value = FechaVencimientoFin
             .Add("@CveUsuarioProgramo", SqlDbType.Int).Value = CveUsuarioProgramo
             .Add("@CveProveedorSucursal", SqlDbType.VarChar).Value = CveProveedorSucursal
-            .Add("@CveMoneda", SqlDbType.SmallInt).Value = CveMoneda
+            .Add("@CveMoneda", SqlDbType.SmallInt).Value = CveMoneda
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@SelectTop", SqlDbType.Int).Value = SelectTop
         End With
 
-
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -675,8 +673,6 @@ Public Class ClsMovimientos
             OnError("Ocurrió un error al consultar las CxP del Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
 
-
-
         Return Retorno
     End Function