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.
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
...