From 6fba8fe600e3ee9b2555307bebf650ecd9f13751 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Fri, 30 Oct 2020 11:25:38 -0700
Subject: [PATCH] -- filtro empresa proyectados

---
 App_Code/ClsInventarios.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 24520e128..6b0d4d821 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -5259,13 +5259,13 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function DeleteMovimientosProyectados(TipoMovto As Integer) As Boolean
+    Public Function DeleteMovimientosProyectados(TipoMovto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("Inv_MovimientosProyectadosDelete")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@TipoMovto", SqlDbType.TinyInt).Value = TipoMovto
-
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try