[RESOLVIDO] BOIN356VL

Bom dia amigos, estou fazendo um programa para alterar a quantidade saldo da parcela da ordem de compra no CC0300.
(as regras para isso são uma série de especificacoes q nao vem ao caso)

O que esta acontecendo é o seguinte.. depois q executo o programa, eu entro
no cc0300 e verifico o saldo. Ele foi atualizado.. Mas ao clicar em OK no CC0300b,
sair do cc0300 e entrar novamente o saldo volta como era antes...
Algm pode me ajudar?

Detalhe.: Isso acontece tb logo depois recebimento parcial. Eu queria que fosse alterado apenas
o saldo do fornecedor...

Tks

Código:

define variable hPedido as handle no-undo.

{utils/Error.i}
{inbo/boin356.i tt-parcelas-aux}
{inbo/boin356.i rowObject}

define variable h-boin356vl as handle no-undo.
define variable h-boin356   as handle no-undo.

run inbo/boin356vl.r persistent set h-boin356vl.
run inbo/boin356.r  persistent set h-boin356.

define buffer bPedido for pedido-compr.

define temp-table tt-ordem-compra no-undo like ordem-compra
       field r-Rowid as rowid.

define temp-table tt-prazo-compra like prazo-compra
       field r-Rowid as rowid.

define temp-table tt-prazo-compra-aux no-undo like prazo-compra
       field r-rowid as rowid.

define var hasError_ as logical no-undo.

define variable r_ as rowid.

run emptyRowObject in h-boin356vl.

empty temp-table tt-ordem-compra.
empty temp-table tt-prazo-compra.

for first bPedido where num-pedido = 381.

    for each ordem-compra of bPedido.
        
        create tt-ordem-compra.
        buffer-copy ordem-compra to tt-ordem-compra.

        for last prazo-compra of ordem-compra:            
            create tt-prazo-compra.
            buffer-copy prazo-compra to tt-prazo-compra.
            
            assign tt-prazo-compra.qtd-sal-forn = tt-prazo-compra.qtd-sal-forn - 10.
            assign r_ = rowid(prazo-compra).

            create tt-parcelas-aux.
            buffer-copy tt-prazo-compra to tt-parcelas-aux.
        end.

    end.
end.

 for  each tt-prazo-compra-aux:
      delete tt-prazo-compra-aux.
 end.

/*--- Carrega temp-table auxiliar ---*/
 create tt-prazo-compra-aux.
 buffer-copy tt-prazo-compra to tt-prazo-compra-aux no-error.


 run inputTableOrdemCompra in h-boin356vl (input table tt-ordem-compra).

 run validateUpdateManutOrdCompra in h-boin356vl (input  table tt-prazo-compra-aux,
                                                         input  table tt-parcelas-aux,
                                                         input  'update',
                                                         input  r_,
                                                         input  ?,
                                                         input  ?,
                                                         input  "datasul",  /* usuario do sistema */
                                                         input  yes,
                                                         input  no,
                                                         input  no, 
                                                         input  no,
                                                         output table RowErrors).

 run hasError(output hasError_).

 if not hasError_ then do: 
   run setRecord in h-boin356vl (input table tt-prazo-compra).
   run executeUpdateManutOrdCompra IN h-boin356vl(input r_).
   run getRowErrors in h-boin356vl ( output table RowErrors APPEND).
 end.
 
 run showErrors.