CE PLUS - Nota 005298
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Dados Adicionais
Data/Hora da Publicação: 23/11/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 10:17:35
Descrição da Nota: AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA DADOS ADICIONAIS.
Sintoma
Programa com instruções obsoletas ou que apresentam erros/alertas ao executar a verificação ampliada
do programa ou o Code Inspector.
Solução
Implementação de ajustes no código do programa de forma a eliminar os erros e alertas encontrados na
verificação ampliada e ao executar o Code Inspector.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05298 Data: 23/11/2007 Hora: 14:46:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05298
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05225 - 00001 - 7.0 - 00003 - AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA DADOS ADICIONAIS.
05230 - 00002 - 7.0 - 00003 - AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA DADOS ADICIONAIS.
----------------------------------------------------------------------------------------------------
AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA DADOS ADICIONAIS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
CÓDIGO, CODE INSPECTOR, MENSAGENS, VERIFICAÇÃO, DADOS ADICIONAIS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE038F01
REPS /PWS/MZYCE106X01
REPS /PWS/MZYCE107F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE038F01
...
/pws/zycee046-nrseqno)
WHERE vbeln_vl = itab_zycet002_102-vbeln_vl
AND posnr = itab_zycet002_102-posnl.
ENDSELECT.
ENDIF.
ENDLOOP.
SELECT nrseqcg
FROM /pws/zycet054
UP TO 1 ROWS
INTO /pws/zycee046-nrseqcg
* >> Início da exclusão: FORM BUSCA_ROTA
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ROTA
WHERE nrseq = /pws/zycee001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
IF /pws/zycee046-nrseqno IS INITIAL.
SELECT nrseqno
FROM /pws/zycet108
UP TO 1 ROWS
INTO (/pws/zycee046-nrseqno)
WHERE vbeln_va = itab_zycet002_102-vbeln_va AND
posnr = itab_zycet002_102-aupos.
ENDSELECT.
ENDIF.
ENDIF.
ELSEIF /pws/zycee001-tipo_emb = 'D'.
IF NOT itab_zycet002_102-ebeln IS INITIAL.
SELECT *
FROM /pws/zycet135
UP TO 1 ROWS
INTO /pws/zycet135
* >> Início da exclusão: FORM BUSCA_ROTA
WHERE ebeln = itab_zycet002_102-ebeln.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ROTA
WHERE ebeln = itab_zycet002_102-ebeln. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
IF sy-subrc = 0.
MOVE /pws/zycet135-nrseqno TO /pws/zycee046-nrseqno.
SELECT SINGLE * FROM /pws/zycet106 INTO /pws/zycet106
WHERE nrseqno = /pws/zycet135-nrseqno.
IF sy-subrc = 0.
MOVE: /pws/zycet106-nrseqtr TO /pws/zycee046-nrseqtr,
/pws/zycet106-nrrota_tr TO /pws/zycee046-nrrota_tr.
ELSE.
CLEAR: /pws/zycee046-nrseqtr,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE106X01
TYPES:
BEGIN OF zcxtab_column,
screen LIKE screen,
index TYPE i,
selected(1) TYPE c,
vislength LIKE icon-oleng,
invisible(1) TYPE c,
END OF zcxtab_column.
* >> Início da inclusão:
TYPE-POOLS: cxtab.
* << Fim da inclusão
DATA: BEGIN OF COMMON PART c.
DATA BEGIN OF it_zycet124 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet124.
DATA END OF it_zycet124.
DATA BEGIN OF it_zycet124_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycet124.
DATA END OF it_zycet124_aux.
* >> Início da exclusão:
DATA: itab_cols TYPE zcxtab_column OCCURS 10.
* << Fim da exclusão
* >> Início da inclusão:
DATA : itab_cols TYPE LINE OF cxtab_control-cols occurs 10.
* << Fim da inclusão
DATA: END OF COMMON PART c.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE107F01
...
ENDLOOP.
ENDIF.
IF wa_zycet145-agrupa_nf IS INITIAL.
PERFORM load_all_nfiscal.
ENDIF.
ENDFORM.
FORM load_contain.
SELECT DISTINCT nrseq nrcont nrlacre
FROM /pws/zycet124
INTO TABLE itab_zycet124
* >> Início da exclusão: FORM LOAD_CONTAIN
WHERE nrseq = /pws/zycee120-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_CONTAIN
WHERE nrseq = /pws/zycee120-nrseq. "#EC CI_BYPASS
* << Fim da inclusão
CLEAR itab_zycet124.
SELECT nrseq nrcont nrlacre fkimg codesp codint
FROM /pws/zycet124
INTO TABLE itab_zycet124_aux
WHERE nrseq = /pws/zycee120-nrseq. "#EC CI_BYPASS
CLEAR itab_zycet124_aux.
ENDFORM.
FORM load_parameters.
DEFINE monta_tabela_exclusao_botoes.
move &1 to &2.
...
...
sy-uname TO itab_zycet183-uname,
itab_zycet184-usu_main TO itab_zycet183-usu_main,
text-040 TO itab_zycet183-stasis,
v_modo_pri TO itab_zycet183-prioridade,
itab_zycet184-cpf TO itab_zycet183-cpf.
select log
from /pws/zycet183
up to 1 rows
INTO (v_log)
WHERE uname EQ sy-uname
* >> Início da exclusão: FORM PREENCHE_FILA
AND stasis EQ 'B'.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_FILA
AND stasis EQ 'B'. "#EC CI_NOFIELD
* << Fim da inclusão
endselect.
IF sy-subrc EQ 0.
itab_zycet183-stasis = text-073.
itab_zycet183-log = v_log.
APPEND itab_zycet183.
MODIFY /pws/zycet183 FROM TABLE itab_zycet183.
MESSAGE i016 WITH text-074 text-075.
ELSE.
APPEND itab_zycet183.
MODIFY /pws/zycet183 FROM TABLE itab_zycet183.
...