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