1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Duvida Parar a execução do programa

Discussão em 'Progress 4GL' iniciado por lm1979, Julho 22, 2019.

  1. lm1979

    lm1979 Membro Participativo

    Bom dia,
    Em um determinado programa tem um campo obrigatório, quando o usuário clica em gravar o programa verifica se o campo está preenchido, caso não esteja é apresentado uma mensagem e o programa deveria voltar para o campo até que o usuário preencha o campo, mas isso não está ocorrendo.

    Exemplo:
    IF campo = '' THEN
    MESSAGE 'Campo obrigatório.'
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
    RETURN NO-APPLY.
    END.
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    tanta antes do return no-apply, colocar apply 'entry' to campo in frame {&frame-name}.
  3. lm1979

    lm1979 Membro Participativo

    Boa tarde,
    Não deu certo, o programa exibe a mensagem e continua.

    IF TRIM(rnc.origem-rnc:SCREEN-VALUE IN FRAME {&FRAME-NAME}) = 'Selec.Origem' THEN DO:
    MESSAGE 'Campo Origem da RNC é obrigatório.'
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
    APPLY 'ENTRY' TO rnc.origem-rnc IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
    END.
  4. lm1979

    lm1979 Membro Participativo

    Outro detalhe.
    Esse bloco está na Procedure - local-assign-record.
    Tem algum local melhor para se colocar essa checagem?
  5. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    aaaaaaaaaaaaaaaaaaa bom, então vc tem que fazer return 'ADM-ERROR'.
    Tem que explicar melhor os problemas.
    lm1979 curtiu isso.
  6. lm1979

    lm1979 Membro Participativo

    Bom dia,
    Valeu pela ajuda.
    Vou me atentar ao passar os problemas, valeu pelo toque.
    Abraço.

Compartilhe esta Página