CE PLUS - Nota 012728
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 31/01/2013 12:37:19
Data/Hora Última Alteração: 31/01/2013 12:37:19
Descrição da Nota: TRATAMENTO DE CASAS DECIMAIS ESTÁ INCORRETO NO VALOR TOTAL DO SEGURO
Sintoma
Em processos com icoterm CIF o valor do seguro em BRL está multiplicado por 100.
Solução
Atualizado programa para tratar casas decimais do valor de seguro para os processos CIF.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12728 Data: 12/12/2012 Hora: 15:56:27
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12728
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00002
Agrupamento : 00139
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12441 - 00001 - 9.0 - 00001 - DI CALCULA A PORCENTAGEM DO SEGURO INCORRETAMENTE
----------------------------------------------------------------------------------------------------
TRATAMENTO DE CASAS DECIMAIS ESTÁ INCORRETO NO VALOR TOTAL DO SEGURO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - VALOR - TOTAL - SEGURO - BRL - JPY - CIF
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
( /pws/zycie085-per_seg / 100 ).
PERFORM retorna_decimais USING /pws/zycie085-waersseg
CHANGING /pws/zycie085-vlseg.
s_stvr = v_vlseg * /pws/zycie085-ukursseg.
ENDIF.
ENDIF.
IF NOT v_vlseg IS INITIAL.
s_stvr = v_vlseg * /pws/zycie085-ukursseg.
ELSE.
s_stvr = /pws/zycie085-vlseg * /pws/zycie085-ukursseg.
* >> Início da exclusão: FORM LOAD_SEVL
ENDIF.
* << Fim da exclusão
PERFORM trata_decimais USING /pws/zycie085-waersseg
CHANGING s_stvr.
* >> Início da inclusão: FORM LOAD_SEVL
ENDIF.
* << Fim da inclusão
s_stvr_d2 = s_stvr.
ENDFORM.
...