Sintoma

Está ocorrendo dedução do Frete Rodoviário (lançado no B/L), no câmbio da adição da DI, e não apenas

na Base

de Cálculo dos impostos.

Solução

Ajuste feito para o cálculo do valor da moeda na adição da DI e do valor total na pasta cambio.

Informações Complementares

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

Nota Número 00431 Data: 09/12/2005 Hora: 14:06:58

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

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

Nota Número              : 00431

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00091

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

Referência às notas relacionadas:

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

00033  - 00001 - 6.0    - 00021  - VERIFICAÇÃO CAMPO NÚMERO DA DI

00121  - 00002 - 6.0    - 00021  - DI - DUPLICAÇÃO DO FRETE EM TERRITÓRIO NACIONAL COM GRANEL

00226  - 00003 - 6.0    - 00021  - SISTEMA ESTÁ VINCULANDO NF A DI ERRADA, NÃO PERMITINDO EXIBIR PRO

00237  - 00004 - 6.0    - 00021  - DI, DULPICIDADE DE SEQUENCIAL AO CRIAR

00302  - 00005 - 6.0    - 00021  - AJUSTES NAS FUNÇÕES STANDARDS DO R/3.

00373  - 00006 - 6.0    - 00021  - DUMP NA ADIÇÃO DA DI

00425  - 00007 - 6.0    - 00021  - NF REMESSA LEVA CAMPO REFERÊNCIA ESTÁ INCORRETO.

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

ESTÁ OCORRENDO DEDUÇÃO DO FRETE RODOVIÁRIO (LANÇADO NO B/L), NO CÂMBIO D

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

Palavras Chave:

FRETE RODOVIÁRIO

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023O01

REPS /PWS/MZYCI023X01

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

... << Perform load_itax >>

          t_ivadu = t_ivmle + t_ivdesp + t_ivfre + t_ivseg.

        ENDIF.

    ENDCASE.

  ENDIF.

* Chamado 199704 inicio

  itab_it-vlfobr    = t_ivmle2.

* Chamado 199704 fim

*<< Início  Inclusão >>                       <-----Nota

  itab_it-vlmerc_ad = t_vmle2.

*---- não acrescentar novamente ----*

*  itab_it-vlmerc_ad = t_vmle2 + /pws/zycie093-TERNACION.

*---- não acrescentar novamente ----*

*<< Fim     Inclusão >>                       <-----Nota

ENDFORM.                    " load_itax

...

... < Perform adic_load >

 FORM adic_load.

   CLEAR:   itab_itb,       itab_zycit114b, itab_zycit115b,

            itab_zycit118b, itab_zycit121b, itab_zycit121c,

            itab_zycit124b, itab_zycit049b, itab_zycit049c,

            itab_zycit195,  itab_zycit200b,

            a_vlrtot,       a_qtdeest,      a_uqtde,

            a_vmler,        a_adbase,       rtextx,

*<< Início  Inclusão >>                       <-----Nota

            a_vladu  .

*<< Fim     Inclusão >>                       <-----Nota

   REFRESH: itab_itb,       itab_zycit114b, itab_zycit115b,

...

... < Perform adic_load.>

* Não é mais necessário converter as moedas. A adição deve

* manter os itens na moeda original.

**************************************************************

*    IF /pws/zycie085-mdadicao EQ 'S'. "Flag identifica moedas

* diferentes

*<< Início  Inclusão >>                       <-----Nota

     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.

     a_vladu  = a_vladu +  itab_itb-vlmerc_ad.

*<< Fim     Inclusão >>                       <-----Nota

    a_vmler  = a_vlrtot * itab_itb-dttaxbem.

*    ELSE.

*      "Se a moeda do item for igual ao cabecalho

*      IF itab_itb-waersbem EQ  /pws/zycie085-waersfob.

*        a_vlrtot  = a_vlrtot +  itab_itb-vlmerc_ad.

*        a_vmler  = a_vlrtot * itab_itb-dttaxbem.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023O01

... << Module load_adic output >>

    PERFORM calc_itab_adic.

*<< Início  Inclusão >>                       <-----Nota

*    IF /pws/zycie116-valtot IS INITIAL.

*      /pws/zycie116-valtot = a_vlrtot.

*    ENDIF.

*<< Fim     Inclusão >>                       <-----Nota

  ENDIF.

  IF wa_ad-adicao_sisc IS INITIAL.

    MOVE: wa_ad-adicao TO wa_ad-adicao_sisc,

          wa_ad-adicao TO /pws/zycie116-adicao_sisc.

  ENDIF.

ENDMODULE.                 " load_adic  OUTPUT

... <<MODULE fill_struct049c OUTPUT>>

   LOOP AT itab_zycit049 WHERE coddesp = itab_zycit049c-coddesp

                              AND tipo = 'D'

                              AND NOT vldp IS initial.

     MOVE itab_zycit049c TO wa_it123.

     wa_it123-waers = itab_zycit049-waers.

     READ TABLE itab_zycit123 WITH KEY codigo = itab_zycit049c-coddesp.

     wa_it123-reduz = itab_zycit123-descricao_reduz.

     IF NOT itab_zycit049-vldp IS INITIAL.

       IF v_adics EQ '1'.

         v_wa_it123-vldp   = v_wa_it123-vldp   + itab_zycit049-vldp.

         v_wa_it123-vlreal = v_wa_it123-vlreal + itab_zycit049-vlreal.

       ELSE.

         IF itab_zycit049-peso EQ 'X'.

           CLEAR: wa_it123-vldp, wa_it123-vlreal, v_ntgew_adic.

           LOOP AT itab_it WHERE adicao = wa_it-adicao.

             v_ntgew_adic = v_ntgew_adic + itab_it-ntgew.

           ENDLOOP.

           v_wa_it123-vldp = v_wa_it123-vldp +

                              ( v_ntgew_adic / v_tntgew ) *

*<< Início  Inclusão >>                       <-----Nota

 *                             itab_zycit049-vlreal.

                               itab_zycit049-vldp.

*<< Fim     Inclusão >>                       <-----Nota

           v_wa_it123-vlreal = v_wa_it123-vlreal +

                              ( v_ntgew_adic / v_tntgew ) *

                               itab_zycit049-vlreal.

         ELSE.

           CLEAR: wa_it123-vldp, wa_it123-vlreal.

           LOOP AT itab_it WHERE adicao = wa_it-adicao.

             v_wa_it123-vldp = v_wa_it123-vldp +

                     ( ( itab_zycit049-vldp / /pws/zycie006-vlmerc ) *

                       ( itab_it-vlreal * itab_it-qtd_iten ) ).

             v_wa_it123-vlreal = v_wa_it123-vlreal +

                     ( ( itab_zycit049-vlreal / /pws/zycie006-vlmerc ) *

                       ( itab_it-vlreal * itab_it-qtd_iten ) ).

           ENDLOOP.

         ENDIF.

       ENDIF.

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

Modificações efetuadas em REPS /PWS/MZYCI023X01

...

        /pws/zycit078.

data: begin of common part a.

data:

  t_icms   LIKE /pws/zycie085-vlfob,

  a_vlrtot   LIKE t_icms,

* >> Início da inclusão:

  a_vladu    like t_icms,

* << Fim da inclusão

  a_vmler    LIKE t_icms,

  a_itfre    LIKE t_icms,

  a_itseg    LIKE t_icms,

  a_baseii   LIKE /pws/zycie116-baseii,

  a_iitcalc  LIKE t_icms,

...

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

Modificações efetuadas em /PWS/SAPMZYCI023 0330

*O seguinte campo foi eliminado.

Elimin.      A_VLRTOT

                I/O        4       21      20      20       1     DEC                    Off

                Alinh.à dir.

*O seguinte campo foi inserido.

Inserido     A_VLADU

                I/O        4       21      20      20       1     DEC                    Off

                Alinh.à dir.