CE PLUS - Nota 011427

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DI

Data/Hora da Publicação: 05/09/2011 00:00:00

Data/Hora Última Alteração: 09/09/2011 11:39:12

Descrição da Nota: ERRO AO CALCULAR VALOR ADUANEIRO COM MOEDA JPY

Sintoma

Erro ao calcular valor aduaneiro com moeda JPY

 

 

Solução

Tratar decimais dos valores

 

Versões Tratadas

8.0


Pré-Requisitos

Produto:

Nota

Descrição

RATEIO DE SEGURO NÃO BATE COM TOTAL DE ITENS QUANDO A MOEDA É DIFERENTE

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 11427 Data: 05/09/2011 Hora: 11:00:02

----------------------------------------------------------------------------------------------------

 

----------------------------------------------------------------------------------------------------

Nota Número              : 11427

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00008

Agrupamento              : 00084

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

 

11377  - 00001 - 8.0    - 00008  - RATEIO DE SEGURO NÃO BATE COM TOTAL DE ITENS QUANDO A MOEDA É DIF

----------------------------------------------------------------------------------------------------

ERRO AO CALCULAR VALOR ADUANEIRO COM MOEDA JPY

----------------------------------------------------------------------------------------------------

Palavras Chave:

JPY - DI - VALOR ADUANEIRO

 

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI023F01

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023F01

 

...

 

  IF /pws/zycie085-waersfob NE itab_it-waersbem.

    PERFORM: calc_conv_moeda:

             USING    itab_it-waersbem

                      /pws/zycie085-waersfob

             CHANGING t_vmle.

  ENDIF.

  t_vmle3 = t_vmle_d2 = t_vmle .

  v_it_plan = /pws/zycie003-netpr * v_qtd_c3.

* >> Início da exclusão: FORM LOAD_IFRE

  v_frete_nm  = /pws/zycie093-prepaid + /pws/zycie093-collect +

* << Fim da exclusão

* >> Início da inclusão: FORM LOAD_IFRE

  v_frete_nm  = /pws/zycie093-prepaid + /pws/zycie093-collect -

* << Fim da inclusão

                /pws/zycie093-ternacion.

* >> Início da inclusão: FORM LOAD_IFRE

    PERFORM trata_decimais USING /pws/zycie093-waersfre

                   CHANGING    v_frete_nm.

* << Fim da inclusão

  IF NOT v_ntgewd IS INITIAL.

    t_ivfre = ( /pws/zycie003-ntgewd / v_ntgewd ) * s_frvr.

    v_tot_fre = ( /pws/zycie003-ntgewd / v_ntgewd ) * v_frete_nm.

  ELSE.

    IF NOT v_ntgew IS INITIAL.

...