[RESOLVIDO] eceapi001.p

obs: a parte de ser feliz até me viro mas e o resto?

Me adiciona no MSN (af.dums@gmail.com) ou no Skype (af.dums), que te dou uma força por lá, acho que é mais fácil pra eu te ajudar...

Caso não possa acessar MSN nem Skype, me responde as perguntas abaixo:
1) Já trabalhou com UPC?
2) Este campo do CP0311 é um campo padrão do programa ou é um que tu incluiu por UPC?
3) O eceapi001 é um programa especifico seu?

Segue o que deve fazer

UPC a ser cadastrada no CP0311

Código:

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

def var c-char      as char no-undo.

def new global shared var wh-objeto  as widget-handle.

def new global shared var wh-fi-cod-depos-acabado as widget-handle. /*Anderson: variavel global para armazenar o campo fi-cod-depos-acabado*/

assign c-char = entry(num-entries(p-wgh-object:private-data,"~/"), p-wgh-object:private-data,"~/").

if  p-ind-event = "INITIALIZE" and 
    c-char = "v38in271.w" then do: 

    ASSIGN wh-objeto = p-wgh-frame:first-child.
    DO  WHILE VALID-HANDLE(wh-objeto):

        IF  wh-objeto:NAME = "fi-cod-depos-acabado"  THEN
            ASSIGN wh-fi-cod-depos-acabado = wh-objeto.

        IF  wh-objeto:TYPE = 'field-group' THEN 
            ASSIGN wh-objeto = wh-objeto:FIRST-CHILD.
        ELSE
            ASSIGN wh-objeto = wh-objeto:NEXT-SIBLING.

    END.


end.

Lógica a ser inclusa no eceapi001

Código:

def new global shared var wh-fi-cod-depos-acabado as widget-handle. /*Anderson: variavel global para armazenar o campo fi-cod-depos-acabado*/

MESSAGE wh-fi-cod-depos-acabado:SCREEN-VALUE
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

Qualquer dúvida posta ai...

eae cara, velhinho seginte já trabalhei com upc, no caso ocampo é da window cp0311.w, e esse eceapi001.p por sua vez é upc do ceapi001.p que é rodado persistente dentro do cp0311, queria ver se no eceapi001 tem como pegar o screen-value do cp0311????


Obrigado pela ajuda velhinho

Testa a lógica que te passei acima que deve funcionar brow...