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.
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.
Outro detalhe. Esse bloco está na Procedure - local-assign-record. Tem algum local melhor para se colocar essa checagem?
aaaaaaaaaaaaaaaaaaa bom, então vc tem que fazer return 'ADM-ERROR'. Tem que explicar melhor os problemas.