[RESOLVIDO] Tratando mensagens de Erro

Para identificar se uma mensagem de erro retornada por alguma API é de erro ou apenas advertencia utilize a rotina abaixo.

Código:

    DEFINE VARIABLE achouErro AS LOGICAL     NO-UNDO init NO.
    FOR EACH tt-erro:
        FOR FIRST cad-msgs WHERE cad-msgs.cd-msg = tt-erro.cd-erro:
        END.
        IF AVAIL cad-msgs AND cad-msgs.tipo-msg = 1 THEN
           ASSIGN achouErro = YES.
    END.