Manutenção do comando para carga das informações na geração do registro

O cadastro de declarações tem o objetivo de facilitar a manutenção de informações para um arquivo eletrônico, com ele é possível montar ou modificar a busca de informações para tabelas de usuários, além de aplicar alterações nas informações apresentadas em cada linha dos arquivos eletrônicos.

Entendendo o funcionamento do cadastro de declarações

Pontos de intervenção

Regra
Por meio de uma regra associada ao registro, o usuário pode aplicar duas formas de manutenções no registro. A primeira funcionalidade é a alterar o comando SQL padrão da rotina utilizado para a geração do registro. A segunda funcionalidade é permitir uma manutenção dos conteúdos de cada campo presente no respectivo registro.

Forma de Busca de Dados
Através da forma de busca de dados é possível alterar o comando SQL padrão da rotina utilizado para geração do registro. Para isso, é necessário criar uma forma de busca de dados e associá-la ao registro desejado para alteração do comando. Vale ressaltar que as configurações de uma forma de busca de dados devem obedecer as regras de geração de cada registro.

SQL Usuário
Através deste campo é possível informar um comando SQL para alterar o SQL padrão da rotina para geração do registro, porém a sua programação é manual baseada na documentação de geração de cada registro.

Regra geral de nomenclatura de variáveis no cadastro de declaração

Todas as variáveis utilizadas nas regras do cadastro de declaração têm a seguinte estrutura:

As três primeiras letras representam o módulo do sistema, conforme definido na tela F049DEC;
A quarta letra representa o tipo do campo ("A - Alfa", "D - Data" e "N - Número"), conforme informado na tela F049DRE;
A partir da quinta letra representa o nome da variável aplicado na regra.

Variáveis Globais

MóduloNCodEmp:<> Esta variável não retorna valor, ela contém o código da empresa na geração do cadastro de declarações. Por exemplo: IMPNCodEmp.

<Módulo>NCodFil: Esta variável não retorna valor, ela contém o código da filial na geração do cadastro de declarações. Por exemplo: IMPNCodFil.

<Módulo>DDatIni: Esta variável não retorna valor, ela contém a data inicial para a geração das informação do cadastro de declarações. Por exemplo: IMPDDatIni.

<Módulo>DDatFim: Esta variável não retorna valor, ela contém a data final para a geração das informação do cadastro de declarações. Por exemplo: IMPDDatFim.

<Módulo>AEveReg: Esta variável não retorna valor, ela informa as constantes SQL (quando a regra estiver sendo executada para alterar o comando SQL padrão da rotina) e REGISTRO (quando a regra estiver sendo executada para alterar os conteúdos dos campos do registro correspondente). Por exemplo: IMPAEveReg.

Alteração do comando SQL padrão via regra

Um registro de uma declaração permite a alteração do seu comando SQL padrão da rotina para suprir a necessidade de localização de informações em tabelas de usuário, campos de usuário, informações oriundas de outras tabelas não definidas no padrão, campos de outras tabelas, alterações em campos com registros dependentes (gerações de registros de cadastros a partir de movimentos), entre outras situações. Para isso, é necessário toda a definição do comando SQL do respectivo registro na regra.

Para alterar o comando SQL padrão da rotina do registro utilizando uma regra associada ao registro através do campo Regra da tela F049REG existem as seguintes variáveis para controle:

MóduloAREG:<> Esta variável não retorna valor, ela indica o código do registro que está sendo executado pela gera neste momento;

MóduloAPRMSQL:<> Parâmetro adicional do registro. Utilizado para identificar o processo em que o SQL será utilizado. Dentro de um mesmo registro podem existir mais de um comando SQL para sua montagem. Esta variável não retorna valor;

MóduloACMDSQL:<> Variável que receberá o texto com o comando SQL para ser interpretado e executado pelo registro correspondente.

Importante

Na geração de um arquivo que possui acesso ao cadastro de declaração, há a opção Gerar Log dos SQL executados, quando assinalado este campo é gerado. Este log será gerado na pasta "Log" da instalação do ERP Senior.

Manutenção do Registro via Regra

Para realizar a manutenção do registro padrão criado pelo ERP Senior, deve-se criar uma regra associada ao registro através do campo Regra da tela F049REG . As variáveis disponibilizadas para a regra possuem o conteúdo que será gravado no registro padrão. Para alterá-lo basta atualizar as variáveis disponíveis na regra. Como padrão, todas as variáveis que são carregadas para a regra são atualizadas no retorno do processamento.

Para a manutenção de campos, não é necessária a inclusão de todo o comando SQL padrão da rotina na regra, deve-se apenas utilizar a variável que sofre a alteração, podendo ser aplicados recursos da LSP Senior como: Cursores, listas dinâmicas, SQL_criar, funções de programadores, entre outros recursos disponíveis na criação de regras.

A nomenclatura das variáveis dos campos de um registro do cadastro de declaração segue a regra geral de nomenclatura de variáveis, onde o nome da variável é o conteúdo do campo Nome do Campo informado na tela F049DRE.

Para cadastro de declarações que possui uma estrutura do arquivo em forma hierárquica/níveis, é possível acessar qualquer valor dos campos dos níveis anteriores ao registro que está sendo gerado no momento da regra.

A estrutura de nomenclatura destas variáveis de níveis anteriores é:

Primeiro caractere fixo R;
A partir do segundo caractere quando o nome do campo for REG, ele receberá o conteúdo do registro anterior;
O próximo caractere é fixo “_”;
Depois disso, é utilizada a regra geral de nomenclatura de variáveis do cadastro de declaração;

Inclusão do comando SQL a um registro que não possui padrão ERP Senior

Na documentação do sistema existem registros que possuem o cadastro de declaração associado a uma observação que não há uma comando padrão do ERP Senior, porém este comando pode ser facilmente parametrizado, com a inclusão de um comando SQL obedecendo à nomenclatura dos campos de retorno para o registro e os filtros dinâmicos possíveis para a geração do registro.

Abaixo há um exemplo de registro que apresenta apenas a documentação para parametrização do comando SQL para a sua geração:

REGISTRO M230: INFORMAÇÕES ADICIONAIS DE DEFERIMENTO
Nº	CAMPO	DESCRIÇÃO	TIPO	TAM	DEC	RETORNO REGRA
01	REG	Texto fixo contendo "M230"	C	004*	-	Fixo 'M230'.
02	CNPJ	CNPJ da pessoa jurídica de direito público, empresa pública, sociedade de economia mista ou suas subsidiárias.	N	014*	-	CGCPAR
03	VL_VEND	Valor Total das vendas no período	N	-	02	VLRVEN
04	VL_NAO_RECEB	Valor Total não recebido no período	N	-	02	VLRNRE
05	VL_CONT_DIF	Valor da Contribuição diferida no período	N	-	02	VLRCOD
06	VL_CRED_DIF	Valor do Crédito diferido no período	N	-	02	VLRCRD
07	COD_CRED	Código de Tipo de Crédito diferido no período, conforme a Tabela 4.3.6.	C	003*	-	TIPCRE

Observação

Tipo Numérico - CGCPAR, VLRVEN, VLRVEN, VLRCOD, VLRCRD
Tipo Alfanumérico - TIPCRE
Filtros - {CODEMP}, {DATAPI}

Neste caso é necessário especificar um SQL para o registro para que seja definida uma regra e vinculá-la a geração do registro no cadastro de declaração./p>

A regra utilizará a variável IMPACMDSQL (que é do tipo alfanumérica) e esta deve receber o novo SQL, este comando deve obrigatoriamente seguir o que este descrito no Ajuda do sistema para aquele registro específico.

Deverá existir no SQL definido os campos abaixo, caso um deles não esteja definido um ACCESS VIOLATION é gerado. Os retornos do SQL são: CGCPAR, VLRVEN, VLRNRE, VLRCOD, VLRCRD e TIPCRE. Os filtros deste SQL são: {CODEMP} e {DATAPI}

Logo, o comando poderá ser:

SELECT E085CLI.CGCCPF AS CGCPAR, E660NFV.VLRCTB AS VLRVEN,
5000 AS VLRNRE, 2500 AS VLRCOD, 0 AS VLRCRD, “1” AS TIPCRE
FROM E660NFV, E085CLI
WHERE E085CLI.CODCLI = E660NFV.CODCLI AND
E660NFV.CODEMP = {CODEMP} AND
E660NFV.DATEMI >= {DATAPI}

Exemplos de regras

Observação

Os exemplos abaixo são maneiras de como manipular o SQL para atender a customização. O SQL padrão poderá mudar de acordo com a versão, desta forma é necessário sempre buscar o SQL atualizado na tela de geração do SPED, na opção Gerar log dos SQL executados. O Gestão Empresarial PME | GO UP não tem acesso às regras.

Exemplo 5

Neste exemplo iremos alterar o comando SQL do registro C170 (itens de notas fiscais) da nota fiscal de saída do SPED Pis/Cofins, para que a conta contábil listada neste registro considere o campo conta contábil reduzida 1 do cadastro de família do produto, já gerando o registro de dependência 0500 (cadastro de plano de contas).

definir alfa IMPAReg;

definir alfa IMPAPRMSQL;

definir alfa IMPAEveReg;

definir alfa IMPACMDSQL;

se ((IMPAReg = "C170") e (IMPAEveReg = "SQL") e (IMPAPRMSQL = "NFSAIDA"))

inicioo:p>

IMPACMDSQL = "SELECT E660INV.SEQNFI, E660INV.SEQIPV AS SEQITE, (E660INV.PREUNI * E660INV.QTDENT) AS VLRCTB, " +

"E660INV.QTDENT AS QTDENT, E660INV.UNIMED AS UNIMED, E660INV.VLRDSC AS VLRDSC, E660INV.CLAFIS AS CLAFIS, E660INV.CODCLF AS CODCLF, "+

"E660INV.CODSTR AS CODSTR, E660INV.VLRBIC AS VLRBIC, E660INV.VLRBSI AS VLRBSI, (E660INV.VLRBIP + E660INV.VLRBID) AS VLRBIP, "+

"E660INV.PERIPI AS PERIPI, (E660INV.VLRIPI + E660INV.VLRIPD) AS VLRIPI, E660INV.CODTRD AS CODTRD, E660NFV.NOPOPE AS NOPOPE, "+

"E660INV.VLRBPF AS VLRBPS, E660INV.PERPIF AS PERPIS, E660INV.VLRPIF AS VLRPIS, E660INV.VLRBCF AS VLRBCF, "+

"E660INV.PERCFF AS PERCOF, E660INV.VLRCFF AS VLRCOF, E012FAM.CTARED AS CTARED, E660INV.CPLPRO AS DESCRICAO, "+

"E660INV.VLRSIC AS VLRSIC, E660INV.VLRBSD AS VLRBSD, E660INV.VLRISD AS VLRISD, E660INV.PERICM AS PERICM, "+

"E660INV.VLRICM AS VLRICM, E660INV.VLRIIC AS VLRIIC, E660INV.VLROIC AS VLROIC, E660INV.CODDFS AS CODDFS, "+

"E660INV.CODMS1 AS CODMS1, E660INV.CODMS2 AS CODMS2, E660INV.CODMS3 AS CODMS3, E660INV.CODMS4 AS CODMS4, "+

"E660NFV.TIPNFS AS TIPONF, E660INV.CODEMP AS CODEMP, E660INV.CSTIPI AS CSTIPI, "+

"E660INV.CSTCOF AS CSTCOF, E660INV.CSTPIS AS CSTPIS, 1 AS QTDITM, 1 AS DIFCOD, "+

"E660INV.DESIMP AS DESIMP, E660INV.VLRAJS AS VLRAJS, E660INV.CODTNS, E001TNS.VENTCF AS CPRVEN, E660INV.VLRDZF, "+

"E660INV.SEQINV AS SEQINF, E660INV.NUMNFF, E660INV.VLRPIT, E660INV.VLRCRT, E660INV.VLRBCR AS VLRBCD, E660INV.VLRCOR AS VLRCFD, E660INV.PERCOR AS PERCFD, "+

"E660INV.VLRBPR AS VLRBPD, E660INV.VLRPIR AS VLRPID, E660INV.PERPIR AS PERPID, E660INV.PREUNI, "+

"E660INV.QTDBPF AS QTDBPI, E660INV.ALIPIF AS ALIPIS, E660INV.QTDBPI AS QTDBPD, E660INV.ALIPIS AS ALIPID, "+

"E660INV.QTDBCF AS QTDBCO, E660INV.ALICFF AS ALICOF, E660INV.QTDBCO AS QTDBCD, E660INV.ALICOF AS ALICFD, "+

"E660INV.VLRBSP, E660INV.VLRSTP, E660INV.VLRBSC, E660INV.VLRSTC, E660INV.CODPRO, E660INV.CODBEM, E660INV.CODDER, E660INV.CODSER, E660INV.CPLPRO "+

"FROM E660INV, E660NFV, E001TNS, E075PRO, E012FAM "+

"WHERE E660INV.CODEMP = {CODEMP} AND "+

"E660INV.CODFIL = {CODFIL} AND "+

"E660INV.CODCLI = {CODPAR} AND "+

"E660INV.NUMNFI = {NUMNFI} AND "+

"E660INV.CODSNF = {CODSNF} AND "+

"E660NFV.TIPNFS > 0 AND "+

"E660INV.SEQNFI = 0 AND "+

"(E660INV.CSTCOF = E660INV.CSTPIS AND " +

"(E660INV.CSTPIS IN ('01', '02', '03', '04', '05', '06', '07', '08', '09', '49'))) AND " +

"E660NFV.CODEMP = E660INV.CODEMP AND "+

"E660NFV.CODFIL = E660INV.CODFIL AND "+

"E660NFV.CODCLI = E660INV.CODCLI AND "+

"E660NFV.NUMNFI = E660INV.NUMNFI AND "+

"E660NFV.NUMNFF = E660INV.NUMNFF AND "+

"E660NFV.CODSNF = E660INV.CODSNF AND "+

"E660NFV.CODTNS = E660INV.CODTNS AND "+

"E001TNS.CODEMP = E660INV.CODEMP AND "+

"E001TNS.CODTNS = E660INV.CODTNS AND "+

"E660INV.CODEMP = E075PRO.CODEMP AND "+

"E660INV.CODPRO = E075PRO.CODPRO AND "+

"E075PRO.CODEMP = E012FAM.CODEMP AND "+

"E075PRO.CODFAM = E012FAM.CODFAM ";

IMPACMDSQL = IMPACMDSQL +

" UNION ALL " +

"SELECT E660INV.SEQNFI, E660INV.SEQIPV AS SEQITE, (E660INV.PREUNI * E660INV.QTDENT) AS VLRCTB, " +

"E660INV.QTDENT AS QTDENT, E660INV.UNIMED AS UNIMED, E660INV.VLRDSC AS VLRDSC, E660INV.CLAFIS AS CLAFIS, E660INV.CODCLF AS CODCLF, "+

"E660INV.CODSTR AS CODSTR, E660INV.VLRBIC AS VLRBIC, E660INV.VLRBSI AS VLRBSI, (E660INV.VLRBIP + E660INV.VLRBID) AS VLRBIP, "+

"E660INV.PERIPI AS PERIPI, (E660INV.VLRIPI + E660INV.VLRIPD) AS VLRIPI, E660INV.CODTRD AS CODTRD, E660NFV.NOPOPE AS NOPOPE, "+

"E660INV.VLRBPF AS VLRBPS, E660INV.PERPIF AS PERPIS, E660INV.VLRPIF AS VLRPIS, E660INV.VLRBCF AS VLRBCF, "+

"E660INV.PERCFF AS PERCOF, E660INV.VLRCFF AS VLRCOF, E660INV.CTARED AS CTARED, E660INV.CPLPRO AS DESCRICAO, "+