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: