Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Débito em Conta
Data/Hora da Publicação: 19/10/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:50:14
Descrição da Nota: DÉBITO EM CONTA ESTÁ LEVANDO VALORES MESMO COM REGIME NÃO INCIDÊNCIA.
Sintoma
DÉBITO EM CONTA ESTÁ LEVANDO VALORES MESMO COM REGIME NÃO INCIDÊNCIA na DSI.
Solução
verificar regime tributário da DI/DSI antes lançar valores no débito em conta
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05033 Data: 19/10/2007 Hora: 14:25:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05033
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00017
----------------------------------------------------------------------------------------------------
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
04583 - 00002 - 7.0 - 00002 - PREENCHER AUTOMATICAMENTE OS VALORES DOS IMPOSTOS E TAXA SISCOMES
----------------------------------------------------------------------------------------------------
DÉBITO EM CONTA ESTÁ LEVANDO VALORES MESMO COM REGIME NÃO INCIDÊNCIA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
REGIME TRIBUTÁRIO - DÉBITO EM CONTA - VALORES - NÃO INCIDÊNCIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI006F01
REPS /PWS/MZYCI058F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI006F01
...
v_dppis LIKE /pws/zycit085-vlpis,
v_dpcofins LIKE /pws/zycit085-vlcofins.
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 .
if /pws/zycit001-regime = '04' and /pws/zycit001-tpdecl = 'DI'.
loop at itab_zycit443.
* >> Início da exclusão: FORM DESPESAS_DI
if not '35' ca itab_zycit443-codregtriicms.
* << Fim da exclusão
* >> Início da inclusão: FORM DESPESAS_DI
if not '356' ca itab_zycit443-codregtriicms.
* << Fim da inclusão
v_dpicms = v_dpicms + itab_zycit443-vlicms .
endif.
* >> Início da exclusão: FORM DESPESAS_DI
IF itab_zycit443-codregtriipi NE '1' AND
itab_zycit443-codregtriipi NE '5'.
* << Fim da exclusão
* >> Início da inclusão: FORM DESPESAS_DI
IF not '156' ca itab_zycit443-codregtriipi .
* << Fim da inclusão
v_dpipi = v_dpipi + itab_zycit443-vlipi .
ENDIF.
* >> Início da exclusão: FORM DESPESAS_DI
IF itab_zycit443-codregtri NE '3' AND
itab_zycit443-codregtri NE '5'.
* << Fim da exclusão
* >> Início da inclusão: FORM DESPESAS_DI
IF not '356' ca itab_zycit443-codregtri .
* << Fim da inclusão
v_dpii = v_dpii + itab_zycit443-vlii .
ENDIF.
* >> Início da exclusão: FORM DESPESAS_DI
IF ( itab_zycit443-codregtripiscofi NE '3' AND
itab_zycit443-codregtripiscofi NE '5' ) .
* << Fim da exclusão
* >> Início da inclusão: FORM DESPESAS_DI
IF not '356' ca itab_zycit443-codregtripiscofi .
* << Fim da inclusão
v_dppis = v_dppis + itab_zycit443-vlpis .
v_dpcofins = v_dpcofins + itab_zycit443-vlcofins.
ENDIF.
endloop.
else.
LOOP AT itab_zycit100.
* >> Início da exclusão: FORM DESPESAS_DI
if not '35' ca itab_zycit100-codregtriicms.
* << Fim da exclusão
* >> Início da inclusão: FORM DESPESAS_DI
if not '356' ca itab_zycit100-codregtriicms.
* << Fim da inclusão
v_dpicms = v_dpicms + itab_zycit100-vlicms .
endif.
* >> Início da exclusão: FORM DESPESAS_DI
IF itab_zycit100-codregtriipi NE '1' AND
itab_zycit100-codregtriipi NE '5'.
* << Fim da exclusão
* >> Início da inclusão: FORM DESPESAS_DI
IF not '156' ca itab_zycit100-codregtriipi.
* << Fim da inclusão
v_dpipi = v_dpipi + itab_zycit100-vlipi .
ENDIF.
* >> Início da exclusão: FORM DESPESAS_DI
IF itab_zycit100-codregtri NE '3' AND
itab_zycit100-codregtri NE '5'.
* << Fim da exclusão
* >> Início da inclusão: FORM DESPESAS_DI
IF not '356' ca itab_zycit100-codregtri .
* << Fim da inclusão
v_dpii = v_dpii + itab_zycit100-vlii .
ENDIF.
* >> Início da exclusão: FORM DESPESAS_DI
IF ( itab_zycit100-codregtripiscofi NE '3' AND
itab_zycit100-codregtripiscofi NE '5' ) .
* << Fim da exclusão
* >> Início da inclusão: FORM DESPESAS_DI
IF not '356' ca itab_zycit100-codregtripiscofi .
* << Fim da inclusão
v_dppis = v_dppis + itab_zycit100-vlpis .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
ENDLOOP.
ENDIF.
MOVE itab_it[] TO itab_ita[].
/pws/zycie093-ntgew = /pws/zycie085-ntgew = v_tntgew.
IF /pws/zycie093-gewei_l IS INITIAL.
/pws/zycie093-gewei_l = /pws/zycie093-gewei_b.
ENDIF.
CLEAR itab_zycit100_temp.
REFRESH itab_zycit100_temp.
LOOP AT itab_it.
* >> Início da inclusão: FORM FILL_ITABIT
if itab_it-codregtriicms is initial.
itab_it-codregtriicms = itab_it-codregtri.
modify itab_it.
endif.
* << Fim da inclusão
MOVE-CORRESPONDING itab_it TO itab_zycit100_temp.
APPEND itab_zycit100_temp.
ENDLOOP.
ENDFORM.
FORM fill_it115b.
CLEAR: itab_zycit115b[].
REFRESH: itab_zycit115b[].
LOOP AT itab_zycit115 WHERE
nrseq = wa_it-nrseq AND
ebeln = wa_it-ebeln AND
...