CE PLUS - Nota 005836
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 06/02/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:27:12
Descrição da Nota: CODE INSPECTOR E VERIFICAÇÃO AMPLIADA PROGRAMA CAMBIO
Sintoma
performance e sintaxe
Solução
code inspector e verificação ampliada
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05836 Data: 06/02/2008 Hora: 11:51:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05836
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 E VERIFICAÇÃO AMPLIADA PROGRAMA CAMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR E VERIFICAÇÃO AMPLIADA PROGRAMA CAMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB100F01
REPS /PWS/MZYCB100I01
REPS /PWS/MZYCB100TOP
REPS /PWS/MZYCB102F01
REPS /PWS/MZYCB102O01
REPS /PWS/MZYCB102TOP
REPS /PWS/MZYCB102X01
REPS /PWS/MZYCB114F01
REPS /PWS/MZYCB114O01
REPS /PWS/MZYCB114TOP
REPS /PWS/MZYCB114X01
REPS /PWS/MZYCM101F01
REPS /PWS/MZYCM101I01
REPS /PWS/MZYCM101O01
REPS /PWS/MZYCM101TOP
REPS /PWS/MZYCM101X01
REPT /PWS/SAPMZYCB102
REPT /PWS/SAPMZYCB114
REPT /PWS/SAPMZYCM101
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB100F01
FORM carrega_zycbt109.
IF ok_code NE 'ENTE'.
SELECT * FROM /pws/zycbt109 INTO TABLE itab_zycbt109
WHERE bukrs EQ /pws/zycbe108-bukrs
AND belnr EQ /pws/zycbe108-belnr
AND gjahr EQ /pws/zycbe108-gjahr.
ENDIF.
ENDFORM.
FORM inicializa_pbo.
* >> Início da exclusão: FORM INICIALIZA_PBO
REFRESH: itab_zycbt108, itab_zycbt109, itab_zycbt115.
* << Fim da exclusão
* >> Início da inclusão: FORM INICIALIZA_PBO
REFRESH:
itab_zycbt109,
itab_zycbt115.
* << Fim da inclusão
ENDFORM.
FORM inicializa_pai.
CLEAR: /pws/zycbe109, /pws/zycbe115.
ENDFORM.
FORM exibe_zycbt109.
MOVE itab_zycbt109-buzei TO /pws/zycbe109-buzei.
MOVE itab_zycbt109-matnr TO /pws/zycbe109-matnr.
MOVE itab_zycbt109-txz01 TO /pws/zycbe109-txz01.
MOVE itab_zycbt109-menge TO /pws/zycbe109-menge.
MOVE itab_zycbt109-meins TO /pws/zycbe109-meins.
...
...
MOVE itab_zycbt109-gsber TO /pws/zycbe109-gsber.
MOVE itab_zycbt109-ncm TO /pws/zycbe109-ncm.
ENDFORM.
FORM carrega_zycbt108.
SELECT bukrs UP TO 1 ROWS FROM /pws/zycbt007 INTO /pws/zycbt007-bukrs
WHERE bukrs EQ /pws/zycbe108-bukrs.
ENDSELECT.
v_bukrs = /pws/zycbe108-bukrs.
v_belnr = /pws/zycbe108-belnr.
v_gjahr = /pws/zycbe108-gjahr.
* >> Início da exclusão: FORM CARREGA_ZYCBT108
SELECT SINGLE * FROM /pws/zycbt108
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_ZYCBT108
SELECT * FROM /pws/zycbt108
up to 1 rows
* << Fim da inclusão
WHERE bukrs EQ v_bukrs
AND belnr EQ v_belnr
AND gjahr EQ v_gjahr.
* >> Início da inclusão: FORM CARREGA_ZYCBT108
endselect.
* << Fim da inclusão
MOVE /pws/zycbt108 TO /pws/zycbe108.
MOVE ' ' TO ok_code.
ENDFORM.
FORM executa_okcode.
...
...
CALL SCREEN 0200 STARTING AT 5 5 ENDING AT 70 15.
ELSE.
CALL SCREEN 0300 STARTING AT 5 5 ENDING AT 70 15.
ENDIF.
WHEN 'SAVE'.
PERFORM salvar_dados.
WHEN 'SPEC'.
IF NOT v_tcodebotao IS INITIAL.
CALL TRANSACTION v_tcodebotao.
ELSE.
* >> Início da exclusão: FORM EXECUTA_OKCODE
CALL CUSTOMER-FUNCTION '001'.
* << Fim da exclusão
ENDIF.
ENDCASE.
ENDFORM.
FORM altera_dados.
IF ok_code EQ 'SIM'.
PERFORM salvar_dados.
ENDIF.
ok_code = 'CHANGE'. v_flag = '0'.
LEAVE TO SCREEN '0000'.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB100I01
...
ENDMODULE.
MODULE calcula_vencimento INPUT.
DATA:
v_data LIKE /pws/zycbt108-dtvencto.
IF /pws/zycbe108-dtemb EQ '00000000'.
/pws/zycbe108-dtvencto = space.
ENDIF.
IF NOT /pws/zycbe108-zterm IS INITIAL.
IF /pws/zycbe108-dtemb NE '00000000' AND
( /pws/zycbe108-dtemb NE space ).
* >> Início da exclusão: MODULE CALCULA_VENCIMENTO
SELECT SINGLE ztag1 INTO t052-ztag1
* << Fim da exclusão
* >> Início da inclusão: MODULE CALCULA_VENCIMENTO
SELECT ztag1
* << Fim da inclusão
FROM t052
* >> Início da inclusão: MODULE CALCULA_VENCIMENTO
up to 1 rows
INTO t052-ztag1
* << Fim da inclusão
WHERE zterm EQ /pws/zycbe108-zterm.
* >> Início da inclusão: MODULE CALCULA_VENCIMENTO
endselect.
* << Fim da inclusão
v_data = /pws/zycbe108-dtemb.
v_data = v_data + t052-ztag1.
/pws/zycbe108-dtvencto = v_data.
ENDIF.
ENDIF.
ENDMODULE.
* >> Início da exclusão: MODULE CONSISTE_EMBARQUE
MODULE consiste_embarque INPUT.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_EMBARQUE
MODULE consiste_embarque INPUT."#EC *
* << Fim da inclusão
IF NOT /pws/zycbe108-dtemb IS INITIAL.
IF /pws/zycbe108-dtemb < /pws/zycbe108-bldat.
MESSAGE i170.
CLEAR /pws/zycbe108-dtemb.
ENDIF.
ENDIF.
ENDMODULE.
MODULE consiste_texto INPUT.
IF /pws/zycbe108-ftxt = 'X'.
IF /pws/zycbe108-txtinf IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB100TOP
PROGRAM /pws/sapmzycb020 MESSAGE-ID /pws/zycmm.
TABLES:
* >> Início da exclusão:
/pws/zycbt007,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt007,"#EC NEEDED
* << Fim da inclusão
/pws/zycbt108,
/pws/zycbe108,
* >> Início da exclusão:
/pws/zycbt109,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt109, "#EC *
* << Fim da inclusão
/pws/zycbe109,
/pws/zycbt110,
/pws/zycbe110,
/pws/zycbt115,
/pws/zycbe115,
t052.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt108 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt108.
DATA: END OF itab_zycbt108.
* << Fim da exclusão
DATA: BEGIN OF itab_zycbt109 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe109.
DATA: END OF itab_zycbt109.
DATA: BEGIN OF itab_zycbt115 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt115.
DATA: END OF itab_zycbt115.
DATA: BEGIN OF itab_pf_status OCCURS 10,
fcode LIKE rsmpe-func,
END OF itab_pf_status.
CONTROLS:
ts_contr TYPE TABSTRIP,
tc_itens TYPE TABLEVIEW USING SCREEN '0102',
tc_rof TYPE TABLEVIEW USING SCREEN '0103'.
DATA:
ok_code LIKE sy-ucomm,
v_flag TYPE c VALUE '0',
* >> Início da exclusão:
v_tabs_diff TYPE i,
v_lines TYPE i,
* << Fim da exclusão
v_sel TYPE c,
v_bukrs LIKE /pws/zycbt108-bukrs,
v_belnr LIKE /pws/zycbt108-belnr,
v_gjahr LIKE /pws/zycbt108-gjahr,
v_campo(20),
v_valor(20),
i_belnr LIKE bkpf-belnr,
i_bukrs LIKE bkpf-bukrs,
i_gjahr LIKE bkpf-gjahr,
v_syrepid LIKE sy-repid,
v_sydynnr LIKE sy-dynnr,
v_visivel LIKE /pws/zyglt319-visivel,
v_tcodebotao LIKE /pws/zyglt319-tcode.
DATA:
* >> Início da exclusão:
i_looplines TYPE i,
i_looplines2 TYPE i.
* << Fim da exclusão
* >> Início da inclusão:
i_looplines TYPE i,"#EC NEEDED
i_looplines2 TYPE i."#EC NEEDED
* << Fim da inclusão
DATA:
wa_cols TYPE cxtab_column.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB102F01
FORM administrar_processo.
* >> Início da exclusão: FORM ADMINISTRAR_PROCESSO
DATA: e_subrc LIKE sy-subrc,
e_exec_okcode.
* << Fim da exclusão
* >> Início da inclusão: FORM ADMINISTRAR_PROCESSO
DATA: e_subrc LIKE sy-subrc.
* << Fim da inclusão
* >> Início da exclusão: FORM ADMINISTRAR_PROCESSO
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.
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.
READ TABLE itab_zyglt100 WITH KEY zexit = 'CRE001' 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.
...
...
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 change_status.
CLEAR v_answer.
IF v_lock = '0'.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD '/PWS/ZYCB102_A'.
IF sy-subrc NE 0.
MESSAGE e261(sf) WITH '/PWS/ZYCB102_A'.
ELSE.
PERFORM lock_record.
v_status_s = 1.
...
...
ENDCASE.
ENDIF.
ENDFORM.
FORM calcula_saldo.
FREE itab_zycbt112.
SELECT * FROM /pws/zycbt112
INTO TABLE itab_zycbt112
WHERE nrseq NOT LIKE '5%'
AND flinha EQ 'X'
AND nrlinha EQ /pws/zycbe114-nrlinha
* >> Início da exclusão: FORM CALCULA_SALDO
AND status NE 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_SALDO
AND status NE 'E'. "#EC CI_NOFIELD
* << Fim da inclusão
CLEAR v_valor.
LOOP AT itab_zycbt112.
ADD itab_zycbt112-vlme TO v_valor.
ENDLOOP.
CLEAR /pws/zycbe114-saldo.
/pws/zycbe114-saldo = /pws/zycbe114-vlme - v_valor.
ENDFORM.
FORM consiste_dtlimite.
IF NOT /pws/zycbe114-dtincl IS INITIAL.
IF /pws/zycbe114-dtvencto IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB102O01
...
ELSE.
screen-input = '1'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDMODULE.
MODULE load_data OUTPUT.
IF /pws/zycbe114-nrlinha IS INITIAL.
PERFORM find_nrlinha.
* >> 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
CLEAR /pws/zycbt007.
...
...
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/MZYCB102TOP
PROGRAM /pws/sapmzycb102 MESSAGE-ID /pws/zycmm.
INCLUDE /pws/zygli100.
DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.
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
TABLES:
/pws/zycbt007,
/pws/zycbt132,
lfa1,
* >> Início da exclusão:
/pws/zycbt112,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt112, "#EC *
* << Fim da inclusão
tcurt,
/pws/zyglt364.
DATA: BEGIN OF itab_pf_status OCCURS 10,
fcode LIKE rsmpe-func,
END OF itab_pf_status.
DATA: BEGIN OF itab_zycbt112 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt112.
DATA: END OF itab_zycbt112.
DATA:
* >> Início da exclusão:
v_nrlinview(10) TYPE c,
* << Fim da exclusão
* >> Início da inclusão:
v_nrlinview(10) TYPE c, "#EC NEEDED
* << Fim da inclusão
v_answer,
* >> Início da exclusão:
v_excluido VALUE 'N',
* << Fim da exclusão
* >> Início da inclusão:
v_excluido VALUE 'N',"#EC NEEDED
* << Fim da inclusão
v_status_s,
moeda LIKE tcurt-ltext,
bcodescr LIKE lfa1-name1,
...
...
v_jurosdescr(13),
v_cardescr(7),
v_ctgdescr(15),
v_gardescr(30),
v_nrseq LIKE /pws/zycbt114-nrlinha,
v_lock VALUE 0,
v_salva,
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
v_data LIKE sy-datum,
v_prazo TYPE i,
v_aux.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB102X01
TABLES:
* >> Início da exclusão:
/pws/zycbt114,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt114, "#EC *
* << Fim da inclusão
/pws/zycbe114.
* >> 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: wa_zycbt114 LIKE /pws/zycbe114.
data: ok_code LIKE sy-ucomm.
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB114F01
FORM administrar_processo.
* >> Início da exclusão: FORM ADMINISTRAR_PROCESSO
DATA: e_subrc LIKE sy-subrc,
e_exec_okcode.
* << Fim da exclusão
* >> Início da inclusão: FORM ADMINISTRAR_PROCESSO
DATA: e_subrc LIKE sy-subrc.
* << Fim da inclusão
* >> Início da exclusão: FORM ADMINISTRAR_PROCESSO
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.
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.
READ TABLE itab_zyglt100 WITH KEY zexit = 'REF001' 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.
...
...
/pws/zycbe116-fprincipal = itab_zycbt116-fprincipal.
/pws/zycbe116-dtincl = itab_zycbt116-dtincl.
/pws/zycbe116-belnr = itab_zycbt116-belnr.
MOVE itab_zycbt116 TO itab_zycbt116_ant.
CALL SCREEN '0100'.
ELSE.
MESSAGE w015 WITH text-010.
ENDIF.
ENDFORM.
FORM salvar_dados.
* >> Início da exclusão: FORM SALVAR_DADOS
DATA: v_temp LIKE /pws/zycbe121-nrseq,
v_moeda LIKE /pws/zycbt116-waers,
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
DATA:
* << Fim da inclusão
v_bukrs LIKE /pws/zycbt112-bukrs,
v_gsber LIKE /pws/zycbt112-gsber,
v_codint LIKE /pws/zycbt112-codint,
v_sai(1).
IF /pws/zycbe116-waers = /pws/zycbt007-waersb.
* >> Início da exclusão: FORM SALVAR_DADOS
MESSAGE i126.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
MESSAGE i126."#EC *
* << Fim da inclusão
EXIT.
ENDIF.
IF /pws/zycbe116-dtincl IS INITIAL.
MESSAGE i015 WITH text-031.
EXIT.
ENDIF.
IF /pws/zycbe116-waers IS INITIAL.
MESSAGE i015 WITH text-032.
EXIT.
ENDIF.
...
...
IF v_valortot = /pws/zycbe116-vlrefinan.
IF NOT /pws/zycbe116-nrrefin IS INITIAL.
IF NOT /pws/zycbe116-fprincipal IS INITIAL.
DELETE itab_zycbt116 WHERE vlme IS initial.
LOOP AT itab_zycbt112.
READ TABLE itab_zycbt116
WITH KEY nrfinanc = itab_zycbt112-nrseq.
IF sy-subrc NE 0.
DELETE itab_zycbt112.
ELSE.
* >> Início da exclusão: FORM SALVAR_DADOS
SELECT SINGLE belnr FROM /pws/zycbt113
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
SELECT belnr FROM /pws/zycbt113
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt113-belnr
WHERE nrseq EQ itab_zycbt112-nrseq
AND tpparc EQ 'P'
AND belnr NE ' '.
* >> Início da inclusão: FORM SALVAR_DADOS
endselect.
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE w061 WITH text-018 itab_zycbt112-nrseq
text-019 text-017.
...
...
IF sy-subrc EQ 0.
MESSAGE w061 WITH text-023 text-024 text-025.
ELSE.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
textline1 = text-006
titel = text-005
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM EXCLUIR_DADOS
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_DADOS
OTHERS = 0."#EC *
* << Fim da inclusão
IF v_answer EQ 'J'.
LOOP AT itab_zycbt116 WHERE mark = 'X'.
v_ind_delecao = 'X'.
DELETE itab_zycbt116.
IF sy-subrc NE 0.
v_excluido = 'N'.
ENDIF.
CLEAR itab_zycbt116.
ENDLOOP.
IF v_excluido = 'N'.
...
...
CALL TRANSACTION '/PWS/ZYCB101_A' AND SKIP FIRST SCREEN.
ELSE.
MESSAGE e261(sf) WITH '/PWS/ZYCB101_A'.
ENDIF.
CLEAR: v_nrrefin, v_moeda, v_valorme.
FREE MEMORY ID '001'.
FREE MEMORY ID '002'.
FREE MEMORY ID '003'.
ENDFORM.
FORM popup_message USING value(p_textline1)
* >> Início da exclusão: FORM POPUP_MESSAGE
value(p_title).
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
value(p_title)."#EC *
* << Fim da inclusão
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 change_status.
CLEAR v_answer.
IF v_status_s = '0'.
v_status_s = '1'.
ELSE.
IF itab_zycbt116[] NE itab_zycbt116_ant[].
PERFORM popup_message USING text-011 text-012.
ENDIF.
CASE v_answer.
...
...
MODIFY itab_zycbt116 TRANSPORTING nrrefin
fprincipal
fjuros
fcomissao
dtincl
waers
vlrefinan
belnr.
ENDLOOP.
SELECT * FROM /pws/zycbt112
* >> Início da exclusão: FORM PREENCHE_ITAB_ZYCBT116
INTO TABLE itab_zycbt112.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBT116
INTO TABLE itab_zycbt112."#EC CI_NOWHERE
* << Fim da inclusão
ENDFORM.
FORM atualiza_zycbt112.
READ TABLE itab_zycbt116 INDEX 1.
MOVE: /pws/zycbe116-nrrefin TO /pws/zycbe112-nrseq,
/pws/zycbe116-dtincl TO /pws/zycbe112-dtincl,
/pws/zycbe116-vlrefinan TO /pws/zycbe112-vlme,
/pws/zycbe116-vlrefinan TO /pws/zycbe112-slrefin,
/pws/zycbe116-waers TO /pws/zycbe112-waers,
'I' TO /pws/zycbe112-status,
itab_zycbt116-bukrs TO /pws/zycbe112-bukrs,
...
...
v_moedarefin.
REFRESH:
itab_zycbt116,
itab_zycbt116_aux,
itab_zycbt116_ant,
itab_zycbt113,
itab_zycbt113_aux,
itab_zycbt112.
ENDFORM.
FORM carrega_valor_total.
* >> Início da exclusão: FORM CARREGA_VALOR_TOTAL
CLEAR: v_valortot1,
v_parid,
v_waers,
v_flag.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_VALOR_TOTAL
CLEAR: v_valortot1.
* << Fim da inclusão
REFRESH: itab_zycbt116_tot.
itab_zycbt116_tot[] = itab_zycbt116[].
LOOP AT itab_zycbt116_tot.
ADD itab_zycbt116_tot-vlme TO v_valortot1.
ENDLOOP.
/pws/zycbe116-vlrefinan = v_valortot1.
ENDFORM.
FORM chama_documento.
DATA: nrseq(30),
start_column LIKE sy-scols,
...
...
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.
* >> Início da exclusão: FORM CHAMA_DOCUMENTO
MESSAGE i015 WITH 'Documento já está em visualização!!'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_DOCUMENTO
MESSAGE i015 WITH text-013.
* << Fim da inclusão
PERFORM chama_documento.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB114O01
...
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/MZYCB114TOP
PROGRAM /pws/sapmzycb114 MESSAGE-ID /pws/zycmm.
INCLUDE /pws/zygli100.
DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.
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
INCLUDE /pws/mzycb114x01.
TABLES:
/pws/zycbt007,
* >> Início da exclusão:
/pws/zycbt112,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt112,"#EC NEEDED
* << Fim da inclusão
/pws/zycbe112,
...
...
slrefin LIKE /pws/zycbt112-slrefin,
END OF itab_zycbt113_aux.
DATA:
v_campo(50) TYPE c,
v_valor(10) TYPE n,
v_nrseq LIKE /pws/zycbe116-nrrefin,
v_status_s,
v_msg(100),
v_answer,
v_index TYPE i,
* >> Início da exclusão:
mark,
* << Fim da exclusão
v_ind_delecao,
v_flag_moeda,
v_valortot LIKE /pws/zycbt112-vlme,
v_moedarefin LIKE /pws/zycbt116-waers,
* >> Início da exclusão:
v_flag(3) TYPE c,
v_parid LIKE /pws/zycbt116-parid,
v_waers LIKE /pws/zycbt116-waers,
* << Fim da exclusão
v_valortot1 LIKE /pws/zycbt112-vlme,
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
CONTROLS: tc_finan TYPE TABLEVIEW USING SCREEN '0100'.
DATA: wa_cols TYPE cxtab_column.
SELECTION-SCREEN BEGIN OF SCREEN 0300.
SELECT-OPTIONS: so_nrseq FOR /pws/zycbe112-nrseq MATCHCODE OBJECT
/PWS/ZYCBA121,
so_banco FOR /pws/zycbe112-bcofinan,
so_dtven FOR /pws/zycbe112-dtvencto,
so_waers FOR /pws/zycbe112-waers.
SELECTION-SCREEN END OF SCREEN 0300.
AT SELECTION-SCREEN OUTPUT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB114X01
TABLES:
/pws/zycbt116,
/pws/zycbe116.
* >> 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: BEGIN OF itab_zycbt116 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt116.
DATA: mark(1).
DATA: END OF itab_zycbt116.
data : ok_code LIKE sy-ucomm.
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101F01
FORM find_nrseqc.
DATA: v_count(8) TYPE n,
v_ano(3).
CONCATENATE '%' sy-datum+2(2) INTO v_ano.
SELECT MAX( nrseq ) INTO (v_nrseqc)
FROM /pws/zycbt112
WHERE nrseq < text-118
* >> Início da exclusão: FORM FIND_NRSEQC
AND nrseq LIKE v_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM FIND_NRSEQC
AND nrseq LIKE v_ano."#EC PORTABLE
* << Fim da inclusão
v_count = v_nrseqc+0(8) + 1.
CONCATENATE v_count sy-datum+2(2) INTO /pws/zycbe112-nrseq.
v_nrseqc = /pws/zycbe112-nrseq.
v_nrseqcview = /pws/zycbe112-nrseq.
ENDFORM.
FORM save_changes.
* >> Início da exclusão: FORM SAVE_CHANGES
DATA: v_min LIKE v_soma_vlme,
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_CHANGES
DATA: v_min LIKE v_soma_vlme,"#EC NEEDED
* << Fim da inclusão
wa_mensagem LIKE LINE OF itab_mensagem,
v_comissao(01) TYPE c.
CLEAR wa_zycbt007.
SELECT SINGLE * FROM /pws/zycbt007
INTO wa_zycbt007
WHERE bukrs EQ /pws/zycbe112-bukrs.
v_soma_vlme = 0.
v_min = 5 / 100.
LOOP AT itab_zycbt113c.
v_soma_vlme = v_soma_vlme + itab_zycbt113c-vlme.
...
...
IF sy-subrc = 0 AND /pws/zycbe112-slassoc > 0.
CALL FUNCTION '/PWS/ZYCM_CRIA_ASSOCIACAO'
EXPORTING
v_nrseq = /pws/zycbe112-nrseq
v_modo = v_modo_bi
TABLES
t_faturas = itab_zycmt013
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM SAVE_CHANGES
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ELSE.
IF ( itab_zycbt113c[] EQ itab_zycbt113_ant[] OR
( itab_zycbt113c[] NE itab_zycbt113_ant[] AND
/pws/zycbe112-fpagto_c NE 'L' AND
wa_zycbt112-fpagto_c NE 'L' ) ) AND
itab_zycmt020[] EQ itab_zycmt020_cp[] AND
sy-tcode EQ '/PWS/ZYCB101_A' AND
v_relevante IS INITIAL AND
v_msg_ IS INITIAL.
MESSAGE i017.
...
...
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'Y'
diagnosetext1 = text-001
diagnosetext2 = text-002
textline1 = text-003
titel = text-004
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM POPUP_MESSAGE_ZYCBT113
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE_ZYCBT113
OTHERS = 0."#EC *
* << Fim da inclusão
ENDFORM.
FORM refresh_itab_zycbt113p.
CASE sy-dynnr.
WHEN '0102'.
itab_zycbt113p-nrfinanc = /pws/zycbe112-nrfinanc.
WHEN '0103'.
itab_zycbt113j-nrfinanc = /pws/zycbe112-nrfinanc.
WHEN '0104'.
itab_zycbt113c-nrfinanc = /pws/zycbe112-nrfinanc.
WHEN '0105'.
...
...
v_countlinej = v_lines + 1.
itab_zycbt113c-nrseq = /pws/zycbe112-nrseq.
itab_zycbt113c-nrparc = /pws/zycbe113-nrparc = v_countlinej.
itab_zycbt113c-tpparc = 'C'.
itab_zycbt113c-nrfinanc = /pws/zycbe113-nrfinanc.
APPEND itab_zycbt113c.
ENDIF.
READ TABLE itab_zycbt113c WITH KEY nrseq = /pws/zycbe112-nrseq
nrparc = /pws/zycbe113-nrparc.
IF sy-subrc = 0.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT113C
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT113C
SELECT *
FROM /pws/zycbt064
up to 1 rows
* << Fim da inclusão
WHERE nrchave EQ itab_zycbt113c-nrseq
AND tpparc EQ itab_zycbt113c-tpparc
AND nrparc EQ itab_zycbt113c-nrparc
AND mdcorresp EQ 'IF'.
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT113C
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT113C
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT113C
SELECT * FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
WHERE nrseq = /pws/zycbt064-nrboleto.
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT113C
endselect.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT113C
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT113C
SELECT *
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
WHERE nrcorresp = itab_zycbt113c-nrseq
AND tpparc = itab_zycbt113c-tpparc
AND nrparc = itab_zycbt113c-nrparc
AND mdcorresp = 'IF'.
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT113C
endselect.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
MOVE mark TO itab_zycbt113c-mark.
...
...
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
ENDIF.
MODIFY /pws/zycbt112 FROM /pws/zycbe112.
IF wa_zycbt007-cfm = 'X'.
PERFORM monta_log_cfm USING /pws/zycbe112
'/PWS/ZYCBT112'
* >> Início da exclusão: FORM SAVE_ZYCBT112
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT112
CHANGING wa_log."#EC *
* << Fim da inclusão
IF wa_zycbt112_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = /pws/zycbt113-nrseq
AND tpparc = /pws/zycbt113-tpparc
AND nrparc = /pws/zycbt113-nrparc.
ENDIF.
MODIFY /pws/zycbt113.
IF wa_zycbt007-cfm = 'X'.
PERFORM monta_log_cfm USING /pws/zycbt113
'/PWS/ZYCBT113'
* >> Início da exclusão: FORM SAVE_ZYCBT113
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113
CHANGING wa_log."#EC *
* << Fim da inclusão
IF wa_zycbt113_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = /pws/zycbt113-nrseq
AND tpparc = /pws/zycbt113-tpparc
AND nrparc = /pws/zycbt113-nrparc.
ENDIF.
MODIFY /pws/zycbt113.
IF wa_zycbt007-cfm = 'X'.
PERFORM monta_log_cfm USING /pws/zycbt113
'/PWS/ZYCBT113'
* >> Início da exclusão: FORM SAVE_ZYCBT113
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113
CHANGING wa_log."#EC *
* << Fim da inclusão
IF wa_zycbt113_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq EQ /pws/zycbe112-nrseq
AND tpparc EQ 'P'
AND nrparc EQ itab_zycbt113pa-nrparc.
IF sy-subrc EQ 0.
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
* >> Início da exclusão: FORM SAVE_ZYCBT113
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'E'.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt113 WHERE nrseq EQ /pws/zycbe112-nrseq
AND tpparc EQ 'P'
AND nrparc EQ itab_zycbt113pa-nrparc.
ENDIF.
ENDLOOP.
...
...
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq EQ /pws/zycbe112-nrseq
AND tpparc EQ 'J'
AND nrparc EQ itab_zycbt113ja-nrparc.
IF sy-subrc EQ 0.
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
* >> Início da exclusão: FORM SAVE_ZYCBT113
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'E'.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt113 WHERE nrseq EQ /pws/zycbe112-nrseq
AND tpparc EQ 'J'
AND nrparc EQ itab_zycbt113ja-nrparc.
ENDIF.
ENDLOOP.
...
...
AND tpparc EQ 'P'.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq EQ /pws/zycbe112-nrseq
AND nrparc EQ itab_zycbt113p-nrparc
AND tpparc EQ 'P'.
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT112
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem TO itab_mensagem.
ENDLOOP.
...
...
ENDIF.
/pws/zycbt112-status = 'I'.
MODIFY /pws/zycbt112.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbt112-nrseq.
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT112
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
PERFORM fill_date1_f48.
ENDFORM.
FORM clear_date_batch.
CLEAR:
itab_zycbt034,
itab_zycbe033,
...
...
SEPARATED BY space.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = v_mensagem
textline2 = text-227
titel = text-228
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM FILL_DATE1_F48
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F48
OTHERS = 0.
* << Fim da inclusão
IF v_answer EQ 'J'.
/pws/zycbe112-dtcont = sy-datum.
UPDATE /pws/zycbt112
SET dtcont = /pws/zycbe112-dtcont
WHERE nrseq EQ /pws/zycbe112-nrseq.
ELSE.
EXIT.
ENDIF.
ELSE.
PERFORM periodo_fecham_mensal.
...
...
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 FILL_DATE1_F48
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'FIN002' 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 okcode
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
ENDIF.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = v_tcode
tabela = text-008
cpochv = /pws/zycbe112-nrseq
* >> Início da exclusão: FORM FILL_DATE1_F48
tpmsg = 'S'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F48
tpmsg = 'S'."#EC *
* << Fim da inclusão
IF sy-subrc = 0.
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-058
itab_zycbt032-msg
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem TO itab_mensagem.
/pws/zycbe112-statusp = text-007.
itab_zycbt113p-belnr = itab_zycbt032-belnr.
itab_zycbt113p-belnr_ori = itab_zycbt032-belnr.
...
...
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = itab_zycbt116-nrfinanc
AND tpparc = itab_zycbt116-tpparc
AND nrparc = itab_zycbt116-nrparc
AND dtpagto = itab_zycbe033-budat.
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
* >> Início da exclusão: FORM GRAVA_DATA_PAGAMENTO
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DATA_PAGAMENTO
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ENDLOOP.
ENDFORM.
FORM verify_null_field USING value(p_field)
value(p_fieldname)
* >> Início da exclusão: FORM VERIFY_NULL_FIELD
value(p_description).
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_NULL_FIELD
value(p_description)."#EC *
* << Fim da inclusão
IF p_field IS INITIAL.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
APPEND itab_zycbt034.
ENDIF.
ENDFORM.
FORM popup_message USING value(p_textline1)
* >> Início da exclusão: FORM POPUP_MESSAGE
value(p_titel).
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
value(p_titel)."#EC *
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = p_textline1
titel = p_titel
IMPORTING
answer = v_answer
EXCEPTIONS
OTHERS = 1.
* >> Início da inclusão: FORM POPUP_MESSAGE
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM obtem_taxa_cambial.
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = /pws/zycbe112-ftaxa.
CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'
EXPORTING
i_montante = /pws/zycbe112-sldesem
i_demoeda = /pws/zycbe112-waers
...
...
IMPORTING
e_txc = v_taxacambial
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
OTHERS = 7.
* >> Início da inclusão: FORM OBTEM_TAXA_CAMBIAL
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM busca_campos_linha.
DATA : v_valor LIKE /pws/zycbt112-vlme,
v_nrlinha(10) TYPE n.
v_nrlinha = /pws/zycbe112-nrlinha.
IF NOT /pws/zycbe112-nrlinha IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt114 INTO wa_zycbt114
WHERE nrlinha = v_nrlinha AND status NE 'E'.
IF sy-subrc <> 0 .
* >> Início da exclusão: FORM BUSCA_CAMPOS_LINHA
MESSAGE i254 WITH text-182 /pws/zycbe112-nrlinha text-183.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_CAMPOS_LINHA
MESSAGE i061 WITH text-182 /pws/zycbe112-nrlinha text-183.
* << Fim da inclusão
CLEAR: /pws/zycbe112-nrlinha.
ELSE.
REFRESH itab_zycbt112l.
CLEAR itab_zycbt112l.
SELECT * FROM /pws/zycbt112
INTO TABLE itab_zycbt112l
WHERE nrseq NOT LIKE '5%'
AND flinha EQ 'X'
AND nrlinha EQ /pws/zycbe112-nrlinha
* >> Início da exclusão: FORM BUSCA_CAMPOS_LINHA
AND status NE 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_CAMPOS_LINHA
AND status NE 'E'."#EC CI_NOFIELD
* << Fim da inclusão
DELETE itab_zycbt112l WHERE nrseq = /pws/zycbe112-nrseq.
CLEAR v_valor.
LOOP AT itab_zycbt112l.
ADD itab_zycbt112l-vlme TO v_valor.
ENDLOOP.
wa_zycbt114-saldo = wa_zycbt114-vlme - v_valor.
/pws/zycbe112-bcofinan = wa_zycbt114-bcofinan.
/pws/zycbe112-waers = wa_zycbt114-waers.
/pws/zycbe112-codgarant = wa_zycbt114-codgarant.
IF /pws/zycbe112-dtdesem IS INITIAL.
...
...
ENDFORM.
FORM delete_zycbt112.
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
LOOP AT itab_zycbt113p WHERE ftransf EQ 'C'.
ENDLOOP.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-119 text-120.
EXIT.
ENDIF.
* >> Início da exclusão: FORM DELETE_ZYCBT112
SELECT SINGLE * FROM /pws/zycbt118
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_ZYCBT112
SELECT * FROM /pws/zycbt118
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt118
WHERE nrref EQ /pws/zycbe112-nrseq
AND dtpagto NE '00000000'
AND status NE 'E'
* >> Início da exclusão: FORM DELETE_ZYCBT112
AND codmodul EQ 'FI'.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_ZYCBT112
AND codmodul EQ 'FI'."#EC CI_NOFIELD
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_erro_exclusao = 'X'.
MESSAGE i015 WITH text-035 text-034.
ELSE.
v_answer = 'J'.
SELECT * FROM /pws/zycbt118
INTO TABLE itab_zycbt118
WHERE nrref EQ /pws/zycbe112-nrseq
AND status NE 'E'
* >> Início da exclusão: FORM DELETE_ZYCBT112
AND codmodul EQ 'FI'.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_ZYCBT112
AND codmodul EQ 'FI'."#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
CLEAR v_answer.
PERFORM popup_message USING text-031 text-032.
ENDIF.
IF v_answer = 'J'.
PERFORM verifica_faturas.
IF v_apagar = 'S'.
IF NOT itab_zycbt118[] IS INITIAL.
PERFORM exclui_despesas.
ENDIF.
...
...
CONCATENATE text-239
/pws/zycbe112-nrseq
text-241
INTO wa_mensagem-msg
SEPARATED BY space.
APPEND wa_mensagem TO itab_mensagem.
IF NOT itab_mensagem IS INITIAL.
v_nome_programa = 'Financiamento de Importação'(253).
EXPORT v_nome_programa TO MEMORY ID 'NOME_PROGRAMA'.
EXPORT itab_mensagem TO MEMORY ID 'ITAB_MENSAGEM'.
* >> Início da exclusão: FORM DELETE_ZYCBT112
SUBMIT /pws/zycbr148.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_ZYCBT112
SUBMIT /PWS/ZYCBR148 AND RETURN.
* << Fim da inclusão
REFRESH itab_mensagem.
ENDIF.
LEAVE TO SCREEN 0.
ENDIF.
ENDFORM.
FORM verifica_faturas.
* >> Início da inclusão: FORM VERIFICA_FATURAS
SELECT * FROM /pws/zycbt108
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_FATURAS
SELECT SINGLE * FROM /pws/zycbt108
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_FATURAS
up to 1 rows
* << Fim da inclusão
WHERE nrcorresp EQ v_nrseqc
AND tpdoc EQ 'I'
* >> Início da exclusão: FORM VERIFICA_FATURAS
AND fassoc EQ 'S'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_FATURAS
AND fassoc EQ 'S'."#EC CI_NOFIELD
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
...
...
FORM exclui_financiamento.
/pws/zycbe112-status = 'E'.
MODIFY /pws/zycbt112 FROM /pws/zycbe112.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
* >> Início da exclusão: FORM EXCLUI_FINANCIAMENTO
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'E'.
ENDIF.
* >> Início da exclusão: FORM EXCLUI_FINANCIAMENTO
SELECT SINGLE nrseq FROM /pws/zycmt013
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO
SELECT nrseq
FROM /pws/zycmt013
up to 1 rows
* << Fim da inclusão
INTO v_nrseq_agrp
WHERE nrseq = /pws/zycbe112-nrseq.
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
DELETE FROM /pws/zycmt013
WHERE nrseq = /pws/zycbe112-nrseq.
ENDIF.
DELETE FROM /pws/zycbt115 WHERE nrcorrep = v_nrseqc
...
...
MESSAGE i093.
v_ind_valor = 'X'.
ENDIF.
IF vlprinc <> /pws/zycbe112-vlme.
MESSAGE i186.
v_ind_valor = 'X'.
ENDIF.
ENDFORM.
FORM periodo_contabil
USING value(p_data)
* >> Início da exclusão: FORM PERIODO_CONTABIL
CHANGING p_retorno.
* << Fim da exclusão
* >> Início da inclusão: FORM PERIODO_CONTABIL
CHANGING p_retorno."#EC *
* << Fim da inclusão
DATA: v_periodo TYPE t001b-frpe1,
v_ano TYPE t001b-frye1.
PERFORM determina_periodo
USING p_data
CHANGING v_periodo.
PERFORM determina_ano
USING p_data
CHANGING v_ano.
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
...
...
error_period_acc = 2
OTHERS = 3.
IF sy-subrc NE 0.
p_retorno = 'X'.
ELSE.
CLEAR p_retorno.
ENDIF.
ENDFORM.
FORM determina_periodo
USING value(p_data)
* >> Início da exclusão: FORM DETERMINA_PERIODO
CHANGING p_periodo.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_PERIODO
CHANGING p_periodo."#EC *
* << Fim da inclusão
DATA v_periv(2).
SELECT SINGLE periv
FROM t001
INTO v_periv
WHERE bukrs EQ /pws/zycbe112-bukrs.
CALL FUNCTION 'DETERMINE_PERIOD'
EXPORTING
date = p_data
version = v_periv
IMPORTING
period = p_periodo
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
* >> Início da exclusão: FORM DETERMINA_PERIODO
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_PERIODO
OTHERS = 4."#EC *
* << Fim da inclusão
IF sy-subrc NE 0.
CLEAR p_periodo.
ENDIF.
ENDFORM.
FORM determina_ano
USING value(p_data)
* >> Início da exclusão: FORM DETERMINA_ANO
CHANGING p_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_ANO
CHANGING p_ano."#EC *
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = /pws/zycbe112-bukrs
v_date = p_data
IMPORTING
* >> Início da exclusão: FORM DETERMINA_ANO
v_year = p_ano.
IF sy-subrc NE 0.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_ANO
v_year = p_ano
EXCEPTIONS
others = 0.
IF sy-subrc EQ 0.
else.
* << Fim da inclusão
CLEAR p_ano.
ENDIF.
ENDFORM.
FORM periodo_fecham_mensal.
* >> Início da inclusão: FORM PERIODO_FECHAM_MENSAL
SELECT * FROM /pws/zycbt154
* << Fim da inclusão
* >> Início da exclusão: FORM PERIODO_FECHAM_MENSAL
SELECT SINGLE * FROM /pws/zycbt154
* << Fim da exclusão
* >> Início da inclusão: FORM PERIODO_FECHAM_MENSAL
up to 1 rows
* << Fim da inclusão
WHERE codmod EQ 'I'
AND bukrs EQ /pws/zycbe112-bukrs
AND dtcont > /pws/zycbe112-dtdesem.
* >> Início da inclusão: FORM PERIODO_FECHAM_MENSAL
endselect.
* << Fim da inclusão
ENDFORM.
FORM save_zycbt113_comissao.
DATA: v_nrlines TYPE i,
v_cont_comissao TYPE c,
...
...
MOVE itab_zycbt113c TO /pws/zycbt113.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = /pws/zycbt113-nrseq
AND tpparc = /pws/zycbt113-tpparc
AND nrparc = /pws/zycbt113-nrparc.
PERFORM monta_log_cfm USING /pws/zycbt113
'/PWS/ZYCBT113'
* >> Início da exclusão: FORM SAVE_ZYCBT113_COMISSAO
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113_COMISSAO
CHANGING wa_log."#EC *
* << Fim da inclusão
ENDIF.
MODIFY /pws/zycbt113.
IF wa_zycbt007-cfm = 'X'.
IF wa_zycbt113_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
...
...
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq EQ itab_zycbt113c_exc-nrseq
AND tpparc EQ 'C'
AND nrparc EQ itab_zycbt113c_exc-nrparc.
IF sy-subrc EQ 0.
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
* >> Início da exclusão: FORM SAVE_ZYCBT113_COMISSAO
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113_COMISSAO
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'E'.
ENDIF.
ENDIF.
ENDLOOP.
v_nparc = 0.
LOOP AT itab_zycbt113c.
v_nparc = v_nparc + 1.
itab_zycbt113c-nrparc = v_nparc.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq EQ itab_zycbt113c-nrseq
AND tpparc EQ 'C'
AND nrparc EQ itab_zycbt113c-nrparc.
IF sy-subrc EQ 0.
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
* >> Início da exclusão: FORM SAVE_ZYCBT113_COMISSAO
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113_COMISSAO
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ENDIF.
MODIFY itab_zycbt113c.
ENDLOOP.
IF NOT itab_zycbt113c_exc[] IS INITIAL.
DELETE FROM /pws/zycbt113 WHERE nrseq = /pws/zycbe112-nrseq
AND tpparc = 'C'.
...
...
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 FILL_DATE_F02
if sy-subrc = 0.
else.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM FILL_DATE_F02
ENDIF.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'FIN002' 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 okcode
...
...
MODIFY itab_zycbt113c INDEX v_pos_itab.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = /pws/zycbt113-nrseq
AND tpparc = /pws/zycbt113-tpparc
AND nrparc = /pws/zycbt113-nrparc.
PERFORM monta_log_cfm USING /pws/zycbt113
'/PWS/ZYCBT113'
* >> Início da exclusão: FORM FILL_DATE_F02
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
CHANGING wa_log."#EC *
* << Fim da inclusão
ENDIF.
MODIFY /pws/zycbt113.
IF wa_zycbt007-cfm = 'X'.
IF wa_zycbt113_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
...
...
FORM exibe_mensagem.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
diagnosetext1 = text-060
diagnosetext2 = text-078
textline1 = text-061
titel = text-062
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM EXIBE_MENSAGEM
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_MENSAGEM
OTHERS = 0.
* << Fim da inclusão
ENDFORM.
FORM modify_zycbt112.
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
v_nrseq_ant = /pws/zycbe112-nrseq.
IF sy-tcode EQ '/PWS/ZYCB101_C' AND v_existe NE 'S'.
INSERT INTO /pws/zycbt112 VALUES /pws/zycbe112.
IF wa_zycbt007-cfm = 'X'.
IF sy-subrc EQ 0.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
* >> Início da exclusão: FORM MODIFY_ZYCBT112
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM MODIFY_ZYCBT112
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'C'.
ENDIF.
ENDIF.
WHILE sy-subrc NE 0.
PERFORM busca_sequencial.
INSERT INTO /pws/zycbt112 VALUES /pws/zycbe112.
IF wa_zycbt007-cfm = 'X'.
IF sy-subrc EQ 0.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
* >> Início da exclusão: FORM MODIFY_ZYCBT112
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM MODIFY_ZYCBT112
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'C'.
ENDIF.
ENDIF.
v_existe = 'S'.
ENDWHILE.
IF v_existe = 'S'.
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-064
...
...
APPEND wa_mensagem TO itab_mensagem.
ENDIF.
ELSE.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
PERFORM monta_log_cfm USING /pws/zycbe112
'/PWS/ZYCBT112'
* >> Início da exclusão: FORM MODIFY_ZYCBT112
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM MODIFY_ZYCBT112
CHANGING wa_log."#EC *
* << Fim da inclusão
ENDIF.
MODIFY /pws/zycbt112 FROM /pws/zycbe112.
IF wa_zycbt007-cfm = 'X'.
IF wa_zycbt112_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
...
...
v_existe = 'S'.
ENDFORM.
FORM busca_sequencial.
DATA: v_nrseq LIKE /pws/zycbe112-nrseq,
v_count(8) TYPE n,
v_ano(3).
CONCATENATE '%' sy-datum+2(2) INTO v_ano.
SELECT MAX( nrseq ) INTO (v_nrseq)
FROM /pws/zycbt112
WHERE nrseq < text-118
* >> Início da exclusão: FORM BUSCA_SEQUENCIAL
AND nrseq LIKE v_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_SEQUENCIAL
AND nrseq LIKE v_ano."#EC PORTABLE
* << Fim da inclusão
v_count = v_nrseq+0(8) + 1.
CONCATENATE v_count sy-datum+2(2) INTO /pws/zycbe112-nrseq.
itab_zycbt113c-nrseq = /pws/zycbe112-nrseq.
MODIFY itab_zycbt113c TRANSPORTING nrseq
WHERE nrseq = v_nrseq_ant.
itab_zycbt113p-nrseq = /pws/zycbe112-nrseq.
MODIFY itab_zycbt113p TRANSPORTING nrseq
WHERE nrseq = v_nrseq_ant.
itab_zycbt113j-nrseq = /pws/zycbe112-nrseq.
MODIFY itab_zycbt113j TRANSPORTING nrseq
...
...
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 FILL_DATE_F02_REFIN
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'FIN002' 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 okcode
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
belnr = /pws/zycbe112-belnr
fassoc = 'X'
WHERE nrseq = /pws/zycbe112-nrseq.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
* >> Início da exclusão: FORM FILL_DATE_F02_REFIN
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02_REFIN
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
MOVE-CORRESPONDING /pws/zycbe112 TO wa_zycbt112.
PERFORM grava_data_pagamento.
PERFORM fill_date_f51_refin.
ELSE.
LOOP AT itab_zycbt032.
wa_mensagem-tpmsg = c_erro.
...
...
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbt035-d_newko = itab_zyglt316-konth.
ENDIF.
PERFORM verify_null_field USING itab_zycbt035-d_newko
'D_NEWKO'
text-017.
ENDFORM.
FORM taxa_cambio USING value(p_moeda)
value(p_ctg)
* >> Início da exclusão: FORM TAXA_CAMBIO
CHANGING value(p_taxa).
* << Fim da exclusão
* >> Início da inclusão: FORM TAXA_CAMBIO
CHANGING value(p_taxa)."#EC *
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'
EXPORTING
i_montante = 1
i_demoeda = p_moeda
i_paramoeda =
wa_zycbt007-waersb
i_ctmoeda = p_ctg
i_dtbase = itab_zycbe033-budat
IMPORTING
e_txc = p_taxa
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
OTHERS = 8.
* >> Início da inclusão: FORM TAXA_CAMBIO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM modo_batch_input.
SELECT * FROM /pws/zycbt039
* >> Início da exclusão: FORM MODO_BATCH_INPUT
INTO CORRESPONDING FIELDS OF TABLE itab_modo.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
INTO CORRESPONDING FIELDS OF TABLE itab_modo."#EC CI_NOWHERE
* << Fim da inclusão
SORT itab_modo DESCENDING.
...
...
titel = text-081
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_BATCH_INPUT
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 fill_date_f51_refin.
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
DATA: v_slrefin LIKE /pws/zycbt112-slrefin.
LOOP AT itab_zycbt035 WHERE bschl EQ '40'.
PERFORM clear_date_batch.
CLEAR itab_zycbt036.
REFRESH itab_zycbt036.
CLEAR: v_txc_f51, v_slrefin.
* >> Início da exclusão: FORM FILL_DATE_F51_REFIN
READ TABLE itab_zycbt112 WITH KEY nrseq = itab_zycbt035-d_zuonr.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F51_REFIN
READ TABLE itab_zycbt112 WITH KEY nrseq = itab_zycbt035-d_zuonr."#EC *
* << Fim da inclusão
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = text-083.
itab_zycbe033-tabela = text-008.
itab_zycbe033-cpochv = itab_zycbt112-nrseq.
PERFORM verify_null_field USING /pws/zycbe112-dtdesem
'DTDESEM'
text-011.
itab_zycbe033-budat = /pws/zycbe112-dtdesem.
CASE wa_zycbt007-fdtdoc.
WHEN 'D'.
...
...
sldesem = itab_zycbt112-sldesem
fassoc = 'X'
WHERE nrseq = itab_zycbt112-nrseq.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = itab_zycbt112-nrseq.
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
* >> Início da exclusão: FORM FILL_DATE_F51_REFIN
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F51_REFIN
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
LOOP AT itab_zycbt116 WHERE nrfinanc = itab_zycbt112-nrseq.
UPDATE /pws/zycbt113 SET belnr_p = itab_zycbt032-belnr
WHERE nrseq = itab_zycbt112-nrseq
AND tpparc = 'P'
AND nrparc = itab_zycbt116-nrparc.
ENDLOOP.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = itab_zycbt112-nrseq
AND tpparc = 'P'
AND nrparc = itab_zycbt116-nrparc.
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
* >> Início da exclusão: FORM FILL_DATE_F51_REFIN
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F51_REFIN
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem TO itab_mensagem.
ENDLOOP.
...
...
itab_zycbt036-cpochv = itab_zycbt112-nrseq.
LOOP AT itab_zycbt116 WHERE nrfinanc = itab_zycbt112-nrseq.
CLEAR /pws/zycbt113-belnr.
SELECT SINGLE belnr FROM /pws/zycbt113
INTO /pws/zycbt113-belnr
WHERE nrseq EQ itab_zycbt112-nrseq
AND nrparc EQ itab_zycbt116-nrparc
AND tpparc EQ 'P'.
itab_zycbt036-belnr = /pws/zycbt113-belnr.
CLEAR /pws/zycbt154-dtcont.
* >> Início da exclusão: FORM PREENCHE_DOCUMENTOS
SELECT SINGLE dtcont FROM /pws/zycbt154
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_DOCUMENTOS
SELECT dtcont
FROM /pws/zycbt154
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt154-dtcont
WHERE nrcorresp EQ itab_zycbt112-nrseq
AND tpcontr EQ itab_zycbt116-nrparc+1(2)
AND codmod EQ 'I'
AND codmodul EQ 'T'.
* >> Início da inclusão: FORM PREENCHE_DOCUMENTOS
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE awkey FROM bkpf
...
...
SELECT SINGLE awkey FROM bkpf
INTO itab_zycbt036-awkey
WHERE belnr EQ /pws/zycbe112-belnr
AND bukrs EQ /pws/zycbe112-bukrs
AND gjahr EQ /pws/zycbe112-dtdesem(4).
APPEND itab_zycbt036.
ENDFORM.
FORM calcula_montante.
DATA: v_difer LIKE /pws/zycbt116-vlme,
v_parcela_brl LIKE /pws/zycbt116-vlme,
* >> Início da exclusão: FORM CALCULA_MONTANTE
v_txcbrl LIKE tcurr-ukurs,
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_MONTANTE
v_txcbrl LIKE tcurr-ukurs,"#EC NEEDED
* << Fim da inclusão
v_vlrme LIKE /pws/zycbt116-vlme,
v_msg1(30),
v_msg2(30).
CLEAR: v_difer, v_parcela_brl, v_txcbrl.
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = 'M'.
CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'
EXPORTING
...
...
itab_zycbt118, itab_zycbt113_ant, itab_zycbt113_aux,
itab_zycbt112l, itab_zycbt112, itab_zycbt116,
itab_zycbt116a, itab_totais, itab_totais_aux,
itab_excluidos, itab_zycbt035, itab_zycbt113pa,
itab_zycbt113ja, itab_zycbt113ca, itab_zycmt020,
itab_zycmt020_cp[].
ENDFORM.
FORM exibe_boleto.
CLEAR: wa_zycbt031a,
wa_zycbt064a.
* >> Início da inclusão: FORM EXIBE_BOLETO
SELECT *
* << Fim da inclusão
* >> Início da exclusão: FORM EXIBE_BOLETO
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_BOLETO
FROM /pws/zycbt064
up to 1 rows
* << Fim da inclusão
INTO wa_zycbt064a
WHERE mdcorresp EQ 'IF'
AND nrchave EQ i_boleto-nrseq
AND nrparc EQ i_boleto-nrparc
AND tpparc EQ i_boleto-tpparc.
* >> Início da inclusão: FORM EXIBE_BOLETO
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM EXIBE_BOLETO
SELECT SINGLE * FROM /pws/zycbt031 INTO wa_zycbt031a
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_BOLETO
SELECT *
FROM /pws/zycbt031
up to 1 rows
INTO wa_zycbt031a
* << Fim da inclusão
WHERE mdcorresp EQ wa_zycbt064a-mdcorresp
AND nrcorresp EQ wa_zycbt064a-nrchave
AND nrparc EQ wa_zycbt064a-nrparc
AND tpparc EQ wa_zycbt064a-tpparc.
* >> Início da inclusão: FORM EXIBE_BOLETO
endselect.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM EXIBE_BOLETO
SELECT SINGLE * FROM /pws/zycbt031 INTO wa_zycbt031a
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_BOLETO
SELECT *
FROM /pws/zycbt031
up to 1 rows
INTO wa_zycbt031a
* << Fim da inclusão
WHERE mdcorresp EQ 'IF'
AND nrcorresp EQ i_boleto-nrseq
AND nrparc EQ i_boleto-nrparc
AND tpparc EQ i_boleto-tpparc.
* >> Início da inclusão: FORM EXIBE_BOLETO
endselect.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
AUTHORITY-CHECK OBJECT 'S_TCODE'
...
...
SELECT SINGLE * FROM /pws/zycbt112
INTO /pws/zycbe112
WHERE nrseq = v_nrseqc
AND status <> 'E'.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycbt113 INTO TABLE itab_zycbt113p
WHERE nrseq EQ v_nrseqc
AND status NE 'E'.
LOOP AT itab_zycbt113p WHERE tpparc EQ 'P'.
CLEAR /pws/zycbt116.
* >> Início da exclusão: FORM VERIFICA_BOLETO
SELECT SINGLE * FROM /pws/zycbt116
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_BOLETO
SELECT * FROM /pws/zycbt116
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt116
WHERE nrfinanc EQ itab_zycbt113p-nrseq
* >> Início da exclusão: FORM VERIFICA_BOLETO
AND status NE 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_BOLETO
AND status NE 'E'."#EC CI_NOFIRST
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_prinpg = 'R'.
EXIT.
ENDIF.
IF itab_zycbt113p-belnr_p NE ' ' .
* >> Início da exclusão: FORM VERIFICA_BOLETO
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_BOLETO
SELECT * FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
WHERE nrcorresp = /pws/zycbe112-nrseq
AND mdcorresp = 'IF'
AND tpparc = 'P'
AND nrparc = itab_zycbt113p-nrparc.
* >> Início da inclusão: FORM VERIFICA_BOLETO
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
v_prinpg = 'X'.
EXIT.
...
...
ENDIF.
ENDIF.
ENDFORM.
FORM associar_faturas.
DATA: v_nrseq2 LIKE /pws/zycbt112-nrseq,
v_nrfinanc LIKE /pws/zycbt112-nrfinanc,
v_bukrs LIKE /pws/zycbt112-bukrs,
v_j1bbranch LIKE /pws/zycbt112-j_1bbranch,
v_dtincl LIKE /pws/zycbt112-dtincl,
v_sldesem LIKE /pws/zycbt112-sldesem,
* >> Início da exclusão: FORM ASSOCIAR_FATURAS
v_waers LIKE /pws/zycbt112-waers,
* << Fim da exclusão
v_bcofin LIKE /pws/zycbt112-bcofinan,
v_lifnr LIKE /pws/zycbt112-lifnr,
v_codint LIKE /pws/zycbt112-codint.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = text-074
titel = text-075
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM ASSOCIAR_FATURAS
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM ASSOCIAR_FATURAS
OTHERS = 0.
* << Fim da inclusão
IF v_answer = 'J'.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD '/PWS/ZYCB113_C'.
IF sy-subrc EQ 0.
v_nrseq2 = /pws/zycbe112-nrseq.
EXPORT v_nrseq2 v_nrfinanc v_bukrs v_j1bbranch v_dtincl
v_sldesem v_waers v_bcofin v_lifnr v_codint
TO MEMORY ID '010'.
PERFORM unlock_record.
CALL TRANSACTION '/PWS/ZYCB113_C' AND SKIP FIRST SCREEN.
...
...
CLEAR /pws/zycbe112-belnr.
UPDATE /pws/zycbt112 SET belnr = space
WHERE nrseq EQ /pws/zycbe112-nrseq.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq EQ /pws/zycbe112-nrseq.
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT112_CAB
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112_CAB
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem TO itab_mensagem.
ENDLOOP.
...
...
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 RECONTABILIZA_PARCELAS
if sy-subrc = 0.
else.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM RECONTABILIZA_PARCELAS
ENDIF.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'FIN002' 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 okcode
...
...
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
v_newkof = itab_zyglt316-konth.
ENDIF.
PERFORM verify_null_field USING v_newkof
'C_NEWKO'
text-018.
ENDFORM.
FORM gera_novas_parcelas.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
DATA : v_flag.
* << Fim da exclusão
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
CLEAR : v_flag, v_nrdias.
LOOP AT itab_zycbt113p .
v_tabix = sy-tabix.
PERFORM get_parameters_112.
IF itab_zycbt113p-dtpagto NE ' ' AND
itab_zycbt113p-dtpagto NE '00000000'.
CONTINUE.
ENDIF.
...
...
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 GERA_NOVAS_PARCELAS
if sy-subrc = 0.
else.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
ENDIF.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'FIN002' 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 okcode
...
...
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = ''
textline1 = text-125
textline2 = text-126
titel = text-124
cancel_display = ''
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
OTHERS = 0.
* << Fim da inclusão
IF v_answer EQ 'J'.
UPDATE /pws/zycbt113 SET bloq_juros = 'X'
WHERE nrseq = itab_zycbt112-nrseq
AND ( tpparc = 'J' or tpparc = 'C' ).
ENDIF.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
...
...
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 RECLASSIFICA_FINANC_ORIGINAL
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'FIN002' 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 okcode
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
UPDATE /pws/zycbt112 SET slrefin = wa_zycbt112r-slrefin
sldesem = wa_zycbt112r-sldesem
WHERE nrseq = wa_zycbt112r-nrseq.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = wa_zycbt112r-nrseq.
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
* >> Início da exclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
UPDATE /pws/zycbt113 SET belnr = itab_zycbt032-belnr
belnr_lp = wa_zycbt113-belnr_lp
ftransf = wa_zycbt113-ftransf
belnr_p = space
dtpagto = space
txtinf = space
...
...
AND tpparc = 'P'.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = wa_zycbt112r-nrseq
AND nrparc = wa_zycbt113-nrparc
AND tpparc = 'P'.
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
* >> Início da exclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
wa_mensagem-tpmsg = c_erro.
wa_mensagem-msg = itab_zycbt032-msg.
APPEND wa_mensagem TO itab_mensagem.
ENDLOOP.
...
...
ENDLOOP.
MOVE wa_zycbt112r TO /pws/zycbt112.
MODIFY /pws/zycbt112.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
* >> Início da exclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
CHANGING wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
CHANGING wa_log."#EC *
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
CLEAR /pws/zycbt112.
ENDFORM.
FORM get_parameters_112_refin.
CONCATENATE text-019 wa_zycbt112r-codint INTO v_codeven.
CLEAR wa_zycbt007.
SELECT SINGLE * FROM /pws/zycbt007
...
...
IMPORTING
e_txc = v_taxacambial
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
OTHERS = 7.
* >> Início da inclusão: FORM OBTEM_TAXA_CAMBIAL_REFIN
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM texto_informativo.
CALL FUNCTION '/PWS/ZYCM_FLAG_TEXTO'
EXPORTING
v_bukrs = /pws/zycbe112-bukrs
IMPORTING
v_flag_texto = v_obrig.
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCBE112-TXTINF'.
IF v_obrig EQ 'X' AND
...
...
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-171
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 PROCESSA_BOLETO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_resp EQ '1'.
v_processa = 'X'.
PERFORM gera_boleto.
ELSE.
EXIT.
ENDIF.
ENDFORM.
FORM gera_boleto.
DATA: v_finan TYPE c,
v_dtvencto LIKE /pws/zycbe112-dtvencto.
...
...
v_finan = 'X'.
EXPORT v_finan TO MEMORY ID '001F'.
SET PARAMETER ID '/PWS/ZYCBP361' FIELD i_boleto-nrseq.
SUBMIT /pws/zycbr102 WITH import EQ 'X' WITH data EQ v_dtvencto
AND RETURN.
ENDFORM.
FORM checa_boleto.
CLEAR v_dele.
CASE sy-dynnr.
WHEN '0102'.
* >> Início da inclusão: FORM CHECA_BOLETO
SELECT *
* << Fim da inclusão
* >> Início da exclusão: FORM CHECA_BOLETO
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM CHECA_BOLETO
FROM /pws/zycbt064
up to 1 rows
* << Fim da inclusão
INTO wa_zycbt064a
WHERE mdcorresp EQ 'IF'
AND nrchave EQ itab_zycbt113p-nrseq
AND nrparc EQ itab_zycbt113p-nrparc
AND tpparc EQ itab_zycbt113p-tpparc.
* >> 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 * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM CHECA_BOLETO
SELECT *
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
INTO wa_zycbt031a
WHERE mdcorresp EQ 'IF'
AND nrcorresp EQ itab_zycbt113p-nrseq
AND nrparc EQ itab_zycbt113p-nrparc
AND tpparc EQ itab_zycbt113p-tpparc.
* >> Início da inclusão: FORM CHECA_BOLETO
endselect.
* << Fim da inclusão
ENDIF.
WHEN '0103'.
* >> Início da inclusão: FORM CHECA_BOLETO
SELECT *
* << Fim da inclusão
* >> Início da exclusão: FORM CHECA_BOLETO
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM CHECA_BOLETO
FROM /pws/zycbt064
up to 1 rows
* << Fim da inclusão
INTO wa_zycbt064a
WHERE mdcorresp EQ 'IF'
AND nrchave EQ itab_zycbt113j-nrseq
AND nrparc EQ itab_zycbt113j-nrparc
AND tpparc EQ itab_zycbt113j-tpparc.
* >> 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 * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM CHECA_BOLETO
SELECT *
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
INTO wa_zycbt031a
WHERE mdcorresp EQ 'IF'
AND nrcorresp EQ itab_zycbt113j-nrseq
AND nrparc EQ itab_zycbt113j-nrparc
AND tpparc EQ itab_zycbt113j-tpparc.
* >> Início da inclusão: FORM CHECA_BOLETO
endselect.
* << Fim da inclusão
ENDIF.
WHEN '0104'.
* >> Início da inclusão: FORM CHECA_BOLETO
SELECT *
* << Fim da inclusão
* >> Início da exclusão: FORM CHECA_BOLETO
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM CHECA_BOLETO
FROM /pws/zycbt064
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt064a
WHERE mdcorresp EQ 'IF'
AND nrchave EQ itab_zycbt113c-nrseq
AND nrparc EQ itab_zycbt113c-nrparc
AND tpparc EQ itab_zycbt113c-tpparc.
* >> 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 * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM CHECA_BOLETO
SELECT *
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
INTO wa_zycbt031a
WHERE mdcorresp EQ 'IF'
AND nrcorresp EQ itab_zycbt113c-nrseq
AND nrparc EQ itab_zycbt113c-nrparc
AND tpparc EQ itab_zycbt113c-tpparc.
* >> Início da inclusão: FORM CHECA_BOLETO
endselect.
* << Fim da inclusão
ENDIF.
ENDCASE.
...
...
FORM exclui_dados_bancarios.
IF v_erro_exclusao IS INITIAL.
DELETE FROM /pws/zyglt209 WHERE nrseq = v_nrseqcview
AND mdcorresp = 'IF'
AND codmod = 'F'.
ENDIF.
ENDFORM.
FORM atualiza_nrseq.
DATA: v_nrseq LIKE /pws/zycbe112-nrseq,
v_count(8) TYPE n,
* >> Início da exclusão: FORM ATUALIZA_NRSEQ
v_ano(3).
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_NRSEQ
v_ano(3) .
* << Fim da inclusão
CONCATENATE '%' sy-datum+2(2) INTO v_ano.
SELECT MAX( nrseq ) INTO (v_nrseq)
FROM /pws/zycbt112
WHERE nrseq LIKE v_ano
* >> Início da exclusão: FORM ATUALIZA_NRSEQ
AND nrseq LT text-118.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_NRSEQ
AND nrseq LT text-118."#EC PORTABLE
* << Fim da inclusão
v_count = v_nrseq+0(8) + 1.
CONCATENATE v_count sy-datum+2(2) INTO v_nrseq_aux.
ENDFORM.
FORM finaliza_processo_contabil.
* >> Início da exclusão: FORM FINALIZA_PROCESSO_CONTABIL
DATA : v_flag.
* << Fim da exclusão
DATA:
wa_mensagem LIKE LINE OF itab_mensagem.
SORT itab_zycbt113p BY nrparc DESCENDING.
...
...
itab_zycbt036-cpochv = /pws/zycbe112-nrseq.
itab_zycbt036-belnr = itab_zycbt113p-belnr.
SELECT SINGLE awkey FROM bkpf
INTO itab_zycbt036-awkey
WHERE belnr EQ itab_zycbt113p-belnr
AND bukrs EQ /pws/zycbe112-bukrs
AND gjahr EQ /pws/zycbe112-dtdesem(4).
APPEND itab_zycbt036.
EXIT.
ENDLOOP.
* >> Início da exclusão: FORM FINALIZA_PROCESSO_CONTABIL
CLEAR: v_flag, v_nrdias.
* << Fim da exclusão
* >> Início da inclusão: FORM FINALIZA_PROCESSO_CONTABIL
CLEAR:
v_nrdias.
* << Fim da inclusão
SORT itab_zycbt113p BY nrparc ASCENDING.
LOOP AT itab_zycbt113p WHERE dtpagto EQ ' ' OR
dtpagto EQ '00000000'.
IF itab_zycbt113p-belnr IS INITIAL.
v_vlres = v_vlres + itab_zycbt113p-vlme.
ENDIF.
ENDLOOP.
PERFORM busca_conta_financ.
LOOP AT itab_zycbt113p .
PERFORM get_parameters_112.
...
...
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 FINALIZA_PROCESSO_CONTABIL
if sy-subrc = 0.
else.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM FINALIZA_PROCESSO_CONTABIL
ENDIF.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'FIN002' 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 okcode
...
...
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/CM101'.
itab_thead-tdname = v_nrseqcview.
itab_thead-tdid = 'CM01'.
itab_thead-tdspras = sy-langu.
itab_thead-tdlinesize = '072'.
ENDFORM.
FORM edit_text.
IF v_status_s = '0'.
...
...
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 ativa_pedido.
CLEAR v_pedido.
CALL CUSTOMER-FUNCTION '002'
IMPORTING
v_subrc = v_pedido.
ENDFORM.
FORM verifica_relevantes.
IF v_pedido EQ 'X'.
IF /pws/zycbe112-nrfinanc EQ wa_zycbt112-nrfinanc AND
...
...
v_relevante = 'X'.
ENDIF.
ELSE.
v_relevante = 'X'.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM pega_descricao_dominio USING value(p_objeto)
value(p_valor)
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
CHANGING p_retorno.
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
CHANGING p_retorno."#EC *
* << Fim da inclusão
DATA: wa_dd03l LIKE dd03l.
DATA: BEGIN OF itab_dd07t OCCURS 5.
INCLUDE STRUCTURE dd07t.
DATA: END OF itab_dd07t.
DATA: tablename LIKE dd03l-tabname,
fieldname LIKE dd03l-fieldname.
SPLIT p_objeto AT '-' INTO tablename fieldname.
IF sy-subrc NE 0.
EXIT.
ENDIF.
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
SELECT *
* << Fim da inclusão
FROM dd03l
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
up to 1 rows
* << Fim da inclusão
INTO wa_dd03l
WHERE ( tabname = tablename AND
fieldname = fieldname ).
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT * FROM dd07t
INTO TABLE itab_dd07t
WHERE domname = wa_dd03l-domname AND
ddlanguage = sy-langu(1).
IF sy-subrc = 0.
READ TABLE itab_dd07t WITH KEY domvalue_l = p_valor.
IF sy-subrc EQ 0.
p_retorno = itab_dd07t-ddtext.
ELSE.
LOOP AT itab_dd07t WHERE domvalue_l IS initial.
IF p_valor GE itab_dd07t-domval_ld AND
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
p_valor LE itab_dd07t-domval_hd.
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
p_valor LE itab_dd07t-domval_hd."#EC PORTABLE
* << Fim da inclusão
p_retorno = itab_dd07t-ddtext.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM ver_juros.
LOOP AT itab_zycbt113j.
...
...
IMPORTING
e_txc = v_taxacambial
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
OTHERS = 7.
* >> Início da inclusão: FORM OBTEM_TAXA_CAMBIAL_RFIN
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM exclui_financiamento_assoc_fat.
DATA: v_mensagem(90) TYPE c,
wa_mensagem LIKE LINE OF itab_mensagem,
v_data(10) TYPE c.
PERFORM clear_date_batch.
CLEAR v_erro_bi.
IF NOT /pws/zycbe112-belnr IS INITIAL.
EXIT.
ENDIF.
...
...
SEPARATED BY space.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = v_mensagem
textline2 = text-227
titel = text-228
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
OTHERS = 0.
* << Fim da inclusão
IF v_answer EQ 'J'.
/pws/zycbe112-dtcont = sy-datum.
UPDATE /pws/zycbt112
SET dtcont = /pws/zycbe112-dtcont
WHERE nrseq EQ /pws/zycbe112-nrseq.
ELSE.
EXIT.
ENDIF.
ELSE.
PERFORM periodo_fecham_mensal.
...
...
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 EXCLUI_FINANCIAMENTO_ASSOC_FAT
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'FIN002' 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 okcode
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
IF v_erro_bi IS INITIAL.
PERFORM executa_f51f_estorno.
ENDIF.
IF v_erro_bi IS INITIAL.
PERFORM exclui_financiamento.
PERFORM exclui_dados_bancarios.
IF NOT itab_mensagem IS INITIAL.
v_nome_programa = 'Financiamento de Importação'(253).
EXPORT v_nome_programa TO MEMORY ID 'NOME_PROGRAMA'.
EXPORT itab_mensagem TO MEMORY ID 'ITAB_MENSAGEM'.
* >> Início da exclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
SUBMIT /pws/zycbr148.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
SUBMIT /PWS/ZYCBR148 AND RETURN .
* << Fim da inclusão
REFRESH itab_mensagem.
ENDIF.
LEAVE TO SCREEN 0.
ENDIF.
ENDFORM.
FORM get_parameters_112_estorno.
CONCATENATE text-019 /pws/zycbe112-codint INTO v_codeven.
CLEAR wa_zycbt007.
SELECT SINGLE * FROM /pws/zycbt007
INTO wa_zycbt007
...
...
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 EXECUTA_F51F_ESTORNO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'FIN002' 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 okcode
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
INTO wa_zycbt011
WHERE codeven = v_codeven
AND codmod = text-016
AND bukrs = /pws/zycbe112-bukrs.
REFRESH itab_zyglt321.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'FIN'
AND codeven = v_codeven.
ENDFORM.
* >> Início da exclusão: FORM PREENCHE_DADOS_BATCH
FORM preenche_dados_batch USING p_data.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_DADOS_BATCH
FORM preenche_dados_batch USING p_data like /PWS/ZYCBT113-dtfinal.
* << Fim da inclusão
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb IS INITIAL AND
/pws/zycbe112-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
ENDIF.
WHEN 'XBLNR'.
...
...
INTO itab_zycbe033-d_zuonr.
itab_zycbe033-c_zuonr = itab_zycbe033-d_zuonr.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
ENDIF.
ENDCASE.
ENDLOOP.
ENDFORM.
* >> Início da exclusão: FORM VERIFICA_PAIS_FILIAL
FORM verifica_pais_filial USING p_bukrs
p_brnch.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PAIS_FILIAL
FORM verifica_pais_filial USING p_bukrs like /pws/zycbe112-bukrs
p_brnch like /pws/zycbe112-j_1bbranch.
* << Fim da inclusão
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.
FORM grava_log USING value(p_table)
wa_data
* >> Início da exclusão: FORM GRAVA_LOG
p_oper.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LOG
p_oper."#EC *
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_LOG_TABLE'
EXPORTING
tabname = p_table
oper = p_oper
wa_data = wa_data
progname = sy-cprog
EXCEPTIONS
table_not_found = 1
devclass_not_zy = 2
table_not_supported = 3
commit_error = 4
OTHERS = 5.
* >> Início da inclusão: FORM GRAVA_LOG
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM atualiza_tela_dados_adicionais.
MOVE-CORRESPONDING itab_zycmt022 TO /pws/zycme022.
MOVE itab_zycmt022-mark TO mark.
ENDFORM.
FORM atualiza_itab_dados_adicionais.
READ TABLE itab_zycmt022 INDEX tc_adicionais-current_line.
IF sy-subrc EQ 0.
MOVE-CORRESPONDING /pws/zycme022 TO itab_zycmt022.
MOVE: v_nrseqc TO itab_zycmt022-nrseq,
...
...
MODIFY itab_zycmt023 INDEX tc_agrupar-current_line.
ELSEIF NOT /pws/zycme023-nrcorresp IS INITIAL.
CLEAR: /pws/zycbt117,
/pws/zycbt108.
SELECT SINGLE * FROM /pws/zycbt117
WHERE nrseq = /pws/zycme023-nrcorresp.
IF sy-subrc EQ 0.
PERFORM seleciona_ia.
CLEAR /pws/zycme023-nrpagto.
ENDIF.
* >> Início da exclusão: FORM ATUALIZA_ITAB_AGRUPAR_PROCESSO
SELECT SINGLE * FROM /pws/zycbt108
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ITAB_AGRUPAR_PROCESSO
SELECT *
FROM /pws/zycbt108
up to 1 rows
* << Fim da inclusão
WHERE nrseq_pgfat = /pws/zycme023-nrcorresp.
* >> Início da inclusão: FORM ATUALIZA_ITAB_AGRUPAR_PROCESSO
endselect ."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
PERFORM seleciona_ip.
ENDIF.
IF /pws/zycbt117 IS INITIAL AND
/pws/zycbt108 IS INITIAL.
MESSAGE i061
...
...
ENDLOOP.
ENDFORM.
FORM user_command_0110.
CHECK ts_finan-activetab EQ 'FC_AGR'.
CASE okcode.
WHEN 'DELE'.
IF sy-dynnr EQ '0110'.
LOOP AT itab_zycmt023 WHERE mark EQ 'X'.
CASE itab_zycmt023-mdcorresp.
WHEN 'IP'.
* >> Início da exclusão: FORM USER_COMMAND_0110
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0110
SELECT *
* << Fim da inclusão
FROM /pws/zycbt131
* >> Início da inclusão: FORM USER_COMMAND_0110
up to 1 rows
* << Fim da inclusão
WHERE mdcorresp EQ 'IF' AND
nrseq EQ itab_zycmt023-nrseq AND
belnr EQ itab_zycmt023-nrpagto AND
nrseq_pgfat EQ itab_zycmt023-nrcorresp.
* >> Início da inclusão: FORM USER_COMMAND_0110
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
CLEAR itab_zycmt023-mark.
MODIFY itab_zycmt023.
MESSAGE w061 WITH text-213 text-214 text-215.
ELSE.
MOVE-CORRESPONDING itab_zycmt023 TO itab_zycmt023_aux.
APPEND itab_zycmt023_aux.
ENDIF.
WHEN 'IA'.
MOVE-CORRESPONDING itab_zycmt023 TO itab_zycmt023_aux.
...
...
wa_zycbt117-werks TO /pws/zycme023-werks ,
wa_zycbt117-codint TO /pws/zycme023-codint ,
wa_zycbt117-dtemb TO /pws/zycme023-dtemb ,
'IA' TO itab_zycmt023_saldo-mdcorresp,
/pws/zycbe112-nrseq TO itab_zycmt023_saldo-nrseq ,
wa_zycbt117-nrseq TO itab_zycmt023_saldo-nrcorresp,
wa_zycbt117-slpgant TO itab_zycmt023_saldo-slpg .
APPEND itab_zycmt023_saldo.
ENDFORM.
FORM seleciona_ip.
* >> Início da exclusão: FORM SELECIONA_IP
DATA: wa_zycbt119 LIKE /pws/zycbt119,
itab_zyglt500
TYPE STANDARD TABLE OF /pws/zygle500
WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_IP
DATA: wa_zycbt119 LIKE /pws/zycbt119.
* << Fim da inclusão
SELECT SINGLE *
FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ /pws/zycme023-nrcorresp.
IF sy-subrc EQ 0.
MOVE: 'IP' TO /pws/zycme023-mdcorresp ,
wa_zycbt119-nrpagto TO /pws/zycme023-nrpagto ,
wa_zycbt119-lifnr TO /pws/zycme023-lifnr ,
wa_zycbt119-waers TO /pws/zycme023-waers ,
wa_zycbt119-vlme TO /pws/zycme023-vlme ,
...
...
MOVE: record_tab-string+0(10) TO tdynpread-fieldvalue.
ENDIF.
APPEND tdynpread.
MOVE: '/PWS/ZYCME023-VLFINME' TO tdynpread-fieldname ,
0 TO tdynpread-fieldvalue,
v_line TO tdynpread-stepl .
APPEND tdynpread.
CASE shlp_curr-shlpname.
WHEN '/PWS/ZYCMA027'.
MOVE: '/PWS/ZYCME023-TPPROC' TO tdynpread-fieldname ,
* >> Início da exclusão: FORM CONSISTE_MODULO
'Pagamento Antecipado' TO tdynpread-fieldvalue.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_MODULO
text-044 TO tdynpread-fieldvalue.
* << Fim da inclusão
WHEN '/PWS/ZYCMA028'.
MOVE: '/PWS/ZYCME023-TPPROC' TO tdynpread-fieldname ,
* >> Início da exclusão: FORM CONSISTE_MODULO
'Fatura de Importação' TO tdynpread-fieldvalue.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_MODULO
text-043 TO tdynpread-fieldvalue.
* << Fim da inclusão
ENDCASE.
MOVE v_line TO tdynpread-stepl.
APPEND tdynpread.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-cprog
dynumb = '0110'
TABLES
dynpfields = tdynpread
EXCEPTIONS
OTHERS = 8.
* >> Início da inclusão: FORM CONSISTE_MODULO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
EXIT.
ENDLOOP.
ENDFORM.
FORM valida_paridade.
IF /pws/zycme023-kursf IS INITIAL.
MOVE 1 TO itab_zycmt023-kursf.
ELSE.
MOVE /pws/zycme023-kursf TO itab_zycmt023-kursf.
ENDIF.
ENDFORM.
...
...
ENDFORM.
FORM saldo_financiar.
READ TABLE itab_zycmt023
INDEX tc_agrupar-current_line.
IF sy-subrc EQ 0.
/pws/zycme023-slpg = /pws/zycme023-slpg +
itab_zycmt023-vlfinme - /pws/zycme023-vlfinme.
ENDIF.
ENDFORM.
FORM seleciona_zycit003 USING p_nrpagto
* >> Início da exclusão: FORM SELECIONA_ZYCIT003
CHANGING p_ebeln.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCIT003
CHANGING p_ebeln."#EC *
* << Fim da inclusão
DATA: itab_zycit003
TYPE STANDARD TABLE OF /pws/zycit003
WITH HEADER LINE,
itab_zycit006
TYPE STANDARD TABLE OF /pws/zycit006
WITH HEADER LINE,
itab_zycit093
* >> Início da exclusão: FORM SELECIONA_ZYCIT003
TYPE STANDARD TABLE OF /pws/zycit093
WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCIT003
TYPE STANDARD TABLE OF /pws/zycit093,"#EC *
* << Fim da inclusão
itab_zycit094
* >> Início da exclusão: FORM SELECIONA_ZYCIT003
TYPE STANDARD TABLE OF /pws/zycit094
WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCIT003
TYPE STANDARD TABLE OF /pws/zycit094, "#EC *
* << Fim da inclusão
itab_zycit263
* >> Início da exclusão: FORM SELECIONA_ZYCIT003
TYPE STANDARD TABLE OF /pws/zycit263
WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCIT003
TYPE STANDARD TABLE OF /pws/zycit263 ."#EC *
* << Fim da inclusão
SELECT * FROM /pws/zycit006
INTO TABLE itab_zycit006
WHERE nrseq EQ p_nrpagto.
LOOP AT itab_zycit006.
SELECT * FROM /pws/zycit093
INTO TABLE itab_zycit093
WHERE nrseqce EQ itab_zycit006-nrseqce.
IF itab_zycit006-tpfatura EQ '01'.
SELECT * FROM /pws/zycit263
INTO TABLE itab_zycit263
WHERE nrseq_pgfat EQ itab_zycit006-nrseq_pgfat AND
* >> Início da exclusão: FORM SELECIONA_ZYCIT003
eliminado NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCIT003
eliminado NE 'X'."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycit263[] IS INITIAL.
SELECT * FROM /pws/zycit003
INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_zycit263
WHERE nrseq EQ itab_zycit263-nrseq AND
ebeln EQ itab_zycit263-ebeln AND
ebelp EQ itab_zycit263-ebelp.
ENDIF.
ELSE.
SELECT * FROM /pws/zycit094
...
...
nrseq EQ itab_zycbt131-nrseq AND
nrcorresp EQ itab_zycbt131-nrseq_pgfat AND
nrpagto EQ itab_zycbt131-belnr AND
bukrs EQ itab_zycbt131-bukrs.
ENDLOOP.
IF NOT itab_zycmt023_ip[] IS INITIAL.
SELECT *
FROM /pws/zycbt108
INTO TABLE itab_zycbt108
FOR ALL ENTRIES IN itab_zycmt023_ip
* >> Início da exclusão: FORM ASSOCIA_AGRUPAR_DADOS
WHERE nrseq_pgfat EQ itab_zycmt023_ip-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM ASSOCIA_AGRUPAR_DADOS
WHERE nrseq_pgfat EQ itab_zycmt023_ip-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycmt023_ip.
CLEAR itab_faturas.
MOVE: /pws/zycbe112-nrseq TO itab_faturas-nrseq ,
itab_zycmt023_ip-nrcorresp TO itab_faturas-nrseq_pgfat,
itab_zycmt023_ip-waers TO itab_faturas-waers ,
itab_zycmt023_ip-vlfinme TO itab_faturas-vlme ,
itab_zycmt023_ip-kursf TO itab_faturas-parid .
READ TABLE itab_zycbt108
WITH KEY nrseq_pgfat = itab_zycmt023_ip-nrcorresp.
IF sy-subrc EQ 0.
...
...
IF NOT itab_faturas[] IS INITIAL.
CALL FUNCTION '/PWS/ZYCM_CRIA_ASSOCIACAO'
EXPORTING
v_nrseq = /pws/zycbe112-nrseq
v_modo = v_modo_bi
TABLES
t_faturas = itab_faturas
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM ASSOCIA_AGRUPAR_DADOS
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
v_msg_ = 'X'.
ELSE.
IF itab_zycbt113c[] EQ itab_zycbt113_ant[] AND
sy-tcode EQ '/PWS/ZYCB101_A'.
v_msg_ = 'X'.
MESSAGE i017.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_agrupar_dados.
LOOP AT itab_zycmt023.
IF itab_zycmt023-vlfinme IS INITIAL.
DELETE itab_zycmt023.
MESSAGE i015 WITH text-217 text-218.
ENDIF.
ENDLOOP.
ENDFORM.
* >> Início da exclusão: FORM CALENDARIO
FORM calendario CHANGING v_data_mes.
* << Fim da exclusão
* >> Início da inclusão: FORM CALENDARIO
FORM calendario CHANGING v_data_mes LIKE sy-datum.
* << Fim da inclusão
DATA: v_budat LIKE sy-datum.
CLEAR: v_budat, v_feriado, v_dia_semana.
WHILE v_budat IS INITIAL.
CALL FUNCTION 'HOLIDAY_CHECK_AND_GET_INFO'
EXPORTING
date = v_data_mes
holiday_calendar_id = /pws/zycbt007-hcalidbr
IMPORTING
holiday_found = v_feriado
TABLES
holiday_attributes = itab_thol
EXCEPTIONS
calendar_buffer_not_loadable = 1
date_after_range = 2
date_before_range = 3
date_invalid = 4
holiday_calendar_id_missing = 5
holiday_calendar_not_found = 6
OTHERS = 7.
* >> Início da inclusão: FORM CALENDARIO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_feriado NE 'X'.
CALL FUNCTION '/PWS/ZYCB_DIA_DA_SEMANA'
EXPORTING
datum = v_data_mes
IMPORTING
wotnr = v_dia_semana
EXCEPTIONS
* >> Início da exclusão: FORM CALENDARIO
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM CALENDARIO
OTHERS = 0.
* << Fim da inclusão
IF v_dia_semana = '6' OR ( v_dia_semana = '7' ).
v_feriado = 'X'.
ELSE.
v_feriado = space.
v_budat = v_data_mes.
ENDIF.
ENDIF.
IF v_feriado EQ 'X'.
v_data_mes = v_data_mes + 1.
ENDIF.
...
...
EXPORTING
i_bukrs = /pws/zycbe112-bukrs
i_belnr = wa_zycbt113p-belnr
i_gjahr = wa_zycbt112-dtdesem(4)
TABLES
t_bseg = itab_bseg
EXCEPTIONS
wrong_input = 1
not_found = 2
OTHERS = 3.
* >> Início da inclusão: FORM CONTABILIZA_ITEM
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
LOOP AT itab_bseg WHERE ebeln <> ' '.
itab_processados-ebeln = itab_bseg-ebeln.
itab_processados-ebelp = itab_bseg-ebelp.
itab_processados-wrbtr = itab_bseg-wrbtr.
APPEND itab_processados.
CLEAR itab_processados.
ENDLOOP.
ENDLOOP.
LOOP AT itab_processados INTO itab_processados2.
COLLECT itab_processados2.
...
...
pto_ekpo = itab_ekpo
EXCEPTIONS
err_no_records_found = 1
OTHERS = 2.
IF sy-subrc EQ 0.
DELETE itab_ekpo WHERE loekz NE ' '.
ENDIF.
ENDFORM.
FORM monta_log_cfm USING p_dados
p_tabela
* >> Início da exclusão: FORM MONTA_LOG_CFM
CHANGING p_wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
CHANGING p_wa_log."#EC *
* << Fim da inclusão
DATA: t_prog(72) TYPE c OCCURS 1000 WITH HEADER LINE,
* >> Início da exclusão: FORM MONTA_LOG_CFM
w_prog LIKE trdir-name.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
w_prog LIKE trdir-name,
v_saprl(3) type n,
v_saprl1(2) type n.
* << Fim da inclusão
* >> Início da exclusão: FORM MONTA_LOG_CFM
CLEAR: t_prog, wa_log.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
CLEAR: t_prog, p_wa_log.
* << Fim da inclusão
REFRESH: t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form log using p_dados ' TO t_prog.
APPEND ' p_tabela ' TO t_prog.
APPEND ' CHANGING P_WA_LOG. ' TO t_prog.
* >> Início da inclusão: FORM MONTA_LOG_CFM
v_saprl = sy-saprl(3).
v_saprl1 = sy-saprl(2).
IF v_saprl GE '620' OR v_saprl1 EQ '47'.
* << Fim da inclusão
* >> Início da exclusão: FORM MONTA_LOG_CFM
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
APPEND 'tables: dd03l. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND 'DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-042 TO t_prog.
APPEND text-041 TO t_prog.
APPEND text-040 TO t_prog.
* << Fim da inclusão
APPEND 'data: v_tam type dd03l-leng, ' TO t_prog.
APPEND ' v_valor(50) type c, ' TO t_prog.
APPEND ' v_xstring type xstring. ' TO t_prog.
APPEND 'FIELD-SYMBOLS: <VALOR> TYPE ANY. ' TO t_prog.
APPEND 'do. ' TO t_prog.
APPEND ' ASSIGN COMPONENT SY-INDEX OF STRUCTURE ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' p_dados TO <VALOR>. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-039 TO t_prog.
* << Fim da inclusão
APPEND ' if sy-subrc ne 0. ' TO t_prog.
APPEND ' exit. ' TO t_prog.
APPEND ' endif. ' TO t_prog.
APPEND ' select single * from dd03l ' TO t_prog.
APPEND ' where tabname = p_tabela ' TO t_prog.
APPEND ' and position = sy-index. ' TO t_prog.
MOVE text-451 TO t_prog.
APPEND t_prog.
MOVE text-452 TO t_prog.
APPEND t_prog.
APPEND ' clear v_valor. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' v_valor = <VALOR>. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-038 TO t_prog.
* << Fim da inclusão
MOVE text-453 TO t_prog.
APPEND t_prog.
APPEND ' condense v_valor no-gaps. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' SHIFT v_valor(dd03l-leng) RIGHT ' TO t_prog.
APPEND ' DELETING TRAILING space. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-037 TO t_prog.
APPEND text-036 TO t_prog.
* << Fim da inclusão
MOVE text-454 TO t_prog.
APPEND t_prog.
APPEND ' v_xstring = v_valor. ' TO t_prog.
MOVE text-455 TO t_prog.
APPEND t_prog.
APPEND ' EXPORTING ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' BUFFER = v_xstring ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-030 TO t_prog.
* << Fim da inclusão
APPEND ' TABLES ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' BINARY_TAB = binary_tab. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-025 TO t_prog.
* << Fim da inclusão
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' move binary_tab(dd03l-intlen) to ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-020 TO t_prog.
* << Fim da inclusão
APPEND ' p_wa_log+v_tam(dd03l-intlen). ' TO t_prog.
APPEND ' v_tam = v_tam + dd03l-intlen. ' TO t_prog.
APPEND ' else. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' p_wa_log+v_tam(dd03l-leng) = <VALOR>. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-024 TO t_prog.
* << Fim da inclusão
APPEND ' v_tam = v_tam + dd03l-leng. ' TO t_prog.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101I01
MODULE user_command_0100 INPUT.
CLEAR: v_mdparc, v_erro_bi, v_erro_exclusao.
* >> Início da exclusão: MODULE USER_COMMAND_0100
DATA: e_subrc LIKE sy-subrc,
e_exec_okcode.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
DATA: e_subrc LIKE sy-subrc.
* << Fim da inclusão
* >> Início da exclusão: MODULE USER_COMMAND_0100
CLEAR: r_okcode, e_exec_okcode, v_syrepid.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CLEAR: r_okcode,
v_syrepid.
* << Fim da inclusão
CALL METHOD cl_gui_cfw=>dispatch.
IF NOT r_okcode IS INITIAL.
okcode = r_okcode.
ENDIF.
CLEAR itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
v_syrepid = sy-repid.
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: MODULE USER_COMMAND_0100
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'FIN001' 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 okcode
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
PERFORM exclui_financiamento_assoc_fat.
ELSE.
PERFORM delete_zycbt112.
ENDIF.
ENDIF.
ENDIF.
IF NOT itab_mensagem IS INITIAL.
v_nome_programa = 'Financiamento de Importação'(253).
EXPORT v_nome_programa TO MEMORY ID 'NOME_PROGRAMA'.
EXPORT itab_mensagem TO MEMORY ID 'ITAB_MENSAGEM'.
* >> Início da exclusão: MODULE USER_COMMAND_0100
SUBMIT /PWS/ZYCBR148.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
SUBMIT /PWS/ZYCBR148 AND RETURN.
* << Fim da inclusão
REFRESH itab_mensagem.
ENDIF.
WHEN 'ENTE'.
PERFORM calcula_comissao.
WHEN 'MODO'.
PERFORM modo_batch_input.
WHEN 'AEND'.
PERFORM exibir_modificar.
WHEN 'BACK'.
PERFORM texto_informativo.
...
...
GET CURSOR FIELD v_campo VALUE v_valor.
IF ( v_campo EQ '/PWS/ZYCBE113-BELNR_P' OR
v_campo EQ '/PWS/ZYCBE113-BELNR_ORI' OR
v_campo EQ '/PWS/ZYCBE113-BELNR' ) AND
NOT v_valor IS INITIAL.
i_belnr = v_valor.
i_bukrs = /pws/zycbe112-bukrs.
IF v_campo EQ '/PWS/ZYCBE113-BELNR_P'.
READ TABLE itab_zycbt113p WITH KEY belnr_p = v_valor.
CLEAR /pws/zycbt064.
* >> Início da exclusão: MODULE USER_COMMAND_0102
SELECT SINGLE nrboleto FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0102
SELECT nrboleto
FROM /pws/zycbt064
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt064-nrboleto
WHERE nrchave EQ /pws/zycbe112-nrseq
AND tpparc EQ 'P'
AND nrparc EQ itab_zycbt113p-nrparc.
* >> Início da inclusão: MODULE USER_COMMAND_0102
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
CLEAR /pws/zycbt031.
* >> Início da exclusão: MODULE USER_COMMAND_0102
SELECT SINGLE dtcredpr FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0102
SELECT dtcredpr
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt031-dtcredpr
WHERE nrseq EQ /pws/zycbt064-nrboleto.
* >> Início da inclusão: MODULE USER_COMMAND_0102
endselect.
* << Fim da inclusão
ELSE.
CLEAR /pws/zycbt031.
* >> Início da exclusão: MODULE USER_COMMAND_0102
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0102
SELECT *
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
WHERE nrcorresp EQ /pws/zycbe112-nrseq
AND mdcorresp EQ 'IF'
AND tpparc EQ 'P'
AND nrparc EQ itab_zycbt113p-nrparc.
* >> Início da inclusão: MODULE USER_COMMAND_0102
endselect.
* << Fim da inclusão
ENDIF.
i_gjahr = /pws/zycbt031-dtcredpr(4).
ELSE.
READ TABLE itab_zycbt113p WITH KEY belnr = v_valor.
IF itab_zycbt113p-ftransf EQ 'C'.
CLEAR /pws/zycbt154.
* >> Início da exclusão: MODULE USER_COMMAND_0102
SELECT SINGLE dtcont FROM /pws/zycbt154
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0102
SELECT dtcont
FROM /pws/zycbt154
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt154-dtcont
WHERE codmod EQ 'I'
AND codmodul EQ 'T'
AND nrcorresp EQ /pws/zycbe112-nrseq
AND belnr_cl EQ v_valor.
* >> Início da inclusão: MODULE USER_COMMAND_0102
endselect.
* << Fim da inclusão
i_gjahr = /pws/zycbt154-dtcont(4).
ELSE.
...
...
ENDIF.
ENDCASE.
WHEN 'CS'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCBE113-BELNR_P' AND
NOT v_valor IS INITIAL.
i_belnr = v_valor.
i_bukrs = /pws/zycbe112-bukrs.
READ TABLE itab_zycbt113j WITH KEY belnr_p = v_valor.
CLEAR /pws/zycbt064.
* >> Início da exclusão: MODULE USER_COMMAND_0103
SELECT SINGLE nrboleto FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0103
SELECT nrboleto FROM /pws/zycbt064
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt064-nrboleto
WHERE nrchave EQ /pws/zycbe112-nrseq
AND tpparc EQ 'J'
AND nrparc EQ itab_zycbt113j-nrparc.
* >> Início da inclusão: MODULE USER_COMMAND_0103
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
CLEAR /pws/zycbt031.
* >> Início da exclusão: MODULE USER_COMMAND_0103
SELECT SINGLE dtcredpr FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0103
SELECT dtcredpr
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt031-dtcredpr
WHERE nrseq EQ /pws/zycbt064-nrboleto.
* >> Início da inclusão: MODULE USER_COMMAND_0103
endselect.
* << Fim da inclusão
ELSE.
CLEAR /pws/zycbt031.
* >> Início da exclusão: MODULE USER_COMMAND_0103
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0103
SELECT *
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
WHERE nrcorresp EQ /pws/zycbe112-nrseq
AND mdcorresp EQ 'IF'
AND tpparc EQ 'J'
AND nrparc EQ itab_zycbt113j-nrparc.
* >> Início da inclusão: MODULE USER_COMMAND_0103
endselect.
* << Fim da inclusão
ENDIF.
i_gjahr = /pws/zycbt031-dtcredpr(4).
SET PARAMETER ID 'BUK' FIELD i_bukrs.
...
...
WHEN 'CS'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF ( v_campo EQ '/PWS/ZYCBE113-BELNR_P' OR
v_campo EQ '/PWS/ZYCBE113-BELNR_C' ) AND
NOT v_valor IS INITIAL.
i_belnr = v_valor.
i_bukrs = /pws/zycbe112-bukrs.
IF v_campo EQ '/PWS/ZYCBE113-BELNR_P'.
READ TABLE itab_zycbt113c WITH KEY belnr_p = v_valor.
CLEAR /pws/zycbt064.
* >> Início da exclusão: MODULE USER_COMMAND_0104
SELECT SINGLE nrboleto FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0104
SELECT nrboleto
FROM /pws/zycbt064
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt064-nrboleto
WHERE nrchave EQ /pws/zycbe112-nrseq
AND tpparc EQ 'C'
AND nrparc EQ itab_zycbt113c-nrparc.
* >> Início da inclusão: MODULE USER_COMMAND_0104
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
CLEAR /pws/zycbt031.
* >> Início da exclusão: MODULE USER_COMMAND_0104
SELECT SINGLE dtcredpr FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0104
SELECT dtcredpr
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt031-dtcredpr
WHERE nrseq EQ /pws/zycbt064-nrboleto.
* >> Início da inclusão: MODULE USER_COMMAND_0104
endselect.
* << Fim da inclusão
ELSE.
CLEAR /pws/zycbt031.
* >> Início da exclusão: MODULE USER_COMMAND_0104
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0104
SELECT *
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
WHERE nrcorresp EQ /pws/zycbe112-nrseq
AND mdcorresp EQ 'IF'
AND tpparc EQ 'J'
AND nrparc EQ itab_zycbt113c-nrparc.
* >> Início da inclusão: MODULE USER_COMMAND_0104
endselect.
* << Fim da inclusão
ENDIF.
i_gjahr = /pws/zycbt031-dtcredpr(4).
ELSE.
...
...
MODIFY itab_zycbt113p INDEX lin TRANSPORTING dtinicio.
CLEAR: v_flagp.
ENDIF.
ENDIF.
ENDIF.
ELSE.
/pws/zycbe112-dtvencto = wa_zycbt112-dtvencto.
/pws/zycbe112-dtdesem = wa_zycbt112-dtdesem.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE EXIBIR_MENSAGEM
CLEAR: lin, v_flaga, v_flag, v_auxnr.
* << Fim da exclusão
* >> Início da inclusão: MODULE EXIBIR_MENSAGEM
CLEAR: lin,
v_flag,
v_auxnr.
* << Fim da inclusão
v_npar = 1.
LOOP AT itab_zycbt113p.
IF itab_zycbt113p-nrparc NE 1 AND sy-tabix = 1.
itab_zycbt113p-nrparc = v_npar.
ELSEIF itab_zycbt113p-nrparc NE 1.
v_npar = v_npar + 1.
itab_zycbt113p-nrparc = v_npar.
ENDIF.
MODIFY itab_zycbt113p INDEX sy-tabix.
ENDLOOP.
...
...
MODIFY itab_zycbt113j INDEX lin TRANSPORTING dtinicio.
MODIFY itab_zycbt113j INDEX lin TRANSPORTING dtvecto.
CLEAR: v_flagj.
ENDIF.
ENDIF.
ELSE.
/pws/zycbe112-dtvencto = wa_zycbt112-dtvencto.
/pws/zycbe112-dtdesem = wa_zycbt112-dtdesem.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE EXIBIR_MENSAGEM
CLEAR: lin, v_flaga, v_flag.
* << Fim da exclusão
* >> Início da inclusão: MODULE EXIBIR_MENSAGEM
CLEAR: lin,
v_flag.
* << Fim da inclusão
v_npar = 1.
LOOP AT itab_zycbt113j.
IF itab_zycbt113j-nrparc NE 1 AND sy-tabix = 1.
itab_zycbt113j-nrparc = v_npar.
ELSEIF itab_zycbt113j-nrparc NE 1.
v_npar = v_npar + 1.
itab_zycbt113j-nrparc = v_npar.
ENDIF.
MODIFY itab_zycbt113j INDEX sy-tabix.
ENDLOOP.
...
...
itab_zycbt113c-nrdias =
( itab_zycbt113c-dtfinal - itab_zycbt113c-dtinicio ).
ENDIF.
MODIFY itab_zycbt113c INDEX lin TRANSPORTING nrdias.
MODIFY itab_zycbt113c INDEX lin TRANSPORTING dtinicio.
CLEAR: v_flagc.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE EXIBIR_MENSAGEM
CLEAR: v_flaga, v_flagb, v_flag, itab_zycbt113c.
* << Fim da exclusão
* >> Início da inclusão: MODULE EXIBIR_MENSAGEM
CLEAR:
v_flagb,
v_flag,
itab_zycbt113c.
* << Fim da inclusão
v_npar = 1.
LOOP AT itab_zycbt113c.
IF itab_zycbt113c-nrparc NE 1 AND sy-tabix = 1.
itab_zycbt113c-nrparc = v_npar.
ELSEIF itab_zycbt113c-nrparc NE 1.
v_npar = v_npar + 1.
itab_zycbt113c-nrparc = v_npar.
ENDIF.
MODIFY itab_zycbt113c INDEX sy-tabix.
ENDLOOP.
...
...
IF NOT /pws/zycbe112-nrlinha IS INITIAL.
PERFORM busca_campos_linha.
CLEAR v_ind_lifin.
ELSE.
MESSAGE i015 WITH text-026.
v_ind_lifin = 'X'.
ENDIF.
ELSE.
CLEAR /pws/zycbe112-nrlinha.
CLEAR v_ind_lifin.
* >> Início da exclusão: MODULE BUSCA_LINHA_FINANCIAMENTO
CLEAR v_flinha.
* << Fim da exclusão
ENDIF.
ENDMODULE.
MODULE txtmodalidade INPUT.
IF /pws/zycbe112-modalidade IS INITIAL.
CLEAR txtmodalidade.
ENDIF.
PERFORM pega_descricao_dominio USING '/PWS/ZYCBE112-MODALIDADE'
/pws/zycbe112-modalidade
CHANGING txtmodalidade.
ENDMODULE.
...
...
CALL FUNCTION 'ME_DISPLAY_PURCHASE_DOCUMENT'
EXPORTING
i_ebeln = v_valor1
i_enjoy = 'X'
EXCEPTIONS
not_found = 1
no_authority = 2
invalid_call = 3
preview_not_possible = 4
OTHERS = 5.
* >> Início da inclusão: MODULE USER_COMMAND_0111
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
WHEN 'P--'.
tc_pgto-top_line = tc_pgto-top_line - tc_pgto-lines.
WHEN 'P-'.
tc_pgto-top_line = tc_pgto-top_line - 11.
WHEN 'P+'.
tc_pgto-top_line = tc_pgto-top_line + 11.
WHEN 'P++'.
tc_pgto-top_line = tc_pgto-top_line + tc_pgto-lines.
ENDCASE.
...
...
NOT itab_zycmt020[] IS INITIAL.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
textline1 = text-234
textline2 = text-236
titel = text-235
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: MODULE CONSISTE_MATERIAL
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_MATERIAL
OTHERS = 0."#EC *
* << Fim da inclusão
CASE v_answer.
WHEN 'J'.
CLEAR itab_zycmt020.
REFRESH itab_zycmt020.
WHEN OTHERS.
IF NOT /pws/zycmt019-tpmatnr IS INITIAL.
MOVE /pws/zycmt019-tpmatnr TO /pws/zycbe112-codint.
ENDIF.
ENDCASE.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101O01
...
IF sy-tcode = '/PWS/ZYCB101_E'.
SET TITLEBAR '300'.
ENDIF.
IF sy-tcode = '/PWS/ZYCB101_C'.
SET TITLEBAR '100'.
ENDIF.
REFRESH itab_pf_status.
ENDMODULE.
MODULE load_data OUTPUT.
IF v_nrseqc IS INITIAL AND /pws/zycbe112-nrseq 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
IF /pws/zycbe112 IS INITIAL.
...
...
SELECT * FROM /pws/zycbt115 INTO TABLE itab_zycbt115
WHERE nrcorrep EQ v_nrseqc
AND tpdoc EQ 'I'
AND fsta EQ ' '.
itab_zycbt115_ant[] = itab_zycbt115[].
ENDIF.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE set_screen OUTPUT.
* >> Início da exclusão: MODULE SET_SCREEN
DATA : v_nrseqa LIKE /pws/zycbt113-nrseq.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
DATA : v_nrseqa LIKE /pws/zycbt113-nrseq."#EC NEEDED
* << Fim da inclusão
CASE sy-dynnr.
WHEN '0102'.
tc_princ-lines = tc_princ-top_line + 15.
v_countlinej = '00001'.
IF v_status_s = '0' OR
v_status_s = '1' AND /pws/zycbe112-fassoc = 'X'.
LOOP AT tc_princ-cols INTO wa_cols.
wa_cols-screen-input = '0'.
MODIFY tc_princ-cols FROM wa_cols.
ENDLOOP.
...
...
LOOP AT tc_princ-cols INTO wa_cols.
IF wa_cols-screen-name = '/PWS/ZYCBE113-NRPARC' OR
wa_cols-screen-group1 EQ 'CON'.
wa_cols-screen-input = '0'.
ELSE.
wa_cols-screen-input = '1'.
ENDIF.
MODIFY tc_princ-cols FROM wa_cols.
ENDLOOP.
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN
SELECT SINGLE nrseq FROM /pws/zycbt113
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
SELECT nrseq
FROM /pws/zycbt113
up to 1 rows
* << Fim da inclusão
INTO v_nrseqa
WHERE nrseq EQ /pws/zycbe112-nrseq
AND tpparc EQ 'P'
AND belnr_p EQ ' '.
* >> Início da inclusão: MODULE SET_SCREEN
endselect.
* << Fim da inclusão
IF sy-subrc NE 0 AND
sy-tcode NE '/PWS/ZYCB101_C' AND
/pws/zycbe112-fassoc EQ 'X'.
...
...
/ /pws/zycbt010-nrdias * nrdias ).
ENDIF.
ELSE.
MESSAGE w048.
FIELDS /pws/zycbe112-tptaxa.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
MODULE set-screen OUTPUT.
* >> Início da exclusão: MODULE SET-SCREEN
DATA : v_nrseqb LIKE /pws/zycbt113-nrseq.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
DATA : v_nrseqb LIKE /pws/zycbt113-nrseq."#EC NEEDED
* << Fim da inclusão
IF v_status_s = '0'.
LOOP AT SCREEN.
screen-input = '0'.
MODIFY SCREEN.
ENDLOOP.
ELSE.
* >> Início da exclusão: MODULE SET-SCREEN
SELECT SINGLE nrseq FROM /pws/zycbt113
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
SELECT nrseq FROM /pws/zycbt113
up to 1 rows
* << Fim da inclusão
INTO v_nrseqb
WHERE nrseq EQ /pws/zycbe112-nrseq
AND tpparc EQ 'P'
AND belnr_p EQ ' '.
* >> Início da inclusão: MODULE SET-SCREEN
endselect.
* << Fim da inclusão
IF sy-subrc NE 0 AND
sy-tcode NE '/PWS/ZYCB101_C' AND
/pws/zycbe112-fassoc EQ 'X'.
...
...
CLEAR /pws/zyglt214.
SELECT SINGLE * FROM /pws/zyglt214
INTO /pws/zyglt214
WHERE codnorma = /pws/zycbe112-codnorma.
IF sy-subrc EQ 0.
norma = /pws/zyglt214-norma.
ELSE.
CLEAR norma.
ENDIF.
ENDCASE.
* >> Início da exclusão: MODULE SET-SCREEN
SELECT SINGLE nrseq FROM /pws/zycmt013
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
SELECT nrseq FROM /pws/zycmt013
up to 1 rows
* << Fim da inclusão
INTO v_nrseq_agrp
WHERE nrseq = /pws/zycbe112-nrseq.
* >> Início da inclusão: MODULE SET-SCREEN
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCBE112-WAERS' OR
screen-name = '/PWS/ZYCBE112-VLME'.
screen-input = '0'.
...
...
screen-invisible = 1.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
LOOP AT tc_pgto-cols INTO wa_cols.
wa_cols-screen-input = '0'.
MODIFY tc_pgto-cols FROM wa_cols.
ENDLOOP.
ELSE.
* >> Início da inclusão: MODULE SET_SCREEN_0100
SELECT nrseq FROM /pws/zycbt113
* << Fim da inclusão
* >> Início da exclusão: MODULE SET_SCREEN_0100
SELECT SINGLE nrseq FROM /pws/zycbt113
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_0100
up to 1 rows
* << Fim da inclusão
INTO v_nrseqb
WHERE nrseq EQ /pws/zycbe112-nrseq
AND tpparc EQ 'P'
AND belnr_p EQ ' '.
* >> Início da inclusão: MODULE SET_SCREEN_0100
endselect.
* << Fim da inclusão
IF sy-subrc NE 0 AND
sy-tcode NE '/PWS/ZYCB101_C' AND
/pws/zycbe112-fassoc EQ 'X'.
...
...
v_cod_grupo = 'CCO'.
ELSEIF sy-dynnr EQ '0109' OR
sy-dynnr EQ '0107'.
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.
...
...
v_comp.
IF sy-dynnr EQ '0103' OR
sy-dynnr EQ '0104'.
v_cod_grupo = 'CCO'.
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_TBCONTROL
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_TBCONTROL
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/MZYCM101TOP
...
ekko,
j_1bbranch,
adrc,
t16fb,
/pws/zyglt214,
/pws/zycbt007,
/pws/zycbt010,
/pws/zycbt031,
/pws/zycbe048,
/pws/zycbt108,
* >> Início da exclusão:
/pws/zycbt118,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt118,"#EC NEEDED
* << Fim da inclusão
/pws/zycbe114,
/pws/zycbt154,
* >> Início da exclusão:
/pws/zycbt116,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt116,"#EC NEEDED
* << Fim da inclusão
/pws/zycbt064,
* >> Início da exclusão:
/pws/zycbt131,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt131,"#EC NEEDED
* << Fim da inclusão
/pws/zyglt009,
/pws/zyglt209,
/pws/zygle209,
/pws/zycbt132,
/pws/zycbt009,
/pws/zyglt364,
/pws/zycbt117,
/pws/zycme022,
/pws/zycmt023,
/pws/zycme023,
...
...
DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt113p_aux OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt113.
DATA: mark(1).
DATA: END OF itab_zycbt113p_aux.
DATA: BEGIN OF itab_zycbt113c_exc OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt113.
DATA: END OF itab_zycbt113c_exc.
DATA:
itab_zycbt113_aux LIKE /pws/zycbt113 OCCURS 20 WITH HEADER LINE.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt113p_ant OCCURS 10.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt113p_ant OCCURS 10."#EC *
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycbt113.
DATA: nrcontr LIKE /pws/zycbt048-nrcontr,
dtcontr LIKE /pws/zycbt048-dtcontr,
dtdebito LIKE /pws/zycbt048-dtdebito,
dtliquida LIKE /pws/zycbt048-dtliquida,
dtswift LIKE /pws/zycbt048-dtswift,
instituicao LIKE /pws/zycbt048-instituicao,
praca LIKE /pws/zycbt048-praca,
codnatoper LIKE /pws/zycbt048-codnatoper,
corret LIKE /pws/zycbt048-corret.
DATA: mark(1).
DATA: END OF itab_zycbt113p_ant.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt113j_ant OCCURS 10.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt113j_ant OCCURS 10."#EC *
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycbt113.
DATA: nrcontr LIKE /pws/zycbt048-nrcontr,
dtcontr LIKE /pws/zycbt048-dtcontr,
dtdebito LIKE /pws/zycbt048-dtdebito,
dtliquida LIKE /pws/zycbt048-dtliquida,
dtswift LIKE /pws/zycbt048-dtswift,
instituicao LIKE /pws/zycbt048-instituicao,
praca LIKE /pws/zycbt048-praca,
codnatoper LIKE /pws/zycbt048-codnatoper,
corret LIKE /pws/zycbt048-corret.
...
...
vlrefinp LIKE /pws/zycbt113-vlme,
vlme LIKE /pws/zycbt113-vlme,
END OF itab_totais.
DATA: BEGIN OF itab_totais_aux OCCURS 0,
nrfinanc LIKE /pws/zycbt112-nrfinanc,
prazo(1),
gsber LIKE /pws/zycbt112-gsber,
vlrefinp LIKE /pws/zycbt113-vlme,
vlme LIKE /pws/zycbt113-vlme,
END OF itab_totais_aux.
* >> Início da exclusão:
DATA: BEGIN OF i_boleto OCCURS 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF i_boleto OCCURS 0,"#EC NEEDED
* << Fim da inclusão
nrseq LIKE /pws/zycbe113-nrseq,
nrparc LIKE /pws/zycbe113-nrparc,
tpparc LIKE /pws/zycbe113-tpparc,
END OF i_boleto.
DATA : BEGIN OF itab_excluidos OCCURS 0,
nrparc LIKE /pws/zycbt113-nrparc,
belnr LIKE /pws/zycbt113-belnr,
END OF itab_excluidos.
DATA: BEGIN OF itab_zycbt048 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt048.
...
...
INCLUDE STRUCTURE /pws/zyglt316.
DATA: END OF itab_zyglt316.
DATA: BEGIN OF itab_zyglt321 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt321.
DATA: END OF itab_zyglt321.
DATA : BEGIN OF itab_zycbt113ja OCCURS 0,
nrseq LIKE /pws/zycbt113-nrseq,
tpparc LIKE /pws/zycbt113-tpparc,
nrparc LIKE /pws/zycbt113-nrparc,
END OF itab_zycbt113ja.
* >> Início da exclusão:
DATA : BEGIN OF itab_zycbt113ca OCCURS 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA : BEGIN OF itab_zycbt113ca OCCURS 0,"#EC NEEDED
* << Fim da inclusão
nrseq LIKE /pws/zycbt113-nrseq,
tpparc LIKE /pws/zycbt113-tpparc,
nrparc LIKE /pws/zycbt113-nrparc,
END OF itab_zycbt113ca.
DATA: BEGIN OF itab_zycbt113pe OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt113.
DATA: END OF itab_zycbt113pe.
* >> 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 itab_pf_status OCCURS 10,
fcode LIKE rsmpe-func,
END OF itab_pf_status.
DATA: BEGIN OF itab_t320 OCCURS 0,
campo(35) TYPE c,
...
...
v_dia_semana TYPE p,
v_feriado TYPE c,
v_data_mes LIKE sy-datum.
DATA: BEGIN OF itab_thol OCCURS 0.
INCLUDE STRUCTURE thol.
DATA: END OF itab_thol.
DATA: BEGIN OF itab_zycmt020 OCCURS 0.
INCLUDE STRUCTURE /pws/zycmt020.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycmt020.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycmt020_cp OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycmt020_cp OCCURS 0."#EC *
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycmt020.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycmt020_cp.
DATA: BEGIN OF itab_ekpo OCCURS 0.
INCLUDE STRUCTURE ekpo.
DATA: END OF itab_ekpo.
DATA wa_ekko LIKE ekko.
TYPE-POOLS: sydes.
* >> Início da exclusão:
DATA: t_sydes TYPE sydes_desc,
wa_types TYPE sydes_typeinfo,
v_len TYPE i.
* << Fim da exclusão
DATA: wa_zycbt007 LIKE /pws/zycbt007,
wa_zycbt011 LIKE /pws/zycbt011,
wa_zycbt011_rd LIKE /pws/zycbt011,
wa_zycbt031a LIKE /pws/zycbt031,
wa_zycbt064a LIKE /pws/zycbt064,
wa_zycbt114 LIKE /pws/zycbt114,
wa_zycbt112r LIKE /pws/zycbt112,
wa_cols TYPE cxtab_column,
wa_zycbe112_aux LIKE /pws/zycbe112,
wa_zycbe113_aux LIKE /pws/zycbe113.
DATA: wa_log TYPE char4000,
wa_zycbt112_log LIKE /pws/zycbt112,
wa_zycbt113_log LIKE /pws/zycbt113.
DATA:
v_tela_help LIKE sy-dynnr VALUE '0052',
v_existe VALUE 'N',
v_apagar VALUE 'S',
v_origem TYPE c,
v_index LIKE sy-tabix,
* >> Início da exclusão:
v_processa,
* << Fim da exclusão
* >> Início da inclusão:
v_processa,"#EC NEEDED
* << Fim da inclusão
v_boleto_p TYPE c,
v_obrig LIKE /pws/zyglt009-infotext,
v_nrseqc LIKE /pws/zycbt112-nrseq,
v_soma_vlme LIKE /pws/zycbt113-vlme,
v_nrseqcview(10) TYPE c,
v_status_s,
v_dtfinal LIKE /pws/zycbt113-dtfinal,
v_countlinej(3) TYPE n VALUE '001',
v_answer,
v_parcom LIKE /pws/zycbt112-nrparc,
bcodescr LIKE lfa1-name1,
moeda LIKE tcurt-ltext,
fornecedor LIKE lfa1-name1,
v_cpochv LIKE /pws/zycbe033-cpochv,
nrdias(5) TYPE c,
v_media,
v_compra,
v_venda,
v_taxacambial LIKE /pws/zycbt112-kursf,
v_moeda LIKE /pws/zycbt116-waers,
* >> Início da exclusão:
v_valorme LIKE /pws/zycbt116-vlrefinan,
* << Fim da exclusão
* >> Início da inclusão:
v_valorme LIKE /pws/zycbt116-vlrefinan,"#EC NEEDED
* << Fim da inclusão
v_nrrefin LIKE /pws/zycbt116-nrrefin,
v_nrrefin1 LIKE /pws/zycbt116-nrrefin,
v_vlme LIKE /pws/zycbt112-vlme,
v_waers LIKE /pws/zycbt112-waers,
v_waersb LIKE /pws/zycbt007-waersb,
v_periodo TYPE i,
v_parcela TYPE i VALUE space,
v_retorno TYPE c,
v_ind_valor TYPE c,
v_ind_texto TYPE c,
v_ind_lifin TYPE c,
* >> Início da exclusão:
v_dcjur(30),
* << Fim da exclusão
* >> Início da inclusão:
v_dcjur(30),"#EC NEEDED
* << Fim da inclusão
v_gardescr(30),
* >> Início da exclusão:
v_flinha(1),
* << Fim da exclusão
v_campo(25),
v_valor(10) TYPE n,
i_belnr LIKE bkpf-belnr,
i_bukrs LIKE bkpf-bukrs,
i_gjahr LIKE bkpf-gjahr,
v_pos_itab LIKE sy-tabix,
v_vlaux LIKE /pws/zycbt112-vlcomis,
* >> Início da exclusão:
v_vlaux1 LIKE /pws/zycbt112-vlcomis,
v_flag_moeda TYPE c,
* << Fim da exclusão
* >> Início da inclusão:
v_vlaux1 LIKE /pws/zycbt112-vlcomis,"#EC NEEDED
v_flag_moeda TYPE c, "#EC NEEDED
* << Fim da inclusão
v_modo_bi,
v_codeven_f LIKE /pws/zycbt011-codeven,
v_codeven_r LIKE /pws/zycbt011-codeven,
v_codeven_rd LIKE /pws/zycbt011-codeven,
v_txc_f02 LIKE tcurr-ukurs,
v_txc_f51 LIKE tcurr-ukurs,
* >> Início da exclusão:
v_flag(1),
v_flaga(1),
* << Fim da exclusão
* >> Início da inclusão:
v_flag(1),"#EC NEEDED
* << Fim da inclusão
v_flagb(1),
v_flagp(1),
v_flagj(1),
v_erro_exclusao,
v_erro_estorno,
v_flagc(1),
v_erro_bi,
v_cols TYPE cxtab_column,
v_vencto LIKE /pws/zycbe112-dtvencto,
v_li TYPE i,
...
...
v_vlres LIKE /pws/zycbt113-vlme,
v_zuonr LIKE bseg-zuonr,
v_dias(1),
v_jurpg(1),
norma LIKE /pws/zyglt214-norma,
v_pedido,
v_display,
v_exclui(1) TYPE c,
v_relevante,
v_errof(1) TYPE c,
* >> Início da exclusão:
v_modifp ,
* << Fim da exclusão
* >> Início da inclusão:
v_modifp ,"#EC NEEDED
* << Fim da inclusão
txtmodalidade(25) TYPE c,
v_syrepid LIKE sy-repid,
* >> Início da exclusão:
v_sydynnr LIKE sy-dynnr,
* << Fim da exclusão
* >> Início da inclusão:
v_sydynnr LIKE sy-dynnr,"#EC NEEDED
* << Fim da inclusão
v_nrseq_agrp LIKE /pws/zycbt112-nrseq,
v_codaux1 LIKE /pws/zyglt316-codaux1,
...
...
v_vlr_item LIKE /pws/zycmt020-vlpago,
v_tabix LIKE sy-tabix,
v_lifnr LIKE ekko-lifnr,
v_campo1(22) TYPE c,
v_valor1 LIKE ekko-ebeln,
v_ped LIKE ekpo-ebeln,
v_lines TYPE i,
v_saldo LIKE /pws/zycmt020-vlpago,
v_tot_pedido LIKE /pws/zycmt020-netwr,
pressed_tab LIKE sy-ucomm,
* >> Início da exclusão:
dynpronr(4) TYPE c.
* << Fim da exclusão
* >> Início da inclusão:
dynpronr(4) TYPE c."#EC NEEDED
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101X01
TABLES:
/pws/zycbt112,
/pws/zycbt113,
* >> Início da exclusão:
/pws/zycbt115,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt115,"#EC *
* << Fim da inclusão
/pws/zycbe112,
/pws/zycbe113,
/pws/zycbe115.
* >> 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: wa_zycbt112 LIKE /pws/zycbe112,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB102
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 013
Texto: (5 caracteres)
"Teste"
Comprimento máximo: 5
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB114
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 013
Texto: (35 caracteres)
"Documento já está em visualização!!"
Comprimento máximo: 35
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 016
Texto: (53 caracteres)
"Os Financiamentos associados devem ter a mesma moeda."
Comprimento máximo: 53
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCM101
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 020
Texto: (36 caracteres)
" move binary_tab(dd03l-intlen) to"
Comprimento máximo: 36
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 024
Texto: (41 caracteres)
" p_wa_log+v_tam(dd03l-leng) = <VALOR>."
Comprimento máximo: 41
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 025
Texto: (32 caracteres)
" BINARY_TAB = binary_tab."
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 030
Texto: (30 caracteres)
" BUFFER = v_xstring"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 036
Texto: (34 caracteres)
" DELETING TRAILING space."
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 037
Texto: (35 caracteres)
" SHIFT v_valor(dd03l-leng) RIGHT"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 038
Texto: (22 caracteres)
" v_valor = <VALOR>."
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 039
Texto: (28 caracteres)
" p_dados TO <VALOR>."
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 040
Texto: (24 caracteres)
" END OF binary_tab."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 041
Texto: (28 caracteres)
" default(200) TYPE c,"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 042
Texto: (35 caracteres)
"DATA: BEGIN OF binary_tab OCCURS 0,"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 043
Texto: (20 caracteres)
"Fatura de Importação"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 044
Texto: (20 caracteres)
"Pagamento Antecipado"
Comprimento máximo: 20
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 211
Texto: (20 caracteres)
"FATURA DE IMPORTAÇÃO"
Comprimento máximo: 20