VALUE CHANGED - HELP

Discussão em 'Progress 4GL' iniciado por Murillo, Outubro 26, 2009.

  1. Murillo

    Murillo Sem Pontuação

    Boa tarde.

    Estou tentando desenvolver um programa grafico, onde o usuario digite o nome do emitente, e conforme ele va digitando no Browse apareça os dados do emitente.
    Mas acontece que nao estou conseguindo inicializar o programa, nao sei por onde começo, porque eu crio query, browse, porem nao consigo conectar elas, pra fazer o programa..

    Alguem pode dar um Help?? Com um programa similar, para eu dar uma olhada ou pra eu ver por onde eu começo.

    Este eu desenvolvi em Character:

    DEFINE VARIABLE c-pesquisa AS CHARACTER LABEL "NOME" FORMAT "X(25)".

    DEFINE QUERY query1 FOR Customer.

    DEFINE BROWSE b-pesquisa QUERY query1
    DISPLAY Customer.Cust-Num LABEL "Código"
    Customer.NAME LABEL "Cliente" WITH 17 DOWN SEPARATORS.

    DEFINE FRAME mostra
    c-pesquisa SKIP(1)
    b-pesquisa WITH SIDE-LABELS
    CENTERED
    THREE-D.


    ON 'VALUE-CHANGED' OF c-pesquisa DO:
    ASSIGN c-pesquisa.

    OPEN QUERY query1
    FOR EACH Customer NO-LOCK
    WHERE Customer.Name
    BEGINS c-pesquisa BY Customer.Name.
    END.

    ON 'MOUSE-SELECT-DBLCLICK' OF b-pesquisa DO:
    DISP customer.NAME LABEL "Nome"
    customer.phone LABEL "Telefone"
    customer.address LABEL "Endereço"
    customer.city LABEL "Cidade"
    customer.state LABEL "Estado"
    WITH FRAME c TITLE "Informações" 1 COL.
    END.

    ENABLE ALL WITH FRAME mostra.

    OPEN QUERY query1
    FOR EACH Customer NO-LOCK
    BY Customer.Name.

    WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.
  2. erickles

    erickles Membro Participativo

    Voce esta usando templates datasul?
  3. Murillo

    Murillo Sem Pontuação

    Naooo, estou tentando desenvolver sem templates..

    Mas se voce tiver algo com templates e puder passar cara..

    É que eu quero desenvolver algo do tipo entende...

    Abraçoo

Compartilhe esta Página