Identificador de Regra

FIN-615PRJSI01

Módulo: FIN - Financeiro.

Finalidade: Com essa regra ativa, é possível realizar consistências no projeto nas movimentações efetuadas on-line.

Características: Ligado a uma regra.

Transação: Não se aplica.

Regra:

Exemplo:

Definir Alfa xMensagem;
Definir Alfa Projeto;
Definir Cursor CUR_E615PRJ;
xCodEmp = VSCodEmp;
xNumPrj = VSNumPrj;
xCodFil = VSCodFil;

CUR_E615PRJ.Sql "SELECT SITPRJ
FROM E615PRJ WHERE
E615PRJ.CODEMP = :xCodEmp AND
E615PRJ.NUMPRJ = :xNumPrj AND
E615PRJ.CODFIL = :xCodFil ";

CUR_E615PRJ.AbrirCursor();
se (CUR_E615PRJ.Achou)
inicio
se ((CUR_E615PRJ.SITPRJ <> "APR") e (VSRotPpj = 8))
inicio
IntParaAlfa(xNumPrj, Projeto);
xMensagem = "Projeto: " + Projeto + " - Não está aprovado!.";
Mensagem(Erro,xMensagem);
fim;
fim;
CUR_E615PRJ.FecharCursor();

Variáveis Disponibilizadas: