Identificador de Regra

GER-000PRRAT02

Módulo: GER - Gerais.

Finalidade: Possibilita "liberar" ou "manter" o aviso ou bloqueio por insuficiência de saldo no orçamento do projeto.

Características: As variáveis de controle (VSExcMes, VSExcPrj, VSExcFpj, VSExcFin e VSExcCCu) terão o valor 1 (um) quando verdadeira e 0 (zero) quando falso. Ou seja, se na regra apresentar os seguintes valores:

VSExcMes = 1
VSExcPrj = 1
VSExcFpj = 1
VSExcFin = 1
VSExcCCu = 1

Significa que o projeto atual controla orçamento em todos os níveis.

Se dada essa situação, a regra ainda apresentar a variável "VSVlrExc" com valor superior a zero (VSVlrExc > 0) significa que o lançamento atual excedeu o limite estipulado no orçamento.


Exemplo 2: se a regra apresentar a seguinte situação:

VSExcMes = 1
VSExcPrj = 0
VSExcFpj = 0
VSExcFin = 0
VSExcCCu = 1

Significa que o projeto atual controla orçamento apenas em nível de centro de custos, por períodos mensais.

Nessa situação, se a variável "VSVlrExc" apresentar valor superior a zero (VSVlrExc > 0), significa que apenas excedeu o limite orçado em nível de centro de custos.

Transação: Não se aplica.

Regra:

Definir Data VSDatBas;
Definir Alfa xFase;
Definir Alfa xMensagem;
Definir Cursor CUR_E615FPJ;

xCodEmp = CodEmp;
xNumPrj = VSNumPrj;
xCodFpj = VSCodFpj;

CUR_E615FPJ.Sql "SELECT E615FPJ.DATIFP, E615FPJ.DATFFP
FROM E615FPJ WHERE
E615FPJ.CODEMP = :xCodEmp AND
E615FPJ.NUMPRJ = :xNumPrj AND
E615FPJ.CODFPJ = :xCodFpj ";

CUR_E615FPJ.AbrirCursor();
se (CUR_E615FPJ.Achou)
inicio
se ((VSDatBas < CUR_E615FPJ.DATIFP) ou (VSDatBas > CUR_E615FPJ.DATFFP))
inicio
IntParaAlfa(xCodFpj, xFase);
xMensagem = "Fase: " + xFase + " - Período do movimento está fora do cadastro da fase.";
Mensagem(Erro,xMensagem);
fim;
fim;
CUR_E615FPJ.FecharCursor();

Variáveis Disponibilizadas: