CE PLUS - Nota 002120
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 18/09/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:30:37
Descrição da Nota: NÃO ESTÁ BATENDO A LINHA DO IPI COM O TOTAL DA NF.
Sintoma
Não está batendo a linha do IPI com o total da NF.
Solução
Corrigido calculo da linha do IPI na NF.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02120 Data: 18/09/2006 Hora: 10:03:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02120
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00129
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00941 - 00002 - 6.0 - 00022 - VALOR DE ``BASE DE CÁLCULO DO ICMS`` INCORRETO PARA
01242 - 00001 - 6.0 - 00023 - ERRO AO CRIAR A DSI
01759 - 00003 - 6.0 - 00024 - ERRO NOS PROCESSOS DE IMPORTAÇÃO CURRIER (FEDEX).
----------------------------------------------------------------------------------------------------
NÃO ESTÁ BATENDO A LINHA DO IPI COM O TOTAL DA NF.
----------------------------------------------------------------------------------------------------
Palavras Chave:
LINHA DO IPI - VALOR TOTAL NOTA FISCAL - PIS E COFINS
VALOR ERRADO NA NOTA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF itab_zycit100-codregtri = '5'.
it_zycee007-base2 = it_zycee007-base2 - itab_zycit100-vlii.
ENDIF.
IF /pws/zycit001-meioemba = 'PS'.
it_zycee007-base2 = it_zycee007-base2 +
* >> Início da exclusão: FORM ITENS_NFNEW
v_base_ps - it_zycee007-taxval.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFNEW
it_zycee007-taxval.
* << Fim da inclusão
ENDIF.
WHEN 2.
PERFORM verifica_montante.
v_montante1 = itab_zycit100-baseipi.
it_zycee007-p_excbas = v_montante1.
...
...
it_zycee007-p_excbas = it_zycee007-p_excbas -
itab_zycit100-vlii.
ENDIF.
CLEAR it_zycee007-taxval2.
IF /pws/zycit001-meioemba = 'PS'.
* >> Início da exclusão: FORM ITENS_NFNEW
it_zycee007-p_excbas = it_zycee007-p_excbas + v_base_ps -
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFNEW
it_zycee007-p_excbas = it_zycee007-p_excbas +
* << Fim da inclusão
it_zycee007-taxval.
ENDIF.
WHEN 3.
PERFORM verifica_montante.
v_montante1 = itab_zycit100-baseipi.
it_zycee007-othbas2 = v_montante1.
IF itab_zycit100-codregtri = '5'.
it_zycee007-othbas2 = it_zycee007-othbas2 - itab_zycit100-vlii.
* >> Início da inclusão: FORM ITENS_NFNEW
ENDIF.
IF /pws/zycit001-meioemba = 'PS'.
it_zycee007-othbas2 = it_zycee007-othbas2 +
it_zycee007-taxval.
* << Fim da inclusão
ENDIF.
ENDCASE.
DATA: itab_zycit398 LIKE /pws/zycit398 OCCURS 0 WITH HEADER LINE.
SELECT * FROM /pws/zycit398
INTO TABLE itab_zycit398
...
...
ENDIF.
ELSEIF /pws/zycit001-meioemba NE 'PS'.
it_zycee007-p_excbas = it_zycee007-p_excbas + itab_zycit042-vldp +
v_impostos.
ELSE.
* >> Início da inclusão: FORM ITENS_NFNEW
CASE itab_zycit033-tribipi.
when 1.
it_zycee007-base2 = it_zycee007-base2 +
it_zycee007-taxval_pis + it_zycee007-taxval_cof.
when 2.
* << Fim da inclusão
it_zycee007-p_excbas = it_zycee007-p_excbas +
* >> Início da exclusão: FORM ITENS_NFNEW
itab_zycit042-vldp + it_zycee007-taxval.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFNEW
it_zycee007-taxval_pis + it_zycee007-taxval_cof.
WHEN 3.
IF /pws/zycit001-meioemba = 'PS'.
it_zycee007-othbas2 = it_zycee007-othbas2 +
it_zycee007-taxval_pis + it_zycee007-taxval_cof.
clear it_zycee007-p_excbas.
endif.
endcase.
* << Fim da inclusão
ENDIF.
CLEAR /pws/zycit036.
it_zycee007-mfrpn = itab_zycit003-mfrpn.
CONCATENATE itab_zycit042-ebeln '/' itab_zycit042-ebelp
INTO it_zycee007-msg1.
...