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();