Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 04/11/2008 00:00:00
Data/Hora Última Alteração: 03/11/2011 09:53:08
Descrição da Nota: QUEBRA DE ADIÇÕES CONSIDERA QUANTIDADES DE ANTIDUMP DIFERENTES
Sintoma
quebra de adições considera quantidades de antidump diferentes
Solução
não verificar se quantidade é diferente.
7.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07524 Data: 04/11/2008 Hora: 14:57:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07524
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00072
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02379 - 00001 - 6.0 - 00025 - NÃO ESTÁ ATUALIZANDO TEXTO DO FUNDAMENTO LEGAL NA DI
02419 - 00002 - 6.0 - 00025 - OS PROCESSOS ANTIGOS EMITEM MSG DE ERRO PARA SUSPENSAO DO ICMS
02453 - 00003 - 6.0 - 00025 - O VALOR DO RATEIO DO FRETE NA DI GRANEL ESTÁ CALCULADO ERRADO.
02503 - 00004 - 6.0 - 00025 - O VALOR DO SEGURO ESTÁ ENTRANDO DUAS VEZES NO VALOR ADUANEIRO DA
02662 - 00005 - 6.0 - 00025 - VALOR DO SEGURO ERRADO
02695 - 00006 - 6.0 - 00025 - VARIAÇÃO CAMBIAL VALOR INCORRETO - FOB INCORRETO - GRANEL
02706 - 00007 - 6.0 - 00025 - AJUSTE NO FOB E DUMP AO GERAR DI
02727 - 00008 - 6.0 - 00025 - RESUMO DOCUMENTOS, VARIAÇÃO CAMBIA DESCRIÇÃO ERRADA
02778 - 00009 - 6.0 - 00026 - AJUSTE PARA NÃO RECLASSIFICAR IA NA DI PARA EMBARQUES A GRANEL.
02830 - 00010 - 6.0 - 00026 - AJUSTES PARA SOMA DE DESPESAS COM BASE DE II NA MENSAGEM DA NF
02971 - 00011 - 6.0 - 00026 - NECESSÁRIO ORDENAR ITENS DA DI DE ACORDO COM NCM X ADIÇÃO.
03064 - 00012 - 6.0 - 00026 - EM PROCESSOS COM AC ISENÇÃO, DI DEVE PROPOR RECOLHIMENTO INTEGRAL
03146 - 00013 - 6.0 - 00026 - CRIAÇÃO DE TRATAMENTO PARA REG. TIB. NÃO INCIDENCIA
03244 - 00014 - 6.0 - 00026 - AJUSTE PARA CALCULAR O SEGURO
03266 - 00015 - 6.0 - 00026 - DI REDUÇÃO DE IMPOSTOS E O VALOR A RECOLHER DO IPI COM REDUÇÃO ES
03303 - 00016 - 7.0 - 00001 - VERIFICAR A TABELA ZYCIT062 PARA TRATAR NÃO INCIDÊNCIA NA DI
03377 - 00017 - 7.0 - 00001 - DI ESTÁ QUEBRANDO OS ITENS EM MAIS ADIÇÕES DO QUE NECESSÁRIO
03477 - 00018 - 7.0 - 00001 - TAXA DE CONVERSÃO PARA MOEDA LOCAL NA DI/DA
03559 - 00019 - 7.0 - 00001 - AJUSTE NO MATCHCODE DO FUNDAMENTO LEGAL PIS/COFINS
03633 - 00020 - 7.0 - 00001 - DESCRIÇÃO DO ÍTEM GENÉRICO NA DI E LI, DETALHE DO ITEM
03821 - 00021 - 7.0 - 00001 - ERROS COM TIPO DE FABRICANTE NA FATURA, DI E TRANSMISSÃO SISCOMEX
03916 - 00022 - 7.0 - 00001 - PROBLEMA COM O RATEIO DA DESPESA DE ARMAZENAGEM
04005 - 00023 - 7.0 - 00001 - OS VALORES DOS IMPOSTOS SE MODIFICAM DEVIDO AO REGIME ESTAR EM BR
04009 - 00024 - 7.0 - 00001 - ERRO NO CÁLCULO DE DESPESAS E VALORES DA NF UTILIZANDO GRANEL + C
04011 - 00025 - 7.0 - 00001 - AO FAZER A VARIAÇÃO CAMBIAL DA DI, LEVA VALOR INCORRETO.
04140 - 00026 - 7.0 - 00002 - RATEIO DO SEGURO NA DI DEVE SER PELO VALOR FOB
04153 - 00027 - 7.0 - 00002 - DI NACIONALIZAÇÃO BANCO/AGÊNCIA/CONTA
04213 - 00028 - 7.0 - 00002 - DECLARAÇÃO DE IMPORTAÇÃO - CAMPO ITEM ADIÇÃO SISCOMEX
04349 - 00029 - 7.0 - 00002 - NA DI, QUANDO HÁ MAIS DE 2 ADIÇÕES, REPETE O NÚMERO DOS ITENS
04532 - 00030 - 7.0 - 00002 - BANCO - DI NACIONALIZAÇÃO - PASTA PAGAMENTOS
04644 - 00031 - 7.0 - 00002 - ERRO DI JPY + GRANEL NO VALOR DO SEGURO E VARIAÇÃO DO RODOVIÁRIO
04750 - 00032 - 7.0 - 00002 - ERRO RATEIO DESPESAS, VARIAÇÃO CAMBIAL, VLR DO SEGURO, GRANEL DA
04859 - 00033 - 7.0 - 00003 - NECESSÁRIO COMPATILHAR O TIPO DA DI PARA USO DA EXIT
05046 - 00034 - 7.0 - 00003 - NO REGIME 05 ADMISSÃO TEMPORÁRIA O REGIME TRIBUTÁRIO NA DI SERA S
05322 - 00035 - 7.0 - 00003 - FUNDAMENTO LEGAL DE PIS/COFINS NÃO ESTAVA BUSCANDO NA TABELA ZYCI
05335 - 00036 - 7.0 - 00003 - QUANDO PREENCHEMOS PORCENTAGEM DE ACORDO, NÃO RECALCULA IMPOSTOS
05338 - 00037 - 7.0 - 00003 - NÃO QUEBRAR A ADIÇÃO DA DI POR CONDIÇÃO DE PAGAMENTO
05383 - 00038 - 7.0 - 00003 - ABERTURA DE EXIT PARA CÁLCULO DE ICMS
05386 - 00039 - 7.0 - 00003 - DESENVOLVIMENTO ADMISSÃO TEMPORÁRIA ICMS, PIS E COFINS
05399 - 00040 - 7.0 - 00003 - DI O FUNDAP PARA ICMS ESTÁ UTILIZANDO REGIME DE TRIBUTAÇÃO DO PIS
05409 - 00041 - 7.0 - 00003 - AO ALTERAR DI NÃO INCLUI TAXA SISCOMEX NA BASE DE ICMS
05431 - 00042 - 7.0 - 00003 - AJUSTADO REATEIO DO SEGURO NA DI PARA PROCESSOS CIF
05477 - 00043 - 7.0 - 00003 - AJUSTADO RATEIO DO SEGURO PARA PROCESSOS CIF A GRANEL
05518 - 00044 - 7.0 - 00004 - ADMISSÃO TEMPORÁRIA O SISTEMA NÃO ESTÁ REDUZINDO AS ALIQUOTAS PIS
05608 - 00045 - 7.0 - 00004 - CORREÇÃO DE CALCULO DA BASE DE II
05621 - 00046 - 7.0 - 00004 - A DESCRIÇÃO DO PRIMEIRO ITEN DA ADIÇÃO É COPIADA PARA OS DEMAIS I
05643 - 00047 - 7.0 - 00004 - PADRONIZAÇÃO - CODE INSPECTOR DI
05663 - 00048 - 7.0 - 00004 - AO CRIAR DI COM REGIME DE ADMISSÃO TEMPORÁRIA, PROPOR SUSPENSO
05883 - 00049 - 7.0 - 00004 - RATEIO DO SEGURO PARA ITENS COM MOEDAS DIFERENTES
05898 - 00050 - 7.0 - 00004 - VERIFICAÇÃO DO VALOR DO FRETE NA DI
05951 - 00051 - 7.0 - 00004 - SISTEMA RECLAMA DE DIFERENÇA DE DECIMAIS AO CRIAR FATURA.
05985 - 00052 - 7.0 - 00004 - AJUSTE NO RATEIO DO SEGURO DA DI
06042 - 00053 - 7.0 - 00004 - MENSAGEM DE ERRO NO FUNDAMENTO LEGAL DE ICMS APESAR DE ESTAR CORR
06086 - 00054 - 7.0 - 00004 - O PROGRAMA NÃO ESTA CALCULANDO A PORCENTAGEM DO ANTIDUMPING NA DI
06176 - 00055 - 7.0 - 00004 - AJUSTES PARA TRATAMENTOS DE IPI ISENÇÃO, COURIER E GRANEL NA DI E
06284 - 00056 - 7.0 - 00005 - DESENVOLVIMENTO PARA MEMÓRIA DE CÁLCULO NA PASTA COMPLEMENTARES
06431 - 00057 - 7.0 - 00005 - CRIADO NOVOS CAMPOS NO SISCOMEX E DI PARA ATUALIZAÇÃO DE TRANSMIS
06440 - 00058 - 7.0 - 00005 - DESENVOLVIMENTO DE FUNCIONALIDADE DE RETIFICAÇÃO DA DI
06459 - 00059 - 7.0 - 00005 - NECESSÁRIO CRIAÇÃO DE CAMPO HORA DE CRIAÇÃO E ALTERAÇÃO DA DI
06475 - 00060 - 7.0 - 00005 - NÃO ATUALIZA VALOR DA FATURA NA PASTA CÂMBIO DA ADIÇÃO DA DI
06524 - 00061 - 7.0 - 00005 - NECESSÁRIO ACRESCENTAR MATERIAL DO ITEM NOS DADOS DA DI
06557 - 00062 - 7.0 - 00005 - AO ALTERAR CÁLCULOS DE PIS E COFINS NOS ITENS, NÃO ATUALIZA CABEÇ
06643 - 00063 - 7.0 - 00005 - NÃO SOMA O FRETE RODOVIÁRIO NO TOTAL DA FATURA DA ADIÇÃO DA DI
06715 - 00064 - 7.0 - 00005 - VALORES DE ACRÉSCIMO E DEDUÇÃO DE DESPESAS ESTÃO INCORRETOS NA AD
06770 - 00065 - 7.0 - 00005 - EMITE MENSAGEM DE TAXA MESMO SEM MOEDA DO SEGURO
06796 - 00066 - 7.0 - 00006 - REGIME 12 NO EMBARQUE NÃO APARECE A ABA ADIMISSÃO TEMPORÁRIA
07023 - 00067 - 7.0 - 00006 - SISTEMA RECLAMA DE DIFERENÇA DE DECIMAIS AO CRIAR FATURA.
07026 - 00068 - 7.0 - 00006 - ARREDONDAMENTO DA NOTA FISCAL VALORES DE IMPOSTOS X BASE DE CÁLCU
07074 - 00069 - 7.0 - 00006 - NECESSÁRIA EXIT PARA CÁLCULOS DA DI.
07075 - 00070 - 7.0 - 00006 - MELHORIA EM CÓDIGO DA DI, CORRIGINDO ERROS DA VERIFICAÇÃO AMPLIAD
07225 - 00071 - 7.0 - 00006 - VALOR DA TOTAL DA MERCADORIA MUDA APÓS SALVAR A DI
07299 - 00072 - 7.0 - 00006 - AJUSTES NOS CÁLCULOS DE IMPOSTOS QUANDO A DI É GRANEL
07368 - 00073 - 7.0 - 00007 - AO ACRESCENTAR DADOS DE ANTIDUMPING E PARÂMETRO NA /PWS/ZYCIT000
07456 - 00074 - 7.0 - 00007 - AO VISUALIZAR RELATÓRIO DE RATEIO, DESPESA ANTIDUMP ESTÁ INCORRET
07466 - 00075 - 7.0 - 00007 - CÁLCULO DAS ALÍQUOTAS PARA PROCESSO DE ADMISSÃO TEMPORÁRIA
07474 - 00076 - 7.0 - 00007 - NÃO ATUALIZA A PASTA DESPESAS APÓS ALTERAR ANTIDUMPING
07493 - 00077 - 7.0 - 00007 - QDO O VALOR DO FRETE É MAIOR QUE O VALOR DA MERCADORIA,DÁ DUMP NA
07507 - 00078 - 7.0 - 00007 - AO ATUALIZAR DADOS LEVA VALOR DE ANTIDUMP PARA ITENS SEM O SERVIÇ
----------------------------------------------------------------------------------------------------
QUEBRA DE ADIÇÕES CONSIDERA QUANTIDADES DE ANTIDUMP DIFERENTES
----------------------------------------------------------------------------------------------------
Palavras Chave:
ADIÇÃO - DI - ANTIDUMP - QUEBRA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
dtregdi = /pws/zycie085-dtreg
adicao = itab_zycit100_t-adicao
WHERE nrseqli = itab_zycit078_t-nrseqli
AND tpli = 'N'.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
READ TABLE itab_it INDEX 1.
* >> Início da exclusão: FORM SAVE_DATA
IF NOT /pws/zycie085-dtreg IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA
IF NOT /pws/zycie085-dtdesemb IS INITIAL AND
* << Fim da inclusão
NOT /pws/zycie085-nrdi IS INITIAL.
PERFORM salva_fatura.
IF NOT itab_it-nrseq IS INITIAL.
UPDATE /pws/zycit001 SET status = 'DS'
WHERE nrseq = itab_it-nrseq.
ENDIF.
ELSE.
IF NOT itab_it-nrseq IS INITIAL.
UPDATE /pws/zycit001 SET status = 'DB'
WHERE nrseq = itab_it-nrseq.
...
...
v_adic = 1.
ENDIF.
CLEAR: v_tabix, v_cont.
LOOP AT itab_it_aux.
IF sy-tabix = 1.
MOVE-CORRESPONDING itab_it_aux TO itab_itb.
ENDIF.
v_tabix = v_tabix + 1.
CLEAR v_flag_quebra.
v_cont = v_cont + 1.
* >> Início da exclusão: FORM ADIC_LIST
IF itab_it_aux-j_1bnbm NE itab_itb-j_1bnbm OR
itab_it_aux-fabric NE itab_itb-fabric OR
itab_it_aux-lifnrfabr NE itab_itb-lifnrfabr OR
itab_it_aux-lifnr NE itab_itb-lifnr OR
itab_it_aux-advalii NE itab_itb-advalii OR
itab_it_aux-advalipi NE itab_itb-advalipi OR
itab_it_aux-naladi NE itab_itb-naladi OR
itab_it_aux-naladincca NE itab_itb-naladincca OR
itab_it_aux-codregtri NE itab_itb-codregtri OR
itab_it_aux-codregtriipi NE itab_itb-codregtriipi OR
itab_it_aux-meinsest NE itab_itb-meinsest OR
itab_it_aux-pproc NE itab_itb-pproc OR
itab_it_aux-nrseqli NE itab_itb-nrseqli OR
itab_it_aux-aplicacao NE itab_itb-aplicacao OR
itab_it_aux-condmerc NE itab_itb-condmerc OR
itab_it_aux-inco1 NE itab_itb-inco1 OR
itab_it_aux-codmat NE itab_itb-codmat OR
itab_it_aux-cacl NE itab_itb-cacl OR
itab_it_aux-codfunleg NE itab_itb-codfunleg OR
itab_it_aux-acordo NE itab_itb-acordo OR
itab_it_aux-acordorate NE itab_itb-acordorate OR
itab_it_aux-reduzida NE itab_itb-reduzida OR
itab_it_aux-percreduz NE itab_itb-percreduz OR
itab_it_aux-notatipi NE itab_itb-notatipi OR
itab_it_aux-percreduzpc NE itab_itb-percreduzpc OR
itab_it_aux-codredpiscofi NE itab_itb-codredpiscofi OR
itab_it_aux-codregtripiscofi NE itab_itb-codregtripiscofi OR
itab_it_aux-codfunlegpiscofi NE itab_itb-codfunlegpiscofi OR
itab_it_aux-reduzidaipi NE itab_itb-reduzidaipi OR
itab_it_aux-unit_valor NE itab_itb-unit_valor OR
itab_it_aux-unit_meins NE itab_itb-unit_meins OR
itab_it_aux-unit_reccapac NE itab_itb-unit_reccapac OR
itab_it_aux-unit_rectipo NE itab_itb-unit_rectipo OR
itab_it_aux-waersbem NE itab_itb-waersbem OR
itab_it_aux-dttaxbem NE itab_itb-dttaxbem OR
itab_it_aux-extarif_al NE itab_itb-extarif_al OR
itab_it_aux-tipo_al NE itab_itb-tipo_al OR
itab_it_aux-orgemiss_al NE itab_itb-orgemiss_al OR
itab_it_aux-numero_al NE itab_itb-numero_al OR
itab_it_aux-anoemiss_al NE itab_itb-anoemiss_al OR
itab_it_aux-ii_extarif NE itab_itb-ii_extarif OR
itab_it_aux-ii_tipo NE itab_itb-ii_tipo OR
itab_it_aux-ii_orgemiss NE itab_itb-ii_orgemiss OR
itab_it_aux-ii_numero NE itab_itb-ii_numero OR
itab_it_aux-ii_anoemiss NE itab_itb-ii_anoemiss OR
itab_it_aux-ipi_extarif NE itab_itb-ipi_extarif OR
itab_it_aux-ipi_tipo NE itab_itb-ipi_tipo OR
itab_it_aux-ipi_orgemiss NE itab_itb-ipi_orgemiss OR
itab_it_aux-ipi_numero NE itab_itb-ipi_numero OR
itab_it_aux-ipi_anoemiss NE itab_itb-ipi_anoemiss OR
itab_it_aux-ad_extarif NE itab_itb-ad_extarif OR
itab_it_aux-ad_tipo NE itab_itb-ad_tipo OR
itab_it_aux-ad_orgemiss NE itab_itb-ad_orgemiss OR
itab_it_aux-ad_numero NE itab_itb-ad_numero OR
itab_it_aux-ad_anoemiss NE itab_itb-ad_anoemiss OR
itab_it_aux-aladi NE itab_itb-aladi OR
itab_it_aux-tribipi NE itab_itb-tribipi OR
itab_it_aux-advalicms NE itab_itb-advalicms OR
itab_it_aux-vlantid NE itab_itb-vlantid OR
itab_it_aux-meinsantid NE itab_itb-meinsantid OR
itab_it_aux-qtdeantid NE itab_itb-qtdeantid OR
itab_it_aux-codcambial NE itab_itb-codcambial OR
* << Fim da exclusão
* >> Início da inclusão: FORM ADIC_LIST
IF itab_it_aux-j_1bnbm NE itab_itb-j_1bnbm .
PERFORM adic_next.
ELSEIF itab_it_aux-fabric NE itab_itb-fabric .
PERFORM adic_next.
ELSEIF itab_it_aux-lifnrfabr NE itab_itb-lifnrfabr .
PERFORM adic_next.
ELSEIF itab_it_aux-lifnr NE itab_itb-lifnr .
PERFORM adic_next.
ELSEIF itab_it_aux-advalii NE itab_itb-advalii .
PERFORM adic_next.
ELSEIF itab_it_aux-advalipi NE itab_itb-advalipi .
PERFORM adic_next.
ELSEIF itab_it_aux-naladi NE itab_itb-naladi .
PERFORM adic_next.
ELSEIF itab_it_aux-naladincca NE itab_itb-naladincca .
PERFORM adic_next.
ELSEIF itab_it_aux-codregtri NE itab_itb-codregtri .
PERFORM adic_next.
ELSEIF itab_it_aux-codregtriipi NE itab_itb-codregtriipi.
PERFORM adic_next.
ELSEIF itab_it_aux-meinsest NE itab_itb-meinsest .
PERFORM adic_next.
ELSEIF itab_it_aux-pproc NE itab_itb-pproc .
PERFORM adic_next.
ELSEIF itab_it_aux-nrseqli NE itab_itb-nrseqli .
PERFORM adic_next.
ELSEIF itab_it_aux-aplicacao NE itab_itb-aplicacao .
PERFORM adic_next.
ELSEIF itab_it_aux-condmerc NE itab_itb-condmerc .
PERFORM adic_next.
ELSEIF itab_it_aux-inco1 NE itab_itb-inco1 .
PERFORM adic_next.
ELSEIF itab_it_aux-codmat NE itab_itb-codmat .
PERFORM adic_next.
ELSEIF itab_it_aux-cacl NE itab_itb-cacl .
PERFORM adic_next.
ELSEIF itab_it_aux-codfunleg NE itab_itb-codfunleg .
PERFORM adic_next.
ELSEIF itab_it_aux-acordo NE itab_itb-acordo .
PERFORM adic_next.
ELSEIF itab_it_aux-acordorate NE itab_itb-acordorate .
PERFORM adic_next.
ELSEIF itab_it_aux-reduzida NE itab_itb-reduzida .
PERFORM adic_next.
ELSEIF itab_it_aux-percreduz NE itab_itb-percreduz .
PERFORM adic_next.
ELSEIF itab_it_aux-notatipi NE itab_itb-notatipi .
PERFORM adic_next.
ELSEIF itab_it_aux-percreduzpc NE itab_itb-percreduzpc .
PERFORM adic_next.
ELSEIF itab_it_aux-codredpiscofi NE itab_itb-codredpiscofi.
PERFORM adic_next.
ELSEIF itab_it_aux-codregtripiscofi NE itab_itb-codregtripiscofi.
PERFORM adic_next.
ELSEIF itab_it_aux-codfunlegpiscofi NE itab_itb-codfunlegpiscofi.
PERFORM adic_next.
ELSEIF itab_it_aux-reduzidaipi NE itab_itb-reduzidaipi .
PERFORM adic_next.
ELSEIF itab_it_aux-unit_valor NE itab_itb-unit_valor .
PERFORM adic_next.
ELSEIF itab_it_aux-unit_meins NE itab_itb-unit_meins .
PERFORM adic_next.
ELSEIF itab_it_aux-unit_reccapac NE itab_itb-unit_reccapac.
* << Fim da inclusão
* >> Início da exclusão: FORM ADIC_LIST
itab_it_aux-inco_item NE itab_itb-inco_item OR
itab_it_aux-paisfab NE itab_itb-paisfab OR
itab_it_aux-tp_certif NE itab_itb-tp_certif .
* << Fim da exclusão
* >> Início da inclusão: FORM ADIC_LIST
PERFORM adic_next.
ELSEIF itab_it_aux-unit_rectipo NE itab_itb-unit_rectipo.
PERFORM adic_next.
ELSEIF itab_it_aux-waersbem NE itab_itb-waersbem .
PERFORM adic_next.
ELSEIF itab_it_aux-dttaxbem NE itab_itb-dttaxbem .
PERFORM adic_next.
ELSEIF itab_it_aux-extarif_al NE itab_itb-extarif_al .
PERFORM adic_next.
ELSEIF itab_it_aux-tipo_al NE itab_itb-tipo_al .
PERFORM adic_next.
ELSEIF itab_it_aux-orgemiss_al NE itab_itb-orgemiss_al .
PERFORM adic_next.
ELSEIF itab_it_aux-numero_al NE itab_itb-numero_al .
PERFORM adic_next.
ELSEIF itab_it_aux-anoemiss_al NE itab_itb-anoemiss_al .
PERFORM adic_next.
ELSEIF itab_it_aux-ii_extarif NE itab_itb-ii_extarif .
PERFORM adic_next.
ELSEIF itab_it_aux-ii_tipo NE itab_itb-ii_tipo .
PERFORM adic_next.
ELSEIF itab_it_aux-ii_orgemiss NE itab_itb-ii_orgemiss .
PERFORM adic_next.
ELSEIF itab_it_aux-ii_numero NE itab_itb-ii_numero .
PERFORM adic_next.
ELSEIF itab_it_aux-ii_anoemiss NE itab_itb-ii_anoemiss .
PERFORM adic_next.
ELSEIF itab_it_aux-ipi_extarif NE itab_itb-ipi_extarif .
PERFORM adic_next.
ELSEIF itab_it_aux-ipi_tipo NE itab_itb-ipi_tipo .
PERFORM adic_next.
ELSEIF itab_it_aux-ipi_orgemiss NE itab_itb-ipi_orgemiss.
PERFORM adic_next.
ELSEIF itab_it_aux-ipi_numero NE itab_itb-ipi_numero .
PERFORM adic_next.
ELSEIF itab_it_aux-ipi_anoemiss NE itab_itb-ipi_anoemiss.
PERFORM adic_next.
ELSEIF itab_it_aux-ad_extarif NE itab_itb-ad_extarif .
PERFORM adic_next.
ELSEIF itab_it_aux-ad_tipo NE itab_itb-ad_tipo .
PERFORM adic_next.
ELSEIF itab_it_aux-ad_orgemiss NE itab_itb-ad_orgemiss .
PERFORM adic_next.
ELSEIF itab_it_aux-ad_numero NE itab_itb-ad_numero .
PERFORM adic_next.
ELSEIF itab_it_aux-ad_anoemiss NE itab_itb-ad_anoemiss .
PERFORM adic_next.
ELSEIF itab_it_aux-aladi NE itab_itb-aladi .
PERFORM adic_next.
ELSEIF itab_it_aux-tribipi NE itab_itb-tribipi .
PERFORM adic_next.
ELSEIF itab_it_aux-advalicms NE itab_itb-advalicms .
PERFORM adic_next.
ELSEIF itab_it_aux-vlantid NE itab_itb-vlantid .
PERFORM adic_next.
ELSEIF itab_it_aux-meinsantid NE itab_itb-meinsantid .
PERFORM adic_next.
ELSEIF itab_it_aux-codcambial NE itab_itb-codcambial .
PERFORM adic_next.
ELSEIF itab_it_aux-inco_item NE itab_itb-inco_item .
PERFORM adic_next.
ELSEIF itab_it_aux-paisfab NE itab_itb-paisfab .
PERFORM adic_next.
ELSEIF itab_it_aux-tp_certif NE itab_itb-tp_certif .
* << Fim da inclusão
PERFORM adic_next.
ELSE.
IF itab_zycit001-flag_adicao EQ 'X'.
PERFORM adic_next.
ENDIF.
ENDIF.
IF v_flag_quebra IS INITIAL AND v_cont > 80.
PERFORM adic_next.
ENDIF.
itab_it-adicao = itab_it_aux-adicao = v_adic.
...