Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Parâmetros
Data/Hora da Publicação: 10/01/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:23:42
Descrição da Nota: AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA PARÂMETROS BLOBAIS
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.
7.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05601 Data: 10/01/2008 Hora: 13:20:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05601
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00029
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02174 - 00001 - 6.0 - 00025 - ENVIO PARA O CÂMBIO INCORRETO DE ACORDO COM PARÂMETRO OCULTO
----------------------------------------------------------------------------------------------------
AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA PARÂMETROS BLOBAIS
----------------------------------------------------------------------------------------------------
Palavras Chave:
CÓDIGO, CODE INSPECTOR, MENSAGENS, VERIFICAÇÃO, PARÂMETROS
GLOBAIS, EMBARQUE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE312F01
REPS /PWS/MZYCE312I01
REPS /PWS/MZYCE312TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE312F01
...
ENDIF.
ENDFORM.
FORM salvar_registros.
DATA v_name LIKE /pws/zycet312-username.
CLEAR v_name.
PERFORM buscar_usuario_rede CHANGING v_name.
/pws/zycet312-username = v_name.
/pws/zycet312-usernamec = sy-uname.
/pws/zycet312-dtuserc = sy-datum.
/pws/zycet312-hruserc = sy-uzeit.
* >> Início da exclusão: FORM SALVAR_REGISTROS
UPDATE /pws/zycet312 SET loc_emb = /pws/zycet312-loc_emb
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_REGISTROS
UPDATE /pws/zycet312 SET
loc_emb = /pws/zycet312-loc_emb
* << Fim da inclusão
tp_emb = /pws/zycet312-tp_emb
emb_consig = /pws/zycet312-emb_consig
tp_emb_temp = /pws/zycet312-tp_emb_temp
wrbtr_dse = /pws/zycet312-wrbtr_dse
waers_dse = /pws/zycet312-waers_dse
kurst_dse = /pws/zycet312-kurst_dse
transporte = /pws/zycet312-transporte
bot_espec = /pws/zycet312-bot_espec
part_lote = /pws/zycet312-part_lote
rateio_aut = /pws/zycet312-rateio_aut
username = /pws/zycet312-username
usernamec = /pws/zycet312-usernamec
dtuserc = /pws/zycet312-dtuserc
hruserc = /pws/zycet312-hruserc
* >> Início da exclusão: FORM SALVAR_REGISTROS
tpcalc = /pws/zycet312-tpcalc.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_REGISTROS
tpcalc = /pws/zycet312-tpcalc. "#EC CI_NOWHERE
* << Fim da inclusão
IF sy-subrc NE 0.
INSERT /pws/zycet312 FROM /pws/zycet312.
ENDIF.
DELETE FROM /pws/zycet316 CLIENT SPECIFIED WHERE mandt = sy-mandt.
MODIFY /pws/zycet316 FROM TABLE itab_zycet316.
DELETE FROM /pws/zycet317 CLIENT SPECIFIED WHERE mandt = sy-mandt.
MODIFY /pws/zycet317 FROM TABLE itab_zycet317.
COMMIT WORK.
IF sy-subrc EQ 0.
/pws/zycet312-username = v_name.
...
...
CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
popup_title = text-010
IMPORTING
returncode = v_answer
TABLES
fields = itab_campos
EXCEPTIONS
error_in_fields = 1
OTHERS = 2.
* >> Início da inclusão: FORM SELECIONAR_EMPRESA
CHECK sy-subrc IS INITIAL.
* << Fim da inclusão
IF v_answer IS INITIAL.
READ TABLE itab_campos INDEX 1 TRANSPORTING value.
p_empresa = itab_campos-value.
PERFORM selecionar_parametros.
ELSE.
CLEAR p_empresa.
reg_emp-activetab = 'PAR_GER'.
ENDIF.
ENDFORM.
FORM trancar_tabela.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE312I01
...
ENDIF.
DELETE ADJACENT DUPLICATES FROM itab_zycet316 COMPARING uname loc_emb.
ENDMODULE.
MODULE modificar_zycet317 INPUT.
MODIFY itab_zycet317 INDEX tc_emb-current_line.
IF sy-subrc NE 0.
APPEND itab_zycet317.
ENDIF.
DELETE ADJACENT DUPLICATES FROM itab_zycet317 COMPARING uname tp_emb.
ENDMODULE.
* >> Início da exclusão: MODULE MODIFICAR_ZYCET318
MODULE modificar_zycet318 INPUT.
ENDMODULE.
MODULE modificar_zycet319 INPUT.
ENDMODULE.
* << Fim da exclusão
MODULE user_command_exit INPUT.
DATA v_answer TYPE c.
CASE okcode.
WHEN 'BACK'.
IF ( wa_zycet312 NE /pws/zycet312 OR
/pws/zycet037 NE wa_zycet037 OR
itab_zycet316[] NE itab_zycet316m[] OR
itab_zycet317[] NE itab_zycet317m[] ) AND
v_save IS INITIAL.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE312TOP
PROGRAM /pws/sapmzyce312 MESSAGE-ID /pws/zycem.
TABLES: /pws/zycet037,
/pws/zycet312,
/pws/zycet316,
t001.
* >> Início da exclusão:
CONTROLS: reg_emp TYPE TABSTRIP,
* << Fim da exclusão
* >> Início da inclusão:
CONTROLS: reg_emp TYPE TABSTRIP, "#EC NEEDED
* << Fim da inclusão
tc_loc TYPE TABLEVIEW USING SCREEN '0103',
* >> Início da exclusão:
tc_emb TYPE TABLEVIEW USING SCREEN '0103',
tc_con TYPE TABLEVIEW USING SCREEN '0103',
tc_embt TYPE TABLEVIEW USING SCREEN '0103'.
* << Fim da exclusão
* >> Início da inclusão:
tc_emb TYPE TABLEVIEW USING SCREEN '0103'.
* << Fim da inclusão
DATA: BEGIN OF itab_zycet316 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet316.
DATA: marc TYPE flag,
END OF itab_zycet316.
DATA: BEGIN OF itab_zycet317 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet317.
DATA: marc TYPE flag,
END OF itab_zycet317.
* >> Início da exclusão:
DATA: itab_zycet316m LIKE itab_zycet316 OCCURS 0 WITH HEADER LINE,
itab_zycet317m LIKE itab_zycet317 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
DATA: itab_zycet316m LIKE itab_zycet316 OCCURS 0,
itab_zycet317m LIKE itab_zycet317 OCCURS 0.
* << Fim da inclusão
DATA: wa_zycet037 LIKE /pws/zycet037.
DATA: wa_zycet312 LIKE /pws/zycet312.
DATA: okcode LIKE sy-ucomm,
v_controle TYPE flag,
v_tab LIKE sy-ucomm,
v_trancar TYPE flag,
v_ins TYPE flag,
v_del TYPE flag,
v_save TYPE flag,
e_empresa(4) TYPE c ,
...