Uso correto do RECOVER USING com o BEGIN SEQUENCE

0

Olá,

Qual a forma correta de usar o RECOVER USING < variável >?

No TDN é mencionado, mas não tem exemplo, eu tentei de várias formas mas não consigo recuperar o erro do ErrorBlock e passar para o Recovery.

https://tdn.totvs.com/display/public/framework/BEGIN+SEQUENCE+...+END

    Local oError := ErrorBlock({|e| Break(e)})
    Local cTeste

    BEGIN SEQUENCE
        If "a" == 1

        Endif
    RECOVER USING oErrorBlock
        cTeste := oErrorBlock:Description
    END SEQUENCE

    MsgAlert(cTeste)

    ErrorBlock(oError)

Inclusive em alguns repositórios usando xBase/Clipper, tem alguns fontes que utilizam semelhante ao exemplo acima: https://github.com/ibarrar/clipper/blob/4ff3209b5f889121eeae870df702d179b2498553/CLIPPER5/SOURCE/ERRORSYS/ERR11.PRG#L48

compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

0 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl beginsequence ou faça a sua própria pergunta.