CE PLUS - Nota 002863
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 11/01/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:12:52
Descrição da Nota: NA NF REMESSA A LINHA DO IPI NÃO ESTÁ PREENCHIDA COM A BASE DE CÁLCULO.
Sintoma
nota fiscal de Remessa a linha do IPI não está sendo preenchida com a base de cálculo.
Solução
ajustar cálculos de valores da nf remessa
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02863 Data: 11/01/2007 Hora: 15:37:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02863
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00148
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02780 - 00001 - 6.0 - 00026 - AJUSTE PARA LEVAR A BASE DE IPI PARA NOTA FISCAL DE REMESSA.
----------------------------------------------------------------------------------------------------
NA NF REMESSA A LINHA DO IPI NÃO ESTÁ PREENCHIDA COM A BASE DE CÁLCULO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NF REMESSA - LINHA DO IPI - BASE DE CÁLCULO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ENDIF.
IF itab_zycit100-icms_dif EQ 'X'.
IF /pws/zycit062-flag_icms = 'X'.
it_zycee007-base = it_zycee007-base - v_icms.
ENDIF.
v_icms_dif = v_icms_dif + v_icms.
v_base_dif = v_base_dif + it_zycee007-base.
ELSE.
it_zycee007-taxval = v_icms.
ENDIF.
* >> Início da inclusão: FORM ITENS_NFRNEW
v_base = it_zycee007-base.
* << Fim da inclusão
WHEN 2.
it_zycee007-c_excbas = v_total.
IF itab_zycit100-icms_dif EQ 'X'.
IF /pws/zycit062-flag_icms = 'X'.
it_zycee007-c_excbas = it_zycee007-c_excbas - v_icms.
ENDIF.
v_icms_dif = v_icms_dif + v_icms.
v_base_dif = v_base_dif + v_total.
ELSE.
it_zycee007-taxval = v_icms.
ENDIF.
* >> Início da inclusão: FORM ITENS_NFRNEW
v_base = it_zycee007-c_excbas.
* << Fim da inclusão
WHEN 3.
it_zycee007-othbas = v_total.
IF itab_zycit003-basred NE 100.
it_zycee007-othbas =
( it_zycee007-othbas * itab_zycit003-basred / 100 ).
it_zycee007-c_excbas = v_total - it_zycee007-othbas.
ENDIF.
IF itab_zycit100-icms_dif EQ 'X'.
IF /pws/zycit062-flag_icms = 'X'.
it_zycee007-othbas = it_zycee007-othbas - v_icms.
ENDIF.
v_icms_dif = v_icms_dif + v_icms.
v_base_dif = v_base_dif + v_total.
ELSE.
it_zycee007-taxval = v_icms.
ENDIF.
* >> Início da inclusão: FORM ITENS_NFRNEW
v_base = it_zycee007-othbas.
* << Fim da inclusão
ENDCASE.
it_zycee007-taxtyp = itab_zycit033-taxtyp.
it_zycee007-taxtyp2 = itab_zycit033-taxtyp2.
* >> Início da exclusão: FORM ITENS_NFRNEW
it_zycee007-base = itab_zycit100-baseipi /
( itab_zycit044-menge / itab_zycit044-qtd_item ) .
* << Fim da exclusão
CASE itab_zycit033-tribipi.
WHEN 1.
* >> Início da exclusão: FORM ITENS_NFRNEW
it_zycee007-base2 = it_zycee007-base.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFRNEW
it_zycee007-base2 = ( v_total - v_icms - v_ipi - v_outras_ic ).
it_zycee007-p_excbas = v_base -
( v_total - v_icms - v_ipi - v_outras_ic ).
* << Fim da inclusão
CLEAR it_zycee007-taxval2.
WHEN 2.
* >> Início da exclusão: FORM ITENS_NFRNEW
it_zycee007-p_excbas = it_zycee007-base.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFRNEW
it_zycee007-p_excbas = v_base.
* << Fim da inclusão
CLEAR it_zycee007-taxval2.
WHEN 3.
* >> Início da exclusão: FORM ITENS_NFRNEW
it_zycee007-othbas2 = it_zycee007-base.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFRNEW
it_zycee007-othbas2 = ( v_total - v_icms - v_ipi - v_outras_ic ).
it_zycee007-P_EXCBAS = v_base -
( v_total - v_icms - v_ipi - v_outras_ic ).
* << Fim da inclusão
CLEAR it_zycee007-taxval2.
ENDCASE.
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'NFR001'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'NFR001'.
IF itab_zyglt100-zexit_ativa NE 'X'.
ELSE.
...