Sintoma

Na adição da DI, pasta valor aduaneiro, o campo Valor R$ está

duplicando o valor do frete. Este campo deverá ser a multiplicação

do campo valor na moeda com o campo taxa cambial.

O sistema está incluindo o valor do campo Frete Inter R$ no total do

campo valor R$.

Esta pasta deverá ser igual a pasta valor aduaneiro do detalhe do item.

Solução

Estabelecida condição para verificar se valor já foi preenchido e foi

revisto o cálculo de alguns campos.

Informações Complementares

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

Nota Número 00992 Data: 08/03/2006 Hora: 14:49:05

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

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

Nota Número              : 00992

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00103

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DI ESTÁ DUPLICANDO O VALOR DO FRETE .

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

Palavras Chave:

ADIÇÃO DA DI - DUPLICAÇÃO - VALOR FRETE - FRETE INTER

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

Objetos da nota:

REPS /PWS/MZYCI023F01

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

    itab_it-vlfre_me = v_tot_fre.

    itab_it-vlseg_me = v_tot_seg.

    itab_it-vlfre    = t_ivfre.

    itab_it-vlseg    = t_ivseg.

    itab_it-vldiffob = t_vldif.

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

    itab_it-frn      =  ( /pws/zycie003-ntgew / v_tntgew ) * v_dif_frn.

* << Fim da exclusão

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

    if not /pws/zycie093-ternacion is initial.

       itab_it-frn = ( /pws/zycie003-ntgew / v_tntgew ) *

            /pws/zycie093-ternacion.

    endif.

* << Fim da inclusão

    /pws/zycie085-vlpis  = /pws/zycie085-vlpis  + t_pis  .

    /pws/zycie085-vlcofins = /pws/zycie085-vlcofins + t_cofins .

    MODIFY itab_it INDEX v_idx TRANSPORTING

           vlseg vlfre vlfob baseii vlii baseipi vlipi baseicms vlicms

           vlfre_me vlseg_me vldiffob frn vlmerc_ad vlpis basepis

...

...

           itab_zycit195,  itab_zycit200b,

           rtextx.

  LOOP AT itab_it WHERE adicao = wa_it-adicao.

    CASE s_inco1_ci.

      WHEN 'C&F'.

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

        CLEAR: itab_it-frn.

* << Fim da exclusão

        itab_it-vlreal_aux2 =

      ( ( ( itab_it-vlreal *  itab_it-qtd_iten ) + itab_it-vldiffob +

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

            itab_it-vlfre_me ) / itab_it-qtd_iten ) +

* << Fim da exclusão

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

            itab_it-vlfre_me ) / itab_it-qtd_iten ) -

* << Fim da inclusão

          ( itab_it-frn / itab_it-qtd_iten ) .

      WHEN 'CIF'.

        itab_it-vlreal_aux2 =

     ( ( ( itab_it-vlreal *  itab_it-qtd_iten ) + itab_it-vldiffob +

           itab_it-vlfre_me + itab_it-vlseg_me )

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

         / itab_it-qtd_iten ) +

* << Fim da exclusão

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

         / itab_it-qtd_iten ) -

* << Fim da inclusão

         ( itab_it-frn / itab_it-qtd_iten ) .

      WHEN 'FOB'.

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

        itab_it-vlreal_aux2 = itab_it-vlreal +

* << Fim da exclusão

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

        itab_it-vlreal_aux2 = itab_it-vlreal -

* << Fim da inclusão

         ( itab_it-frn / itab_it-qtd_iten ) .

    ENDCASE.

    APPEND itab_it TO itab_itb.

  ENDLOOP.

  LOOP AT itab_itb.

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

   a_vlrtot  = a_vlrtot + ( itab_itb-qtd_iten * itab_itb-vlreal_aux2 ).

* << Fim da inclusão

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

     read table itab_zycit263 with key ebeln = itab_itb-ebeln

                                       ebelp = itab_itb-ebelp.

     if sy-subrc eq 0.

        a_vlrtot = a_vlrtot + ( itab_zycit263-qtd_iten *

                                 itab_zycit263-vlreal ) .

     endif.

* << Fim da exclusão

     a_vladu  = a_vladu +  itab_itb-vlmerc_ad.

    a_vmler  = a_vlrtot * itab_itb-dttaxbem.

    a_qtdeest = a_qtdeest + itab_itb-qtdeumest.

    a_uqtde   = a_uqtde + itab_itb-unit_qtde.

    a_adbase  = a_adbase + itab_itb-baseantid.

...