Sintoma

A DSI calcula valor incorreto ao fazer variação cambial.

Solução

Considerar valor de frete ao calcular variação.

Informações Complementares

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

Nota Número 08534 Data: 10/06/2009 Hora: 16:41:04

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

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

Nota Número              : 08534

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00009

Agrupamento              : 00100

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

A DSI CALCULA VALOR INCORRETO AO FAZER VARIAÇÃO CAMBIAL

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

Palavras Chave:

DSI - VARIAÇÃO CAMBIAL

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

Objetos da nota:

REPS /PWS/MZYCI058F01

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

Modificações efetuadas em REPS /PWS/MZYCI058F01

...

    ENDIF.

    IF p_tipo = 'I'.

      itab_zycit049-vldp_aux = itab_zycit049-vldp_aux + t_ivdes2.

      MODIFY itab_zycit049 TRANSPORTING vldp_aux.

    ENDIF.

    IF t_ivdes2 > 0.

      t_ivdesp = t_ivdesp + t_ivdes2.

    ENDIF.

  ENDLOOP.

  CASE s_inco1_ci.

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

    WHEN 'CIF'.

      t_dif_seg =  v_tsegfat - v_sgtofat.

      t_dif_seg = ( v_cfr / ( v_tcfr ) ) * t_dif_seg.

  ENDCASE.

  CASE s_inco1_ci.

* << Fim da exclusão

    WHEN 'FOB'.

      t_ivadu = t_ivmle + t_ivseg + t_ivfre + t_ivdesp.

    WHEN 'C&F'.

      t_ivmle = t_ivmle.

      t_vmle = t_vmle + v_tot_fre.

      t_vmle_d2 = t_vmle.

      t_ivmle_d2 =   t_vmle_d2 * /pws/zycie100a-dttaxbem.

      t_ivadu = t_ivmle + t_ivseg + t_ivdesp + t_ivfre.

      t_vmle2 = t_vmle.

    WHEN 'CIF'.

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

      t_dif_seg =  v_tsegfat - v_sgtofat.

      t_dif_seg = ( v_cfr / ( v_tcfr ) ) * t_dif_seg.

      itab_it-vlfob = t_vmle  =  t_vmle  + t_dif_seg.

* << Fim da inclusão

      t_ivmle = t_ivmle + ( t_dif_seg * /pws/zycie085-ukursseg ).

      t_ivmle_d2 = t_ivmle + t_ivfre + t_ivseg .

      t_vmle_d2 = t_vmle = t_vmle + v_tot_fre + v_tot_seg + t_dif_seg.

      t_ivadu = t_ivmle + t_ivdesp + t_ivfre + t_ivseg.

      t_vmle2 = t_vmle.

  ENDCASE.

  itab_it-vlmerc_ad = t_vmle2.

  t_ivmle2 = t_vmle_d2 * /pws/zycie085-ukursfob .

  v_tmle_d2 = v_tmle_d2 + t_ivmle2  .

ENDFORM.

...