CE PLUS - Nota 006005
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 22/02/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:50:50
Descrição da Nota: CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
Sintoma
Performace e Sintaxe
Solução
Code Inspector e Verificação Ampliada
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06005 Data: 22/02/2008 Hora: 13:58:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06005
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
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR E VERIFICAÇÃO AMPLIADA , CAMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB024 0100
RELE F6DK958211 20080222 135058 PWSCB
REPS /PWS/MZYCB010F01
REPS /PWS/MZYCB010I01
REPS /PWS/MZYCB010O01
REPS /PWS/MZYCB010TOP
REPS /PWS/MZYCB012F01
REPS /PWS/MZYCB012I01
REPS /PWS/MZYCB012O01
REPS /PWS/MZYCB012TOP
REPS /PWS/MZYCB012X01
REPS /PWS/MZYCB014F01
REPS /PWS/MZYCB014I01
REPS /PWS/MZYCB014O01
REPS /PWS/MZYCB014TOP
REPS /PWS/MZYCB015F01
REPS /PWS/MZYCB015I01
REPS /PWS/MZYCB015TOP
REPS /PWS/MZYCB024F01
REPS /PWS/MZYCB024I01
REPS /PWS/MZYCB024O01
REPS /PWS/MZYCB024TOP
REPS /PWS/MZYCB027F01
REPS /PWS/MZYCB027I01
REPS /PWS/MZYCB027O01
REPS /PWS/MZYCB027TOP
REPS /PWS/MZYCB028F01
REPS /PWS/MZYCB028I01
REPS /PWS/MZYCB028O01
REPS /PWS/MZYCB028TOP
REPS /PWS/MZYCB028X01
REPT /PWS/SAPMZYCB010
REPT /PWS/SAPMZYCB012
REPT /PWS/SAPMZYCB014
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB024 0100
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK958211 20080222 135058 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB010F01
...
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDLOOP.
ENDIF.
IF v_t005 <> 'X'.
MODIFY /pws/zycbt001 FROM /pws/zycbe001.
ENDIF.
IF sy-tcode = '/PWS/ZYCB010_A'.
LOOP AT itab_zycbt005.
* >> Início da exclusão: FORM GRAVA_TABELAS
SELECT SINGLE * FROM /pws/zycbt004
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
SELECT * FROM /pws/zycbt004
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = itab_zycbt005-nrseqc
AND tpdesp = 'J'
AND nrparc = itab_zycbt005-nrparc
AND dtincl = itab_zycbt005-dtvincul.
* >> Início da inclusão: FORM GRAVA_TABELAS
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
IF /pws/zycbt004-fcalcjur IS INITIAL.
/pws/zycbt004-vlme = itab_zycbt005-vljur.
...
...
ENDIF.
IF v_zterm = 'X' AND screen-group1 = 'COD'.
screen-invisible = '0'.
screen-input = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM selecionar_zycbt017.
* >> Início da exclusão: FORM SELECIONAR_ZYCBT017
DATA: v_nolin TYPE i VALUE IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ZYCBT017
DATA: v_nolin TYPE i VALUE IS INITIAL. "#EC NEEDED
* << Fim da inclusão
SELECT * FROM /pws/zycbt017
INTO TABLE itab_zycbt017_aux
WHERE nrinvoic IN s_nrinv
AND gsberf IN s_gsber
AND fkdat IN s_fkdat
AND kunag IN s_kunag
AND dtvencto IN s_dtven
AND dtbl IN s_dtbl1
AND zterm IN s_zterm.
CLEAR v_vlslf.
...
...
FORM grava_log USING value(p_table)
wa_data
p_oper.
CALL FUNCTION '/PWS/ZYGL_LOG_TABLE'
EXPORTING
tabname = p_table
oper = p_oper
wa_data = wa_data
progname = sy-cprog
EXCEPTIONS
* >> Início da exclusão: FORM GRAVA_LOG
table_not_found = 1
devclass_not_zy = 2
table_not_supported = 3
commit_error = 4
OTHERS = 5.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LOG
table_not_found = 0
devclass_not_zy = 0
table_not_supported = 0
commit_error = 0
OTHERS = 0.
* << Fim da inclusão
ENDFORM.
FORM calculo.
DATA:
v_vldif LIKE /pws/zycbe005-vlslf,
* >> Início da exclusão: FORM CALCULO
v_vlslf LIKE /pws/zycbe005-vlslf.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULO
v_vlslf LIKE /pws/zycbe005-vlslf. "#EC NEEDED
* << Fim da inclusão
READ TABLE itab_zycbt005_aux
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf.
IF sy-subrc EQ 0.
IF itab_zycbt005_aux-vlvinc NE itab_zycbt005-vlvinc.
v_ind_mudanca = 'X'.
v_vldif = ( itab_zycbt005_aux-vlvinc -
itab_zycbt005-vlvinc ).
v_vlslf = itab_zycbt005-vlslf + v_vldif.
...
...
ELSE.
MESSAGE e261(sf) WITH '/PWS/ZYCB001_A'.
ENDIF.
ENDIF.
ENDFORM.
FORM monta_log_cfm USING p_dados
p_tabela
CHANGING p_wa_log.
DATA: t_prog(72) TYPE c OCCURS 1000 WITH HEADER LINE,
w_prog LIKE trdir-name.
* >> 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 exclusão: FORM MONTA_LOG_CFM
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
IF sy-saprl(3) GE c_620 OR sy-saprl(2) EQ c_47. "#EC PORTABLE
* << Fim da inclusã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-456 TO t_prog.
APPEND text-457 TO t_prog.
APPEND text-458 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-459 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-460 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-461 TO t_prog.
APPEND text-462 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-463 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-464 TO t_prog.
* << Fim da inclusão
APPEND ' move binary_tab(dd03l-intlen) to ' TO t_prog.
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-465 TO t_prog.
* << Fim da inclusão
APPEND ' v_tam = v_tam + dd03l-leng. ' TO t_prog.
APPEND ' endif. ' TO t_prog.
APPEND 'enddo. ' TO t_prog.
ELSE.
APPEND 'p_wa_log = p_dados. ' TO t_prog.
ENDIF.
APPEND 'endform. ' TO t_prog.
GENERATE SUBROUTINE POOL t_prog NAME w_prog.
IF sy-subrc = 0.
PERFORM log IN PROGRAM (w_prog) USING p_dados
...
...
v_index = v_index + 1.
IF v_index GT 1.
v_line = v_line + 1.
ENDIF.
CALL FUNCTION '/PWS/ZYGL_TRATA_DATA'
EXPORTING
i_trdata = <fs_zycbt017>-dtvencto
IMPORTING
e_trdata = v_data_aux
EXCEPTIONS
* >> Início da exclusão: FORM TRANSFERE_CAMPOS
v_dtbranco = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSFERE_CAMPOS
v_dtbranco = 0.
* << Fim da inclusão
PERFORM adiciona_linha_tc:
USING
'/PWS/ZYCBE005-NRINVOIC' <fs_zycbt017>-nrinvoic v_line
CHANGING
p_itab_dynpread,
USING
'/PWS/ZYCBE005-NRPARCF' <fs_zycbt017>-nrparcf v_line
CHANGING
p_itab_dynpread,
USING
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB010I01
...
SET SCREEN 0.
LEAVE TO SCREEN 0.
ENDIF.
WHEN OTHERS.
PERFORM unlock_record.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.
MODULE user_command_0100 INPUT.
DATA: e_subrc LIKE sy-subrc,
* >> Início da exclusão: MODULE USER_COMMAND_0100
e_exec_okcode.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
e_exec_okcode."#EC NEEDED
* << Fim da inclusão
CLEAR: r_okcode, e_exec_okcode, v_syrepid.
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 = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
* >> Início da exclusão: MODULE USER_COMMAND_0100
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
i_codmod_nao_encontrado = 0
i_func_nao_encontrado = 0
i_zexit_nao_encontrado = 0
OTHERS = 0.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'AGR001' 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.
...
...
wa_zycbt017_chave TYPE t_zycbt017_chave,
v_pos1 TYPE i,
v_pos2 TYPE i,
v_pos3 TYPE i.
DATA: BEGIN OF itab_result OCCURS 0.
INCLUDE STRUCTURE ddshretval.
DATA: END OF itab_result.
DATA: BEGIN OF record_tab OCCURS 0.
INCLUDE STRUCTURE seahlpres.
DATA: END OF record_tab.
* >> Início da exclusão: MODULE GET_INVOICE
DATA: v_line2 LIKE sy-lilli,
* << Fim da exclusão
* >> Início da inclusão: MODULE GET_INVOICE
DATA: v_line2 LIKE sy-lilli, "#EC *
* << Fim da inclusão
l_display(1) TYPE c,
* >> Início da exclusão: MODULE GET_INVOICE
shlp_struc LIKE /pws/zycbv204,
shlp_curr TYPE shlp_descr_t,
* << Fim da exclusão
* >> Início da inclusão: MODULE GET_INVOICE
shlp_struc LIKE /pws/zycbv204, "#EC *
shlp_curr TYPE shlp_descr_t, "#EC NEEDED
* << Fim da inclusão
tdynpread LIKE dynpread OCCURS 0 WITH HEADER LINE.
...
...
IMPORTING
povstepl = v_line.
tdynpread-fieldname = '/PWS/ZYCBE005-NRINVOIC'.
tdynpread-stepl = v_line.
APPEND tdynpread.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = '/PWS/SAPMZYCB010'
dynumb = '0100'
TABLES
* >> Início da exclusão: MODULE GET_INVOICE
dynpfields = tdynpread.
* << Fim da exclusão
* >> Início da inclusão: MODULE GET_INVOICE
dynpfields = tdynpread
EXCEPTIONS
invalid_abapworkarea = 1
invalid_dynprofield = 2
invalid_dynproname = 3
invalid_dynpronummer = 4
invalid_request = 5
no_fielddescription = 6
invalid_parameter = 7
undefind_error = 8
double_conversion = 9
stepl_not_found = 10
OTHERS = 11.
* << Fim da inclusão
IF sy-subrc EQ 0 AND NOT
tdynpread-fieldvalue IS INITIAL.
EXIT.
ENDIF.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = '/PWS/ZYCBE005'
fieldname = 'NRINVOIC'
searchhelp = '/PWS/ZYCBA068'
shlpparam = 'NRINVOIC'
...
...
IMPORTING
povstepl = v_line.
DO v_line TIMES.
CLEAR tdynpread.
REFRESH tdynpread.
tdynpread-fieldname = '/PWS/ZYCBE005-NRINVOIC'.
tdynpread-stepl = v_line - 1.
APPEND tdynpread.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
* >> Início da exclusão: MODULE GET_INVOICE
dyname = '/PWS/SAPMZYCB010'
dynumb = '0100'
* << Fim da exclusão
* >> Início da inclusão: MODULE GET_INVOICE
dyname = '/PWS/SAPMZYCB010'
dynumb = '0100'
* << Fim da inclusão
TABLES
* >> Início da exclusão: MODULE GET_INVOICE
dynpfields = tdynpread.
* << Fim da exclusão
* >> Início da inclusão: MODULE GET_INVOICE
dynpfields = tdynpread
EXCEPTIONS
invalid_abapworkarea = 1
invalid_dynprofield = 2
invalid_dynproname = 3
invalid_dynpronummer = 4
invalid_request = 5
no_fielddescription = 6
invalid_parameter = 7
undefind_error = 8
double_conversion = 9
stepl_not_found = 10
OTHERS = 11.
* << Fim da inclusão
IF sy-subrc EQ 0 AND
tdynpread-fieldvalue IS INITIAL AND
tdynpread-stepl GT 0.
v_line = tdynpread-stepl.
ELSEIF sy-subrc EQ 0 AND
NOT tdynpread-fieldvalue IS INITIAL.
EXIT.
ENDIF.
ENDDO.
CLEAR tdynpread.
...
...
ENDIF.
CLEAR itab_zycbt005.
REFRESH itab_zycbt005.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-cprog
dynumb = '0100'
TABLES
dynpfields = tdynpread
EXCEPTIONS
* >> Início da exclusão: MODULE GET_INVOICE
OTHERS = 8.
* << Fim da exclusão
* >> Início da inclusão: MODULE GET_INVOICE
OTHERS = 0.
* << Fim da inclusão
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB010O01
...
ENDIF.
IF itab_zyglt100[] IS INITIAL.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
* >> Início da exclusão: MODULE STATUS_0100
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0100
i_codmod_nao_encontrado = 0
i_func_nao_encontrado = 0
i_zexit_nao_encontrado = 0
OTHERS = 0.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'AGR002' BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
SET PF-STATUS '0100' EXCLUDING itab_pf_status.
REFRESH itab_pf_status.
SET TITLEBAR '0100'.
SET PARAMETER ID 'BUK' FIELD /pws/zycbe001-bukrs.
ENDMODULE.
MODULE status_0200 OUTPUT.
SET PF-STATUS '0200'.
SET TITLEBAR '0200'.
CLEAR: /pws/zycbe017, /pws/zycbe017a.
ENDMODULE.
MODULE load_data OUTPUT.
CLEAR: /pws/zycbe005-vlslf, v_totalvlslf, wa_slvinc-slvinc.
IF /pws/zycbe001 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 sy-subrc IS INITIAL.
...
...
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/MZYCB010TOP
...
nrparcf TYPE /pws/zycbt017-nrparcf,
gsberf TYPE /pws/zycbt017-gsberf,
END OF t_zycbt017_chave,
t_itab_zycbt017_chave TYPE SORTED TABLE OF t_zycbt017_chave
WITH UNIQUE KEY nrinvoic nrparcf gsberf,
t_itab_dynpread TYPE TABLE OF dynpread.
INCLUDE /pws/zygli100.
INCLUDE /pws/mzycb010x01.
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/zycbt004,
/pws/zycbt007,
/pws/zycbt016,
/pws/zycbt017,
/pws/zycbe017,
* >> Início da exclusão:
/pws/zycbe017a,
/pws/zycbt037,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbe017a, "#EC NEEDED
/pws/zycbt037, "#EC *
* << Fim da inclusão
/pws/zyglt364,
lfa1,
kna1,
t052u,
* >> Início da exclusão:
tcurx.
* << Fim da exclusão
* >> Início da inclusão:
tcurx."#EC NEEDED
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt005_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlslf LIKE /pws/zycbe005-vlslf,
mark(1).
DATA: END OF itab_zycbt005_aux.
DATA: BEGIN OF itab_zycbt005_ant OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlslf LIKE /pws/zycbe005-vlslf,
mark(1).
DATA: END OF itab_zycbt005_ant.
...
...
DATA: BEGIN OF itab_zycbt017 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt017.
DATA: END OF itab_zycbt017.
DATA: BEGIN OF itab_zycbt006 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006.
DATA: BEGIN OF itab_t052u OCCURS 0,
zterm LIKE t052u-zterm,
text1 LIKE t052u-text1,
END OF itab_t052u.
* >> Início da exclusão:
DATA: itab_zycbt002j LIKE /pws/zycbt002 OCCURS 10 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
DATA: itab_zycbt002j LIKE /pws/zycbt002 OCCURS 10. "#EC NEEDED
* << Fim da inclusão
DATA: itab_zycbt003 LIKE /pws/zycbt003 OCCURS 10 WITH HEADER LINE.
* >> Início da exclusão:
DATA: itab_zycbt010 LIKE /pws/zycbt010 OCCURS 10 WITH HEADER LINE.
DATA: itab_zycbt009 LIKE /pws/zycbt009 OCCURS 10 WITH HEADER LINE.
DATA: itab_tcurx LIKE tcurx OCCURS 10 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
DATA: itab_zycbt010 LIKE /pws/zycbt010 OCCURS 10."#EC NEEDED
DATA: itab_zycbt009 LIKE /pws/zycbt009 OCCURS 10 . "#EC NEEDED
DATA: itab_tcurx LIKE tcurx OCCURS 10 ."#EC NEEDED
* << Fim da inclusão
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
* >> Início da inclusão:
DATA: t_sydes TYPE sydes_desc, "#EC *
wa_types TYPE sydes_typeinfo, "#EC *
v_len TYPE i. "#EC *
* << Fim da inclusão
DATA: wa_slvinc LIKE /pws/zycbt001,
wa_log TYPE char4000,
wa_zycbt005_log LIKE /pws/zycbt005.
DATA:
* >> Início da exclusão:
v_mark VALUE space,
* << Fim da exclusão
* >> Início da inclusão:
v_mark VALUE space,"#EC NEEDED
* << Fim da inclusão
v_nrinvoic VALUE space,
v_gsberf VALUE space,
v_fkdat VALUE space,
v_kunag VALUE space,
v_dtvencto VALUE space,
v_dtbl VALUE space,
v_inco1 VALUE space,
v_zterm VALUE space,
v_resposta(1) TYPE c,
v_status_s,
...
...
v_txtinf LIKE /pws/zycbt001-txtinf,
v_tpcontr LIKE /pws/zycbt001-tpcontr,
v_corret LIKE /pws/zycbt001-corret,
v_waers LIKE /pws/zycbt001-waers,
v_msg(100),
v_index LIKE sy-tabix,
v_ind_mudanca,
v_ind_delecao,
corretora LIKE lfa1-name1,
cliente LIKE kna1-name1,
* >> Início da exclusão:
v_dtoperac LIKE sy-datum,
* << Fim da exclusão
* >> Início da inclusão:
v_dtoperac LIKE sy-datum,"#EC NEEDED
* << Fim da inclusão
v_dtcalcjur LIKE sy-datum,
v_dtpgto TYPE i,
v_aux LIKE /pws/zycbe001-vlme,
v_result LIKE /pws/zycbe001-vlme,
v_vlme LIKE /pws/zycbe001-vlme,
v_result2(16) TYPE c,
v_result3 TYPE i,
v_tot_aux LIKE /pws/zycbe001-vlme,
v_tot_vlme LIKE /pws/zycbe001-vlme,
v_vlslf(1) TYPE c,
v_initial(1) TYPE c,
v_nrseqc_ant LIKE /pws/zycbe001-nrseqc,
v_fatura(1),
v_txtinfaux(50) TYPE c,
v_totalvlslf(22) TYPE c,
tpcontr LIKE /pws/zycbt016-txtdesc,
v_syrepid LIKE sy-repid,
v_status,
v_line TYPE i.
* >> Início da inclusão:
CONSTANTS: c_620 TYPE char3 VALUE '620',
c_47 TYPE char2 VALUE '47'.
* << Fim da inclusão
CONTROLS: tc_faturas TYPE TABLEVIEW USING SCREEN '0100'.
DATA: wa_cols TYPE cxtab_column.
DATA: v_campo(20),
* >> Início da exclusão:
v_valor(20),
* << Fim da exclusão
* >> Início da inclusão:
v_valor(20),"#EC NEEDED
* << Fim da inclusão
v_index_sl LIKE sy-tabix,
* >> Início da exclusão:
v_vljur_acc LIKE /pws/zycbt005-vljur,
v_vljur_ace LIKE /pws/zycbt005-vljur.
* << Fim da exclusão
* >> Início da inclusão:
v_vljur_acc LIKE /pws/zycbt005-vljur,"#EC NEEDED
v_vljur_ace LIKE /pws/zycbt005-vljur."#EC NEEDED
* << Fim da inclusão
SELECTION-SCREEN BEGIN OF SCREEN 201 TITLE text-058.
SELECT-OPTIONS: s_nrinv FOR /pws/zycbe017-nrinvoic MODIF ID fat
MATCHCODE OBJECT /pws/zycba168,
s_gsber FOR /pws/zycbe017-gsberf MODIF ID div,
s_dtbl1 FOR /pws/zycbe017-dtbl MODIF ID dbl,
s_fkdat FOR /pws/zycbe017-fkdat MODIF ID dft,
s_kunag FOR /pws/zycbe017-kunag MODIF ID cli
MATCHCODE OBJECT debia,
s_dtven FOR /pws/zycbe017-dtvencto MODIF ID dv,
s_inco1 FOR /pws/zycbe017-inco1 MODIF ID inc,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012F01
FORM find_nrseqc.
DATA:
v_nrseqc LIKE /pws/zycbe043-nrpagto,
v_count(10) TYPE n.
* >> Início da exclusão: FORM FIND_NRSEQC
SELECT MAX( nrpagto ) INTO (v_nrseqc) FROM /pws/zycbt043.
* << Fim da exclusão
* >> Início da inclusão: FORM FIND_NRSEQC
SELECT MAX( nrpagto )
INTO (v_nrseqc)
FROM /pws/zycbt043. "#EC CI_NOWHERE
* << Fim da inclusão
v_count = v_nrseqc + 1.
/pws/zycbe043-nrpagto = v_count.
/pws/zycbe043-dtincl = sy-datum.
ENDFORM.
FORM altera_itab_zycbt044.
MOVE:
/pws/zycbe043-nrpagto TO itab_zycbt044-nrpagto,
/pws/zycbe044-nrseqc TO itab_zycbt044-nrseqc,
/pws/zycbe044-tpdesp TO itab_zycbt044-tpdesp,
/pws/zycbe044-nrparc TO itab_zycbt044-nrparc,
...
...
v_bconegoc = /pws/zycbe044-bconegoc.
ELSE.
IF v_bconegoc <> /pws/zycbe044-bconegoc.
IF NOT /pws/zycbe044-bconegoc IS INITIAL.
v_bco_dif = 'X'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycbe044-nrinvoic IS INITIAL.
* >> Início da exclusão: FORM ALTERA_ITAB_ZYCBT044
SELECT SINGLE * FROM /pws/zycbt004
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_ITAB_ZYCBT044
SELECT * FROM /pws/zycbt004
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc EQ /pws/zycbe044-nrseqc
AND tpdesp EQ /pws/zycbe044-tpdesp
AND nrparc EQ /pws/zycbe044-nrparc
AND dtliquid EQ /pws/zycbe044-dtliquid
AND tpjuros EQ /pws/zycbe044-tpjuros.
* >> Início da inclusão: FORM ALTERA_ITAB_ZYCBT044
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
MOVE:
...
...
REFRESH itab_zycbt044_verif.
SELECT * FROM /pws/zycbt044
INTO TABLE itab_zycbt044_verif
FOR ALL ENTRIES IN itab_zycbt044
WHERE nrpagto <> itab_zycbt044-nrpagto
AND nrseqc = itab_zycbt044-nrseqc
AND tpdesp = itab_zycbt044-tpdesp
AND nrparc = itab_zycbt044-nrparc
AND tpjuros = itab_zycbt044-tpjuros
AND dtincl = itab_zycbt044-dtincl
* >> Início da exclusão: FORM GRAVA_TABELAS
AND dtliquid = itab_zycbt044-dtliquid.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
AND dtliquid = itab_zycbt044-dtliquid. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
LOOP AT itab_zycbt044_verif.
* >> Início da exclusão: FORM GRAVA_TABELAS
SELECT SINGLE * FROM /pws/zycbt004
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
SELECT * FROM /pws/zycbt004
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc EQ itab_zycbt044_verif-nrseqc
AND tpdesp EQ itab_zycbt044_verif-tpdesp
AND nrparc EQ itab_zycbt044_verif-nrparc
AND tpjuros EQ itab_zycbt044_verif-tpjuros
AND dtincl EQ itab_zycbt044-dtincl
AND dtliquid EQ itab_zycbt044-dtliquid.
* >> Início da inclusão: FORM GRAVA_TABELAS
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
IF /pws/zycbt004-dtpagto EQ space OR
/pws/zycbt004-dtpagto EQ '00000000'.
MESSAGE i061 WITH text-140 itab_zycbt044_verif-nrseqc
text-141.
ELSE.
MESSAGE i061 WITH text-140 itab_zycbt044_verif-nrseqc
text-142.
ENDIF.
ENDIF.
...
...
ELSE.
MODIFY /pws/zycbt043 FROM /pws/zycbe043.
ENDIF.
MOVE /pws/zycbe043 TO wa_zycbt043.
IF wa_zycbt007-cfm = 'X'.
LOOP AT itab_zycbt044.
CLEAR wa_zycbt044_log.
PERFORM monta_log_cfm USING itab_zycbt044
'/PWS/ZYCBT044'
CHANGING wa_log.
* >> Início da exclusão: FORM GRAVA_TABELAS
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
SELECT *
* << Fim da inclusão
FROM /pws/zycbt044
* >> Início da inclusão: FORM GRAVA_TABELAS
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt044_log
WHERE nrpagto = itab_zycbt044-nrpagto
AND nrseqc = itab_zycbt044-nrseqc
AND tpdesp = itab_zycbt044-tpdesp
AND nrparc = itab_zycbt044-nrparc
AND dtincl = itab_zycbt044-dtincl
AND dtliquid = itab_zycbt044-dtliquid.
* >> Início da inclusão: FORM GRAVA_TABELAS
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'A'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'C'.
ENDIF.
ENDLOOP.
...
...
SELECT *
FROM /pws/zycbt044
INTO wa_zycbt044_log
WHERE tpdesp = itab_zycbt044_del-tpdesp
AND nrparc = itab_zycbt044_del-nrparc
AND dtvencto = itab_zycbt044_del-dtvencto
AND waers = itab_zycbt044_del-waers
AND vlme = itab_zycbt044_del-vlme
AND nrcontr = itab_zycbt044_del-nrcontr
AND nrinvoic = itab_zycbt044_del-nrinvoic
* >> Início da exclusão: FORM GRAVA_TABELAS
AND dtliquid = itab_zycbt044_del-dtliquid.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
AND dtliquid = itab_zycbt044_del-dtliquid. "#EC CI_NOFIRST
* << Fim da inclusão
PERFORM monta_log_cfm USING wa_zycbt044_log
'/PWS/ZYCBT044'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'E'.
ENDSELECT.
ENDIF.
DELETE FROM /pws/zycbt044
WHERE tpdesp = itab_zycbt044_del-tpdesp
AND nrparc = itab_zycbt044_del-nrparc
AND dtvencto = itab_zycbt044_del-dtvencto
AND waers = itab_zycbt044_del-waers
AND vlme = itab_zycbt044_del-vlme
AND nrcontr = itab_zycbt044_del-nrcontr
AND nrinvoic = itab_zycbt044_del-nrinvoic
AND nrparcf = itab_zycbt044_del-nrparcf
AND dtliquid = itab_zycbt044_del-dtliquid
* >> Início da exclusão: FORM GRAVA_TABELAS
AND tpjuros = itab_zycbt044_del-tpjuros.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
AND tpjuros = itab_zycbt044_del-tpjuros. "#EC CI_NOFIRST
* << Fim da inclusão
DELETE itab_zycbt044_del.
CLEAR itab_zycbt044_del.
ENDLOOP.
MOVE itab_zycbt044[] TO itab_zycbt044_aux[].
* >> Início da exclusão: FORM GRAVA_TABELAS
MESSAGE s205.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
MESSAGE s205. "#EC *
* << Fim da inclusão
SET PARAMETER ID '/PWS/ZYCBP001' FIELD /pws/zycbe043-nrpagto.
LEAVE TO TRANSACTION '/PWS/ZYCB012_E' AND SKIP FIRST SCREEN.
ENDFORM.
FORM exibe_modifca.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD'
FIELD '/PWS/ZYCB012_A'.
IF sy-subrc = 0.
IF v_status = space.
v_status = 'X'.
...
...
LOOP AT tc_juros-cols INTO wa_cols.
IF wa_cols-screen-group1 EQ 'ALT'.
wa_cols-screen-input = '1'.
MODIFY tc_juros-cols FROM wa_cols.
ELSE.
wa_cols-screen-input = '0'.
MODIFY tc_juros-cols FROM wa_cols.
ENDIF.
ENDLOOP.
ELSE.
* >> Início da exclusão: FORM EXIBE_MODIFCA
MESSAGE i120 WITH text-110.
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_MODIFCA
MESSAGE i120 WITH text-110. "#EC *
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM exclui_registro.
CLEAR v_resp.
IF v_resp IS INITIAL.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-129
text_button_1 = text-130
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-131
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
IMPORTING
answer = v_resp
EXCEPTIONS
* >> Início da exclusão: FORM EXCLUI_REGISTRO
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_REGISTRO
text_not_found = 0
OTHERS = 0.
* << Fim da inclusão
ENDIF.
IF NOT v_resp EQ 1.
EXIT.
ENDIF.
IF /pws/zycbe043-belnr_p IS INITIAL.
MOVE-CORRESPONDING /pws/zycbe043 TO itab_zycbt043.
APPEND itab_zycbt043.
v_nrpagto = /pws/zycbe043-nrpagto.
LOOP AT itab_zycbt043.
IF itab_zycbt043-nrpagto EQ v_nrpagto.
...
...
wa_log
'E'.
ENDIF.
DELETE /pws/zycbt044 FROM TABLE itab_zycbt044.
ENDLOOP.
EXIT.
ENDIF.
ENDLOOP.
COMMIT WORK.
IF v_check = 'X'.
* >> Início da exclusão: FORM EXCLUI_REGISTRO
MESSAGE s224 WITH v_nrpagto.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_REGISTRO
MESSAGE s224 WITH v_nrpagto. "#EC *
* << Fim da inclusão
LEAVE TO SCREEN 0.
ENDIF.
ELSE.
MESSAGE e015 WITH text-028 text-029.
ENDIF.
ENDFORM.
FORM fill_date_f-02.
IF /pws/zyglt009 IS INITIAL
AND NOT /pws/zycbt004 IS INITIAL.
SELECT SINGLE * FROM /pws/zyglt009
WHERE bukrs = /pws/zycbt004-bukrs.
ENDIF.
READ TABLE itab_zycbt044 WITH KEY tpdesp = 'J'.
* >> Início da exclusão: FORM FILL_DATE_F-02
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-02
SELECT *
* << Fim da inclusão
FROM /pws/zycbt004
* >> Início da inclusão: FORM FILL_DATE_F-02
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc EQ itab_zycbt044-nrseqc
AND tpdesp EQ itab_zycbt044-tpdesp
AND nrparc EQ itab_zycbt044-nrparc.
* >> Início da inclusão: FORM FILL_DATE_F-02
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
CONCATENATE '004' /pws/zycbt004-tpcontr INTO v_codevenj.
v_codauxj = /pws/zycbt004-tpdesp.
ELSE.
MESSAGE e015 WITH text-002.
ENDIF.
IF /pws/zyglt009-cont_rot_sep = 'N' AND
/pws/zycbt004-tpdesp = 'J' AND
( /pws/zycbt004-tpcontr(01) = 'A' OR
/pws/zycbt004-tpcontr(01) = 'E' ) .
...
...
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-02'.
itab_zycbe033-tabela = '/PWS/ZYCBT043'.
itab_zycbe033-bukrs = itab_zycbt004-bukrs.
itab_zycbe033-cpochv = /pws/zycbe043-nrpagto.
itab_zycbe033-bldat = /pws/zycbe043-dtincl.
itab_zycbe033-budat = /pws/zycbe043-dtincl.
itab_zycbe033-d_valut = /pws/zycbe043-dtincl.
itab_zycbe033-c_valut = /pws/zycbe043-dtincl.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
* >> Início da exclusão: FORM FILL_DATE_F-02
SELECT SINGLE * FROM /pws/zycbt044
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-02
SELECT * FROM /pws/zycbt044
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrpagto = /pws/zycbe043-nrpagto.
* >> Início da inclusão: FORM FILL_DATE_F-02
ENDSELECT.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt001
WHERE nrseqc = /pws/zycbt044-nrseqc.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb = 'NRPAGTO'.
...
...
CLEAR itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
* >> Início da exclusão: FORM FILL_DATE_F-02
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-02
i_codmod_nao_encontrado = 0
i_func_nao_encontrado = 0
i_zexit_nao_encontrado = 0
OTHERS = 0.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'PGJ002' 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.
...
...
MODIFY itab_zycbt044
TRANSPORTING statusp belnr_p dtpagto
WHERE nrpagto = /pws/zycbe043-nrpagto.
MODIFY /pws/zycbt043 FROM /pws/zycbe043.
IF wa_zycbt007-cfm = 'X'.
LOOP AT itab_zycbt044.
PERFORM monta_log_cfm USING itab_zycbt044
'/PWS/ZYCBT044'
CHANGING wa_log.
CLEAR wa_zycbt044_log.
* >> Início da exclusão: FORM FILL_DATE_F-02
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-02
SELECT *
* << Fim da inclusão
FROM /pws/zycbt044
* >> Início da inclusão: FORM FILL_DATE_F-02
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt044_log
WHERE nrpagto = itab_zycbt044-nrpagto
AND nrseqc = itab_zycbt044-nrseqc
AND tpdesp = itab_zycbt044-tpdesp
AND nrparc = itab_zycbt044-nrparc
AND dtincl = itab_zycbt044-dtincl
AND dtliquid = itab_zycbt044-dtliquid.
* >> Início da inclusão: FORM FILL_DATE_F-02
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'A'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'C'.
ENDIF.
ENDLOOP.
ENDIF.
MODIFY /pws/zycbt044 FROM TABLE itab_zycbt044.
LOOP AT itab_zycbt044.
* >> Início da exclusão: FORM FILL_DATE_F-02
SELECT SINGLE * FROM /pws/zycbt004
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-02
SELECT * FROM /pws/zycbt004
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc EQ itab_zycbt044-nrseqc
AND tpdesp EQ itab_zycbt044-tpdesp
AND nrparc EQ itab_zycbt044-nrparc
AND dtincl EQ itab_zycbt044-dtincl
AND dtliquid EQ itab_zycbt044-dtliquid
AND tpjuros EQ itab_zycbt044-tpjuros.
* >> Início da inclusão: FORM FILL_DATE_F-02
ENDSELECT.
* << Fim da inclusão
MOVE:
...
...
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
erro_bi = 'X'.
ENDIF.
COMMIT WORK.
ENDFORM.
FORM get_parameters_f-02.
DATA: v_bcooper LIKE /pws/zycbt043-bcooper.
PERFORM clear_date_batch.
LOOP AT itab_zycbt044 WHERE tpdesp NE 'J'.
* >> Início da exclusão: FORM GET_PARAMETERS_F-02
SELECT SINGLE * FROM /pws/zycbt004
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-02
SELECT * FROM /pws/zycbt004
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc EQ itab_zycbt044-nrseqc
AND tpdesp EQ itab_zycbt044-tpdesp
AND nrparc EQ itab_zycbt044-nrparc.
* >> Início da inclusão: FORM GET_PARAMETERS_F-02
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
CONCATENATE '004' /pws/zycbt004-tpcontr INTO v_codevend.
v_codauxd = /pws/zycbt004-tpdesp.
ENDIF.
...
...
ktosl EQ 'DSE' AND
codeven EQ '004'.
ELSE.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321 WHERE
ktosl EQ 'PVE' AND
codeven EQ '004'.
ENDIF.
ENDIF.
CLEAR wa_zycbt011.
* >> Início da exclusão: FORM GET_PARAMETERS_F-02
SELECT SINGLE * FROM /pws/zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-02
SELECT * FROM /pws/zycbt011
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt011
WHERE codeven = v_codevenj
AND codmod = 'E'.
* >> Início da inclusão: FORM GET_PARAMETERS_F-02
ENDSELECT.
* << Fim da inclusão
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codmod = 'E'.
IF /pws/zycbt004-tpcontr = 'A'.
...
...
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
APPEND itab_zycbt034.
ENDIF.
ENDFORM.
FORM busca_sequencial.
DATA: v_nrpagto1 LIKE /pws/zycbt043-nrpagto,
v_nrpagto_ant LIKE /pws/zycbt043-nrpagto,
v_count(10) TYPE n.
v_nrpagto_ant = /pws/zycbe043-nrpagto.
* >> Início da exclusão: FORM BUSCA_SEQUENCIAL
SELECT MAX( nrpagto ) INTO (v_nrpagto1) FROM /pws/zycbt043.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_SEQUENCIAL
SELECT MAX( nrpagto )
INTO (v_nrpagto1)
FROM /pws/zycbt043. "#EC CI_NOWHERE
* << Fim da inclusão
v_count = v_nrpagto1 + 1.
/pws/zycbe043-nrpagto = v_count.
itab_zycbt044-nrpagto = /pws/zycbe043-nrpagto.
MODIFY itab_zycbt044 TRANSPORTING nrpagto
WHERE nrpagto = v_nrpagto_ant.
ENDFORM.
FORM contabilizacao_f-02.
IF /pws/zycbe043-statusp IS INITIAL.
PERFORM verifica_estrategia_liberacao.
IF /pws/zycbe043-frgzu = '2'.
PERFORM fill_date_f-02.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
* >> Início da exclusão: FORM CONTABILIZACAO_F-02
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZACAO_F-02
i_codmod_nao_encontrado = 0
i_func_nao_encontrado = 0
i_zexit_nao_encontrado = 0
OTHERS = 0.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'PGJ005' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
ENDIF.
ELSEIF /pws/zycbe043-statusp EQ 'C'.
PERFORM reverse_document_fb08.
...
...
tpjuros = itab_zycbt044-tpjuros.
ENDLOOP.
CLEAR: /pws/zycbe043-frgsx1, /pws/zycbe043-frgsx2,
/pws/zycbe043-frgsx3, /pws/zycbe043-frgsx4,
/pws/zycbe043-frgsx5, /pws/zycbe043-estrat,
/pws/zycbe043-frgzu, /pws/zycbe043-bname.
MODIFY /pws/zycbt043 FROM /pws/zycbe043.
IF wa_zycbt007-cfm = 'X'.
LOOP AT itab_zycbt044.
CLEAR wa_zycbt044_log.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FB08
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
SELECT *
* << Fim da inclusão
FROM /pws/zycbt044
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt044_log
WHERE nrpagto = itab_zycbt044-nrpagto
AND nrseqc = itab_zycbt044-nrseqc
AND tpdesp = itab_zycbt044-tpdesp
AND nrparc = itab_zycbt044-nrparc
AND dtincl = itab_zycbt044-dtincl
AND dtliquid = itab_zycbt044-dtliquid.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
ENDSELECT.
* << Fim da inclusão
PERFORM monta_log_cfm USING wa_zycbt044_log
'/PWS/ZYCBT044'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'A'.
ENDLOOP.
ENDIF.
MODIFY /pws/zycbt044 FROM TABLE itab_zycbt044.
COMMIT WORK.
...
...
FORM popup_message USING value(p_textline1)
value(p_titel).
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = p_textline1
titel = p_titel
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.
* << Fim da inclusão
ENDFORM.
FORM selecionar_despesas.
DATA: v_nolin TYPE i VALUE IS INITIAL.
CLEAR: itab_zycbt044_aux2, itab_nrinvoic, itab_dtvencto,
itab_nrcontr, itab_tpdesp, itab_bconegoc, itab_dtvincul,
itab_dtpagto, itab_nrseqc, itab_zycbt005.
REFRESH: itab_zycbt044_aux2, itab_nrinvoic, itab_dtvencto,
itab_nrcontr, itab_tpdesp, itab_bconegoc, itab_dtvincul,
itab_dtpagto, itab_nrseqc, itab_zycbt005.
IF NOT /pws/zycbe044a-nrinvoic IS INITIAL.
...
...
INTO CORRESPONDING FIELDS OF TABLE itab_zycbt044_aux2
FROM /pws/zycbv044
WHERE nrinvoic IN itab_nrinvoic
AND nrseqc IN itab_nrseqc
AND tpdesp IN itab_tpdesp
AND dtvencto IN itab_dtvencto
AND bconegoc IN itab_bconegoc
AND dtvincul IN itab_dtvincul.
LOOP AT itab_zycbt044_aux2.
CHECK itab_zycbt044_aux2-tpdesp(1) EQ 'J'.
* >> Início da exclusão: FORM SELECIONAR_DESPESAS
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_DESPESAS
SELECT * FROM /pws/zycbt064
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrchave EQ itab_zycbt044_aux2-nrseqc
AND nrparc EQ itab_zycbt044_aux2-nrparc
AND tpdesp EQ itab_zycbt044_aux2-tpdesp
AND tpjuros EQ itab_zycbt044_aux2-tpjuros
AND dtliquid EQ itab_zycbt044_aux2-dtliquid.
* >> Início da inclusão: FORM SELECIONAR_DESPESAS
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM SELECIONAR_DESPESAS
SELECT SINGLE * FROM /pws/zycbt006
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_DESPESAS
SELECT * FROM /pws/zycbt006
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = itab_zycbt044_aux2-nrseqc AND
nrparc = itab_zycbt044_aux2-nrparc AND
dtvincul = itab_zycbt044_aux2-dtvincul AND
nrinvoic = itab_zycbt044_aux2-nrinvoic AND
nrparcf = itab_zycbt044_aux2-nrparcf AND
gsberf = itab_zycbt044_aux2-gsberf AND
dtpagto = itab_zycbt044_aux2-dtliquid.
* >> Início da inclusão: FORM SELECIONAR_DESPESAS
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM SELECIONAR_DESPESAS
SELECT SINGLE * FROM /pws/zycbt005
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_DESPESAS
SELECT * FROM /pws/zycbt005
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = itab_zycbt044_aux2-nrseqc AND
nrparc = itab_zycbt044_aux2-nrparc AND
dtvincul = itab_zycbt044_aux2-dtvincul AND
nrinvoic = itab_zycbt044_aux2-nrinvoic AND
gsberf = itab_zycbt044_aux2-gsberf AND
dtcredext <> ' ' AND
dtcredext <> '00000000'.
* >> Início da inclusão: FORM SELECIONAR_DESPESAS
ENDSELECT.
* << Fim da inclusão
ENDIF.
IF sy-subrc NE 0.
DELETE itab_zycbt044_aux2.
ENDIF.
ENDIF.
ENDLOOP.
DESCRIBE TABLE itab_zycbt044_aux2 LINES v_nolin.
IF v_nolin IS INITIAL.
MESSAGE i015 WITH text-027.
LEAVE TO SCREEN 0.
...
...
ENDIF.
ENDFORM.
FORM verifica_periodo.
DATA: v_monat LIKE t001b-frpe1,
v_gjahr LIKE t001b-frye1,
v_bukrs LIKE t001-bukrs.
v_bukrs = itab_zycbt044-bukrs.
v_monat = /pws/zycbe043-dtincl+4(2).
v_gjahr = /pws/zycbe043-dtincl(4).
PERFORM ano_contabil.
* >> Início da exclusão: FORM VERIFICA_PERIODO
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PERIODO
SELECT *
* << Fim da inclusão
FROM /pws/zycbt012
* >> Início da inclusão: FORM VERIFICA_PERIODO
UP TO 1 ROWS
* << Fim da inclusão
WHERE codeven = '004A' AND
codmod = 'E' AND
chlanc = 'D' AND
tpcodaux = 'G' AND
codaux = 'J'.
* >> Início da inclusão: FORM VERIFICA_PERIODO
ENDSELECT.
* << Fim da inclusão
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = v_bukrs
i_gjahr = v_gjahr
i_koart = '+'
i_konto = /pws/zycbt012-saknr1
i_monat = v_monat
EXCEPTIONS
error_period = 1
error_period_acc = 2
...
...
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-086
textline2 = text-087
titel = text-088
IMPORTING
answer = v_modo_bi
TABLES
t_spopli = itab_modo
EXCEPTIONS
* >> Início da exclusão: FORM MODO_BATCH_INPUT
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
not_enough_answers = 0
too_much_answers = 0
too_much_marks = 0
OTHERS = 0.
* << Fim da inclusão
IF v_modo_bi EQ '1' OR v_modo_bi EQ 'A'.
v_modo_bi = 'N'.
ELSEIF v_modo_bi EQ '3'.
v_modo_bi = 'A'.
ELSEIF v_modo_bi EQ '2'.
v_modo_bi = 'E'.
ENDIF.
ENDFORM.
FORM atualiza_zycbt044.
DATA:
v_vlme LIKE /pws/zycbt044-vlme.
LOOP AT itab_zycbt044.
IF itab_zycbt044-vlme IS INITIAL.
* >> Início da exclusão: FORM ATUALIZA_ZYCBT044
SELECT SINGLE vlme FROM /pws/zycbt004
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ZYCBT044
SELECT vlme
FROM /pws/zycbt004
UP TO 1 ROWS
* << Fim da inclusão
INTO (v_vlme)
WHERE nrseqc = itab_zycbt044-nrseqc AND
tpdesp = itab_zycbt044-tpdesp AND
nrparc = itab_zycbt044-nrparc AND
dtincl = itab_zycbt044-dtincl AND
dtliquid = itab_zycbt044-dtliquid AND
tpjuros = itab_zycbt044-tpjuros.
* >> Início da inclusão: FORM ATUALIZA_ZYCBT044
ENDSELECT.
* << Fim da inclusão
MOVE v_vlme TO itab_zycbt044-vlme.
MODIFY itab_zycbt044.
CLEAR v_vlme.
ENDIF.
ENDLOOP.
ENDFORM.
FORM drill_down.
DATA: v_index_6 TYPE n,
v_date TYPE sy-datum.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCBE044-BELNR_P'.
GET CURSOR LINE v_index_6.
CHECK NOT v_index_6 IS INITIAL.
v_index_6 = tc_juros-top_line + v_index_6 - 1.
CLEAR v_valor.
READ TABLE itab_zycbt044 INDEX v_index_6.
IF sy-subrc EQ 0.
v_valor = itab_zycbt044-belnr_p.
ENDIF.
* >> Início da exclusão: FORM DRILL_DOWN
SELECT SINGLE bukrs INTO v_bukrs
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN
SELECT bukrs
INTO v_bukrs
UP TO 1 ROWS
* << Fim da inclusão
FROM /pws/zycbt004
WHERE nrseqc = itab_zycbt044-nrseqc
AND tpdesp = itab_zycbt044-tpdesp
AND nrparc = itab_zycbt044-nrparc.
* >> Início da inclusão: FORM DRILL_DOWN
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_bukrs = itab_zycbt044-bukrs.
ENDIF.
...
...
i_belnr = v_valor.
i_bukrs = v_bukrs.
v_date = /pws/zycbe043-dtincl.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = i_bukrs
v_date = v_date
IMPORTING
v_year = i_gjahr
EXCEPTIONS
* >> Início da exclusão: FORM DRILL_DOWN
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
OTHERS = 7.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN
variante_de_exercicio = 0
data_nao_encontrada = 0
empresa_nao_encontrada = 0
period_in_not_valid = 0
period_not_assigned = 0
version_undefined = 0
OTHERS = 0.
* << Fim da inclusão
SET PARAMETER ID 'BUK' FIELD i_bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD i_gjahr.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
ELSE.
MESSAGE e261(sf) WITH 'FB03'.
ENDIF.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCBE043-BELNR_P'.
READ TABLE itab_zycbt044 WITH KEY nrpagto = /pws/zycbe043-nrpagto.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM DRILL_DOWN
SELECT SINGLE bukrs INTO v_bukrs
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN
SELECT bukrs
INTO v_bukrs
UP TO 1 ROWS
* << Fim da inclusão
FROM /pws/zycbt004
WHERE nrseqc = itab_zycbt044-nrseqc
AND tpdesp = itab_zycbt044-tpdesp
AND nrparc = itab_zycbt044-nrparc.
* >> Início da inclusão: FORM DRILL_DOWN
ENDSELECT.
* << Fim da inclusão
ENDIF.
IF NOT v_valor IS INITIAL AND
NOT v_bukrs IS INITIAL.
i_belnr = v_valor.
i_bukrs = v_bukrs.
v_date = /pws/zycbe043-dtincl.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = i_bukrs
v_date = v_date
IMPORTING
v_year = i_gjahr
EXCEPTIONS
* >> Início da exclusão: FORM DRILL_DOWN
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
OTHERS = 7.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN
variante_de_exercicio = 0
data_nao_encontrada = 0
empresa_nao_encontrada = 0
period_in_not_valid = 0
period_not_assigned = 0
version_undefined = 0
OTHERS = 0.
* << Fim da inclusão
SET PARAMETER ID 'BUK' FIELD i_bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD i_gjahr.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
ELSE.
MESSAGE e261(sf) WITH 'FB03'.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM SELECIONA_FATOR_TAXA
FORM seleciona_fator_taxa CHANGING v_sai.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FATOR_TAXA
FORM seleciona_fator_taxa CHANGING v_sai. "#EC *
* << Fim da inclusão
DATA:
v_budat LIKE sy-datum,
v_codeven LIKE /pws/zycbt011-codeven.
READ TABLE itab_zycbt044 WITH KEY tpdesp = 'J'.
* >> Início da exclusão: FORM SELECIONA_FATOR_TAXA
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FATOR_TAXA
SELECT *
* << Fim da inclusão
FROM /pws/zycbt004
* >> Início da inclusão: FORM SELECIONA_FATOR_TAXA
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc EQ itab_zycbt044-nrseqc
AND tpdesp EQ itab_zycbt044-tpdesp
AND nrparc EQ itab_zycbt044-nrparc.
* >> Início da inclusão: FORM SELECIONA_FATOR_TAXA
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
CONCATENATE '004' /pws/zycbt004-tpcontr INTO v_codeven.
ENDIF.
v_budat = /pws/zycbe043-dtincl.
CLEAR wa_zycbt011.
* >> Início da exclusão: FORM SELECIONA_FATOR_TAXA
SELECT SINGLE * FROM /pws/zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FATOR_TAXA
SELECT * FROM /pws/zycbt011
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt011
WHERE codeven = v_codeven
AND codmod = 'E'.
* >> Início da inclusão: FORM SELECIONA_FATOR_TAXA
ENDSELECT.
* << Fim da inclusão
CLEAR: /pws/zycbt009-codpadr, /pws/zycbt009-kurst.
SELECT SINGLE codpadr kurst
INTO (/pws/zycbt009-codpadr, /pws/zycbt009-kurst)
FROM /pws/zycbt009
...
...
SELECT SINGLE periv FROM t001
INTO v_periv
WHERE bukrs EQ p_bukrs.
CALL FUNCTION 'DETERMINE_PERIOD'
EXPORTING
date = p_budat
version = v_periv
IMPORTING
period = p_monat
EXCEPTIONS
* >> Início da exclusão: FORM DETERMINA_PERIODO
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_PERIODO
period_in_not_valid = 0
period_not_assigned = 0
version_undefined = 0
OTHERS = 0.
* << Fim da inclusão
ENDFORM.
FORM determina_ano USING p_budat
p_bukrs
CHANGING p_ano.
CLEAR v_gjahr.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = p_bukrs
v_date = p_budat
IMPORTING
...
...
FORM popup_message_zycbt044.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'Y'
diagnosetext1 = text-113
textline1 = text-114
titel = text-115
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM POPUP_MESSAGE_ZYCBT044
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE_ZYCBT044
OTHERS = 0.
* << Fim da inclusão
IF v_answer EQ 'J'.
PERFORM exclui_registro.
ELSEIF v_answer EQ 'N'.
PERFORM exclui_zycbt044.
ENDIF.
ENDFORM.
FORM exclui_zycbt044.
v_nrpagto = /pws/zycbe043-nrpagto.
LOOP AT itab_zycbt044 WHERE nrpagto EQ v_nrpagto.
IF wa_zycbt007-cfm = 'X'.
...
...
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'E'.
ENDIF.
DELETE /pws/zycbt044 FROM TABLE itab_zycbt044.
v_check = 'X'.
ENDLOOP.
COMMIT WORK.
IF v_check = 'X'.
* >> Início da exclusão: FORM EXCLUI_ZYCBT044
MESSAGE s280.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_ZYCBT044
MESSAGE s280. "#EC *
* << Fim da inclusão
LEAVE TO SCREEN 0.
ENDIF.
ENDFORM.
FORM verifica_banco.
IF v_bco_dif EQ 'X'.
MESSAGE i061 WITH text-119 text-120 text-121.
CLEAR v_bco_dif.
ENDIF.
ENDFORM.
FORM encerra_contrato.
...
...
( sy-tcode = '/PWS/ZYCB012_C' ) OR
v_status = 'X'.
SET PARAMETER ID '/PWS/ZYCBP001' FIELD /pws/zycbe043-nrpagto.
CALL FUNCTION '/PWS/ZYCB_ENQUEUE_EZYCBT043'
EXPORTING
nrseq = /pws/zycbe043-nrpagto
EXCEPTIONS
foreign_lock = 1
system_failure = 2.
IF sy-subrc <> 0.
* >> Início da exclusão: FORM LOCK_RECORD
MESSAGE w250 WITH sy-uname.
* << Fim da exclusão
* >> Início da inclusão: FORM LOCK_RECORD
MESSAGE w250 WITH sy-uname. "#EC *
* << Fim da inclusão
SET PARAMETER ID '/PWS/ZYCBP001' FIELD /pws/zycbe043-nrpagto.
LEAVE TO TRANSACTION '/PWS/ZYCB012_E' AND SKIP FIRST SCREEN.
ENDIF.
ENDIF.
ENDFORM.
FORM grava_log USING value(p_table)
wa_data
p_oper.
CALL FUNCTION '/PWS/ZYGL_LOG_TABLE'
EXPORTING
tabname = p_table
oper = p_oper
wa_data = wa_data
progname = sy-cprog
EXCEPTIONS
* >> Início da exclusão: FORM GRAVA_LOG
table_not_found = 1
devclass_not_zy = 2
table_not_supported = 3
commit_error = 4
OTHERS = 5.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LOG
table_not_found = 0
devclass_not_zy = 0
table_not_supported = 0
commit_error = 0
OTHERS = 0.
* << Fim da inclusão
ENDFORM.
FORM unlock_record.
IF sy-tcode = '/PWS/ZYCB012_C' OR
sy-tcode = '/PWS/ZYCB012_A' OR
v_status = 'X'.
CALL FUNCTION '/PWS/ZYCB_DEQUEUE_EZYCBT043'
EXPORTING
nrseq = /pws/zycbe043-nrpagto.
ENDIF.
ENDFORM.
...
...
ktosl EQ 'DSE' AND
codeven EQ '004'.
ELSE.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321 WHERE
ktosl EQ 'PVE' AND
codeven EQ '004'.
ENDIF.
ENDIF.
CLEAR wa_zycbt011.
* >> Início da exclusão: FORM GET_PARAMETERS_F-02_AUX
SELECT SINGLE * FROM /pws/zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-02_AUX
SELECT * FROM /pws/zycbt011
* << Fim da inclusão
INTO wa_zycbt011
* >> Início da inclusão: FORM GET_PARAMETERS_F-02_AUX
UP TO 1 ROWS
* << Fim da inclusão
WHERE codeven = v_codevenj
AND codmod = 'E'.
* >> Início da inclusão: FORM GET_PARAMETERS_F-02_AUX
ENDSELECT.
* << Fim da inclusão
SELECT * FROM /pws/zycbt012
...
...
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-c_newko
'NEWKO'
text-016.
ENDFORM.
FORM monta_log_cfm USING p_dados
p_tabela
CHANGING p_wa_log.
DATA: t_prog(72) TYPE c OCCURS 1000 WITH HEADER LINE,
w_prog LIKE trdir-name.
* >> 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 exclusão: FORM MONTA_LOG_CFM
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'. "#EC PORTABLE
* << Fim da inclusã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-456 TO t_prog.
APPEND text-457 TO t_prog.
APPEND text-458 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-459 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-460 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-461 TO t_prog.
APPEND text-462 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-463 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-464 TO t_prog.
* << Fim da inclusão
APPEND ' move binary_tab(dd03l-intlen) to ' TO t_prog.
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-465 TO t_prog.
* << Fim da inclusão
APPEND ' v_tam = v_tam + dd03l-leng. ' TO t_prog.
APPEND ' endif. ' TO t_prog.
APPEND 'enddo. ' TO t_prog.
ELSE.
APPEND 'p_wa_log = p_dados. ' TO t_prog.
ENDIF.
APPEND 'endform. ' TO t_prog.
GENERATE SUBROUTINE POOL t_prog NAME w_prog.
IF sy-subrc = 0.
PERFORM log IN PROGRAM (w_prog) USING p_dados
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012I01
...
perform altera_itab_zycbt044.
clear itab_zycbt044_aux.
move itab_zycbt044 to itab_zycbt044_aux.
append itab_zycbt044_aux.
endif.
endif.
v_bukrs2 = /pws/zycbe044-bukrs.
endmodule.
module user_command_0100 input.
data:
* >> Início da exclusão: MODULE USER_COMMAND_0100
v_sai value ' '.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
v_sai VALUE ' '. "#EC *
* << Fim da inclusão
data: e_exec_okcode.
clear: r_okcode, e_exec_okcode, v_syrepid.
call method cl_gui_cfw=>dispatch.
if not r_okcode is initial.
sy-ucomm = 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 = 'E'
i_func = v_syrepid
tables
itab_zyglt100 = itab_zyglt100
exceptions
* >> Início da exclusão: MODULE USER_COMMAND_0100
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
others = 4.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
i_codmod_nao_encontrado = 0
i_func_nao_encontrado = 0
i_zexit_nao_encontrado = 0
OTHERS = 0.
* << Fim da inclusão
endif.
read table itab_zyglt100 with key zexit = 'PGJ001' 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 sy-ucomm
changing e_subrc.
if e_subrc ne 0.
exit.
...
...
endloop.
call function 'POPUP_TO_CONFIRM_WITH_MESSAGE'
exporting
defaultoption = 'Y'
diagnosetext1 = text-113
textline1 = text-132
titel = text-115
importing
answer = v_answer
exceptions
* >> Início da exclusão: MODULE USER_COMMAND_0100
others = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
OTHERS = 0.
* << Fim da inclusão
if v_answer eq 'J'.
delete itab_zycbt044 where mark = 'X'.
endif.
clear itab_zycbt044.
else.
message i015 with text-030 text-031.
endif.
when 'ESTORNO'.
if not /pws/zycbe043-belnr_p is initial.
if /pws/zycbe043-dtincl+4(2) ne sy-datum+4(2).
...
...
case okcode.
when 'ENTE'.
perform selecionar_despesas.
when 'CANCELA'.
LEAVE TO SCREEN 0.
endcase.
endmodule.
module verifica_campo_obrigatorio input.
if sy-ucomm = 'CONTAB'.
if /pws/zycbe043-kursf is initial.
* >> Início da exclusão: MODULE VERIFICA_CAMPO_OBRIGATORIO
message i103.
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFICA_CAMPO_OBRIGATORIO
MESSAGE i103. "#EC *
* << Fim da inclusão
leave to screen 100.
endif.
if /pws/zycbe043-bcooper is initial.
* >> Início da exclusão: MODULE VERIFICA_CAMPO_OBRIGATORIO
message i104.
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFICA_CAMPO_OBRIGATORIO
MESSAGE i104. "#EC *
* << Fim da inclusão
leave to screen 100.
endif.
if /pws/zycbe043-frpagto is initial.
* >> Início da exclusão: MODULE VERIFICA_CAMPO_OBRIGATORIO
message i105.
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFICA_CAMPO_OBRIGATORIO
MESSAGE i105. "#EC *
* << Fim da inclusão
leave to screen 100.
endif.
endif.
endmodule.
module atualiza_dados input.
perform atualiza_dados.
endmodule.
module verif_contrato input.
data: v_fprovisao like /pws/zycbt007-fprovisao,
v_nrseqc like /pws/zycbt001-nrseqc,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012O01
...
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/MZYCB012TOP
PROGRAM /pws/sapmzycb012 MESSAGE-ID /pws/zycbm.
INCLUDE /pws/zygli100.
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 *
* << Fim da inclusão
TABLES:
/pws/zycbt012,
* >> Início da exclusão:
/pws/zycbt005,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt005, "#EC *
* << Fim da inclusão
/pws/zycbt006,
* >> Início da exclusão:
/pws/zycbt007,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt007, "#EC *
* << Fim da inclusão
/pws/zycbt009,
/pws/zycbt039,
tcurx,
lfa1,
/pws/zyglt343,
/pws/zyglt340,
rm06b,
t16fe,
* >> Início da exclusão:
/pws/zycbt064,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt064, "#EC *
* << Fim da inclusão
/pws/zyglt009,
/pws/zycbt001.
CONTROLS:
tc_juros TYPE TABLEVIEW USING SCREEN '0100'.
DATA:
* >> Início da exclusão:
v_data like sy-datum,
* << Fim da exclusão
* >> Início da inclusão:
v_data like sy-datum, "#EC *
* << Fim da inclusão
v_ins(1) TYPE c,
v_banco LIKE lfa1-name1,
v_bconegoc LIKE /pws/zycbt005-bconegoc,
v_frpagto(35),
v_vlme LIKE /pws/zycbe044-vlme,
v_valorjmi LIKE /pws/zycbe044-vlme,
v_valorjme LIKE /pws/zycbe044-vlme,
v_valordmi LIKE /pws/zycbe044-vlme,
v_valordme LIKE /pws/zycbe044-vlme,
v_waers LIKE /pws/zycbt044-waers,
...
...
v_check,
v_codevenj LIKE /pws/zycbt011-codeven,
v_codevend LIKE /pws/zycbt011-codeven,
v_vlmeaux LIKE /pws/zycbt112-vlme,
v_codauxj LIKE /pws/zycbt012-codaux,
v_codauxd LIKE /pws/zycbt012-codaux,
v_dfact LIKE tcurr-ffact,
v_pfact LIKE tcurr-ffact,
v_ctmoeda LIKE tcurr-kurst VALUE 'M',
v_fator,
* >> Início da exclusão:
erro_bi,
* << Fim da exclusão
* >> Início da inclusão:
erro_bi, "#EC *
* << Fim da inclusão
v_modo_bi,
v_answer,
* >> Início da exclusão:
v_dbconegoc LIKE /pws/zycbt043-bconegoc,
* << Fim da exclusão
* >> Início da inclusão:
v_dbconegoc LIKE /pws/zycbt043-bconegoc, "#EC *
* << Fim da inclusão
v_cont_desp TYPE i,
v_campo(22),
v_valor(20),
v_bukrs LIKE /pws/zycbt004-bukrs,
i_belnr LIKE bkpf-belnr,
i_bukrs LIKE bkpf-bukrs,
i_gjahr LIKE bkpf-gjahr,
wa_cols TYPE cxtab_column,
v_motivo(2) TYPE c,
v_type LIKE tcurr-kurst,
* >> Início da exclusão:
v_gjahr LIKE t001b-frye1,
v_taxa LIKE tcurr-ukurs,
v_parjur(1),
* << Fim da exclusão
* >> Início da inclusão:
v_gjahr LIKE t001b-frye1, "#EC *
v_taxa LIKE tcurr-ukurs, "#EC *
v_parjur(1), "#EC *
* << Fim da inclusão
v_bco_dif(1) TYPE c,
v_kursf LIKE /pws/zycbe043-kursf,
v_tot_vlmi LIKE /pws/zycbe043-vlmi,
v_syrepid LIKE sy-repid,
v_resp,
v_lib(1) TYPE c,
v_totdep LIKE /pws/zyglt342-valorinc,
v_status,
v_erro(1) TYPE c,
* >> Início da exclusão:
v_exibe,
* << Fim da exclusão
* >> Início da inclusão:
v_exibe, "#EC *
* << Fim da inclusão
v_ktosl LIKE /pws/zyglt316-ktosl,
v_codaux1 LIKE /pws/zyglt316-codaux1,
v_codaux2 LIKE /pws/zyglt316-codaux2,
v_codaux3 LIKE /pws/zyglt316-codaux3,
v_area LIKE /pws/zycbt119-cod_area,
v_bukrs2 LIKE /pws/zycbe044-bukrs,
v_repid LIKE sy-repid,
v_codmod TYPE c VALUE 'E',
v_exit LIKE /pws/zyglt100-zexit VALUE 'JUR001',
e_subrc like sy-subrc.
...
...
DATA: END OF itab_zyglt100.
DATA: BEGIN OF itab_zycbt044_verif OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe044.
DATA: END OF itab_zycbt044_verif.
DATA: BEGIN OF itab_nrinvoic OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycbe044a-nrinvoic,
high LIKE /pws/zycbe044b-nrinvoic,
END OF itab_nrinvoic.
* >> Início da exclusão:
DATA: BEGIN OF itab_nrcontr OCCURS 1,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_nrcontr OCCURS 1, "#EC *
* << Fim da inclusão
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycbe044a-nrcontr,
high LIKE /pws/zycbe044b-nrcontr,
END OF itab_nrcontr.
DATA: BEGIN OF itab_bconegoc OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycbe044a-bconegoc,
high LIKE /pws/zycbe044b-bconegoc,
...
...
END OF itab_tpdesp.
DATA: BEGIN OF itab_modo OCCURS 0.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
DATA: BEGIN OF itab_dtvincul OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycbe044a-dtvincul,
high LIKE /pws/zycbe044b-dtvincul,
END OF itab_dtvincul.
* >> Início da exclusão:
DATA: BEGIN OF itab_dtpagto OCCURS 1,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_dtpagto OCCURS 1, "#EC *
* << Fim da inclusão
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycbe044a-dtpagto,
high LIKE /pws/zycbe044b-dtpagto,
END OF itab_dtpagto.
DATA: BEGIN OF itab_nrseqc OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycbe044a-nrseqc,
high LIKE /pws/zycbe044b-nrseqc,
* >> Início da exclusão:
END OF itab_nrseqc.
* << Fim da exclusão
* >> Início da inclusão:
END OF itab_nrseqc. "#EC *
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt005 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: END OF itab_zycbt005.
DATA: BEGIN OF itab_pf_status OCCURS 10,
fcode LIKE rsmpe-func,
END OF itab_pf_status.
DATA: wa_zycbt044_log LIKE /pws/zycbt044,
wa_log TYPE char4000.
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
* >> Início da inclusão:
DATA: t_sydes TYPE sydes_desc, "#EC *
wa_types TYPE sydes_typeinfo, "#EC *
v_len TYPE i. "#EC *
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012X01
tables:
/pws/zycbt004,
* >> Início da exclusão:
/pws/zycbt043, /pws/zycbe043,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt043, /pws/zycbe043, "#EC *
* << Fim da inclusão
/pws/zycbt044, /pws/zycbe044,
/pws/zycbe044a,
/pws/zycbe044b.
DATA: BEGIN OF COMMON PART c.
DATA: v_contabiliza type c,
okcode like sy-ucomm.
DATA: BEGIN OF itab_zycbt044 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe044.
DATA: END OF itab_zycbt044.
data : begin of itab_zycbt043 occurs 10.
include structure /pws/zycbt043.
data : end of itab_zycbt043.
* >> Início da exclusão:
data : wa_zycbt043 like /pws/zycbt043.
* << Fim da exclusão
* >> Início da inclusão:
DATA : wa_zycbt043 LIKE /pws/zycbt043. "#EC *
* << Fim da inclusão
DATA:
itab_zycbt034 LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,
itab_zycbt032 LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,
itab_zycbe033 LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,
itab_zycbt012 LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,
* >> Início da exclusão:
itab_zycbt004 LIKE /pws/zycbt004 OCCURS 10 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
itab_zycbt004 LIKE /pws/zycbt004 OCCURS 10 WITH HEADER LINE."#EC *
* << Fim da inclusão
DATA:
wa_zycbt007 LIKE /pws/zycbt007,
wa_zycbt011 LIKE /pws/zycbt011.
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB014F01
...
CLEAR: v_valor1,
v_valor2.
v_valor1 = /pws/zycbe061-vlme_c.
CALL FUNCTION 'CURRENCY_AMOUNT_DISPLAY_TO_SAP'
EXPORTING
currency = /pws/zycbe060-waers
amount_display = v_valor1
IMPORTING
amount_internal = v_valor2
EXCEPTIONS
* >> Início da exclusão: FORM MOVE_ZYCBE061
internal_error = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_ZYCBE061
internal_error = 0
OTHERS = 0.
* << Fim da inclusão
/pws/zycbe061-vlme_c = v_valor2.
ENDIF.
IF NOT /pws/zycbe061-vlalt IS INITIAL.
CLEAR: v_valor1,
v_valor2.
v_valor1 = /pws/zycbe061-vlalt.
CALL FUNCTION 'CURRENCY_AMOUNT_DISPLAY_TO_SAP'
EXPORTING
currency = /pws/zycbe061-waers
amount_display = v_valor1
IMPORTING
amount_internal = v_valor2
EXCEPTIONS
* >> Início da exclusão: FORM MOVE_ZYCBE061
internal_error = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_ZYCBE061
internal_error = 0
OTHERS = 0.
* << Fim da inclusão
/pws/zycbe061-vlalt = v_valor2.
ENDIF.
IF NOT /pws/zycbe061-slvinc_c IS INITIAL.
CLEAR: v_valor1,
v_valor2.
v_valor1 = /pws/zycbe061-slvinc_c.
CALL FUNCTION 'CURRENCY_AMOUNT_DISPLAY_TO_SAP'
EXPORTING
currency = /pws/zycbe061-waers
amount_display = v_valor1
IMPORTING
amount_internal = v_valor2
EXCEPTIONS
* >> Início da exclusão: FORM MOVE_ZYCBE061
internal_error = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_ZYCBE061
internal_error = 0
OTHERS = 0.
* << Fim da inclusão
/pws/zycbe061-slvinc_c = v_valor2.
ENDIF.
IF ( /pws/zycbe061-paridade NE itab_zycbt061-paridade ) OR
( /pws/zycbe061-vlalt NE itab_zycbt061-vlalt ).
CLEAR /pws/zycbe061-vlcalc.
ELSE.
IF NOT /pws/zycbe061-vlcalc IS INITIAL AND
NOT itab_zycbt061-vlcalc IS INITIAL AND
itab_zycbt061-vlcalc NE /pws/zycbe061-vlcalc.
vlcalc = /pws/zycbe061-paridade * /pws/zycbe061-vlalt.
...
...
ENDIF.
ENDLOOP.
ENDIF.
REFRESH itab_aux2_zycbt061.
CLEAR itab_aux2_zycbt061.
MOVE itab_zycbt061[] TO itab_aux2_zycbt061[].
IF sy-tcode <> '/PWS/ZYCB014_E'.
PERFORM criar_juros.
ENDIF.
IF sy-tcode = '/PWS/ZYCB014_C' AND v_troca = 'S'.
* >> Início da exclusão: FORM GRAVA_TABELAS
MESSAGE i271 WITH /pws/zycbe060-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
MESSAGE i271 WITH /pws/zycbe060-nrseq. "#EC *
* << Fim da inclusão
ENDIF.
IF sy-tcode = '/PWS/ZYCB014_C'.
* >> Início da exclusão: FORM GRAVA_TABELAS
MESSAGE i205.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
MESSAGE i205. "#EC *
* << Fim da inclusão
v_salvar = 'YES'.
ELSEIF sy-tcode = '/PWS/ZYCB014_A'.
* >> Início da exclusão: FORM GRAVA_TABELAS
MESSAGE i268 WITH /pws/zycbe060-nrcontr /pws/zycbe060-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
MESSAGE i268 WITH /pws/zycbe060-nrcontr /pws/zycbe060-nrseq."#EC *
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM exibir.
SET PF-STATUS '0100_E' EXCLUDING 'SAVE'.
LOOP AT SCREEN.
screen-input = 0.
MODIFY SCREEN.
ENDLOOP.
IF sy-tcode = '/PWS/ZYCB014_A'.
SET PF-STATUS '0100_A'.
...
...
LOOP AT tc_itens-cols INTO wa_cols.
wa_cols-screen-input = 1.
IF wa_cols-screen-group2 = 'TRA'.
wa_cols-screen-input = 0.
ENDIF.
MODIFY tc_itens-cols FROM wa_cols.
ENDLOOP.
ENDFORM.
FORM criar.
IF sy-tcode = '/PWS/ZYCB014_A'.
* >> Início da exclusão: FORM CRIAR
SELECT SINGLE * FROM /pws/zycbt002
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR
SELECT * FROM /pws/zycbt002
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = /pws/zycbe060a-nrseq AND
tpparc = 'P' AND
belnr NE '0000000000' AND
belnr NE ' ' AND
belnr NE 0.
* >> Início da inclusão: FORM CRIAR
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0.
v_exibe = 'YES'.
...
...
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDFORM.
FORM valida_informacoes.
CLEAR itab_zycbt061.
LOOP AT itab_zycbt061.
IF itab_zycbt061-vlcalc_orig <= 0.
MESSAGE i061 WITH text-043 itab_zycbt061-nrseq_c.
* >> Início da exclusão: FORM VALIDA_INFORMACOES
MESSAGE i270 WITH itab_zycbt061-nrseq_c.
* << Fim da exclusão
* >> Início da inclusão: FORM VALIDA_INFORMACOES
MESSAGE i270 WITH itab_zycbt061-nrseq_c. "#EC *
* << Fim da inclusão
v_flag = 'NO'.
EXIT.
ELSE.
IF itab_zycbt061-vlalt IS INITIAL.
MESSAGE i061 WITH text-056 text-057 itab_zycbt061-nrseq_c.
v_flag = 'NO'.
ENDIF.
IF itab_zycbt061-vlalt > itab_zycbt061-vlcalc_orig.
MESSAGE i015 WITH text-041 text-042.
v_flag = 'NO'.
ENDIF.
ENDIF.
IF itab_zycbt061-paridade IS INITIAL OR
itab_zycbt061-paridade <= 0.
* >> Início da exclusão: FORM VALIDA_INFORMACOES
MESSAGE i237 WITH itab_zycbt061-nrcontr_c.
* << Fim da exclusão
* >> Início da inclusão: FORM VALIDA_INFORMACOES
MESSAGE i237 WITH itab_zycbt061-nrcontr_c. "#EC *
* << Fim da inclusão
v_flag = 'NO'.
ENDIF.
ENDLOOP.
IF /pws/zycbe060-waers IS INITIAL.
* >> Início da exclusão: FORM VALIDA_INFORMACOES
MESSAGE i267.
* << Fim da exclusão
* >> Início da inclusão: FORM VALIDA_INFORMACOES
MESSAGE i267. "#EC *
* << Fim da inclusão
v_flag = 'NO'.
ENDIF.
IF /pws/zycbe060-dtent IS INITIAL OR
/pws/zycbe060-dtliquid IS INITIAL.
MESSAGE i061 WITH text-053 text-054 text-055.
v_flag = 'NO'.
ENDIF.
IF okcode EQ 'SAVE'.
DESCRIBE TABLE itab_zycbt061 LINES v_lin.
IF v_lin < 1.
* >> Início da exclusão: FORM VALIDA_INFORMACOES
MESSAGE i236.
* << Fim da exclusão
* >> Início da inclusão: FORM VALIDA_INFORMACOES
MESSAGE i236. "#EC *
* << Fim da inclusão
v_flag = 'NO'.
ENDIF.
ENDIF.
ENDFORM.
FORM limpa_tela.
v_campo = ''.
v_valor = ''.
v_flag = ''.
CLEAR /pws/zycbe060.
CLEAR itab_zycbt061.
...
...
MOVE /pws/zycbe060 TO wa_zycbe060_aux2.
IF sy-subrc = 0 .
v_existe = 'YES'.
SELECT *
FROM /pws/zycbt061
INTO TABLE itab_zycbt061
WHERE nrseq = /pws/zycbe060-nrseq.
MOVE itab_zycbt061[] TO itab_aux_zycbt061[].
MOVE itab_zycbt061[] TO itab_aux2_zycbt061[].
IF sy-tcode = '/PWS/ZYCB014_A'.
* >> Início da exclusão: FORM LOCALIZA_REGISTRO
SELECT SINGLE * FROM /pws/zycbt002
* << Fim da exclusão
* >> Início da inclusão: FORM LOCALIZA_REGISTRO
SELECT * FROM /pws/zycbt002
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = /pws/zycbe060a-nrseq AND
tpparc = 'P' AND
belnr NE '0000000000' AND
belnr NE ' ' AND
belnr NE 0.
* >> Início da inclusão: FORM LOCALIZA_REGISTRO
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0.
v_exibe = 'YES'.
...
...
WHERE nrseq = wa_zycbt001-nrseqc.
PERFORM monta_log_cfm USING wa_zycbt061_log
'/PWS/ZYCBT061'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT061'
wa_log
'E'.
ENDSELECT.
ENDIF.
DELETE FROM /pws/zycbt061
* >> Início da exclusão: FORM ELIMINA_REGISTROS
WHERE nrseq_c = itab_aux_zycbt061-nrseq_c.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_REGISTROS
WHERE nrseq_c = itab_aux_zycbt061-nrseq_c. "#EC CI_NOFIRST
* << Fim da inclusão
v_valor = /pws/zycbt001-slvinc + itab_aux_zycbt061-vlalt.
UPDATE /pws/zycbt001 SET slvinc = v_valor
WHERE nrseqc = itab_aux_zycbt061-nrseq.
ENDIF.
ENDLOOP.
ENDFORM.
FORM calculos_itab_zycbt061.
* >> Início da exclusão: FORM CALCULOS_ITAB_ZYCBT061
DATA: v_calc1 TYPE f VALUE 0,
v_calc2 TYPE f VALUE 0,
v_calc3 LIKE /pws/zycbt060-vlme,
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULOS_ITAB_ZYCBT061
DATA: v_calc1 TYPE f VALUE 0, "#EC *
v_calc2 TYPE f VALUE 0, "#EC *
v_calc3 LIKE /pws/zycbt060-vlme, "#EC *
* << Fim da inclusão
valor(40),
campo(40),
linha TYPE i,
v_limpa_data(1),
v_tabix LIKE sy-tabix.
CLEAR: v_limpa_data.
IF sy-tcode <> '/PWS/ZYCB014_E' AND
( okcode = 'ENTE' OR
okcode = 'COMPL' OR
okcode = 'PICK' OR
...
...
CLEAR itab_prazos.
READ TABLE itab_prazos WITH KEY nrseq =
itab_zycbt061-nrseq_c.
IF itab_zycbt061-prent IS INITIAL.
IF itab_zycbt061-dtentr IS INITIAL.
v_limpa_data = 'X'.
ELSEIF /pws/zycbe060-nrca IS INITIAL AND
NOT itab_zycbt061-dtentr IS INITIAL.
v_entreg = itab_zycbt061-dtentr - /pws/zycbe060-dtdesemb.
IF v_entreg > /pws/zycbt007-limentreg.
* >> Início da exclusão: FORM CALCULOS_ITAB_ZYCBT061
MESSAGE i282 WITH /pws/zycbt007-limentreg.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULOS_ITAB_ZYCBT061
MESSAGE i282 WITH /pws/zycbt007-limentreg. "#EC *
* << Fim da inclusão
v_entreg = 0.
itab_zycbt061-dtentr = v_dtentreg.
ENDIF.
ELSEIF itab_zycbt061-dtentr < itab_zycbt061-dtcontr_c.
* >> Início da exclusão: FORM CALCULOS_ITAB_ZYCBT061
MESSAGE i283 WITH itab_zycbt061-nrseq_c text-019
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULOS_ITAB_ZYCBT061
MESSAGE i283 WITH itab_zycbt061-nrseq_c text-019 "#EC *
* << Fim da inclusão
text-020.
itab_zycbt061-dtentr = v_dtentreg.
ENDIF.
IF itab_zycbt061-dtentr < /pws/zycbe060-dtdesemb AND
NOT itab_zycbt061-dtentr IS INITIAL.
MESSAGE i283 WITH itab_zycbt061-nrseq_c text-050.
itab_zycbt061-dtentr = /pws/zycbe060-dtdesemb.
ENDIF.
IF NOT itab_zycbt061-dtentr IS INITIAL.
itab_zycbt061-prent = itab_zycbt061-dtentr -
...
...
IF itab_zycbt061-prent GT /pws/zycbt007-limentreg.
CLEAR itab_zycbt061-prent.
MESSAGE i282 WITH /pws/zycbt007-limentreg.
ELSE.
itab_zycbt061-dtentr = /pws/zycbe060-dtdesemb +
itab_zycbt061-prent.
ENDIF.
ENDIF.
IF NOT itab_zycbt061-prliq IS INITIAL.
IF itab_zycbt061-prliq < itab_zycbt061-prent.
* >> Início da exclusão: FORM CALCULOS_ITAB_ZYCBT061
MESSAGE i288 WITH itab_zycbt061-nrseq_c.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULOS_ITAB_ZYCBT061
MESSAGE i288 WITH itab_zycbt061-nrseq_c. "#EC *
* << Fim da inclusão
itab_zycbt061-prliq = itab_zycbt061-prent.
ENDIF.
ENDIF.
IF NOT itab_zycbt061-dtliquid IS INITIAL.
IF itab_zycbt061-dtliquid < itab_zycbt061-dtentr.
* >> Início da exclusão: FORM CALCULOS_ITAB_ZYCBT061
MESSAGE i285 WITH itab_zycbt061-nrseq_c text-051.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULOS_ITAB_ZYCBT061
MESSAGE i285 WITH itab_zycbt061-nrseq_c text-051. "#EC *
* << Fim da inclusão
itab_zycbt061-dtliquid = itab_zycbt061-dtentr.
ENDIF.
ENDIF.
IF itab_zycbt061-prliq IS INITIAL.
IF itab_zycbt061-dtliquid IS INITIAL.
v_limpa_data = 'X'.
ELSEIF /pws/zycbe060-nrca IS INITIAL AND
NOT itab_zycbt061-dtliquid IS INITIAL.
v_liquid = itab_zycbt061-dtliquid - /pws/zycbe060-dtdesemb.
IF v_liquid > /pws/zycbt007-limliquid.
* >> Início da exclusão: FORM CALCULOS_ITAB_ZYCBT061
MESSAGE i286 WITH /pws/zycbt007-limliquid.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULOS_ITAB_ZYCBT061
MESSAGE i286 WITH /pws/zycbt007-limliquid. "#EC *
* << Fim da inclusão
v_liquid = 0.
itab_zycbt061-dtliquid = v_dtliquid.
ENDIF.
ELSEIF itab_zycbt061-dtliquid <
itab_zycbt061-dtcontr_c.
MESSAGE i285 WITH itab_zycbt061-nrseq_c text-019
text-020.
itab_zycbt061-dtliquid = v_dtliquid.
ENDIF.
IF NOT itab_zycbt061-dtliquid IS INITIAL.
...
...
CLEAR /pws/zycbe060a.
MESSAGE i269 WITH v_nrcontr.
LEAVE TO SCREEN '0001'.
ENDIF.
ENDFORM.
FORM verifica_contabilizacao.
SELECT SINGLE * FROM /pws/zycbt001
WHERE nrseqc = /pws/zycbe060-nrseq.
IF sy-subrc = 0 AND /pws/zycbt001-status = 'C'.
v_contabilizado = 'YES'.
* >> Início da exclusão: FORM VERIFICA_CONTABILIZACAO
MESSAGE i272 WITH text-015 text-016.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CONTABILIZACAO
MESSAGE i272 WITH text-015 text-016. "#EC *
* << Fim da inclusão
EXIT.
ENDIF.
ENDFORM.
FORM grava_zycbt001.
CLEAR /pws/zycbt001.
MOVE: /pws/zycbe060-nrseq TO /pws/zycbt001-nrseqc,
/pws/zycbe060-nrcontr TO /pws/zycbt001-nrcontr,
/pws/zycbe060-bukrs TO /pws/zycbt001-bukrs,
/pws/zycbt007-gsber TO /pws/zycbt001-gsber,
/pws/zycbe060-tpcontr TO /pws/zycbt001-tpcontr,
...
...
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT061'
wa_log
'A'.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM tratamento_nrseq.
* >> Início da exclusão: FORM TRATAMENTO_NRSEQ
DATA: v_nrseq_ant LIKE /pws/zycbt112-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATAMENTO_NRSEQ
DATA: v_nrseq_ant LIKE /pws/zycbt112-nrseq. "#EC *
* << Fim da inclusão
v_continua = 'S'.
v_nrseq_ant = /pws/zycbe060-nrseq.
CLEAR wa_zycbt001.
IF sy-tcode EQ '/PWS/ZYCB014_C'.
WHILE v_continua = 'S'.
SELECT SINGLE *
FROM /pws/zycbt001 INTO wa_zycbt001
WHERE nrseqc = /pws/zycbe060-nrseq.
IF sy-subrc = 0.
PERFORM find_nrseq.
...
...
CLEAR itab_zycbt062.
REFRESH itab_zycbt062.
CLEAR itab_zycbt061.
SELECT *
FROM /pws/zycbt062
INTO TABLE itab_zycbt062
FOR ALL ENTRIES IN itab_zycbt061
WHERE nrseq = itab_zycbt061-nrseq
AND nrseq_c = itab_zycbt061-nrseq_c.
IF itab_zycbt062[] IS INITIAL.
* >> Início da exclusão: FORM EXIBIR_JUROS
MESSAGE i284 WITH /pws/zycbe060-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBIR_JUROS
MESSAGE i284 WITH /pws/zycbe060-nrseq. "#EC *
* << Fim da inclusão
ELSE.
CALL SCREEN '0200'.
ENDIF.
ENDFORM.
FORM alterar_juros.
CLEAR itab_zycbt062.
REFRESH itab_zycbt062.
CLEAR itab_zycbt061.
SELECT *
FROM /pws/zycbt062
...
...
day_attributes = itab_period
EXCEPTIONS
factory_calendar_not_found = 1
holiday_calendar_not_found = 2
date_has_invalid_format = 3
date_inconsistency = 4
OTHERS = 5.
IF sy-subrc NE 0.
EXIT.
ENDIF.
* >> Início da exclusão: FORM DATE_CONSISTENCY
READ TABLE itab_period WITH KEY weekday = 6.
* << Fim da exclusão
* >> Início da inclusão: FORM DATE_CONSISTENCY
READ TABLE itab_period WITH KEY weekday = 6. "#EC *
* << Fim da inclusão
IF sy-subrc EQ 0.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-032
text_question = text-033
text_button_1 = text-034
icon_button_1 = text-035
text_button_2 = text-036
icon_button_2 = text-037
default_button = '1'
...
...
answer = v_confirm.
IF v_confirm EQ '1'.
PERFORM antecipar_dt_desem.
ELSEIF v_confirm EQ '2'.
PERFORM adiar_dt_desem.
ELSEIF v_confirm EQ 'A'.
MESSAGE e015 WITH text-033.
EXIT.
ENDIF.
ELSE.
* >> Início da exclusão: FORM DATE_CONSISTENCY
READ TABLE itab_period WITH KEY weekday = 7.
* << Fim da exclusão
* >> Início da inclusão: FORM DATE_CONSISTENCY
READ TABLE itab_period WITH KEY weekday = 7. "#EC *
* << Fim da inclusão
IF sy-subrc EQ 0.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-032
text_question = text-038
text_button_1 = text-034
icon_button_1 = text-035
text_button_2 = text-036
icon_button_2 = text-037
default_button = '1'
...
...
REFRESH: itab_period.
CALL FUNCTION 'DAY_ATTRIBUTES_GET'
EXPORTING
factory_calendar = /pws/zycbt007-hcalidbr
holiday_calendar = /pws/zycbt007-hcalidbr
date_from = /pws/zycbe060-dtdesemb
date_to = /pws/zycbe060-dtdesemb
language = sy-langu
TABLES
day_attributes = itab_period.
* >> Início da exclusão: FORM ANTECIPAR_DT_DESEM
READ TABLE itab_period WITH KEY weekday = 6.
* << Fim da exclusão
* >> Início da inclusão: FORM ANTECIPAR_DT_DESEM
READ TABLE itab_period WITH KEY weekday = 6. "#EC *
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM ANTECIPAR_DT_DESEM
READ TABLE itab_period WITH KEY weekday = 7.
* << Fim da exclusão
* >> Início da inclusão: FORM ANTECIPAR_DT_DESEM
READ TABLE itab_period WITH KEY weekday = 7. "#EC *
* << Fim da inclusão
IF sy-subrc NE 0.
v_sair_fadc = 'S'.
LOOP AT itab_period.
...
...
REFRESH: itab_period.
CALL FUNCTION 'DAY_ATTRIBUTES_GET'
EXPORTING
factory_calendar = /pws/zycbt007-hcalidbr
holiday_calendar = /pws/zycbt007-hcalidbr
date_from = /pws/zycbe060-dtdesemb
date_to = /pws/zycbe060-dtdesemb
language = sy-langu
TABLES
day_attributes = itab_period.
* >> Início da exclusão: FORM ADIAR_DT_DESEM
READ TABLE itab_period WITH KEY weekday = 6.
* << Fim da exclusão
* >> Início da inclusão: FORM ADIAR_DT_DESEM
READ TABLE itab_period WITH KEY weekday = 6. "#EC *
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM ADIAR_DT_DESEM
READ TABLE itab_period WITH KEY weekday = 7.
* << Fim da exclusão
* >> Início da inclusão: FORM ADIAR_DT_DESEM
READ TABLE itab_period WITH KEY weekday = 7. "#EC *
* << Fim da inclusão
IF sy-subrc NE 0.
v_sair_fadc = 'S'.
LOOP AT itab_period.
...
...
ENDLOOP.
ENDIF.
ENDIF.
ENDDO.
ENDFORM.
FORM salva_juros.
DATA: v_salvou(1),
v_data_ant LIKE sy-datum.
CLEAR v_salvou.
LOOP AT itab_zycbt062.
* >> Início da exclusão: FORM SALVA_JUROS
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_JUROS
SELECT *
* << Fim da inclusão
FROM /pws/zycbt004
* >> Início da inclusão: FORM SALVA_JUROS
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = itab_zycbt062-nrseq_c AND
tpdesp = 'J' AND
nrparc = 0 AND
dtincl = itab_zycbt062-dtincl.
* >> Início da inclusão: FORM SALVA_JUROS
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
IF NOT /pws/zycbt004-dtpagto IS INITIAL.
CONTINUE.
ENDIF.
ENDIF.
CLEAR v_data_ant.
SELECT SINGLE dtincl
FROM /pws/zycbt062
INTO (v_data_ant)
WHERE nrseq EQ itab_zycbt062-nrseq AND
...
...
IF p_pre IS INITIAL OR p_acc IS INITIAL.
sy-subrc = 1.
EXIT.
ENDIF.
SELECT SINGLE *
FROM /pws/zycbt062
INTO v_wa_zycbt062
WHERE nrseq EQ p_pre AND
nrseq_c EQ p_acc.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM TEM_JUROS_PAGO
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM TEM_JUROS_PAGO
SELECT *
* << Fim da inclusão
FROM /pws/zycbt004
* >> Início da inclusão: FORM TEM_JUROS_PAGO
UP TO 1 ROWS
* << Fim da inclusão
INTO v_wa_zycbt004
WHERE nrseqc = v_wa_zycbt062-nrseq_c AND
tpdesp = 'J' AND
nrparc = 0 AND
dtincl = v_wa_zycbt062-dtfinal.
* >> Início da inclusão: FORM TEM_JUROS_PAGO
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
IF v_wa_zycbt004-dtpagto IS INITIAL.
subrc = 1.
ELSE.
subrc = 0.
ENDIF.
ELSE.
subrc = 1.
ENDIF.
ELSE.
...
...
FORM verifica_juros_pago USING p_nrseq
p_nrseq_c.
DATA: wa_zycbt062_juros LIKE /pws/zycbt062,
wa_zycbt004_juros LIKE /pws/zycbt004.
SELECT SINGLE *
FROM /pws/zycbt062
INTO wa_zycbt062_juros
WHERE nrseq EQ p_nrseq AND
nrseq_c EQ p_nrseq_c.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM VERIFICA_JUROS_PAGO
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_JUROS_PAGO
SELECT *
* << Fim da inclusão
FROM /pws/zycbt004
* >> Início da inclusão: FORM VERIFICA_JUROS_PAGO
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt004_juros
WHERE nrseqc EQ wa_zycbt062_juros-nrseq_c AND
tpdesp EQ 'J' AND
nrparc EQ 0 AND
dtincl EQ wa_zycbt062_juros-dtincl.
* >> Início da inclusão: FORM VERIFICA_JUROS_PAGO
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
IF wa_zycbt004_juros-dtpagto IS INITIAL.
sy-subrc = 4.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM exclui_zycbt004 USING p_nrseq
p_nrseq_c.
DATA: wa_zycbt062_juros LIKE /pws/zycbt062.
SELECT SINGLE *
FROM /pws/zycbt062
INTO wa_zycbt062_juros
WHERE nrseq EQ p_nrseq AND
nrseq_c EQ p_nrseq_c.
IF sy-subrc EQ 0.
IF /pws/zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM EXCLUI_ZYCBT004
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_ZYCBT004
SELECT *
* << Fim da inclusão
FROM /pws/zycbt004
* >> Início da inclusão: FORM EXCLUI_ZYCBT004
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt004_log
WHERE nrseqc = wa_zycbt062_juros-nrseq_c
AND tpdesp = 'J'
AND nrparc = 0
AND dtincl = wa_zycbt062_juros-dtincl.
* >> Início da inclusão: FORM EXCLUI_ZYCBT004
ENDSELECT.
* << Fim da inclusão
PERFORM monta_log_cfm USING wa_zycbt004_log
'/PWS/ZYCBT004'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT004'
wa_log
'E'.
ENDIF.
DELETE FROM /pws/zycbt004
WHERE nrseqc EQ wa_zycbt062_juros-nrseq_c AND
tpdesp EQ 'J' AND
...
...
PERFORM dt_prorrogacoes.
MODIFY itab_zycbt061 INDEX tc_itens-current_line
TRANSPORTING sldesen vlcalc_orig paridade.
ELSE.
MESSAGE i222.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM preenche_dados.
* >> Início da exclusão: FORM PREENCHE_DADOS
DATA: v_calc1 TYPE f VALUE 0,
v_calc2 TYPE f VALUE 0.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_DADOS
DATA: v_calc1 TYPE f VALUE 0, "#EC *
v_calc2 TYPE f VALUE 0. "#EC *
* << Fim da inclusão
MOVE: itab_zycbt061-nrseq_c TO /pws/zycbe061-nrseq_c,
itab_zycbt061-nrcontr_c TO /pws/zycbe061-nrcontr_c,
itab_zycbt061-tpcontr_c TO /pws/zycbe061-tpcontr_c,
itab_zycbt061-bukrs_c TO /pws/zycbe061-bukrs_c,
itab_zycbt061-waers_c TO /pws/zycbe061-waers_c,
itab_zycbt061-vlme_c TO /pws/zycbe061-vlme_c,
* >> Início da exclusão: FORM PREENCHE_DADOS
itab_zycbt061-slvinc_c TO /pws/zycbe061-slvinc_c,
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_DADOS
itab_zycbt061-slvinc_c TO /pws/zycbe061-slvinc_c, "#EC *
* << Fim da inclusão
itab_zycbt061-vlalt TO /pws/zycbe061-vlalt,
itab_zycbt061-paridade TO /pws/zycbe061-paridade,
itab_zycbt061-waers TO /pws/zycbe061-waers,
itab_zycbt061-vlcalc TO /pws/zycbe061-vlcalc,
itab_zycbt061-dtcontr_c TO /pws/zycbe061-dtcontr_c,
itab_zycbt061-dtcred_c TO /pws/zycbe061-dtcred_c,
itab_zycbt061-dtentr_c TO /pws/zycbe061-dtentr_c,
itab_zycbt061-dtentr TO /pws/zycbe061-dtentr,
itab_zycbt061-prent TO /pws/zycbe061-prent,
itab_zycbt061-dtliquid_c TO /pws/zycbe061-dtliquid_c,
...
...
/pws/zycbe061-nrseq_c.
IF sy-subrc EQ 0.
LOOP AT SCREEN.
screen-input = 0.
MODIFY SCREEN.
ENDLOOP.
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
ENDFORM.
FORM monta_log_cfm USING p_dados
p_tabela
CHANGING p_wa_log.
DATA: t_prog(72) TYPE c OCCURS 1000 WITH HEADER LINE,
w_prog LIKE trdir-name.
* >> 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 exclusão: FORM MONTA_LOG_CFM
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'. "#EC PORTABLE
* << Fim da inclusã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-456 TO t_prog.
APPEND text-457 TO t_prog.
APPEND text-458 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-459 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-460 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-461 TO t_prog.
APPEND text-462 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-463 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-464 TO t_prog.
* << Fim da inclusão
APPEND ' move binary_tab(dd03l-intlen) to ' TO t_prog.
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-465 TO t_prog.
* << Fim da inclusão
APPEND ' v_tam = v_tam + dd03l-leng. ' TO t_prog.
APPEND ' endif. ' TO t_prog.
APPEND 'enddo. ' TO t_prog.
ELSE.
APPEND 'p_wa_log = p_dados. ' TO t_prog.
ENDIF.
APPEND 'endform. ' TO t_prog.
GENERATE SUBROUTINE POOL t_prog NAME w_prog.
IF sy-subrc = 0.
PERFORM log IN PROGRAM (w_prog) USING p_dados
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB014I01
MODULE user_command_0100 INPUT.
v_incl = 0.
DATA: e_subrc LIKE sy-subrc,
* >> Início da exclusão: MODULE USER_COMMAND_0100
e_exec_okcode.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
e_exec_okcode. "#EC *
* << Fim da inclusão
CLEAR: r_okcode, e_exec_okcode, v_syrepid.
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 = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
* >> Início da exclusão: MODULE USER_COMMAND_0100
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
i_codmod_nao_encontrado = 0
i_func_nao_encontrado = 0
i_zexit_nao_encontrado = 0
OTHERS = 0.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LAP001' 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.
...
...
MESSAGE i061 WITH text-030
itab_aux2_zycbt061-nrseq_c
text-049.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
IF v_contabilizado = 'NO'.
PERFORM atualiza.
PERFORM elimina_processo.
* >> Início da exclusão: MODULE USER_COMMAND_0100
MESSAGE i269 WITH v_nrcontr.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
MESSAGE i269 WITH v_nrcontr. "#EC *
* << Fim da inclusão
ENDIF.
ENDIF.
WHEN 'CLEAR'.
PERFORM limpa_tela.
WHEN 'BACK'.
IF sy-tcode = '/PWS/ZYCB014_A' OR
sy-tcode = '/PWS/ZYCB014_C'.
PERFORM verifica_dados.
PERFORM salvar_dados.
ENDIF.
...
...
CLEAR: itab_zycbt061_aux,
itab_prazos.
ENDMODULE.
MODULE date_consistency INPUT.
PERFORM date_consistency.
ENDMODULE.
MODULE verifica_dt_incl INPUT.
IF /pws/zycbe062-dtincl IS INITIAL.
MESSAGE e015 WITH text-046.
ENDIF.
* >> Início da exclusão: MODULE VERIFICA_DT_INCL
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFICA_DT_INCL
SELECT *
* << Fim da inclusão
FROM /pws/zycbt004
* >> Início da inclusão: MODULE VERIFICA_DT_INCL
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = /pws/zycbe062-nrseq_c AND
tpdesp = 'J' AND
nrparc = 0 AND
dtincl = /pws/zycbe062-dtincl.
* >> Início da inclusão: MODULE VERIFICA_DT_INCL
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE *
FROM /pws/zycbt062
INTO wa_zycbt062_aux
WHERE nrseq_c EQ /pws/zycbe062-nrseq_c AND
nrseq EQ /pws/zycbe062-nrseq.
IF sy-subrc EQ 0.
IF wa_zycbt062_aux-dtincl NE /pws/zycbe062-dtincl.
MESSAGE e015 WITH text-047 text-048.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB014O01
...
itab_zycbt062-vlme TO /pws/zycbe062-vlme,
itab_zycbt062-waers TO /pws/zycbe062-waers,
itab_zycbt062-vlmej TO /pws/zycbe062-vlmej,
itab_zycbt062-txjfixa TO /pws/zycbe062-txjfixa,
itab_zycbt062-txjvar TO /pws/zycbe062-txjvar,
itab_zycbt062-txjtotal TO /pws/zycbe062-txjtotal,
itab_zycbt062-tptxjur TO /pws/zycbe062-tptxjur,
itab_zycbt062-qtddias TO /pws/zycbe062-qtddias,
itab_zycbt062-dtincl TO /pws/zycbe062-dtincl,
itab_zycbt062-frpagto TO /pws/zycbe062-frpagto.
* >> Início da exclusão: MODULE MOVE_ITAB_ZYCBT062
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: MODULE MOVE_ITAB_ZYCBT062
SELECT *
* << Fim da inclusão
FROM /pws/zycbt004
* >> Início da inclusão: MODULE MOVE_ITAB_ZYCBT062
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = /pws/zycbe062-nrseq_c AND
tpdesp = 'J' AND
nrparc = 0 AND
dtincl = /pws/zycbe062-dtincl.
* >> Início da inclusão: MODULE MOVE_ITAB_ZYCBT062
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
IF NOT /pws/zycbt004-dtpagto IS INITIAL.
LOOP AT SCREEN.
screen-input = 0.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDIF.
ENDMODULE.
MODULE copia_itab_zycbt061 OUTPUT.
...
...
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/MZYCB014TOP
PROGRAM /pws/sapmzycb014 MESSAGE-ID /pws/zycbm.
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 *
* << Fim da inclusão
CONTROLS: tc_itens TYPE TABLEVIEW USING SCREEN 100,
tc_juros TYPE TABLEVIEW USING SCREEN 200.
TABLES: /pws/zycbt001,
/pws/zycbt002,
* >> Início da exclusão:
/pws/zycbt003,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt003, "#EC *
* << Fim da inclusão
/pws/zycbt007,
/pws/zycbt004,
indx,
* >> Início da exclusão:
tcurx.
* << Fim da exclusão
* >> Início da inclusão:
tcurx. "#EC *
* << Fim da inclusão
DATA: wa_zycbe060_aux2 LIKE /pws/zycbe060,
...
...
DATA: BEGIN OF itab_zycbt003 OCCURS 0,
nrseqc TYPE /pws/zycbt003-nrseqc,
tppror TYPE /pws/zycbt003-tppror,
dtpror TYPE /pws/zycbt003-dtpror,
END OF itab_zycbt003.
DATA: BEGIN OF itab_aux2_zycbt061 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt061.
DATA: vlcalc_orig LIKE /pws/zycbt061-vlcalc.
DATA: mark.
DATA: END OF itab_aux2_zycbt061.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt010 OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt010 OCCURS 0. "#EC *
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycbt010.
DATA: END OF itab_zycbt010.
DATA: BEGIN OF itab_pf_status OCCURS 10,
fcode LIKE rsmpe-func,
END OF itab_pf_status.
TYPE-POOLS: sydes.
* >> Início da exclusão:
DATA: t_sydes TYPE sydes_desc,
wa_types TYPE sydes_typeinfo,
v_len TYPE i.
DATA: mark,
v_lin TYPE i,
* << Fim da exclusão
* >> Início da inclusão:
DATA: t_sydes TYPE sydes_desc, "#EC *
wa_types TYPE sydes_typeinfo, "#EC *
v_len TYPE i. "#EC *
DATA: mark, "#EC *
v_lin TYPE i, "#EC *
* << Fim da inclusão
v_nrseq LIKE /pws/zycbe060-nrseq,
* >> Início da exclusão:
v_campo(20) TYPE c,
v_valor(8) TYPE c,
* << Fim da exclusão
* >> Início da inclusão:
v_campo(20) TYPE c, "#EC *
v_valor(8) TYPE c, "#EC *
* << Fim da inclusão
v_status_s VALUE 1,
* >> Início da exclusão:
v_tot LIKE /pws/zycbt060-vlme,
* << Fim da exclusão
* >> Início da inclusão:
v_tot LIKE /pws/zycbt060-vlme,"#EC *
* << Fim da inclusão
wa_cols TYPE cxtab_column,
v_flag(3) TYPE c,
v_resp,
* >> Início da exclusão:
v_incl,
* << Fim da exclusão
* >> Início da inclusão:
v_incl, "#EC *
* << Fim da inclusão
v_sair(3) TYPE c VALUE 'NO',
v_nrcontr LIKE /pws/zycbt060-nrcontr,
* >> Início da exclusão:
v_continua ,
* << Fim da exclusão
* >> Início da inclusão:
v_continua , "#EC *
* << Fim da inclusão
v_empresa LIKE /pws/zycbt060-bukrs,
v_transacao LIKE shkontext-tcode,
v_incluido(3) TYPE c VALUE 'NO',
* >> Início da exclusão:
v_salvar(3) TYPE c VALUE 'NO',
* << Fim da exclusão
* >> Início da inclusão:
v_salvar(3) TYPE c VALUE 'NO', "#EC *
* << Fim da inclusão
v_cont TYPE i VALUE 0,
v_saldo LIKE /pws/zycbt061-vlalt,
v_mens(3) TYPE c VALUE 'NO',
v_existe(3) TYPE c VALUE 'NO',
v_contabilizado(3) TYPE c VALUE 'NO',
v_import(3) TYPE c VALUE 'NO',
v_exibe(3) TYPE c VALUE 'NO',
v_troca,
v_juros(3),
v_valor1 LIKE wmto_s-amount,
v_valor2 LIKE wmto_s-amount,
* >> Início da exclusão:
v_index TYPE i VALUE 0,
* << Fim da exclusão
* >> Início da inclusão:
v_index TYPE i VALUE 0, "#EC *
* << Fim da inclusão
v_entreg(5) TYPE n VALUE 0,
v_liquid(5) TYPE n VALUE 0,
v_dtliquid LIKE /pws/zycbt061-dtliquid,
v_dtentreg LIKE /pws/zycbt061-dtentr,
v_nrcontr_j LIKE /pws/zycbt001-nrcontr,
* >> Início da exclusão:
v_visivel LIKE /pws/zyglt319-visivel,
* << Fim da exclusão
* >> Início da inclusão:
v_visivel LIKE /pws/zyglt319-visivel, "#EC *
* << Fim da inclusão
v_syrepid LIKE sy-repid,
* >> Início da exclusão:
v_sydynnr LIKE sy-dynnr,
v_tcodebotao LIKE /pws/zyglt319-tcode.
* << Fim da exclusão
* >> Início da inclusão:
v_sydynnr LIKE sy-dynnr, "#EC *
v_tcodebotao LIKE /pws/zyglt319-tcode. "#EC *
* << Fim da inclusão
DATA: wa_log TYPE char4000,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB015F01
...
EXPORTING
titlebar = text-008
text_question = text-009
text_button_1 = text-010
text_button_2 = text-011
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
* >> Início da exclusão: FORM DELETA_ITENS_ITAB
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETA_ITENS_ITAB
text_not_found = 0
OTHERS = 0.
* << Fim da inclusão
ENDIF.
IF v_confirm EQ '1'.
v_sdovcontr = v_sdovcontr + itab_zycbt053-vlavinc.
/pws/zycbe052-slreserv = /pws/zycbe052-slreserv -
itab_zycbt053-vlavinc.
CLEAR: itab_zycbt053_del.
MOVE itab_zycbt053 TO itab_zycbt053_del.
APPEND itab_zycbt053_del.
DELETE itab_zycbt053 INDEX v_indicedel.
v_indicedel = v_indicedel - 1.
...
...
EXPORTING
titlebar = text-008
text_question = text-012
text_button_1 = text-010
text_button_2 = text-011
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
* >> Início da exclusão: FORM RESERVAR_DADOS
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM RESERVAR_DADOS
text_not_found = 0
OTHERS = 0.
* << Fim da inclusão
IF v_confirm EQ '1'.
PERFORM verifica_integridade.
IF itab_erros[] IS INITIAL.
PERFORM grava_tabelas.
CLEAR: wa_zycbt052_grv ,
itab_zycbt053_grv.
FREE: itab_zycbt053_grv.
MOVE /pws/zycbe052 TO wa_zycbt052_grv.
itab_zycbt053_grv[] = itab_zycbt053[].
IF v_tcode EQ '/PWS/ZYCB015_C'.
...
...
EXPORTING
titlebar = text-008
text_question = text-009
text_button_1 = text-010
text_button_2 = text-011
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
* >> Início da exclusão: FORM DELETA_ITENS_VINC
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETA_ITENS_VINC
text_not_found = 0
OTHERS = 0.
* << Fim da inclusão
ENDIF.
IF v_confirm EQ '1'.
DELETE itab_zycbt053 INDEX v_indicedel.
v_indicedel = v_indicedel - 1.
tabctrl2-lines = tabctrl2-lines - 1.
ELSEIF v_confirm EQ '2' OR v_confirm EQ 'A'.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
...
...
EXPORTING
titlebar = text-008
text_question = text-027
text_button_1 = text-010
text_button_2 = text-011
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
* >> Início da exclusão: FORM VINCULAR_SELECIONADAS
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULAR_SELECIONADAS
text_not_found = 0
OTHERS = 0.
* << Fim da inclusão
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ELSE.
MESSAGE s015 WITH text-028.
EXIT.
ENDIF.
IF v_naomarc EQ 'N'.
MESSAGE s015 WITH text-029 text-030.
...
...
EXPORTING
titlebar = text-008
text_question = v_textc
text_button_1 = text-010
text_button_2 = text-011
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_confirm
EXCEPTIONS
* >> Início da exclusão: FORM ELIMINA_RESERVA
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_RESERVA
text_not_found = 0
OTHERS = 0.
* << Fim da inclusão
IF v_confirm EQ '1'.
SELECT * FROM /pws/zycbt053 INTO TABLE itab_zycbt053_del
WHERE nrseqc = /pws/zycbe052-nrseqc
AND nrcontr = /pws/zycbe052-nrcontr.
CLEAR: v_slreser_t2, v_slreser_t.
LOOP AT itab_zycbt053_del.
CLEAR: v_vlslf_t, v_vlavinc_t.
SELECT SINGLE slreserv vlreserv
INTO (v_vlslf_t,v_vlavinc_t)
FROM /pws/zycet055
...
...
ENDIF.
ENDFORM.
FORM modificar_reserva.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD'
FIELD '/PWS/ZYCB015_A'.
IF sy-subrc = 0.
v_tcode = '/PWS/ZYCB015_A'.
v_status1 = 1.
ELSE.
* >> Início da exclusão: FORM MODIFICAR_RESERVA
MESSAGE i120 WITH text-040.
* << Fim da exclusão
* >> Início da inclusão: FORM MODIFICAR_RESERVA
MESSAGE i120 WITH text-040. "#EC *
* << Fim da inclusão
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB015I01
...
WHEN 'ENTE'.
PERFORM trata_itab.
WHEN 'SAVE'.
PERFORM reservar_dados.
WHEN 'MODI'.
PERFORM modificar_reserva.
WHEN 'SPEC'.
IF NOT v_tcodebotao IS INITIAL.
CALL TRANSACTION v_tcodebotao.
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_0003
CALL CUSTOMER-FUNCTION '001'.
* << Fim da exclusão
ENDIF.
ENDCASE.
CLEAR: ok_code.
ENDMODULE.
MODULE user_command_0003_ex INPUT.
CASE ok_code.
WHEN 'ABORT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.
...
...
WHEN 'DALL'.
PERFORM desmarca_itens.
WHEN 'DELE'.
PERFORM deleta_itens_vinc.
WHEN 'VINC'.
PERFORM vincular_selecionadas.
WHEN 'SPEC'.
IF NOT v_tcodebotao IS INITIAL.
CALL TRANSACTION v_tcodebotao.
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_0006
CALL CUSTOMER-FUNCTION '002'.
* << Fim da exclusão
ENDIF.
ENDCASE.
CLEAR ok_code.
ENDMODULE.
MODULE user_command_0006_ex INPUT.
CASE ok_code.
WHEN 'ABORT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB015TOP
program /pws/sapmzycb015 message-id /pws/zycbm.
* >> Início da exclusão:
tables: indx ,
/pws/zycbe001,
/pws/zycbt001,
/pws/zycbt017,
/pws/zycee055,
/pws/zycet055,
/pws/zycbe052,
/pws/zycbt052,
/pws/zycbe053,
/pws/zycbt053.
* << Fim da exclusão
* >> Início da inclusão:
tables: indx , "#EC *
/pws/zycbe001,"#EC *
/pws/zycbt001,"#EC *
/pws/zycbt017,"#EC *
/pws/zycee055,"#EC *
/pws/zycet055,"#EC *
/pws/zycbe052,"#EC *
/pws/zycbt052,"#EC *
/pws/zycbe053,"#EC *
/pws/zycbt053."#EC *
* << Fim da inclusão
controls: tabctrl1 type tableview using screen 0003,
tabctrl2 type tableview using screen 0006.
data: begin of itab_zycbt001 occurs 10.
include structure /pws/zycbt001.
data: end of itab_zycbt001.
data: begin of itab_zycet055 occurs 10.
include structure /pws/zycet055.
data: end of itab_zycet055.
data: begin of itab_zycbt052 occurs 10.
include structure /pws/zycbt052.
...
...
v_descr_tp(30) type c value space ,
v_descr_emp(30) type c value space ,
v_descr_dc(30) type c value space ,
v_descr_bcong(30) type c value space ,
v_descr_bcofn(30) type c value space ,
v_campo(20) type c ,
v_valor(20) type c ,
v_linha type i ,
v_sdoreserv like /pws/zycbe052-slreserv ,
v_sdoreserv2 like /pws/zycbe052-slreserv ,
* >> Início da exclusão:
v_apsdo(1) type c value 'S' ,
* << Fim da exclusão
* >> Início da inclusão:
v_apsdo(1) type c value 'S' ,"#EC *
* << Fim da inclusão
v_recalc(1) type c value 'N' ,
v_nrseqc like /pws/zycbe052-nrseqc ,
v_flgall(1) type c value ' ' ,
v_nrseqcimp like /pws/zycbt053-nrseqc ,
v_waers1 like /pws/zycbe052-waers ,
v_waers2 like /pws/zycbe052-waers ,
v_sdovcontr like /pws/zycbe052-slreserv ,
rimcm1 like indx-srtfd value 'NRSEQC001',
rimcm2 like indx-srtfd value 'ITABTRANS',
rimcm3 like indx-srtfd value 'ITABVINCU',
v_visivel LIKE /pws/zyglt319-visivel,
v_syrepid like sy-repid,
v_sydynnr like sy-dynnr,
v_tcodebotao like /pws/zyglt319-tcode.
data: wa_cols type cxtab_column,
wa_zycbt052_grv like /pws/zycbe052 ,
* >> Início da exclusão:
wa_zycbt053_del like /pws/zycbe053 ,
wa_zycbt053 like /pws/zycbe053 .
* << Fim da exclusão
* >> Início da inclusão:
wa_zycbt053_del like /pws/zycbe053 ,"#EC *
wa_zycbt053 like /pws/zycbe053 . "#EC *
* << Fim da inclusão
selection-screen begin of screen 0004.
select-options:
v_nrinv for /pws/zycee055-nrinvoic,
v_gsber for /pws/zycee055-gsberf ,
v_fkdat for /pws/zycee055-fkdat ,
v_kunag for /pws/zycee055-kunag ,
v_inco1 for /pws/zycee055-inco1 ,
v_nrsd for /pws/zycee055-nrsd ,
v_nrre for /pws/zycee055-nrre .
selection-screen end of screen 0004 .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB024F01
...
refresh: itab_period.
call function 'DAY_ATTRIBUTES_GET'
exporting
factory_calendar = /pws/zycbt007-hcalidbr
holiday_calendar = /pws/zycbt007-hcalidbr
date_from = /pws/zycbe217-dtcapitalizacao
date_to = /pws/zycbe217-dtcapitalizacao
language = sy-langu
tables
day_attributes = itab_period.
* >> Início da exclusão: FORM ANTECIPAR_DTCAPITALIZACAO
read table itab_period with key weekday = 6.
* << Fim da exclusão
* >> Início da inclusão: FORM ANTECIPAR_DTCAPITALIZACAO
READ TABLE itab_period WITH KEY weekday = 6."#EC *
* << Fim da inclusão
if sy-subrc ne 0.
* >> Início da exclusão: FORM ANTECIPAR_DTCAPITALIZACAO
read table itab_period with key weekday = 7.
* << Fim da exclusão
* >> Início da inclusão: FORM ANTECIPAR_DTCAPITALIZACAO
READ TABLE itab_period WITH KEY weekday = 7. "#EC *
* << Fim da inclusão
if sy-subrc ne 0.
v_sair_fadc = 'S'.
loop at itab_period.
...
...
refresh: itab_period.
call function 'DAY_ATTRIBUTES_GET'
exporting
factory_calendar = /pws/zycbt007-hcalidbr
holiday_calendar = /pws/zycbt007-hcalidbr
date_from = /pws/zycbe217-dtcapitalizacao
date_to = /pws/zycbe217-dtcapitalizacao
language = sy-langu
tables
day_attributes = itab_period.
* >> Início da exclusão: FORM ADIAR_DTCAPITALIZACAO
read table itab_period with key weekday = 6.
* << Fim da exclusão
* >> Início da inclusão: FORM ADIAR_DTCAPITALIZACAO
READ TABLE itab_period WITH KEY weekday = 6. "#EC *
* << Fim da inclusão
if sy-subrc ne 0.
* >> Início da exclusão: FORM ADIAR_DTCAPITALIZACAO
read table itab_period with key weekday = 7.
* << Fim da exclusão
* >> Início da inclusão: FORM ADIAR_DTCAPITALIZACAO
READ TABLE itab_period WITH KEY weekday = 7. "#EC *
* << Fim da inclusão
if sy-subrc ne 0.
v_sair_fadc = 'S'.
loop at itab_period.
...
...
if not itab_zycbt218[] is initial and
v_gravado ne 'X'.
call function 'POPUP_TO_CONFIRM_STEP'
exporting
defaultoption = 'Y'
textline1 = text-005
titel = text-004
importing
answer = v_resp
exceptions
* >> Início da exclusão: FORM VOLTAR_ENCERRAR
others = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM VOLTAR_ENCERRAR
OTHERS = 0.
* << Fim da inclusão
if v_resp = 'J'.
elseif v_resp = 'N'.
leave program.
endif.
else.
leave program.
endif.
endif.
endform.
form calcula_capitalizacao.
...
...
endif.
insert /pws/zycbt217 from /pws/zycbe217.
insert /pws/zycbt218 from table itab_zycbt218.
perform salva_zycbt001.
IF /pws/zycbe217-tpcontr(1) NE 'E'.
perform salva_zycbt002.
ELSE.
PERFORM dtpagto.
ENDIF.
commit work.
* >> Início da exclusão: FORM SALVAR_DADOS
message i205.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
MESSAGE i205. "#EC *
* << Fim da inclusão
v_gravado = 'X'.
itab_zycbt218_aux[] = itab_zycbt218[].
wa_zycbt217_aux = /pws/zycbe217.
elseif sy-tcode eq '/PWS/ZYCB024_A' or v_tcode eq 'A'.
read table itab_zycbt218 index 1.
if itab_zycbt218-belnr is initial.
if itab_zycbt218[] ne itab_zycbt218_aux[] or
wa_zycbt217_aux ne /pws/zycbe217.
delete from /pws/zycbt218 where nrseq = /pws/zycbe217-nrseq.
insert /pws/zycbt218 from table itab_zycbt218.
modify /pws/zycbt217 from /pws/zycbe217.
perform salva_zycbt001.
IF /pws/zycbe217-tpcontr(1) NE 'E'.
perform salva_zycbt002.
ENDIF.
commit work.
itab_zycbt218_aux[] = itab_zycbt218[].
wa_zycbt217_aux = /pws/zycbe217.
* >> Início da exclusão: FORM SALVAR_DADOS
message i251.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
MESSAGE i251."#EC *
* << Fim da inclusão
else.
* >> Início da exclusão: FORM SALVAR_DADOS
message i037.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
MESSAGE i037."#EC *
* << Fim da inclusão
endif.
if okcode eq 'LEAVE' or okcode eq 'BACK'.
leave to screen '001'.
...
...
clear: v_tcode.
call function '/PWS/ZYCB_ENQUEUE_ZYCBT217'
exporting
mandt = sy-mandt
nrseq = /pws/zycbe217-nrseq
exceptions
foreign_lock = 1
system_failure = 2.
if sy-subrc <> 0.
v_tcode = 'E'.
* >> Início da exclusão: FORM LOCK_RECORD
message i250 with sy-msgv1.
* << Fim da exclusão
* >> Início da inclusão: FORM LOCK_RECORD
MESSAGE i250 WITH sy-msgv1. "#EC *
* << Fim da inclusão
else.
v_tcode = 'A'.
endif.
read table itab_zycbt218 index 1.
if not itab_zycbt218-belnr is initial and
sy-tcode eq '/PWS/ZYCB024_E'.
message i015 with text-017 text-018.
endif.
endform.
form seleciona_dados.
...
...
read table itab_zycbt218 index 1.
if itab_zycbt218-belnr is initial.
call function 'POPUP_TO_CONFIRM_STEP'
exporting
defaultoption = 'Y'
textline1 = text-013
titel = text-004
importing
answer = v_resp
exceptions
* >> Início da exclusão: FORM DELETA_CAPITALIZACAO
others = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETA_CAPITALIZACAO
OTHERS = 0.
* << Fim da inclusão
if v_resp = 'J'.
perform dtpagto.
delete from /pws/zycbt218 where nrseq = /pws/zycbe217-nrseq.
delete from /pws/zycbt001 where nrseqc = /pws/zycbe217-nrseq.
delete from /pws/zycbt002 where nrseqc = /pws/zycbe217-nrseq.
delete from /pws/zycbt217 where nrseq = /pws/zycbe217-nrseq.
commit work.
message i018.
leave program.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB024I01
...
day_attributes = itab_period
exceptions
factory_calendar_not_found = 1
holiday_calendar_not_found = 2
date_has_invalid_format = 3
date_inconsistency = 4
others = 5.
if sy-subrc ne 0.
exit.
endif.
* >> Início da exclusão: MODULE DATE_CONSISTENCY
read table itab_period with key weekday = 6.
* << Fim da exclusão
* >> Início da inclusão: MODULE DATE_CONSISTENCY
READ TABLE itab_period WITH KEY weekday = 6."#EC *
* << Fim da inclusão
if sy-subrc eq 0.
call function 'POPUP_TO_CONFIRM'
exporting
titlebar = text-032
text_question = text-033
text_button_1 = text-034
icon_button_1 = text-035
text_button_2 = text-036
icon_button_2 = text-037
default_button = '1'
...
...
answer = v_confirm.
if v_confirm eq '1'.
perform antecipar_dtcapitalizacao.
elseif v_confirm eq '2'.
perform adiar_dtcapitalizacao.
elseif v_confirm eq 'A'.
message e015 with text-033.
exit.
endif.
else.
* >> Início da exclusão: MODULE DATE_CONSISTENCY
read table itab_period with key weekday = 7.
* << Fim da exclusão
* >> Início da inclusão: MODULE DATE_CONSISTENCY
READ TABLE itab_period WITH KEY weekday = 7. "#EC *
* << Fim da inclusão
if sy-subrc eq 0.
call function 'POPUP_TO_CONFIRM'
exporting
titlebar = text-032
text_question = text-038
text_button_1 = text-034
icon_button_1 = text-035
text_button_2 = text-036
icon_button_2 = text-037
default_button = '1'
...
...
read table itab_zycbt218 index 1.
if itab_zycbt218-belnr is initial.
call function 'POPUP_TO_CONFIRM_STEP'
exporting
defaultoption = 'Y'
textline1 = text-005
titel = text-004
importing
answer = v_resp
exceptions
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
others = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
OTHERS = 0.
* << Fim da inclusão
if v_resp = 'J'.
perform salvar_dados.
elseif v_resp = 'N'.
leave to screen '001'.
endif.
else.
leave to screen '001'.
endif.
else.
perform voltar_encerrar.
endif.
endcase.
endcase.
endmodule.
module user_command_0100 input.
okcode = sy-ucomm.
data: e_subrc like sy-subrc,
* >> Início da exclusão: MODULE USER_COMMAND_0100
e_exec_okcode.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
e_exec_okcode. "#EC *
* << Fim da inclusão
clear: r_okcode, e_exec_okcode, v_syrepid.
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 = 'E'
i_func = v_syrepid
tables
itab_zyglt100 = itab_zyglt100
exceptions
* >> Início da exclusão: MODULE USER_COMMAND_0100
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
others = 4.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
i_codmod_nao_encontrado = 0
i_func_nao_encontrado = 0
i_zexit_nao_encontrado = 0
OTHERS = 0.
* << Fim da inclusão
endif.
read table itab_zyglt100 with key zexit = 'CAP001' 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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB024O01
...
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/MZYCB024TOP
program /pws/sapmzycb024 message-id /pws/zycbm.
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 *
* << Fim da inclusão
controls: tc_cap type tableview using screen 0100.
tables:
/pws/zycbt001,
/pws/zycbt007,
/pws/zycbt002,
* >> Início da exclusão:
/pws/zycbt004.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt004. "#EC *
* << Fim da inclusão
data: begin of itab_zycbt218_aux occurs 0.
include structure /pws/zycbt218.
data: mark.
data: end of itab_zycbt218_aux.
* >> Início da exclusão:
data: begin of itab_zycbt001 occurs 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt001 OCCURS 0, "#EC *
* << Fim da inclusão
nrseqc like /pws/zycbt001-nrseqc,
waers like /pws/zycbt001-waers.
* >> Início da exclusão:
data: end of itab_zycbt001.
* << Fim da exclusão
* >> Início da inclusão:
DATA: END OF itab_zycbt001. "#EC *
* << Fim da inclusão
data: begin of itab_pf_status occurs 10,
fcode like rsmpe-func,
end of itab_pf_status.
data: begin of itab_zycbt002_aux occurs 0.
include structure /pws/zycbt002.
data: end of itab_zycbt002_aux.
data:
v_nrseq like /pws/zycbt217-nrseq,
wa_cols type cxtab_column,
* >> Início da exclusão:
v_visivel like /pws/zyglt319-visivel,
* << Fim da exclusão
* >> Início da inclusão:
v_visivel LIKE /pws/zyglt319-visivel, "#EC *
* << Fim da inclusão
v_syrepid like sy-repid,
* >> Início da exclusão:
v_sydynnr like sy-dynnr,
v_tcodebotao like /pws/zyglt319-tcode,
* << Fim da exclusão
* >> Início da inclusão:
v_sydynnr LIKE sy-dynnr, "#EC *
v_tcodebotao LIKE /pws/zyglt319-tcode, "#EC *
* << Fim da inclusão
v_resp,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB027F01
FORM busca_nrinvoic.
DATA: conta TYPE i,
* >> Início da exclusão: FORM BUSCA_NRINVOIC
gsber LIKE /pws/zycbt030-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_NRINVOIC
gsber LIKE /pws/zycbt030-gsberf. "#EC *
* << Fim da inclusão
IF NOT /pws/zycbe030-nrinvoic IS INITIAL.
IF /pws/zycbe030-gsberf IS INITIAL.
* >> Início da exclusão: FORM BUSCA_NRINVOIC
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_NRINVOIC
SELECT *
* << Fim da inclusão
FROM /pws/zycbt030
* >> Início da inclusão: FORM BUSCA_NRINVOIC
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt030
WHERE nrinvoic = /pws/zycbe030-nrinvoic AND
nrparcf = /pws/zycbe030-nrparcf AND
gsberf = /pws/zycbe030-gsberf.
* >> Início da inclusão: FORM BUSCA_NRINVOIC
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 4.
* >> Início da exclusão: FORM BUSCA_NRINVOIC
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_NRINVOIC
SELECT *
* << Fim da inclusão
FROM /pws/zycbt030
* >> Início da inclusão: FORM BUSCA_NRINVOIC
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt030
WHERE nrinvoic = /pws/zycbe030-nrinvoic
AND nrparcf = /pws/zycbe030-nrparcf.
* >> Início da inclusão: FORM BUSCA_NRINVOIC
ENDSELECT.
* << Fim da inclusão
SELECT COUNT(*)
FROM /pws/zycbt030
INTO (conta)
WHERE nrinvoic = /pws/zycbe030-nrinvoic
AND nrparcf = /pws/zycbe030-nrparcf.
IF conta GT 1.
MESSAGE i015 WITH text-033 text-034.
CLEAR: wa_zycbt030,
wa_zycbt017,
vl_trans,
vl_estor.
EXIT.
ENDIF.
ENDIF.
ELSE.
* >> Início da exclusão: FORM BUSCA_NRINVOIC
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_NRINVOIC
SELECT *
* << Fim da inclusão
FROM /pws/zycbt030
* >> Início da inclusão: FORM BUSCA_NRINVOIC
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt030
WHERE nrinvoic = /pws/zycbe030-nrinvoic AND
nrparcf = /pws/zycbe030-nrparcf AND
gsberf = /pws/zycbe030-gsberf.
* >> Início da inclusão: FORM BUSCA_NRINVOIC
ENDSELECT.
* << Fim da inclusão
ENDIF.
IF sy-subrc EQ 0.
SELECT SINGLE *
FROM /pws/zycbt017
INTO wa_zycbt017
WHERE nrinvoic = /pws/zycbe030-nrinvoic AND
nrparcf = /pws/zycbe030-nrparcf AND
gsberf = wa_zycbt030-gsberf.
/pws/zycbe030-gsberf = wa_zycbt030-gsberf.
vl_trans = wa_zycbt030-vlsltrans.
...
...
t_zycbt036 = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = transac
tabela = text-012
cpochv = /pws/zycbe030-nrinvoic
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM TRANSFERE
CALL CUSTOMER-FUNCTION '003'.
* << Fim da exclusão
wa_zycbt030-budat = budat.
wa_zycbt030-belnr6 = itab_zycbt032-belnr.
UPDATE /pws/zycbt030 SET belnr6 = wa_zycbt030-belnr6
budat = wa_zycbt030-budat
WHERE nrinvoic = wa_zycbt030-nrinvoic AND
nrparcf = /pws/zycbe030-nrparcf AND
gsberf = wa_zycbt030-gsberf AND
vbeln = wa_zycbt030-vbeln.
COMMIT WORK.
CONCATENATE text-029 itab_zycbt032-belnr
...
...
t_zycbt036 = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = transac
tabela = text-012
cpochv = /pws/zycbe030-nrinvoic
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM ESTORNA
CALL CUSTOMER-FUNCTION '004'.
* << Fim da exclusão
wa_zycbt030-vlsltrans = wa_zycbt030-vlsltrans +
/pws/zycbe030-vlsltrans.
wa_zycbt030-vlslliq = wa_zycbt030-vlslliq -
/pws/zycbe030-vlsltrans.
vl_trans = wa_zycbt030-vlsltrans.
vl_estor = wa_zycbt030-vlslliq.
wa_zycbt030-budat_t = budat.
wa_zycbt030-belnr_t = itab_zycbt032-belnr.
UPDATE /pws/zycbt030 SET belnr_t = wa_zycbt030-belnr_t
budat_t = wa_zycbt030-budat_t
...
...
WHERE nrinvoic = wa_zycbt030-nrinvoic AND
nrparcf = wa_zycbt030-nrparcf AND
gsberf = wa_zycbt030-gsberf AND
vbeln = wa_zycbt030-vbeln.
COMMIT WORK.
ENDIF.
ELSE.
LOOP AT itab_zycbt032 WHERE tcode = transac
AND tabela = text-012
AND cpochv = /pws/zycbe030-nrinvoic
* >> Início da exclusão: FORM ESTORNA
AND tpmsg <> 'S'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA
AND tpmsg <> 'S'. "#EC *
* << Fim da inclusão
CLEAR itab_erro-belnr.
itab_erro-msg = itab_zycbt032-msg.
APPEND itab_erro.
ENDLOOP.
sy-subrc = 4.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
...
...
ENDLOOP.
ENDIF.
PERFORM exibe_mensagens.
CLEAR: /pws/zycbe030-vlsltrans.
/pws/zycbe030-budat_t = sy-datum.
ENDFORM.
FORM valida_dados USING p_valor
p_texto1
p_texto2.
CLEAR sy-subrc.
* >> Início da exclusão: FORM VALIDA_DADOS
IF /pws/zycbe030-vlsltrans GT p_valor.
* << Fim da exclusão
* >> Início da inclusão: FORM VALIDA_DADOS
IF /pws/zycbe030-vlsltrans GT p_valor. "#EC *
* << Fim da inclusão
MESSAGE i061 WITH text-004 p_texto1 text-005 p_texto2.
sy-subrc = 4.
ELSEIF /pws/zycbe030-vlsltrans IS INITIAL.
MESSAGE i015 WITH text-008 p_texto1.
sy-subrc = 4.
ENDIF.
ENDFORM.
FORM clear_data_bi.
CLEAR: itab_zycbt032,
itab_zycbe033,
itab_zycbt034,
itab_zycbt036.
REFRESH: itab_zycbt032,
itab_zycbe033,
itab_zycbt034,
itab_zycbt036.
ENDFORM.
FORM busca_conta CHANGING p_conta_cliente
p_conta_transit.
* >> Início da exclusão: FORM BUSCA_CONTA
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_CONTA
SELECT *
* << Fim da inclusão
FROM /pws/zycbt011
* >> Início da inclusão: FORM BUSCA_CONTA
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt011
WHERE codeven = codeven AND
codmod = codmod.
* >> Início da inclusão: FORM BUSCA_CONTA
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE i015 WITH text-011.
sy-subrc = 4.
EXIT.
ENDIF.
SELECT *
FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = codeven AND
codmod = codmod.
...
...
CONCATENATE text-014 v_budat+3(7) text-015 text-016 v_datum+3(7)
text-017 INTO mensagem SEPARATED BY space.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = mensagem
titel = text-018
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM PREENCHE_BI_LANC
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_BI_LANC
OTHERS = 0.
* << Fim da inclusão
IF v_answer = 'J'.
itab_zycbe033-budat = sy-datum.
ELSE.
sy-subrc = 4.
EXIT.
ENDIF.
ENDIF.
itab_zycbe033-zfbdt = itab_zycbe033-budat.
IF wa_zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
...
...
text-024.
itab_zycbe033-d_newko = p_conta_debito.
itab_zycbe033-newbs = '07'.
PERFORM verify_null_field USING p_conta_credito
'AGKON'
text-025.
itab_zycbe033-agkon = p_conta_credito.
itab_zycbe033-agkoa = 'D'.
itab_zycbe033-belnr = p_belnr.
itab_zycbe033-dtdocto = p_budat.
* >> Início da exclusão: FORM PREENCHE_BI_LANC
CALL CUSTOMER-FUNCTION '001'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
p_budat = itab_zycbe033-budat.
ENDFORM.
FORM determina_periodo USING value(p_budat)
CHANGING p_monat.
DATA: v_periv(2).
SELECT SINGLE periv FROM t001
INTO v_periv
WHERE bukrs EQ wa_zycbt017-bukrs.
CALL FUNCTION 'DETERMINE_PERIOD'
EXPORTING
date = p_budat
version = v_periv
IMPORTING
period = p_monat
EXCEPTIONS
* >> Início da exclusão: FORM DETERMINA_PERIODO
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_PERIODO
period_in_not_valid = 0
period_not_assigned = 0
version_undefined = 0
OTHERS = 0.
* << Fim da inclusão
ENDFORM.
FORM determina_ano USING p_budat
p_bukrs
CHANGING p_ano.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = p_bukrs
v_date = p_budat
IMPORTING
v_year = p_ano.
...
...
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-026
textline2 = text-027
titel = text-028
IMPORTING
answer = v_modo_bi
TABLES
t_spopli = itab_modo
EXCEPTIONS
* >> Início da exclusão: FORM MODO_BATCH_INPUT
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
not_enough_answers = 0
too_much_answers = 0
too_much_marks = 0
OTHERS = 0.
* << Fim da inclusão
IF v_modo_bi EQ '1' OR v_modo_bi EQ 'A'.
v_modo_bi = 'N'.
ELSEIF v_modo_bi EQ '3'.
v_modo_bi = 'A'.
ELSEIF v_modo_bi EQ '2'.
v_modo_bi = 'E'.
ENDIF.
ENDFORM.
FORM clearing USING p_conta
belnr_1
budat_1
belnr_2
budat_2
p_budat
p_texto
CHANGING p_belnr.
* >> Início da exclusão: FORM CLEARING
DATA: v_answer(1) TYPE c,
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING
DATA: v_answer(1) TYPE c, "#EC *
* << Fim da inclusão
v_kursf LIKE /pws/zycbe033-kursf.
itab_zycbe033-tcode = transac.
itab_zycbe033-cpochv = /pws/zycbe030-nrinvoic.
itab_zycbe033-tabela = text-012.
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = itab_zycbe033-tabela.
PERFORM verify_null_field USING p_budat
'BUDAT'
...
...
v_kursf.
PERFORM verify_null_field USING v_kursf
'KURSF'
text-023.
itab_zycbe033-kursf = v_kursf.
PERFORM verify_null_field USING p_conta
'AGKON'
text-025.
itab_zycbe033-agkon = p_conta.
itab_zycbe033-agkoa = 'D'.
* >> Início da exclusão: FORM CLEARING
CALL CUSTOMER-FUNCTION '002'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
itab_zycbt036-tcode = transac.
itab_zycbt036-tabela = text-012.
itab_zycbt036-cpochv = /pws/zycbe030-nrinvoic.
itab_zycbt036-dtdocto = budat_1.
itab_zycbt036-belnr = belnr_1.
APPEND itab_zycbt036.
itab_zycbt036-tcode = transac.
itab_zycbt036-tabela = text-012.
itab_zycbt036-cpochv = /pws/zycbe030-nrinvoic.
...
...
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = transac
tabela = text-012
cpochv = /pws/zycbe030-nrinvoic
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM CLEARING
CALL CUSTOMER-FUNCTION '005'.
* << Fim da exclusão
p_belnr = itab_zycbt032-belnr.
CONCATENATE p_texto itab_zycbt032-belnr
INTO itab_acerto-msg SEPARATED BY space.
APPEND itab_acerto.
CLEAR sy-subrc.
ELSE.
LOOP AT itab_zycbt032 WHERE tcode = transac
AND tabela = text-012
AND cpochv = /pws/zycbe030-nrinvoic
AND tpmsg <> 'S'.
...
...
SELECT bukrs belnr gjahr koart shkzg kkber
FROM bseg
INTO TABLE itab_bseg
WHERE bukrs = wa_zycbt017-bukrs AND
belnr = wa_zycbt030-belnr AND
gjahr = wa_zycbt030-budat(4).
IF sy-subrc NE 0.
EXIT.
ENDIF.
ELSE.
* >> Início da exclusão: FORM BUSCA_AREA_CREDITO
SELECT SINGLE nrseq bukrs
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_AREA_CREDITO
SELECT nrseq bukrs
UP TO 1 ROWS
* << Fim da inclusão
FROM /pws/zycet001
INTO wa_zycet001
WHERE nrseq = wa_zycbt030-nrinvoic.
* >> Início da inclusão: FORM BUSCA_AREA_CREDITO
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
EXIT.
ENDIF.
SELECT nrseq vbeln_vf
...
...
INTO TABLE itab_zycet002
WHERE nrseq = wa_zycbt030-nrinvoic.
IF sy-subrc NE 0.
EXIT.
ENDIF.
DELETE itab_zycet002 WHERE vbeln = space.
IF itab_zycet002[] IS INITIAL.
EXIT.
ENDIF.
READ TABLE itab_zycet002 INDEX 1.
* >> Início da exclusão: FORM BUSCA_AREA_CREDITO
SELECT SINGLE bukrs belnr gjahr
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_AREA_CREDITO
SELECT bukrs belnr gjahr
* << Fim da inclusão
FROM bkpf
* >> Início da inclusão: FORM BUSCA_AREA_CREDITO
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_bkpf
WHERE awtyp = 'VBRK' AND
awkey = itab_zycet002-vbeln.
* >> Início da inclusão: FORM BUSCA_AREA_CREDITO
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
EXIT.
ENDIF.
* >> Início da exclusão: FORM BUSCA_AREA_CREDITO
SELECT SINGLE bukrs kunnr augdt augbl belnr gjahr
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_AREA_CREDITO
SELECT bukrs kunnr augdt augbl belnr gjahr
UP TO 1 ROWS
* << Fim da inclusão
FROM bsad
INTO wa_bsad
WHERE bukrs = wa_zycet001-bukrs AND
gjahr = wa_bkpf-gjahr AND
belnr = wa_bkpf-belnr.
* >> Início da inclusão: FORM BUSCA_AREA_CREDITO
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
EXIT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB027I01
...
WHEN 'TRANSF'.
PERFORM transfere.
WHEN 'ESTOR'.
PERFORM estorna.
WHEN 'MODO'.
PERFORM modo_batch_input.
WHEN 'SPEC'.
IF NOT v_tcodebotao IS INITIAL.
CALL TRANSACTION v_tcodebotao.
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL CUSTOMER-FUNCTION '006'.
* << Fim da exclusão
ENDIF.
ENDCASE.
CLEAR okcode.
ENDMODULE.
MODULE busca_nrinvoic INPUT.
PERFORM busca_nrinvoic.
ENDMODULE.
MODULE user_command_exit INPUT.
LEAVE PROGRAM.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB027O01
...
if v_visivel is initial.
itab_pf_status-fcode = 'SPEC'.
append itab_pf_status.
endif.
set pf-status '0100' excluding itab_pf_status.
set titlebar '0100'.
endmodule.
module verifica_flag output.
if verificado is initial.
verificado = 'X'.
* >> Início da exclusão: MODULE VERIFICA_FLAG
select single * from /pws/zycbt007.
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFICA_FLAG
SELECT * FROM /pws/zycbt007
UP TO 1 ROWS.
ENDSELECT.
* << Fim da inclusão
if /pws/zycbt007-liq_trans ne 'T'.
message i061 with text-001 text-002 text-003.
leave to screen 0.
endif.
/pws/zycbe030-budat_t = sy-datum.
endif.
endmodule.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB027TOP
PROGRAM /pws/sapmzycb027 MESSAGE-ID /pws/zycbm.
* >> Início da exclusão:
TABLES: /pws/zycbt006,
/pws/zycbt007,
/pws/zycbt009,
/pws/zycbt011,
/pws/zycbt012,
/pws/zycbt013,
/pws/zycbt017,
/pws/zycbt030,
* << Fim da exclusão
* >> Início da inclusão:
TABLES: /pws/zycbt006, "#EC *
/pws/zycbt007, "#EC *
/pws/zycbt009, "#EC *
/pws/zycbt011, "#EC *
/pws/zycbt012, "#EC *
/pws/zycbt013, "#EC *
/pws/zycbt017, "#EC *
/pws/zycbt030, "#EC *
* << Fim da inclusão
/pws/zycbt039,
/pws/zycbe030.
DATA: BEGIN OF itab_zycbt012 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt012.
DATA: END OF itab_zycbt012.
DATA: BEGIN OF itab_zycbt013 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt013.
DATA: END OF itab_zycbt013.
DATA: BEGIN OF itab_zycbt032 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt032.
...
...
verificado(1),
v_monat LIKE t001b-frpe1,
v_ano LIKE t009b-bdatj,
v_modo_bi,
v_syrepid LIKE sy-repid,
v_sydynnr LIKE sy-dynnr,
v_visivel LIKE /pws/zyglt319-visivel,
v_tcodebotao LIKE /pws/zyglt319-tcode.
CONSTANTS: codmod(1) VALUE 'E',
codeven(3) VALUE '023',
* >> Início da exclusão:
chvcred(1) VALUE 'C',
* << Fim da exclusão
* >> Início da inclusão:
chvcred(1) VALUE 'C', "#EC *
* << Fim da inclusão
chvdebi(1) VALUE 'D',
transac(4) VALUE 'F-30'.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB028F01
...
CLEAR itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
* >> Início da exclusão: FORM ADMINISTRAR_PROCESSO
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM ADMINISTRAR_PROCESSO
i_codmod_nao_encontrado = 0
i_func_nao_encontrado = 0
i_zexit_nao_encontrado = 0
OTHERS = 0.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LTR001' 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 salvar_dados.
IF v_compra = 'X'.
/pws/zycbe086-ftaxa = 'G'.
ELSEIF v_venda = 'X'.
/pws/zycbe086-ftaxa = 'B'.
ELSEIF v_media = 'X'.
/pws/zycbe086-ftaxa = 'M'.
ENDIF.
IF ( /pws/zycbe086 = wa_zycbt086 ).
CHECK w_ok NE 'APR'.
* >> Início da exclusão: FORM SALVAR_DADOS
MESSAGE i037.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
MESSAGE i037. "#EC *
* << Fim da inclusão
ELSE.
IF /pws/zycbe086-irfat IS INITIAL.
/pws/zycbe086-irfat = 'N'.
ENDIF.
IF /pws/zycbe086-irreaj = space.
/pws/zycbe086-irreaj = 'N'.
ENDIF.
PERFORM altera_dados.
ENDIF.
ENDFORM.
...
...
text_question = text-064
text_button_1 = text-061
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-062
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
IMPORTING
answer = v_resp
EXCEPTIONS
* >> Início da exclusão: FORM EXCLUIR_DADOS
text_not_found = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_DADOS
text_not_found = 0
OTHERS = 0.
* << Fim da inclusão
IF v_resp EQ 1.
IF /pws/zycbe086-frreceb EQ 'C' OR
/pws/zycbe086-frreceb EQ 'P'.
IF /pws/zycbe086-frreceb EQ 'P'.
PERFORM verifica_pre_edicao USING /pws/zycbe086-belnr_pr
/pws/zycbe086-bukrs
/pws/zycbe086-dtincl.
IF sy-subrc EQ 0.
PERFORM estorno_fbv0.
ELSE.
...
...
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.
* << Fim da inclusão
ENDFORM.
FORM altera_dados.
DATA v_existe VALUE 'N'.
CLEAR v_ok.
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycbe086-bukrs.
ENDSELECT.
SELECT *
...
...
WHERE nrinvoic = /pws/zycbe086-nrinvoic AND
nrparcf = /pws/zycbe086-nrparcf.
ENDSELECT.
IF sy-subrc EQ 0.
MOVE /pws/zycbe017-waers TO /pws/zycbe086-waers.
ENDIF.
INSERT INTO /pws/zycbt086 VALUES /pws/zycbe086.
v_trans = 'E'.
IF sy-subrc EQ '0'.
wa_zycbt086 = /pws/zycbe086.
* >> Início da exclusão: FORM ALTERA_DADOS
MESSAGE s011(pc) WITH text-005.
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_DADOS
MESSAGE s011(pc) WITH text-005. "#EC *
* << Fim da inclusão
ELSE.
WHILE sy-subrc NE 0.
PERFORM verifica_sequencial.
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt017 INTO /pws/zycbe017
WHERE nrinvoic = /pws/zycbe086-nrinvoic AND
nrparcf = /pws/zycbe086-nrparcf.
ENDSELECT.
IF sy-subrc EQ 0.
...
...
CHECK sy-tcode = '/PWS/ZYCB028_C' OR
sy-tcode = '/PWS/ZYCB028_A'.
SET PARAMETER ID '/PWS/ZYCBP019' FIELD v_nrseq.
CALL FUNCTION '/PWS/ZYCB_ENQUEUE_ZYCBT086'
EXPORTING
nrseq = v_nrseq
EXCEPTIONS
foreign_lock = 1
system_failure = 2.
IF sy-subrc <> 0.
* >> Início da exclusão: FORM LOCK_RECORD
MESSAGE w250 WITH sy-uname.
* << Fim da exclusão
* >> Início da inclusão: FORM LOCK_RECORD
MESSAGE w250 WITH sy-uname. "#EC *
* << Fim da inclusão
LEAVE TO TRANSACTION '/PWS/ZYCB028_E' AND SKIP FIRST SCREEN.
ENDIF.
ENDFORM.
FORM unlock_record.
IF sy-tcode = '/PWS/ZYCB028_A' OR
sy-tcode = '/PWS/ZYCB028_C'.
CALL FUNCTION '/PWS/ZYCB_DEQUEUE_ZYCBT086'
EXPORTING
nrseq = v_nrseq.
ENDIF.
...
...
CLEAR itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
* >> Início da exclusão: FORM CONTABILIZA
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA
i_codmod_nao_encontrado = 0
i_func_nao_encontrado = 0
i_zexit_nao_encontrado = 0
OTHERS = 0.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LTR002' 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.
...
...
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-094
textline2 = text-095
titel = text-096
IMPORTING
answer = v_modo_bi
TABLES
t_spopli = itab_modo
EXCEPTIONS
* >> Início da exclusão: FORM MODO_BATCH_INPUT
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
not_enough_answers = 0
too_much_answers = 0
too_much_marks = 0
OTHERS = 0.
* << Fim da inclusão
IF v_modo_bi EQ '1' OR v_modo_bi EQ 'A'.
v_modo_bi = 'N'.
ELSEIF v_modo_bi EQ '3'.
v_modo_bi = 'A'.
ELSEIF v_modo_bi EQ '2'.
v_modo_bi = 'E'.
ENDIF.
ENDFORM.
FORM determina_periodo USING value(p_budat) CHANGING p_monat.
DATA v_periv(2).
...
...
INTO v_periv
WHERE bukrs EQ /pws/zycbe086-bukrs.
ENDSELECT.
CALL FUNCTION 'DETERMINE_PERIOD'
EXPORTING
date = p_budat
version = v_periv
IMPORTING
period = p_monat
EXCEPTIONS
* >> Início da exclusão: FORM DETERMINA_PERIODO
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_PERIODO
period_in_not_valid = 0
period_not_assigned = 0
version_undefined = 0
OTHERS = 0.
* << Fim da inclusão
ENDFORM.
FORM determina_ano USING p_budat
p_bukrs
CHANGING p_ano.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = p_bukrs
v_date = p_budat
IMPORTING
v_year = p_ano.
...
...
READ TABLE itab_zycbt032 WITH KEY tcode = 'FBV0'
tabela = '/PWS/ZYCBT086'
cpochv = itab_zycbe033-cpochv
tpmsg = 'S'.
IF sy-subrc EQ 0.
PERFORM verifica_pre_edicao USING /pws/zycbe086-belnr_pr
/pws/zycbe086-bukrs
/pws/zycbe086-dtincl.
IF sy-subrc EQ 0.
MESSAGE i262 WITH /pws/zycbe086-bukrs /pws/zycbe086-belnr_pr.
* >> Início da inclusão: FORM ESTORNO_FBV0
"#EC *
* << Fim da inclusão
ELSE.
MESSAGE i062 WITH /pws/zycbe086-bukrs /pws/zycbe086-belnr_pr.
* >> Início da inclusão: FORM ESTORNO_FBV0
"#EC *
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM busca_taxa.
...
...
p_j_1bbranch TYPE /pws/zycbt001-j_1bbranch.
DATA:
v_adrnr TYPE j_1bbranch-adrnr,
v_country TYPE adrc-country.
IF p_j_1bbranch IS INITIAL.
SELECT SINGLE j_1bbranch
FROM t001w
INTO p_j_1bbranch
WHERE werks = p_werks.
ENDIF.
* >> Início da exclusão: FORM VALIDA_CAMPO_FILIAL
SELECT SINGLE adrnr
* << Fim da exclusão
* >> Início da inclusão: FORM VALIDA_CAMPO_FILIAL
SELECT adrnr
* << Fim da inclusão
FROM j_1bbranch
* >> Início da inclusão: FORM VALIDA_CAMPO_FILIAL
UP TO 1 ROWS
* << Fim da inclusão
INTO v_adrnr
WHERE
bukrs = p_bukrs AND
branch = p_j_1bbranch.
* >> Início da inclusão: FORM VALIDA_CAMPO_FILIAL
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0.
* >> Início da exclusão: FORM VALIDA_CAMPO_FILIAL
SELECT SINGLE country
* << Fim da exclusão
* >> Início da inclusão: FORM VALIDA_CAMPO_FILIAL
SELECT country
* << Fim da inclusão
FROM adrc
* >> Início da inclusão: FORM VALIDA_CAMPO_FILIAL
UP TO 1 ROWS
* << Fim da inclusão
INTO v_country
WHERE addrnumber = v_adrnr.
* >> Início da inclusão: FORM VALIDA_CAMPO_FILIAL
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0 AND
v_country NS 'BR' AND
v_country NS 'TW'.
CLEAR p_j_1bbranch.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB028I01
...
V_STATUS_S = '1'.
IF SY-TCODE = '/PWS/ZYCB028_A'.
SELECT NRBOLETO
UP TO 1 ROWS
FROM /PWS/ZYCBT064
INTO V_NRBOLETO
WHERE NRCHAVE = V_NRSEQ AND
MDCORRESP = 'EJ'.
ENDSELECT.
IF V_NRBOLETO <> SPACE.
* >> Início da exclusão: MODULE USER_COMMAND_0001
MESSAGE I278.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0001
MESSAGE I278. "#EC *
* << Fim da inclusão
CALL TRANSACTION '/PWS/ZYCB028_E' AND SKIP FIRST SCREEN.
LEAVE PROGRAM.
ENDIF.
ENDIF.
SELECT *
UP TO 1 ROWS
FROM /PWS/ZYCBT086
INTO /PWS/ZYCBE086
WHERE NRSEQ = V_NRSEQ.
ENDSELECT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB028O01
...
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/MZYCB028TOP
...
e_subrc LIKE sy-subrc,
e_exec_okcode. "#EC NEEDED
DATA:
ITAB_ZYCBT013 LIKE /PWS/ZYCBT013 OCCURS 10 WITH HEADER LINE,
"#EC NEEDED
ITAB_ZYCBT012 LIKE /PWS/ZYCBT012 OCCURS 10 WITH HEADER LINE,
"#EC NEEDED
ITAB_ZYGLT334 LIKE /PWS/ZYGLT334 OCCURS 0 WITH HEADER LINE,
ITAB_ZYGLT100 LIKE /PWS/ZYGLT100 OCCURS 0 WITH HEADER LINE,
V_NRBOLETO LIKE /PWS/ZYCBT064-NRBOLETO OCCURS 10 WITH HEADER LINE.
* >> Início da inclusão:
"#EC *
* << Fim da inclusão
DATA: BEGIN OF ITAB_PF_STATUS OCCURS 10,
FCODE LIKE RSMPE-FUNC,
END OF ITAB_PF_STATUS.
DATA: BEGIN OF ITAB_MODO OCCURS 0.
INCLUDE STRUCTURE SPOPLI.
DATA: END OF ITAB_MODO.
DATA: BEGIN OF ITAB_T320 OCCURS 0,
CAMPO(35) TYPE C,
FLAG,
END OF ITAB_T320.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB028X01
TABLES:
/pws/zycbt086,
/pws/zycbe086,
/pws/zycbt017,
/pws/zycbe017.
DATA: BEGIN OF COMMON PART c.
Data: wa_zycbt086 LIKE /pws/zycbe086,
* >> Início da exclusão:
wa_zycbt017 LIKE /pws/zycbe017.
* << Fim da exclusão
* >> Início da inclusão:
wa_zycbt017 LIKE /pws/zycbe017. "#EC *
* << Fim da inclusão
Data: ok_code LIKE sy-ucomm,
w_ok LIKE ok_code,
v_text(4) TYPE c,
v_modo_bi.
DATA: ITAB_ZYCBT032 LIKE /PWS/ZYCBT032 OCCURS 10 WITH HEADER LINE,
ITAB_ZYCBE033 LIKE /PWS/ZYCBE033 OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF ITAB_ZYCBT034 OCCURS 10.
INCLUDE STRUCTURE /PWS/ZYCBT034.
DATA: END OF ITAB_ZYCBT034.
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB010
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 456
Texto: (35 caracteres)
"DATA: BEGIN OF binary_tab OCCURS 0,"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 457
Texto: (20 caracteres)
"default(200) TYPE c,"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 458
Texto: (18 caracteres)
"END OF binary_tab."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 459
Texto: (19 caracteres)
"p_dados TO <VALOR>."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 460
Texto: (19 caracteres)
"p_dados TO <VALOR>."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 461
Texto: (31 caracteres)
"SHIFT v_valor(dd03l-leng) RIGHT"
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 462
Texto: (24 caracteres)
"DELETING TRAILING space."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 463
Texto: (22 caracteres)
"BUFFER = v_xstring"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 464
Texto: (24 caracteres)
"BINARY_TAB = binary_tab."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 465
Texto: (37 caracteres)
"p_wa_log+v_tam(dd03l-leng) = <VALOR>."
Comprimento máximo: 37
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB012
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 456
Texto: (35 caracteres)
"DATA: BEGIN OF binary_tab OCCURS 0,"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 457
Texto: (20 caracteres)
"default(200) TYPE c,"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 458
Texto: (18 caracteres)
"END OF binary_tab."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 459
Texto: (19 caracteres)
"p_dados TO <VALOR>."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 460
Texto: (18 caracteres)
"v_valor = <VALOR>."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 461
Texto: (31 caracteres)
"SHIFT v_valor(dd03l-leng) RIGHT"
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 462
Texto: (24 caracteres)
"DELETING TRAILING space."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 463
Texto: (22 caracteres)
"BUFFER = v_xstring"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 464
Texto: (24 caracteres)
"BINARY_TAB = binary_tab."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 465
Texto: (37 caracteres)
"p_wa_log+v_tam(dd03l-leng) = <VALOR>."
Comprimento máximo: 37
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB014
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 456
Texto: (35 caracteres)
"DATA: BEGIN OF binary_tab OCCURS 0,"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 457
Texto: (20 caracteres)
"default(200) TYPE c,"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 458
Texto: (18 caracteres)
"END OF binary_tab."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 459
Texto: (19 caracteres)
"p_dados TO <VALOR>."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 460
Texto: (18 caracteres)
"v_valor = <VALOR>."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 461
Texto: (31 caracteres)
"SHIFT v_valor(dd03l-leng) RIGHT"
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 462
Texto: (24 caracteres)
"DELETING TRAILING space."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 463
Texto: (22 caracteres)
"BUFFER = v_xstring"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 464
Texto: (24 caracteres)
"BINARY_TAB = binary_tab."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 465
Texto: (37 caracteres)
"p_wa_log+v_tam(dd03l-leng) = <VALOR>."
Comprimento máximo: 37