CE PLUS - Nota 005431
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 11/12/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:51:47
Descrição da Nota: AJUSTADO REATEIO DO SEGURO NA DI PARA PROCESSOS CIF
Sintoma
O rateio do seguro está incorreto o processo é CIF mas a DI realizou o rateio utilizando o valor FOB
..
Solução
Corrigir o calculo do valor CIF nas variaveis internas.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05431 Data: 11/12/2007 Hora: 16:25:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05431
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00024
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02658 - 00001 - 6.0 - 00025 - DI
----------------------------------------------------------------------------------------------------
AJUSTADO REATEIO DO SEGURO NA DI PARA PROCESSOS CIF
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO - SEGURO - DI - CIF
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
IF NOT v_tcfr IS INITIAL.
t_ivseg = itab_it-vlseg = ( v_cfr / ( v_tcfr ) ) * s_stvr.
v_tot_seg = ( v_cfr / ( v_tcfr ) ) * v_sgtofat.
ENDIF.
ELSE.
READ TABLE itab_zycit003 WITH KEY nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0.
v_cif_fat = ( itab_zycit003-vlreal * itab_it-qtd_iten ) +
* >> Início da exclusão: FORM LOAD_ITAX
itab_it-vlfre_fat + itab_it-vlseg_fat .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_ITAX
itab_zycit003-vlfre_fat + itab_zycit003-vlseg_fat .
* << Fim da inclusão
ENDIF.
IF NOT v_tcfr IS INITIAL.
t_ivseg = itab_it-vlseg =
( v_cif_fat / ( v_tcif_fat ) ) * s_stvr.
v_tot_seg = ( v_cif_fat / ( v_tcif_fat ) ) * v_sgtofat.
ENDIF.
ENDIF.
ELSE.
IF NOT v_tcfr IS INITIAL.
t_ivseg = itab_it-vlseg = ( v_cfr / ( v_tcfr ) ) * s_stvr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
ELSE.
IF NOT itab_it-vlreald IS INITIAL.
v_tval = v_tval + ( itab_it-qtd_itend * itab_it-vlreal ).
ELSE.
v_tval = v_tval + ( itab_it-qtd_iten * itab_it-vlreal ).
ENDIF.
ENDIF.
IF s_inco1_ci EQ 'CIF'.
v_tcif_fat = v_tcif_fat + ( ( itab_zycit003-vlreal *
itab_it-qtd_iten )
* >> Início da exclusão: FORM CALC_INIT
+ itab_it-vlfre_fat + itab_it-vlseg_fat ).
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_INIT
+ itab_zycit003-vlfre_fat + itab_zycit003-vlseg_fat ).
* << Fim da inclusão
ENDIF.
ENDLOOP.
CASE s_inco1_ci.
WHEN 'CIF'.
v_bltofat = /pws/zycie093-prepaid +
/pws/zycie093-collect.
PERFORM: calc_conv_frete CHANGING v_bltofat.
v_tdif = v_tfrefat - v_bltofat +
v_tsegfat - v_sgtofat.
v_bltofat = /pws/zycie093-prepaid +
...
...
COMMIT WORK.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM valor_cfr USING p_tipo.
CLEAR: v_tcfr.
s_fbvr_s_d = /pws/zycie085-vlfob * /pws/zycie085-ukursfob.
IF /pws/zycit000-rat_seg_fob IS INITIAL.
IF s_inco1_ci EQ 'CIF'.
* >> Início da exclusão: FORM VALOR_CFR
v_tcfr = /pws/zycie085-vlfob + v_sgtofat.
* << Fim da exclusão
* >> Início da inclusão: FORM VALOR_CFR
v_tcfr = /pws/zycie085-vlfob + v_sgtofat + v_bltofat.
* << Fim da inclusão
v_cfr = t_vmle .
ELSE.
v_tcfr = /pws/zycie085-vlfob .
v_cfr = t_vmle .
ENDIF.
ELSE.
IF s_inco1_ci EQ 'CIF'.
* >> Início da exclusão: FORM VALOR_CFR
v_tcfr = /pws/zycie085-vlfob + v_sgtofat.
* << Fim da exclusão
* >> Início da inclusão: FORM VALOR_CFR
v_tcfr = /pws/zycie085-vlfob + v_sgtofat + v_bltofat.
* << Fim da inclusão
v_cfr = t_vmle .
ELSEIF s_inco1_ci EQ 'C&F'.
v_tcfr = s_fbvr_s_d .
v_cfr = t_ivmle + t_ivfre.
ELSE.
v_tcfr = s_fbvr_s_d.
v_cfr = t_ivmle.
ENDIF.
ENDIF.
ENDFORM.
...