[RESOLVIDO] Cotação Item ( Compras)

Senhores, preciso fazer um programa para ajustar uma cotações do compras,
Mas não está funcionando ( Altero o preço do fornecedor, mas os preços unitários (na nossa unidade de medida, não são alterados).... Lembrando que o sistema trabalha com dois preços ( O que é informado em tela é o preço do fornecedor e internamente ele converte para o nosso preço)

Alguém teria uma indicação?

Código:

{method/dbotterr.i}
{utp\ut-glob.i}

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

define temp-table tt-cotacao-item no-undo like cotacao-item
  field r-rowid as rowid.

define variable ordemCompra as handle no-undo.
define variable cotacaoItem as handle no-undo.

define variable l-reaprov  as logical  no-undo.
define variable l-forn-inat as logical  no-undo.
define variable l-aprovada  as logical  no-undo.
define variable c-aprov  as character no-undo.
define variabl r-prazo  as rowid.



if not valid-handle(cotacaoItem)
then run inbo/boin082vl.p  persistent set cotacaoItem.

if not valid-handle(ordemCompra)
then run inbo/boin274.p  persistent set ordemCompra.


for first ordem-compra no-lock
  where ordem-compra.numero-ordem = 4519200
  ,
  first cotacao-item of ordem-compra no-lock
  ,
  first item of ordem-compra no-lock.

  run openQueryStatic in cotacaoItem('main':u).
  run repositionRecord in cotacaoItem(rowid(cotacao-item)).
  run getRecord in cotacaoItem(output table tt-cotacao-item).


  run openQueryStatic in ordemCompra('main':u).
  run repositionRecord in ordemCompra(rowid(ordem-compra)).   
  run getRecord in ordemCompra(output table tt-ordem-compra).

   
  find first tt-cotacao-item no-error.
  find first tt-ordem-compra no-error.

  MESSAGE tt-ordem-compra.preco-fornec
  tt-cotacao-item.preco-forn
  VIEW-AS ALERT-BOX INFO BUTTONS OK.


  assign tt-ordem-compra.preco-fornec = 70
  tt-cotacao-item.preco-forn  = 70.

  run setRecord  in ordemCompra(table tt-ordem-compra).
  run updateRecord in ordemCompra.
  run getRowErrors in ordemCompra(output table rowErrors).


  run setRecord  in cotacaoItem(input table tt-cotacao-item).

  run validateUpdateAprovacaoCotacaoItem in cotacaoItem(input table tt-cotacao-item,
  input c-seg-usuario,
  input rowid(cotacao-item),
  input rowid(item),
  input yes,

  output l-reaprov,
  output l-forn-inat,
  output l-aprovada,
  output c-aprov,
  output r-prazo,
  output table rowErrors).

  MESSAGE l-reaprov  "x" skip
  l-forn-inat  "x" skip
  l-aprovada  "x" skip
  c-aprov  "x" skip
  VIEW-AS ALERT-BOX INFO BUTTONS OK.



  for each rowErrors.
  MESSAGE rowErrors.errorDescription
  VIEW-AS ALERT-BOX INFO BUTTONS OK.
  end.


  run getRowErrors in cotacaoItem(output table rowErrors).





  for each rowErrors.
  MESSAGE rowErrors.errorDescription
  VIEW-AS ALERT-BOX INFO BUTTONS OK.
  end.


end.


[\code]