CE PLUS - Nota 005850
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 07/02/2008 00:00:00
Data/Hora Última Alteração: 05/03/2010 09:08:59
Descrição da Nota: AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA EXPORTAÇÕES EFETUADAS
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.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05850 Data: 07/02/2008 Hora: 11:26:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05850
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:
AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA EXPORTAÇÕES EFETUADAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
CÓDIGO, CODE INSPECTOR, MENSAGENS, VERIFICAÇÃO,
EXPORTAÇÕES, EFETUADAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCER282
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER282
REPORT /pws/zycer282 MESSAGE-ID /pws/zycem.
INCLUDE /pws/z_rel_alv.
* >> Início da exclusão:
TABLES: t001z,
j_1bbranch.
* << Fim da exclusão
TYPES: BEGIN OF ty_zycet003,
nrseq TYPE /pws/zycee003-nrseq,
nrseqre TYPE /pws/zycee003-nrseqre,
END OF ty_zycet003,
BEGIN OF ty_zycet116,
nrseqre TYPE /pws/zycee116-nrseqre,
nrre TYPE /pws/zycee116-nrre,
END OF ty_zycet116,
BEGIN OF ty_zycet120,
nrseqsd TYPE /pws/zycee120-nrseqsd,
...
...
itab_t005 TYPE TABLE OF ty_t005,
itab_t001z TYPE TABLE OF ty_t001z,
itab_j1bt001wv TYPE TABLE OF ty_j1bt001wv,
itab_t001 TYPE TABLE OF ty_t001,
itab_dados TYPE TABLE OF ty_dados,
itab_fieldcat TYPE kkblo_t_fieldcat,
itab_topo TYPE slis_t_listheader,
itab_classif TYPE slis_t_sortinfo_alv,
it_moedas TYPE t_moedas,
wa_moedas TYPE ty_zycbt007.
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
* << Fim da inclusão
* >> Início da exclusão:
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1.
* << Fim da exclusão
PARAMETERS: p_bukrs TYPE t001z-bukrs OBLIGATORY,
p_branch TYPE j_1bbranch-branch,
p_paval TYPE t001z-paval.
SELECT-OPTIONS: s_period FOR syst-datlo.
SELECTION-SCREEN END OF BLOCK b1.
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
* << Fim da inclusão
* >> Início da exclusão:
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE t2.
* << Fim da exclusão
PARAMETERS: p_zeb AS CHECKBOX,
p_oti AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b2.
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
* << Fim da inclusão
* >> Início da exclusão:
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE t3.
* << Fim da exclusão
PARAMETERS p_layout TYPE disvariant-variant.
SELECTION-SCREEN COMMENT 48(40) p_laytxt.
SELECTION-SCREEN END OF BLOCK b3.
INITIALIZATION.
* >> Início da exclusão:
t1 = text-001.
t2 = text-002.
t3 = text-003.
* << Fim da exclusão
PERFORM layout_inicial CHANGING g_variant
p_layout
p_laytxt.
AT SELECTION-SCREEN OUTPUT.
PERFORM busca_layout CHANGING g_variant
p_layout
p_laytxt.
PERFORM formata_checa_cnpj.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_layout.
PERFORM match_code_dinamico CHANGING g_variant
...
...
FOR ALL ENTRIES IN itab_j1bt001wv
WHERE bukrs EQ itab_j1bt001wv-bukrs
AND bukrs EQ p_bukrs
AND werks EQ itab_j1bt001wv-werks.
IF sy-subrc IS INITIAL.
SELECT nrseq
nrseqre
FROM /pws/zycet003
INTO TABLE itab_zycet003
FOR ALL ENTRIES IN itab_zycet116
* >> Início da exclusão: FORM SELECIONA_DADOS
WHERE nrseqre EQ itab_zycet116-nrseqre.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
WHERE nrseqre EQ itab_zycet116-nrseqre. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = 20
text = text-004.
SELECT nrseqsd
nrsd
FROM /pws/zycet120
INTO TABLE itab_zycet120
FOR ALL ENTRIES IN itab_j1bt001wv
...
...
AND bukrs EQ p_bukrs
AND werks EQ itab_j1bt001wv-werks.
SELECT nrseq
nrseqdse
nrdse
FROM /pws/zycet208
INTO TABLE itab_zycet208
FOR ALL ENTRIES IN itab_j1bt001wv
WHERE bukrs EQ itab_j1bt001wv-bukrs
AND bukrs EQ p_bukrs
* >> Início da exclusão: FORM SELECIONA_DADOS
AND werks EQ itab_j1bt001wv-werks.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
AND werks EQ itab_j1bt001wv-werks. "#EC CI_NOFIELD
* << Fim da inclusão
SELECT tp_doc
nrchave
nremb
dtlog
FROM /pws/zycet183
INTO TABLE itab_zycet183
WHERE dtlog IN s_period
AND tp_doc IN ('RE', 'DSE', 'DDE').
PERFORM tratamento_registros_siscomex.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
...
...
nrre
FROM /pws/zycet116
INTO TABLE itab_zycet116
WHERE bukrs EQ p_bukrs.
IF sy-subrc IS INITIAL.
SELECT nrseq
nrseqre
FROM /pws/zycet003
INTO TABLE itab_zycet003
FOR ALL ENTRIES IN itab_zycet116
* >> Início da exclusão: FORM SELECIONA_DADOS
WHERE nrseqre EQ itab_zycet116-nrseqre.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
WHERE nrseqre EQ itab_zycet116-nrseqre. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = 20
text = text-004.
SELECT nrseqsd
nrsd
FROM /pws/zycet120
INTO TABLE itab_zycet120
WHERE bukrs EQ p_bukrs.
SELECT nrseq
nrseqdse
nrdse
FROM /pws/zycet208
INTO TABLE itab_zycet208
* >> Início da exclusão: FORM SELECIONA_DADOS
WHERE bukrs EQ p_bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
WHERE bukrs EQ p_bukrs. "#EC CI_NOFIELD
* << Fim da inclusão
SELECT tp_doc
nrchave
nremb
dtlog
FROM /pws/zycet183
INTO TABLE itab_zycet183
WHERE dtlog IN s_period
AND tp_doc IN ('RE', 'DSE', 'DDE').
PERFORM tratamento_registros_siscomex.
ENDIF.
...
...
MESSAGE s016 WITH text-019 text-020.
STOP.
ENDIF.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = 85
text = text-004.
SELECT land1
landx
FROM t005t
* >> Início da exclusão: FORM SELECIONA_DADOS
INTO TABLE itab_t005.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
INTO TABLE itab_t005. "#EC CI_GENBUFF
* << Fim da inclusão
SELECT bukrs
land1
FROM t001
INTO TABLE itab_t001
WHERE bukrs EQ p_bukrs.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = 100
text = text-004.
ELSE.
...
...
WHERE paval IN itab_cgc.
ENDFORM.
FORM verifica_centros.
DATA: v_flag(1) TYPE n,
wa_j1bt001wv TYPE ty_j1bt001wv.
IF NOT itab_t001z[] IS INITIAL.
SELECT j_1bbranch~branch
t001w~werks
j_1bbranch~bukrs
FROM t001w
* >> Início da exclusão: FORM VERIFICA_CENTROS
INNER JOIN j_1bbranch
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CENTROS
INNER JOIN j_1bbranch "#EC CI_BUFFJOIN
* << Fim da inclusão
ON t001w~j_1bbranch EQ j_1bbranch~branch
INTO TABLE itab_j1bt001wv
FOR ALL ENTRIES IN itab_t001z
WHERE bukrs EQ itab_t001z-bukrs
* >> Início da exclusão: FORM VERIFICA_CENTROS
AND j_1bbranch EQ p_branch.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CENTROS
AND j_1bbranch EQ p_branch. "#EC CI_BUFFJOIN
* << Fim da inclusão
ELSEIF NOT p_branch IS INITIAL.
SELECT j_1bbranch~branch
t001w~werks
j_1bbranch~bukrs
* >> Início da exclusão: FORM VERIFICA_CENTROS
FROM t001w
INNER JOIN j_1bbranch
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CENTROS
FROM t001w "#EC CI_BUFFJOIN
INNER JOIN j_1bbranch "#EC CI_BUFFJOIN
* << Fim da inclusão
ON t001w~j_1bbranch EQ j_1bbranch~branch
INTO TABLE itab_j1bt001wv
WHERE bukrs EQ p_bukrs
AND j_1bbranch EQ p_branch.
ELSE.
SELECT j_1bbranch~branch
t001w~werks
j_1bbranch~bukrs
FROM t001w
INNER JOIN j_1bbranch
ON t001w~j_1bbranch EQ j_1bbranch~branch
INTO TABLE itab_j1bt001wv
* >> Início da exclusão: FORM VERIFICA_CENTROS
WHERE j_1bbranch~bukrs EQ p_bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CENTROS
WHERE j_1bbranch~bukrs EQ p_bukrs. "#EC CI_BUFFJOIN
* << Fim da inclusão
ENDIF.
LOOP AT itab_j1bt001wv INTO wa_j1bt001wv.
ON CHANGE OF wa_j1bt001wv-branch.
v_flag = v_flag + 1.
ENDON.
ENDLOOP.
CHECK v_flag GT 1.
MESSAGE s016 WITH text-024
text-025.
STOP.
...
...
v_variant = g_variant
v_marc = ' '
v_selinfo = ' '
v_zebra = p_zeb
v_otimizado = p_oti
TABLES
i_fieldcat = itab_fieldcat
t_data = itab_dados
it_sort = itab_classif.
ENDFORM.
* >> Início da exclusão: FORM AJUSTA_STATUS
FORM ajusta_status USING extab TYPE kkblo_t_extab. "#EC CALLED
* << Fim da exclusão
* >> Início da inclusão: FORM AJUSTA_STATUS
FORM ajusta_status USING extab TYPE kkblo_t_extab. "#EC * "#EC CALLED
* << Fim da inclusão
SET PF-STATUS 'STANDARD'.
ENDFORM.
FORM comandos_usuario
USING
ucomm TYPE sy-ucomm
selfield TYPE slis_selfield. "#EC CALLED
DATA wa_dados TYPE ty_dados.
CASE ucomm.
WHEN '&IC1'.
READ TABLE itab_dados INTO wa_dados
...