CE PLUS - Nota 005611
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Outros
Data/Hora da Publicação: 11/01/2008 00:00:00
Data/Hora Última Alteração: 04/03/2010 17:10:05
Descrição da Nota: REFATORAÇÃO DE CÓDIGO DO CADASTRO DE EMBALAGENS POR PRODUTO
Sintoma
Código inválido para homologação.
Solução
Correção do código inválido.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05611 Data: 11/01/2008 Hora: 10:52:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05611
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
REFATORAÇÃO DE CÓDIGO DO CADASTRO DE EMBALAGENS POR PRODUTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR CADASTRO EMBALAGENS PRODUTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE043F01
REPS /PWS/MZYCE043I01
REPS /PWS/MZYCE043O01
REPS /PWS/MZYCE043TOP
REPT /PWS/SAPMZYCE043
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE043F01
FORM salva_dados.
* >> Início da exclusão: FORM SALVA_DADOS
DATA: v_tabix LIKE sy-tabix ,
v_emb(1) TYPE c .
* << Fim da exclusão
CLEAR: itab_dados.
REFRESH itab_dados.
MOVE: /pws/zycee287-matnr TO itab_dados-matnr ,
/pws/zycee287-tpembpri TO itab_dados-tpembpri ,
/pws/zycee287-tpembsec TO itab_dados-tpembsec ,
/pws/zycee287-tpembter TO itab_dados-tpembter ,
sy-uname TO itab_dados-usernamec ,
sy-datum TO itab_dados-dtuserc ,
sy-timlo TO itab_dados-hruserc .
APPEND itab_dados.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE043I01
...
CLEAR itab_zycet286.
REFRESH itab_zycet286.
SELECT tara
largura
altura
comprimento
FROM /pws/zycet286
INTO TABLE itab_zycet286
WHERE codigo = /pws/zycee287-tpembpri.
IF sy-subrc EQ '0'.
* >> Início da exclusão: MODULE SELE_EMBPRI
READ TABLE itab_zycet286.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELE_EMBPRI
READ TABLE itab_zycet286 index 1.
* << Fim da inclusão
MOVE: itab_zycet286-tara TO /pws/zycee287-tarapri ,
itab_zycet286-largura TO /pws/zycee287-largpri ,
itab_zycet286-altura TO /pws/zycee287-altpri ,
itab_zycet286-comprimento TO /pws/zycee287-comppri .
ELSE.
CLEAR: /pws/zycee287-tarapri ,
/pws/zycee287-largpri ,
/pws/zycee287-altpri ,
/pws/zycee287-comppri .
ENDIF.
...
...
CLEAR itab_zycet286.
REFRESH itab_zycet286.
SELECT tara
largura
altura
comprimento
FROM /pws/zycet286
INTO TABLE itab_zycet286
WHERE codigo = /pws/zycee287-tpembsec.
IF sy-subrc EQ '0'.
* >> Início da exclusão: MODULE SELE_EMBSEC
READ TABLE itab_zycet286.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELE_EMBSEC
READ TABLE itab_zycet286 index 1.
* << Fim da inclusão
MOVE: itab_zycet286-tara TO /pws/zycee287-tarasec ,
itab_zycet286-largura TO /pws/zycee287-largsec ,
itab_zycet286-altura TO /pws/zycee287-altsec ,
itab_zycet286-comprimento TO /pws/zycee287-compsec .
ELSE.
CLEAR: /pws/zycee287-tarasec ,
/pws/zycee287-largsec ,
/pws/zycee287-altsec ,
/pws/zycee287-compsec .
ENDIF.
...
...
CLEAR: v_comeco,
v_fim .
LOOP AT itab_zycet287 WHERE mark = 'X'.
IF v_comeco IS INITIAL.
v_comeco = itab_zycet287-matnr.
ELSE.
v_fim = itab_zycet287-matnr.
ENDIF.
ENDLOOP.
IF sy-subrc EQ '0'.
* >> Início da exclusão: MODULE FLAG
LOOP AT itab_zycet287 WHERE matnr BETWEEN v_comeco and v_fim.
* << Fim da exclusão
* >> Início da inclusão: MODULE FLAG
LOOP AT itab_zycet287
WHERE matnr BETWEEN v_comeco and v_fim. "#EC PORTABLE
* << Fim da inclusão
MOVE 'X' TO itab_zycet287-mark.
MODIFY itab_zycet287.
ENDLOOP.
ENDIF.
ENDCASE.
ENDCASE.
ENDMODULE.
MODULE user_command_0001 INPUT.
CASE okcode.
WHEN 'ENTE'.
...
...
CLEAR itab_zycet286.
REFRESH itab_zycet286.
SELECT tara
largura
altura
comprimento
FROM /pws/zycet286
INTO TABLE itab_zycet286
WHERE codigo = /pws/zycee287-tpembter.
IF sy-subrc EQ '0'.
* >> Início da exclusão: MODULE SELE_EMBTER
READ TABLE itab_zycet286.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELE_EMBTER
READ TABLE itab_zycet286 index 1.
* << Fim da inclusão
MOVE: itab_zycet286-tara TO /pws/zycee287-tarater ,
itab_zycet286-largura TO /pws/zycee287-largter ,
itab_zycet286-altura TO /pws/zycee287-altter ,
itab_zycet286-comprimento TO /pws/zycee287-compter .
ELSE.
CLEAR: /pws/zycee287-tarater ,
/pws/zycee287-largter ,
/pws/zycee287-altter ,
/pws/zycee287-compter ,
/pws/zycee287-descter .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE043O01
...
endmodule.
module carrega_tc output.
move: itab_zycet287-matnr to /pws/zycee287-matnr ,
itab_zycet287-tpembpri to /pws/zycee287-tpembpri ,
itab_zycet287-tpembsec to /pws/zycee287-tpembsec ,
itab_zycet287-tpembter to /pws/zycee287-tpembter ,
itab_zycet287-mark to mark.
select single maktx
from makt
into /pws/zycee287-maktx
* >> Início da exclusão: MODULE CARREGA_TC
where matnr = itab_zycet287-matnr.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TC
where
matnr = itab_zycet287-matnr and
spras = sy-langu.
* << Fim da inclusão
clear itab_zycet286a.
read table itab_zycet286a with key codigo = itab_zycet287-tpembpri.
if sy-subrc eq '0'.
move: itab_zycet286a-embalagem to /pws/zycee287-descpri ,
itab_zycet286a-tara to /pws/zycee287-tarapri ,
itab_zycet286a-altura to /pws/zycee287-altpri ,
itab_zycet286a-largura to /pws/zycee287-largpri ,
itab_zycet286a-comprimento to /pws/zycee287-comppri .
endif.
clear itab_zycet286a.
...
...
itab_zycet286a-tara to /pws/zycee287-tarater ,
itab_zycet286a-altura to /pws/zycee287-altter ,
itab_zycet286a-largura to /pws/zycee287-largter ,
itab_zycet286a-comprimento to /pws/zycee287-compter .
endif.
endmodule.
module carrega_itab output.
if itab_zycet287[] is initial.
select *
from /pws/zycet287
* >> Início da exclusão: MODULE CARREGA_ITAB
into table itab_zycet287.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_ITAB
into table itab_zycet287. "#EC CI_NOWHERE
* << Fim da inclusão
else.
if not itab_zycet287a[] is initial.
clear itab_zycet287.
refresh itab_zycet287.
select *
from /pws/zycet287
* >> Início da exclusão: MODULE CARREGA_ITAB
into table itab_zycet287.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_ITAB
into table itab_zycet287. "#EC CI_NOWHERE
* << Fim da inclusão
clear itab_zycet287a.
refresh itab_zycet287a.
endif.
endif.
if not itab_zycet287[] is initial.
select *
from /pws/zycet286
* >> Início da exclusão: MODULE CARREGA_ITAB
into table itab_zycet286a.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_ITAB
into table itab_zycet286a. "#EC CI_NOWHERE
* << Fim da inclusão
endif.
sort itab_zycet287 by matnr.
v_current = 1.
clear itab_zycet287.
endmodule.
module trata_campos output.
loop at tc1-cols into wa_cols.
wa_cols-screen-input = '0'.
modify tc1-cols from wa_cols.
endloop.
endmodule.
module carrega_tc_a output.
perform limpa_campos.
* >> Início da exclusão: MODULE CARREGA_TC_A
read table itab_zycet287a.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TC_A
read table itab_zycet287a index 1.
* << Fim da inclusão
move: itab_zycet287a-matnr to /pws/zycee287-matnr ,
itab_zycet287a-tpembter to /pws/zycee287-tpembter ,
itab_zycet287a-tpembsec to /pws/zycee287-tpembsec ,
itab_zycet287a-tpembpri to /pws/zycee287-tpembpri ,
itab_zycet287a-mark to mark.
clear itab_zycet286a.
read table itab_zycet286a with key codigo = itab_zycet287a-tpembpri.
move: itab_zycet286a-tara to /pws/zycee287-tarapri ,
itab_zycet286a-altura to /pws/zycee287-altpri ,
itab_zycet286a-largura to /pws/zycee287-largpri ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE043TOP
program /pws/sapmzyce043 message-id /pws/zycem.
* >> Início da exclusão:
tables: /pws/zycet286,
/pws/zycet287,
/pws/zycee287.
* << Fim da exclusão
* >> Início da inclusão:
tables /pws/zycee287.
* << Fim da inclusão
controls: tc1 type tableview using screen 0100.
data: okcode like sy-ucomm.
data: begin of itab_dados occurs 0 .
include structure /pws/zycet287 .
data: end of itab_dados .
data: begin of itab_zycet286a occurs 0 .
include structure /pws/zycet286 .
data: end of itab_zycet286a .
data: begin of itab_zycet286 occurs 0 ,
tara like /pws/zycet286-tara ,
...
...
include structure /pws/zycet287 .
data: mark(1) type c .
data: end of itab_zycet287 .
data: begin of itab_zycet287a occurs 0 .
include structure /pws/zycet287 .
data: mark(1) type c .
data: end of itab_zycet287a .
data: mark(1) type c ,
text1(20) type c ,
v_answer ,
* >> Início da exclusão:
v_marca like sy-tabix ,
v_marca_ult like sy-tabix ,
* << Fim da exclusão
v_current type i ,
v_comeco like /pws/zycet287-matnr ,
v_fim like /pws/zycet287-matnr ,
glines type i .
data wa_cols type cxtab_column.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE043
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 003
Texto: (22 caracteres)
"Dados não encontrados."
Comprimento máximo: 22
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 016
Texto: (28 caracteres)
"Dados alterados com sucesso."
Comprimento máximo: 28