Identificador de Regra

FIN-615PRJRE01

Módulo: FIN - Financeiro.

Finalidade: Esse identificador tem a finalidade de retornar a máscara do projeto.

Tela: F615PRJ

Transação: Não se aplica.

Regra:

Definir Alfa VSPrjMsk;
Definir Numero xCodEmp;
Definir Alfa xCodMpj;
Definir Alfa xCodigoAlfa;
Definir Alfa xCursor;
Definir Alfa xCommando;
Definir Alfa xSqlAux;
Definir Alfa VSESTADO;
Definir Alfa xQtdZeros;

se (VSESTADO = "INSERINDO")
inicio

xCodEmp = 1;
xCodMpj = "NUMERO"; @existe uma máscara número cadastrada@
xUltimoCodigo = 0;
xCodigoAlfa = "";

xCommando = "SELECT MAX(E084MPJ.ULTCOD) AS ULTCOD " +
"FROM E084MPJ WHERE " +
"E084MPJ.CODEMP = :xCodEmp AND " +
"E084MPJ.CODMPJ = :xCodMpj";

SQL_Criar(xCursor);
SQL_DefinirComando(xCursor, xCommando);
SQL_DefinirInteiro(xCursor, "xCodEmp", xCodEmp);
SQL_DefinirAlfa(xCursor, "xCodMpj", xCodMpj);

SQL_AbrirCursor(xCursor);
se (SQL_EOF(xCursor) = 0)
inicio
SQL_RetornarInteiro(xCursor, "ULTCOD",xUltimoCodigo);
fim;
SQL_Destruir(xCursor);

xUltimoCodigo = xUltimoCodigo + 1;
IntParaAlfa(xUltimoCodigo, xCodigoAlfa);
xTamanho = 0;
TamanhoAlfa(xCodigoAlfa, xTamanho);
xCodigoAlfa = xCodigoAlfa + "/12";

Definir Cursor CUR_E084MPJ;

CUR_E084MPJ.Sql "SELECT E084MPJ.POSPRJ
FROM E084MPJ WHERE
CODEMP = :xCodEmp AND
CODMPJ = :xCodMpj";

CUR_E084MPJ.AbrirCursor();
se (CUR_E084MPJ.Achou)
inicio
xPosicoes = CUR_E084MPJ.POSPRJ;
fim;
CUR_E084MPJ.FecharCursor();

xPosicoes = xPosicoes - xTamanho;
Para (I = 0; I < xPosicoes; I++)
xQtdZeros = xQtdZeros + "0";
VSPrjMsk = xQtdZeros + xCodigoAlfa;
fim;

Variáveis Disponibilizadas:

Nome Tipo Observações Retorna Valor
VSAbrPrj ALFA Abreviatura do projeto N
VSCodTpj NÚMERO Código do tipo de projeto N
VSObjPrj ALFA Texto para descrição dos objetivos do projeto N
VSCodTns ALFA Código da transação do projeto N
VSClaPrj ALFA Classificação do projeto N
VSCodCli NÚMERO Código do cliente que o projeto pertence N
VSCliFat NÚMERO Código do cliente para faturamento do projeto N
VSCodFor NÚMERO Código do órgão financiador (Fornecedor) N
VSCodUsu NÚMERO Usuário responsável pelo projeto N
VSCodCcu ALFA Código do centro de custo responsável pelo projeto N
VSSitPrj ALFA Indicativo da situação do projeto N
VSCodMot NÚMERO Código do motivo da situação do projeto N
VSObsMot ALFA Observação do motivo da situação do projeto N
VSESTADO ALFA INSERINDO - ALTERANDO - CONSULTANDO- EXCLUINDO N
VSPrjMsk ALFA Número do projeto conforme máscara do tipo de projeto S

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ê?