CE PLUS - Nota 006972
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 16/07/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 14:03:40
Descrição da Nota: MENSAGENS PARAMETRIZAVEIS PARA UNIDADE DE MEDIDA ESTATISTICA
Sintoma
O programa está exibindo mensagens referente à conversão de unidade de medida estatistica.
Solução
Atualização das mensagens referente à conversão da unidade de medida estatistica na LI.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06972 Data: 16/07/2008 Hora: 16:11:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06972
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
MENSAGENS PARAMETRIZAVEIS PARA UNIDADE DE MEDIDA ESTATISTICA
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI MENSAGENS UNIDADE DE MEDIDA ESTATISTICA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
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.
FORM consiste_aplicacao.
IF /pws/zycie078-tpli EQ 'N'
AND /pws/zycie078-flagpli EQ 'X'.
IF NOT /pws/zycie078-aplicpli EQ '2'.
SELECT *
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020X01
...
/pws/zycie244,
/pws/zycit245,
/pws/zycit274,
/pws/zycit218,
/pws/zycit219,
/pws/zycit242,
/pws/zycit338,
/pws/zycit431,
/pws/zycie376,
/pws/zycie085,
* >> Início da inclusão:
/pws/zyglt217,
* << Fim da inclusão
lfa1,
adrc,
t005,
t001,
t002,
t002t,
t005t,
t615t,
t604f,
tcurc,
...