CE PLUS - Nota 005366
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 03/12/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:20:44
Descrição da Nota: ERRO NO RATEIO DE DESPESAS DE BASE II, POR VALOR PLANEJADO.
Sintoma
courier:
1) A despesa CPMF é base de II, com regra de rateio pelo valor planejado.
O valor da despesa é de R$ 0,97.
Ao incluir esta despesa, a base de II é acrescida de R$ 150,00 ao invés de R$ 0,97
Solução
erro no rateio de valores.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05366 Data: 03/12/2007 Hora: 11:02:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05366
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00023
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ERRO NO RATEIO DE DESPESAS DE BASE II, POR VALOR PLANEJADO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI058
DYNP /PWS/SAPMZYCI058 0235
REPS /PWS/MZYCI058F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI058
*Acrescentado a seguinte Tecla de Função
Texto informativo Teclas de função CI - Desembaraço - DSI - Declaração Simplif
Código de função Tecla F Tecla de função Código de função Texto
000004 19 Shift-F7 VISUA Visualiza Rateio
*Acrescentado o seguinte Botão na primeira posição (o restante foi movido)
Texto informativo Botões CI - Desembaraço - DSI - Declaração Simplificada
Code de objeto Code Item Tecla de função Código de função Id
000004 0001 01 Shift-F7 VISUA
*Acrescentado o seguinte código de função
Texto informativo Funções ativas CI - Desembaraço - DSI - Declaração Simplifi
Status Código de função
0200 VISUA
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0.
IF /pws/zycie085-waersfob NE itab_zycit003-waers.
PERFORM: calc_conv_moeda USING itab_zycit003-waers
/pws/zycie085-waersfob
CHANGING itab_zycit003-netpr.
t_ivdes2 =
( ( itab_zycit003-netpr * itab_zycit003-qtd_iten ) /
v_tot_plan ) * itab_zycit049-vlreal.
ENDIF.
* >> Início da inclusão: FORM LOAD_ITAX
t_ivdes2 =
( ( itab_zycit003-netpr * itab_zycit003-qtd_iten ) /
v_tot_plan ) * itab_zycit049-vlreal.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSE.
IF NOT v_tot_real IS INITIAL.
READ TABLE itab_zycit003 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0.
IF /pws/zycie085-waersfob NE itab_zycit003-waers.
...
...
CHANGING itab_zycit003-vlreal.
ENDIF.
t_ivdes2 = ( itab_zycit003-vlreal *
itab_zycit003-qtd_iten
/ v_tot_real ) * itab_zycit049-vlreal.
ENDIF.
ENDIF.
ENDIF.
IF p_tipo = 'I'.
itab_zycit049-vldp_aux = itab_zycit049-vldp_aux + t_ivdes2.
* >> Início da exclusão: FORM LOAD_ITAX
MODIFY itab_zycit049 INDEX sy-tabix TRANSPORTING vldp_aux.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_ITAX
MODIFY itab_zycit049 TRANSPORTING vldp_aux.
* << Fim da inclusão
ENDIF.
IF t_ivdes2 > 0.
t_ivdesp = t_ivdesp + t_ivdes2.
ENDIF.
ENDLOOP.
CASE s_inco1_ci.
WHEN 'CIF'.
t_dif_seg = v_tsegfat - v_sgtofat.
t_dif_seg = ( v_cfr / ( v_tcfr ) ) * t_dif_seg.
ENDCASE.
...
...
itab_it-vlmerc_ad = t_vmle2.
t_ivmle2 = t_vmle_d2 * /pws/zycie085-ukursfob .
v_tmle_d2 = v_tmle_d2 + t_ivmle2 .
ENDFORM.
FORM load_iii USING p_tipo.
CLEAR: t_iirec, a_iiredu, a_iiacor, a_iidevi, a_iicalc.
IF /pws/zycie093-meiotransp = 'PS' AND /pws/zycie085-tpdi EQ 'S'.
/pws/zycie003-advalii = '60'.
CLEAR: /pws/zycie003-advalipi.
ENDIF.
* >> Início da inclusão: FORM LOAD_III
t_iibas = t_ivadu.
* << Fim da inclusão
* >> Início da exclusão: FORM LOAD_III
t_iibas = t_ivmle + t_ivseg + t_ivfre + t_ivdesp.
* << Fim da exclusão
a_iicalc = ( ( /pws/zycie003-advalii / 100 ) * t_iibas ).
CASE /pws/zycie100a-codregtri.
WHEN '1' OR '3' OR '4' OR '5' OR '7' OR '8'.
IF NOT a_iiredu IS INITIAL.
t_iirec = a_iiredu.
ELSE.
IF /pws/zycie100a-acordo EQ '2'.
t_iirec = a_iiredu = a_iiacor.
ELSE.
t_iirec = a_iicalc.
...
...
CLEAR: itab_it-advalii , itab_it-advalipi,
itab_it-advalpis , itab_it-advalcofins.
itab_it-codregtri = '6'.
itab_it-codregtriipi = '6'.
itab_it-codregtripiscofi = '6'.
itab_it-codregtriicms = '6'.
ELSE.
PERFORM set_codregtri.
itab_it-codregtriicms = itab_it-codregtriipi = itab_it-codregtri.
ENDIF .
* >> Início da inclusão: FORM FILL_ITABIT
if itab_it-codregtri eq '1'.
itab_it-codregtriipi = '3'.
elseif itab_it-codregtri eq '3'.
itab_it-codregtriipi = '1'.
endif.
IF itab_zycit001-meioemba EQ 'PS' .
clear: itab_it-ADVALPIS, itab_it-advalcofins.
endif.
* << Fim da inclusão
MOVE-CORRESPONDING itab_it TO itab_zycit100_temp.
APPEND itab_zycit100_temp.
MODIFY itab_it.
ENDLOOP.
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.
ENDFORM.
...