Sintegra
De TotaliWiki
Revisão de 17h01min de 10 de setembro de 2009 por Petters (discussão | contribs) (→Notas de Entrada [4.5C até versão atual])
Índice
Conceito
O Sistema Integrado de Informações sobre Operações Interestaduais com Mercadorias e Serviços - (SINTEGRA) é o sistema que foi implantado no Brasil com a finalidade de facilitar o fornecimento de informações dos contribuintes aos fiscos estaduais e de aprimorar o fluxo de dados nas administrações tributárias e entre as mesmas.
O SINTEGRA permite o controle informatizado das operações de entradas e saídas interestaduais realizadas pelos contribuintes de ICMS. Ele segue o modelo de informações sobre o IVA (Imposto sobre o Valor Acrescentado) da União Européia, porém adaptado às características do Brasil, ele também permite o intercâmbio de informações entre os fiscos estaduais e a Secretaria da Receita Federal.
As suas principais diretrizes são: resguardar os princípios constitucionais do federalismo, receber informações com qualidade, facilitar ao contribuinte a prestação das informações requeridas e preservar o sigilo fiscal. Suas principais metas são: Informatizar a relação fisco e contribuinte, checar e acompanhar as operações realizadas por contribuintes de ICMS, apurar comportamento anômalo e disponibilizar informações à fiscalização.
Para administrar o sistema SINTEGRA, cada unidade da federação ficou encarregada de criar uma unidade de enlace estadual (UEE) dentro da estrutura organizacional da Secretaria da Fazenda Estadual.
Para gerenciar as atividades do SINTEGRA a nível nacional, foi criado o Grupo Gestor de Trabalho GT-15 (SINTEGRA). Este grupo reúne todos os representantes do SINTEGRA em cada Estado brasileiro. Cabe ao agente do fisco designado para gerenciar a Unidade de Enlace Estadual do seu Estado participar trimestralmente das reuniões deste grupo.
O arquivo do SINTEGRA é composto de registros de Entradas e Saídas de Notas Fiscais que devem ser entregues a Secretaria da Fazenda de cada Estado mensalmente. Ele possui um conjunto de registros, cada um com uma finalidade. Os registros são descritos a seguir.
Registros
- Tipo 10 - Registro mestre do estabelecimento, destinado à identificação do estabelecimento informante;
- Tipo 11 - Dados complementares do informante;
- Tipo 50 - Registro de total de Nota Fiscal modelos 1 e 1-A, Nota Fiscal de Produtor, modelo 4 (a critério de cada unidade da Federação) Nota Fiscal/Conta de Energia Elétrica, modelo 6, Nota Fiscal de Serviço de Comunicação, modelo 21, e Nota Fiscal de Serviço de Telecomunicações, modelo 22, destinado a especificar as informações de totalização do documento fiscal, relativamente ao ICMS. No caso de documentos com mais de uma alíquota de ICMS e/ou mais de um Código Fiscal de Operação - CFOP, deve ser gerado para cada combinação de 'alíquota' e 'CFOP' um registro tipo 50, com valores nos campos monetários (11, 12, 13, 14 e 15) correspondendo à soma dos itens que compõe o mesmo, de tal forma que as somas dos valores dos campos monetários dos diversos registros que representam uma mesma nota fiscal, corresponderão aos valores totais da mesma;
- Tipo 51 - Registro de total de Nota Fiscal modelos 1 e 1 A, destinado a especificar as informações de totalização do documento fiscal, relativamente ao IPI;
- Tipo 53 - Registro de total de documento fiscal, quanto à substituição tributária;
- Tipo 54 - Registro de Produto (classificação fiscal);
- Tipo 55 - Registro de Guia Nacional de Recolhimento;
- Tipo 56 - Registro complementar relativo às operações com veículos automotores novos realizadas por montadoras, concessionárias e importadoras;
- Tipo 60 - Registro destinado a informar as operações e prestações realizadas com os documentos fiscais emitidos por equipamento emissor de cupom fiscal os quais são: Cupom Fiscal, Cupom Fiscal - PDV, Bilhete de Passagem Rodoviário, modelo 13, Bilhete de Passagem Aquaviário, modelo 14, Bilhete de Passagem e Nota de Bagagem, modelo 15, Bilhete de Passagem Ferroviário, modelo 16, e Nota Fiscal de Venda a Consumidor, modelo 2;
- Tipo 61 - Registro dos documentos fiscais descritos a seguir, quando não emitidos por equipamento emissor de cupom fiscal: Bilhete de Passagem Rodoviário, modelo 13, Bilhete de Passagem Aquaviário, modelo 14, Bilhete de Passagem e Nota de Bagagem, modelo 15, Bilhete de Passagem Ferroviário, modelo 16, Nota Fiscal de Venda a Consumidor, modelo 2, Nota Fiscal de Produtor, modelo 4 (a critério de cada unidade da Federação);
- Tipo 70 - Registro de total de Nota Fiscal de Serviço de Transporte, modelo 7, de Conhecimento de Transporte Rodoviário de Cargas, modelo 8, de Conhecimento de Transporte Aquaviário de Cargas, modelo 9, de Conhecimento Aéreo, modelo 10, e de Conhecimento de Transporte Ferroviário de Cargas, modelo 11, destinado a especificar as informações de totalização do documento fiscal, relativamente ao ICMS;
- Tipo 71 - Registro de Informações da carga transportada referente a Conhecimento de Transporte Rodoviário de Cargas, modelo 8, Conhecimento de Transporte Aquaviário de Cargas, modelo 9, Conhecimento Aéreo, modelo 10, e Conhecimento de Transporte Ferroviário de Cargas, modelo 11;
- Tipo 74 - Registro de Inventário (a critério de cada Unidade Federada);
- Tipo 75 - Registro de Código de Produto e Serviço;
- Tipo 76 - Registro de total de Nota Fiscal de Serviços de Comunicação, modelo 21, Nota Fiscal de Serviços de Telecomunicações, modelo 22;
- Tipo 77 - Registro de serviços de comunicação e telecomunicação;
- Tipo 90 - Registro de totalização do arquivo, destinado a fornecer dados indicando a quantidade de registros.
Abaixo uma imagem que mostra como o arquivo é gerado:
Tela de Exportação Fiscal
O form de geração dos arquivos do SINTEGRA encontra-se no TotallBackOffice em Principal -> Comunicação => Exportação => Fiscal => Sintegra.
Você deve setar as seguintes informações no form para que os arquivos sejam gerados:
Tipo de Operação: No form existem dois checkbox que definem o tipo de operação que você deseja gerar (Compras/Entradas, Vendas/Saídas).
Filial: Define que filial você estagerando. O Sintegra deve ser gerado por filial (CNPJ)
Período: Define o intervalo de dias a serem gerados. O arquivo a ser entregue à Secretaria da Fazenda deve ser gerado desde o primeiro até o último dia de cada mês. No form você define a data no intervalo desejado apenas para questões de validação e/ou teste.
Salvar em: Define o local onde os arquivos devem ser gerados.
Registros Opcionais:O Sintegra é um sistema nacional, mas cada estado tem autonomia para definir o que deve e o que não precisa ser exportado. Para isso foram criados filtros que o usuário marca ou desmarca de acordo com a normativa do sintegra do seu Estado.
Legislação Estadual: Define a qual finalidade se designa o arquivo. Registro (1) ou Retificação (2).
Registro de Inventário: Define se o form deve gerar os registros de inventário (Tipo 74) para a Secretaria. Este registro geralmente deve ser entregue 1 vez no ano, no final ou no início de cada ano contábil.
Inventário com Impostos Restituíveis: Define se (caso tenha sido gerado) o registro de inventário deve ter os impostos restituíveis ou não.
Depois de definidos todos os filtros acima você tem a opção de definir quais as séries deverão ser exportadas à Secretaria. Somente as marcadas pelo usuário serão exportadas, além disso o usuário poderá definir como essas séries serão apresentadas, para isso, deve informar o valor a ser exportado nas colunas (Série Como, Sub-série Como).
A partir da versão 4.4C do TotallBackOffice foi acrescentada a aba de validações que verifica no período que o usuário informou a integridade das informações que serão geradas. Essa validação é feita nos Documentos dos Parceiros, Responsável pela entrega dos arquivos, telefones da filial, etc. Depois de informados todos os filtros e séries para exportação, basta clicar no botão ?OK? que o arquivo será gerado no endereço especificado.
Importante: Para contribuintes do Estado de Santa Catarina, existe a obrigatoriedade de se gerar arquivo com o conjunto total de notas e também sub-arquivos separados por cada unidade da federação. Por exemplo, em um período que existam notas de entrada saída para São Paulo, Paraná e Rio Grande do Sul e o nome dado para o arquivo seja Sintegra.txt o form de exportação irá criar mais 3 arquivos (Sintegra_SP.txt, Sintegra_PR.txt e Sintegra_RS.txt) que deverão ser enviados para unidade da federação correspondente. Isto ocorre por falta de integração entre os sistemas da Secretaria de Santa Catarina com as demais.
Aspectos Técnicos do Processo de Exportação
Quando o usuário acessa o form de exportação do SINTEGRA, o mesmo é carregado com o grid de Séries a serem exportadas. O form acessa as tabelas de compra (TT_COM) e Venda (TT_VEN) e faz uma consulta com distinct, carregando para a tabela TT_FIS todas as Séries que existam na base do cliente para serem exportadas. ÿ a tabela TT_FIS que esta sendo mostrada no grid de séries e a coluna que define se ela deve ou não ser exportada é a EXPORTA (?T? ou ?F?). Além disso é esta tabela que define como as séries serão exportadas e os campos são: SEREXP, SUBEXP.
Saídas
Serão exportadas todas as notas emitidas pelo contribuinte, de acordo com o a Filial selecionada, período, tipo de produto (somente materiais são exportados). Basicamente, o fluxo das informações obedece o esquema abaixo:
Views que compõe o processo de SINTEGRA das notas de saída
Entradas
Serão Exportadas todas as notas de entrada (Compras, Fretes, Compromissos) além de notas emitidas e que são consideradas como entradas (Devolução de venda e outras entradas) O Fluxo das informações encontra-se abaixo:
Views que compõe o processo de SINTEGRA das notas de entrada
Layout
O layout completo pode ser encontrado no seguinte endereço: Manual de Orientação do Convênio 57/95
Registro 50
| Nº | Denominação do campo | Conteúdo | Tamanho | De | Até | Formato |
|---|---|---|---|---|---|---|
| 01 | Tipo | "50" | 02 | 1 | 2 | N |
| 02 | CNPJ | CNPJ do remetente nas entradas e do destinatário nas saídas | 14 | 3 | 16 | N |
| 03 | Inscrição Estadual | Inscrição Estadual do remetente nas entradas e do destinatário nas saídas | 14 | 17 | 30 | X |
| 04 | Data de emissão ou recebimento | Data de emissão na saída ou de recebimento na entrada | 8 | 31 | 38 | N |
| 05 | Unidade da Federação | Sigla da unidade da Federação do remetente nas entradas e do destinatário nas saídas | 2 | 39 | 40 | X |
| 06 | Modelo | Código do modelo da nota fiscal | 2 | 41 | 42 | N |
| 07 | Série | Série da nota fiscal | 3 | 43 | 45 | X |
| 08 | Número | Número da nota fiscal | 6 | 46 | 51 | N |
| 09 | CFOP | Código Fiscal de Operação e Prestação | 4 | 52 | 55 | N |
| 10 | Emitente | Emitente da Nota Fiscal (P-próprio/T-terceiros) | 1 | 56 | 56 | X |
| 11 | Valor Total | Valor total da nota fiscal (com 2 decimais) | 13 | 57 | 69 | N |
| 12 | Base de Cálculo do ICMS | Base de Cálculo do ICMS (com 2 decimais) | 13 | 70 | 82 | N |
| 13 | Valor do ICMS | Montante do imposto (com 2 decimais) | 13 | 83 | 95 | N |
| 14 | Isenta ou não-tributada | Valor amparado por isenção ou não incidência (com 2 decimais) | 13 | 96 | 108 | N |
| 15 | Outras | Valor que não confira débito ou crédito do ICMS (com 2 decimais) | 13 | 109 | 121 | N |
| 16 | Alíquota | Alíquota do ICMS (com 2 decimais) | 4 | 122 | 125 | N |
| 17 | Situação | Situação da nota fiscal | 1 | 126 | 126 | X |
Registro 51
| Nº | Denominação do campo | Conteúdo | Tamanho | De | Até | Formato |
|---|---|---|---|---|---|---|
| 01 | Tipo | "51" | 2 | 1 | 2 | N |
| 02 | CNPJ | CNPJ do remetente nas entradas e do destinatário nas saídas | 14 | 3 | 16 | N |
| 03 | Inscrição Estadual | Inscrição Estadual do remetente nas entradas e do destinatário nas saídas | 14 | 17 | 30 | X |
| 04 | Data de emissão/recebimento | Data de emissão na saída ou recebimento na entrada | 8 | 31 | 38 | N |
| 05 | Unidade da Federação | Sigla da unidade da Federação do remetente nas entradas e do destinatário nas saídas | 2 | 39 | 40 | X |
| 06 | Série | Série da nota fiscal | 3 | 41 | 43 | X |
| 07 | Número | Número da nota fiscal | 6 | 44 | 49 | N |
| 08 | CFOP | Código Fiscal de Operação e Prestação | 4 | 50 | 53 | N |
| 09 | Valor Total | Valor total da nota fiscal (com 2 decimais) | 13 | 54 | 66 | N |
| 10 | Valor do IPI | Montante do IPI (com 2 decimais) | 13 | 67 | 79 | N |
| 11 | Isenta ou não-tributada ? IPI | Valor amparado por isenção ou não incidência do IPI (com 2 decimais) | 13 | 80 | 92 | N |
| 12 | Outras ? IPI | Valor que não confira débito ou crédito do IPI (com 2 decimais) | 13 | 93 | 105 | N |
| 13 | Brancos | Brancos | 20 | 106 | 125 | X |
| 14 | Situação | Situação da Nota Fiscal | 1 | 126 | 126 | X |
Registro 53
| Nº | Denominação do campo | Conteúdo | Tamanho | De | Até | Formato |
|---|---|---|---|---|---|---|
| 01 | Tipo | "53" | 2 | 1 | 2 | N |
| 02 | CNPJ | CNPJ do contribuinte Substituído | 14 | 3 | 16 | N |
| 03 | Inscrição Estadual | Inscrição Estadual do Contribuinte substituído | 14 | 17 | 30 | X |
| 04 | Data de emissão/recebimento | Data de emissão na saída ou recebimento na entrada | 8 | 31 | 38 | N |
| 05 | Unidade da Federação | Sigla da unidade da Federação do contribuinte substituído | 2 | 39 | 40 | X |
| 06 | Modelo | Código do modelo da nota fiscal | 2 | 41 | 42 | N |
| 07 | Série | Série da nota fiscal | 3 | 43 | 45 | X |
| 08 | Número | Número da nota fiscal | 6 | 46 | 51 | N |
| 09 | CFOP | Código Fiscal de Operação e Prestação | 4 | 52 | 55 | N |
| 10 | Emitente | Emitente da Nota Fiscal (P-próprio/T-terceiros) | 1 | 56 | 56 | X |
| 11 | Base Cálculo do ICMS Substituição Tributária | Base de cálculo de retenção do ICMS (com 2 decimais) | 13 | 57 | 69 | N |
| 12 | ICMS retido | ICMS retido pelo substituto (com 2 decimais) | 13 | 70 | 82 | N |
| 13 | Despesas Acessórias | Soma das despesas acessórias (frete, seguro e outras - com 2 decimais) | 13 | 83 | 95 | N |
| 14 | Situação | Situação do documento fiscal quanto ao cancelamento | 1 | 96 | 96 | X |
| 15 | Código da Antecipação | Código que identifica o tipo da Antecipação Tributária | 1 | 97 | 97 | X |
| 16 | Brancos | 29 | 98 | 126 |
Registro 54
| Nº | Denominação do campo | Conteúdo | Tamanho | De | Até | Formato |
|---|---|---|---|---|---|---|
| 01 | Tipo | ?54? | 2 | 1 | 2 | N |
| 02 | CNPJ | CNPJ do remetente nas entradas e do destinatário nas saídas | 14 | 3 | 16 | N |
| 03 | Modelo | Código do modelo da nota fiscal | 2 | 17 | 18 | N |
| 04 | Série | Série da nota fiscal | 3 | 19 | 21 | X |
| 06 | Número | Número da nota fiscal | 6 | 22 | 27 | N |
| 07 | CFOP | Código Fiscal de Operação e Prestação | 4 | 28 | 31 | N |
| 07 | CST | Código da Situação Tributária | 3 | 32 | 34 | X |
| 08 | Número do Item | Número de ordem do item na nota fiscal | 3 | 35 | 37 | N |
| 09 | Código do Produto ou Serviço | Código do produto ou serviço do informante | 14 | 38 | 51 | X |
| 10 | Quantidade | Quantidade do produto (com 3 decimais) | 11 | 52 | 62 | N |
| 11 | Valor do Produto | Valor bruto do produto (valor unitário multiplicado por quantidade) - com 2 decimais | 12 | 63 | 74 | N |
| 12 | Valor do Desconto/Despesa Acessória | Valor do Desconto Concedido no item (com 2 decimais). | 12 | 75 | 86 | N |
| 13 | Base de Cálculo do ICMS | Base de cálculo do ICMS (com 2 decimais) | 12 | 87 | 98 | N |
| 14 | Base de Cálculo do ICMS para Substituição Tributária | Base de cálculo do ICMS de retenção na Substituição Tributária (com 2 decimais) | 12 | 99 | 110 | N |
| 15 | Valor do IPI | Valor do IPI (com 2 decimais) | 12 | 111 | 122 | N |
| 16 | Alíquota do ICMS | Alíquota Utilizada no Cálculo do ICMS (com 2 decimais) | 4 | 123 | 126 | N |
Registro 61
Vendas ao consumidor final com modelo 02. Quando a venda se encaixa nesse perfil ela é exportada nesse registro, não aparecendo mais no 50, 54 e 75.
| Nº | Denominação do campo | Conteúdo | Tamanho | De | Até | Formato |
|---|---|---|---|---|---|---|
| 01 | Tipo | "61" | 02 | 1 | 2 | N |
| 02 | Brancos | 14 | 3 | 16 | N | |
| 03 | Brancos | 14 | 17 | 30 | N | |
| 04 | Data de Emissão | Data de emissão do(s) documento(s) fiscal(is) | 8 | 31 | 38 | N |
| 05 | Modelo | Modelo do(s) documento(s) fiscal(is) | 2 | 39 | 40 | N |
| 06 | Série | Série do(s) documento(s) fiscal(is) | 3 | 41 | 43 | X |
| 07 | Subsérie | Subsérie do(s) documento(s) fiscal(is) | 2 | 44 | 45 | X |
| 08 | Número inicial de ordem | Número do primeiro documento fiscal emitido no dia do mesmo modelo, série e subsérie | 6 | 46 | 51 | N |
| 09 | Número final de ordem | Número do último documento fiscal emitido no dia do mesmo modelo, série e subsérie | 6 | 52 | 57 | N |
| 10 | Valor Total | Valor total do(s) documento(s) fiscal(is)/Movimento diário (com 2 decimais) | 13 | 58 | 70 | N |
| 11 | Base de Cálculo ICMS | Base de cálculo do(s) documento(s) fiscal(is)/Total diário (com 2 decimais) | 13 | 71 | 83 | N |
| 12 | Valor do ICMS | Valor do Montante do Imposto/Total diário (com 2 decimais) | 12 | 84 | 95 | N |
| 13 | Isenta ou Não-Tributadas | Valor amparado por isenção ou não-incidência/Total diário (com 2 decimais) | 13 | 96 | 108 | N |
| 14 | Outras | Valor que não confira débito ou crédito de ICMS/Total diário (com 2 decimais) | 13 | 109 | 121 | N |
| 15 | Alíquota | Alíquota do ICMS (com 2 decimais) | 4 | 122 | 125 | N |
| 16 | Branco | Branco | 1 | 126 | 126 | X |
Validador
Novas versões do Validador do Sintegra podem ser obtidas através do site do SINTEGRA, ou clicando [1].
Se você estiver dentro do ambiente da Totall você poderá obter as várias versões do validor nessa pasta:
\\Tt2000\backups\publico\Instaladores\totall.com\Totall 2000\Instalador\Novo CD Programadores\02_Programas_Utilitarios\Validadores SINTEGRA
Comandos Para Gerar Dados nas Tabelas Temporárias do SINTEGRA
Notas de Saída [4.4H até versão atual]
DELETE FROM TW_VEN_FIS;
INSERT INTO TW_VEN_FIS
(SESSION_ID,
TIPTRO, CODFIL, SEQUEN, ATU_EM, COMSOB, CODVEN, VLRNOT, VLRLIQ, TIPNOT, FILVEN, FILUSU,
FILPGT, FILCLI, NUMNOT, NUMECF, FLGTIP, FLGEST, DATHOR, CODNAT, CODSER, CODUSU, CODPGT,
CODCLI, AUTENT, UFLOJA, TRIBUT, FINANC, EMIDES, CONSFI, FILPRE, CODPRE, ENDFAT, ENDENT,
ENDCOB, BASUBS, SUBSTT, CODFIN, ESPECI, FILENT, FILGUI, VLRSEG, VLRFRE, TIPTRA, SINAL ,
SIGNAT, SEQFAT, RETIDO, PROPGT, PRAMED, PESLIQ, PESBRU, PERENT, PERCOM, NUMVOL, NUMCON,
NROIMP, FILTRA, FILFAT, FILCOB, DESCON, DATSAI, CODTRA, CODGUI, LANVEN, MARCAS, VINCUL,
CODEXT, CODCTR, EXPORT, REDTOT, NUMDOC, INSEST, MODNOT, UFNOTA, ICMFRE, ALQFRE, CNT_RO, OUTTAX)
SELECT (SELECT USERENV('SESSIONID') FROM DUAL) AS SESSION_ID,
TIPTRO, CODFIL, SEQUEN, ATU_EM, COMSOB, CODVEN, VLRNOT, VLRLIQ, TIPNOT, FILVEN, FILUSU,
FILPGT, FILCLI, NUMNOT, NUMECF, FLGTIP, FLGEST, DATHOR, CODNAT, TRIM(CODSER), CODUSU, CODPGT,
CODCLI, AUTENT, UFLOJA, TRIBUT, FINANC, EMIDES, CONSFI, FILPRE, CODPRE, ENDFAT, ENDENT,
ENDCOB, BASUBS, SUBSTT, CODFIN, ESPECI, FILENT, FILGUI, COALESCE(VLRSEG,0), COALESCE(VLRFRE,0), TIPTRA, SINAL ,
SIGNAT, SEQFAT, RETIDO, PROPGT, PRAMED, PESLIQ, PESBRU, PERENT, PERCOM, NUMVOL, NUMCON,
NROIMP, FILTRA, FILFAT, FILCOB, DESCON, DATSAI, CODTRA, CODGUI, LANVEN, MARCAS, VINCUL,
CODEXT, CODCTR, EXPORT, REDTOT, NUMDOC, TRIM(INSEST), MODNOT, UFNOTA, ICMFRE, ALQFRE, CNT_RO, OUTTAX
FROM TV_VEN_FIS
WHERE CODFIL = '001'
AND DATHOR BETWEEN TO_DATE('01/01/2009 00:00:00','DD/MM/YYYY HH24:MI:SS') AND TO_DATE('31/01/2009 23:59:59','DD/MM/YYYY HH24:MI:SS');
DELETE FROM TW_IVE_FIS;
INSERT INTO TW_IVE_FIS
(SESSION_ID,
CODFIL, SEQUEN, NUMNOT, CODSER, NUMITE, CODCOR, CODMAT, CODTAM, VLRMOV, TIPPRO, QTDMOV,
LANEST, FILMAT, SITKIT, SITMOV, NUMORI, ITEORI, VEN_DATHOR, REDITE, DUMMY, ICMTIP,
NUMEXT, EMBORI, EMBQTD, TAX001, TAX002, TIP001, VLR001, VLR002, COMISS, VINCUL, EXPORT,
REDVLR, ITELIQ, NATFIS, BASICM, OUTRAS, BASINT, CODCST, VLRFRE, ICMFRE, VLRSEG, ICMSEG, OUTTAX,
ICMTAX)
SELECT (SELECT USERENV('SESSIONID' ) FROM DUAL) AS SESSION_ID,
IVE.CODFIL, IVE.SEQUEN, IVE.NUMNOT, IVE.CODSER, IVE.NUMITE, IVE.CODCOR, IVE.CODMAT, IVE.CODTAM, IVE.VLRMOV, IVE.TIPPRO,
IVE.QTDMOV, IVE.LANEST, IVE.FILMAT, IVE.SITKIT, IVE.SITMOV, IVE.NUMORI, IVE.ITEORI, IVE.VEN_DATHOR, IVE.REDITE, IVE.DUMMY,
IVE.ICMTIP, IVE.NUMEXT, IVE.EMBORI, IVE.EMBQTD, IVE.TAX001, IVE.TAX002, IVE.TIP001, IVE.VLR001, IVE.VLR002, IVE.COMISS, IVE.VINCUL,
IVE.EXPORT, IVE.REDVLR, IVE.ITELIQ, IVE.NATFIS, IVE.BASICM, IVE.OUTRAS, IVE.BASINT, IVE.CODCST, IVE.VLRFRE, IVE.ICMFRE, IVE.VLRSEG,
IVE.ICMSEG, IVE.OUTTAX, IVE.ICMTAX
FROM TV_IVE_FIS IVE
WHERE IVE.CODFIL = '001'
AND IVE.TIPPRO <> '1';
Notas de Entrada [4.4H]
DELETE FROM TW_COM_FIS;
INSERT INTO TW_COM_FIS
(SESSION_ID,
CODFIL,SEQUEN,ATU_EM,CODUSU,DATCMP,DESCON,DATOPE,VLRTOT,VLRLIQ,TIPPAR,TIPNOT,SIGNAT,MOEJUR,
INTPMU,INTPJU,INCOJU,FLGEST,FILUSU,FILFOR,CODSET,QTDTOT,OUTTAX,NUMNOT,CODFOR,CODMOE,CODSER,
NOTESP,SEQCAN,SEQFRE,SUBSER,SEQFAT,VLTXJU,VLTXMU,SUBSTT,CONPGT,NATURE,OBSERV,ESPDOC,FILCTA,
SEQCTA,TIPCTA,VLRBON,UFNOTA,NUMVOL,FILEND,NUMEND,PERICM,VLRICM,BASICM,PERFRE,BASFRE,ICMFRE, NUMDOC, INSEST, ISEICM, OUTICM, MODNOT, BASSUB, VLRFRE)
SELECT (SELECT USERENV('SESSIONID') FROM DUAL) AS SESSION_ID,
COM.CODFIL,COM.SEQUEN,COM.ATU_EM,COM.CODUSU,COM.DATCMP,COM.DESCON,COM.DATOPE,COM.VLRTOT,COM.VLRLIQ,COM.TIPPAR,COM.TIPNOT,COM.SIGNAT,COM.MOEJUR,
COM.INTPMU,COM.INTPJU,COM.INCOJU,COM.FLGEST,COM.FILUSU,COM.FILFOR,COM.CODSET,COM.QTDTOT,COM.OUTTAX,COM.NUMNOT,COM.CODFOR,COM.CODMOE,TRIM(FIS.SEREXP),
COM.NOTESP,COM.SEQCAN,COM.SEQFRE,COM.SUBSER,COM.SEQFAT,COM.VLTXJU,COM.VLTXMU,COM.SUBSTT,COM.CONPGT,DCFO.CODCFO AS NATURE,COM.OBSERV,COM.ESPDOC,COM.FILCTA,
COM.SEQCTA,COM.TIPCTA,COM.VLRBON,COALESCE(COM.UFNOTA,ENDE.SIGEST) AS UFNOTA,COM.NUMVOL,COM.FILEND,COM.NUMEND,COM.PERICM,COM.VLRICM, CASE WHEN COM.PERICM > 0 THEN ROUND(((COM.VLRICM * 100) / COM.PERICM),2) ELSE 0 END AS BASICM, COM.PERFRE,
COM.BASFRE,
COM.ICMFRE,
LPAD(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(COALESCE(LTRIM(RTRIM(COALESCE(ENDE.NUMDOC,COALESCE(CFO.NUMDOC,VIN.NUMDOC)))),'0'),',',''),'.',''),'/',''),'-',''),' ',''),14,'0') AS CGC,
RPAD(REPLACE(REPLACE(REPLACE(REPLACE(COALESCE(CASE CFO.FLGTIP WHEN 0 THEN 'ISENTO'
ELSE LTRIM(RTRIM(COALESCE(ENDE.INSEST,COALESCE(CFO.INSEST,VIN.INSEST))))
END , ' '), ',', ''), '.', ''), '/', ''), '-', ''), 14, ' ') AS IE,
COM.ISEICM, COM.OUTICM,
CASE WHEN FIS.MODNOT IS NULL THEN DCFO.CFOMOD ELSE FIS.MODNOT END AS MODNOT,
COM.BASSUB, COALESCE(COM.VLRFRE,0) AS VLRFRE
FROM (SELECT DISTINCT CODSER, CASE WHEN LPAD(SUBSER,3,' ') = ' ' THEN '$$$' ELSE SUBSER END AS SUBSER, SEREXP, SUBEXP, MODNOT
FROM TT_FIS
WHERE ORIGEM = 'C'
AND EXPORT = 'T') FIS INNER JOIN TV_CMP COM ON FIS.CODSER = COM.CODSER
AND FIS.SUBSER = COALESCE(COM.SUBSER,'$$$')
INNER JOIN TT_CLI CFO ON CFO.FILCLI = COM.FILFOR AND CFO.CODCLI = COM.CODFOR
LEFT OUTER JOIN TT_CLI VIN ON VIN.FILCLI = CFO.FILVIN AND VIN.CODCLI = CFO.CODVIN
LEFT OUTER JOIN TD_CFO DCFO ON COM.CODCFO = DCFO.CODTAB
LEFT OUTER JOIN TT_END ENDE ON ENDE.FILCLI = COM.FILFOR
AND ENDE.CODCLI = COM.CODFOR
AND ENDE.CODFIL = COALESCE(COM.FILEND,ENDE.CODFIL)
AND ENDE.NUMEND = COALESCE(COM.NUMEND,1)
WHERE COM.CODFIL = '001'
AND COALESCE(COM.TIPPAR,'F') <> 'T'
AND COM.DATOPE BETWEEN TO_DATE('01/01/2009 00:00:00','DD/MM/YYYY HH24:MI:SS') AND TO_DATE('31/01/2009 23:59:59','DD/MM/YYYY HH24:MI:SS');
DELETE FROM TW_ICO_FIS;
INSERT INTO TW_ICO_FIS
(SESSION_ID,
CODFIL,SEQUEN,NUMITE,CODCOR,CODMAT,CODMOE,FILMAT,CODTAM,VLRMOV,TIPPRO,SITMOV,QTDMOV,
LANEST,COM_DATOPE,CUSANT,CUSREP,VLRCAL,PERLUC,PREATU,PREANT,IPIITE,ICMITE,BASICM,VLRICM,OUTICM,ISEICM,DATANT,
DUMMY,EMBORI,EMBQTD,QTDCOM,UNICOM,UNIVEN,VALCON,CODBUS,NATURE,ICMTIP, VLRIPI, MODNOT)
SELECT (SELECT USERENV('SESSIONID') FROM DUAL) AS SESSION_ID,
ICO.CODFIL,ICO.SEQUEN,ICO.NUMITE,ICO.CODCOR,ICO.CODMAT,ICO.CODMOE,ICO.FILMAT,ICO.CODTAM,ICO.VLRMOV,ICO.TIPPRO,ICO.SITMOV,ICO.QTDMOV,
ICO.LANEST,ICO.COM_DATOPE,ICO.CUSANT,ICO.CUSREP,ICO.VLRCAL,ICO.PERLUC,ICO.PREATU,ICO.PREANT,ICO.IPIITE,ICO.ICMITE,ICO.BASICM,ICO.VLRICM,ICO.OUTICM,ICO.ISEICM,ICO.DATANT,
ICO.DUMMY,ICO.EMBORI,ICO.EMBQTD,ICO.QTDCOM,ICO.UNICOM,ICO.UNIVEN,ICO.VALCON,ICO.CODBUS, CFO.CODCFO AS NATURE,ICO.ICMTIP, COALESCE(ICO.VLRIPI,0),
CASE WHEN FIS.MODNOT IS NULL THEN CFO.CFOMOD ELSE FIS.MODNOT END AS MODNOT
FROM (SELECT DISTINCT CODSER, CASE WHEN LPAD(SUBSER,3,' ') = ' ' THEN '$$$' ELSE SUBSER END AS SUBSER, SEREXP, SUBEXP, MODNOT
FROM TT_FIS
WHERE ORIGEM = 'C'
AND EXPORT = 'T') FIS INNER JOIN TV_CMP COM ON FIS.CODSER = COM.CODSER
AND FIS.SUBSER = COALESCE(COM.SUBSER,'$$$')
LEFT OUTER JOIN TT_ICO ICO ON ICO.CODFIL = COM.CODFIL AND ICO.SEQUEN = COM.SEQUEN
LEFT OUTER JOIN TD_CFO CFO ON ICO.CODCFO = CFO.CODTAB
WHERE ICO.CODFIL = '001'
AND COALESCE(COM.TIPPAR,'F') <> 'T'
AND COM.DATOPE BETWEEN TO_DATE('01/01/2009 00:00:00','DD/MM/YYYY HH24:MI:SS') AND TO_DATE('31/01/2009 23:59:59','DD/MM/YYYY HH24:MI:SS');
Notas de Entrada [4.5A até 4.5B]
DELETE FROM TW_COM_FIS;
INSERT INTO TW_COM_FIS
(SESSION_ID,
CODFIL,SEQUEN,ATU_EM,CODUSU,DATCMP,DESCON,DATOPE,VLRTOT,VLRLIQ,TIPPAR,TIPNOT,SIGNAT,MOEJUR,
INTPMU,INTPJU,INCOJU,FLGEST,FILUSU,FILFOR,CODSET,QTDTOT,OUTTAX,NUMNOT,CODFOR,CODMOE,CODSER,
NOTESP,SEQCAN,SEQFRE,SUBSER,SEQFAT,VLTXJU,VLTXMU,SUBSTT,CONPGT,NATURE,OBSERV,ESPDOC,FILCTA,
SEQCTA,TIPCTA,VLRBON,UFNOTA,NUMVOL,FILEND,NUMEND,PERICM,VLRICM,BASICM,PERFRE,BASFRE,ICMFRE,
NUMDOC,INSEST,ISEICM,OUTICM,MODNOT,BASSUB,VLRFRE,VLRRET,VLRIPI,FILFRE
)
SELECT (SELECT USERENV('SESSIONID') FROM DUAL) AS SESSION_ID,
COM.CODFIL,COM.SEQUEN,COM.ATU_EM,COM.CODUSU,COM.DATCMP,COM.DESCON,COM.DATOPE,COM.VLRTOT,COM.VLRLIQ,COM.TIPPAR,COM.TIPNOT,COM.SIGNAT,COM.MOEJUR,
COM.INTPMU,COM.INTPJU,COM.INCOJU,COM.FLGEST,COM.FILUSU,COM.FILFOR,COM.CODSET,COM.QTDTOT,COM.OUTTAX,COM.NUMNOT,COM.CODFOR,COM.CODMOE,TRIM(FIS.SEREXP),
COM.NOTESP,COM.SEQCAN,COM.SEQFRE,COM.SUBSER,COM.SEQFAT,COM.VLTXJU,COM.VLTXMU,COM.SUBSTT,COM.CONPGT,DCFO.CODCFO AS NATURE,COM.OBSERV,COM.ESPDOC,COM.FILCTA,
COM.SEQCTA,COM.TIPCTA,COM.VLRBON,COALESCE(COM.UFNOTA,ENDE.SIGEST) AS UFNOTA,COM.NUMVOL,COM.FILEND,COM.NUMEND,COM.PERICM,COM.VLRICM, CASE WHEN COM.PERICM > 0 THEN ROUND(((COM.VLRICM * 100) / COM.PERICM),2) ELSE 0 END AS BASICM, COM.PERFRE,
COM.BASFRE,
COM.ICMFRE,
LPAD(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(COALESCE(LTRIM(RTRIM(COALESCE(ENDE.NUMDOC,COALESCE(CFO.NUMDOC,VIN.NUMDOC)))),'0'),',',''),'.',''),'/',''),'-',''),' ',''),14,'0') AS CGC,
RPAD(REPLACE(REPLACE(REPLACE(REPLACE(COALESCE(CASE CFO.FLGTIP WHEN 0 THEN 'ISENTO'
ELSE LTRIM(RTRIM(COALESCE(ENDE.INSEST,COALESCE(CFO.INSEST,VIN.INSEST))))
END , ' '), ',', ''), '.', ''), '/', ''), '-', ''), 14, ' ') AS IE,
COM.ISEICM, COM.OUTICM,
CASE WHEN FIS.MODNOT IS NULL THEN DCFO.CFOMOD ELSE FIS.MODNOT END AS MODNOT,
COM.BASSUB, COALESCE(COM.VLRFRE,0) AS VLRFRE,
COALESCE(COM.VLRRET,0) AS VLRRET,
COALESCE(COM.VLRIPI,0) AS VLRIPI,
COM.FILFRE
FROM (SELECT CODSER, CASE WHEN LPAD(SUBSER,3,' ') = ' ' THEN '$$$' ELSE SUBSER END AS SUBSER, SEREXP, SUBEXP, MODNOT
FROM TT_FIS
WHERE ORIGEM = 'C'
AND EXPORT = 'T') FIS INNER JOIN TV_CMP COM ON FIS.CODSER = COM.CODSER
AND FIS.SUBSER = COALESCE(COM.SUBSER,'$$$')
INNER JOIN TT_CLI CFO ON CFO.FILCLI = COM.FILFOR AND CFO.CODCLI = COM.CODFOR
LEFT OUTER JOIN TT_CLI VIN ON VIN.FILCLI = CFO.FILVIN AND VIN.CODCLI = CFO.CODVIN
LEFT OUTER JOIN TD_CFO DCFO ON COM.CODCFO = DCFO.CODTAB
LEFT OUTER JOIN TT_END ENDE ON ENDE.FILCLI = COM.FILFOR
AND ENDE.CODCLI = COM.CODFOR
AND ENDE.CODFIL = COALESCE(COM.FILEND,ENDE.CODFIL)
AND ENDE.NUMEND = COALESCE(COM.NUMEND,1)
WHERE COM.CODFIL = '001'
AND COALESCE(COM.TIPPAR,'F') <> 'T'
AND COM.DATOPE BETWEEN TO_DATE('01/06/2009 00:00:00','DD/MM/YYYY HH24:MI:SS') AND TO_DATE('30/06/2009 23:59:59','DD/MM/YYYY HH24:MI:SS');
DELETE FROM TW_ICO_FIS;
INSERT INTO TW_ICO_FIS
(SESSION_ID,
CODFIL,SEQUEN,NUMITE,CODCOR,CODMAT,CODMOE,FILMAT,CODTAM,VLRMOV,TIPPRO,SITMOV,QTDMOV,
LANEST,COM_DATOPE,CUSANT,CUSREP,VLRCAL,PERLUC,PREATU,PREANT,IPIITE,ICMITE,BASICM,VLRICM,OUTICM,ISEICM,DATANT,
DUMMY,EMBORI,EMBQTD,QTDCOM,UNICOM,UNIVEN,VALCON,CODBUS,NATURE,ICMTIP, VLRIPI, MODNOT,
MVACOM, RETSUB
)
SELECT (SELECT USERENV('SESSIONID') FROM DUAL) AS SESSION_ID,
ICO.CODFIL,ICO.SEQUEN,ICO.NUMITE,ICO.CODCOR,ICO.CODMAT,ICO.CODMOE,ICO.FILMAT,ICO.CODTAM,ICO.VLRMOV,ICO.TIPPRO,ICO.SITMOV,ICO.QTDMOV,
ICO.LANEST,ICO.COM_DATOPE,ICO.CUSANT,ICO.CUSREP,ICO.VLRCAL,ICO.PERLUC,ICO.PREATU,ICO.PREANT,ICO.IPIITE,ICO.ICMITE,ICO.BASICM,ICO.VLRICM,ICO.OUTICM,ICO.ISEICM,ICO.DATANT,
ICO.DUMMY,ICO.EMBORI,ICO.EMBQTD,ICO.QTDCOM,ICO.UNICOM,ICO.UNIVEN,ICO.VALCON,ICO.CODBUS, CFO.CODCFO AS NATURE,ICO.ICMTIP, COALESCE(ICO.VLRIPI,0) AS VLRIPI,
CASE WHEN FIS.MODNOT IS NULL THEN CFO.CFOMOD ELSE FIS.MODNOT END AS MODNOT,
COALESCE(ICO.MVACOM,0) AS MVACOM, ICO.RETSUB
FROM (SELECT CODSER, CASE WHEN LPAD(SUBSER,3,' ') = ' ' THEN '$$$' ELSE SUBSER END AS SUBSER, SEREXP, SUBEXP, MODNOT
FROM TT_FIS
WHERE ORIGEM = 'C'
AND EXPORT = 'T') FIS INNER JOIN TV_CMP COM ON FIS.CODSER = COM.CODSER
AND FIS.SUBSER = COALESCE(COM.SUBSER,'$$$')
LEFT OUTER JOIN TT_ICO ICO ON ICO.CODFIL = COM.CODFIL AND ICO.SEQUEN = COM.SEQUEN
LEFT OUTER JOIN TD_CFO CFO ON ICO.CODCFO = CFO.CODTAB
WHERE ICO.CODFIL = '001'
AND COALESCE(COM.TIPPAR,'F') <> 'T'
AND COM.DATOPE BETWEEN TO_DATE('01/06/2009 00:00:00','DD/MM/YYYY HH24:MI:SS') AND TO_DATE('30/06/2009 23:59:59','DD/MM/YYYY HH24:MI:SS');
Notas de Entrada [4.5C até versão atual]
DELETE FROM TW_COM_FIS;
INSERT INTO TW_COM_FIS
(SESSION_ID,
CODFIL,SEQUEN,ATU_EM,CODUSU,DATCMP,DESCON,DATOPE,VLRTOT,VLRLIQ,TIPPAR,TIPNOT,SIGNAT,MOEJUR,
INTPMU,INTPJU,INCOJU,FLGEST,FILUSU,FILFOR,CODSET,QTDTOT,OUTTAX,NUMNOT,CODFOR,CODMOE,CODSER,
NOTESP,SEQCAN,SEQFRE,SUBSER,SEQFAT,VLTXJU,VLTXMU,SUBSTT,CONPGT,NATURE,OBSERV,ESPDOC,FILCTA,
SEQCTA,TIPCTA,VLRBON,UFNOTA,NUMVOL,FILEND,NUMEND,PERICM,VLRICM,BASICM,PERFRE,BASFRE,ICMFRE,
NUMDOC,INSEST,ISEICM,OUTICM,MODNOT,BASSUB,VLRFRE,VLRRET,VLRIPI,FILFRE,BASRET
)
SELECT (SELECT USERENV('SESSIONID') FROM DUAL) AS SESSION_ID,
COM.CODFIL,COM.SEQUEN,COM.ATU_EM,COM.CODUSU,COM.DATCMP,COM.DESCON,COM.DATOPE,COM.VLRTOT,COM.VLRLIQ,COM.TIPPAR,COM.TIPNOT,COM.SIGNAT,COM.MOEJUR,
COM.INTPMU,COM.INTPJU,COM.INCOJU,COM.FLGEST,COM.FILUSU,COM.FILFOR,COM.CODSET,COM.QTDTOT,COM.OUTTAX,COM.NUMNOT,COM.CODFOR,COM.CODMOE,TRIM(FIS.SEREXP),
COM.NOTESP,COM.SEQCAN,COM.SEQFRE,COM.SUBSER,COM.SEQFAT,COM.VLTXJU,COM.VLTXMU,COM.SUBSTT,COM.CONPGT,DCFO.CODCFO AS NATURE,COM.OBSERV,COM.ESPDOC,COM.FILCTA,
COM.SEQCTA,COM.TIPCTA,COM.VLRBON,COALESCE(COM.UFNOTA,ENDE.SIGEST) AS UFNOTA,COM.NUMVOL,COM.FILEND,COM.NUMEND,COM.PERICM,COM.VLRICM, CASE WHEN COM.PERICM > 0 THEN ROUND(((COM.VLRICM * 100) / COM.PERICM),2) ELSE 0 END AS BASICM, COM.PERFRE,
COM.BASFRE,
COM.ICMFRE,
LPAD(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(COALESCE(LTRIM(RTRIM(COALESCE(ENDE.NUMDOC,COALESCE(CFO.NUMDOC,VIN.NUMDOC)))),'0'),',',''),'.',''),'/',''),'-',''),' ',''),14,'0') AS CGC,
RPAD(REPLACE(REPLACE(REPLACE(REPLACE(COALESCE(CASE CFO.FLGTIP WHEN 0 THEN 'ISENTO'
ELSE LTRIM(RTRIM(COALESCE(ENDE.INSEST,COALESCE(CFO.INSEST,VIN.INSEST))))
END , ' '), ',', ''), '.', ''), '/', ''), '-', ''), 14, ' ') AS IE,
COM.ISEICM, COM.OUTICM,
CASE WHEN FIS.MODNOT IS NULL THEN DCFO.CFOMOD ELSE FIS.MODNOT END AS MODNOT,
COM.BASSUB, COALESCE(COM.VLRFRE,0) AS VLRFRE,
COALESCE(COM.VLRRET,0) AS VLRRET,
COALESCE(COM.VLRIPI,0) AS VLRIPI,
COM.FILFRE, COM.BASRET
FROM (SELECT DISTINCT CODSER, CASE WHEN LPAD(SUBSER,3,' ') = ' ' THEN '$$$' ELSE SUBSER END AS SUBSER, SEREXP, SUBEXP, MODNOT
FROM TT_FIS
WHERE ORIGEM IN ('C','F')
AND EXPORT = 'T') FIS INNER JOIN TV_CMP COM ON FIS.CODSER = COM.CODSER
AND FIS.SUBSER = COALESCE(COM.SUBSER,'$$$')
INNER JOIN TT_CLI CFO ON CFO.FILCLI = COM.FILFOR AND CFO.CODCLI = COM.CODFOR
LEFT OUTER JOIN TT_CLI VIN ON VIN.FILCLI = CFO.FILVIN AND VIN.CODCLI = CFO.CODVIN
LEFT OUTER JOIN TD_CFO DCFO ON COM.CODCFO = DCFO.CODTAB
LEFT OUTER JOIN TT_END ENDE ON ENDE.FILCLI = COM.FILFOR
AND ENDE.CODCLI = COM.CODFOR
AND ENDE.CODFIL = COALESCE(COM.FILEND,ENDE.CODFIL)
AND ENDE.NUMEND = COALESCE(COM.NUMEND,1)
WHERE COM.CODFIL = '001'
AND COM.DATOPE BETWEEN TO_DATE('01/07/2009 00:00:00','DD/MM/YYYY HH24:MI:SS') AND TO_DATE('31/07/2009 23:59:59','DD/MM/YYYY HH24:MI:SS');
DELETE FROM TW_ICO_FIS;
INSERT INTO TW_ICO_FIS
(SESSION_ID,
CODFIL,SEQUEN,NUMITE,CODCOR,CODMAT,CODMOE,FILMAT,CODTAM,VLRMOV,TIPPRO,SITMOV,QTDMOV,
LANEST,COM_DATOPE,CUSANT,CUSREP,VLRCAL,PERLUC,PREATU,PREANT,IPIITE,ICMITE,BASICM,VLRICM,OUTICM,ISEICM,DATANT,
DUMMY, EMBORI,EMBQTD,QTDCOM,UNICOM,UNIVEN,VALCON,CODBUS,NATURE,ICMTIP,VLRIPI,MODNOT,
MVACOM,RETSUB,ICO_BASRET,ICO_VLRRET,ICO_VLRFRE,ICO_OUTTAX,IPIFRE
)
SELECT (SELECT USERENV('SESSIONID') FROM DUAL) AS SESSION_ID,
ICO.CODFIL,ICO.SEQUEN,ICO.NUMITE,ICO.CODCOR,ICO.CODMAT,ICO.CODMOE,ICO.FILMAT,ICO.CODTAM,ICO.VLRMOV,ICO.TIPPRO,ICO.SITMOV,ICO.QTDMOV,
ICO.LANEST,ICO.COM_DATOPE,ICO.CUSANT,ICO.CUSREP,ICO.VLRCAL,ICO.PERLUC,ICO.PREATU,ICO.PREANT,ICO.IPIITE,ICO.ICMITE,ICO.BASICM,ICO.VLRICM,ICO.OUTICM,ICO.ISEICM,ICO.DATANT,
ICO.DUMMY,ICO.EMBORI,ICO.EMBQTD,ICO.QTDCOM,ICO.UNICOM,ICO.UNIVEN,ICO.VALCON,ICO.CODBUS, CFO.CODCFO AS NATURE,ICO.ICMTIP, COALESCE(ICO.VLRIPI,0) AS VLRIPI,
CASE WHEN FIS.MODNOT IS NULL THEN CFO.CFOMOD ELSE FIS.MODNOT END AS MODNOT,
COALESCE(ICO.MVACOM,0) AS MVACOM, ICO.RETSUB,
ICO.ICO_BASRET, ICO.ICO_VLRRET, ICO.ICO_VLRFRE, ICO.ICO_OUTTAX, ICO.IPIFRE
FROM (SELECT DISTINCT CODSER, CASE WHEN LPAD(SUBSER,3,' ') = ' ' THEN '$$$' ELSE SUBSER END AS SUBSER, SEREXP, SUBEXP, MODNOT
FROM TT_FIS
WHERE ORIGEM IN ('C','F')
AND EXPORT = 'T') FIS INNER JOIN TV_CMP COM ON FIS.CODSER = COM.CODSER
AND FIS.SUBSER = COALESCE(COM.SUBSER,'$$$')
LEFT OUTER JOIN TT_ICO ICO ON ICO.CODFIL = COM.CODFIL AND ICO.SEQUEN = COM.SEQUEN
LEFT OUTER JOIN TD_CFO CFO ON ICO.CODCFO = CFO.CODTAB
WHERE ICO.CODFIL = '001'
AND COM.DATOPE BETWEEN TO_DATE('01/07/2009 00:00:00','DD/MM/YYYY HH24:MI:SS') AND TO_DATE('31/07/2009 23:59:59','DD/MM/YYYY HH24:MI:SS');
