CE PLUS - Nota 008523
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 10/06/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 17:00:02
Descrição da Nota: NOTA FISCAL DE REMESSA ESTA COM FALHA NA LINHA DO IPI
Sintoma
Na criação da Nota Fiscal de Remessa com uma quantidade inferior a total o software não esta
realizando os calculos corretamente
Solução
Realizar o calculo do IPI com a quantidade proporcional
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08523 Data: 10/06/2009 Hora: 09:51:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08523
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00100
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NOTA FISCAL DE REMESSA ESTA COM FALHA NA LINHA DO IPI
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - REMESSA - IPI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF sy-subrc EQ 0.
it_zycee007-taxtyp_pis = itab_zycit398-taxtyp.
ELSE.
CLEAR it_zycee007-taxtyp_pis.
ENDIF.
IF NOT it_zycee007-taxval_pis IS INITIAL.
it_zycee007-rate_pis = itab_zycit100-advalpis.
ENDIF.
CASE itab_zycit398-tribpiscof.
WHEN 1.
* >> Início da exclusão: FORM ITENS_NFRNEW
PERFORM verifica_montante.
* << Fim da exclusão
v_montante1 = itab_zycit100-basepis.
it_zycee007-base_pis = v_montante1.
WHEN 2.
* >> Início da exclusão: FORM ITENS_NFRNEW
PERFORM verifica_montante.
* << Fim da exclusão
v_montante1 = itab_zycit100-basepis.
it_zycee007-pis_excbas = v_montante1.
CLEAR it_zycee007-taxval_pis.
WHEN 3.
* >> Início da exclusão: FORM ITENS_NFRNEW
PERFORM verifica_montante.
* << Fim da exclusão
v_montante1 = itab_zycit100-basepis.
it_zycee007-othbas_pis = v_montante1.
ENDCASE.
READ TABLE itab_zycit398 WITH KEY tributos = 'COFINS'.
IF sy-subrc EQ 0.
it_zycee007-leicofins = itab_zycit398-leicofins.
ENDIF.
IF NOT itab_zycit100-vlcofins IS INITIAL.
CLEAR itab_zycit036.
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit042-nrseq
...
...
IF sy-subrc EQ 0.
it_zycee007-taxtyp_cof = itab_zycit398-taxtyp.
ELSE.
CLEAR it_zycee007-taxtyp_cof.
ENDIF.
IF NOT it_zycee007-taxval_cof IS INITIAL.
it_zycee007-rate_cof = itab_zycit100-advalcofins.
ENDIF.
CASE itab_zycit398-tribpiscof.
WHEN 1.
* >> Início da exclusão: FORM ITENS_NFRNEW
PERFORM verifica_montante.
* << Fim da exclusão
v_montante1 = itab_zycit100-basecofins.
it_zycee007-base_cof = v_montante1.
WHEN 2.
* >> Início da exclusão: FORM ITENS_NFRNEW
PERFORM verifica_montante.
* << Fim da exclusão
v_montante1 = itab_zycit100-basecofins.
it_zycee007-cof_excbas = v_montante1.
CLEAR it_zycee007-taxval_cof.
WHEN 3.
* >> Início da exclusão: FORM ITENS_NFRNEW
PERFORM verifica_montante.
* << Fim da exclusão
v_montante1 = itab_zycit100-basecofins.
it_zycee007-othbas_cof = v_montante1.
ENDCASE.
CASE itab_zycit033-tribipi.
WHEN 1.
IF NOT itab_zycit100-baseipi IS INITIAL.
it_zycee007-base2 = itab_zycit100-baseipi /
itab_zycit044-menge * itab_zycit044-qtd_item .
ENDIF.
IF v_basred IS INITIAL.
...