[RESOLVIDO] Dúvida em usar B.O bodi154.p

Pessoal Bom dia.

Estou precisando fazer alteração no valor de item de pedidos, estou usando a BO bodi154 para fazer essa manutenção, porém não estou tendo exito, abaixo código fonte que estou usando. Não é retornando nenhum erro, porém o campo vl-preuni não é atualizado na base. Alguém saberia informar o que está ocorrendo?

O código não é final, por isso tem temp-table declarada sem está em uso, estou realizando vários testes então esse é o motivo...


DEFINE VARIABLE h-bodi154 As Handle No-undo.

{Method\dbotterr.i}


DEFINE TEMP-TABLE tt-ped-item NO-UNDO LIKE ped-item
FIELD r-rowid AS ROWID.


DEFINE TEMP-TABLE tt-ped-param NO-UNDO
field relacao-item-cli as log init yes
field tp-relacao-item-cli as int init 1
field qtde-un-medida-cli as log init yes
field multiplicar-qtde as log init yes
field atribuir-preco-comp as log init no
field tp-exp-nat-oper as int init 1
field tp-exp-dt-entrega as int init 1
field exp-nat-cons-final as log init no
field exp-nat-cod-mensagem as log init no
field atualizar-entregas as log init yes
field arredondar-qtde-lote as log init no
field gerar-proc-exp as log init no
field itinerario as int.


if not valid-handle(h-bodi154) then run dibo/bodi154.p persistent set h-bodi154.



FOR EACH ped-item WHERE ped-item.nome-abrev = "Colombo" AND
ped-item.nr-pedcli = "220375" AND
ped-item.it-codigo = "120.000-3" NO-LOCK:


CREATE tt-ped-item.


ASSIGN tt-ped-item.nome-abrev = ped-item.nome-abrev
tt-ped-item.nr-pedcli = ped-item.nr-pedcli
tt-ped-item.it-codigo = ped-item.it-codigo
tt-ped-item.vl-preuni = DECIMAL(6000)
tt-ped-item.vl-preori = DECIMAL(6000).



MESSAGE "Encontrou Pedido" SKIP
"Nome Abrev: " tt-ped-item.nome-abrev SKIP
"Nr Ped Item : " tt-ped-item.nr-pedcli SKIP
VIEW-AS ALERT-BOX INFO BUTTON OK.

END.

RUN openQueryStatic IN h-bodi154 (INPUT "Default":U).
/*Run inputRowParam in h-bodi154 (INPUT TABLE tt-ped-param).*/
Run emptyRowErrors In h-bodi154.
Run setRecord in h-bodi154 (INPUT TABLE tt-ped-item).
Run updateRecord in h-bodi154.


DELETE OBJECT h-bodi154 NO-ERROR.



MESSAGE "Ped Item Vl Item: " tt-ped-item.vl-preuni SKIP
"Ped Item Vl Ori: " tt-ped-item.vl-preori SKIP
"Fim Execução " VIEW-AS ALERT-BOX INFO BUTTON OK.

FIND FIRST ped-item WHERE ped-item.nome-abrev = "Colombo" AND
ped-item.nr-pedcli = "220375" NO-LOCK NO-ERROR.


MESSAGE "Ped Item Vl Item Uni Ped Item: " ped-item.vl-preuni SKIP
"Ped Item Vl Item Ori Ped Item: " ped-item.vl-preori VIEW-AS ALERT-BOX INFO BUTTONS OK.

Pedido está criado já com os itens e efetivado, o que estou precisando fazer é alterar o valor do item.

Consegui fazer a alteração do valor do item usando a bodi154na, mais ela só altera o primeiro item do pedido, alguém já passou por isso? A BO fazer alteração somente no primeiro item do pedido?

Resolvido.