mandar parámetro

2021-12-24 07:14:30 -07:00
parent 233704baef
commit d69cad982d
1 changed files with 1 additions and 1 deletions
--- 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