From d69cad982de5a0e1f1b81dba46f9f15503ba3bdb Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 24 Dec 2021 07:14:30 -0700
Subject: [PATCH] =?UTF-8?q?mandar=20par=C3=A1metro?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/Modelos.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 7f68a1c1b..d2496ee83 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -1636,7 +1636,7 @@ Namespace Modelos
 
                 'PedidoA'
                 If ObjVentas.CveVenta > 0 And factura.CvePedidoA > 0 And factura.TipoDocto.Contiene("Rem") Then
-                    If Not ObjCliente.UpdateEstatusPedido(factura.CvePedidoA, 18, -1, UsuarioActual.CveUsuario) Then
+                    If Not ObjCliente.UpdateEstatusPedido(factura.CvePedidoA, 18, -1, UsuarioActual.CveUsuario, CveRemision:=ObjVentas.CveVenta) Then
                         ErrorList.Add("Ocurrió un error al actualizar el estatus del pedidoA")
                     End If
                 End If