CE PLUS - Nota 005335
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 27/11/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:20:03
Descrição da Nota: QUANDO PREENCHEMOS PORCENTAGEM DE ACORDO, NÃO RECALCULA IMPOSTOS
Sintoma
Quando preenchemos porcentagem de acordo, não recalcula impostos
Solução
Atualizada DI para recalcular impostos ao alterar acordo tarifário
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05335 Data: 27/11/2007 Hora: 16:25:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05335
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00024
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
QUANDO PREENCHEMOS PORCENTAGEM DE ACORDO, NÃO RECALCULA IMPOSTOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
PORCENTAGEM - ACORDO - DI - CÁLCULO - IMPOSTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0431
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0431
*alteração em lógica de processamento:
chain.
field: /pws/zycie003-advalii,
/pws/zycie100a-acordorate,
/pws/zycie100a-reduzida,
/pws/zycie100a-percreduz,
/pws/zycie100a-codregtri,
*<<Inicio Inclusão
/pws/zycie100a-acordo.
*<<Fim Inclusão
module calc_vii on chain-request.
module calc_vicms on chain-request.
endchain.
module: load_fund.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
a_iiredu = ( ( /pws/zycie100a-reduzida / 100 ) * t_iibas ).
ELSE.
CLEAR: a_iiredu.
ENDIF.
a_iiacor = ( ( /pws/zycie100a-acordorate / 100 ) * t_iibas ).
ENDIF.
CLEAR: t_iirec.
CASE /pws/zycie100a-codregtri.
WHEN '1' OR '3' OR '4' OR '5' OR '7' OR '8'.
IF /pws/zycie085-ntimp NE '09' AND /pws/zycie085-ntimp NE '11'.
* >> Início da exclusão: FORM LOAD_III
IF v_dit = 'S' AND NOT /pws/zycie100a-codregtri = '5'.
t_iirec = a_iicalc.
itab_it-vlii = t_iirec.
ELSE.
* << Fim da exclusão
IF NOT a_iiredu IS INITIAL.
t_iirec = a_iiredu.
ELSE.
* >> Início da exclusão: FORM LOAD_III
IF /pws/zycie100a-acordo EQ '2'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_III
IF not /pws/zycie100a-acordo is initial.
* << Fim da inclusão
t_iirec = a_iiredu = a_iiacor.
ELSE.
* >> Início da exclusão: FORM LOAD_III
IF NOT /pws/zycie001-meioemba = 'PS'.
* << Fim da exclusão
t_iirec = a_iicalc.
* >> Início da exclusão: FORM LOAD_III
ENDIF.
* << Fim da exclusão
ENDIF.
ENDIF.
IF NOT /pws/zycie100a-percreduz IS INITIAL.
t_iirec = t_iirec *
( ( 100 - /pws/zycie100a-percreduz ) / 100 ).
a_iidevi = a_iicalc.
...
...
a_iidevi = t_iirec.
ENDIF.
itab_it-vlii = t_iirec.
IF /pws/zycie100a-codregtri CA '35'.
CLEAR: t_iirec.
ENDIF.
s_wiireco = s_wiireco + t_iirec.
s_wiicalc = s_wiicalc + a_iicalc.
s_wiiredu = s_wiiredu + a_iiredu.
s_wiidevi = s_wiidevi + a_iidevi.
* >> Início da exclusão: FORM LOAD_III
ENDIF.
* << Fim da exclusão
ENDIF.
ENDCASE.
itab_it-baseii = t_iibas.
itab_it-ii_calculado = a_iicalc.
itab_it-ii_reduzido = a_iiredu.
itab_it-ii_devido = a_iidevi.
itab_it-ii_recolher = t_iirec .
ENDFORM.
.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
ENDIF.
MOVE-CORRESPONDING itab_it TO /pws/zycie100a.
IF v_nr_itens GT 1.
t_ivdesp = t_ivdesp + v_desp .
ELSE.
t_ivdesp = t_ivdesp + v_sisco3.
ENDIF.
IF NOT /pws/zycie100a-reduzida IS INITIAL.
v_advii = ( /pws/zycie100a-reduzida / 100 ).
ELSE.
* >> Início da inclusão: FORM LOAD_IICMS
if not /pws/zycie100a-acordo is initial.
v_advii = ( /pws/zycie100a-acordorate / 100 ).
else.
* << Fim da inclusão
v_advii = ( /pws/zycie003-advalii / 100 ).
* >> Início da inclusão: FORM LOAD_IICMS
endif.
* << Fim da inclusão
ENDIF.
IF NOT /pws/zycie100a-reduzidaipi IS INITIAL.
v_advipi = ( /pws/zycie100a-reduzidaipi / 100 ).
ELSE.
v_advipi = ( /pws/zycie003-advalipi / 100 ).
ENDIF.
...