[RESOLVIDO] Botão upc

Considerando que você só precisa da matricula use desta forma, caso precisa do estabelecimento ou outros campos é só implementar.

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 var h_frame as widget-handle no-undo.
def var h_page as widget-handle no-undo.
def var c-char as char no-undo.
def var c-objeto as char no-undo.
def var h_mail as handle no-undo.

DEF VAR wh-objeto AS HANDLE NO-UNDO.

DEF NEW GLOBAL SHARED VAR bt-mail AS WIDGET-HANDLE NO-UNDO.

DEF NEW GLOBAL SHARED VAR hFunc AS WIDGET-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 = "fr5020.w" and p-ind-Event = "INITIALIZE" and
    p-ind-object = "container" then do:
    create button bt-mail
    assign row = 1.33
    column = 30
    label = "Mail"
    frame = p-wgh-frame
    width = 4
    height = 1.25
    sensitive = true
    visible = true
    
    triggers:
        on choose persistent run upc\enviaEmail.p.
    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 "cdn_funcionario" 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.

o outro programa que vai ler a variável.

Código:

/*ENVIAEMAIL.P*/
DEF NEW GLOBAL SHARED VAR hFunc AS WIDGET-HANDLE NO-UNDO.

MESSAGE hFunc:SCREEN-VALUE VIEW-AS ALERT-BOX.

somente criei um váriavel de handle para receber o objeto da matrícula do funcionário compartilhei no outro programa.

qualquer coisa posta ai.