CE PLUS - Nota 006087
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 03/03/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:53:15
Descrição da Nota: CODE INSPECTOR, VERIFICAÇÃO AMPLIADA - CAMBIO
Sintoma
performance e sintaxe - mas não afeta o funcionamento do programa
Solução
code inspector, verificação ampliada
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06087 Data: 03/03/2008 Hora: 10:00:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06087
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:
CODE INSPECTOR, VERIFICAÇÃO AMPLIADA - CAMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR, VERIFICAÇÃO AMPLIADA - CAMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB105F01
REPS /PWS/MZYCB105I01
REPS /PWS/MZYCB105O01
REPS /PWS/MZYCB105TOP
REPS /PWS/MZYCB105X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105F01
FORM administrar_processo.
* >> Início da exclusão: FORM ADMINISTRAR_PROCESSO
DATA: e_exec_okcode.
CLEAR: r_okcode, e_exec_okcode, v_syrepid.
* << Fim da exclusão
* >> Início da inclusão: FORM ADMINISTRAR_PROCESSO
CLEAR: r_okcode,
v_syrepid.
* << Fim da inclusão
CALL METHOD cl_gui_cfw=>dispatch.
IF NOT r_okcode IS INITIAL.
ok_code = r_okcode.
ENDIF.
CLEAR itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
v_syrepid = sy-repid.
IF /pws/zycbe118-codmod EQ 'E'.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM ADMINISTRAR_PROCESSO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ELSEIF /pws/zycbe118-codmod EQ 'I'.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM ADMINISTRAR_PROCESSO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'DES001' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
IF e_subrc NE 0.
...
...
/pws/zycbe118-frpagto EQ 'C' .
CLEAR erro_bi.
PERFORM verifica_estrategia_liberacao.
CHECK erro_bi IS INITIAL.
IF /pws/zycbe118-frgzu = '2'.
PERFORM contabiliza_f-63.
ENDIF.
ENDIF.
PERFORM salva_dados_bancarios.
IF v_descricao IS INITIAL.
* >> Início da exclusão: FORM SALVAR_DADOS
SELECT SINGLE tpdesp ftipo txtdesc
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
SELECT tpdesp ftipo txtdesc
FROM /pws/zycbt015
up to 1 rows
* << Fim da inclusão
INTO (/pws/zycbt015-tpdesp,/pws/zycbt015-ftipo,
/pws/zycbt015-txtdesc)
* >> Início da exclusão: FORM SALVAR_DADOS
FROM /pws/zycbt015
* << Fim da exclusão
WHERE tpdesp = /pws/zycbe118-tpdesp
AND ftipo = /pws/zycbe118-codmod.
* >> Início da inclusão: FORM SALVAR_DADOS
endselect.
* << Fim da inclusão
v_tipo = /pws/zycbe118-codmod.
IF sy-subrc EQ 0.
v_descricao = /pws/zycbt015-txtdesc.
ENDIF.
IF v_descricao IS INITIAL.
MESSAGE e015 WITH text-061 text-062.
ENDIF.
ENDIF.
IF v_status_s NE 0 OR v_status_s IS INITIAL.
PERFORM save_zycbt118.
...
...
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-023
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
IMPORTING
answer = v_resp
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM EXCLUIR_DADOS
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_resp EQ 1.
IF /pws/zycbe118-frpagto EQ 'C' AND
NOT /pws/zycbe118-belnrdesp IS INITIAL.
SELECT SINGLE * FROM bkpf
WHERE belnr = /pws/zycbe118-belnrdesp
AND bukrs = wa_zycbt118-bukrs
AND gjahr = wa_zycbt118-dtincl(4)
AND bstat = 'V'.
IF sy-subrc = 0.
PERFORM elimina_desp.
...
...
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-030
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
IMPORTING
answer = v_resp
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM EXCLUIR_DADOS
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_resp EQ '1'.
PERFORM estorna.
IF v_erro_fbra IS INITIAL AND v_erro_fb08 IS INITIAL.
DELETE FROM /pws/zycbt118 WHERE nrseq = /pws/zycbe118-nrseq.
IF /pws/zycbe118-codmod EQ 'E'.
DELETE FROM /pws/zyglt209 WHERE nrseq = v_nrseqview
AND mdcorresp = 'CD'
AND codmod = 'E'.
ELSEIF /pws/zycbe118-codmod EQ 'I'.
DELETE FROM /pws/zyglt209 WHERE nrseq = v_nrseqview
...
...
FORM popup_message USING value(p_textline1)
value(p_title).
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = p_textline1
titel = p_title
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM POPUP_MESSAGE
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
OTHERS = 0."#EC *
* << Fim da inclusão
ENDFORM.
FORM altera_dados.
DATA: v_existe VALUE 'N'.
IF /pws/zycbe118-status IS INITIAL.
/pws/zycbe118-status = 'I'.
ELSEIF /pws/zycbe118-status = 'I'.
/pws/zycbe118-status = 'A'.
ENDIF.
IF NOT /pws/zycbe118-kursf IS INITIAL.
LOOP AT SCREEN.
...
...
ENDWHILE.
IF v_existe = 'S'.
MESSAGE i061 WITH text-008 /pws/zycbe118-nrdesp
text-009 /pws/zycbe118-nrseq.
ENDIF.
ELSE.
MODIFY /pws/zycbt118 FROM /pws/zycbe118.
ENDIF.
wa_zycbt118 = /pws/zycbe118.
IF sy-subrc EQ '0'.
* >> Início da exclusão: FORM ALTERA_DADOS
MESSAGE s018(pc) WITH text-005 wa_zycbt118-nrseq text-010.
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_DADOS
MESSAGE s601(sf) WITH text-005 wa_zycbt118-nrseq text-010.
* << Fim da inclusão
ENDIF.
IF v_okcode <> 'OUTRO' AND
sy-binpt IS INITIAL.
GET PARAMETER ID '/PWS/ZYCMP300' FIELD v_global.
IF sy-tcode EQ '/PWS/ZYCB105_C' AND v_global IS INITIAL.
PERFORM unlock_record.
SET PARAMETER ID '/PWS/ZYCBP368' FIELD v_nrseqview.
LEAVE TO TRANSACTION '/PWS/ZYCB105_E' AND SKIP FIRST SCREEN.
ELSEIF v_nrboleto IS INITIAL AND /pws/zycbe118-fcambio EQ 'N'
AND sy-tcode <> '/PWS/ZYCB105_C'.
...
...
LEAVE PROGRAM.
ENDIF.
ENDIF.
ENDFORM.
FORM chama_boleto.
IF v_nrseq IS INITIAL.
EXIT.
ELSE.
CLEAR: v_nrboleto,
wa_zycbt031a.
* >> Início da exclusão: FORM CHAMA_BOLETO
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_BOLETO
SELECT * FROM /pws/zycbt064
up to 1 rows
* << Fim da inclusão
INTO wa_zycbt064a
WHERE nrchave EQ v_nrseq
AND ( mdcorresp EQ 'CD' OR mdcorresp EQ 'ID' ).
* >> Início da inclusão: FORM CHAMA_BOLETO
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM CHAMA_BOLETO
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_BOLETO
SELECT * FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
INTO wa_zycbt031a
WHERE nrseq EQ wa_zycbt064a-nrboleto
AND tabela = '/PWS/ZYCBT118'.
* >> Início da inclusão: FORM CHAMA_BOLETO
endselect.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM CHAMA_BOLETO
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_BOLETO
SELECT * FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
INTO wa_zycbt031a
WHERE nrcorresp = v_nrseq
AND tabela = '/PWS/ZYCBT118'.
* >> Início da inclusão: FORM CHAMA_BOLETO
endselect.
* << Fim da inclusão
ENDIF.
IF sy-subrc EQ 0.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD '/PWS/ZYCB110_A'.
...
...
OR sy-tcode = '/PWS/ZYCB105_L' .
CALL FUNCTION '/PWS/ZYGL_DEQUEUE_EZYCBT118'
EXPORTING
nrseq = v_nrseq.
v_lock = 0.
ENDIF.
ENDFORM.
FORM checa_boleto.
CLEAR v_nrboleto.
v_status_s = 1.
* >> Início da exclusão: FORM CHECA_BOLETO
SELECT SINGLE nrboleto FROM /pws/zycbt064 INTO v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: FORM CHECA_BOLETO
SELECT nrboleto FROM /pws/zycbt064
up to 1 rows
INTO v_nrboleto
* << Fim da inclusão
WHERE nrchave = v_nrseq
AND ( mdcorresp = 'CD' OR
mdcorresp = 'ED' OR
mdcorresp = 'ID' ).
* >> Início da inclusão: FORM CHECA_BOLETO
endselect.
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM CHECA_BOLETO
SELECT SINGLE nrseq FROM /pws/zycbt031 INTO v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: FORM CHECA_BOLETO
SELECT nrseq FROM /pws/zycbt031
up to 1 rows
INTO v_nrboleto
* << Fim da inclusão
WHERE nrcorresp = v_nrseq
AND ( mdcorresp = 'CD' OR
mdcorresp = 'ED' OR
mdcorresp = 'ID' ).
* >> Início da inclusão: FORM CHECA_BOLETO
endselect.
* << Fim da inclusão
ENDIF.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-039 text-040.
...
...
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-030
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
IMPORTING
answer = v_resp
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM EFETUA_ESTORNO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_resp EQ '1'.
PERFORM estorna.
ELSE.
EXIT.
ENDIF.
ENDFORM.
FORM estorna.
REFRESH: itab_zycbe033_est.
CLEAR: itab_zycbe033_est.
CLEAR it_erro.
...
...
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-030
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
IMPORTING
answer = v_resp
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM FECHA_CAMBIO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_resp EQ '1'.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD '/PWS/ZYCBR102'.
IF sy-subrc EQ 0.
v_estorno = 'X'.
MODIFY /pws/zycbt118 FROM /pws/zycbe118.
PERFORM processa_boleto.
ELSE.
MESSAGE e303.
ENDIF.
ELSE.
...
...
popup_title = title
start_column = start_column
start_row = 5
IMPORTING
returncode = answer
TABLES
fields = fields
EXCEPTIONS
error_in_fields = 1
OTHERS = 2.
* >> Início da inclusão: FORM CHAMA_DOCUMENTO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF answer EQ space.
nrseq = fields-value.
IF nrseq EQ v_nrseq.
MESSAGE i015 WITH text-037.
PERFORM chama_documento.
ENDIF.
ELSEIF answer = 'A'.
EXIT.
ENDIF.
IF NOT nrseq IS INITIAL.
...
...
SET PARAMETER ID '/PWS/ZYCBP367' FIELD nrseq.
LEAVE TO TRANSACTION '/PWS/ZYCB105_A' AND SKIP FIRST SCREEN.
WHEN '/PWS/ZYCB105_E'.
SET PARAMETER ID '/PWS/ZYCBP368' FIELD nrseq.
LEAVE TO TRANSACTION '/PWS/ZYCB105_E' AND SKIP FIRST SCREEN.
ENDCASE.
ENDIF.
ENDFORM.
FORM retorna_processa.
CLEAR v_nrboleto.
* >> Início da exclusão: FORM RETORNA_PROCESSA
SELECT SINGLE nrboleto FROM /pws/zycbt064 INTO v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: FORM RETORNA_PROCESSA
SELECT nrboleto FROM /pws/zycbt064
UP TO 1 ROWS
INTO v_nrboleto
* << Fim da inclusão
WHERE nrchave EQ v_nrseq
AND ( mdcorresp = 'CD' OR
mdcorresp = 'ED' OR
mdcorresp = 'ID' ).
* >> Início da inclusão: FORM RETORNA_PROCESSA
endselect.
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM RETORNA_PROCESSA
SELECT SINGLE nrseq FROM /pws/zycbt031 INTO v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: FORM RETORNA_PROCESSA
SELECT nrseq FROM /pws/zycbt031
UP TO 1 ROWS
INTO v_nrboleto
* << Fim da inclusão
WHERE nrcorresp = v_nrseq
AND ( mdcorresp = 'CD' OR
mdcorresp = 'ED' OR
mdcorresp = 'ID' ).
* >> Início da inclusão: FORM RETORNA_PROCESSA
endselect.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
v_status_s = 0.
...
...
EXPORTING
date = p_budat
version = v_periv
IMPORTING
period = p_monat
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* >> Início da inclusão: FORM DETERMINA_PERIODO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM executa_fb08.
itab_zycbe033_est-tcode = text-026.
MODIFY itab_zycbe033_est TRANSPORTING tcode
WHERE tcode = text-043.
CLEAR v_erro_fb08.
CALL FUNCTION '/PWS/ZYCA_TRANSACAO_FB08'
EXPORTING
v_modo = v_modo_bi
TABLES
...
...
value(p_description).
IF p_field IS INITIAL.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
APPEND itab_zycbt034.
ENDIF.
ENDFORM.
FORM modo_execucao_bi.
CLEAR: /pws/zycbt039, itab_modo.
REFRESH: itab_modo.
* >> Início da exclusão: FORM MODO_EXECUCAO_BI
SELECT * FROM /pws/zycbt039.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_EXECUCAO_BI
SELECT * FROM /pws/zycbt039."#EC CI_NOWHERE
* << Fim da inclusão
itab_modo-selflag = /pws/zycbt039-modo.
itab_modo-varoption = /pws/zycbt039-descr.
APPEND itab_modo.
ENDSELECT.
SORT itab_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-056
textline2 = text-057
titel = text-058
IMPORTING
answer = v_modo_bi
TABLES
t_spopli = itab_modo
EXCEPTIONS
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
OTHERS = 4.
* >> Início da inclusão: FORM MODO_EXECUCAO_BI
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_modo_bi EQ '3'.
v_modo_bi = 'A'.
ELSEIF v_modo_bi EQ '2'.
v_modo_bi = 'E'.
ELSEIF v_modo_bi EQ '1'.
v_modo_bi = 'N'.
ENDIF.
ENDFORM.
FORM read_text.
CLEAR: itab_thead, itab_tline.
...
...
lines = itab_tline
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
* >> Início da inclusão: FORM READ_TEXT
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM preenche_thead.
itab_thead-tdobject = '/PWS/CB105'.
itab_thead-tdname = v_nrseqview.
itab_thead-tdid = 'CA01'.
itab_thead-tdspras = sy-langu.
itab_thead-tdlinesize = '072'.
APPEND itab_thead.
ENDFORM.
FORM edit_text.
...
...
lines = itab_tline
EXCEPTIONS
id = 1
language = 2
linesize = 3
name = 4
object = 5
textformat = 6
communication = 7
OTHERS = 8.
* >> Início da inclusão: FORM EDIT_TEXT
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM est_desp.
CHECK NOT /pws/zycbe118-belnrdesp IS INITIAL.
itab_zycbe033_est-tcode = text-026.
itab_zycbe033_est-tabela = text-027.
itab_zycbe033_est-cpochv = /pws/zycbe118-nrseq.
itab_zycbe033_est-belnr = /pws/zycbe118-belnrdesp.
itab_zycbe033_est-gjahs = wa_zycbt118-dtincl+0(4).
itab_zycbe033_est-bldat = wa_zycbt118-dtincl.
itab_zycbe033_est-budat = wa_zycbt118-dtincl.
...
...
wa_zycbt031a.
READ TABLE itab_zycbt118 WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
IF itab_zycbt118-fcambio EQ 'N' AND
itab_zycbt118-belnr_p IS INITIAL.
PERFORM fecha_cambio_tc.
ELSEIF itab_zycbt118-fcambio EQ 'N' AND
NOT itab_zycbt118-belnr_p IS INITIAL.
MESSAGE i015 WITH text-036.
ELSE.
* >> Início da exclusão: FORM CHAMA_BOLETO_TC
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_BOLETO_TC
SELECT * FROM /pws/zycbt064
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt064a
WHERE nrchave EQ v_nrseq
AND ( mdcorresp EQ 'CD' OR mdcorresp EQ 'ID' ).
* >> Início da inclusão: FORM CHAMA_BOLETO_TC
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM CHAMA_BOLETO_TC
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_BOLETO_TC
SELECT * FROM /pws/zycbt031
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt031a
WHERE nrseq EQ wa_zycbt064a-nrboleto
AND tabela = '/PWS/ZYCBT118'.
* >> Início da inclusão: FORM CHAMA_BOLETO_TC
endselect.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM CHAMA_BOLETO_TC
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_BOLETO_TC
SELECT * FROM /pws/zycbt031
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt031a
WHERE nrcorresp = v_nrseq
AND tabela = '/PWS/ZYCBT118'.
* >> Início da inclusão: FORM CHAMA_BOLETO_TC
endselect.
* << Fim da inclusão
ENDIF.
IF sy-subrc EQ 0.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD '/PWS/ZYCB110_A'.
...
...
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-030
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
IMPORTING
answer = v_resp
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM FECHA_CAMBIO_TC
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_resp EQ '1'.
v_estorno = 'X'.
PERFORM processa_boleto.
ELSE.
EXIT.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM PROCESSA_BOLETO_TC
FORM processa_boleto_tc.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_BOLETO_TC
FORM processa_boleto_tc."#EC CALLED
* << Fim da inclusão
DATA: limpaid TYPE c VALUE space,
v_codmodul LIKE /pws/zycbe118-codmodul,
v_dtvencto LIKE /pws/zycbe112-dtvencto,
v_desp.
CLEAR v_desp.
MOVE 'X' TO v_desp.
MOVE: itab_zycbt118-dtvencto TO v_dtvencto,
itab_zycbt118-codmodul TO v_codmodul.
EXPORT v_codmodul TO MEMORY ID 'E001'.
EXPORT v_desp TO MEMORY ID 'E005'.
...
...
EXPORTING
i_codmod = /pws/zycbe118-codmod
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM CONTABILIZA_F-63
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'DES002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
SELECT * UP TO 1 ROWS FROM /pws/zycbt011
WHERE codeven = text-073
AND codmod = 'E'.
ENDSELECT.
SELECT *
FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE codeven = text-071.
ENDIF.
ELSEIF /pws/zycbe118-codmod = 'I'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63
SELECT SINGLE * FROM /pws/zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63
SELECT * FROM /pws/zycbt011
up to 1 rows
* << Fim da inclusão
WHERE codeven = text-047
AND codmod = 'I'.
* >> Início da inclusão: FORM GET_PARAMETERS_F63
endselect.
* << Fim da inclusão
ENDIF.
IF /pws/zycbe118-codmod = 'F'.
v_ktosl = 'DGF'.
ELSEIF /pws/zycbe118-codmod = 'E'.
v_ktosl = 'DSE'.
...
...
EXPORTING
i_codmod = /pws/zycbe118-codmod
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM EXECUTA_APROVACAO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'DES002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
ELSE.
LOOP AT itab_zycbt034_est.
MESSAGE i016 WITH itab_zycbt034_est-descricao.
ENDLOOP.
ENDIF.
ENDFORM.
FORM verifica_estrategia_liberacao.
DATA: v_frgzu LIKE /pws/zycbt118-frgzu,
v_vlmi LIKE /pws/zycbt118-vlme,
v_totdep LIKE /pws/zyglt342-valorinc,
* >> Início da exclusão: FORM VERIFICA_ESTRATEGIA_LIBERACAO
v_lib(1) TYPE c,
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ESTRATEGIA_LIBERACAO
v_lib(1) TYPE c,"#EC NEEDED
* << Fim da inclusão
v_mdcorresp LIKE /pws/zycbt031-mdcorresp.
IF /pws/zycbe118-codmod = 'I'.
v_mdcorresp = 'ID'.
ELSEIF /pws/zycbe118-codmod = 'E'.
v_mdcorresp = 'ED'.
ELSEIF /pws/zycbe118-codmod = 'F'.
v_mdcorresp = 'CD'.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycbe118-bukrs.
...
...
frggrqa = /pws/zyglt343-frggrqa
frggrqi = /pws/zyglt343-frggrqi
TABLES
t_contas = itab_contas
t_custo = itab_custo
t_lucro = itab_lucro
EXCEPTIONS
estrategia_invalida = 1
parametros_invalidos = 2
OTHERS = 3.
* >> Início da inclusão: FORM VERIFICA_ESTRATEGIA_LIBERACAO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
CHECK /pws/zycbe118-frpagto = 'C'.
IF sy-subrc EQ 1.
MESSAGE i061 WITH text-064 text-065.
erro_bi = 'X'.
EXIT.
ELSEIF sy-subrc EQ 2.
MESSAGE i061 WITH text-066 text-065.
erro_bi = 'X'.
EXIT.
ENDIF.
...
...
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
tabela_categ_nao_configurada = 8
OTHERS = 9.
* >> Início da inclusão: FORM VERIFICA_TAXA
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
MOVE itab_zycbe033-kursf TO v_txest.
ENDFORM.
FORM verifica_pais_filial USING p_bukrs
p_brnch.
SELECT SINGLE adrnr FROM j_1bbranch INTO j_1bbranch-adrnr
WHERE bukrs = p_bukrs
AND branch = p_brnch.
IF sy-subrc = 0.
* >> Início da exclusão: FORM VERIFICA_PAIS_FILIAL
SELECT SINGLE country FROM adrc INTO adrc-country
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PAIS_FILIAL
SELECT country
FROM adrc
UP TO 1 ROWS
INTO adrc-country
* << Fim da inclusão
WHERE addrnumber = j_1bbranch-adrnr.
* >> Início da inclusão: FORM VERIFICA_PAIS_FILIAL
endselect.
* << Fim da inclusão
IF sy-subrc = 0 AND
adrc-country NE 'BR' AND adrc-country NE 'TW'.
CLEAR p_brnch.
ENDIF.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105I01
...
ENDCASE.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = '/PWS/ZYCBE118'
fieldname = 'NRREF'
searchhelp = v_matchcode1
display = l_display
TABLES
return_tab = itab_result
EXCEPTIONS
* >> Início da exclusão: MODULE SETA_MATCHCODE
OTHERS = 5.
* << Fim da exclusão
* >> Início da inclusão: MODULE SETA_MATCHCODE
OTHERS = 0.
* << Fim da inclusão
/pws/zycbe118-nrref = itab_result-fieldval.
ENDMODULE.
MODULE zera_index INPUT.
CLEAR v_index.
READ TABLE itab_zyglt209 INDEX 1.
IF itab_zyglt209-bcointerm IS INITIAL AND
itab_zyglt209-contcor IS INITIAL AND sy-subrc EQ 0.
itab_zyglt209-bcofav = /pws/zygle209-bcofav.
itab_zyglt209-mandt = sy-mandt.
MODIFY itab_zyglt209 INDEX 1.
...
...
ENDCASE.
ENDIF.
IF NOT /pws/zycbt031-bukrs IS INITIAL AND
NOT /pws/zycbt031-dtboleto IS INITIAL.
i_belnr = v_valor.
i_bukrs = /pws/zycbt031-bukrs.
IF /pws/zycbe118-frpagto = 'C' AND
v_campo EQ '/PWS/ZYCBE118-BELNRDESP'.
v_data = wa_zycbt118-dtincl.
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_0101
SELECT SINGLE * FROM /pws/zycbt134 INTO /pws/zycbt134
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
SELECT *
FROM /pws/zycbt134
up to 1 rows
INTO /pws/zycbt134
* << Fim da inclusão
WHERE nrseq = /pws/zycbt031-nrseq.
* >> Início da inclusão: MODULE USER_COMMAND_0101
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
v_data = /pws/zycbt134-dtlanc.
ELSE.
v_data = /pws/zycbe118-dtpagto.
ENDIF.
ENDIF.
...
...
EXPORTING
date = v_data
version = v_periv
IMPORTING
year = i_gjahr
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* >> Início da inclusão: MODULE USER_COMMAND_0101
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF sy-subrc NE 0.
ENDIF.
SET PARAMETER ID 'BUK' FIELD i_bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD i_gjahr.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105O01
...
button = 'SPEC'
IMPORTING
visivel = v_visivel
tcode = v_tcodebotao.
IF v_visivel IS INITIAL.
itab_pf_status-fcode = 'SPEC'.
APPEND itab_pf_status.
ENDIF.
SET PF-STATUS '0100' EXCLUDING itab_pf_status.
REFRESH itab_pf_status.
* >> Início da exclusão: MODULE STATUS_0100
SELECT SINGLE tpdesp ftipo txtdesc
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0100
SELECT tpdesp ftipo txtdesc
FROM /pws/zycbt015
up to 1 rows
* << Fim da inclusão
INTO (/pws/zycbt015-tpdesp,/pws/zycbt015-ftipo,
/pws/zycbt015-txtdesc)
* >> Início da exclusão: MODULE STATUS_0100
FROM /pws/zycbt015
* << Fim da exclusão
WHERE tpdesp = /pws/zycbe118-tpdesp
AND ftipo = /pws/zycbe118-codmod.
* >> Início da inclusão: MODULE STATUS_0100
endselect.
* << Fim da inclusão
v_tipo = /pws/zycbe118-codmod.
IF sy-subrc EQ 0.
v_descricao = /pws/zycbt015-txtdesc.
ELSE.
IF NOT v_tipo IS INITIAL.
IF v_tipo EQ 'I'.
MESSAGE s276.
CLEAR v_descricao.
ELSEIF v_tipo EQ 'E'.
MESSAGE s308.
...
...
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
PERFORM texto_informativo.
ENDMODULE.
MODULE load_data OUTPUT.
IF v_nrseq IS INITIAL.
CLEAR /pws/zycbt007.
IF /pws/zycbe118 IS INITIAL.
* >> Início da exclusão: MODULE LOAD_DATA
SELECT SINGLE empresa
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
SELECT empresa
* << Fim da inclusão
FROM /pws/zyglt364
* >> Início da inclusão: MODULE LOAD_DATA
up to 1 rows
* << Fim da inclusão
INTO /pws/zyglt364-empresa
WHERE usuario EQ sy-uname.
* >> Início da inclusão: MODULE LOAD_DATA
endselect.
* << Fim da inclusão
SELECT SINGLE bukrs gsber j_1bbranch werks
...
...
v_empresa,
v_divisao,
v_txtinf,
v_werks,
v_codmod.
IMPORT v_assoc v_numero v_empresa v_divisao v_txtinf v_codmod v_werks
v_remessa FROM MEMORY ID '001'.
SELECT * FROM /pws/zycbt118
INTO TABLE itab_zycbt118
WHERE codmodul = v_assoc
* >> Início da exclusão: MODULE LOAD_DATA_0001
AND nrref = v_numero.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_0001
AND nrref = v_numero."#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
LOOP AT itab_zycbt118.
MOVE: itab_zycbt118-nrref TO /pws/zycbe118-nrref,
itab_zycbt118-j_1bbranch TO
/pws/zycbe118-j_1bbranch,
itab_zycbt118-werks TO /pws/zycbe118-werks,
itab_zycbt118-bukrs TO /pws/zycbe118-bukrs,
itab_zycbt118-gsber TO /pws/zycbe118-gsber,
itab_zycbt118-nrseq TO /pws/zycbe118-nrseq,
itab_zycbt118-nrdesp TO /pws/zycbe118-nrdesp,
...
...
IF sy-dynnr EQ '0102' .
v_cod_grupo = 'CCO'.
ELSEIF sy-dynnr EQ '0103'.
v_cod_grupo = 'CCR'.
ENDIF.
SELECT campo flag
FROM /pws/zyglt320
INTO TABLE itab_t320
WHERE programa = sy-repid AND
tela = sy-dynnr AND
* >> Início da exclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo."#EC CI_NOFIRST
* << Fim da inclusão
SORT itab_t320 BY campo.
LOOP AT SCREEN.
itab_nome_campo-nome_campo_tela = screen-name.
APPEND itab_nome_campo.
ENDLOOP.
SORT itab_nome_campo.
LOOP AT itab_t320.
CONCATENATE '.' itab_t320-campo '.' INTO v_comp.
SEARCH itab_nome_campo FOR v_comp STARTING AT 1.
IF sy-subrc EQ 0.
...
...
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
* >> Início da inclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error."#EC *
* << Fim da inclusã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
* >> Início da inclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error."#EC *
* << Fim da inclusã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/MZYCB105TOP
...
DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.
TABLES:
/pws/zyglt364,
/pws/zyglt214,
/pws/zycbt011,
/pws/zycbt031,
/pws/zycbt134,
/pws/zycbt039,
/pws/zycbt007,
/pws/zycbt015,
* >> Início da exclusão:
/pws/zycbt064,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt064,"#EC *
* << Fim da inclusão
/pws/zyglt209,
/pws/zygle209,
/pws/zyglt009,
/pws/zyglt340,
/pws/zyglt343,
rm06b,
t16fe,
bkpf,
tcurt,
t001w,
j_1bbranch,
adrc.
CONTROLS: ts_despesas TYPE TABSTRIP.
INCLUDE /pws/zygli101.
* >> Início da exclusão:
DATA v_tela_help LIKE sy-dynnr VALUE '0052'.
* << Fim da exclusão
* >> Início da inclusão:
DATA v_tela_help LIKE sy-dynnr VALUE '0052'."#EC NEEDED
* << Fim da inclusão
DATA:
wa_zycbt031a LIKE /pws/zycbe031,
wa_zycbt064a LIKE /pws/zycbe064.
DATA: BEGIN OF itab_result OCCURS 0.
INCLUDE STRUCTURE ddshretval.
DATA: END OF itab_result.
DATA: BEGIN OF itab_pf_status OCCURS 10,
fcode LIKE rsmpe-func,
END OF itab_pf_status.
DATA: BEGIN OF itab_zyglt209 OCCURS 0.
...
...
DATA: BEGIN OF itab_zycbt034_est OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt034.
DATA: END OF itab_zycbt034_est.
DATA: BEGIN OF itab_zyglt321 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt321.
DATA: END OF itab_zyglt321.
DATA: BEGIN OF itab_modo OCCURS 0.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
DATA: itab_zycbt032 LIKE /pws/zycbt032 OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão:
DATA: BEGIN OF itab_thead OCCURS 50.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_thead OCCURS 50."#EC NEEDED
* << Fim da inclusão
INCLUDE STRUCTURE thead.
DATA: END OF itab_thead.
DATA: BEGIN OF itab_tline OCCURS 50.
INCLUDE STRUCTURE tline.
DATA: END OF itab_tline.
DATA: BEGIN OF it_erro OCCURS 0,
nrseq LIKE /pws/zycbt118-nrseq,
msg(100) TYPE c,
END OF it_erro.
DATA: BEGIN OF itab_zyglt316 OCCURS 10.
...
...
v_erro_fbra(1) TYPE c,
v_lock VALUE 0,
norma LIKE /pws/zyglt214-norma,
v_display,
v_ano LIKE t009b-bdatj,
v_area LIKE /pws/zycbt119-cod_area,
v_txest LIKE /pws/zycbe033-kursf,
v_syrepid LIKE sy-repid,
v_sydynnr LIKE sy-dynnr,
v_visivel LIKE /pws/zyglt319-visivel,
* >> Início da exclusão:
v_tcodebotao LIKE /pws/zyglt319-tcode,
* << Fim da exclusão
* >> Início da inclusão:
v_tcodebotao LIKE /pws/zyglt319-tcode,"#EC NEEDED
* << Fim da inclusão
erro_bi(1) TYPE c,
v_ms(5) TYPE c,
v_flag TYPE c,
v_nome_campo(35) TYPE c,
v_comp(35) TYPE c,
v_cod_grupo LIKE /pws/zyglt320-cod_grupo,
wa_zycbe118_aux LIKE /pws/zycbe118,
e_subrc LIKE sy-subrc.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105X01
Tables: /pws/zycbt118,
/pws/zycbe118.
* >> Início da exclusão:
DATA: BEGIN OF COMMON PART c.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF COMMON PART c."#EC PART_OK
* << Fim da inclusão
data : ok_code LIKE sy-ucomm.
DATA: wa_zycbt118 LIKE /pws/zycbe118.
DATA: BEGIN OF itab_zycbt118 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt118.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycbt118.
DATA: itab_zycbe033 LIKE /pws/zycbe033 OCCURS 0 WITH HEADER LINE.
DATA: END OF COMMON PART.