Sintoma

Ajuste para transferir as mensagens de erro na conversão da unidade estatistica para o log de

mensagens durante a vinculação do pedido.

Solução

Ajuste para transferir as mensagens de erro na conversão da unidade estatistica para o log de

mensagens durante a vinculação do pedido.

Informações Complementares

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

Nota Número 11199 Data: 02/06/2011 Hora: 10:47:05

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

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

Nota Número              : 11199

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 8.0

Pacote                   : 00007

Agrupamento              : 00073

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

Referência às notas relacionadas:

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

11097  - 00001 - 8.0    - 00007  - PROGRAMA EXIBE MENSAGENS PARA CADA ITEM DO EMBARQUE.

11144  - 00002 - 8.0    - 00007  - AO CRIAR EMBARQUE, EXIBE MENSAGEM DE ERRO PARA CADA PEDIDO E ITEM

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

LOG MENSAGENS UNIDADE ESTATISTICA NA VINCULAÇÃO DO PEDIDO

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

Palavras Chave:

EMBARQUE - MENSAGEM - ERRO - CONVERSÃO - UNIDADE - ESTATISTICA

/PWS/SAPMZYCI001

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

Objetos da nota:

REPS /PWS/MZYCI001F01

REPS /PWS/MZYCI001F03

REPS /PWS/MZYCI001TOP

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

    IF itab_zycit003-ntgew IS INITIAL AND

       itab_itens_aux-gewei = 'G' AND NOT

       itab_zycit003-qtd_iten IS INITIAL.

      itab_zycit003-ntgew = 1 / 1000.

    ENDIF.

    IF itab_zycit003-qtdeumest IS INITIAL.

      PERFORM qtd_est.

    ENDIF.

    MODIFY itab_zycit003 INDEX v_tabix.

  ENDLOOP.

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

  LOOP AT itab_msgncm.

    IF NOT itab_msgncm-matnr IS INITIAL.

      MESSAGE ID '/PWS/ZYCIM' TYPE itab_msgncm-msgtp NUMBER '136'

       WITH itab_msgncm-matnr.

    ELSE.

      MESSAGE ID '/PWS/ZYCIM' TYPE itab_msgncm-msgtp NUMBER '137'

       WITH itab_msgncm-j_1bnbm.

    ENDIF.

  ENDLOOP.

* << Fim da exclusão

  PERFORM tratar_decimais USING   /pws/zycie001-waers

                           CHANGING /pws/zycie001-netpr.

  PERFORM carrega_fabric.

ENDFORM.

...

...

FORM qtd_est.

  CHECK sy-tcode EQ '/PWS/ZYCI001_C'

  OR sy-tcode EQ '/PWS/ZYCI001_A'.

  IF itab_zycit003-qtdeumest IS INITIAL.

    IF t001-land1 IS INITIAL.

      SELECT SINGLE *

      FROM t001

      WHERE bukrs = /pws/zycie001-bukrs.

    ENDIF.

    IF NOT itab_zycit003-matnr IS INITIAL .

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

      CLEAR itab_msgncm.

* << Fim da inclusão

      CALL FUNCTION '/PWS/COVERT_UN_MATERIAL'

           EXPORTING

                matnr                = itab_zycit003-matnr

                meins                = itab_zycit003-meins

                qtde                 = itab_zycit003-qtd_iten

                conv                 = ' '

                land                 = t001-land1

                ncm                  = itab_zycit003-j_1bnbm

           IMPORTING

                qtds                 = itab_zycit003-qtdeumest

...

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

Modificações efetuadas em REPS /PWS/MZYCI001F03

...

                  arbgb = '/PWS/ZYCIM'

                  msgty = 'I'

                  msgv1 = text-338

                  msgv2 = itab_msgncm-ebeln

                  msgv3 = itab_msgncm-ebelp

                  msgv4 = text-339

                  txtnr = '015'

                  zeile = '01'.

        IF sy-subrc <> 0.

        ENDIF.

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

      ELSEIF itab_msgncm-field IS INITIAL

         AND NOT itab_msgncm-matnr IS INITIAL.

        CALL FUNCTION 'MESSAGE_STORE'

             EXPORTING

                  arbgb = '/PWS/ZYCIM'

                  msgty = 'I'

                  msgv1 = itab_msgncm-matnr

                  txtnr = '136'

                  zeile = '01'.

        IF sy-subrc <> 0.

        ENDIF.

      ELSEIF itab_msgncm-field IS INITIAL

         AND NOT itab_msgncm-j_1bnbm IS INITIAL.

        CALL FUNCTION 'MESSAGE_STORE'

             EXPORTING

                  arbgb = '/PWS/ZYCIM'

                  msgty = 'I'

                  msgv1 = itab_msgncm-j_1bnbm

                  txtnr = '137'

                  zeile = '01'.

        IF sy-subrc <> 0.

        ENDIF.

* << Fim da inclusão

      ENDIF.

    ENDLOOP .

    CALL FUNCTION 'MESSAGES_SHOW'

         EXPORTING

              object          = '/PWS/SAPMZYCI001'

              i_amodal_window = ' '.

    IF sy-subrc <> 0.

    ENDIF.

    CALL FUNCTION 'MESSAGES_INITIALIZE'.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001TOP

...

AT SELECTION-SCREEN.

  CASE sy-dynnr .

    WHEN '0300'.

      CASE sy-ucomm.

        WHEN 'CRET'.

          PERFORM: selecionar_itens,

                   verifica_itens.

* >> Início da inclusão:

          PERFORM exibe_mensagens.

* << Fim da inclusão

      ENDCASE.

...