PORTAL DE DOCUMENTAÇÃO
Gestão Empresarial | ERP - versão 5.10.3 (XTended)

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:

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 é:

Closed Exemplo

Como acessar a variável CNPJ do tipo numérico presente em um registro de nível 0, quando estiver executando uma regra em um registro de nível 1 ou superior: R0000_IMPNCNPJ.

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:

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.

ClosedExemplo 1

Alterar o comando SQL padrão da rotina do registro 0001. Para tal, o módulo definido neste cadastro de declarações é o “CTB” e o registro “0001”.

definir alfa CTBAREG;
definir alfa CTBAPRMSQL;
definir alfa CTBACMDSQL;

se ((CTBAREG="0001") e (CTBAPRMSQL=""))
{
    CTBACMDSQL = "SELECT CTARED,DESCTA FROM USU_E045PLA";

}

ClosedExemplo 2

Demonstrar o conteúdo das variáveis globais do cadastro de declarações, tomando como base um cadastro de declaração cujo módulo é “IMP”.

definir alfa xTemp;
definir alfa xTexto;

IntParaAlfa(IMPNCodEmp, xTemp);
xTexto = "Empresa: " + xTemp;

IntParaAlfa(IMPNCodFil, xTemp);
xTexto = xTexto + ", Filial: " + xTemp;


Mensagem(Retorna, xTexto);

ClosedExemplo 3

Como o código da conta contábil (CODCTA) do tipo numérico do registro 0001 pertencente ao módulo “CTB”.

definir numero CTBNCODCTA;
se (CTBNCODCTA = 50)
{
    CTBNCODCTA = 150;
}

Desta forma, todas as linhas do "Registro 0001" que contém o código de conta igual a "50" serão atualizados para "150".

ClosedExemplo 4

Neste exemplo vamos utilizar a regra para alterar o conteúdo de um campo de um registro utilizando o cadastro de declaração. Iremos substituir a descrição do item no registro 0200 do SPED Fiscal, pela descrição do produto mais a descrição da derivação.

Definir Alfa IMPACOD_ITEM;

Definir Alfa IMPADESCR_ITEM;

Definir Numero IMPNCODEMP;

Definir Alfa IMPAReg;

Definir cursor Cur_Produto;

Definir Alfa vProduto;

Definir Alfa vDerivacao;

Definir Alfa IMPAEveReg;

 

se ((IMPAReg = "0200") e (IMPAEveReg = "REGISTRO"))

inicio

  PosicaoAlfa("-", IMPACOD_ITEM, PosStr);

  vProduto = IMPACOD_ITEM;

  vDerivacao = IMPACOD_ITEM;

  CopiarAlfa(vProduto, 4, (PosStr-1));

  CopiarAlfa(vDerivacao, (PosStr+1), 9);

 

  Cur_produto.sql  "SELECT E075PRO.DESPRO, E075DER.DESDER \

       FROM E075PRO, E075DER \ 

      WHERE E075PRO.CODEMP = E075DER.CODEMP AND \o:p>

                      E075PRO.CODPRO = E075DER.CODPRO AND \

                      E075DER.CODEMP = :IMPNCODEMP AND  \

                      E075DER.CODPRO = :VPRODUTO AND \

                      E075DER.CODDER = :VDERIVACAO";

&       Cur_produto.AbrirCursor();

       Se (Cur_produto.achou)

       Inicio

         IMPADESCR_ITEM =  Cur_Produto.DESPRO + " - " + Cur_Produto.DESDER;

       Fim;

   Cur_produto.FecharCursor();

 

fim;o:p>

ClosedExemplo 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, "+

                    "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 "+

              "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 " +

                    "NOT EXISTS (SELECT 1 FROM E075PRO WHERE E075PRO.CODEMP = E660INV.CODEMP AND E075PRO.CODPRO = E660INV.CODPRO) ";                    

IMPACMDSQL = IMPACMDSQL +

         " UNION ALL " +

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

                    "SUM(E660INV.QTDENT) AS QTDENT, MAX(E660INV.UNIMED) AS UNIMED, SUM(E660INV.VLRDSC) AS VLRDSC, MAX(E660INV.CLAFIS) AS CLAFIS, MAX(E660INV.CODCLF) AS CODCLF, " +

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

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

                    "SUM(E660INV.VLRBPF) AS VLRBPS, MAX(E660INV.PERPIF) AS PERPIS, SUM(E660INV.VLRPIF) AS VLRPIS, SUM(E660INV.VLRBCF) AS VLRBCF, " +

                    "MAX(E660INV.PERCFF) AS PERCOF, SUM(E660INV.VLRCFF) AS VLRCOF, MAX(E012FAM.CTARED) AS CTARED, MAX(E660INV.CPLPRO) AS DESCRICAO, " +

                    "SUM(E660INV.VLRSIC) AS VLRSIC, SUM(E660INV.VLRBSD) AS VLRBSD, SUM(E660INV.VLRISD) AS VLRISD, MAX(E660INV.PERICM) AS PERICM, " +

                    "SUM(E660INV.VLRICM) AS VLRICM, SUM(E660INV.VLRIIC) AS VLRIIC, SUM(E660INV.VLROIC) AS VLROIC, MAX(E660INV.CODDFS) AS CODDFS, " +

                    "MAX(E660INV.CODMS1) AS CODMS1, MAX(E660INV.CODMS2) AS CODMS2, MAX(E660INV.CODMS3) AS CODMS3, MAX(E660INV.CODMS4) AS CODMS4, " +

                    "MAX(E660NFV.TIPNFS) AS TIPONF, MAX(E660INV.CODEMP) AS CODEMP, MAX(E660INV.CSTIPI) AS CSTIPI, " +

                    "MAX(E660INV.CSTCOF) AS CSTCOF, MAX(E660INV.CSTPIS) AS CSTPIS, SUM(1) AS QTDITM, " +

                    "COUNT(DISTINCT(E660INV.CODPRO)) AS DIFCOD, MAX(E660INV.DESIMP) AS DESIMP, SUM(E660INV.VLRAJS) AS VLRAJS, " +

                    "MAX(E660INV.CODTNS) AS CODTNS, MAX(E001TNS.VENTCF) AS CPRVEN, SUM(E660INV.VLRDZF) AS VLRDZF, MAX(E660INV.SEQINV) AS SEQINF, MAX(E660INV.NUMNFF) AS NUMNFF, " +

                    "SUM(E660INV.VLRPIT) AS VLRPIT, SUM(E660INV.VLRCRT) AS VLRCRT, SUM(E660INV.VLRBCR) AS VLRBCD, SUM(E660INV.VLRCOR) AS VLRCFD, MAX(E660INV.PERCOR) AS PERCFD, " +

                    "SUM(E660INV.VLRBPR) AS VLRBPD, SUM(E660INV.VLRPIR) AS VLRPID, MAX(E660INV.PERPIR) AS PERPID, SUM(E660INV.PREUNI) AS PREUNI, " +

                    "SUM(E660INV.QTDBPF) AS QTDBPI, MAX(E660INV.ALIPIF) AS ALIPIS, SUM(E660INV.QTDBPI) AS QTDBPD, MAX(E660INV.ALIPIS) AS ALIPID, " +

                    "SUM(E660INV.QTDBCF) AS QTDBCO, MAX(E660INV.ALICFF) AS ALICOF, SUM(E660INV.QTDBCO) AS QTDBCD, MAX(E660INV.ALICOF) AS ALICFD, " +

                    "SUM(E660INV.VLRBSP) AS VLRBSP, SUM(E660INV.VLRSTP) AS VLRSTP, SUM(E660INV.VLRBSC) AS VLRBSC, SUM(E660INV.VLRSTC) AS VLRSTC, " +

                    "E660INV.CODPRO, MAX(E660INV.CODBEM) AS CODBEM, MAX(E660INV.CODDER) AS CODDER, E660INV.CODSER, MAX(E660INV.CPLPRO) AS 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 " +

           "GROUP BY E660INV.SEQNFI, E660INV.CODPRO, E660INV.CODSER ";

IMPACMDSQL = IMPACMDSQL +

         " UNION ALL " +

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

                    "SUM(E660INV.QTDENT) AS QTDENT, MAX(E660INV.UNIMED) AS UNIMED, SUM(E660INV.VLRDSC) AS VLRDSC, MAX(E660INV.CLAFIS) AS CLAFIS, MAX(E660INV.CODCLF) AS CODCLF, " +

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

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

                    "SUM(E660INV.VLRBPF) AS VLRBPS, MAX(E660INV.PERPIF) AS PERPIS, SUM(E660INV.VLRPIF) AS VLRPIS, SUM(E660INV.VLRBCF) AS VLRBCF, " +

                    "MAX(E660INV.PERCFF) AS PERCOF, SUM(E660INV.VLRCFF) AS VLRCOF, MAX(E660INV.CTARED) AS CTARED, MAX(E660INV.CPLPRO) AS DESCRICAO, " +

                    "SUM(E660INV.VLRSIC) AS VLRSIC, SUM(E660INV.VLRBSD) AS VLRBSD, SUM(E660INV.VLRISD) AS VLRISD, MAX(E660INV.PERICM) AS PERICM, " +

                    "SUM(E660INV.VLRICM) AS VLRICM, SUM(E660INV.VLRIIC) AS VLRIIC, SUM(E660INV.VLROIC) AS VLROIC, MAX(E660INV.CODDFS) AS CODDFS, " +

                    "MAX(E660INV.CODMS1) AS CODMS1, MAX(E660INV.CODMS2) AS CODMS2, MAX(E660INV.CODMS3) AS CODMS3, MAX(E660INV.CODMS4) AS CODMS4, " +

                    "MAX(E660NFV.TIPNFS) AS TIPONF, MAX(E660INV.CODEMP) AS CODEMP, MAX(E660INV.CSTIPI) AS CSTIPI, " +

                    "MAX(E660INV.CSTCOF) AS CSTCOF, MAX(E660INV.CSTPIS) AS CSTPIS, SUM(1) AS QTDITM, " +

                    "COUNT(DISTINCT(E660INV.CODPRO)) AS DIFCOD, MAX(E660INV.DESIMP) AS DESIMP, SUM(E660INV.VLRAJS) AS VLRAJS, " +

                    "MAX(E660INV.CODTNS) AS CODTNS, MAX(E001TNS.VENTCF) AS CPRVEN, SUM(E660INV.VLRDZF) AS VLRDZF, MAX(E660INV.SEQINV) AS SEQINF, MAX(E660INV.NUMNFF) AS NUMNFF, " +

                    "SUM(E660INV.VLRPIT) AS VLRPIT, SUM(E660INV.VLRCRT) AS VLRCRT, SUM(E660INV.VLRBCR) AS VLRBCD, SUM(E660INV.VLRCOR) AS VLRCFD, MAX(E660INV.PERCOR) AS PERCFD, " +

                    "SUM(E660INV.VLRBPR) AS VLRBPD, SUM(E660INV.VLRPIR) AS VLRPID, MAX(E660INV.PERPIR) AS PERPID, SUM(E660INV.PREUNI) AS PREUNI, " +

                    "SUM(E660INV.QTDBPF) AS QTDBPI, MAX(E660INV.ALIPIF) AS ALIPIS, SUM(E660INV.QTDBPI) AS QTDBPD, MAX(E660INV.ALIPIS) AS ALIPID, " +

                    "SUM(E660INV.QTDBCF) AS QTDBCO, MAX(E660INV.ALICFF) AS ALICOF, SUM(E660INV.QTDBCO) AS QTDBCD, MAX(E660INV.ALICOF) AS ALICFD, " +

                    "SUM(E660INV.VLRBSP) AS VLRBSP, SUM(E660INV.VLRSTP) AS VLRSTP, SUM(E660INV.VLRBSC) AS VLRBSC, SUM(E660INV.VLRSTC) AS VLRSTC, " +

                    "E660INV.CODPRO, MAX(E660INV.CODBEM) AS CODBEM, MAX(E660INV.CODDER) AS CODDER, E660INV.CODSER, MAX(E660INV.CPLPRO) AS CPLPRO " +

               "FROM E660INV, E660NFV, E001TNS " +

              "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 " +

                    "NOT EXISTS (SELECT 1 FROM E075PRO WHERE E075PRO.CODEMP = E660INV.CODEMP AND E075PRO.CODPRO = E660INV.CODPRO) " +                   

           "GROUP BY E660INV.SEQNFI, E660INV.CODPRO, E660INV.CODSER "+

           "ORDER BY 1";

fim;

Este artigo ajudou você?

Base de Conhecimento

Portal de Exigências Legais

Documentação em outros idiomas:

English

Español

Senior Store

Universidade Corporativa

Fórum de Produtos

Trabalhe conosco

Blog

Todos os direitos de cópias reservadas para Senior Sistemas S.A.

A reprodução não autorizada desta publicação, no todo ou em parte, constitui violação dos direitos autorais (Lei 9.610/98).

Ver site completo