CE PLUS - Nota 005230
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Dados Adicionais
Data/Hora da Publicação: 14/11/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 10:17:26
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 05230 Data: 14/11/2007 Hora: 14:56:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05230
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00021
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04139 - 00001 - 7.0 - 00002 - RETIFICAÇÃO DE DDE - RDE
04400 - 00002 - 7.0 - 00002 - AJUSTE DDE (TOTCOND)_JPY
----------------------------------------------------------------------------------------------------
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/MZYCE107F01
REPS /PWS/MZYCE107I01
REPS /PWS/MZYCE107O01
REPS /PWS/MZYCE107TOP
REPS /PWS/MZYCE107X01
REPT /PWS/SAPMZYCE107
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE107F01
...
SELECT *
INTO /pws/zycee120
FROM /pws/zycet120 UP TO 1 ROWS
WHERE nrseq = /pws/zycee120-nrseq.
ENDSELECT.
IF sy-subrc EQ 0.
IF sy-tcode = c_code_c.
MESSAGE a001 WITH text-007 /pws/zycee120-nrseqsd.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM DATA_SELECT
SELECT SINGLE waers
* << Fim da exclusão
* >> Início da inclusão: FORM DATA_SELECT
select waers
* << Fim da inclusão
FROM /pws/zycet008
* >> Início da inclusão: FORM DATA_SELECT
up to 1 rows
* << Fim da inclusão
INTO /pws/zycee120-waers
WHERE nrseq = /pws/zycee120-nrseq.
* >> Início da inclusão: FORM DATA_SELECT
endselect.
* << Fim da inclusão
IF sy-tcode EQ c_code_c.
...
...
v_sydynnr = sy-dynnr.
CALL FUNCTION '/PWS/ZYGL_VERIFICA_BOTAO'
EXPORTING
grupp = 'DE'
program = v_syrepid
dynnumb = v_sydynnr
button = 'SPEC'
IMPORTING
visivel = v_visivel
EXCEPTIONS
* >> Início da exclusão: FORM VERIFICA_ESPECIFICO
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ESPECIFICO
OTHERS = 0.
* << Fim da inclusão
IF v_visivel IS INITIAL.
itstatus-fcode = 'SPEC'.
APPEND itstatus.
ENDIF.
ENDFORM.
FORM load_contain.
SELECT DISTINCT nrseq nrcont nrlacre
FROM /pws/zycet124
INTO TABLE itab_zycet124
WHERE nrseq = /pws/zycee120-nrseq.
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. " load_contain
FORM load_cabec.
CLEAR itab_centro.
REFRESH itab_centro.
DATA: v_cgc LIKE j_1bwfield-cgc_number.
IF /pws/zycee120-fldesp = 'X'.
...
IF /pws/zycee120-codvias IS INITIAL.
SELECT SINGLE a~codvias "#EC CI_BUFFJOIN
FROM /pws/zycet139 AS a
INNER JOIN /pws/zycet001 AS b
ON a~viatrans = b~viatrans
INTO /pws/zycee120-codvias
WHERE b~nrseq = /pws/zycee120-nrseq.
ENDIF.
...
MODIFY /pws/zycet515 FROM TABLE itab_zycet515.
COMMIT WORK.
UPDATE /pws/zycet001 SET nrsd = /pws/zycee120-nrsd
WHERE nrseq EQ /pws/zycee120-nrseq.
COMMIT WORK.
PERFORM data_unlock.
MESSAGE s016 WITH text-042 /pws/zycee120-nrseqsd text-009.
SET PARAMETER ID '/PWS/ZYCEP007' FIELD /pws/zycee120-nrseqsd.
CALL TRANSACTION c_code_a AND SKIP FIRST SCREEN.
LEAVE PROGRAM.
* >> Início da exclusão: FORM DATA_SAVE
CALL CUSTOMER-FUNCTION '001'.
* << Fim da exclusão
v_flag_dde = 'S'.
v_nrsd = /pws/zycee120-nrsd.
EXPORT v_flag_dde TO MEMORY ID '017'.
EXPORT v_nrsd TO MEMORY ID '016'.
ELSE.
MESSAGE w001 WITH text-010.
ENDIF.
ELSE.
MESSAGE w001 WITH text-071 text-072 .
ENDIF.
...
...
IMPORT v_erro FROM MEMORY ID 'OBERR'.
FREE MEMORY ID: 'OBCAB',
'OBREV',
'OBVOL',
'OBNFE',
'OBCON',
'OBTRA',
'OBERR'.
ENDFORM.
FORM change_nrseqsd. "#EC CALLED
itab_zycet122-nrseqsd = /pws/zycee120-nrseqsd.
MODIFY itab_zycet122 TRANSPORTING nrseqsd WHERE nrseqsd = v_value.
itab_zycet123-nrseqsd = /pws/zycee120-nrseqsd.
MODIFY itab_zycet123 TRANSPORTING nrseqsd WHERE nrseqsd = v_value.
ENDFORM. " change_nrseqsd
...
ENDFORM.
IF itab_zycet258-volemb > itab_zycet258-volcon. "#EC PORTABLE
PERFORM: preenche_obrig_1 USING '0057'
'0050'.
ENDIF.
IF itab_zycet258-volemb < itab_zycet258-volcon AND "#EC PORTABLE
itab_zycet258-linha1 IS INITIAL AND
itab_zycet258-linha2 IS INITIAL.
PERFORM: preenche_obrig_1 USING '0064'
'0050'.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM. " check_obrig_fields
...
FORM botao_especifico.
* >> Início da exclusão: FORM BOTAO_ESPECIFICO
CALL CUSTOMER-FUNCTION '002'.
* << Fim da exclusão
...
LOOP AT itab_183.
DELETE FROM /pws/zycet077 WHERE nrseq = itab_183-nrseq.
ENDLOOP.
COMMIT WORK.
DELETE FROM /pws/zycet183
WHERE nrchave = /pws/zycee120-nrseqsd. "#EC CI_NOFIELD
COMMIT WORK.
...
FORM transmite_dde.
SELECT * "#EC CI_NOFIRST
FROM /pws/zycet183
INTO TABLE itab_zycet183a
WHERE nrchave = /pws/zycee120-nrseqsd AND
nremb = /pws/zycee120-nrseq AND
tp_doc = text-042.
FORM delete_item.
DATA: v_resp.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-012
text_question = text-013
default_button = '1'
IMPORTING
answer = v_resp
EXCEPTIONS
* >> Início da exclusão: FORM DELETE_ITEM
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_ITEM
text_not_found = 0
OTHERS = 0.
* << Fim da inclusão
IF v_resp = '1'.
CASE v_dyn.
WHEN '0102'.
DELETE itab_zycet122 WHERE marc = 'X'.
WHEN '0104'.
DELETE itab_zycet258 WHERE marc = 'X'.
ENDCASE.
IF sy-subrc NE 0.
MESSAGE i001 WITH text-011.
ENDIF.
...
...
ELSE.
CONCATENATE text-014 text-015 INTO v_text.
ENDIF.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-012
text_question = v_text
IMPORTING
answer = v_resp
EXCEPTIONS
* >> Início da exclusão: FORM DELETE_DDE
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_DDE
text_not_found = 0
OTHERS = 0.
* << Fim da inclusão
IF v_resp EQ '1'.
DELETE FROM /pws/zycet120 WHERE nrseqsd = /pws/zycee120-nrseqsd.
DELETE FROM /pws/zycet121 WHERE nrseqsd = /pws/zycee120-nrseqsd.
DELETE FROM /pws/zycet122 WHERE nrseqsd = /pws/zycee120-nrseqsd.
DELETE FROM /pws/zycet123 WHERE nrseqsd = /pws/zycee120-nrseqsd.
DELETE FROM /pws/zycet258 WHERE nrseqsd = /pws/zycee120-nrseqsd.
COMMIT WORK.
SELECT * FROM /pws/zycet183 INTO TABLE itab_183
WHERE nrchave = /pws/zycee120-nrseqsd.
LOOP AT itab_183.
DELETE FROM /pws/zycet077 WHERE nrseq = itab_183-nrseq.
ENDLOOP.
COMMIT WORK.
* >> Início da exclusão: FORM DELETE_DDE
DELETE FROM /pws/zycet183 WHERE nrchave = /pws/zycee120-nrseqsd.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_DDE
DELETE FROM /pws/zycet183
WHERE nrchave = /pws/zycee120-nrseqsd.
* << Fim da inclusão
COMMIT WORK.
CLEAR: v_nrsd.
v_flag_dde = 'S'.
EXPORT v_flag_dde TO MEMORY ID '017'.
EXPORT v_nrsd TO MEMORY ID '016'.
CLEAR itab_zyglt100.
READ TABLE itab_zyglt100 WITH KEY zexit = 'DDE002' BINARY SEARCH.
IF sy-subrc = 0
AND NOT itab_zyglt100-programa IS INITIAL
AND NOT itab_zyglt100-formulario IS INITIAL.
...
...
text_question = v_question
text_button_1 = text-034
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-035
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
IMPORTING
answer = v_resp1
EXCEPTIONS
* >> Início da exclusão: FORM TRANSMITE_DDE
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSMITE_DDE
text_not_found = 0
OTHERS = 0.
* << Fim da inclusão
IF v_resp1 = 1.
verif_doc = text-080.
PERFORM prioridade.
IF NOT v_modo_pri IS INITIAL.
PERFORM deleta_dde_rde.
PERFORM preenche_fila.
ENDIF.
ELSE.
CLEAR v_resp1.
ENDIF.
...
...
text_question = text-033
text_button_1 = text-034
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-035
icon_button_2 = 'ICON_CONCEL'
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_resp
EXCEPTIONS
* >> Início da exclusão: FORM CHAM_PRIO
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM CHAM_PRIO
text_not_found = 0
OTHERS = 0.
* << Fim da inclusão
IF v_resp = text-040.
CLEAR v_resp.
ELSEIF v_resp = 1.
v_modo_pri = text-036.
PERFORM preenche_fila.
ELSEIF v_resp = 2.
PERFORM prioridade.
IF NOT v_modo_pri IS INITIAL.
PERFORM preenche_fila.
ENDIF.
...
FORM busca_sequencial.
DATA v_fnrseq LIKE /pws/zycet183-nrseq.
CLEAR : v_fnrseq, v_countfi.
SELECT MAX( nrseq ) "#EC CI_NOWHERE
FROM /pws/zycet183
INTO (v_fnrseq).
v_countfi = v_fnrseq + 1.
ENDFORM. " busca_sequencial
...
/pws/zycee120-nrseqsd TO itab_zycet183-nrchave,
/pws/zycee120-nrseq TO itab_zycet183-nremb,
/pws/zycee120-bukrs TO itab_zycet183-bukrs,
c_filial TO itab_zycet183-branch,
sy-datlo TO itab_zycet183-dtenvf,
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.
* >> Início da exclusão: FORM PREENCHE_FILA
SELECT SINGLE log
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_FILA
select log
* << Fim da inclusão
FROM /pws/zycet183
* >> Início da inclusão: FORM PREENCHE_FILA
up to 1 rows
* << Fim da inclusão
INTO (v_log)
WHERE uname EQ sy-uname
AND stasis EQ 'B'.
* >> Início da inclusão: FORM PREENCHE_FILA
endselect.
* << Fim da inclusão
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.
MESSAGE i016 WITH text-020.
...
...
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-035
icon_button_2 = 'ICON_CONCEL'
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_resp
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM ENVIA_NOVAMENTE
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_resp = 1.
PERFORM prioridade.
PERFORM preenche_fila.
ENDIF.
ENDFORM.
FORM prioridade.
DATA : BEGIN OF it_modo_pri OCCURS 10,
modo LIKE /pws/zycbt039-modo,
descr LIKE /pws/zycbt039-descr,
END OF it_modo_pri.
...
...
titel = text-047
IMPORTING
answer = v_modo_pri
TABLES
t_spopli = it_modo_prin
EXCEPTIONS
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
OTHERS = 4.
* >> Início da inclusão: FORM PRIORIDADE
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_modo_pri EQ '1'.
v_modo_pri = text-036.
ELSEIF v_modo_pri EQ '2'.
v_modo_pri = text-038.
ELSEIF v_modo_pri EQ '3'.
v_modo_pri = text-040.
ELSEIF v_modo_pri = text-040.
CLEAR v_modo_pri.
ENDIF.
ENDFORM.
FORM data_unlock.
CHECK sy-tcode NE c_code_e.
CALL FUNCTION '/PWS/ZYCE_DEQUEUE_ZYCET120'
EXPORTING
mandt = sy-mandt
nrseq = /pws/zycee120-nrseqsd
EXCEPTIONS
* >> Início da exclusão: FORM DATA_UNLOCK
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM DATA_UNLOCK
OTHERS = 0.
* << Fim da inclusão
ENDFORM.
...
FORM desc_pais.
CLEAR d_codpa.
SELECT t005t~landx
INTO d_codpa
FROM t005 INNER JOIN t005t "#EC CI_BUFFJOIN
ON t005~land1 = t005t~land1
WHERE t005~/pws/codpa EQ /pws/zycee120-codpa
AND t005t~spras EQ sy-langu.
ENDSELECT.
ENDFORM. " desc_pais
...
FORM load_recinto.
IF /pws/zycee120-codrecinto IS INITIAL AND
/pws/zycee120-codsetor IS INITIAL.
SELECT SINGLE *
FROM /pws/zycet145
INTO wa_zycet145
WHERE bukrs EQ /pws/zycee120-bukrs
AND branch EQ v_branch.
IF wa_zycet145 IS INITIAL.
...
...
INTO v_branch
WHERE werks = itab_zycet002-werks.
IF sy-subrc EQ 0.
CALL FUNCTION 'J_1BREAD_BRANCH_DATA'
EXPORTING
branch = v_branch
bukrs = itab_zycet002-bukrs
IMPORTING
cgc_number = v_cgc
EXCEPTIONS
* >> Início da exclusão: FORM LOAD_ALL_NFISCAL
branch_not_found = 1
address_not_found = 2
company_not_found = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_ALL_NFISCAL
branch_not_found = 0
address_not_found = 0
company_not_found = 0
OTHERS = 0.
* << Fim da inclusão
CLEAR itab_zycet123.
WRITE v_cgc TO itab_zycet123-stcd1.
itab_zycet123-nrseqsd = /pws/zycee120-nrseqsd.
itab_zycet123-nfnumde = itab_zycet002-nfnum.
CLEAR itab_series.
READ TABLE itab_series WITH KEY docnum = itab_zycet002-docnum.
IF sy-subrc = 0.
itab_zycet123-seriede = itab_series-series.
ENDIF.
itab_zycet123-nrcont = v_cont.
...
...
CLEAR itab_vbfa.
READ TABLE itab_vbfa WITH KEY vbeln = p_wa_devolucao-vbeln_vf
posnn = p_wa_devolucao-posnr.
IF sy-subrc EQ 0.
READ TABLE itab_zycet002 WITH KEY vbeln_vf = itab_vbfa-vbeln
posnr = itab_vbfa-posnn.
IF sy-subrc IS INITIAL.
v_fkimg_corrente =
( itab_zycet002-fkimg - ( p_wa_devolucao-fkimg * -1 ) ).
IF NOT v_fkimg_corrente IS INITIAL AND
* >> Início da exclusão: FORM VERIFICA_DEVOL_TOTAL_PARCIAL
v_fkimg_corrente > 0 AND
v_fkimg_corrente > '0.000'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DEVOL_TOTAL_PARCIAL
v_fkimg_corrente > 0 .
* << Fim da inclusão
p_devol = c_dev_parcial.
ELSE.
p_devol = c_dev_total.
ENDIF.
CLEAR: v_fkimg_corrente.
ENDIF.
ENDIF.
ENDFORM.
...
FORM trata_nota_estorno_estornada .
SELECT * "#EC CI_NOFIRST
FROM vbfa
INTO TABLE itab_vbfa
FOR ALL ENTRIES IN itab_devolucao
WHERE vbeln = itab_devolucao-vbeln_vf
AND posnn = itab_devolucao-posnr
AND vbtyp_v = 'M'.
...
FORM carrega_zyglt100.
DATA v_repid LIKE sy-repid.
v_repid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'X'
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
* >> Início da exclusão: FORM CARREGA_ZYGLT100
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_ZYGLT100
i_codmod_nao_encontrado = 0
i_func_nao_encontrado = 0
i_zexit_nao_encontrado = 0
OTHERS = 0.
* << Fim da inclusão
ENDFORM.
FORM carrega_exit USING value(p_exit) LIKE itab_zyglt100-zexit.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = p_exit
BINARY SEARCH.
IF sy-subrc IS INITIAL.
CHECK itab_zyglt100-zexit_ativa = 'X'.
IF NOT itab_zyglt100-formulario IS INITIAL AND
NOT itab_zyglt100-programa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
...
FORM verifica_erro_senha
CHANGING
p_subrc TYPE sy-subrc.
SELECT COUNT(*) "#EC CI_NOFIELD
FROM /pws/zycet183
WHERE cpf IN ( select CPF from /PWS/ZYCET184
WHERE uname EQ sy-uname )
AND stasis EQ 'P'.
IF sy-subrc EQ 0.
p_subrc = sy-subrc.
ELSE.
SELECT COUNT(*) "#EC CI_NOFIELD
FROM /pws/zycit285
WHERE cpf IN ( select CPF from /PWS/ZYCET184
WHERE uname EQ sy-uname )
AND stasis EQ 'P'.
p_subrc = sy-subrc.
ENDIF.
ENDFORM.
FORM deleta_dde_rde.
* Verifica se existe DDE ou RDE na Fila, se existir deleta.
SELECT COUNT(*) FROM /pws/zycet183 "#EC CI_NOFIELD
WHERE nrchave = /pws/zycee120-nrseqsd.
CHECK sy-subrc = 0.
DELETE FROM /pws/zycet183 "#EC CI_NOFIRST
WHERE nrchave = /pws/zycee120-nrseqsd AND
tp_doc EQ text-042 OR
tp_doc = text-080.
MOVE:
/pws/zycee120-nrsd TO v_nrsiscomex,
space TO /pws/zycee120-nrsd.
UPDATE /pws/zycet120 SET nrsd = space
WHERE nrseqsd EQ /pws/zycee120-nrseqsd.
COMMIT WORK.
ENDFORM. " deleta_dde_rde
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE107I01
...
WHEN 'ENTE'.
PERFORM data_select_2.
ENDCASE.
ENDMODULE.
MODULE carrega_qtdtot INPUT.
IF /pws/zycee120-inclpres EQ 'S'
AND /pws/zycee120-qtdtot IS INITIAL
AND /pws/zycee120-tpunit IS INITIAL
AND /pws/zycee120-local IS INITIAL.
MOVE /pws/zycee120-qtdtotal TO /pws/zycee120-qtdtot.
* >> Início da exclusão: MODULE CARREGA_QTDTOT
SELECT SINGLE unitizacao
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_QTDTOT
SELECT unitizacao
* << Fim da inclusão
FROM /pws/zycet145
* >> Início da inclusão: MODULE CARREGA_QTDTOT
up to 1 rows
* << Fim da inclusão
INTO (/pws/zycee120-tpunit)
WHERE bukrs EQ /pws/zycee120-bukrs
AND branch IN ( select J_1BBRANCH from T001W
WHERE werks = /pws/zycee120-werks )."#EC *
* >> Início da inclusão: MODULE CARREGA_QTDTOT
endselect.
* << Fim da inclusão
IF sy-subrc NE 0.
SELECT unitizacao
INTO (/pws/zycee120-tpunit)
FROM /pws/zycet145 UP TO 1 ROWS
WHERE bukrs EQ /pws/zycee120-bukrs.
ENDSELECT.
ENDIF.
SELECT descterm
INTO (/pws/zycee120-local)
FROM /pws/zycet158 UP TO 1 ROWS.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE107O01
...
MODULE load_html_help OUTPUT.
IF my_container IS INITIAL.
CREATE OBJECT my_container
EXPORTING
container_name = 'CC_HTML_HELP'
EXCEPTIONS
others = 1.
CASE sy-subrc.
WHEN 0.
WHEN OTHERS.
* >> Início da exclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error.
* << Fim da exclusão
ENDCASE.
ENDIF.
IF html_control IS INITIAL.
CREATE OBJECT html_control
EXPORTING
parent = my_container.
IF sy-subrc NE 0.
* >> Início da exclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error.
* << Fim da exclusão
ENDIF.
alignment = html_control->align_at_left +
html_control->align_at_right +
html_control->align_at_top +
html_control->align_at_bottom.
CALL METHOD html_control->set_alignment
EXPORTING
alignment = alignment.
myevent-eventid = html_control->m_id_sapevent.
myevent-appl_event = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE107TOP
não houve alterações no top
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE107X01
* >> Início da exclusão:
TABLES: /pws/zycee120,
/pws/zycee112.
* << Fim da exclusão
* >> Início da inclusão:
TABLES: /pws/zycee120.
* << Fim da inclusão
DATA BEGIN OF COMMON PART c.
* >> Início da exclusão:
DATA v_controle_data(1) TYPE c.
* << Fim da exclusão
DATA: itab_zycet120 LIKE /pws/zycet120 OCCURS 1 WITH HEADER LINE,
itab_zycet123 LIKE /pws/zycet123 OCCURS 5 WITH HEADER LINE.
DATA: BEGIN OF itab_zycet002 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet002.
DATA: END OF itab_zycet002.
DATA END OF COMMON PART c.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE107
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 008
Texto: (26 caracteres)
"Sequencial modificado para"
Comprimento máximo: 26
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 021
Texto: (14 caracteres)
"Nº do SISCOMEX"
Comprimento máximo: 14