CE PLUS - Nota 007808

Módulo: DRAWBACK

Funcionalidade: Ato Concessório

Data/Hora da Publicação: 18/12/2008 00:00:00

Data/Hora Última Alteração: 01/03/2010 18:31:59

Descrição da Nota: CONVERSÃO PARA UNIDADE DE MEDIDA NCM

Sintoma

 

O programa esta tentando converter as unidades de medidas quando o programa esta parametrizado para

utilizar itens genéricos.

 

Solução

 

Atualização da rotina de conversão de unidades de medida no ato concessório.

Versões Tratadas

7.0

Informações Complementares

 

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

Nota Número 07808 Data: 18/12/2008 Hora: 09:13:07

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

 

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

Nota Número              : 07808

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00079

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

Texto Rápido:

CONVERSÃO PARA UNIDADE DE MEDIDA NCM

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

Palavras Chave:

ATO CONCESSÓRIO CONVERSÃO PARA UNIDADE DE MEDIDA NCM ITENS GENERICOS

 

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

Objetos da nota:

REPS /PWS/MZYCI040F02

 

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

 

...

                v_um_ren2     TYPE i,

                v_um_rez1      LIKE marm-umrez,

                v_um_ren1      LIKE marm-umren,

                v_j_1bnbm     LIKE /pws/zycit247-j_1bnbm,

       v_umncm       LIKE /pws/zyglt204-msehi    ,

         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.

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

  IF /pws/zycit321-it_ge EQ 'X'.

    EXIT.

  ENDIF.

* << Fim da inclusão

  CLEAR v_cod_umncm.

  SELECT SINGLE a~steuc INTO v_j_1bnbm

         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.                  "#EC CI_BUFFJOIN

  IF sy-subrc EQ 0.

    SELECT SINGLE land1 /pws/zum

             FROM t604f INTO (v_codpais, v_cod_umncm)

...

 

...

        v_um_ren TYPE i,

        v_um_rez1 LIKE marm-umrez,

        v_um_ren1 LIKE marm-umren,

        v_meinsb LIKE marm-meinh.

  DATA: v_conv1  TYPE /pws/zycit245-qtd_ncm,

        v_conv2  TYPE /pws/zycit245-qtd_ncm.

  CLEAR: v_um_rez, v_um_ren.

  SELECT SINGLE meins FROM mara INTO v_meinsb

      WHERE matnr EQ p_matnr.

  IF p_meins = v_meinsb.

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

    EXIT.

  ENDIF.

  IF /pws/zycit321-it_ge EQ 'X'.

* << Fim da inclusão

    EXIT.

  ENDIF.

  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_meinsb

...