Sintoma

Ao entrar na DI não calcula o valor da Mercadoria na Carga 2

Solução

Alterado local de ajuste.

Informações Complementares

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

Nota Número 08277 Data: 03/04/2009 Hora: 17:10:56

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

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

Nota Número              : 08277

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00009

Agrupamento              : 00092

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

Referência às notas relacionadas:

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

08231  - 00001 - 7.0    - 00009  - AJUSTE NO CALCULO DO VALOR DA MERCADORIA PARA CONFORME FEITO NA F

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

AO ENTRAR NA DI NÃO CALCULA O VALOR DA MERCADORIA NA CARGA 2

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

Palavras Chave:

DI - CÁLCULO - VALOR MERCADORIA - CARGA 2

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F02

REPS /PWS/MZYCI023F05

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

         ( itab_it-vlfre_fat / itab_zycit003-qtd_itenc3 ).

        CLEAR itab_it-vlfre_fat.

      ENDIF.

      IF NOT itab_it-vlseg_fat IS INITIAL AND

         NOT itab_zycit003-qtd_iten IS INITIAL.

        itab_it-vlreal = itab_it-vlreal +

        ( itab_it-vlseg_fat / itab_zycit003-qtd_itenc3 ).

        CLEAR itab_it-vlseg_fat.

      ENDIF.

    ENDIF.

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

    itab_zycit003-qtd_itendc3 = itab_zycit003-qtd_itend

                                               * 10000.

    itab_zycit003-qtd_itenc3 = itab_zycit003-qtd_iten

                                               * 10000.

    itab_it-qtd_itendc3 = itab_zycit003-qtd_itendc3 =

            trunc( itab_zycit003-qtd_itendc3 ) / 10000.

    itab_it-qtd_itenc3 = itab_zycit003-qtd_itenc3 =

            trunc( itab_zycit003-qtd_itenc3 )  / 10000.

    MODIFY itab_zycit003 TRANSPORTING qtd_itendc3 qtd_itenc3

                 WHERE  ebeln = itab_it-ebeln

                 and    EBELP = itab_it-ebelp.

* << Fim da inclusão

    itab_it-vlreal_dest = itab_it-vlreal.

    CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'

         EXPORTING

              input  = itab_it-matnr_item

         IMPORTING

              output = itab_it-matnr_item.

    IF sy-subrc <> 0.

    ENDIF.

    MODIFY itab_it.

  ENDLOOP.

...

...

FORM update_item.

  CLEAR:   itab_zycit003.

  REFRESH: itab_zycit003.

  IF NOT itab_it[] IS INITIAL.

    SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003

             FOR ALL ENTRIES IN itab_it

             WHERE nrseq = itab_it-nrseq AND

                   ebeln = itab_it-ebeln AND

                   ebelp = itab_it-ebelp.

  ENDIF.

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

  PERFORM decimais_qtd.

* << Fim da exclusão

  LOOP AT itab_it.

    v_idx = sy-tabix.

    READ TABLE itab_zycit003 WITH KEY

         nrseq = itab_it-nrseq

         ebeln = itab_it-ebeln

         ebelp = itab_it-ebelp.

    IF sy-subrc EQ 0.

      itab_it-j_1bnbm      = itab_zycit003-j_1bnbm.

      itab_it-mfrpn        = itab_zycit003-mfrpn.

      itab_it-naladi       = itab_zycit003-naladi.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F02

...

  ELSE.

    SELECT * FROM /pws/zycit094 INTO TABLE itab_zycit094

             WHERE nrseqce = /pws/zycie085-nrbl.

  ENDIF.

  IF NOT itab_zycit094[] IS INITIAL.

    SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003

             FOR ALL ENTRIES IN itab_zycit094

             WHERE nrseq = itab_zycit094-nrseq

             AND servico NE 'X'.

  ENDIF.

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

  PERFORM decimais_qtd.

* << Fim da exclusão

  e_subrc = '0'.

  v_perform  = 'FI' .

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI023'

                              'DI008'.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY zexit = 'DI008'  BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F05

...

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

FORM decimais_qtd.

  LOOP AT itab_zycit003.

    itab_zycit003-qtd_itendc3 = itab_zycit003-qtd_itend

                                               * 10000.

    itab_zycit003-qtd_itenc3 = itab_zycit003-qtd_iten

                                               * 10000.

    itab_zycit003-qtd_itendc3 =

            trunc( itab_zycit003-qtd_itendc3 ) / 10000.

    itab_zycit003-qtd_itenc3 =

            trunc( itab_zycit003-qtd_itenc3 )  / 10000.

    MODIFY itab_zycit003.

  ENDLOOP.

ENDFORM.

* << Fim da exclusão