UPC FT0909D

Abaixo e o codigo da UPC:
def new global shared var h-chave-acesso as WIDGET-HANDLE NO-UNDO.
def new global shared var h-protocolo AS WIDGET-HANDLE NO-UNDO.

def var wh-button as widget-handle no-undo.


{INCLUDE/VER-UPC.I &ATIVA-GERACAO=NO
&TELA-DISCO='T'
&NOME-ARQUIVO='C:\TEMP\FT0909D.LST'
&LISTA-TABELAS=''
&LISTA-TIPOS-OBJS=''
&LISTA-NOMES-OBJS=''}




{INCLUDE/VER-HDL.I &ATIVA-GERACAO-LISTA=NO
&TELA-DISCO='D'
&NOME-ARQUIVO='C:\TEMP\FT0909D.LST'
&LISTA-FRAMES='fpage0'
&LISTA-TIPOS-OBJS=''}



/*
{INCLUDE/VER-HDLS.I &ATIVA-GERACAO-LISTA=NO
&TELA-DISCO='D'
&NOME-ARQUIVO='C:\TEMP\FT0909D.LST'
&LISTA-FRAMES=''
&LISTA-TIPOS-OBJS=''}
*/


/*
if index(p-ind-event,"INITIALIZE") > 0 and /*--- Para mostrar os handles somente 1 vez ---*/
p-ind-object = "CONTAINER" then
do:
{INCLUDE/VER-PRG.I &ATIVA-GERACAO-LISTA=NO
&TELA-DISCO='T'
&NOME-ARQUIVO='C:\TEMP\FT0909D.LST'
&LISTA-PROGRAMAS=''}
end.
*/



/*
message "EVENTO " p-ind-event skip
"OBJETO " p-ind-object skip
"NOME OBJ " c-objeto skip
"FRAME " p-wgh-frame SKIP
"TABELA " p-cod-table skip
"ROWID " string(p-row-table) view-as alert-box.

*/


if p-ind-event = "AFTER-INITIALIZE"
and p-ind-object = "CONTAINER" then do:

create button wh-button
assign
frame = p-wgh-frame
width = 15
height = 1
row = 5.29
label = "Importa DANFE"
col = 22.5
SENSITIVE = YES
visible = YES

triggers:
ON CHOOSE PERSISTENT RUN esp\epc\ftp\busca-arquivo.p.
end triggers.
end.

IF p-ind-event = "BEFORE-DESTROY-INTERFACE" THEN DO:

/* ASSIGN h-chave-acesso = fc-all-hdl("fpage0", "c-chave-acesso" , 000). */
/* ASSIGN h-chave-acesso:SCREEN-VALUE = c-chave-acesso. */
/* */
/* */
/* */
/* MESSAGE /*h-chave-acesso:SCREEN-VALUE */
/* h-chave-acesso:SCREEN-VALUE*/ */
/* */
/* string(c-chave-acesso, "99.9999.99.999.999/9999-99-99-999-999.999.999-999.999.999-9") SKIP */
/* c-protocolo */
/* VIEW-AS ALERT-BOX. */


END.


Esse e o programa que chama as rotinas de leitura do arquivo XML e salva o conteudo das informacoes que eu quero nas variaveis e passar o conteudo das variaveis para os campos no programa ft0909d.

Prezados,

Agradeco a todos os que tentaram ajudar.
Eu ja consegui resolver a questao.
Grato