cd1508

Ae galer, novamente problemas com upc, no programa cd1508, cadastro de tabela de preços, tenho uma upc que cria um botão, ao clicar no mesmo ele chama uma window, cuja traz por default os dados da tabela de preço em questão, e com campos a mais que serão adicionados, para esta minha window passo o rowid da tabela tb-preço. Porém ao mudar de registro no cd1508, meu rowid não é alterado, continua sempre num único registro. como posso resolver isto???

Vlw

eae fdantas cara segue o código da upc

Código:

define input param p-ind-event  as char              no-undo.
define input param p-ind-object as char              no-undo.
define input param p-wgh-object as handle            no-undo.
define input param p-wgh-frame  as widget-handle     no-undo.
define input param p-cod-table  as char              no-undo.
define input param p-row-table  as rowid             no-undo.

def new global shared var bt-lista  as widget-handle no-undo.
def new global shared var hFunc     as widget-handle no-undo.
def                   var c-char    as char          no-undo.
def                   var wh-objeto as handle        no-undo.


   if can-query (p-wgh-object,"file-name") then
      assign c-char = entry(num-entries(p-wgh-object:file-name,"~/"),
                                        p-wgh-object:file-name,"~/").
   if  c-char       = "cd1508.w" and p-ind-Event  = "AFTER-INITIALIZE" and
       p-ind-object = "container" then do:
      create button bt-lista
         assign row         = 1.10
                column      = 50
                label       = "Lista"
                frame       = p-wgh-frame
                width       = 4
                height      = 1.25
                sensitive   = true
                visible     = true

      triggers:
         on choose persistent run kepc/listaPreco.w( INPUT p-row-table).
      end triggers.
   end.

   IF p-ind-Event = "INITIALIZE" and p-ind-object = "VIEWER" then do:
      assign wh-objeto  = p-wgh-frame:first-child.
      do while valid-handle(wh-objeto):
         case wh-objeto:name:
            when "nr-tabpre" then
               assign hFunc = wh-objeto.
         end case.

         if wh-objeto:TYPE = 'field-group' then
            assign wh-objeto = wh-objeto:first-child.
         else
            assign wh-objeto = wh-objeto:next-sibling.
      END.
   END.

Resolvido só alterei
if c-char = "cd1508.w" and p-ind-Event = "AFTER-INITIALIZE" and
para
if c-char = "cd1508.w" and p-ind-Event = "BEFORE-DISPLAY" and