Sintoma

Em processos a Granel o rateio na nota fiscal exibe o valor da mercadoria sem considerar a

quantidade desembarcada.

Solução

Ajustado programa para exibir o valor de mercadoria proporcional a quantidade desembarcada.

Informações Complementares

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

Nota Número 10788 Data: 03/12/2010 Hora: 10:59:03

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

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

Nota Número              : 10788

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00005

Agrupamento              : 00050

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

Referência às notas relacionadas:

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

01848  - 00001 - 6.0    - 00024  - NA NOTA FISCAL TEXTO MENSAGEM NÃO ESTÁ LEVANDO A TAXA SISCOMEX E

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

VALOR DA MERCADORIA ESTÁ SENDO EXIBIDO INCORRETO NO RATEIO

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

Palavras Chave:

VALOR - MERCADORIA - INCORRETO - EXIBIR - RATEIO - GRANEL

/PWS/SAPMZYCI016

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

Objetos da nota:

REPS /PWS/MZYCI016F01

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

FORM visualiza_rateio.

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

  DATA: itab_zycit036a TYPE /pws/zycit036 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  DATA: v_programa LIKE /pws/zycit036-origem VALUE 'NF'.

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

  itab_zycit036a[] = itab_zycit036[].

  LOOP AT itab_zycit003 WHERE qtd_itend NE space.

    READ TABLE itab_zycit036 WITH KEY ebeln = itab_zycit003-ebeln

                                      ebelp = itab_zycit003-ebelp

                                      nrseq = itab_zycit003-nrseq.

    IF sy-subrc EQ 0.

      itab_zycit036-vlreal = itab_zycit036-vlreal *

            ( itab_zycit003-qtd_itend / itab_zycit003-qtd_iten ).

      itab_zycit036-vlmov  = itab_zycit036-vlmov *

            ( itab_zycit003-qtd_itend / itab_zycit003-qtd_iten ).

      MODIFY itab_zycit036 TRANSPORTING vlreal vlmov

          WHERE ebeln = itab_zycit003-ebeln

            AND ebelp = itab_zycit003-ebelp

            AND nrseq = itab_zycit003-nrseq.

    ENDIF.

  ENDLOOP.

* << Fim da inclusão

  IF sy-dynnr = '0200'.

    v_visualiza = 'N'.

    CALL FUNCTION '/PWS/ZYCI_RATEIO_CUSTO'

      EXPORTING

        v_programa          =  v_programa

        v_visualiza         =  v_visualiza

        v_bukrs             =  wa_zycit085-bukrs

      IMPORTING

        v_resposta          =  v_resp

        v_erro              =  v_erro

...

...

        v_resposta          =  v_resp

        v_erro              =  v_erro

      TABLES

        itab_zycit036       =  itab_zycit036

        itab_despesa        =  itab_desp_funcao

        itab_zycit003       =  itab_zycit003

        itab_zycit100       =  itab_zycit100aux

        itab_zycit036_plan  =  itab_zycit036_plan

        itab_zycit480       =  itab_zycit480.

  ENDIF.

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

  LOOP AT itab_zycit036a.

    itab_zycit036-vlreal = itab_zycit036a-vlreal.

    itab_zycit036-vlmov  = itab_zycit036a-vlmov.

    MODIFY itab_zycit036 TRANSPORTING vlreal vlmov

        WHERE ebeln  = itab_zycit036a-ebeln

          AND ebelp  = itab_zycit036a-ebelp

          AND nrseq  = itab_zycit036a-nrseq

          AND codigo = itab_zycit036a-codigo.

  ENDLOOP.

* << Fim da inclusão

ENDFORM.

...

...

FORM ver_rateio.

  DATA: v_programa LIKE /pws/zycit036-origem VALUE 'NF'.

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

  DATA: itab_zycit036a TYPE /pws/zycit036 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  SELECT * FROM /pws/zycit100

         INTO TABLE itab_zycit100aux

         WHERE nrseqdi = /pws/zycit085-nrseqdi.

  IF NOT itab_zycit100aux[] IS INITIAL.

    SELECT * FROM /pws/zycit036

           INTO TABLE itab_zycit036

           FOR ALL ENTRIES IN itab_zycit100aux

           WHERE nrseq = itab_zycit100aux-nrseq

             AND ebeln = itab_zycit100aux-ebeln

             AND ebelp = itab_zycit100aux-ebelp

             AND origem = 'FAT'

             AND ( codigo = 'FOB' OR

                   codigo = 'CIF' OR

                   codigo = 'C&F' ).

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

  ENDIF.

  itab_zycit036a[] = itab_zycit036[].

  LOOP AT itab_zycit003 WHERE qtd_itend NE space.

    READ TABLE itab_zycit036 WITH KEY ebeln = itab_zycit003-ebeln

                                      ebelp = itab_zycit003-ebelp

                                      nrseq = itab_zycit003-nrseq.

    IF sy-subrc EQ 0.

      itab_zycit036-vlreal = itab_zycit036-vlreal *

            ( itab_zycit003-qtd_itend / itab_zycit003-qtd_iten ).

      itab_zycit036-vlmov  = itab_zycit036-vlmov *

            ( itab_zycit003-qtd_itend / itab_zycit003-qtd_iten ).

      MODIFY itab_zycit036 TRANSPORTING vlreal vlmov

          WHERE ebeln = itab_zycit003-ebeln

            AND ebelp = itab_zycit003-ebelp

            AND nrseq = itab_zycit003-nrseq.

* << Fim da inclusão

  ENDIF.

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

  ENDLOOP.

* << Fim da inclusão

  CALL FUNCTION '/PWS/ZYCI_RATEIO_CUSTO'

    EXPORTING

      v_programa          =  v_programa

      v_visualiza         =  v_visualiza

      v_bukrs             =  /pws/zycit085-bukrs

    IMPORTING

      v_resposta          =  v_resp

    TABLES

      itab_zycit036       =  itab_zycit036

        itab_despesa        =  itab_desp_funcao

      itab_zycit003       =  itab_zycit003

      itab_zycit100       =  itab_zycit100aux.

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

  LOOP AT itab_zycit036a.

    itab_zycit036-vlreal = itab_zycit036a-vlreal.

    itab_zycit036-vlmov  = itab_zycit036a-vlmov.

    MODIFY itab_zycit036 TRANSPORTING vlreal vlmov

        WHERE ebeln  = itab_zycit036a-ebeln

          AND ebelp  = itab_zycit036a-ebelp

          AND nrseq  = itab_zycit036a-nrseq

          AND codigo = itab_zycit036a-codigo.

  ENDLOOP.

* << Fim da inclusão

  LOOP AT itab_zycit049_a.

    DELETE itab_zycit049_a WHERE mandt IS initial.

  ENDLOOP.

ENDFORM.

...