CE PLUS - Nota 005203
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: BL
Data/Hora da Publicação: 13/11/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:59:16
Descrição da Nota: PADRONIZAÇÃO DO PROGRAMA - CODE INSPECTOR BL
Sintoma
Padronização do programa - Code inspector BL
Solução
Padronização do programa - Code inspector BL
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05203 Data: 13/11/2007 Hora: 08:58:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05203
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00021
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PADRONIZAÇÃO DO PROGRAMA - CODE INSPECTOR BL
----------------------------------------------------------------------------------------------------
Palavras Chave:
PADRONIZAÇÃO DO PROGRAMA - CODE INSPECTOR - BL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI002F02
REPS /PWS/MZYCI002I01
REPS /PWS/MZYCI002O01
REPS /PWS/MZYCI002OO
REPS /PWS/MZYCI002TOP
REPS /PWS/MZYCI002X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002F02
...
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
ENDFORM.
FORM limpa_variaveis.
CLEAR: v_st ,
wa_zycie093 ,
/pws/zycie093 ,
* >> Início da exclusão: FORM LIMPA_VARIAVEIS
v_id-texto ,
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA_VARIAVEIS
v_id_texto ,
* << Fim da inclusão
v_numchave ,
v_descr_emp ,
itab_zycit014 ,
itab_zycit094s,
itab_zycit055 .
REFRESH: itab_zycit014 ,
itab_zycit094s,
itab_zycit055 .
ENDFORM.
FORM trata_botao_sele.
CASE sy-dynnr.
WHEN '0104'.
IF ok_code EQ 'SELE'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF ( v_campo EQ '/PWS/ZYCIE094-NRSEQ' ) AND
( NOT v_valor IS INITIAL ).
SET PARAMETER ID '/PWS/ZYCIP001' FIELD v_valor.
* >> Início da exclusão: FORM TRATA_BOTAO_SELE
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO_SELE
CALL TRANSACTION '/PWS/ZYCI001_E'
AND SKIP FIRST SCREEN.
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE s015 WITH text-011 v_valor.
EXIT.
ENDIF.
ELSEIF ( v_campo EQ '/PWS/ZYCIE094-NRSEQ' ) AND
( v_valor IS INITIAL ).
MESSAGE s015 WITH text-012.
EXIT.
ENDIF.
ENDIF.
...
...
v_tcode = '/PWS/ZYCI002_A'.
v_status = 1.
ELSEIF sy-tcode EQ '/PWS/ZYCI002_E'.
v_tcode = '/PWS/ZYCI002_E'.
v_status = 0.
ENDIF.
v_status = v_status_s.
PERFORM load_agen_transp.
CLEAR: v_st.
SELECT status UP TO 1 ROWS FROM /pws/zycit085 INTO v_st
* >> Início da exclusão: FORM TRATA_SELECAO
WHERE nrbl EQ /pws/zycie093-nrseqce.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_SELECAO
WHERE nrbl EQ /pws/zycie093-nrseqce. "#EC CI_NOFIELD
* << Fim da inclusão
ENDSELECT.
IF sy-subrc EQ 0.
IF v_st EQ 'TRA'.
IF sy-tcode EQ '/PWS/ZYCI002_A'.
v_tcode = '/PWS/ZYCI002_E'.
v_status = 0.
MESSAGE s015 WITH text-023 text-024.
ENDIF.
ENDIF.
ENDIF.
...
...
WHERE meiotransp EQ /pws/zycie093-meiotransp
AND tpdoccheg EQ /pws/zycie093-tpdoccheg.
ENDSELECT.
ENDIF.
IF ( /pws/zycie093-meiotransp NE 'DT' AND
/pws/zycie093-meiotransp NE 'EN' ).
CLEAR: v_tp_ct.
IF ( NOT /pws/zycie093-meiotransp IS INITIAL AND
NOT /pws/zycie093-tpconh IS INITIAL ).
SELECT descr UP TO 1 ROWS FROM /pws/zycit117 INTO v_tp_ct
* >> Início da exclusão: FORM LOAD_TEXT
WHERE meiotransp EQ /pws/zycie093-meiotransp
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_TEXT
WHERE tpdecl EQ /pws/zycie001-tpdecl
AND meiotransp EQ /pws/zycie093-meiotransp
* << Fim da inclusão
AND tpconh EQ /pws/zycie093-tpconh.
ENDSELECT.
ENDIF.
ENDIF.
IF /pws/zycie093-meiotransp = 'PS'.
IF /pws/zycie093-tpconh = '9' OR /pws/zycie093-tpconh = '20'.
PERFORM load_tpdecl.
IF sy-subrc = 0.
IF /pws/zycie001-tpdecl = 'DI'.
/pws/zycie093-tpconh = '20'.
...
...
ENDIF.
v_inco1 = it_zycit001_sel-inco1.
LOOP AT it_zycit001_sel.
IF v_inco1 NE it_zycit001_sel-inco1.
CLEAR: itab_log_erro.
MOVE text-001 TO itab_log_erro.
COLLECT itab_log_erro.
ENDIF.
CLEAR: wa_sel.
SELECT * UP TO 1 ROWS FROM /pws/zycit094 INTO wa_sel
* >> Início da exclusão: FORM SELECIONAR_EMBARQUES
WHERE nrseq EQ it_zycit001_sel-nrseq
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EMBARQUES
WHERE NRSEQCE EQ /pws/zycie094-NRSEQCE
AND nrseq EQ it_zycit001_sel-nrseq
* << Fim da inclusão
AND embarca EQ it_zycit001_sel-embarca.
ENDSELECT.
IF sy-subrc NE 0.
READ TABLE itab_zycit094s WITH KEY
nrseq = it_zycit001_sel-nrseq
embarca = it_zycit001_sel-embarca.
IF sy-subrc NE 0.
IF /pws/zycie093-meiotransp EQ it_zycit001_sel-meioemba.
IF /pws/zycie093-paemb EQ it_zycit001_sel-paorigem OR
/pws/zycit000-flagbl EQ 'X'.
...
...
IF sy-subrc EQ 0.
IF v_tpdi EQ 'N'.
CASE v_tcode.
WHEN '/PWS/ZYCI002_A'.
IF t001-land1 EQ 'AR' OR t001-land1 EQ 'CL'.
IF /pws/zycie001-tpdecl IS INITIAL.
EXIT.
ENDIF.
SET PARAMETER ID '/PWS/ZYCIP085' FIELD v_nrseqdi.
EXPORT v_nrseqdi TO MEMORY ID rimc1.
* >> Início da exclusão: FORM TRATA_BOTAO_DDSI
CALL TRANSACTION '/PWS/ZYCI059_A' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO_DDSI
CALL TRANSACTION '/PWS/ZYCI059_A'
AND SKIP FIRST SCREEN.
* << Fim da inclusão
ELSE.
SET PARAMETER ID '/PWS/ZYCIP085' FIELD v_nrseqdi.
EXPORT v_nrseqdi TO MEMORY ID rimc1.
* >> Início da exclusão: FORM TRATA_BOTAO_DDSI
CALL TRANSACTION '/PWS/ZYCI023_A' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO_DDSI
CALL TRANSACTION '/PWS/ZYCI023_A'
AND SKIP FIRST SCREEN.
* << Fim da inclusão
ENDIF.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-018.
EXIT.
ENDIF.
WHEN '/PWS/ZYCI002_E'.
IF t001-land1 EQ 'AR' OR t001-land1 EQ 'CL'.
SET PARAMETER ID '/PWS/ZYCIP085' FIELD v_nrseqdi.
EXPORT v_nrseqdi TO MEMORY ID rimc1.
* >> Início da exclusão: FORM TRATA_BOTAO_DDSI
CALL TRANSACTION '/PWS/ZYCI059_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO_DDSI
CALL TRANSACTION '/PWS/ZYCI059_E'
AND SKIP FIRST SCREEN.
* << Fim da inclusão
ELSE.
SET PARAMETER ID '/PWS/ZYCIP085' FIELD v_nrseqdi.
EXPORT v_nrseqdi TO MEMORY ID rimc1.
* >> Início da exclusão: FORM TRATA_BOTAO_DDSI
CALL TRANSACTION '/PWS/ZYCI023_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO_DDSI
CALL TRANSACTION '/PWS/ZYCI023_E'
AND SKIP FIRST SCREEN.
* << Fim da inclusão
ENDIF.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-019.
EXIT.
ENDIF.
ENDCASE.
ELSEIF v_tpdi EQ 'S'.
CASE v_tcode.
WHEN '/PWS/ZYCI002_A'.
SET PARAMETER ID '/PWS/ZYCIP085' FIELD v_nrseqdi.
...
...
SELECT SINGLE * FROM /pws/zycit001
INTO /pws/zycie001
WHERE nrseq EQ itab_zycit094s-nrseq.
ENDIF.
EXPORT /pws/zycie001-nrseq TO MEMORY ID rimc7.
MOVE : /pws/zycie001-j_1bbranch TO wa_zycie085-j_1bbranch,
/pws/zycie001-embarca TO wa_zycie085-identify.
EXPORT wa_zycie085 TO MEMORY ID rimc4.
IF v_tpdecl EQ 'DI'.
IF t001-land1 EQ 'AR' OR t001-land1 EQ 'CL'.
* >> Início da exclusão: FORM TRATA_BOTAO_DDSI
CALL TRANSACTION '/PWS/ZYCI059_C' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO_DDSI
CALL TRANSACTION '/PWS/ZYCI059_C'
AND SKIP FIRST SCREEN.
* << Fim da inclusão
ELSE.
CALL TRANSACTION '/PWS/ZYCI023_C'.
ENDIF.
ELSEIF v_tpdecl EQ 'DSI'.
CALL TRANSACTION '/PWS/ZYCI058_C'.
ENDIF.
FREE wa_zycie085.
ELSE.
IF itab_zycit094s[] IS INITIAL.
MESSAGE s015 WITH text-065.
...
...
ELSE.
SELECT * FROM /pws/zycit006
INTO TABLE itab_zycit006
WHERE nrseqce = /pws/zycie093-nrseqce AND
eliminado = space
AND tpfatura NE '11'.
IF NOT itab_zycit006[] IS INITIAL.
SELECT * FROM /pws/zycit263
INTO TABLE itab_zycit263
FOR ALL ENTRIES IN itab_zycit006
* >> Início da exclusão: FORM TRATA_BOTAO_DELE
WHERE nrseq_pgfat = itab_zycit006-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BOTAO_DELE
WHERE nrseq_pgfat = itab_zycit006-nrseq_pgfat. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycit006.
v_tabix = sy-tabix.
IF itab_zycit006-tpfatura EQ '01'.
READ TABLE itab_zycit263
WITH KEY nrseq_pgfat = itab_zycit006-nrseq_pgfat.
IF sy-subrc NE 0.
itab_zycit006-eliminado = 'X'.
MODIFY itab_zycit006 INDEX v_tabix.
MODIFY /pws/zycit006 FROM itab_zycit006.
...
...
AND land1 EQ /pws/zycie093-paispae
AND spras EQ sy-langu.
ENDSELECT.
CONCATENATE v_descr_po2 /pws/zycie093-cityppae INTO
v_descr_po2 SEPARATED BY ' / '.
IF sy-tcode = '/PWS/ZYCI002_C' AND v_sug = ' '.
/pws/zycie093-localemb = v_descr_po2.
v_sug = 'X'.
ENDIF.
SELECT * FROM /pws/zycit117
* >> Início da exclusão: FORM FILL_LOCAL_EMB
INTO TABLE itab_zycit117.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_LOCAL_EMB
INTO TABLE itab_zycit117
WHERE tpdecl = /pws/zycie001-tpdecl.
* << Fim da inclusão
ENDFORM.
FORM ver_meio_embarque.
IF v_meio_emb = 'PP'.
LOOP AT SCREEN.
IF screen-group3 EQ 'PP'.
screen-input = 0.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
...
...
PERFORM move_dados201.
IF NOT itab_zycit383c[] IS INITIAL.
CALL SCREEN '0201' STARTING AT 8 10 ENDING AT 125 27.
ELSE.
MESSAGE s015 WITH text-110.
ENDIF.
ENDFORM.
FORM trata_dados201.
SELECT * FROM /pws/zycit055
INTO TABLE itab_zycit055c
* >> Início da exclusão: FORM TRATA_DADOS201
WHERE nrcontainer = /pws/zycie383-nrcontainer.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_DADOS201
WHERE nrcontainer = /pws/zycie383-nrcontainer
and nrseq = /pws/zycie383-NRSEQCE.
* << Fim da inclusão
IF NOT itab_zycit055c[] IS INITIAL.
SELECT * FROM /pws/zycit094
INTO TABLE itab_zycit094
FOR ALL ENTRIES IN itab_zycit055c
WHERE nrseqce = itab_zycit055c-nrseq.
IF NOT itab_zycit094[] IS INITIAL.
SELECT * FROM /pws/zycit003
INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_zycit094
WHERE nrseq = itab_zycit094-nrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002O01
...
ELSEIF v_tcode EQ '/PWS/ZYCI002_C'.
itab_botoes-button_name = 'DELE'.
APPEND itab_botoes.
itab_botoes-button_name = 'MODI'.
APPEND itab_botoes.
ELSEIF v_tcode EQ '/PWS/ZYCI002_A'.
itab_botoes-button_name = 'MODI'.
APPEND itab_botoes.
ENDIF.
IF itab_zycit477[] IS INITIAL.
* >> Início da exclusão: MODULE STATUS_0050
SELECT * FROM /pws/zycit477 INTO TABLE itab_zycit477.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0050
SELECT * FROM /pws/zycit477
INTO TABLE itab_zycit477.
* << Fim da inclusão
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie093-bukrs.
ENDIF.
READ TABLE itab_zycit477 WITH KEY land = t001-land1.
IF sy-subrc EQ 0 .
itab_botoes-button_name = 'DDSI'.
APPEND itab_botoes.
ENDIF.
SET PF-STATUS '0100' EXCLUDING itab_botoes.
IF v_tcode EQ '/PWS/ZYCI002_C'.
SET TITLEBAR '100'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002OO
...
METHOD on_sapevent.
CLEAR edaction.
CLEAR edframe.
CLEAR edgetdata.
CLEAR edpostdataline.
edaction = action.
edframe = frame.
edgetdata = getdata.
postdata_tab = postdata.
AUTHORITY-CHECK OBJECT 'S_TCODE'
* >> Início da exclusão:
ID 'TCD' FIELD edgetdata.
* << Fim da exclusão
* >> Início da inclusão:
ID 'TCD' FIELD edgetdata(40).
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE i122 WITH edgetdata.
ELSE.
CALL TRANSACTION edgetdata.
ENDIF.
ENDMETHOD.
ENDCLASS.
MODULE status_custom_0050 OUTPUT.
PERFORM status_custom.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002X01
...
v_at ,
v_me LIKE /pws/zycit054-bezei ,
v_tran2 ,
v_tran ,
v_mt LIKE /pws/zycit054-bezei ,
v_meio_emb LIKE /pws/zycie093-meiotransp ,
v_pais_agente LIKE lfa1-land1 ,
v_descr_emp LIKE t001-butxt ,
v_tp_dcc LIKE /pws/zycit105-descricao ,
v_tp_ct LIKE /pws/zycit117-descr ,
* >> Início da exclusão:
v_id-texto LIKE thead-tdid ,
* << Fim da exclusão
* >> Início da inclusão:
v_id_texto LIKE thead-tdid ,
* << Fim da inclusão
v_numchave LIKE thead-tdname ,
v_status TYPE i VALUE 1 ,
v_status_s TYPE i VALUE 1 ,
v_msg_ficta1(50) TYPE c VALUE space ,
v_freetime like /pws/zycet133-free_time,
v_msg_ficta2(50) TYPE c VALUE space ,
marc(1) TYPE c VALUE space ,
marc2(1) TYPE c VALUE space ,
marc3(1) TYPE c VALUE space ,
v_txtdisp(30) TYPE c VALUE space ,
...