Regra por processo 743 - Início da provisão

/* Ao iniciar o cálculo da provisão envia uma mensagem de erro informando que a contabilização já está gerada. */
/* Neste exemplo, foi criado previamente um campo de usuário que é alimentado através de outra regra quando a contabilização é gerada. */

Cursor.SQL "SELECT <Campo_de_Usuário> FROM <Tabela>";
Cursor.AbrirCursor();

Se (Cursor.Achou)
Inicio
   xContab = Cursor.<Campo_de_Usuário>;
   Se (xContab = "S")
   Inicio
      Mensagem(Erro,"Não é possível calcular a provisão porque a contabilização ja foi gerada");
      Cancel(1);
   Fim;
Fim;