CE PLUS - Nota 012441
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 16/08/2012 00:00:00
Data/Hora Última Alteração: 20/09/2012 13:33:10
Descrição da Nota: DI CALCULA A PORCENTAGEM DO SEGURO INCORRETAMENTE
Sintoma
DI calcula a porcentagem do seguro incorretamente
Solução
Atualizado programa para converter em R$ antes de calcular porcentagem do seguro no caso de frete
com moeda diferente.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12441 Data: 16/08/2012 Hora: 15:32:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12441
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00001
Agrupamento : 00125
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11200 - 00001 - 8.0 - 00007 - VALOR DE SEGURO ERRADO QUANDO DI POSSUI MOEDAS DIFERENTES
11341 - 00002 - 8.0 - 00008 - VALOR PERCENTUAL DO SEGURO DA DI NÃO CONFERE COM MOEDAS DIFERENTE
----------------------------------------------------------------------------------------------------
DI CALCULA A PORCENTAGEM DO SEGURO INCORRETAMENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - PORCENTAGEM - SEGURO - MOEDAS DIFERENTES
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
FORM load_coll.
v_fretc = /pws/zycie093-prepaid + /pws/zycie093-collect -
/pws/zycie093-ternacion.
* >> Início da inclusão: FORM LOAD_COLL
IF NOT v_fretc IS INITIAL.
PERFORM trata_decimais USING /pws/zycie093-waersfre
CHANGING v_fretc.
ENDIF.
* << Fim da inclusão
s_frvr = v_fretc * /pws/zycie085-ukursfre.
PERFORM trata_decimais USING /pws/zycie093-waersfre
CHANGING s_frvr.
* >> Início da inclusão: FORM LOAD_COLL
PERFORM retorna_decimais USING /pws/zycie093-waersfre
CHANGING s_frvr.
* << Fim da inclusão
s_frvr_d2 = s_frvr.
ENDFORM.
...
...
IF NOT v_tval2 IS INITIAL AND
NOT /pws/zycie085-per_seg IS INITIAL.
PERFORM taxa_converte USING /pws/zycie085-waersfob
/pws/zycie085-dttax
CHANGING v_taxa.
IF NOT v_taxa IS INITIAL.
v_fob = v_tval2 * v_taxa .
ENDIF.
v_bltofat = /pws/zycie093-prepaid + /pws/zycie093-collect -
/pws/zycie093-ternacion.
* >> Início da exclusão: FORM LOAD_SEVL
IF NOT v_bltofat IS INITIAL.
PERFORM trata_decimais USING /pws/zycie093-waersfre
CHANGING v_bltofat .
ENDIF.
* << Fim da exclusão
IF NOT /pws/zycie085-ukursfob IS INITIAL.
PERFORM calc_conv_frete CHANGING v_bltofat.
ENDIF.
PERFORM taxa_converte USING /pws/zycie085-waersfob
/pws/zycie085-dttax
CHANGING v_taxa.
IF NOT v_taxa IS INITIAL.
v_fre = v_bltofat * v_taxa .
ENDIF.
IF NOT /pws/zycie085-ukursseg IS INITIAL.
* >> Início da exclusão: FORM LOAD_SEVL
/pws/zycie085-vlseg = ( ( v_fob + v_fre - v_desp_brl ) *
( /pws/zycie085-per_seg / 100 ) ) / /pws/zycie085-ukursseg.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_SEVL
s_stvr = ( ( v_fob + v_fre - v_desp_brl ) *
( /pws/zycie085-per_seg / 100 ) ) .
* << Fim da inclusão
ENDIF.
PERFORM retorna_decimais USING /pws/zycie085-waersseg
CHANGING /pws/zycie085-vlseg.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM LOAD_SEVL
/pws/zycie085-vlseg = s_stvr / /pws/zycie085-ukursseg.
* << Fim da inclusão
* >> Início da exclusão: FORM LOAD_SEVL
s_stvr = /pws/zycie085-vlseg * /pws/zycie085-ukursseg.
* << Fim da exclusão
PERFORM trata_decimais USING /pws/zycie085-waersseg
CHANGING s_stvr.
s_stvr_d2 = s_stvr.
ENDFORM.
...