CE PLUS - Nota 003418
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Débito em Conta
Data/Hora da Publicação: 10/04/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:50:07
Descrição da Nota: ERRO DE ARREDONDAMENTO AO CALCULAR O VALOR DOS IMPOSTOS DA DI.
Sintoma
Erro de arredondamento ao calcular o valor dos impostos da DI.
Solução
Atualização no programa de solicitação de débito em conta para arredondamentos de valores dos
impostos calculados.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03418 Data: 10/04/2007 Hora: 09:20:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03418
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00161
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03251 - 00001 - 6.0 - 00026 - O REGIME TRIBUTÁRIO É ISENÇÃO MAS NO DÉBITO EM CONTA,APARECE VALO
----------------------------------------------------------------------------------------------------
ERRO DE ARREDONDAMENTO AO CALCULAR O VALOR DOS IMPOSTOS DA DI.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ARREDONDAMENTO - VALOR DOS IMPOSTOS - DI - SOLICITAÇÃO
DÉBITO EM CONTA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI006F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI006F01
...
FORM despesas_di.
* >> Início da inclusão: FORM DESPESAS_DI
data: v_dpicms LIKE /pws/zycit085-vlicms,
v_dpipi LIKE /pws/zycit085-vlipi,
v_dpii LIKE /pws/zycit085-vlii ,
v_dppis LIKE /pws/zycit085-vlpis,
v_dpcofins LIKE /pws/zycit085-vlcofins.
* << Fim da inclusão
DATA: v_vlicms LIKE /pws/zycit016-vldp,
v_vlipi LIKE /pws/zycit016-vldp,
v_vlii LIKE /pws/zycit016-vldp,
v_vlpis LIKE /pws/zycit016-vldp,
v_vlcofins LIKE /pws/zycit016-vldp,
v_line TYPE i .
* >> Início da exclusão: FORM DESPESAS_DI
LOOP AT itab_zycit100.
if not '35' ca itab_zycit100-codregtriicms.
v_vlicms = v_vlicms + itab_zycit100-vlicms .
endif.
IF itab_zycit100-codregtriipi NE '1' AND
itab_zycit100-codregtriipi NE '5'.
v_vlipi = v_vlipi + itab_zycit100-vlipi .
ENDIF.
IF itab_zycit100-codregtri NE '3' AND
itab_zycit100-codregtri NE '5'.
v_vlii = v_vlii + itab_zycit100-vlii .
ENDIF.
IF ( itab_zycit100-codregtripiscofi NE '3' AND
itab_zycit100-codregtripiscofi NE '5' ) .
v_vlpis = v_vlpis + itab_zycit100-vlpis .
v_vlcofins = v_vlcofins + itab_zycit100-vlcofins.
ENDIF.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM DESPESAS_DI
LOOP AT itab_zycit100.
if not '35' ca itab_zycit100-codregtriicms.
v_dpicms = v_dpicms + itab_zycit100-vlicms .
endif.
IF itab_zycit100-codregtriipi NE '1' AND
itab_zycit100-codregtriipi NE '5'.
v_dpipi = v_dpipi + itab_zycit100-vlipi .
ENDIF.
IF itab_zycit100-codregtri NE '3' AND
itab_zycit100-codregtri NE '5'.
v_dpii = v_dpii + itab_zycit100-vlii .
ENDIF.
IF ( itab_zycit100-codregtripiscofi NE '3' AND
itab_zycit100-codregtripiscofi NE '5' ) .
v_dppis = v_dppis + itab_zycit100-vlpis .
v_dpcofins = v_dpcofins + itab_zycit100-vlcofins.
ENDIF.
ENDLOOP.
v_vlicms = v_dpicms .
v_vlipi = v_dpipi .
v_vlii = v_dpii .
v_vlpis = v_dppis .
v_vlcofins = v_dpcofins .
* << Fim da inclusão
CHECK sy-subrc EQ 0.
SELECT SINGLE *
FROM t001
INTO t001
WHERE bukrs EQ /pws/zycie008-bukrs.
SELECT SINGLE *
FROM /pws/zycit000
WHERE land1 EQ t001-land1.
SELECT SINGLE * FROM /pws/zycit246
WHERE nrseq EQ /pws/zycie008-nrseq.
IF sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycit244
WHERE nrseqd EQ /pws/zycit246-nrseqd.
IF sy-subrc = 0.
CLEAR : v_vlii,
v_vlipi.
ENDIF.
ENDIF.
...