Esta versão do sistema foi descontinuada e não recebe atualizações e novas implementações. Acesse a documentação da versão 5.10.3 aqui

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:

Nome Tipo Observações Retorna Valor
VSCodEmp NÚMERO Código da Empresa N
VSNumPrj NÚMERO Número do Projeto N
VSCodFil NÚMERO Código da Filial N
VSRotPpj NÚMERO Código da Rotina N
VSDatBas DATA Data do movimento N
VSCodFpj NÚMERO Código da Fase N
VSCtaFin NÚMERO Conta Financeira N
VSCodCcu ALFA Centro de Custo N

Atenção

Caso o parâmetro global LisVarReg esteja habilitado, a variável ListaVariaveis estará disponível em todos os identificadores de regras do sistema. O conteúdo desta variável lista os campos disponibilizados no identificador de regras em questão.

Não é aconselhada a ativação desse parâmetro global para o uso cotidiano. Esse recurso de listagem dos campos de identificadores auxilia a construção de regras e o Suporte para, por exemplo, depuração ou quando não houver acesso à documentação dos identificadores de regras.

Este artigo ajudou você?