CE PLUS - Nota 008232
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 24/03/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 16:39:34
Descrição da Nota: PADRONIZAÇÃO CODE INSPECTOR
Sintoma
Padronização de Código Fonte com Code Inspector
Solução
Padronização de Código Fonte com Code Inspector
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08232 Data: 24/03/2009 Hora: 11:42:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08232
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00091
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PADRONIZAÇÃO CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
PADRONIZAÇÃO CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI007F02
REPS /PWS/MZYCI017F03
REPS /PWS/MZYCI062F01
REPS /PWS/ZYCIR149
REPS /PWS/ZYCIR331
REPS /PWS/ZYCIR332
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
IF sy-subrc EQ 0.
v_msg = 'X' .
ENDIF.
IF v_msg EQ 'X'.
SELECT SINGLE * FROM /PWS/ZYCIT026
WHERE NRSEQ = /PWS/ZYCIE001-NRSEQ.
IF SY-SUBRC = 0.
MESSAGE i015 WITH text-489 text-490 text-491.
EXIT.
ENDIF.
* >> Início da exclusão: FORM GRAVA_TABELAS
SELECT SINGLE * FROM /PWS/ZYCIT008
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
SELECT SINGLE * FROM /PWS/ZYCIT008 "#EC CI_NOFIELD
* << Fim da inclusão
WHERE NRSEQ = /PWS/ZYCIE001-NRSEQ
AND TPGTO = 'D'.
IF SY-SUBRC EQ 0.
MESSAGE i015 WITH text-489 text-490 text-492.
EXIT.
ENDIF.
MESSAGE i015 WITH text-261 text-260.
DELETE itab_zycit003 WHERE qtd_iten EQ '0'.
ENDIF.
LOOP AT itab_zycit003.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
FOR ALL ENTRIES IN itab_matuse
WHERE matnr EQ itab_matuse-matnr
AND bwkey EQ itab_matuse-bwkey
AND bwtar EQ itab_matuse-bwtar.
IF /pws/zycie006-tpfatura EQ '11' AND
itab_classe_aval[] IS INITIAL.
SELECT matnr bwkey bwtar bklas
FROM mbew INTO TABLE itab_classe_aval
FOR ALL ENTRIES IN itab_matuse
WHERE bwkey EQ itab_matuse-bwkey
* >> Início da exclusão: FORM MULTIPLOS_LANCAMENTOS
AND mtuse EQ space.
* << Fim da exclusão
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
AND mtuse EQ space. "#EC CI_NOFIRST
* << Fim da inclusão
READ TABLE itab_classe_aval INDEX 1.
ENDIF.
ENDIF.
IF NOT itab_classe_aval[] IS INITIAL.
SELECT * FROM /pws/zycit135 INTO TABLE itab_param_classe
FOR ALL ENTRIES IN itab_classe_aval
WHERE bklas EQ itab_classe_aval-bklas.
ENDIF.
CLEAR: itab_zycbt035_aux. FREE itab_zycbt035_aux.
DESCRIBE TABLE itab_zycit003 LINES v_line.
...
...
FOR ALL ENTRIES IN itab_matuse
WHERE matnr EQ itab_matuse-matnr
AND bwkey EQ itab_matuse-bwkey
AND bwtar EQ itab_matuse-bwtar.
IF /pws/zycie006-tpfatura EQ '11' AND
itab_classe_aval IS INITIAL.
SELECT matnr bwkey bwtar bklas
FROM mbew INTO TABLE itab_classe_aval
FOR ALL ENTRIES IN itab_matuse
WHERE bwkey EQ itab_matuse-bwkey
* >> Início da exclusão: FORM MULTIPLOS_LANCAMENTOS_F_51
AND mtuse EQ space.
* << Fim da exclusão
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS_F_51
AND mtuse EQ space. "#EC CI_NOFIRST
* << Fim da inclusão
READ TABLE itab_classe_aval INDEX 1.
ENDIF.
ENDIF.
IF NOT itab_classe_aval[] IS INITIAL.
SELECT * FROM /pws/zycit135 INTO TABLE itab_param_classe
FOR ALL ENTRIES IN itab_classe_aval
WHERE bklas EQ itab_classe_aval-bklas.
ENDIF.
FREE itab_zycbt035_aux.
LOOP AT itab_zycit003.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007F02
...
SELECT SINGLE * FROM /pws/zycit019
WHERE tpdesp EQ it_zycit027_aux-tpdesp. "#EC CI_NOFIRST
ENDIF.
SELECT * FROM /pws/zycit036 INTO TABLE itab_zycit036
WHERE nrseq = /pws/zycie026-nrseq
AND codigo = /pws/zycit019-codigo
AND origem = 'PC'
AND nrseqori = /pws/zycie026-nrpres.
CLEAR: v_dt_mr1m.
v_ok = 'F'.
* >> Início da exclusão: FORM ESTORNA_DESPESA_CUSTO
SELECT SINGLE dt_mr22
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DESPESA_CUSTO
SELECT SINGLE dt_mr22 "#EC CI_NOFIELD
* << Fim da inclusão
FROM /pws/zycit202
INTO v_dt_mr1m
WHERE nrseq EQ itab_zycit026-nrseq
AND dt_mr22 < v_dtaprov_est.
LOOP AT itab_zycit036.
IF itab_zycit036-congelamov IS INITIAL.
DELETE FROM /pws/zycit036 WHERE
nrseq = itab_zycit036-nrseq AND
ebeln = itab_zycit036-ebeln AND
ebelp = itab_zycit036-ebelp AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F03
...
INTO wa_global
WHERE nrseq = wa_nf-nrseq
AND nfglobal = wa_nf-nfglobal
AND docnum = /pws/zycie042-docnum
AND cancel NE 'X'.
ENDIF.
ENDIF.
CLEAR wa_zycit048.
SELECT SINGLE * FROM /pws/zycit100
INTO /pws/zycit100
* >> Início da exclusão: FORM REVERSE_DOCUMENT_J1B2_PSTDAT
WHERE nrseq = /pws/zycit001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_J1B2_PSTDAT
WHERE nrseq = /pws/zycit001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit085
INTO /pws/zycit085
WHERE nrseqdi = /pws/zycit100-nrseqdi.
SELECT SINGLE * FROM /pws/zyglt369
INTO wa_zyglt369
WHERE bukrs EQ /pws/zycit085-bukrs
AND branch EQ /pws/zycit085-j_1bbranch
AND urfdesp EQ /pws/zycit085-urfdesp.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit048
...
...
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF v_existe_nfr = 'S'.
IF e_subrc EQ '0'.
CLEAR wa_zycit048.
SELECT SINGLE * FROM /pws/zycit100
INTO /pws/zycit100
* >> Início da exclusão: FORM REVERSE_DOCUMENT_J1B2_PSTDAT_R
WHERE nrseq = /pws/zycit001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_J1B2_PSTDAT_R
WHERE nrseq = /pws/zycit001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit085
INTO /pws/zycit085
WHERE nrseqdi = /pws/zycit100-nrseqdi.
SELECT SINGLE * FROM /pws/zyglt369
INTO wa_zyglt369
WHERE bukrs EQ /pws/zycit085-bukrs
AND branch EQ /pws/zycit085-j_1bbranch
AND urfdesp EQ /pws/zycit085-urfdesp.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit048
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI062F01
...
default_button = '2'
display_cancel_button = 'X'
IMPORTING
answer = vl_answer.
IF vl_answer EQ '1'.
LOOP AT itab_agrup WHERE mark EQ 'X'.
DELETE FROM /pws/zycit419 WHERE agrup = itab_agrup-agrup.
DELETE FROM /pws/zycit420 WHERE agrup = itab_agrup-agrup.
DELETE FROM /pws/zycit421 WHERE agrup = itab_agrup-agrup.
DELETE FROM /pws/zycit422 WHERE agrup = itab_agrup-agrup.
* >> Início da exclusão: FORM F_ELIMINAR_0101
DELETE FROM /pws/zycit423 WHERE agrup = itab_agrup-agrup.
* << Fim da exclusão
* >> Início da inclusão: FORM F_ELIMINAR_0101
DELETE FROM /pws/zycit423
WHERE agrup = itab_agrup-agrup. "#EC CI_NOFIELD
* << Fim da inclusão
ENDLOOP.
DELETE itab_agrup WHERE mark EQ 'X'.
ENDIF.
ENDFORM.
FORM f_eliminar_0102.
DATA: vl_answer TYPE c.
READ TABLE itab_grupmat WITH KEY mark = 'X'.
IF sy-subrc NE 0.
MESSAGE i085.
EXIT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR149
...
AND /pws/zycit003~werks IN so_werks
AND /pws/zycit003~matnr IN so_matnr
AND /pws/zycit003~ebeln IN so_ebeln
AND /pws/zycit001~status NE 'EN'.
IF sy-subrc NE 0.
EXIT.
ENDIF.
SELECT * FROM /pws/zycit100
INTO TABLE itab_zycit100
FOR ALL ENTRIES IN itab_zycit003
* >> Início da exclusão: FORM SELECIONA_DADOS
WHERE nrseq EQ itab_zycit003-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
WHERE nrseq EQ itab_zycit003-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
READ TABLE itab_zycit100 INDEX 1.
REFRESH: itab_ekpo, itab_ekko.
IF NOT itab_zycit003[] IS INITIAL.
SELECT ebeln ebelp aedat FROM ekpo INTO TABLE itab_ekpo
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
IF sy-subrc EQ 0.
SELECT ebeln lifnr FROM ekko INTO TABLE itab_ekko
FOR ALL ENTRIES IN itab_ekpo
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR331
...
002 text-257 INTENSIFIED OFF,
029 itab_zycit100-percreduzpc,
120 '|',
/001 '|',
002 text-258 INTENSIFIED OFF,
029 itab_zycit100-codredpiscofi,
120 '|'.
ULINE.
WRITE: /001 '|',
002 text-259 INTENSIFIED OFF,
* >> Início da exclusão: FORM PAG3
029 itab_zycit100-baseantid,
* << Fim da exclusão
* >> Início da inclusão: FORM PAG3
029 itab_zycit100-baseantid CURRENCY /pws/zycbt007-waersb,
* << Fim da inclusão
105 text-266 INTENSIFIED OFF,
120 '|'.
ULINE.
WRITE: /001 '|',
002 text-267 INTENSIFIED OFF,
120 '|',
/001 '|',
002 text-262 INTENSIFIED OFF,
009 text-264 INTENSIFIED OFF,
022 text-263 INTENSIFIED OFF,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR332
...
itab_zycit443-vlcofins
itab_zycit443-vlicms.
READ TABLE itab_zycit167 WITH KEY tipo = '3'
codreg = itab_zycit443-codregtripiscofi.
WRITE: /001 '|',
002 text-140 INTENSIFIED OFF,
025 itab_zycit167-codreg,
027 '/' INTENSIFIED OFF,
030 itab_zycit167-descricao,
065 text-147 INTENSIFIED OFF,
* >> Início da exclusão: FORM PAG3
080 v_vlpis1,
* << Fim da exclusão
* >> Início da inclusão: FORM PAG3
080 v_vlpis1 CURRENCY /pws/zycbt007-waersb,
* << Fim da inclusão
105 text-159 INTENSIFIED OFF,
120 '|'.
ULINE.
WRITE: /001 '|',
002 text-160 INTENSIFIED OFF,
025 itab_zycit443-advalpis,
050 text-162 INTENSIFIED OFF,
065 v_vlpis,
120 '|',
/001 '|',
002 text-161 INTENSIFIED OFF,
025 itab_zycit443-advalcofins,
050 text-163 INTENSIFIED OFF,
065 v_vlcofins,
120 '|',
/001 '|',
002 text-152 INTENSIFIED OFF,
025 itab_zycit443-basredpis,
050 text-164 INTENSIFIED OFF,
* >> Início da exclusão: FORM PAG3
065 itab_zycit447-valor,
* << Fim da exclusão
* >> Início da inclusão: FORM PAG3
065 itab_zycit447-valor CURRENCY /pws/zycbt007-waersb,
* << Fim da inclusão
120 '|'.
ULINE.
READ TABLE itab_zycit167 WITH KEY tipo = '4'
codreg = itab_zycit443-codregtriicms.
WRITE: /001 '|',
002 text-140 INTENSIFIED OFF,
025 itab_zycit167-codreg,
027 '/' INTENSIFIED OFF,
030 itab_zycit167-descricao,
095 text-166 INTENSIFIED OFF,
...