CE PLUS - Nota 005087
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 26/10/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:50:46
Descrição da Nota: RATEIO DO SEGURO EM PROCESSOS COM MOEDAS DIFERENTES
Sintoma
O programa não está calculando corretamente os valores do seguro.
Solução
Atualizado o rateio do seguro.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05087 Data: 26/10/2007 Hora: 10:43:33
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05087
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00018
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05044 - 00001 - 7.0 - 00003 - AJUSTE NO TRATAMENTO DE ITENS COM MOEDAS DIFERENTES NA ANA.
----------------------------------------------------------------------------------------------------
RATEIO DO SEGURO EM PROCESSOS COM MOEDAS DIFERENTES
----------------------------------------------------------------------------------------------------
Palavras Chave:
RATEIO SEGURO MOEDAS DIFERENTES
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI059F02
REPS /PWS/MZYCI059F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F02
...
v_usd ) / /pws/zycie085-ukursseg ) *
/pws/zycie085-per_seg ) / 100.
ENDIF.
ELSEIF s_inco1_ci = 'CIF'.
v_fretebl = /pws/zycie093-prepaid + /pws/zycie093-collect .
PERFORM: calc_conv_moeda:
USING /pws/zycie093-waersfre /pws/zycbt007-waersa
CHANGING v_fretebl.
PERFORM trata_decimais USING /pws/zycie085-waersseg
v_fretebl.
* >> Início da exclusão: FORM LOAD_SEVL
/pws/zycie085-vlseg = ( ( s_fbvr + v_fretebl - v_desp_brl +
/pws/zycie085-vlseg ) * /pws/zycie085-per_seg ) / 100.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_SEVL
CHECK NOT v_usd IS INITIAL.
/pws/zycie085-vlseg = ( ( s_fbvr +
( /pws/zycie085-vlfre * /pws/zycie085-ukursfre / v_usd ) +
( /pws/zycie085-vlseg * /pws/zycie085-ukursseg / v_usd )
) * /pws/zycie085-per_seg ) / 100.
* << Fim da inclusão
ELSE.
v_fretebl = /pws/zycie093-prepaid + /pws/zycie093-collect .
PERFORM: calc_conv_moeda:
USING /pws/zycie093-waersfre /pws/zycbt007-waersa
CHANGING v_fretebl.
PERFORM trata_decimais USING /pws/zycie085-waersseg
v_fretebl.
* >> Início da exclusão: FORM LOAD_SEVL
/pws/zycie085-vlseg = ( ( s_fbvr + v_fretebl - v_desp_brl )
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_SEVL
CHECK NOT v_usd IS INITIAL.
/pws/zycie085-vlseg = ( ( s_fbvr +
( /pws/zycie085-vlfre * /pws/zycie085-ukursfre / v_usd ) )
* << Fim da inclusão
* /pws/zycie085-per_seg ) / 100.
ENDIF.
PERFORM retorna_decimais USING /pws/zycie085-waersseg
/pws/zycie085-vlseg.
ENDIF.
IF NOT v_usd IS INITIAL.
s_stvr = /pws/zycie085-vlseg * /pws/zycie085-ukursseg / v_usd.
ENDIF.
PERFORM trata_decimais USING /pws/zycie085-waersseg
s_stvr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F03
...
APPEND itab_zycit255.
INSERT INTO /pws/zycit255 VALUES itab_zycit255.
COMMIT WORK.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM valor_cfr USING p_tipo.
CLEAR: v_tcfr.
IF NOT v_usd IS INITIAL.
* >> Início da exclusão: FORM VALOR_CFR
IF NOT v_tval3 IS INITIAL.
s_fbvr_s_d = v_tval3 * /pws/zycie085-ukursfob / v_usd.
ELSE.
* << Fim da exclusão
s_fbvr_s_d = /pws/zycie085-vlfob * /pws/zycie085-ukursfob / v_usd.
* >> Início da exclusão: FORM VALOR_CFR
ENDIF.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM VALOR_CFR
CASE s_inco1_ci.
WHEN 'C&F'.
* << Fim da exclusão
v_tcfr = s_fbvr_s_d.
* >> Início da exclusão: FORM VALOR_CFR
WHEN 'CIF'.
v_tcfr = s_fbvr_s_d.
WHEN 'FOB'.
IF NOT v_usd IS INITIAL.
v_tcfr = s_fbvr_s_d - ( v_tfrefat * /pws/zycie085-ukursfob / v_usd ).
ENDIF.
ENDCASE.
* << Fim da exclusão
ENDFORM.
FORM reclassificacao_ia.
CLEAR: itab_matuse_aux, itab_matuse_aux2, itab_bsis, itab_bsis_aux,
itab_di.
REFRESH: itab_matuse_aux, itab_matuse_aux2, itab_bsis, itab_bsis_aux,
itab_di.
SELECT SINGLE * FROM /pws/zycit042 INTO /pws/zycit042
WHERE nrseq EQ /pws/zycie003-nrseq.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit041 INTO /pws/zycit041
...