CE PLUS - Nota 010600
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 14/09/2010 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:23:41
Descrição da Nota: BASE DO ICMS DIFERENTE DO TOTAL DA NOTA FISCAL. PROCESSO CIF, GRANEL
Sintoma
Para processos CIF a granel que possuam valor de seguro o montante base do ICMS está diferente do
total da nota fiscal.
Solução
Corrigido calculo do valor unitario dos itens da nota fiscal para processos CIF com granel.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10600 Data: 14/09/2010 Hora: 15:14:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10600
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00038
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02225 - 00001 - 6.0 - 00025 - VALOR TOTAL DA NOTA INCORRETO
----------------------------------------------------------------------------------------------------
BASE DO ICMS DIFERENTE DO TOTAL DA NOTA FISCAL. PROCESSO CIF, GRANEL
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALOR - MERCADORIA - CIF - GRANEL - ICMS - NOTA - FISCAL
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
( ( itab_zycit100-vlfre - itab_zycit003-vlfre_fat *
itab_zycit100-dttaxbem )
/ itab_zycit003-qtd_iten ) +
( ( itab_zycit100-vlfre - itab_zycit003-vlfre_fat *
itab_zycit100-dttaxbem )
/ itab_zycit003-qtd_itend ) .
ENDIF.
ELSEIF /pws/zycit031-inco1_ci = 'CIF' AND
NOT itab_zycit003-qtd_iten IS INITIAL AND
NOT itab_zycit003-qtd_itend IS INITIAL.
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
IF NOT /pws/zycit085-vlfre IS INITIAL AND
NOT itab_zycit100-vlseg IS INITIAL .
itab_zycit042-netpr = itab_zycit042-netpr -
( ( itab_zycit100-vlfre - itab_zycit003-vlfre_fat *
itab_zycit100-dttaxbem )
/ itab_zycit003-qtd_iten ) +
( ( itab_zycit100-vlfre - itab_zycit003-vlfre_fat *
itab_zycit100-dttaxbem )
/ itab_zycit003-qtd_itend ) -
( ( itab_zycit100-vlseg - itab_zycit003-vlseg_fat *
itab_zycit100-dttaxbem )
/ itab_zycit003-qtd_iten ) +
( ( itab_zycit100-vlseg - itab_zycit003-vlseg_fat *
itab_zycit100-dttaxbem )
/ itab_zycit003-qtd_itend ).
ELSEIF NOT itab_zycit100-vlseg IS INITIAL .
itab_zycit042-netpr = itab_zycit042-netpr -
( ( itab_zycit100-vlseg - itab_zycit003-vlseg_fat *
itab_zycit100-dttaxbem )
/ itab_zycit003-qtd_iten ) +
( ( itab_zycit100-vlseg - itab_zycit003-vlseg_fat *
itab_zycit100-dttaxbem )
/ itab_zycit003-qtd_itend ).
ELSEIF NOT /pws/zycit085-vlfre IS INITIAL.
itab_zycit042-netpr = itab_zycit042-netpr -
( ( itab_zycit100-vlfre - itab_zycit003-vlfre_fat *
itab_zycit100-dttaxbem )
/ itab_zycit003-qtd_iten ) +
( ( itab_zycit100-vlfre - itab_zycit003-vlfre_fat *
itab_zycit100-dttaxbem )
/ itab_zycit003-qtd_itend ) .
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
itab_zycit042-netpr =
( ( itab_zycit100-vlfob * itab_zycit100-dttaxbem ) +
itab_zycit100-vlfre + itab_zycit100-vlseg ) /
itab_zycit042-qtd_iten.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0 AND /pws/zycit062-flag_icms = 'X'.
PERFORM atualiza_icms_unitario.
ENDIF.
IF /pws/zycit041-nrseq IS INITIAL.
/pws/zycit041-nrseq = /pws/zycie041-nrseq.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie041-bukrs.
IF sy-subrc NE 0.
...