Edição de regra - variáveis

Na tela de relacionamento entre as situações - F615SXS - há o campo o campo Regra na grade "Situações de Destino" onde pode-se definir o código de uma regra para ser consistida durante a alteração da situação do projeto.
Segue as variáveis disponíveis para edição da regra e exemplo de regra:

Variáveis disponíveis:
VSCodEmp - Código da empresa - Variável numérica;
VSNumPrj - Número do projeto - Variável numérica;
VSSpjOri - Situação origem - Variável alfanumérica;
VSSpjDes - Situação destino - Variável alfanumérica;

Exemplo de regra:
 o Exemplo de regra:
@ Regra: 2 - Troca da situação do projeto de 'APR' para 'CAN' @
@ Objetivo: Exemplo de regra para tratar a troca entre as situação "APR"(Aprovado) e "CAN"(Cancelado)@
@ Observação: Essa regra deve estar associada na tela de relacionamento-F615SXS, entre o relacionamento das situações "APR"(Aprovado) e "CAN"(Cancelado)@

Definir Numero VSCodEmp; @Código da empresa@
Definir Numero VSNumPrj; @Número do projeto@
Definir Cursor Cur_E615PRJ;
@Busca o código do motivo no projeto@
Cur_E615PRJ.SQL "SELECT CODMOT FROM E615PRJ WHERE CODEMP = :VSCodEmp AND NUMPRJ = :VSNumPrj";
Cur_E615PRJ.AbrirCursor();
Se (Cur_E615PRJ.Achou)
Inicio
Definir Alfa xMensagem;
Se (Cur_E615PRJ.CodMot = 0)
Mensagem(Erro, "Para troca da situação de 'APR' para 'CAN', é necessário informar o código do motivo !");
Fim;
Cur_E615PRJ.FecharCursor();