Sintoma

O programa está calculando incorretamente a quantidade NCM.

Solução

Corrigir a conversão para utilizar a NCM informada no pedido quando esta estiver preenchida.

Informações Complementares

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

Nota Número 07792 Data: 16/12/2008 Hora: 16:56:29

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

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

Nota Número              : 07792

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00077

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

Referência às notas relacionadas:

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

03458  - 00001 - 7.0    - 00001  - AJUSTE PARA PREENCHER CORRETAMENTE A UNIDADE ESTATISTICA

07777  - 00002 - 7.0    - 00008  - PREENCHE UNIDADE NCM PARA UTILIZAÇÃO NA DI. SALDO NEGATIVO

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

UNIDADE ESTATISTICA DE ACORDO COM NCM DO PEDIDO

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

Palavras Chave:

NCM - PEDIDO - UNIDADE - ESTATISTICA - DI - CONVERSÃO

/PWS/SAPMAYCI001

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

Objetos da nota:

REPS /PWS/MZYCI001F01

REPS /PWS/MZYCI001F03

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

   v_qtd_item NE /pws/zycie003-qtd_iten.

    IF t001-land1 IS INITIAL.

      SELECT SINGLE *

      FROM t001

      WHERE bukrs = /pws/zycie001-bukrs.

    ENDIF.

    IF NOT itab_zycit003-matnr IS INITIAL .

      MOVE: itab_zycit003-qtd_iten TO itab_zycit003-qtdeumest,

            itab_zycit003-meins    TO itab_zycit003-meinsest.

      PERFORM converte_um_ncm USING itab_zycit003-matnr

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

                                    itab_zycit003-j_1bnbm

* << Fim da inclusão

                           CHANGING itab_zycit003-meinsest

                                    itab_zycit003-werks

                                    itab_zycit003-qtdeumest.

      /pws/zycie003-qtdeumest = itab_zycit003-qtdeumest.

      /pws/zycie003-meinsest  = itab_zycit003-meinsest.

    ENDIF.

    v_flag_qtdest = 'X'.

  ENDIF.

ENDFORM.

FORM verifica_mat_cent TABLES  p_it_ekpo STRUCTURE it_ekpo.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001F03

...

    v_manual = 'X'.

    EXIT.

  ELSEIF v_resposta EQ 'N'.

    v_manual = 'N'.

  ELSE.

    CLEAR v_manual.

  ENDIF.

  CLEAR v_resposta.

ENDFORM.

FORM converte_um_ncm USING p_matnr

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

                           p_ncm

* << Fim da inclusão

                     CHANGING p_meins

                              p_werks

                              p_qtd.

  DATA: v_cod_umncm   LIKE /pws/zyglt204-zum ,

        v_codpais     LIKE /pws/zycev604-land1  ,

        v_meinsb      LIKE marm-meinh,

        v_um_rez      TYPE i,

        v_um_ren      TYPE i,

        v_um_rez2     TYPE i,

        v_um_ren2     TYPE i,

...

...

        v_qtd_ncm     LIKE /pws/zycit247-qtd_ncm.

  DATA: v_conv1       TYPE /pws/zycit245-qtd_ncm,

        v_conv2       TYPE /pws/zycit245-qtd_ncm.

  CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm,

         v_um_rez2, v_um_ren2.

  CLEAR v_cod_umncm.

  IF v_land1 IS INITIAL.

    SELECT SINGLE land1 FROM t001 INTO v_land1 WHERE

     bukrs = /pws/zycie001-bukrs.

  ENDIF.

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

  CLEAR: v_j_1bnbm.

  IF p_ncm IS INITIAL.

* << Fim da inclusão

  SELECT SINGLE steuc INTO v_j_1bnbm

         FROM marc

         WHERE matnr EQ p_matnr

           AND steuc NE space

           AND werks EQ p_werks.

  IF sy-subrc NE 0.

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

    SELECT SINGLE a~steuc INTO v_j_1bnbm               "#EC CI_BUFFJOIN

* << Fim da exclusão

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

     SELECT SINGLE a~steuc INTO v_j_1bnbm              "#EC CI_BUFFJOIN

* << Fim da inclusão

           FROM ( marc AS a INNER JOIN t001w AS b ON

                  a~werks EQ b~werks )

           WHERE a~matnr EQ p_matnr

             AND a~steuc NE space

             AND b~land1 EQ t001-land1.

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

    ENDIF.

  ELSE.

    v_j_1bnbm = p_ncm.

* << Fim da inclusão

  ENDIF.

  IF sy-subrc EQ 0.

    SELECT SINGLE land1 /pws/zum

             FROM t604f INTO (v_codpais, v_cod_umncm)

             WHERE steuc = v_j_1bnbm

             AND   land1 = v_land1.

  ENDIF.

  IF NOT v_cod_umncm IS INITIAL.

    SELECT SINGLE msehi                                 "#EC CI_NOFIELD

             FROM /pws/zyglt204 INTO (v_umncm)

             WHERE zum = v_cod_umncm.

    IF sy-subrc NE 0.

      MESSAGE i015 WITH text-436 text-437 v_j_1bnbm.

      CLEAR p_qtd.

      EXIT.

    ENDIF.

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

    p_meins = v_umncm.

* << Fim da exclusão

    v_conv1 = 1.

    CALL FUNCTION 'UNIT_CONVERSION_SIMPLE_OLD'

         EXPORTING

              input                = v_conv1

              no_type_check        = 'X'

              round_sign           = 'X'

              unit_in              = p_meins

              unit_out             = v_umncm

         IMPORTING

              denominator          = v_um_ren

...