CE PLUS - Nota 008151
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 10/03/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:19:44
Descrição da Nota: BASE DE IPI E ICMS INCORRETOS NA NF EM PROCESSOS FUNDAP
Sintoma
Quando o processo é de fundap e na tabela de parametros /pws/zycit062 está marcado para tratar
arredondamento dos impostos, a base de IPI e ICMS ficam incorretas na nota fiscal.
Solução
Ajustada chamada da função para passar o valor unitario correto para o processo.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08151 Data: 10/03/2009 Hora: 08:43:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08151
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00088
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07026 - 00001 - 7.0 - 00006 - ARREDONDAMENTO DA NOTA FISCAL VALORES DE IMPOSTOS X BASE DE CÁLCU
----------------------------------------------------------------------------------------------------
BASE DE IPI E ICMS INCORRETOS NA NF EM PROCESSOS FUNDAP
----------------------------------------------------------------------------------------------------
Palavras Chave:
BASE - IPI - ICMS - FUNDAP - ARREDONDAMENTO - IMPOSTOS - PARAMETRO
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
it_bdc-program = p_fnam.
it_bdc-dynpro = p_fval.
it_bdc-dynbegin = 'X'.
ELSE.
it_bdc-fnam = p_fnam.
it_bdc-fval = p_fval.
ENDIF.
APPEND it_bdc.
ENDFORM.
FORM itens_nfnew.
* >> Início da inclusão: FORM ITENS_NFNEW
DATA: v_unitf TYPE /pws/zycie042-netpr.
* << Fim da inclusão
v_tiponf = 'NF'.
IF /pws/zycie001-modalidade EQ '05' AND
/pws/zycie001-tpdecl EQ 'DI' AND NOT
itab_zycit480[] IS INITIAL.
v_fundap = 'X' .
ELSE.
CLEAR v_fundap.
ENDIF.
it_zycee007-tcode = text-065.
it_zycee007-tabela = text-014.
...
...
'/PWS/SAPMZYCI016'
' '.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'DNF014' BINARY SEARCH.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
IF /pws/zycit062-arbase EQ 'X'.
* >> Início da inclusão: FORM ITENS_NFNEW
IF v_fundap EQ 'X'.
v_unitf = itab_zycit480-vl_unit.
ELSE.
v_unitf = itab_zycit042-netpr.
ENDIF.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_AJUSTE_IMP_NF'
EXPORTING
* >> Início da exclusão: FORM ITENS_NFNEW
vlunit = itab_zycit042-netpr
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFNEW
vlunit = v_unitf
* << Fim da inclusão
zycit003 = itab_zycit003
zycit062 = /pws/zycit062
...
...
tpdi = /pws/zycit085-tpdi
CHANGING
zycee007 = it_zycee007.
ENDIF.
APPEND it_zycee007.
CLEAR it_zycee007.
MOVE itab_zycit042 TO itab_zycit042_mark.
APPEND itab_zycit042_mark.
ENDFORM.
FORM itens_nfrnew.
* >> Início da inclusão: FORM ITENS_NFRNEW
DATA: v_unitf TYPE /pws/zycie042-netpr.
* << Fim da inclusão
v_tiponf = 'NFR'.
DATA v_val_icms_r LIKE /pws/zycee007-netpr.
DATA: itab_zycit398 LIKE /pws/zycit398 OCCURS 0 WITH HEADER LINE.
IF /pws/zycie001-modalidade EQ '05' AND
/pws/zycie001-tpdecl EQ 'DI' AND NOT
itab_zycit480r[] IS INITIAL.
v_fundap = 'X' .
ELSE.
CLEAR v_fundap.
ENDIF.
...
...
IF itab_zyglt100-zexit_ativa NE 'X'.
ELSE.
PERFORM itens_nfrnew IN PROGRAM (itab_zyglt100-programa)
USING v_outras_ic
v_ipi
CHANGING it_zycee007-othbas2
it_zycee007-p_excbas
IF FOUND.
ENDIF.
IF /pws/zycit062-arbase EQ 'X'.
* >> Início da inclusão: FORM ITENS_NFRNEW
IF v_fundap EQ 'X'.
v_unitf = itab_zycit480r-vl_unit.
ELSE.
v_unitf = itab_zycit044-netpr.
ENDIF.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_AJUSTE_IMP_NF'
EXPORTING
* >> Início da exclusão: FORM ITENS_NFRNEW
vlunit = itab_zycit044-netpr
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFRNEW
vlunit = v_unitf
* << Fim da inclusão
zycit003 = itab_zycit003
zycit062 = /pws/zycit062
...