Dados com Combo-box

Discussão em 'Progress 4GL' iniciado por Murillo, Novembro 19, 2009.

  1. Murillo

    Murillo Sem Pontuação

    Sera que alguem pode me ajudar?
    Estou fazendo um programa de venda (sem templates), que no combo-box quando o usuario clica no produto que esta no combo com os dados, e eu quero apareça o preço em um fill-in os dados como preço etc...

    Estava tentando fazer com o Evento Value-changed e Selection, so que ele da messagem (91)
    Alguem pode dar um help

    Essa logica esta errada: evento no Value-changed ou Selection do combo?

    assign fill-in:screen-value in frame {&frame-name} = tabela.campo.


    OBRIGADOO
  2. fdantas

    fdantas Administrator Moderador

    Tanto faz... Mas coloca um find na tabela antes do assign...
  3. Murillo

    Murillo Sem Pontuação

    Entao eu dei um find na tabela, mas ele continua dizendo que o registro nao esta disponivel...
  4. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Posta o código do VALUE-CHANGED para verificar o que está errado.

    Coloque também a linha onde está definido o COMBO-BOX.

    Se não tiver problema, anexe a rotina toda, onde está o COMBO-BOX, assim podemos analisar o código e dizer o que está errado.
  5. Murillo

    Murillo Sem Pontuação

    Então o codigo de erro é o (91) diz que o registro nao esta disponivel

    ENTRY do combo para pegar os valores da tabela.

    FOR EACH tabela NO-LOCK:
    c-combo:ADD-LAST[tabela.campo1].
    END.

    VALUE-CHANGE do COmbo para "pegar" outros valores da tabela

    OPEN QUERY c-fill
    FOR EACH tabela NO-LOCK.
    IF AVAIL tabela THEN DO:
    ASSIGN c-fill:SCREEN-VALUE IN FRAME {&FRAME-NAME} = tabela.campo2.
    END.

    /* essa msg é pra ver se esta passando alguma coisa, mas nao esta passando nada, passando em branco */
    MESSAGE c-fill
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

    Da pra entender????

    É simples isso, mas eu nao consigui desenvolver...

Compartilhe esta Página