[RESOLVIDO] BO Tabela de preços por item

Pessoal, preciso utilizar a bo que modifica o preço de venda de um item, la na parte de adm de pedidos...

vi que a bo di163 faz isso... mas to tentando fazer o seguinte teste e não da certo...

Alguem pode me dar um help... o codigo abaixo..executa mas nao devolve nenhum erro e tb não modifica o preço de venda

/* Temp-Table and Buffer definitions */
DEFINE TEMP-TABLE tt-preco-item NO-UNDO LIKE preco-item
field r-rowid as rowid.

DEF VAR h-bodi163 AS HANDLE NO-UNDO.



run dibo/bodi163.p persistent set h-bodi163.
FIND preco-item WHERE preco-item.it-codigo = 'slp0361' AND preco-item.nr-tabpre = 'CLIENTE'.

EMPTY TEMP-TABLE tt-preco-item.
IF AVAIL preco-item THEN
DO:
CREATE tt-preco-item.
BUFFER-COPY preco-item TO tt-preco-item.
ASSIGN tt-preco-item.r-rowid = ROWID(preco-item)
tt-preco-item.preco-venda = 3
tt-preco-item.preco-fob = 3.
END.

run executaAtualizacoesPedidos in h-bodi163
(input 1,
input 1,
input 0,
input YES,
input tt-preco-item.r-rowid).