mandar parámetro
This commit is contained in:
@@ -1636,7 +1636,7 @@ Namespace Modelos
|
|||||||
|
|
||||||
'PedidoA'
|
'PedidoA'
|
||||||
If ObjVentas.CveVenta > 0 And factura.CvePedidoA > 0 And factura.TipoDocto.Contiene("Rem") Then
|
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")
|
ErrorList.Add("Ocurrió un error al actualizar el estatus del pedidoA")
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|||||||
Reference in New Issue
Block a user