Sintoma

A cada ENTER dado no embarque, o sistema exibe a mensagem "Unidade de medida Siscomex não esta

corretamente parametrizada para o NCM".

Solução

Fazer o tratamento por item verificando se possui UM estatística.

Informações Complementares

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

Nota Número 03035 Data: 06/02/2007 Hora: 14:04:45

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

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

Nota Número              : 03035

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00000

Agrupamento              : 00000

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

Referência às notas relacionadas:

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

02878  - 00001 - 6.0    - 00026  - AJUSTE NA CONVERSÃO DA QUANTIDADE NA UM ESTATISTICA NO EMBARQUE

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

A CADA ENTER NO EMBARQUE, O SISTEMA EXIBE A MSG DE ERRO DE UM SISCOMEX.

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

Palavras Chave:

ENTER - EMBARQUE -MENSAGEM DE ERRO - UNIDADE DE MEDIDA

PARÂMETRO NCM

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

Objetos da nota:

MESS /PWS/ZYCIM136

MESS /PWS/ZYCIM137

REPS /PWS/MZYCI001F01

REPS /PWS/MZYCI001F03

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

Modificações efetuadas em MESS /PWS/ZYCIM135

*Classe de mensagem /PWS/ZYCIM

135 Unidade &1 não parametrizada para o material &2

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

Modificações efetuadas em MESS /PWS/ZYCIM136

*Classe de mensagem /PWS/ZYCIM

136 Código NCM não parametrizado para o material &1

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

Modificações efetuadas em MESS /PWS/ZYCIM137

*Classe de mensagem /PWS/ZYCIM

137 UM Siscomex não esta corretamente parametrizada para o NCM &1

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

  ENDIF.

  MOVE: space TO itab_zycit003-nrseqlsi   ,

        space TO itab_zycit003-nrlsisub   ,

        space TO itab_zycit003-nrlsi      .

  MODIFY itab_zycit003.

  MESSAGE s015 WITH text-115.

ENDFORM.

FORM qtd_est.

  CHECK sy-tcode EQ '/PWS/ZYCI001_C'

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

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

  MOVE: itab_zycit003-qtd_iten TO itab_zycit003-qtdeumest,

        itab_zycit003-meins    TO itab_zycit003-meinsest.

* << Fim da exclusão

  IF t001-land1 IS INITIAL.

    SELECT SINGLE *

    FROM t001

    WHERE bukrs = /pws/zycie001-bukrs.

  ENDIF.

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

  IF NOT itab_zycit003-matnr IS INITIAL.

  MOVE: itab_zycit003-qtd_iten TO itab_zycit003-qtdeumest,

        itab_zycit003-meins    TO itab_zycit003-meinsest.

* << Fim da inclusão

  PERFORM converte_um_ncm USING itab_zycit003-matnr

                       CHANGING itab_zycit003-meinsest

                                itab_zycit003-qtdeumest.

  /pws/zycie003-qtdeumest = itab_zycit003-qtdeumest.

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

  ENDIF.

* << Fim da inclusão

  v_flag_qtdest = 'X'.

ENDFORM.

FORM verifica_mat_cent TABLES  p_it_ekpo STRUCTURE it_ekpo.

  DATA: cacl_matnr     LIKE ekpo-matnr        ,

        cacl_werks     LIKE ekpo-werks        .

  LOOP AT p_it_ekpo.

    IF cacl_matnr IS INITIAL.

      cacl_matnr = p_it_ekpo-matnr.

    ENDIF.

    IF cacl_werks IS INITIAL.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001F03

...

       unit_in_not_found          = 8

       unit_out_not_found         = 9

       OTHERS                     = 10

              .

    IF sy-subrc <> 0.

      SELECT SINGLE umrez umren

               FROM marm INTO (v_um_rez1, v_um_ren1)

               WHERE matnr = p_matnr

               AND   meinh = p_meins.

      IF sy-subrc NE 0.

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

        MESSAGE i015 WITH text-434 p_meins text-435 p_matnr.

* << Fim da exclusão

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

        SELECT SINGLE * FROM /pws/zyglt217

        WHERE arbgb EQ '/PWS/ZYCIM'

        AND   msgnr EQ '135'.

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

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

            WITH p_meins p_matnr.

        ENDIF.

* << Fim da inclusão

        CLEAR p_qtd.

        EXIT.

      ELSE.

        v_um_rez = v_um_rez1.

        v_um_ren = v_um_ren1.

      ENDIF.

    ENDIF.

    IF v_um_rez IS INITIAL

      OR v_um_ren IS INITIAL.

      EXIT.

...

...

         unit_in_not_found          = 8

         unit_out_not_found         = 9

         OTHERS                     = 10

                .

      IF sy-subrc <> 0.

        SELECT SINGLE umrez umren

                 FROM marm INTO (v_um_rez1, v_um_ren1)

                 WHERE matnr = p_matnr

                 AND   meinh = v_umncm.

        IF sy-subrc NE 0.

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

          MESSAGE i015 WITH text-434 v_umncm text-435 p_matnr.

* << Fim da exclusão

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

          SELECT SINGLE * FROM /pws/zyglt217

          WHERE arbgb EQ '/PWS/ZYCIM'

          AND   msgnr EQ '135'.

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

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

                    WITH v_umncm p_matnr.

          ENDIF.

* << Fim da inclusão

          CLEAR p_qtd.

          EXIT.

        ELSE.

          v_um_rez2 = v_um_rez1.

          v_um_ren2 = v_um_ren1.

        ENDIF.

      ENDIF.

      IF v_um_rez IS INITIAL

        OR v_um_ren IS INITIAL.

        EXIT.

      ENDIF.

    ELSE.

      v_um_ren2 = 1.

      v_um_rez2 = 1.

    ENDIF.

    p_qtd = p_qtd *

      ( ( v_um_rez / v_um_ren ) * ( v_um_ren2 / v_um_rez2 ) ).

    p_meins = v_umncm.

  ELSE.

    IF v_j_1bnbm IS INITIAL.

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

      MESSAGE i015 WITH text-442 p_matnr.

* << Fim da exclusão

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

      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.

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

          WITH p_matnr.

      ENDIF.

* << Fim da inclusão

    ELSE.

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

      MESSAGE i015 WITH text-436 text-437 v_j_1bnbm.

* << Fim da exclusão

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

      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.

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

          WITH v_j_1bnbm.

      ENDIF.

* << Fim da inclusão

    ENDIF.

    CLEAR p_qtd.

    EXIT.

  ENDIF.

ENDFORM.