UPC cd00300b colocar campo na pagina 4

Discussão em 'Progress 4GL' iniciado por alx_amorim, Setembro 15, 2011.

  1. alx_amorim

    alx_amorim Membro Participativo

    Bom dia pessoal, estou com um pequeno problema, montei uma upc para o programa cc0300b que tem varias folders.... colocar um campo no primeiro folder maravilha facil facil, mas preciso colocar na fpage4 porém nao consigo encontrar o ponto na upc de forma alguma... alguem pode me ajudar? se tiverem um exemplo de qualquer upc que jogue um campo numa folder diferente da principal ja ajuda.

    Abraços,
    Alexandre Amorim
  2. LFBuozi

    LFBuozi Membro Participativo

    Você deve fazer esta navegação em 2 níveis, assim você acha a fpage4 e procura os campos dentro dela:

    Código:
    IF p-wgh-frame:NAME = "fpage0" THEN DO:
        ASSIGN wh-objeto =  p-wgh-frame:FIRST-CHILD.
        DO WHILE VALID-HANDLE(wh-objeto):
            IF wh-objeto:NAME = "fpage4" THEN DO:
                ASSIGN wh-objeto-aux =  wh-objeto:FIRST-CHILD.
                DO WHILE VALID-HANDLE(wh-objeto-aux):
                    MESSAGE "Evento     " p-ind-event  SKIP
                            "Objeto     " wh-objeto-aux SKIP
                            "nome obj   " c-objeto     SKIP
                            "Frame      " p-wgh-frame  SKIP
                            "Nome Frame " p-wgh-frame:NAME SKIP
                            "Tabela     " p-cod-table  SKIP
                            "ROWID      " STRING(p-row-table)
                            VIEW-AS ALERT-BOX INFORMATION.
                END.
            END.
        END.
    END.

Compartilhe esta Página