CE PLUS - Nota 000980
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 06/03/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:17:00
Descrição da Nota: CONVERSÃO DE UNIDADES QUE NÃO NECESSITAM SER CADASTRADAS
Sintoma
Os programas exigem que qualquer conversão de unidade que for necessario
realizar, os dados para a conversão devem estar parametrizados no
cadastro de materiais.
Solução
Ajustar os programas para efetuar a conversão padrões das unidades que
não necessitam ser parametrizadas.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00980 Data: 06/03/2006 Hora: 11:25:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00980
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00103
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CONVERSÃO DE UNIDADES QUE NÃO NECESSITAM SER CADASTRADAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
CONVERSÃO - UNIDADE - RECEBIMENTO - LI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
REPT /PWS/SAPMZYCI017
REPT /PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
ENDIF.
ELSE.
MESSAGE e261(sf) WITH p_transacao.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM CARREGA_UMNCM_REAL
FORM carrega_umncm_real USING p_itab_zycit247_codmat
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
FORM carrega_umncm_real USING p_matnr
* << Fim da inclusão
CHANGING p_meins
p_qtd.
DATA: v_cod_umncm LIKE /pws/zyglt204-zum ,
v_codpais LIKE /pws/zycev604-land1 ,
* >> Início da exclusão: FORM CARREGA_UMNCM_REAL
v_um_rez LIKE marm-umrez,
v_um_ren LIKE marm-umren,
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
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_um_rez1 LIKE marm-umrez,
v_um_ren1 LIKE marm-umren,
* << Fim da inclusão
v_j_1bnbm LIKE /pws/zycit247-j_1bnbm,
* >> Início da exclusão: FORM CARREGA_UMNCM_REAL
v_umncm LIKE /pws/zyglt204-zum ,
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
v_umncm LIKE /pws/zyglt204-msehi ,
* << Fim da inclusão
v_qtd_ncm LIKE /pws/zycit247-qtd_ncm.
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
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.
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.
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
WHERE steuc = v_j_1bnbm.
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-240 text-241 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM CARREGA_UMNCM_REAL
CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
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
numerator = v_um_rez
output = v_conv2
EXCEPTIONS
conversion_not_found = 1
division_by_zero = 2
input_invalid = 3
output_invalid = 4
overflow = 5
type_invalid = 6
units_missing = 7
unit_in_not_found = 8
unit_out_not_found = 9
OTHERS = 10.
IF sy-subrc = 0.
p_qtd = ( p_qtd / v_um_ren ) * v_um_rez.
p_meins = v_umncm.
EXIT.
ENDIF.
ENDIF.
SELECT SINGLE meins FROM mara INTO v_meinsb
WHERE matnr EQ p_matnr.
IF v_meinsb NE p_meins.
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
IMPORTING
denominator = v_um_ren
numerator = v_um_rez
output = v_conv2
EXCEPTIONS
conversion_not_found = 1
division_by_zero = 2
input_invalid = 3
output_invalid = 4
overflow = 5
type_invalid = 6
units_missing = 7
unit_in_not_found = 8
unit_out_not_found = 9
OTHERS = 10
.
IF sy-subrc <> 0.
* << Fim da inclusão
SELECT SINGLE umrez umren
* >> Início da exclusão: FORM CARREGA_UMNCM_REAL
FROM marm INTO (v_um_rez, v_um_ren)
WHERE matnr = p_itab_zycit247_codmat
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
FROM marm INTO (v_um_rez1, v_um_ren1)
WHERE matnr = p_matnr
* << Fim da inclusão
AND meinh = p_meins.
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
IF sy-subrc NE 0.
MESSAGE i015 WITH text-102 p_meins text-103 p_matnr.
CLEAR p_qtd.
EXIT.
ELSE.
v_um_rez = v_um_rez1.
v_um_ren = v_um_ren1.
ENDIF.
ENDIF.
* << Fim da inclusão
IF v_um_rez IS INITIAL
OR v_um_ren IS INITIAL.
EXIT.
ENDIF.
* >> Início da exclusão: FORM CARREGA_UMNCM_REAL
p_qtd = ( p_qtd / v_um_ren ) * v_um_rez.
CLEAR: v_um_rez, v_um_ren.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
ELSE.
v_um_ren = 1.
v_um_rez = 1.
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
* << Fim da inclusão
* >> Início da exclusão: FORM CARREGA_UMNCM_REAL
SELECT SINGLE steuc FROM marc INTO v_j_1bnbm
WHERE matnr EQ p_itab_zycit247_codmat.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
WHERE steuc = v_j_1bnbm.
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
IF v_meinsb NE v_umncm.
v_conv1 = 1.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE_OLD'
EXPORTING
input = v_conv1
no_type_check = 'X'
round_sign = 'X'
unit_in = v_meinsb
unit_out = v_umncm
IMPORTING
denominator = v_um_rez2
numerator = v_um_ren2
output = v_conv2
EXCEPTIONS
conversion_not_found = 1
division_by_zero = 2
input_invalid = 3
output_invalid = 4
overflow = 5
type_invalid = 6
units_missing = 7
unit_in_not_found = 8
unit_out_not_found = 9
OTHERS = 10
.
IF sy-subrc <> 0.
* << Fim da inclusão
SELECT SINGLE umrez umren
* >> Início da exclusão: FORM CARREGA_UMNCM_REAL
FROM marm INTO (v_um_rez, v_um_ren)
WHERE matnr = p_itab_zycit247_codmat
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
FROM marm INTO (v_um_rez1, v_um_ren1)
WHERE matnr = p_matnr
* << Fim da inclusão
AND meinh = v_umncm.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM CARREGA_UMNCM_REAL
MESSAGE i015 WITH text-102 v_umncm text-103 p_itab_zycit247_codmat.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
MESSAGE i015 WITH text-102 v_umncm text-103 p_matnr.
CLEAR p_qtd.
EXIT.
ELSE.
v_um_rez2 = v_um_rez1.
v_um_ren2 = v_um_ren1.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
ENDIF.
* << Fim da inclusão
IF v_um_rez IS INITIAL
OR v_um_ren IS INITIAL.
EXIT.
ENDIF.
* >> Início da exclusão: FORM CARREGA_UMNCM_REAL
p_qtd = ( p_qtd / v_um_rez ) * v_um_ren.
p_meins = v_umncm.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
ELSE.
v_um_ren2 = 1.
v_um_rez2 = 1.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM CARREGA_UMNCM_REAL
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.
MESSAGE i015 WITH text-255 p_matnr.
ELSE.
MESSAGE i015 WITH text-240 text-241 v_j_1bnbm.
ENDIF.
CLEAR p_qtd.
EXIT.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM status_custom.
CLEAR: myevent.
REFRESH: myevent_tab.
SELECT * FROM /pws/zyglt376 INTO TABLE itab_zyglt376
...
...
FOR toolbar.
ENDFORM.
FORM converte_um_base USING p_matnr
CHANGING p_meins
p_qtd.
* >> Início da exclusão: FORM CONVERTE_UM_BASE
DATA: v_um_rez LIKE marm-umrez,
v_um_ren LIKE marm-umren,
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_BASE
DATA: v_um_rez TYPE i,
v_um_ren TYPE i,
v_um_rez1 LIKE marm-umrez,
v_um_ren1 LIKE marm-umren,
* << Fim da inclusão
v_meinsb LIKE marm-meinh.
* >> Início da inclusão: FORM CONVERTE_UM_BASE
DATA: v_conv1 TYPE /pws/zycit245-qtd_ncm,
v_conv2 TYPE /pws/zycit245-qtd_ncm.
* << Fim da inclusão
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.
EXIT.
ENDIF.
* >> Início da inclusão: FORM CONVERTE_UM_BASE
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
IMPORTING
denominator = v_um_ren
numerator = v_um_rez
output = v_conv2
EXCEPTIONS
conversion_not_found = 1
division_by_zero = 2
input_invalid = 3
output_invalid = 4
overflow = 5
type_invalid = 6
units_missing = 7
unit_in_not_found = 8
unit_out_not_found = 9
OTHERS = 10.
IF sy-subrc <> 0.
* << Fim da inclusão
SELECT SINGLE umrez umren
* >> Início da exclusão: FORM CONVERTE_UM_BASE
FROM marm INTO (v_um_rez, v_um_ren)
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_BASE
FROM marm INTO (v_um_rez1, v_um_ren1)
* << Fim da inclusão
WHERE matnr = p_matnr
AND meinh = p_meins.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-102 p_meins text-103 p_matnr.
CLEAR p_qtd.
EXIT.
* >> Início da inclusão: FORM CONVERTE_UM_BASE
ELSE.
v_um_rez = v_um_rez1.
v_um_ren = v_um_ren1.
ENDIF.
* << Fim da inclusão
ENDIF.
IF v_um_rez IS INITIAL
OR v_um_ren IS INITIAL.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
ENDLOOP.
ENDFORM.
FORM converte_um_base USING p_matnr
CHANGING p_meins
p_qtd.
* >> Início da exclusão: FORM CONVERTE_UM_BASE
DATA: v_um_rez LIKE marm-umrez,
v_um_ren LIKE marm-umren,
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_BASE
DATA: v_um_rez TYPE i,
v_um_ren TYPE i,
v_um_rez1 LIKE marm-umrez,
v_um_ren1 LIKE marm-umren,
* << Fim da inclusão
v_meinsb LIKE marm-meinh.
* >> Início da inclusão: FORM CONVERTE_UM_BASE
DATA: v_conv1 TYPE /pws/zycit245-qtd_ncm,
v_conv2 TYPE /pws/zycit245-qtd_ncm.
* << Fim da inclusão
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.
EXIT.
ENDIF.
* >> Início da inclusão: FORM CONVERTE_UM_BASE
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
IMPORTING
denominator = v_um_ren
numerator = v_um_rez
output = v_conv2
EXCEPTIONS
conversion_not_found = 1
division_by_zero = 2
input_invalid = 3
output_invalid = 4
overflow = 5
type_invalid = 6
units_missing = 7
unit_in_not_found = 8
unit_out_not_found = 9
OTHERS = 10.
IF sy-subrc <> 0.
* << Fim da inclusão
SELECT SINGLE umrez umren
* >> Início da exclusão: FORM CONVERTE_UM_BASE
FROM marm INTO (v_um_rez, v_um_ren)
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_BASE
FROM marm INTO (v_um_rez1, v_um_ren1)
* << Fim da inclusão
WHERE matnr = p_matnr
AND meinh = p_meins.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM CONVERTE_UM_BASE
MESSAGE i015 WITH text-237 p_meins text-238 p_matnr.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_BASE
MESSAGE i015 WITH text-434 p_meins text-435 p_matnr.
* << Fim da inclusão
CLEAR p_qtd.
EXIT.
* >> Início da inclusão: FORM CONVERTE_UM_BASE
ELSE.
v_um_rez = v_um_rez1.
v_um_ren = v_um_ren1.
ENDIF.
* << Fim da inclusão
ENDIF.
IF v_um_rez IS INITIAL
OR v_um_ren IS INITIAL.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
CHANGING p_meins
p_qtd.
DATA: v_cod_umncm LIKE /pws/zyglt204-zum ,
v_codpais LIKE /pws/zycev604-land1 ,
v_meinsb LIKE marm-meinh,
* >> Início da exclusão: FORM CONVERTE_UM_NCM
v_um_rez LIKE marm-umrez,
v_um_ren LIKE marm-umren,
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
v_um_rez TYPE i,
v_um_ren TYPE i,
v_um_rez2 TYPE i,
v_um_ren2 TYPE i,
v_um_rez1 LIKE marm-umrez,
v_um_ren1 LIKE marm-umren,
* << Fim da inclusão
v_j_1bnbm LIKE /pws/zycit247-j_1bnbm,
* >> Início da exclusão: FORM CONVERTE_UM_NCM
v_umncm LIKE /pws/zyglt204-msehi ,
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
v_umncm LIKE /pws/zyglt204-msehi ,
* << Fim da inclusão
v_qtd_ncm LIKE /pws/zycit247-qtd_ncm.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
DATA: v_conv1 TYPE /pws/zycit245-qtd_ncm,
v_conv2 TYPE /pws/zycit245-qtd_ncm.
* << Fim da inclusão
* >> Início da exclusão: FORM CONVERTE_UM_NCM
DATA : v_um_rez_ncm LIKE marm-umrez,
v_um_ren_ncm LIKE marm-umren.
CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm,
v_um_rez2, v_um_ren2.
* << Fim da inclusão
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE meins FROM mara INTO v_meinsb
WHERE matnr EQ p_matnr.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
CLEAR v_cod_umncm.
* << Fim da inclusão
* >> Início da exclusão: FORM CONVERTE_UM_NCM
IF v_meinsb NE p_meins.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
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.
* << Fim da inclusão
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE umrez umren
FROM marm INTO (v_um_rez, v_um_ren)
WHERE matnr = p_matnr
AND meinh = p_meins.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
WHERE steuc = v_j_1bnbm.
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
SELECT SINGLE msehi
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm.
* << Fim da inclusão
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
MESSAGE i015 WITH text-436 text-437 v_j_1bnbm.
* << Fim da inclusão
CLEAR p_qtd.
EXIT.
ENDIF.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
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
numerator = v_um_rez
output = v_conv2
EXCEPTIONS
conversion_not_found = 1
division_by_zero = 2
input_invalid = 3
output_invalid = 4
overflow = 5
type_invalid = 6
units_missing = 7
unit_in_not_found = 8
unit_out_not_found = 9
OTHERS = 10.
IF sy-subrc = 0.
* << Fim da inclusão
* >> Início da exclusão: FORM CONVERTE_UM_NCM
IF v_um_rez IS INITIAL
OR v_um_ren IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
p_qtd = ( p_qtd / v_um_ren ) * v_um_rez.
p_meins = v_umncm.
* << Fim da inclusão
EXIT.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE * FROM ekpo
WHERE ebeln = it_zycit079-ebeln.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE meins FROM mara INTO v_meinsb
WHERE matnr EQ p_matnr.
* << Fim da inclusão
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE steuc FROM marc INTO v_j_1bnbm
WHERE matnr EQ p_matnr
AND werks EQ ekpo-werks.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
IF v_meinsb NE p_meins.
* << Fim da inclusão
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
WHERE steuc = v_j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
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
IMPORTING
denominator = v_um_ren
numerator = v_um_rez
output = v_conv2
EXCEPTIONS
conversion_not_found = 1
division_by_zero = 2
input_invalid = 3
output_invalid = 4
overflow = 5
type_invalid = 6
units_missing = 7
unit_in_not_found = 8
unit_out_not_found = 9
OTHERS = 10
.
IF sy-subrc <> 0.
* << Fim da inclusão
* >> Início da exclusão: FORM CONVERTE_UM_NCM
IF NOT v_cod_umncm IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE umrez umren
FROM marm INTO (v_um_rez1, v_um_ren1)
WHERE matnr = p_matnr
AND meinh = p_meins.
* << Fim da inclusão
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE msehi
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm.
* << Fim da exclusão
IF sy-subrc NE 0.
* >> 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
MESSAGE i015 WITH text-434 p_meins text-435 p_matnr.
* << Fim da inclusão
CLEAR p_qtd.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
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.
* << Fim da inclusão
EXIT.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
ENDIF.
ELSE.
v_um_ren = 1.
v_um_rez = 1.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
IF NOT v_cod_umncm IS INITIAL.
* << Fim da inclusão
IF v_meinsb NE v_umncm.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
v_conv1 = 1.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE_OLD'
EXPORTING
input = v_conv1
no_type_check = 'X'
round_sign = 'X'
unit_in = v_meinsb
unit_out = v_umncm
IMPORTING
denominator = v_um_rez2
numerator = v_um_ren2
output = v_conv2
EXCEPTIONS
conversion_not_found = 1
division_by_zero = 2
input_invalid = 3
output_invalid = 4
overflow = 5
type_invalid = 6
units_missing = 7
unit_in_not_found = 8
unit_out_not_found = 9
OTHERS = 10
.
IF sy-subrc <> 0.
* << Fim da inclusão
SELECT SINGLE umrez umren
* >> Início da exclusão: FORM CONVERTE_UM_NCM
FROM marm INTO (v_um_rez_ncm, v_um_ren_ncm)
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
FROM marm INTO (v_um_rez1, v_um_ren1)
* << Fim da inclusão
WHERE matnr = p_matnr
AND meinh = v_umncm.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-434 v_umncm text-435 p_matnr.
CLEAR p_qtd.
EXIT.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
ELSE.
v_um_rez2 = v_um_rez1.
v_um_ren2 = v_um_ren1.
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
IF v_um_rez_ncm IS INITIAL
OR v_um_ren_ncm IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
IF v_um_rez IS INITIAL
OR v_um_ren IS INITIAL.
* << Fim da inclusão
EXIT.
ENDIF.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
ELSE.
v_um_ren2 = 1.
v_um_rez2 = 1.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
p_qtd = p_qtd *
( ( v_um_rez / v_um_ren ) * ( v_um_ren2 / v_um_rez2 ) ).
* << Fim da inclusão
p_meins = v_umncm.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
ELSE.
IF v_j_1bnbm IS INITIAL.
MESSAGE i015 WITH text-442 p_matnr.
* << Fim da inclusão
ELSE.
MESSAGE i015 WITH text-436 text-437 v_j_1bnbm.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
ENDIF.
* << Fim da inclusão
CLEAR p_qtd.
EXIT.
ENDIF.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
IF NOT v_um_rez IS INITIAL AND
NOT v_um_ren IS INITIAL AND
NOT v_um_rez_ncm IS INITIAL AND
NOT v_um_ren_ncm IS INITIAL .
p_qtd = ( p_qtd / ( ( v_um_ren / v_um_rez ) *
( v_um_rez_ncm / v_um_ren_ncm ) ) ).
ELSEIF NOT v_um_rez IS INITIAL AND
NOT v_um_ren IS INITIAL .
p_qtd = ( p_qtd / v_um_ren ) * v_um_rez.
ELSEIF NOT v_um_rez_ncm IS INITIAL AND
NOT v_um_ren_ncm IS INITIAL .
p_qtd = ( p_qtd / v_um_rez_ncm ) * v_um_ren_ncm.
ELSE.
EXIT.
ENDIF.
* << Fim da exclusão
ENDFORM.
FORM consiste_aplicacao.
IF /pws/zycie078-tpli EQ 'N'
AND /pws/zycie078-flagpli EQ 'X'.
IF NOT /pws/zycie078-aplicpli EQ '2'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI017
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 024
Texto: (46 caracteres)
"Blockade problem. Notify system administrator."
Comprimento máximo: 55
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 070
Texto: (7 caracteres)
"Account"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 071
Texto: (10 caracteres)
"is blocked"
Comprimento máximo: 14
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 100
Texto: (40 caracteres)
"Process is been changed by another user."
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 101
Texto: (20 caracteres)
"Possible to display."
Comprimento máximo: 21
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 102
Texto: (4 caracteres)
"Unit"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 103
Texto: (30 caracteres)
"Not Configured to the Material"
Comprimento máximo: 33
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 105
Texto: (27 caracteres)
"User does not have authoriz"
Comprimento máximo: 27
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 106
Texto: (21 caracteres)
"to execute by Shif F9"
Comprimento máximo: 26
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 240
Texto: (45 caracteres)
"Siscomex's parameter is not correctly defined"
Comprimento máximo: 48
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 240
Texto: (48 caracteres)
"Unidade de medida Siscomex não esta corretamente"
Comprimento máximo: 48
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 241
Texto: (11 caracteres)
"for the NCM"
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 241
Texto: (24 caracteres)
"parametrizada para o NCM"
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 255
Texto: (43 caracteres)
"NCM's parameter not defined to the material"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 255
Texto: (44 caracteres)
"Código NCM não parametrizado para o material"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: L03
Texto: (35 caracteres)
"Choose at least one line on screen."
Comprimento máximo: 50
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI020
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 433
Texto: (42 caracteres)
"Valitidy date of the condition not founded"
Comprimento máximo: 45
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 434
Texto: (4 caracteres)
"Unit"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 435
Texto: (28 caracteres)
"not settle for the material."
Comprimento máximo: 34
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 435
Texto: (33 caracteres)
"não parametrizada para o material"
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 436
Texto: (45 caracteres)
"Siscomex's parameter is not correctly defined"
Comprimento máximo: 48
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 437
Texto: (11 caracteres)
"for the NCM"
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 438
Texto: (38 caracteres)
"There is(are) item with different NCM."
Comprimento máximo: 40
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 439
Texto: (40 caracteres)
"None of the itens are linked to Conc Act"
Comprimento máximo: 40
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 440
Texto: (40 caracteres)
"There are itens with different Conc Act."
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 441
Texto: (35 caracteres)
"Concession Act linked with success!"
Comprimento máximo: 38
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 442
Texto: (43 caracteres)
"NCM's parameter not defined to the material"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 442
Texto: (44 caracteres)
"Código NCM não parametrizado para o material"
Comprimento máximo: 44