Sintoma

Não obedece parametros da tabela /PWS/ZYGLT217 para exibir mensagens de erro.

Solução

Verificar o tipo de mensagem.

Informações Complementares

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

Nota Número 11867 Data: 19/01/2012 Hora: 15:33:55

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

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

Nota Número              : 11867

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00010

Agrupamento              : 00102

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

Referência às notas relacionadas:

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

07157  - 00001 - 7.0    - 00006  - MENSAGEM CONFIGURAVEL "VERIFICAR PEDIDO PASTA CONFIRMAÇÕES"

07916  - 00002 - 7.0    - 00008  - CALCULO DA QUANTIDADE NA UNIDADE DE MEDIDA ESTATÍSTICA

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

11199  - 00004 - 8.0    - 00007  - LOG MENSAGENS UNIDADE ESTATISTICA NA VINCULAÇÃO DO PEDIDO

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

NÃO OBEDECE PARAMETROS DA TABELA /PWS/ZYGLT217

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

Palavras Chave:

PARÂMETRO - ZYGLT217  - UNIDADE DE MEDIDA - VINCULAR

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

Objetos da nota:

REPS /PWS/MZYCI001F01

REPS /PWS/MZYCI001F03

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

    READ TABLE itab_ekes WITH KEY ebeln = itab_itens-ebeln

                                  ebelp = itab_itens-ebelp.

    IF sy-subrc EQ 0 AND

       itab_itens-wepos EQ 'X' AND

       itab_itens-elikz NE 'X'.

      v_confirm = 'X'.

    ENDIF.

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

    PERFORM converte  USING itab_itens-matnr

                            itab_itens-meins

                            ' '

                            itab_itens-j_1bnbm

                  CHANGING  itab_zycit003-qtd_iten

                            itab_zycit003-meinsest  .

    IF v_erro = 'X' .

      DELETE itab_itens .

    ENDIF.

* << Fim da inclusão

  ENDLOOP.

  IF v_confirm = 'X'.

    SELECT SINGLE * FROM /pws/zyglt217

    WHERE arbgb EQ '/PWS/ZYCIM'

    AND   msgnr EQ '142'.

    IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.

      MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '142'.

    ENDIF.

  ENDIF.

...

...

FORM qtd_est.

  CHECK sy-tcode EQ '/PWS/ZYCI001_C'

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

  IF itab_zycit003-qtdeumest IS INITIAL.

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

    IF t001-land1 IS INITIAL.

      SELECT SINGLE *

      FROM t001

      WHERE bukrs = /pws/zycie001-bukrs.

    ENDIF.

    IF NOT itab_zycit003-matnr IS INITIAL .

      CLEAR itab_msgncm.

      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

                un_s                 = itab_zycit003-meinsest

           EXCEPTIONS

                conversion_not_found = 1

                ncm_not_found        = 2

                overflow             = 3

                un_ncm_not_found     = 4

                material_not_found   = 5

                OTHERS               = 6.

      CASE sy-subrc.

        WHEN 2.

          IF itab_zycit003-j_1bnbm IS INITIAL.

            SELECT SINGLE * FROM /pws/zyglt217

              WHERE arbgb EQ '/PWS/ZYCIM'

             AND   msgnr EQ '136'.

            itab_msgncm-msgtp  = /pws/zyglt217-msgtp .

            itab_msgncm-matnr  = itab_zycit003-matnr .

            itab_msgncm-number = '136'.

            COLLECT itab_msgncm.

          ENDIF.

        WHEN  4.

          SELECT SINGLE * FROM /pws/zyglt217

           WHERE arbgb EQ '/PWS/ZYCIM'

             AND msgnr EQ '137'.

          itab_msgncm-msgtp   = /pws/zyglt217-msgtp .

          itab_msgncm-j_1bnbm = itab_zycit003-j_1bnbm.

          itab_msgncm-number  = '137'.

          COLLECT itab_msgncm.

      ENDCASE.

    ENDIF.

* << Fim da exclusão

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

    PERFORM converte  USING itab_zycit003-matnr

                            itab_zycit003-meins

                            itab_zycit003-qtd_iten

                            itab_zycit003-j_1bnbm

                  CHANGING  itab_zycit003-qtdeumest

                            itab_zycit003-meinsest  .

* << Fim da inclusão

    v_flag_qtdest = 'X'.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001F03

...

      ELSEIF itab_msgncm-field IS INITIAL

         AND NOT itab_msgncm-j_1bnbm IS INITIAL.

        CALL FUNCTION 'MESSAGE_STORE'

             EXPORTING

                  arbgb = '/PWS/ZYCIM'

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

                  msgty = 'I'

* << Fim da exclusão

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

                  msgty = itab_msgncm-msgtp

* << Fim da inclusão

                  msgv1 = itab_msgncm-j_1bnbm

                  txtnr = '137'

                  zeile = '01'.

        IF sy-subrc <> 0.

        ENDIF.

      ENDIF.

    ENDLOOP .

...

...

* >> Início da inclusão:

FORM converte USING p_matnr

                    p_meins

                    p_qtd_iten

                    p_j1bnbm

          CHANGING  p_qtdumest

                    p_meinsest .

  IF t001-land1 IS INITIAL.

    SELECT SINGLE *

    FROM t001

    WHERE bukrs = /pws/zycie001-bukrs.

  ENDIF.

  IF NOT p_matnr IS INITIAL .

    CLEAR itab_msgncm.

    CALL FUNCTION '/PWS/COVERT_UN_MATERIAL'

         EXPORTING

              matnr                = p_matnr

              meins                = p_meins

              qtde                 = p_qtd_iten

              conv                 = ' '

              land                 = t001-land1

              ncm                  = p_j1bnbm

         IMPORTING

              qtds                 = p_qtdumest

              un_s                 = p_meinsest

         EXCEPTIONS

              conversion_not_found = 1

              ncm_not_found        = 2

              overflow             = 3

              un_ncm_not_found     = 4

              material_not_found   = 5

              OTHERS               = 6.

    CASE sy-subrc.

      WHEN 2.

        IF p_j1bnbm IS INITIAL.

          SELECT SINGLE * FROM /pws/zyglt217

            WHERE arbgb EQ '/PWS/ZYCIM'

           AND   msgnr EQ '136'.

          IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.

            itab_msgncm-msgtp  = /pws/zyglt217-msgtp .

            itab_msgncm-matnr  = p_matnr .

            itab_msgncm-number = '136'.

            COLLECT itab_msgncm.

          ENDIF.

        ENDIF.

      WHEN  4.

        SELECT SINGLE * FROM /pws/zyglt217

         WHERE arbgb EQ '/PWS/ZYCIM'

           AND msgnr EQ '137'.

        IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.

          itab_msgncm-msgtp   = /pws/zyglt217-msgtp .

          itab_msgncm-j_1bnbm = p_j1bnbm.

          itab_msgncm-number  = '137'.

          IF /pws/zyglt217-msgtp EQ 'E'.

            v_erro = 'X' .

          ENDIF.

          COLLECT itab_msgncm.

        ENDIF.

    ENDCASE.

  ENDIF.

ENDFORM.

* << Fim da inclusão