CE PLUS - Nota 005883
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 11/02/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:51:36
Descrição da Nota: RATEIO DO SEGURO PARA ITENS COM MOEDAS DIFERENTES
Sintoma
O valor do seguro rateado entre os itens está diferente do total do seguro na DI.
Solução
Converter os valor de cada item para a mesma moeda para efetuar o rateio do seguro.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05883 Data: 11/02/2008 Hora: 09:23:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05883
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00033
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01949 - 00001 - 6.0 - 00024 - VALOR DO RATEIO DO SEGURO CIF POR ITEM DI IGUAL AO SISCOMEX
----------------------------------------------------------------------------------------------------
RATEIO DO SEGURO PARA ITENS COM MOEDAS DIFERENTES
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO - VALOR - SEGURO - MOEDAS - DIFERENTES
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
t_ivdesp = t_ivdesp + v_sisco3.
ENDIF.
CLEAR: v_sisco3.
IF /pws/zycie100a-dttaxbem IS INITIAL.
MOVE itab_it-dttaxbem TO /pws/zycie100a-dttaxbem.
ENDIF.
IF p_tipo NE 'B' OR t_ivmle IS INITIAL OR v_dit = 'N'.
t_ivmle_d2 = t_ivmle = t_vmle * /pws/zycie100a-dttaxbem.
ENDIF.
PERFORM valor_cfr USING p_tipo.
* >> Início da inclusão: FORM LOAD_ITAX
IF itab_it-waersbem NE /pws/zycie085-waersfob AND
/pws/zycie085-ukursfob > 0 .
v_cfr = ( v_cfr * /pws/zycie100a-dttaxbem ) /
/pws/zycie085-ukursfob.
ENDIF.
* << Fim da inclusão
IF s_inco1_ci EQ 'CIF'.
IF NOT itab_it-qtd_itend 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.
v_cif_fat = ( itab_zycit003-vlreal * itab_it-qtd_itend ) +
itab_zycit003-vlfre_fat + itab_zycit003-vlseg_fat .
ENDIF.
IF NOT v_tcif_fat IS INITIAL.
...