[RESOLVIDO] Dica: Ordem de Compra com Qtde Alocada

Pessoal peguei um problema de um usuário que caiu enquanto fazia uma rotina no Recebimento. Com isso a Ordem de compra ficou com uma quantidade alocada meio perdida. Para resolver o problema eu zerei a quantidade no campo dec-1.

Segue código, espero que ajude alguem.

Código:

FOR EACH ordem-compra WHERE ordem-compra.num-pedido = 51843 NO-LOCK:
/*     DISP ordem-compra.numero-ordem. */
    for each prazo-compra where prazo-compra.numero-ordem = ordem-compra.numero-ordem:
       DISP ordem-compra.numero-ordem prazo-compra.quantidade prazo-compra.dec-1 prazo-compra.quant-receb WITH 1 COL.
       UPDATE dec-1.
    end.
END.