UPC - Botao

Código:

/********************************************************************************* 
** Programa...: upc_bota.p 
** Author.....: Desconhecido
** Descricao..: Criar um campo em uma frame do Datasul EMS.
** Data.......: 22/02/2002 
** 
** Visite www.4each.com.br 
** 
*********************************************************************************/
/* Parameter Definitions ****************************************************/
define input parameter p-ind-event  as character.
define input parameter p-ind-object as character.
define input parameter p-wgh-object as handle.
define input parameter p-wgh-frame  as widget-handle.
define input parameter p-cod-table  as character.
define input parameter p-row-table  as rowid.

/* variaveis locais *********************************************************/
define variable              c-objeto           as char           no-undo.
define variable              h_frame            as widget-handle  no-undo.
define new global shared var wh-objeto          as Widget-handle  No-undo.
define new global shared var adm-broker-hdl     as handle         no-undo.
define new global shared var wh-cop             as Widget-handle  no-undo.
define new global shared var w-rowid-ord-comp   AS Rowid          No-undo.
                                                                  
assign c-objeto   = entry(num-entries(p-wgh-object:file-name, "~/"), p-wgh-object:file-name, "~/").

if  p-ind-event = "INITIALIZE" and
    p-ind-object = "CONTAINER" then
do:
    
    create button wh-cop
    assign row       = 1.15
           column    = 52
           width     = 4.5
           height    = 1.25
           frame     = p-wgh-frame
           sensitive = yes
           visible   = yes
           label     = "Detalhe"
           TOOLTIP   = "C¢pia de Parcelas do Contrato".
    
    on choose of wh-cop persistent run esupc/trg_leave.p. 
    /************************************************************************           
       No programa trg_leave.p Coloque o codigo que desejar, lembres-se sempre
       que qualquer codido a ser executado em qualquer evento de um objeto dentro de uma upc
       dever ser atravez de um pesistent run, nao iria funcionar se por exemplo vc usa-se o seguinte codigo. 
       ************************************************************************
           on choose of wh-cop message "teste" view-as alert-box.
       ************************************************************************           
    ************************************************************************           */
    wh-cop:load-image("image/gr-cla.bmp").
end.