Sintoma

Programa exibe mensagens para cada item do embarque.

Solução

Dar a mensagem após a verificação dos itens.

Informações Complementares

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

Nota Número 11097 Data: 14/04/2011 Hora: 16:39:46

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

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

Nota Número              : 11097

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00007

Agrupamento              : 00066

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

Referência às notas relacionadas:

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

07792  - 00001 - 7.0    - 00008  - UNIDADE ESTATISTICA DE ACORDO COM NCM DO PEDIDO

08558  - 00002 - 7.0    - 00010  - FUNÇÃO DE CONVERSÃO UNIDADES PARA A UNIDADE NCM OU BASICA DO MATE

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

PROGRAMA EXIBE MENSAGENS PARA CADA ITEM DO EMBARQUE.

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

Palavras Chave:

ITEM - MENSAGEM - NCM - EMBARQUE

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

Objetos da nota:

REPS /PWS/MZYCI001F01

REPS /PWS/MZYCI001X01

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

FORM verifica_itens.

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

clear itab_msgncm. refresh itab_msgncm.

* << Fim da inclusão

...

...

* >> Início da inclusã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 inclusã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 exclusão: FORM QTD_EST

      MOVE: itab_zycit003-qtd_iten TO itab_zycit003-qtdeumest,

            itab_zycit003-meins    TO itab_zycit003-meinsest.

      PERFORM converte_um_ncm USING itab_zycit003-matnr

                                    itab_zycit003-j_1bnbm

                           CHANGING itab_zycit003-meinsest

                                    itab_zycit003-werks

                                    itab_zycit003-qtdeumest.

      /pws/zycie003-qtdeumest = itab_zycit003-qtdeumest.

      /pws/zycie003-meinsest  = itab_zycit003-meinsest.

* << Fim da exclusão

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

      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.

* << Fim da inclusão

    ENDIF.

    v_flag_qtdest = 'X'.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001X01

...

* >> Início da inclusão:

data: begin of itab_msgncm occurs 0.

data: msgtp type /pws/zyglt217-msgtp,

      matnr type /pws/zycit003-matnr,

      j_1bnbm type /pws/zycit003-j_1bnbm,

      number type char3.

data: end of itab_msgncm.

* << Fim da inclusão

DATA: END OF COMMON PART a.