CE PLUS - Nota 002946
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 23/01/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 14:27:35
Descrição da Nota: PARÂMETRO /PWS/ZYGL007 CFM SIM - DUMP VERSÃO 4.7 OU SUPERIOR
Sintoma
Ao salvar uma captação ou vinculação ou liquidação ou liquidação de ACC com Pré ou Complemento do
Boleto ou Financiamento ou Pagamento de Juros ou Agrupamento, na versão 4.7, ocorre dump.
Solução
Tratar os campos de valor e taxa quando for versão acima ou igual à 4.7, carregando campo a campo na
wa_log. Nas versões anteriores deixar da mesma forma atual.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02946 Data: 23/01/2007 Hora: 11:13:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02946
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00149
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PARÂMETRO /PWS/ZYGL007 CFM SIM - DUMP VERSÃO 4.7 OU SUPERIOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
PARÂMETRO /PWS/ZYGL007 CFM SIM - DUMP VERSÃO 4.7 OU SUPERIOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYGL_LOG_TABLE
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F02
REPS /PWS/MZYCB001F04
REPS /PWS/MZYCB001I01
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB009F02
REPS /PWS/MZYCB009F03
REPS /PWS/MZYCB009F06
REPS /PWS/MZYCB009F09
REPS /PWS/MZYCB009F10
REPS /PWS/MZYCB010F01
REPS /PWS/MZYCB012F01
REPS /PWS/MZYCB014F01
REPS /PWS/MZYCB110F01
REPS /PWS/MZYCM101F01
REPS /PWS/MZYCM110F01
REPS /PWS/MZYGL110F01
REPT /PWS/SAPLZYCBGF
REPT /PWS/SAPMZYCB001
REPT /PWS/SAPMZYCB004
REPT /PWS/SAPMZYCB009
REPT /PWS/SAPMZYCB010
REPT /PWS/SAPMZYCB012
REPT /PWS/SAPMZYCB014
REPT /PWS/SAPMZYCB110
REPT /PWS/SAPMZYCM101
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_LOG_TABLE
...
v_datum like sy-datum,
v_uzeit like sy-uzeit,
v_tmstmp type /pws/zygll812,
v_progname type progname,
v_time type timestampl,
v_random type i,
v_timec(21) type c,
v_timestamp like /pws/zyglt051-TIMESTAMP,
v_count(19) type n,
v_ano(3).
* >> Início da inclusão: FUNCTION /PWS/ZYGL_LOG_TABLE
data: begin of itab_dd03L occurs 0.
include structure dd03l.
data: end of itab_dd03L.
data: begin of wheretab occurs 0,
cond(50) type c,
end of wheretab.
data: v_linhas type i,
v_tam type i.
* << Fim da inclusão
select single devclass
from tadir
into v_class
where pgmid eq 'R3TR' and
object eq 'TABL' and
obj_name eq tabname.
if sy-subrc ne 0.
raise table_not_found.
endif.
if v_class(7) ne '/PWS/ZY'.
raise devclass_not_zy.
endif.
assign (tabname) to <wa_dados>.
* >> Início da inclusão: FUNCTION /PWS/ZYGL_LOG_TABLE
select * from dd03L into table itab_dd03L
where tabname EQ tabname
and keyflag NE space
order BY position.
delete itab_dd03L where fieldname = 'MANDT'.
describe table itab_dd03l lines v_linhas.
v_tam = 3.
loop at itab_dd03l.
clear wheretab-cond.
wheretab-cond = itab_dd03L-fieldname.
concatenate wheretab-cond '=' text-026
into wheretab-cond separated by space.
concatenate wheretab-cond wa_data+v_tam(itab_dd03L-leng)
text-026 into wheretab-cond.
if sy-tabix = v_linhas.
concatenate wheretab-cond '.' into wheretab-cond.
else.
concatenate wheretab-cond 'and' into wheretab-cond
separated by space.
endif.
append wheretab.
v_tam = v_tam + itab_dd03L-leng.
endloop.
* << Fim da inclusão
* >> Início da exclusão: FUNCTION /PWS/ZYGL_LOG_TABLE
<wa_dados> = wa_data.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_LOG_TABLE
select single * from (tabname) into <wa_dados>
where (wheretab).
* << Fim da inclusão
if sy-subrc ne 0.
raise table_not_supported.
endif.
v_relid = v_class+7(2).
v_progname = progname.
if v_progname is initial.
v_progname = sy-repid.
endif.
concatenate '%' sy-datum+2(2) into v_ano.
select max( timestamp ) into (v_timestamp) from /pws/zyglt051
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
/pws/zycbe001-desc_receb EQ wa_zycbt001-desc_receb ) OR
/pws/zycbe001-tpcontr(1) NE 'E' ).
MODIFY /pws/zycbt001.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbt001-nrseqc.
* >> Início da exclusão: FORM SAVE_ZYCBT001
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM SAVE_ZYCBT001
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDSELECT.
ENDIF.
ENDIF.
IF itab_comissao[] EQ itab_comissao_ant[] AND
itab_zycbt003[] EQ t_zycbt003_ant[].
MESSAGE i017.
ENDIF.
CLEAR v_ok.
IF /pws/zycbe001-nrcontr NE wa_zycbt001-nrcontr.
PERFORM refresh_zycbt004.
UPDATE /pws/zycbt005 SET nrcontr = /pws/zycbe001-nrcontr
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = wa_zycbt001-nrseqc.
* >> Início da exclusão: FORM SAVE_ZYCBT001
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDSELECT.
ENDIF.
UPDATE /pws/zycbt006 SET nrcontr = /pws/zycbe001-nrcontr
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt006
INTO wa_zycbt006_log
WHERE nrseqc = wa_zycbt001-nrseqc.
* >> Início da exclusão: FORM SAVE_ZYCBT001
DESCRIBE FIELD wa_zycbt006_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001
PERFORM monta_log_cfm USING wa_zycbt006_log
'/PWS/ZYCBT006'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'A'.
ENDSELECT.
ENDIF.
ENDIF.
PERFORM save_zycbt002.
PERFORM save_zycbt003.
PERFORM save_zycbt005.
MOVE /pws/zycbe001 TO wa_zycbt001.
...
...
IF v_salvo_aux IS INITIAL.
INSERT INTO /pws/zycbt001 VALUES /pws/zycbe001.
WHILE sy-subrc NE 0.
PERFORM find_nrseqc.
INSERT INTO /pws/zycbt001 VALUES /pws/zycbe001.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
IF sy-subrc EQ 0.
COMMIT WORK.
* >> Início da exclusão: FORM SAVE_ZYCBT001
DESCRIBE FIELD /pws/zycbe001 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001
PERFORM monta_log_cfm USING /pws/zycbe001
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'C'.
ENDIF.
ENDIF.
ENDIF.
v_existe = 'S'.
ENDWHILE.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
IF sy-subrc EQ 0.
COMMIT WORK.
* >> Início da exclusão: FORM SAVE_ZYCBT001
DESCRIBE FIELD /pws/zycbe001 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001
PERFORM monta_log_cfm USING /pws/zycbe001
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'C'.
ENDIF.
ENDIF.
ENDIF.
ELSE.
MODIFY /pws/zycbt001.
ENDIF.
v_salvo_aux = 'X'.
...
...
bcofinan = /pws/zycbe001-bcofinan
gsber = /pws/zycbe001-gsber
j_1bbranch = /pws/zycbe001-j_1bbranch
werks = /pws/zycbe001-werks
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da inclusão: FORM SAVE_ZYCBT001
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
* >> Início da exclusão: FORM SAVE_ZYCBT001
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDSELECT.
ENDIF.
UPDATE /pws/zycbt004 SET: dtincl = v_dtvincul
benefic = /pws/zycbe001-bconegoc
WHERE nrseqc = /pws/zycbe001-nrseqc
AND tpdesp = 'J'.
COMMIT WORK.
...
...
PERFORM save_zycbt003.
PERFORM save_zycbt221.
MOVE /pws/zycbe001 TO wa_zycbt001.
MOVE /pws/zycbe074 TO wa_zycbt074.
ELSE.
PERFORM refresh_dependent_tables USING v_ok 'SAVE'.
IF v_ok NE 'N'.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbt001-tpcontr(1) NE 'C' AND
/pws/zycbt001-tpcontr(1) NE 'E'.
* >> Início da exclusão: FORM SAVE_ZYCBT001
DESCRIBE FIELD /pws/zycbt001 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001
PERFORM monta_log_cfm USING /pws/zycbt001
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbt001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbt001-nrseqc.
* >> Início da exclusão: FORM SAVE_ZYCBT001
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDSELECT.
ENDIF.
ENDIF.
IF /pws/zycbt001-tpcontr(1) = 'P' OR
/pws/zycbe001-tpcontr(1) = 'S'.
IF v_belnr2 IS INITIAL.
PERFORM reverse_document_zycbt001.
...
...
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT *
FROM /pws/zycbt002
INTO wa_zycbt002_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF /pws/zycbe001-tpcontr(1) EQ 'T' AND
wa_zycbt002_log-tpparc EQ 'P'.
ELSE.
* >> Início da exclusão: FORM SAVE_ZYCBT002
DESCRIBE FIELD wa_zycbt002_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT002
PERFORM monta_log_cfm USING wa_zycbt002_log
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'E'.
ENDIF.
ENDSELECT.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt002 WHERE nrseqc = /pws/zycbe001-nrseqc.
IF /pws/zycbe001-tpcontr+0(1) CA 'PS'.
LOOP AT itab_zycbt002_j_ant.
...
...
CLEAR itab_zycbt002-dtvincul.
itab_zycbt002-nrseqc = /pws/zycbe001-nrseqc.
MOVE itab_zycbt002 TO /pws/zycbt002.
MODIFY /pws/zycbt002.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbt002-tpcontr(1) NE 'C' AND
/pws/zycbt002-tpcontr(1) NE 'E'.
IF /pws/zycbt002-tpcontr(1) EQ 'T' AND
/pws/zycbt002-tpparc EQ 'P'.
ELSE.
* >> Início da exclusão: FORM SAVE_ZYCBT002
DESCRIBE FIELD /pws/zycbt002 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT002
PERFORM monta_log_cfm USING /pws/zycbt002
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'C'.
ENDIF.
ENDIF.
ENDIF.
CHECK itab_zycbt002-tpcontr+0(1) CA 'PS'.
IF itab_zycbt002-nrparc EQ '001' OR
itab_zycbt002-calc EQ 'X'.
CLEAR /pws/zycbt004.
...
...
ELSE.
LOOP AT itab_zycbt002 .
MOVE itab_zycbt002 TO /pws/zycbt002.
MODIFY /pws/zycbt002.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
IF /pws/zycbe001-tpcontr(1) EQ 'T' AND
/pws/zycbt002-tpparc EQ 'P'.
ELSE.
* >> Início da exclusão: FORM SAVE_ZYCBT002
DESCRIBE FIELD /pws/zycbt002 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT002
PERFORM monta_log_cfm USING /pws/zycbt002
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'C'.
ENDIF.
ENDIF.
ENDIF.
CHECK itab_zycbt002-tpcontr+0(1) CA 'PS'.
CLEAR /pws/zycbt004.
SELECT SINGLE * FROM /pws/zycbt004
WHERE nrseqc = /pws/zycbt002-nrseqc
...
...
itab_zycbt002p-belnr_transf.
ENDIF.
MOVE itab_zycbt002p TO /pws/zycbt002.
MODIFY /pws/zycbt002.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbt002-tpcontr(1) NE 'C' AND
/pws/zycbt002-tpcontr(1) NE 'E'.
IF /pws/zycbt002-tpcontr(1) EQ 'T' AND
/pws/zycbt002-tpparc EQ 'P'.
ELSE.
* >> Início da exclusão: FORM SAVE_ZYCBT002
DESCRIBE FIELD /pws/zycbt002 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT002
PERFORM monta_log_cfm USING /pws/zycbt002
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'C'.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycbe001-tpcontr(1) = 'T'.
PERFORM move_itab_zycbt002p.
ENDIF.
CLEAR itab_zycbt002p.
...
...
slvinc = /pws/zycbe001-slvinc
slreserv = /pws/zycbe001-slreserv
vlmi = /pws/zycbe001-vlmi
slpagar = /pws/zycbe001-slpagar
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM FILL_DATE1_F02
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
...
...
'/PWS/ZYCBT001'.
ENDIF.
IF sy-subrc EQ 0.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = v_nrseqc.
* >> Início da exclusão: FORM DELETE_ZYCBT001
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_ZYCBT001
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'E'.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt004 WHERE nrseqc = v_nrseqc.
DELETE FROM /pws/zycbt001 WHERE nrseqc = v_nrseqc.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT *
FROM /pws/zycbt002
INTO wa_zycbt002_log
WHERE nrseqc = v_nrseqc.
IF /pws/zycbe001-tpcontr(1) EQ 'T' AND
wa_zycbt002_log-tpparc EQ 'P'.
ELSE.
* >> Início da exclusão: FORM DELETE_ZYCBT001
DESCRIBE FIELD wa_zycbt002_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_ZYCBT001
PERFORM monta_log_cfm USING wa_zycbt002_log
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'E'.
ENDIF.
ENDSELECT.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt002 WHERE nrseqc = v_nrseqc.
DELETE FROM /pws/zycbt003 WHERE nrseqc = v_nrseqc.
DELETE FROM /pws/zycbt136 WHERE nrseqc = v_nrseqc.
...
...
WHERE nrseqc = /pws/zycbe004-nrseqc
AND dtvincul = /pws/zycbe004-dtincl
AND nrparc = /pws/zycbe004-nrparc.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe004-nrseqc
AND dtvincul = /pws/zycbe004-dtincl
AND nrparc = /pws/zycbe004-nrparc.
* >> Início da exclusão: FORM SAVE_ZYCBT004
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT004
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDSELECT.
ENDIF.
ENDIF.
IF v_altdesp IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt004
WHERE nrseqc = /pws/zycbe004-nrseqc
AND tpdesp = /pws/zycbe004-tpdesp
...
...
bcofinan = /pws/zycbe001-bcofinan
gsber = /pws/zycbe001-gsber
WHERE nrseqc = /pws/zycbe001-nrseqc
AND bukrs = /pws/zycbe001-bukrs.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc EQ /pws/zycbe001-nrseqc
AND bukrs EQ /pws/zycbe001-bukrs.
* >> Início da inclusão: FORM SAVE_ZYCBT005
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
* >> Início da exclusão: FORM SAVE_ZYCBT005
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDSELECT.
ENDIF.
ENDFORM.
FORM grava_zycbt004.
IF NOT /pws/zycbe004-vlme IS INITIAL AND
NOT /pws/zycbe004-vlme EQ '0.00'.
MOVE :
...
...
vlmi = /pws/zycbe001-vlmi
slreserv = /pws/zycbe001-vlme
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM FILL_DATE1_F02_ME
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02_ME
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
UPDATE /pws/zycbt005 SET status = /pws/zycbe001-status
belnr = /pws/zycbe001-belnr
WHERE nrseqc = /pws/zycbe001-nrseqc
AND belnr = space.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc
AND belnr = /pws/zycbe001-belnr.
* >> Início da exclusão: FORM FILL_DATE1_F02_ME
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02_ME
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDSELECT.
ENDIF.
ENDIF.
COMMIT WORK.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
...
...
/pws/zycbt001-slreserv = /pws/zycbt001-slpagar =
/pws/zycbe001-vlme.
MODIFY /pws/zycbt001.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT001_ME
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT001_ME
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
vlmi = /pws/zycbe001-vlmi
slreserv = /pws/zycbe001-vlme
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT001_ME
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT001_ME
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
MOVE itab_zycbt002p[] TO itab_zycbt002p_ant[].
PERFORM altera_cab_pt.
IF estorno_ok EQ 'S'.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = v_nrseqc.
* >> Início da exclusão: FORM DELETE_ZYCBT001_PRE1
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_ZYCBT001_PRE1
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'E'.
ENDIF.
ENDIF.
IF v_capital EQ 'X'.
REFRESH: itab_zycbt218.
CLEAR: v_belnr, itab_zycbt218.
SELECT * FROM /pws/zycbt218
INTO TABLE itab_zycbt218
...
...
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT *
FROM /pws/zycbt002
INTO wa_zycbt002_log
WHERE nrseqc = v_nrseqc.
IF /pws/zycbe001-tpcontr(1) EQ 'T' AND
wa_zycbt002_log-tpparc EQ 'P'.
ELSE.
* >> Início da exclusão: FORM DELETE_ZYCBT001_PRE1
DESCRIBE FIELD wa_zycbt002_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_ZYCBT001_PRE1
PERFORM monta_log_cfm USING wa_zycbt002_log
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'E'.
ENDIF.
ENDSELECT.
ENDIF.
ENDIF.
IF v_capital NE 'X'.
DELETE FROM /pws/zycbt002 WHERE
nrseqc = v_nrseqc.
...
...
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt002
INTO wa_zycbt002_log
WHERE nrseqc = itab_zycbt002p-nrseqc
AND nrparc = itab_zycbt002p-nrparc
AND tpparc = itab_zycbt002p-tpparc.
IF /pws/zycbe001-tpcontr(1) EQ 'T' AND
wa_zycbt002_log-tpparc EQ 'P'.
ELSE.
* >> Início da exclusão: FORM FILL_08_PRE_PAGAMENTO21
DESCRIBE FIELD wa_zycbt002_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_08_PRE_PAGAMENTO21
PERFORM monta_log_cfm USING wa_zycbt002_log
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'E'.
ENDIF.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt002
WHERE nrseqc = itab_zycbt002p-nrseqc AND
nrparc = itab_zycbt002p-nrparc AND
tpparc = 'P'.
...
...
/pws/zycbe001-status EQ 'C' AND
v_estorna <> 'S'.
MODIFY /pws/zycbt001.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
CLEAR v_ok.
IF /pws/zycbe001-nrcontr NE wa_zycbt001-nrcontr.
PERFORM refresh_zycbt004.
UPDATE /pws/zycbt005 SET nrcontr = /pws/zycbe001-nrcontr
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDSELECT.
ENDIF.
UPDATE /pws/zycbt006 SET nrcontr = /pws/zycbe001-nrcontr
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt006
INTO wa_zycbt006_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
DESCRIBE FIELD wa_zycbt006_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
PERFORM monta_log_cfm USING wa_zycbt006_log
'/PWS/ZYCBT006'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'A'.
ENDSELECT.
ENDIF.
ENDIF.
PERFORM save_zycbt002.
PERFORM save_zycbt003.
PERFORM save_zycbt005.
MOVE /pws/zycbe001 TO wa_zycbt001.
...
...
/pws/zycbe001-slvinc = /pws/zycbe001-slpagar =
/pws/zycbe001-slreserv = /pws/zycbe001-vlme.
MODIFY /pws/zycbt001 FROM /pws/zycbe001.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
IF v_salvo_aux IS INITIAL.
INSERT INTO /pws/zycbt001 VALUES /pws/zycbe001.
WHILE sy-subrc NE 0.
PERFORM find_nrseqc.
INSERT INTO /pws/zycbt001 VALUES /pws/zycbe001.
IF wa_zycbt007-cfm = 'X'.
IF sy-subrc EQ 0.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
COMMIT WORK.
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
DESCRIBE FIELD /pws/zycbe001 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
PERFORM monta_log_cfm USING /pws/zycbe001
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'C'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
ENDIF.
ENDIF.
ENDIF.
v_existe = 'S'.
ENDWHILE.
IF wa_zycbt007-cfm = 'X'.
IF sy-subrc EQ 0.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
COMMIT WORK.
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
DESCRIBE FIELD /pws/zycbe001 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
PERFORM monta_log_cfm USING /pws/zycbe001
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'C'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
v_salvo_aux = 'X'.
MOVE /pws/zycbe001-nrseqc TO wa_zycbt001-nrseqc.
itab_zycbt002-nrseqc = /pws/zycbe001-nrseqc.
...
...
v_cont = 1.
ENDIF.
MODIFY /pws/zycbt001.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
PERFORM desfazer_alteracoes.
ENDIF.
IF v_ok NE 'N' AND v_ok2 NE 'X'.
/pws/zycbe001-slvinc = /pws/zycbe001-slpagar =
/pws/zycbe001-slreserv = /pws/zycbe001-vlme.
ENDIF.
MODIFY /pws/zycbt001 FROM /pws/zycbe001.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
DESCRIBE FIELD /pws/zycbe001 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
PERFORM monta_log_cfm USING /pws/zycbe001
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT *
FROM /pws/zycbt002
INTO wa_zycbt002_log
WHERE nrseqc = /pws/zycbe001-nrseqc
AND nrparc = itab_zycbt002p-nrparc
AND tpparc = 'P'.
IF /pws/zycbe001-tpcontr(1) EQ 'T' AND
wa_zycbt002_log-tpparc EQ 'P'.
ELSE.
* >> Início da exclusão: FORM FILL_DATA_F30_LIQ
DESCRIBE FIELD wa_zycbt002_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F30_LIQ
PERFORM monta_log_cfm USING wa_zycbt002_log
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'A'.
ENDIF.
ENDSELECT.
ENDIF.
ENDIF.
MODIFY itab_zycbt002p TRANSPORTING belnr2 slvinc
WHERE nrseqc = /pws/zycbe001-nrseqc
AND nrparc = itab_zycbt002p-nrparc
...
...
slreserv = /pws/zycbe001-slreserv
slpagar = /pws/zycbe001-slpagar
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM FILL_DATA_F30_LIQ
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F30_LIQ
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT *
FROM /pws/zycbt002
INTO wa_zycbt002_log
WHERE nrseqc = /pws/zycbe001-nrseqc
AND nrparc = itab_zycbt002p-nrparc
AND tpparc = 'P'.
IF /pws/zycbe001-tpcontr(1) EQ 'T' AND
wa_zycbt002_log-tpparc EQ 'P'.
ELSE.
* >> Início da exclusão: FORM CLEAR_ESTORNO_LIQ
DESCRIBE FIELD wa_zycbt002_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEAR_ESTORNO_LIQ
PERFORM monta_log_cfm USING wa_zycbt002_log
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'A'.
ENDIF.
ENDSELECT.
ENDIF.
ENDIF.
MODIFY itab_zycbt002p TRANSPORTING belnr2 slvinc
WHERE nrseqc = /pws/zycbe001-nrseqc
AND nrparc = itab_zycbt002p-nrparc
...
...
slreserv = /pws/zycbe001-slreserv
slpagar = /pws/zycbe001-slpagar
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM CLEAR_ESTORNO_LIQ
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEAR_ESTORNO_LIQ
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
ENDIF.
MOVE-CORRESPONDING /pws/zycbe001 TO wa_zycbt001.
DELETE FROM /pws/zycbt004
WHERE nrseqc EQ /pws/zycbe001-nrseqc
AND tpdesp EQ 'JL'
AND nrparc EQ '0'
...
...
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT *
FROM /pws/zycbt002
INTO wa_zycbt002_log
WHERE nrseqc = /pws/zycbe001-nrseqc
AND nrparc = itab_zycbt002p-nrparc
AND tpparc = 'P'.
IF /pws/zycbe001-tpcontr(1) EQ 'T' AND
wa_zycbt002_log-tpparc EQ 'P'.
ELSE.
* >> Início da exclusão: FORM FILL_DATA_F30_LIQ_EST
DESCRIBE FIELD wa_zycbt002_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F30_LIQ_EST
PERFORM monta_log_cfm USING wa_zycbt002_log
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'A'.
ENDIF.
ENDSELECT.
ENDIF.
ENDIF.
MODIFY itab_zycbt002p TRANSPORTING belnr2 slvinc
WHERE nrseqc = /pws/zycbe001-nrseqc
AND nrparc = itab_zycbt002p-nrparc
...
...
slreserv = /pws/zycbe001-slreserv
slpagar = /pws/zycbe001-slpagar
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da inclusão: FORM FILL_DATA_F30_LIQ_EST
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATA_F30_LIQ_EST
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
/pws/zycbe001-status EQ 'C' AND
v_alt_princ EQ 'N'.
MODIFY /pws/zycbt001.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbt001-nrseqc.
* >> Início da exclusão: FORM SAVE_ZYCBT001_TR
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
CLEAR v_ok.
IF /pws/zycbe001-nrcontr NE wa_zycbt001-nrcontr.
PERFORM refresh_zycbt004.
UPDATE /pws/zycbt005 SET nrcontr = /pws/zycbe001-nrcontr
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
* >> Início da exclusão: FORM SAVE_ZYCBT001_TR
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDSELECT.
ENDIF.
UPDATE /pws/zycbt006 SET nrcontr = /pws/zycbe001-nrcontr
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt006
INTO wa_zycbt006_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM SAVE_ZYCBT001_TR
DESCRIBE FIELD wa_zycbt006_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
PERFORM monta_log_cfm USING wa_zycbt006_log
'/PWS/ZYCBT006'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'A'.
ENDSELECT.
ENDIF.
ENDIF.
PERFORM save_zycbt002.
PERFORM save_zycbt003.
PERFORM save_zycbt005.
MOVE /pws/zycbe001 TO wa_zycbt001.
...
...
IF v_salvo_aux IS INITIAL.
INSERT INTO /pws/zycbt001 VALUES /pws/zycbe001.
WHILE sy-subrc NE 0.
PERFORM find_nrseqc.
INSERT INTO /pws/zycbt001 VALUES /pws/zycbe001.
IF wa_zycbt007-cfm = 'X'.
IF sy-subrc EQ 0.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
COMMIT WORK.
* >> Início da exclusão: FORM SAVE_ZYCBT001_TR
DESCRIBE FIELD /pws/zycbe001 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
PERFORM monta_log_cfm USING /pws/zycbe001
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'C'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
ENDIF.
ENDIF.
ENDIF.
v_existe = 'S'.
ENDWHILE.
IF wa_zycbt007-cfm = 'X'.
IF sy-subrc EQ 0.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
COMMIT WORK.
* >> Início da exclusão: FORM SAVE_ZYCBT001_TR
DESCRIBE FIELD /pws/zycbe001 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
PERFORM monta_log_cfm USING /pws/zycbe001
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'C'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
v_salvo_aux = 'X'.
MOVE /pws/zycbe001-nrseqc TO wa_zycbt001-nrseqc.
itab_zycbt002-nrseqc = /pws/zycbe001-nrseqc.
...
...
v_cont = 1.
ENDIF.
MODIFY /pws/zycbt001.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM SAVE_ZYCBT001_TR
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
MESSAGE i015 WITH text-261 text-262.
ELSE.
PERFORM refresh_dependent_tables USING v_ok 'SAVE'.
IF v_ok NE 'N'.
MODIFY /pws/zycbt001.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
* >> Início da exclusão: FORM SAVE_ZYCBT001_TR
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF wa_zycbt001-belnr2 IS INITIAL AND
wa_zycbt001-belnr_tr EQ wa_zycbt001-belnr.
PERFORM reverse_document_zycbt001.
ELSE.
IF wa_zycbt001-belnr2 IS INITIAL.
PERFORM reverse_document_zycbt_alt USING wa_zycbt001-belnr
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F02
...
MOVE /pws/zycbe001 TO /pws/zycbt001.
MOVE /pws/zycbe074 TO wa_zycbt074.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
ENDIF.
MODIFY /pws/zycbt001.
IF wa_zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM LANCA_PRE_PAGAMENTO_ACC
DESCRIBE FIELD /pws/zycbt001 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = /pws/zycbt001(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM LANCA_PRE_PAGAMENTO_ACC
PERFORM monta_log_cfm USING /pws/zycbt001
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
IF /pws/zycbt001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbt001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* >> Início da exclusão: FORM LANCA_PRE_PAGAMENTO_ACC
wa_log(v_len) = wa_zycbt005_log(v_len).
* << Fim da exclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDSELECT.
ENDIF.
ENDIF.
MOVE /pws/zycbe001 TO wa_zycbt001.
MOVE /pws/zycbe074 TO wa_zycbt074.
PERFORM save_zycbt002.
PERFORM save_zycbt003.
...
...
ELSE.
PERFORM lancamento_pre_acc.
MODIFY /pws/zycbt001.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM LANCA_PRE_PAGAMENTO_ACC
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt001_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM LANCA_PRE_PAGAMENTO_ACC
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* >> Início da exclusão: FORM LANCA_PRE_PAGAMENTO_ACC
wa_log(v_len) = wa_zycbt005_log(v_len).
* << Fim da exclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDSELECT.
ENDIF.
ENDIF.
MOVE /pws/zycbe001 TO wa_zycbt001.
MOVE /pws/zycbe074 TO wa_zycbt074.
UPDATE /pws/zycbt060 SET nrcontr = /pws/zycbe001-nrcontr
WHERE nrseq = /pws/zycbe001-nrseqc.
...
...
wa_zycbt001_pre-tpcontr(1) NE 'E'.
SELECT *
FROM /pws/zycbt002
INTO wa_zycbt002_log
WHERE nrseqc = itab_zycbt002p-nrseqc
AND tpparc = 'P'
AND nrparc = itab_zycbt002p-nrparc.
IF /pws/zycbe001-tpcontr(1) EQ 'T' AND
wa_zycbt002_log-tpparc EQ 'P'.
ELSE.
* >> Início da exclusão: FORM LANCAMENTO_PRE_ACC
DESCRIBE FIELD wa_zycbt002_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt002_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PRE_ACC
PERFORM monta_log_cfm USING wa_zycbt002_log
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'A'.
ENDIF.
ENDSELECT.
ENDIF.
ENDIF.
itab_contabil-nrseqpre = /pws/zycbe001-nrseqc.
itab_contabil-nrparpre = itab_zycbt002p-nrparc.
itab_contabil-belnr = itab_zycbt032-belnr.
...
...
wa_zycbt001_pre-tpcontr(1) NE 'E'.
SELECT *
FROM /pws/zycbt002
INTO wa_zycbt002_log
WHERE nrseqc = itab_zycbt002p-nrseqc
AND tpparc = 'P'
AND nrparc = itab_zycbt002p-nrparc.
IF /pws/zycbe001-tpcontr(1) EQ 'T' AND
wa_zycbt002_log-tpparc EQ 'P'.
ELSE.
* >> Início da exclusão: FORM LANCAMENTO_PRE_ACC
DESCRIBE FIELD wa_zycbt002_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt002_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PRE_ACC
PERFORM monta_log_cfm USING wa_zycbt002_log
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'A'.
ENDIF.
ENDSELECT.
ENDIF.
ENDIF.
v_prim = 'X'.
ENDLOOP.
ENDIF.
...
...
FROM /pws/zycbt001
INTO CORRESPONDING FIELDS OF /pws/zycbt001
WHERE nrseqc = v_nrseqc.
/pws/zycbt001-f_pre = 'X'.
/pws/zycbt001-status = 'I'.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = v_nrseqc.
* >> Início da exclusão: FORM ELIMINA_PRE_ACC
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt001_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_PRE_ACC
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'E'.
ENDIF.
DELETE FROM /pws/zycbt001
WHERE nrseqc = v_nrseqc.
COMMIT WORK.
MODIFY /pws/zycbt001.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt002
INTO wa_zycbt002_log
WHERE nrseqc = v_nrseqc.
IF wa_zycbt001_log-tpcontr(1) EQ 'T' AND
wa_zycbt002_log-tpparc EQ 'P'.
ELSE.
* >> Início da exclusão: FORM ELIMINA_PRE_ACC
DESCRIBE FIELD wa_zycbt002_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt002_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_PRE_ACC
PERFORM monta_log_cfm USING wa_zycbt002_log
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'E'.
ENDIF.
ENDSELECT.
ENDIF.
DELETE FROM /pws/zycbt002
WHERE nrseqc = v_nrseqc.
DELETE FROM /pws/zycbt003 WHERE nrseqc = v_nrseqc.
DELETE FROM /pws/zycbt004 WHERE nrseqc = v_nrseqc.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
belnr_comp_c = /pws/zycbe001-belnr_comp_c
WHERE nrseqc = /pws/zycbe001-nrseqc.
COMMIT WORK.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM FILL_DATA_F30
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F30
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
vlcancr = space
vldifcanc = space
WHERE nrseqc = /pws/zycbe001-nrseqc.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM CLEAR_ESTORNO
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEAR_ESTORNO
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
...
...
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
* >> Início da exclusão: FORM GRAVA_LOG
progname = sy-cprog.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LOG
progname = sy-cprog
EXCEPTIONS
table_not_found = 1
devclass_not_zy = 2
table_not_supported = 3
commit_error = 4
OTHERS = 5.
* << Fim da inclusão
ENDFORM.
FORM mensagens USING p_belnr.
DATA: v_texto(100).
IF v_primeiro IS INITIAL.
IF /pws/zycbe001-tpcontr(1) CA 'PS'.
itab_acerto-msg = text-434.
ELSE.
itab_acerto-msg = text-407.
ENDIF.
APPEND itab_acerto.
...
...
IF sy-subrc <> 0.
ENDIF.
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = p_exit BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
IF FOUND.
ENDIF.
ENDFORM.
* >> Início da inclusão:
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.
CLEAR: t_prog, wa_log.
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.
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
APPEND 'tables: dd03l. ' TO t_prog.
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.
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.
APPEND ' p_dados TO <VALOR>. ' TO t_prog.
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.
APPEND ' v_valor = <VALOR>. ' TO t_prog.
MOVE text-453 TO t_prog.
APPEND t_prog.
APPEND ' condense v_valor no-gaps. ' TO t_prog.
APPEND ' SHIFT v_valor(dd03l-leng) RIGHT ' TO t_prog.
APPEND ' DELETING TRAILING space. ' TO t_prog.
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.
APPEND ' BUFFER = v_xstring ' TO t_prog.
APPEND ' TABLES ' TO t_prog.
APPEND ' BINARY_TAB = binary_tab. ' TO t_prog.
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.
APPEND ' p_wa_log+v_tam(dd03l-leng) = <VALOR>. ' TO t_prog.
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
p_tabela
CHANGING p_wa_log
IF FOUND.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
...
AND dtvincul = /pws/zycbe004-dtincl
AND nrparc = /pws/zycbe004-nrparc.
COMMIT WORK.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe004-nrseqc
AND dtvincul = /pws/zycbe004-dtincl
AND nrparc = /pws/zycbe004-nrparc.
* >> Início da exclusão: MODULE USER_COMMAND_0200
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt005_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDSELECT.
ENDIF.
ENDIF.
MOVE-CORRESPONDING /pws/zycbe004 TO wa_zycbe004_d.
CLEAR: /pws/zycbe004.
MOVE-CORRESPONDING wa_zycbe004_d TO /pws/zycbe004.
MESSAGE s018.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
INTO wa_zycbt006_log
WHERE nrseqc = itab_zycbt006-nrseqc
AND tpdesp = itab_zycbt006-tpdesp
AND nrparc = itab_zycbt006-nrparc
AND dtincl = itab_zycbt006-dtincl
AND nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
AND dtvincul = itab_zycbt006-dtvincul
AND dtvencto = itab_zycbt006-dtvencto
AND dtpagto = itab_zycbt006-dtpagto.
* >> Início da exclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES
DESCRIBE FIELD wa_zycbt006_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt006_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES
PERFORM monta_log_cfm USING wa_zycbt006_log
'/PWS/ZYCBT006'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'E'.
ENDIF.
DELETE FROM /pws/zycbt006 WHERE nrseqc = itab_zycbt006-nrseqc
AND tpdesp = itab_zycbt006-tpdesp
AND nrparc = itab_zycbt006-nrparc
AND dtincl = itab_zycbt006-dtincl
AND nrinvoic = itab_zycbt006-nrinvoic
AND nrparcf = itab_zycbt006-nrparcf
...
...
IF sy-subrc EQ 0.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ017'.
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.
IF wa_zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES
DESCRIBE FIELD /pws/zycbt006 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = /pws/zycbt006(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES
PERFORM monta_log_cfm USING /pws/zycbt006
'/PWS/ZYCBT006'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt006_log IS INITIAL AND itab_zycbt006-v_status = 'I'.
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'A'.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
INTO wa_zycbt006_log
WHERE nrseqc = itab_zycbt006-nrseqc
AND tpdesp = itab_zycbt006-tpdesp
AND nrparc = itab_zycbt006-nrparc
AND dtincl = itab_zycbt006-dtincl
AND nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
AND dtvincul = itab_zycbt006-dtvincul
AND dtvencto = itab_zycbt006-dtvencto
AND dtpagto = itab_zycbt006-dtpagto.
* >> Início da exclusão: FORM ATUALIZA_TABELAS_TRANSP2
DESCRIBE FIELD wa_zycbt006_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2
PERFORM monta_log_cfm USING wa_zycbt006_log
'/PWS/ZYCBT006'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'E'.
ENDIF.
DELETE FROM /pws/zycbt006 WHERE nrseqc = itab_zycbt006-nrseqc
AND tpdesp = itab_zycbt006-tpdesp
AND nrparc = itab_zycbt006-nrparc
AND dtincl = itab_zycbt006-dtincl
AND nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
...
...
IF sy-subrc EQ 0.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ017'.
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.
IF wa_zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM ATUALIZA_TABELAS_TRANSP2
DESCRIBE FIELD /pws/zycbt006 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2
PERFORM monta_log_cfm USING /pws/zycbt006
'/PWS/ZYCBT006'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt006_log IS INITIAL AND itab_zycbt006-v_status = 'I'.
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'A'.
ENDIF.
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
* >> Início da exclusão: FORM GRAVA_LOG
progname = sy-cprog.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LOG
progname = sy-cprog
EXCEPTIONS
table_not_found = 1
devclass_not_zy = 2
table_not_supported = 3
commit_error = 4
OTHERS = 5.
* << Fim da inclusão
ENDFORM.
FORM busca_conta.
DATA: v_cod_param LIKE /pws/zyglt316-codaux1,
v_prazo,
v_nrdias TYPE i.
v_nrdias = itab_zycbt006-dtpagto - itab_zycbt006-dtvincul.
IF v_nrdias > 360.
v_prazo = 'L'.
ELSE.
v_prazo = 'S'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
READ TABLE itab_zyglt100 WITH KEY zexit = p_exit.
CHECK:
sy-subrc EQ 0,
itab_zyglt100-zexit_ativa EQ 'X',
NOT itab_zyglt100-formulario IS INITIAL,
NOT itab_zyglt100-programa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
IF FOUND.
ENDFORM.
* >> Início da inclusão:
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.
CLEAR: t_prog, wa_log.
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.
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
APPEND 'tables: dd03l. ' TO t_prog.
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.
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.
APPEND ' p_dados TO <VALOR>. ' TO t_prog.
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.
APPEND ' v_valor = <VALOR>. ' TO t_prog.
MOVE text-453 TO t_prog.
APPEND t_prog.
APPEND ' condense v_valor no-gaps. ' TO t_prog.
APPEND ' SHIFT v_valor(dd03l-leng) RIGHT ' TO t_prog.
APPEND ' DELETING TRAILING space. ' TO t_prog.
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.
APPEND ' BUFFER = v_xstring ' TO t_prog.
APPEND ' TABLES ' TO t_prog.
APPEND ' BINARY_TAB = binary_tab. ' TO t_prog.
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.
APPEND ' p_wa_log+v_tam(dd03l-leng) = <VALOR>. ' TO t_prog.
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
p_tabela
CHANGING p_wa_log
IF FOUND.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F02
...
AND dtvincul = /pws/zycbe050-dtvincul
AND dtvencto = /pws/zycbe050-dtvencto.
ENDIF.
MODIFY /pws/zycbt050 FROM /pws/zycbe050.
IF wa_zycbt007-cfm = 'X'.
DESCRIBE FIELD /pws/zycbe050 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* >> Início da exclusão: FORM GRAVA_DEVOLUCAO
wa_log(v_len) = /pws/zycbe050(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO
PERFORM monta_log_cfm USING /pws/zycbe050
'/PWS/ZYCBT050'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt050_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT050'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT050'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
AND dtincl = itab_zycbt005-dtincl
AND nrinvoic = itab_zycbt005-nrinvoic
AND gsberf = itab_zycbt005-gsberf
AND dtvincul = itab_zycbt005-dtvincul
AND dtvencto = itab_zycbt005-dtvencto.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* >> Início da exclusão: FORM GRAVA_DEVOLUCAO
wa_log(v_len) = wa_zycbt005_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT itab_zycbt005 WHERE mark = 'X'.
UPDATE /pws/zycbt005 SET: slpagar = itab_zycbt005-slpagar
belnr = itab_zycbt005-belnr
WHERE nrseqc = itab_zycbt005-nrseqc
...
...
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = itab_zycbt005-nrseqc
AND tpdesp = itab_zycbt005-tpdesp
AND nrparc = itab_zycbt005-nrparc
AND dtincl = itab_zycbt005-dtincl
AND nrinvoic = itab_zycbt005-nrinvoic
AND gsberf = itab_zycbt005-gsberf
AND dtvincul = itab_zycbt005-dtvincul
AND dtvencto = itab_zycbt005-dtvencto.
* >> Início da exclusão: FORM GRAVA_DEVOLUCAO
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt005_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDIF.
ENDLOOP.
ENDIF.
COMMIT WORK.
ELSE.
MESSAGE i015 WITH text-109.
ENDIF.
...
...
/pws/zycbe050-vldev_fat.
MODIFY /pws/zycbt005 FROM itab_zycbt005.
IF wa_zycbt007-cfm = 'X'.
LOOP AT itab_zycbt005.
wa_zycbt005_log = itab_zycbt005.
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* >> Início da exclusão: FORM CLEARING_ESTORNO
wa_log(v_len) = wa_zycbt005_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_ESTORNO
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDLOOP.
ENDIF.
MODIFY itab_zycbt005 TRANSPORTING belnr slpagar
WHERE nrseqc = /pws/zycbe050-nrseqc
AND tpdesp = /pws/zycbe050-tpdesp
AND nrparc = /pws/zycbe050-nrparc
AND dtincl = /pws/zycbe050-dtincl
...
...
FROM /pws/zycbt050
INTO wa_zycbt050_log
WHERE nrseqc = /pws/zycbe050-nrseqc
AND tpdesp = /pws/zycbe050-tpdesp
AND nrparc = /pws/zycbe050-nrparc
AND dtincl = /pws/zycbe050-dtincl
AND nrinvoic = /pws/zycbe050-nrinvoic
AND gsberf = /pws/zycbe050-gsberf
AND dtvincul = /pws/zycbe050-dtvincul
AND dtvencto = /pws/zycbe050-dtvencto.
* >> Início da exclusão: FORM CLEARING_ESTORNO
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt005_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_ESTORNO
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT050'
wa_log
'E'.
ENDIF.
DELETE FROM /pws/zycbt050
WHERE nrseqc = /pws/zycbe050-nrseqc
AND tpdesp = /pws/zycbe050-tpdesp
AND nrparc = /pws/zycbe050-nrparc
AND dtincl = /pws/zycbe050-dtincl
AND nrinvoic = /pws/zycbe050-nrinvoic
...
...
FROM /pws/zycbt050
INTO wa_zycbt050_log
WHERE nrseqc = /pws/zycbe050-nrseqc AND
tpdesp = /pws/zycbe050-tpdesp AND
nrparc = /pws/zycbe050-nrparc AND
dtincl = /pws/zycbe050-dtincl AND
nrinvoic = /pws/zycbe050-nrinvoic AND
gsberf = /pws/zycbe050-gsberf AND
dtvincul = /pws/zycbe050-dtvincul AND
dtvencto = /pws/zycbe050-dtvencto.
* >> Início da exclusão: FORM ELIMINA_PDD
DESCRIBE FIELD wa_zycbt050_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt050_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_PDD
PERFORM monta_log_cfm USING wa_zycbt050_log
'/PWS/ZYCBT050'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT050'
wa_log
'A'.
ENDIF.
READ TABLE itab_zycbt005
WITH KEY nrinvoic = itab_zycbt051-nrinvoic
nrparcf = itab_zycbt051-nrparcf
gsberf = itab_zycbt051-gsberf.
READ TABLE itab_zycbt006
WITH KEY nrseqc = itab_zycbt005-nrseqc
...
...
FROM /pws/zycbt050
INTO wa_zycbt050_log
WHERE nrseqc = /pws/zycbe050-nrseqc AND
tpdesp = /pws/zycbe050-tpdesp AND
nrparc = /pws/zycbe050-nrparc AND
dtincl = /pws/zycbe050-dtincl AND
nrinvoic = /pws/zycbe050-nrinvoic AND
gsberf = /pws/zycbe050-gsberf AND
dtvincul = /pws/zycbe050-dtvincul AND
dtvencto = /pws/zycbe050-dtvencto.
* >> Início da exclusão: FORM CLEARING_ESTORNO_RPRD
DESCRIBE FIELD wa_zycbt050_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt050_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_ESTORNO_RPRD
PERFORM monta_log_cfm USING wa_zycbt050_log
'/PWS/ZYCBT050'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT050'
wa_log
'A'.
ENDIF.
READ TABLE itab_zycbt005
WITH KEY nrinvoic = itab_zycbt051-nrinvoic
nrparcf = itab_zycbt051-nrparcf
gsberf = itab_zycbt051-gsberf.
READ TABLE itab_zycbt006
WITH KEY nrseqc = itab_zycbt005-nrseqc
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F03
...
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = itab_zycbt005_ant-nrseqc
AND tpdesp = itab_zycbt005_ant-tpdesp
AND nrparc = itab_zycbt005_ant-nrparc
AND dtincl = itab_zycbt005_ant-dtincl
AND nrinvoic = itab_zycbt005_ant-nrinvoic
AND gsberf = itab_zycbt005_ant-gsberf
AND dtvincul = itab_zycbt005_ant-dtvincul
AND dtvencto = itab_zycbt005_ant-dtvencto.
* >> Início da exclusão: FORM GRAVA_TABELAS
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt005_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'E'.
ENDIF.
IF /pws/zycbe001-tpcontr NE 'PT'
OR ( /pws/zycbe001-tpcontr(1) EQ 'P' AND
itab_zycbt005_ant-belnr IS INITIAL AND
( itab_zycbt005_ant-status EQ 'I' OR
itab_zycbt005_ant-status IS INITIAL ) ).
DELETE FROM /pws/zycbt005
...
...
WHERE nrseqc = itab_zycbt005_ant-nrseqc
AND tpdesp = itab_zycbt005_ant-tpdesp
AND nrparc = itab_zycbt005_ant-nrparc
AND dtincl = itab_zycbt005_ant-dtincl
AND nrinvoic = itab_zycbt005_ant-nrinvoic
AND gsberf = itab_zycbt005_ant-gsberf
AND dtvincul = itab_zycbt005_ant-dtvincul
AND dtvencto = itab_zycbt005_ant-dtvencto
AND dtpagto = itab_zycbt005_ant-dtvincul.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM GRAVA_TABELAS
DESCRIBE FIELD wa_zycbt006_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt006_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
PERFORM monta_log_cfm USING wa_zycbt006_log
'/PWS/ZYCBT006'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'E'.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt006
WHERE nrseqc = itab_zycbt005_ant-nrseqc
AND tpdesp = itab_zycbt005_ant-tpdesp
AND nrparc = itab_zycbt005_ant-nrparc
AND dtincl = itab_zycbt005_ant-dtincl
...
...
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = itab_zycbt005-nrseqc
AND tpdesp = itab_zycbt005-tpdesp
AND nrparc = itab_zycbt005-nrparc
AND dtincl = itab_zycbt005-dtincl
AND nrinvoic = itab_zycbt005-nrinvoic
AND gsberf = itab_zycbt005-gsberf
AND dtvincul = itab_zycbt005-dtvincul
AND dtvencto = itab_zycbt005-dtvencto.
* >> Início da inclusão: FORM GRAVA_TABELAS
MODIFY /pws/zycbt005 FROM itab_zycbt005.
PERFORM monta_log_cfm USING itab_zycbt005
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
* >> Início da exclusão: FORM GRAVA_TABELAS
DESCRIBE FIELD itab_zycbt005 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = itab_zycbt005(v_len).
* << Fim da exclusão
IF sy-subrc EQ 0.
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'C'.
ENDIF.
* >> Início da exclusão: FORM GRAVA_TABELAS
MODIFY /pws/zycbt005 FROM itab_zycbt005.
* << Fim da exclusão
ENDLOOP.
ENDIF.
MODIFY /pws/zycbt017 FROM TABLE itab_zycbt017.
MODIFY /pws/zycbt001 FROM /pws/zycbe001.
COMMIT WORK.
PERFORM atualiza_reserva.
IF sy-tcode = c_transacao_a.
LOOP AT itab_zycbt005.
SELECT SINGLE * FROM /pws/zycbt004
WHERE nrseqc = itab_zycbt005-nrseqc
...
...
INTO wa_zycbt006_log
WHERE nrseqc = itab_zycbt006-nrseqc
AND tpdesp = itab_zycbt006-tpdesp
AND nrparc = itab_zycbt006-nrparc
AND dtincl = itab_zycbt006-dtincl
AND nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
AND dtvincul = itab_zycbt006-dtvincul
AND dtvencto = itab_zycbt006-dtvencto
AND dtpagto = itab_zycbt006-dtpagto.
* >> Início da exclusão: FORM GRAVA_LIQUIDACAO
DESCRIBE FIELD itab_zycbt006 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = itab_zycbt006(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LIQUIDACAO
PERFORM monta_log_cfm USING itab_zycbt006
'/PWS/ZYCBT006'
CHANGING wa_log.
* << Fim da inclusão
IF sy-subrc EQ 0.
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'A'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'C'.
ENDIF.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F06
...
AND tpdesp = /pws/zycbe050-tpdesp
AND nrparc = /pws/zycbe050-nrparc
AND dtincl = /pws/zycbe050-dtincl
AND nrinvoic = /pws/zycbe050-nrinvoic
AND gsberf = /pws/zycbe050-gsberf
AND dtvincul = /pws/zycbe050-dtvincul
AND dtvencto = /pws/zycbe050-dtvencto.
ENDIF.
MODIFY /pws/zycbt050 FROM /pws/zycbe050.
IF wa_zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM GRAVA_DEVOLUCAO_VAR
DESCRIBE FIELD /pws/zycbe050 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = /pws/zycbe050(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
PERFORM monta_log_cfm USING /pws/zycbe050
'/PWS/ZYCBT050'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt050_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT050'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT050'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = itab_zycbt005-nrseqc
AND tpdesp = itab_zycbt005-tpdesp
AND nrparc = itab_zycbt005-nrparc
AND dtincl = itab_zycbt005-dtincl
AND nrinvoic = itab_zycbt005-nrinvoic
AND gsberf = itab_zycbt005-gsberf
AND dtvincul = itab_zycbt005-dtvincul
AND dtvencto = itab_zycbt005-dtvencto.
* >> Início da exclusão: FORM GRAVA_DEVOLUCAO_VAR
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt005_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT itab_zycbt005 WHERE mark = 'X'.
UPDATE /pws/zycbt005 SET: slpagar = itab_zycbt005-slpagar
belnr = itab_zycbt005-belnr
dtbelnr = itab_zycbt005-dtbelnr
...
...
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = itab_zycbt005-nrseqc
AND tpdesp = itab_zycbt005-tpdesp
AND nrparc = itab_zycbt005-nrparc
AND dtincl = itab_zycbt005-dtincl
AND nrinvoic = itab_zycbt005-nrinvoic
AND gsberf = itab_zycbt005-gsberf
AND dtvincul = itab_zycbt005-dtvincul
AND dtvencto = itab_zycbt005-dtvencto.
* >> Início da exclusão: FORM GRAVA_DEVOLUCAO_VAR
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt005_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDIF.
ENDLOOP.
ENDIF.
COMMIT WORK.
ELSE.
MESSAGE i015 WITH text-109.
ENDIF.
...
...
APPEND itab_zycbt036.
IF NOT v_belnr_comp IS INITIAL.
APPEND itab_zycbe033.
ELSE.
itab_zycbt005-slpagar = itab_zycbt005-slpagar +
/pws/zycbe050-vldev_fat.
MODIFY /pws/zycbt005 FROM itab_zycbt005.
IF wa_zycbt007-cfm = 'X'.
LOOP AT itab_zycbt005.
MOVE-CORRESPONDING itab_zycbt005 TO wa_zycbt005_log.
* >> Início da exclusão: FORM EXECUTA_CLEARING_DEV
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt005_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_DEV
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDLOOP.
ENDIF.
MODIFY itab_zycbt005 TRANSPORTING slpagar
WHERE nrseqc = /pws/zycbe050-nrseqc
AND tpdesp = /pws/zycbe050-tpdesp
AND nrparc = /pws/zycbe050-nrparc
AND dtincl = /pws/zycbe050-dtincl
...
...
FROM /pws/zycbt050
INTO wa_zycbt050_log
WHERE nrseqc = /pws/zycbe050-nrseqc
AND tpdesp = /pws/zycbe050-tpdesp
AND nrparc = /pws/zycbe050-nrparc
AND dtincl = /pws/zycbe050-dtincl
AND nrinvoic = /pws/zycbe050-nrinvoic
AND gsberf = /pws/zycbe050-gsberf
AND dtvincul = /pws/zycbe050-dtvincul
AND dtvencto = /pws/zycbe050-dtvencto.
* >> Início da inclusão: FORM EXECUTA_CLEARING_DEV
PERFORM monta_log_cfm USING wa_zycbt050_log
'/PWS/ZYCBT050'
CHANGING wa_log.
* << Fim da inclusão
* >> Início da exclusão: FORM EXECUTA_CLEARING_DEV
DESCRIBE FIELD wa_zycbt050_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt050_log(v_len).
* << Fim da exclusão
PERFORM grava_log USING '/PWS/ZYCBT050'
wa_log
'E'.
ENDIF.
DELETE FROM /pws/zycbt050 WHERE nrseqc = /pws/zycbe050-nrseqc
AND tpdesp = /pws/zycbe050-tpdesp
AND nrparc = /pws/zycbe050-nrparc
AND dtincl = /pws/zycbe050-dtincl
AND nrinvoic = /pws/zycbe050-nrinvoic
AND nrparcf = /pws/zycbe050-nrparcf
...
...
AND dtincl = /pws/zycbe050-dtincl
AND nrinvoic = /pws/zycbe050-nrinvoic
AND nrparcf = /pws/zycbe050-nrparcf
AND gsberf = /pws/zycbe050-gsberf
AND dtvincul = /pws/zycbe050-dtvincul
AND dtvencto = /pws/zycbe050-dtvencto.
MODIFY /pws/zycbt005 FROM itab_zycbt005.
IF wa_zycbt007-cfm = 'X'.
LOOP AT itab_zycbt005.
MOVE-CORRESPONDING itab_zycbt005 TO wa_zycbt005_log.
* >> Início da exclusão: FORM EXECUTA_CLEARING_DEV
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt005_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_DEV
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDLOOP.
ENDIF.
IF /pws/zycbe001-tpcontr(01) CA 'CE'.
/pws/zycbe001-slpagar = /pws/zycbe001-slpagar +
/pws/zycbe050-vldev_fat.
/pws/zycbe001-belnr2 = itab_zycbt032-belnr.
/pws/zycbe001-dtvincul = itab_zycbe033-budat.
...
...
FROM /pws/zycbt050
INTO wa_zycbt050_log
WHERE nrseqc = /pws/zycbe050-nrseqc
AND tpdesp = /pws/zycbe050-tpdesp
AND nrparc = /pws/zycbe050-nrparc
AND dtincl = /pws/zycbe050-dtincl
AND nrinvoic = /pws/zycbe050-nrinvoic
AND gsberf = /pws/zycbe050-gsberf
AND dtvincul = /pws/zycbe050-dtvincul
AND dtvencto = /pws/zycbe050-dtvencto.
* >> Início da exclusão: FORM EXECUTA_CLEARING_DEV
DESCRIBE FIELD wa_zycbt050_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
wa_log(v_len) = wa_zycbt050_log(v_len).
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_DEV
PERFORM monta_log_cfm USING wa_zycbt050_log
'/PWS/ZYCBT050'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT050'
wa_log
'E'.
ENDIF.
DELETE FROM /pws/zycbt050
WHERE nrseqc = /pws/zycbe050-nrseqc
AND tpdesp = /pws/zycbe050-tpdesp
AND nrparc = /pws/zycbe050-nrparc
AND dtincl = /pws/zycbe050-dtincl
AND nrinvoic = /pws/zycbe050-nrinvoic
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F09
...
nrparcf = itab_zycbt005_ant-nrparcf.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM.
FORM grava_log USING value(p_table)
wa_data
p_oper.
CALL FUNCTION '/PWS/ZYGL_LOG_TABLE'
EXPORTING
* >> Início da exclusão: FORM GRAVA_LOG
tabname = p_table
oper = p_oper
wa_data = wa_data
progname = sy-cprog.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LOG
tabname = p_table
oper = p_oper
wa_data = wa_data
progname = sy-cprog
EXCEPTIONS
table_not_found = 1
devclass_not_zy = 2
table_not_supported = 3
commit_error = 4
OTHERS = 5.
* << Fim da inclusão
ENDFORM.
FORM lancamento_cliente.
DATA v_cpochv LIKE /pws/zycbe033-cpochv.
PERFORM clear_date_batch.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = 'ZYCBT050' .
IF wa_zycbt209-belnr2 IS INITIAL.
itab_zycbe033-belnr = wa_zycbt209-belnr.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = itab_zycbt005_ant-nrseqc
AND tpdesp = itab_zycbt005_ant-tpdesp
AND nrparc = itab_zycbt005_ant-nrparc
AND dtincl = itab_zycbt005_ant-dtincl
AND nrinvoic = itab_zycbt005_ant-nrinvoic
AND gsberf = itab_zycbt005_ant-gsberf
AND dtvincul = itab_zycbt005_ant-dtvincul
AND dtvencto = itab_zycbt005_ant-dtvencto.
* >> Início da exclusão: FORM ATUALIZA_DADOS_ESTORNO
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DADOS_ESTORNO
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'E'.
ENDIF.
DELETE FROM /pws/zycbt005
WHERE nrseqc = itab_zycbt005_ant-nrseqc
AND tpdesp = itab_zycbt005_ant-tpdesp
AND nrparc = itab_zycbt005_ant-nrparc
AND dtincl = itab_zycbt005_ant-dtincl
AND nrinvoic = itab_zycbt005_ant-nrinvoic
...
...
WHERE nrseqc = itab_zycbt005_ant-nrseqc
AND tpdesp = itab_zycbt005_ant-tpdesp
AND nrparc = itab_zycbt005_ant-nrparc
AND dtincl = itab_zycbt005_ant-dtincl
AND nrinvoic = itab_zycbt005_ant-nrinvoic
AND gsberf = itab_zycbt005_ant-gsberf
AND dtvincul = itab_zycbt005_ant-dtvincul
AND dtvencto = itab_zycbt005_ant-dtvencto
AND dtpagto = itab_zycbt005_ant-dtvincul.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM ATUALIZA_DADOS_ESTORNO
DESCRIBE FIELD wa_zycbt006_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DADOS_ESTORNO
PERFORM monta_log_cfm USING wa_zycbt006_log
'/PWS/ZYCBT006'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'E'.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt006
WHERE nrseqc = itab_zycbt005_ant-nrseqc
AND tpdesp = itab_zycbt005_ant-tpdesp
AND nrparc = itab_zycbt005_ant-nrparc
AND dtincl = itab_zycbt005_ant-dtincl
...
...
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = itab_zycbt005-nrseqc
AND tpdesp = itab_zycbt005-tpdesp
AND nrparc = itab_zycbt005-nrparc
AND dtincl = itab_zycbt005-dtincl
AND nrinvoic = itab_zycbt005-nrinvoic
AND gsberf = itab_zycbt005-gsberf
AND dtvincul = itab_zycbt005-dtvincul
AND dtvencto = itab_zycbt005-dtvencto.
* >> Início da exclusão: FORM GRAVA_CONTABILIZACAO
DESCRIBE FIELD itab_zycbt005 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_CONTABILIZACAO
MODIFY /pws/zycbt005 FROM itab_zycbt005.
PERFORM monta_log_cfm USING itab_zycbt005
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
IF sy-subrc EQ 0.
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'C'.
ENDIF.
* >> Início da exclusão: FORM GRAVA_CONTABILIZACAO
MODIFY /pws/zycbt005 FROM itab_zycbt005.
* << Fim da exclusão
ENDLOOP.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'DP' AND
v_erro_estorno IS INITIAL.
MODIFY /pws/zycbt005 FROM TABLE itab_zycbt005.
MODIFY /pws/zycbt017 FROM TABLE itab_zycbt017.
ELSEIF /pws/zycbe001-tpcontr NE 'DP'.
MODIFY /pws/zycbt005 FROM TABLE itab_zycbt005.
MODIFY /pws/zycbt017 FROM TABLE itab_zycbt017.
ENDIF.
IF /pws/zycbe001-tpcontr(1) = 'P' OR
/pws/zycbe001-tpcontr(1) = 'S'.
MODIFY /pws/zycbt002 FROM TABLE itab_zycbt002p.
MODIFY /pws/zycbt069 FROM TABLE itab_zycbt069.
ENDIF.
COMMIT WORK.
endform.
* >> Início da inclusão:
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.
CLEAR: t_prog, wa_log.
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.
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
APPEND 'tables: dd03l. ' TO t_prog.
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.
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.
APPEND ' p_dados TO <VALOR>. ' TO t_prog.
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.
APPEND ' v_valor = <VALOR>. ' TO t_prog.
MOVE text-453 TO t_prog.
APPEND t_prog.
APPEND ' condense v_valor no-gaps. ' TO t_prog.
APPEND ' SHIFT v_valor(dd03l-leng) RIGHT ' TO t_prog.
APPEND ' DELETING TRAILING space. ' TO t_prog.
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.
APPEND ' BUFFER = v_xstring ' TO t_prog.
APPEND ' TABLES ' TO t_prog.
APPEND ' BINARY_TAB = binary_tab. ' TO t_prog.
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.
APPEND ' p_wa_log+v_tam(dd03l-leng) = <VALOR>. ' TO t_prog.
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
p_tabela
CHANGING p_wa_log
IF FOUND.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB010F01
...
IF /pws/zycbe001-tpcontr EQ 'E' AND
/pws/zycbt007-cfm EQ 'X'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc
AND tpdesp = space
AND nrinvoic = itab_zycbt005_excluidas-nrinvoic
AND nrparcf = itab_zycbt005_excluidas-nrparcf
AND gsberf = itab_zycbt005_excluidas-gsberf.
* >> Início da exclusão: FORM GRAVA_TABELAS
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'E'.
ENDSELECT.
ENDIF.
DELETE FROM /pws/zycbt005
WHERE nrseqc = /pws/zycbe001-nrseqc
AND tpdesp = space
AND nrinvoic = itab_zycbt005_excluidas-nrinvoic
AND nrparcf = itab_zycbt005_excluidas-nrparcf
...
...
LOOP AT itab_zycbt005_excluidas.
IF /pws/zycbe001-tpcontr EQ 'E' AND
/pws/zycbt007-cfm EQ 'X'.
SELECT * FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbe001-nrseqc
AND tpdesp = space
AND nrinvoic = itab_zycbt005_excluidas-nrinvoic
AND nrparcf = itab_zycbt005_excluidas-nrparcf
AND gsberf = itab_zycbt005_excluidas-gsberf.
* >> Início da inclusão: FORM GRAVA_TABELAS
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
* >> Início da exclusão: FORM GRAVA_TABELAS
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'E'.
ENDSELECT.
ENDIF.
DELETE FROM /pws/zycbt005
WHERE nrseqc = /pws/zycbe001-nrseqc
AND tpdesp = space
AND nrinvoic = itab_zycbt005_excluidas-nrinvoic
AND nrparcf = itab_zycbt005_excluidas-nrparcf
...
...
WHERE nrseqc = v_nrseqc_ant.
ENDIF.
ENDIF.
MODIFY /pws/zycbt005 FROM TABLE itab_zycbt005.
MODIFY /pws/zycbt017 FROM TABLE itab_zycbt017.
COMMIT WORK.
IF /pws/zycbe001-tpcontr EQ 'E' AND
/pws/zycbt007-cfm EQ 'X'.
LOOP AT itab_zycbt005.
MOVE-CORRESPONDING itab_zycbt005 TO wa_zycbt005_log.
* >> Início da exclusão: FORM GRAVA_TABELAS
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
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.
...
...
ENDIF.
ENDLOOP.
MODIFY /pws/zycbt001 FROM /pws/zycbe001.
MODIFY /pws/zycbt005 FROM TABLE itab_zycbt005.
MODIFY /pws/zycbt017 FROM TABLE itab_zycbt017.
COMMIT WORK.
IF /pws/zycbe001-tpcontr EQ 'E' AND
/pws/zycbt007-cfm EQ 'X'.
LOOP AT itab_zycbt005.
MOVE-CORRESPONDING itab_zycbt005 TO wa_zycbt005_log.
* >> Início da exclusão: FORM GRAVA_TABELAS
DESCRIBE FIELD wa_zycbt005_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDLOOP.
ENDIF.
ENDIF.
CLEAR v_ind_mudanca.
IF NOT v_ind_delecao IS INITIAL.
CLEAR v_ind_delecao.
ENDIF.
...
...
CLEAR: ok_code.
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
* >> Início da exclusão: FORM GRAVA_LOG
progname = sy-cprog.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LOG
progname = sy-cprog
EXCEPTIONS
table_not_found = 1
devclass_not_zy = 2
table_not_supported = 3
commit_error = 4
OTHERS = 5.
* << Fim da inclusão
ENDFORM.
FORM calculo.
DATA:
v_vldif LIKE /pws/zycbe005-vlslf,
v_vlslf LIKE /pws/zycbe005-vlslf.
READ TABLE itab_zycbt005_aux
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf.
IF sy-subrc EQ 0.
...
...
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD '/PWS/ZYCB001_A'.
IF sy-subrc EQ 0.
SET PARAMETER ID '/PWS/ZYCBP019' FIELD /pws/zycbe001-nrseqc.
CALL TRANSACTION '/PWS/ZYCB001_A' AND SKIP FIRST SCREEN .
ELSE.
MESSAGE e261(sf) WITH '/PWS/ZYCB001_A'.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da inclusão:
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.
CLEAR: t_prog, wa_log.
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.
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
APPEND 'tables: dd03l. ' TO t_prog.
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.
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.
APPEND ' p_dados TO <VALOR>. ' TO t_prog.
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.
APPEND ' v_valor = <VALOR>. ' TO t_prog.
MOVE text-453 TO t_prog.
APPEND t_prog.
APPEND ' condense v_valor no-gaps. ' TO t_prog.
APPEND ' SHIFT v_valor(dd03l-leng) RIGHT ' TO t_prog.
APPEND ' DELETING TRAILING space. ' TO t_prog.
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.
APPEND ' BUFFER = v_xstring ' TO t_prog.
APPEND ' TABLES ' TO t_prog.
APPEND ' BINARY_TAB = binary_tab. ' TO t_prog.
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.
APPEND ' p_wa_log+v_tam(dd03l-leng) = <VALOR>. ' TO t_prog.
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
p_tabela
CHANGING p_wa_log
IF FOUND.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012F01
...
MESSAGE i061 WITH text-008 text-007 /pws/zycbe043-nrpagto.
ENDIF.
v_ins = '1'.
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.
* >> Início da exclusão: FORM GRAVA_TABELAS
DESCRIBE FIELD itab_zycbt044 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
PERFORM monta_log_cfm USING itab_zycbt044
'/PWS/ZYCBT044'
CHANGING wa_log.
* << Fim da inclusão
SELECT SINGLE *
FROM /pws/zycbt044
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.
IF sy-subrc EQ 0.
...
...
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
AND dtliquid = itab_zycbt044_del-dtliquid.
* >> Início da exclusão: FORM GRAVA_TABELAS
DESCRIBE FIELD wa_zycbt044_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
PERFORM monta_log_cfm USING wa_zycbt044_log
'/PWS/ZYCBT044'
CHANGING wa_log.
* << Fim da inclusão
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
...
...
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.
DELETE /pws/zycbt043 FROM TABLE itab_zycbt043.
v_check = 'X'.
LOOP AT itab_zycbt044 WHERE nrpagto EQ v_nrpagto.
IF wa_zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM EXCLUI_REGISTRO
DESCRIBE FIELD itab_zycbt044 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_REGISTRO
PERFORM monta_log_cfm USING itab_zycbt044
'/PWS/ZYCBT044'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'E'.
ENDIF.
DELETE /pws/zycbt044 FROM TABLE itab_zycbt044.
ENDLOOP.
EXIT.
ENDIF.
ENDLOOP.
COMMIT WORK.
...
...
/pws/zycbe043-belnr_p = itab_zycbt032-belnr.
itab_zycbt044-belnr_p = itab_zycbt032-belnr.
/pws/zycbe043-dtpagto = sy-datum.
itab_zycbt044-dtpagto = /pws/zycbe043-dtincl.
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.
* >> Início da exclusão: FORM FILL_DATE_F-02
DESCRIBE FIELD itab_zycbt044 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-02
PERFORM monta_log_cfm USING itab_zycbt044
'/PWS/ZYCBT044'
CHANGING wa_log.
* << Fim da inclusão
CLEAR wa_zycbt044_log.
SELECT SINGLE *
FROM /pws/zycbt044
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.
...
...
CLEAR wa_zycbt044_log.
SELECT SINGLE *
FROM /pws/zycbt044
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 exclusão: FORM REVERSE_DOCUMENT_FB08
DESCRIBE FIELD wa_zycbt044_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
PERFORM monta_log_cfm USING wa_zycbt044_log
'/PWS/ZYCBT044'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'A'.
ENDLOOP.
ENDIF.
MODIFY /pws/zycbt044 FROM TABLE itab_zycbt044.
COMMIT WORK.
PERFORM clear_date_batch.
ELSE.
LOOP AT itab_zycbt032.
...
...
dtliquid = itab_zycbt044-dtliquid AND
tpjuros = itab_zycbt044-tpjuros.
ENDLOOP.
MODIFY /pws/zycbt043 FROM /pws/zycbe043.
MODIFY /pws/zycbt044 FROM TABLE itab_zycbt044.
IF wa_zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt044
INTO wa_zycbt044_log
WHERE nrpagto = itab_zycbt044-nrpagto.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FB08
DESCRIBE FIELD wa_zycbt044_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
PERFORM monta_log_cfm USING wa_zycbt044_log
'/PWS/ZYCBT044'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT044'
wa_log
'A'.
ENDSELECT.
ENDIF.
COMMIT WORK.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
...
...
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'.
* >> Início da exclusão: FORM EXCLUI_ZYCBT044
DESCRIBE FIELD itab_zycbt044 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_ZYCBT044
PERFORM monta_log_cfm USING itab_zycbt044
'/PWS/ZYCBT044'
CHANGING wa_log.
* << Fim da inclusão
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'.
MESSAGE s280.
...
...
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
* >> Início da exclusão: FORM GRAVA_LOG
progname = sy-cprog.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LOG
progname = sy-cprog
EXCEPTIONS
table_not_found = 1
devclass_not_zy = 2
table_not_supported = 3
commit_error = 4
OTHERS = 5.
* << 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.
...
...
ELSE.
READ TABLE itab_zyglt316 INDEX 1.
MOVE itab_zyglt316-konth TO itab_zycbe033-c_newko.
itab_contas-conta = itab_zycbe033-c_newko.
APPEND itab_contas.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-c_newko
'NEWKO'
text-016.
ENDFORM.
* >> Início da inclusão:
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.
CLEAR: t_prog, wa_log.
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.
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
APPEND 'tables: dd03l. ' TO t_prog.
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.
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.
APPEND ' p_dados TO <VALOR>. ' TO t_prog.
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.
APPEND ' v_valor = <VALOR>. ' TO t_prog.
MOVE text-453 TO t_prog.
APPEND t_prog.
APPEND ' condense v_valor no-gaps. ' TO t_prog.
APPEND ' SHIFT v_valor(dd03l-leng) RIGHT ' TO t_prog.
APPEND ' DELETING TRAILING space. ' TO t_prog.
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.
APPEND ' BUFFER = v_xstring ' TO t_prog.
APPEND ' TABLES ' TO t_prog.
APPEND ' BINARY_TAB = binary_tab. ' TO t_prog.
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.
APPEND ' p_wa_log+v_tam(dd03l-leng) = <VALOR>. ' TO t_prog.
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
p_tabela
CHANGING p_wa_log
IF FOUND.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB014F01
...
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = itab_zycbt061-nrseq_c.
ENDSELECT.
ENDIF.
ENDIF.
MODIFY /pws/zycbt001.
IF /pws/zycbt007-cfm = 'X'.
IF /pws/zycbt001-tpcontr(1) NE 'C' AND
/pws/zycbt001-tpcontr(1) NE 'E'.
* >> Início da exclusão: FORM GRAVA_TABELAS
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt001_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = itab_zycbt061-nrseq_c.
ENDSELECT.
ENDIF.
ENDIF.
MODIFY /pws/zycbt001.
IF /pws/zycbt007-cfm = 'X'.
IF /pws/zycbt001-tpcontr(1) NE 'C' AND
/pws/zycbt001-tpcontr(1) NE 'E'.
* >> Início da exclusão: FORM GRAVA_TABELAS
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt001_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
ENDIF.
IF /pws/zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = itab_zycbt061-nrseq_c.
ENDSELECT.
ENDIF.
MODIFY /pws/zycbt001.
IF /pws/zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM GRAVA_TABELAS
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt001_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
ENDIF.
ENDFORM.
FORM elimina_registros.
DATA: v_valor LIKE /pws/zycbt001-slvinc.
IF /pws/zycbe060 IS INITIAL.
IF /pws/zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt060
INTO wa_zycbt060_log
WHERE nrseq = wa_zycbt001-nrseqc.
* >> Início da exclusão: FORM ELIMINA_REGISTROS
DESCRIBE FIELD wa_zycbt060_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_REGISTROS
PERFORM monta_log_cfm USING wa_zycbt060_log
'/PWS/ZYCBT060'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT060'
wa_log
'E'.
ENDSELECT.
ENDIF.
DELETE FROM /pws/zycbt060
WHERE nrseq = wa_zycbe060_aux2-nrseq.
ENDIF.
CLEAR v_valor.
LOOP AT itab_aux_zycbt061.
READ TABLE itab_zycbt061 WITH KEY
nrseq_c = itab_aux_zycbt061-nrseq_c.
IF sy-subrc NE 0.
IF /pws/zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt061
INTO wa_zycbt061_log
WHERE nrseq = wa_zycbt001-nrseqc.
* >> Início da inclusão: FORM ELIMINA_REGISTROS
PERFORM monta_log_cfm USING wa_zycbt061_log
'/PWS/ZYCBT061'
CHANGING wa_log.
* << Fim da inclusão
* >> Início da exclusão: FORM ELIMINA_REGISTROS
DESCRIBE FIELD wa_zycbt061_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
PERFORM grava_log USING '/PWS/ZYCBT061'
wa_log
'E'.
ENDSELECT.
ENDIF.
DELETE FROM /pws/zycbt061
WHERE nrseq_c = itab_aux_zycbt061-nrseq_c.
v_valor = /pws/zycbt001-slvinc + itab_aux_zycbt061-vlalt.
UPDATE /pws/zycbt001 SET slvinc = v_valor
WHERE nrseqc = itab_aux_zycbt061-nrseq.
...
...
LOOP AT itab_zycbt061.
PERFORM exclui_zycbt004 USING itab_zycbt061-nrseq
itab_zycbt061-nrseq_c.
ENDLOOP.
IF /pws/zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt060
INTO wa_zycbt060_log
WHERE nrseq = /pws/zycbe060-nrseq.
ENDSELECT.
* >> Início da exclusão: FORM ELIMINA_PROCESSO
DESCRIBE FIELD wa_zycbt060_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_PROCESSO
PERFORM monta_log_cfm USING wa_zycbt060_log
'/PWS/ZYCBT060'
CHANGING wa_log.
* << Fim da inclusão
IF NOT wa_zycbt060_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT060'
wa_log
'E'.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt060
WHERE nrseq = /pws/zycbe060-nrseq.
IF /pws/zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt061
INTO wa_zycbt061_log
WHERE nrseq = /pws/zycbe060-nrseq.
ENDSELECT.
* >> Início da exclusão: FORM ELIMINA_PROCESSO
DESCRIBE FIELD wa_zycbt061_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_PROCESSO
PERFORM monta_log_cfm USING wa_zycbt061_log
'/PWS/ZYCBT061'
CHANGING wa_log.
* << Fim da inclusão
IF NOT wa_zycbt061_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT061'
wa_log
'E'.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt061
WHERE nrseq = /pws/zycbe060-nrseq.
IF /pws/zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt062
INTO wa_zycbt062_log
WHERE nrseq = /pws/zycbe060-nrseq.
ENDSELECT.
* >> Início da exclusão: FORM ELIMINA_PROCESSO
DESCRIBE FIELD wa_zycbt062_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_PROCESSO
PERFORM monta_log_cfm USING wa_zycbt062_log
'/PWS/ZYCBT062'
CHANGING wa_log.
* << Fim da inclusão
IF NOT wa_zycbt062_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT062'
wa_log
'E'.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt062
WHERE nrseq = /pws/zycbe060-nrseq.
IF /pws/zycbt007-cfm = 'X'.
IF /pws/zycbt001-tpcontr(1) NE 'C' AND
/pws/zycbt001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe060-nrseq.
* >> Início da exclusão: FORM ELIMINA_PROCESSO
DESCRIBE FIELD wa_zycbt001_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_PROCESSO
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'E'.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt001
WHERE nrseqc = /pws/zycbe060-nrseq.
IF /pws/zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt004
INTO wa_zycbt004_log
WHERE nrseqc = /pws/zycbe060-nrseq.
ENDSELECT.
IF NOT wa_zycbt004_log IS INITIAL.
* >> Início da exclusão: FORM ELIMINA_PROCESSO
DESCRIBE FIELD wa_zycbt004_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_PROCESSO
PERFORM monta_log_cfm USING wa_zycbt004_log
'/PWS/ZYCBT004'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT004'
wa_log
'E'.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt004
WHERE nrseqc = /pws/zycbe060-nrseq.
LOOP AT itab_zycbt061.
SELECT SINGLE * FROM /pws/zycbt001
WHERE nrseqc = itab_zycbt061-nrseq_c.
...
...
MOVE /pws/zycbe060 TO /pws/zycbt060.
IF /pws/zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt060
INTO wa_zycbt060_log
WHERE nrseq = /pws/zycbe060-nrseq.
ENDSELECT.
ENDIF.
MODIFY /pws/zycbt060.
IF /pws/zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM GRAVA_ZYCBT060
DESCRIBE FIELD wa_zycbt060_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCBT060
PERFORM monta_log_cfm USING wa_zycbt060_log
'/PWS/ZYCBT060'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt060_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT060'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT060'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
MOVE-CORRESPONDING itab_zycbt061 TO /pws/zycbt061.
IF /pws/zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt061
INTO wa_zycbt061_log
WHERE nrseq = /pws/zycbt061-nrseq.
ENDSELECT.
ENDIF.
MODIFY /pws/zycbt061.
IF /pws/zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM GRAVA_ZYCBT061
DESCRIBE FIELD wa_zycbt061_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCBT061
PERFORM monta_log_cfm USING wa_zycbt061_log
'/PWS/ZYCBT061'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt061_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT061'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT061'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
wa_zycbt001_aux-waers TO /pws/zycbt004-waers.
IF /pws/zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt004
INTO wa_zycbt004_log
WHERE nrseqc = /pws/zycbt004-nrseqc.
ENDSELECT.
ENDIF.
MODIFY /pws/zycbt004.
IF /pws/zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM GRAVA_ZYCBT004
DESCRIBE FIELD wa_zycbt004_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCBT004
PERFORM monta_log_cfm USING wa_zycbt004_log
'/PWS/ZYCBT004'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt004_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT004'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT004'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
MOVE itab_zycbt062 TO /pws/zycbt062.
IF /pws/zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt062
INTO wa_zycbt062_log
WHERE nrseq = /pws/zycbt062-nrseq_c.
ENDSELECT.
ENDIF.
MODIFY /pws/zycbt062.
IF /pws/zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM GRAVA_ZYCBT062
DESCRIBE FIELD wa_zycbt062_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCBT062
PERFORM monta_log_cfm USING wa_zycbt062_log
'/PWS/ZYCBT062'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt062_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT062'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT062'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
MOVE itab_zycbt002 TO /pws/zycbt002.
IF /pws/zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt002
INTO wa_zycbt002_log
WHERE nrseqc = itab_zycbt002-nrseqc.
ENDSELECT.
ENDIF.
MODIFY /pws/zycbt002.
IF /pws/zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM GRAVA_ZYCBT002
DESCRIBE FIELD wa_zycbt002_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCBT002
PERFORM monta_log_cfm USING wa_zycbt002_log
'/PWS/ZYCBT002'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt002_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT002'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
nrseq_c EQ p_nrseq_c.
IF sy-subrc EQ 0.
IF /pws/zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt004
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 exclusão: FORM EXCLUI_ZYCBT004
DESCRIBE FIELD wa_zycbt004_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_ZYCBT004
PERFORM monta_log_cfm USING wa_zycbt004_log
'/PWS/ZYCBT004'
CHANGING wa_log.
* << Fim da inclusão
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
nrparc EQ 0 AND
dtincl EQ wa_zycbt062_juros-dtincl.
ENDIF.
...
...
LOOP AT SCREEN.
screen-input = 0.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDFORM.
FORM grava_log USING value(p_table)
wa_data
p_oper.
ENDFORM.
* >> Início da inclusão:
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.
CLEAR: t_prog, wa_log.
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.
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
APPEND 'tables: dd03l. ' TO t_prog.
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.
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.
APPEND ' p_dados TO <VALOR>. ' TO t_prog.
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.
APPEND ' v_valor = <VALOR>. ' TO t_prog.
MOVE text-453 TO t_prog.
APPEND t_prog.
APPEND ' condense v_valor no-gaps. ' TO t_prog.
APPEND ' SHIFT v_valor(dd03l-leng) RIGHT ' TO t_prog.
APPEND ' DELETING TRAILING space. ' TO t_prog.
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.
APPEND ' BUFFER = v_xstring ' TO t_prog.
APPEND ' TABLES ' TO t_prog.
APPEND ' BINARY_TAB = binary_tab. ' TO t_prog.
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.
APPEND ' p_wa_log+v_tam(dd03l-leng) = <VALOR>. ' TO t_prog.
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
p_tabela
CHANGING p_wa_log
IF FOUND.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
AND tpdesp = wa_despesa-cpochv+16(3)
AND dtincl = wa_despesa-cpochv+19(8).
ENDIF.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt031
INTO wa_zycbt031_log
WHERE nrseq = /pws/zycbe031-nrseq
AND dtboleto = /pws/zycbe031-dtboleto.
* >> Início da exclusão: FORM ATUALIZA_DESPESA
TYPE-POOLS: sydes.
DATA: t_sydes TYPE sydes_desc,
wa_types TYPE sydes_typeinfo,
v_len TYPE i.
DESCRIBE FIELD wa_zycbt031_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DESPESA
PERFORM monta_log_cfm USING wa_zycbt031_log
'/PWS/ZYCBT031'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT031'
wa_log
'A'.
ENDIF.
PERFORM documentos_ed.
ENDFORM.
FORM estorna_trava.
IF wa_zyglt009-comp_trans EQ 'C' AND
NOT /pws/zycbe031-belnr_comp IS INITIAL.
PERFORM clear_date_batch.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101F01
...
IF /pws/zycbe112-nrseq+0(1) = '5'.
PERFORM reverse_document_zycbt112.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
ENDIF.
MODIFY /pws/zycbt112 FROM /pws/zycbe112.
IF wa_zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM SAVE_ZYCBT112
DESCRIBE FIELD /pws/zycbe112 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT112
PERFORM monta_log_cfm USING /pws/zycbe112
'/PWS/ZYCBT112'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt112_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = /pws/zycbt113-nrseq
AND tpparc = /pws/zycbt113-tpparc
AND nrparc = /pws/zycbt113-nrparc.
ENDIF.
MODIFY /pws/zycbt113.
IF wa_zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM SAVE_ZYCBT113
DESCRIBE FIELD /pws/zycbt113 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113
PERFORM monta_log_cfm USING /pws/zycbt113
'/PWS/ZYCBT113'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt113_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = /pws/zycbt113-nrseq
AND tpparc = /pws/zycbt113-tpparc
AND nrparc = /pws/zycbt113-nrparc.
ENDIF.
MODIFY /pws/zycbt113.
IF wa_zycbt007-cfm = 'X'.
* >> Início da exclusão: FORM SAVE_ZYCBT113
DESCRIBE FIELD /pws/zycbt113 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113
PERFORM monta_log_cfm USING /pws/zycbt113
'/PWS/ZYCBT113'
CHANGING wa_log.
* << Fim da inclusão
IF wa_zycbt113_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ENDIF.
...
...
WITH KEY nrparc = itab_zycbt113pa-nrparc.
IF sy-subrc NE 0.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq EQ /pws/zycbe112-nrseq
AND tpparc EQ 'P'
AND nrparc EQ itab_zycbt113pa-nrparc.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM SAVE_ZYCBT113
DESCRIBE FIELD wa_zycbt113_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'E'.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt113 WHERE nrseq EQ /pws/zycbe112-nrseq
AND tpparc EQ 'P'
AND nrparc EQ itab_zycbt113pa-nrparc.
ENDIF.
ENDLOOP.
...
...
WITH KEY nrparc = itab_zycbt113ja-nrparc.
IF sy-subrc NE 0.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq EQ /pws/zycbe112-nrseq
AND tpparc EQ 'J'
AND nrparc EQ itab_zycbt113ja-nrparc.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM SAVE_ZYCBT113
DESCRIBE FIELD wa_zycbt113_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'E'.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt113 WHERE nrseq EQ /pws/zycbe112-nrseq
AND tpparc EQ 'J'
AND nrparc EQ itab_zycbt113ja-nrparc.
ENDIF.
ENDLOOP.
...
...
WHERE nrseq EQ /pws/zycbe112-nrseq
AND nrparc EQ itab_zycbt113p-nrparc
AND tpparc EQ 'P'.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq EQ /pws/zycbe112-nrseq
AND nrparc EQ itab_zycbt113p-nrparc
AND tpparc EQ 'P'.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT112
DESCRIBE FIELD wa_zycbt113_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg.
ENDLOOP.
PERFORM clear_date_batch.
ENDIF.
...
...
ENDIF.
ENDIF.
ENDIF.
/pws/zycbt112-status = 'I'.
MODIFY /pws/zycbt112.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbt112-nrseq.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT112
DESCRIBE FIELD wa_zycbt112_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
PERFORM fill_date1_f48.
ENDFORM.
FORM clear_date_batch.
CLEAR:
itab_zycbt034,
itab_zycbe033,
...
...
AND nrparc = itab_zycbt116-nrparc
AND dtpagto = text-102.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = itab_zycbt116-nrfinanc
AND tpparc = itab_zycbt116-tpparc
AND nrparc = itab_zycbt116-nrparc
AND dtpagto = itab_zycbe033-budat.
* >> Início da exclusão: FORM GRAVA_DATA_PAGAMENTO
DESCRIBE FIELD wa_zycbt113_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DATA_PAGAMENTO
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ENDLOOP.
ENDFORM.
FORM verify_null_field USING value(p_field)
value(p_fieldname)
value(p_description).
IF p_field IS INITIAL.
...
...
ENDIF.
ENDFORM.
FORM exclui_financiamento.
/pws/zycbe112-status = 'E'.
MODIFY /pws/zycbt112 FROM /pws/zycbe112.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
* >> Início da exclusão: FORM EXCLUI_FINANCIAMENTO
DESCRIBE FIELD wa_zycbt112_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'E'.
ENDIF.
SELECT SINGLE nrseq FROM /pws/zycmt013
INTO v_nrseq_agrp
WHERE nrseq = /pws/zycbe112-nrseq.
IF sy-subrc EQ 0.
DELETE FROM /pws/zycmt013
WHERE nrseq = /pws/zycbe112-nrseq.
...
...
ENDIF.
MODIFY itab_zycbt113c INDEX v_pos_itab.
MOVE itab_zycbt113c TO /pws/zycbt113.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = /pws/zycbt113-nrseq
AND tpparc = /pws/zycbt113-tpparc
AND nrparc = /pws/zycbt113-nrparc.
* >> Início da exclusão: FORM SAVE_ZYCBT113_COMISSAO
DESCRIBE FIELD /pws/zycbt113 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113_COMISSAO
PERFORM monta_log_cfm USING /pws/zycbt113
'/PWS/ZYCBT113'
CHANGING wa_log.
* << Fim da inclusão
ENDIF.
MODIFY /pws/zycbt113.
IF wa_zycbt007-cfm = 'X'.
IF wa_zycbt113_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
...
...
ENDIF.
LOOP AT itab_zycbt113c_exc.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq EQ itab_zycbt113c_exc-nrseq
AND tpparc EQ 'C'
AND nrparc EQ itab_zycbt113c_exc-nrparc.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM SAVE_ZYCBT113_COMISSAO
DESCRIBE FIELD wa_zycbt113_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113_COMISSAO
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'E'.
ENDIF.
ENDIF.
DELETE FROM /pws/zycbt113 WHERE nrseq = itab_zycbt113c_exc-nrseq
AND tpparc = 'C'
AND nrparc = itab_zycbt113c_exc-nrparc.
ENDLOOP.
v_nparc = 0.
...
...
AND nrparc = itab_zycbt113c-nrparc.
itab_zycbt113c-nrparc = v_nparc.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq EQ itab_zycbt113c-nrseq
AND tpparc EQ 'C'
AND nrparc EQ itab_zycbt113c-nrparc.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM SAVE_ZYCBT113_COMISSAO
DESCRIBE FIELD wa_zycbt113_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT113_COMISSAO
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ENDIF.
MODIFY itab_zycbt113c.
ENDLOOP.
COMMIT WORK.
v_nparc = 0.
LOOP AT itab_zycbt113_ant.
...
...
itab_zycbt113c-status = text-007.
MOVE itab_zycbt113c TO /pws/zycbt113.
MODIFY itab_zycbt113c INDEX v_pos_itab.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = /pws/zycbt113-nrseq
AND tpparc = /pws/zycbt113-tpparc
AND nrparc = /pws/zycbt113-nrparc.
* >> Início da exclusão: FORM FILL_DATE_F02
DESCRIBE FIELD /pws/zycbt113 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
PERFORM monta_log_cfm USING /pws/zycbt113
'/PWS/ZYCBT113'
CHANGING wa_log.
* << Fim da inclusão
ENDIF.
MODIFY /pws/zycbt113.
IF wa_zycbt007-cfm = 'X'.
IF wa_zycbt113_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
...
...
FORM modify_zycbt112.
v_nrseq_ant = /pws/zycbe112-nrseq.
IF sy-tcode EQ '/PWS/ZYCB101_C' AND v_existe NE 'S'.
INSERT INTO /pws/zycbt112 VALUES /pws/zycbe112.
IF wa_zycbt007-cfm = 'X'.
IF sy-subrc EQ 0.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
* >> Início da exclusão: FORM MODIFY_ZYCBT112
DESCRIBE FIELD wa_zycbt112_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM MODIFY_ZYCBT112
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'C'.
ENDIF.
ENDIF.
WHILE sy-subrc NE 0.
PERFORM busca_sequencial.
INSERT INTO /pws/zycbt112 VALUES /pws/zycbe112.
IF wa_zycbt007-cfm = 'X'.
IF sy-subrc EQ 0.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
* >> Início da exclusão: FORM MODIFY_ZYCBT112
DESCRIBE FIELD wa_zycbt112_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM MODIFY_ZYCBT112
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'C'.
ENDIF.
ENDIF.
v_existe = 'S'.
ENDWHILE.
IF v_existe = 'S'.
MESSAGE i061 WITH text-064 /pws/zycbe112-nrfinanc
text-065 /pws/zycbe112-nrseq.
ENDIF.
ELSE.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
* >> Início da exclusão: FORM MODIFY_ZYCBT112
DESCRIBE FIELD /pws/zycbe112 INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM MODIFY_ZYCBT112
PERFORM monta_log_cfm USING /pws/zycbe112
'/PWS/ZYCBT112'
CHANGING wa_log.
* << Fim da inclusão
ENDIF.
MODIFY /pws/zycbt112 FROM /pws/zycbe112.
IF wa_zycbt007-cfm = 'X'.
IF wa_zycbt112_log IS INITIAL.
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
...
...
/pws/zycbe112-fassoc = 'X'.
UPDATE /pws/zycbt112 SET statusp = /pws/zycbe112-statusp
belnr = /pws/zycbe112-belnr
fassoc = 'X'
WHERE nrseq = /pws/zycbe112-nrseq.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
* >> Início da exclusão: FORM FILL_DATE_F02_REFIN
DESCRIBE FIELD wa_zycbt112_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02_REFIN
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
MOVE-CORRESPONDING /pws/zycbe112 TO wa_zycbt112.
PERFORM grava_data_pagamento.
PERFORM fill_date_f51_refin.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg.
...
...
MESSAGE i043 WITH itab_zycbt032-belnr.
UPDATE /pws/zycbt112 SET slrefin = v_slrefin
sldesem = itab_zycbt112-sldesem
fassoc = 'X'
WHERE nrseq = itab_zycbt112-nrseq.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = itab_zycbt112-nrseq.
* >> Início da exclusão: FORM FILL_DATE_F51_REFIN
DESCRIBE FIELD wa_zycbt112_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F51_REFIN
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
UPDATE /pws/zycbt113 SET belnr_p = itab_zycbt032-belnr
WHERE nrseq = itab_zycbt112-nrseq
AND tpparc = 'P'
AND nrparc = itab_zycbt116-nrparc.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = itab_zycbt112-nrseq
AND tpparc = 'P'
AND nrparc = itab_zycbt116-nrparc.
* >> Início da exclusão: FORM FILL_DATE_F51_REFIN
DESCRIBE FIELD wa_zycbt113_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F51_REFIN
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
ENDIF.
...
...
MESSAGE i030 WITH /pws/zycbe112-belnr.
PERFORM clear_date_batch.
CLEAR /pws/zycbe112-belnr.
UPDATE /pws/zycbt112 SET belnr = space
WHERE nrseq EQ /pws/zycbe112-nrseq.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq EQ /pws/zycbe112-nrseq.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT112_CAB
DESCRIBE FIELD wa_zycbt112_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112_CAB
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg.
ENDLOOP.
PERFORM clear_date_batch.
ENDIF.
...
...
wa_zycbt112r-sldesem = wa_zycbt112r-sldesem +
itab_zycbt116a-vlrefinp.
UPDATE /pws/zycbt112 SET slrefin = wa_zycbt112r-slrefin
sldesem = wa_zycbt112r-sldesem
WHERE nrseq = wa_zycbt112r-nrseq.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = wa_zycbt112r-nrseq.
* >> Início da exclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
DESCRIBE FIELD wa_zycbt112_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
UPDATE /pws/zycbt113 SET belnr = itab_zycbt032-belnr
belnr_lp = wa_zycbt113-belnr_lp
ftransf = wa_zycbt113-ftransf
belnr_p = space
dtpagto = space
txtinf = space
WHERE nrseq = wa_zycbt112r-nrseq
AND nrparc = wa_zycbt113-nrparc
AND tpparc = 'P'.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt113
INTO wa_zycbt113_log
WHERE nrseq = wa_zycbt112r-nrseq
AND nrparc = wa_zycbt113-nrparc
AND tpparc = 'P'.
* >> Início da exclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
DESCRIBE FIELD wa_zycbt113_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
PERFORM monta_log_cfm USING wa_zycbt113_log
'/PWS/ZYCBT113'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT113'
wa_log
'A'.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
ENDIF.
...
...
ENDIF.
PERFORM clear_date_batch.
ENDLOOP.
MOVE wa_zycbt112r TO /pws/zycbt112.
MODIFY /pws/zycbt112.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
* >> Início da exclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
DESCRIBE FIELD wa_zycbt112_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
PERFORM monta_log_cfm USING wa_zycbt112_log
'/PWS/ZYCBT112'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
CLEAR /pws/zycbt112.
ENDFORM.
FORM get_parameters_112_refin.
CONCATENATE text-019 wa_zycbt112r-codint INTO v_codeven.
CLEAR wa_zycbt007.
SELECT SINGLE * FROM /pws/zycbt007
...
...
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
* >> Início da exclusão: FORM GRAVA_LOG
progname = sy-cprog.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LOG
progname = sy-cprog
EXCEPTIONS
table_not_found = 1
devclass_not_zy = 2
table_not_supported = 3
commit_error = 4
OTHERS = 5.
* << Fim da inclusão
ENDFORM.
FORM atualiza_tela_dados_adicionais.
MOVE-CORRESPONDING itab_zycmt022 TO /pws/zycme022.
MOVE itab_zycmt022-mark TO mark.
ENDFORM.
FORM atualiza_itab_dados_adicionais.
READ TABLE itab_zycmt022 INDEX tc_adicionais-current_line.
IF sy-subrc EQ 0.
MOVE-CORRESPONDING /pws/zycme022 TO itab_zycmt022.
MOVE: v_nrseqc TO itab_zycmt022-nrseq,
...
...
pi_ebeln = wa_ekko-ebeln
TABLES
pto_ekpo = itab_ekpo
EXCEPTIONS
err_no_records_found = 1
OTHERS = 2.
IF sy-subrc EQ 0.
DELETE itab_ekpo WHERE loekz NE ' '.
ENDIF.
ENDFORM.
* >> Início da inclusão:
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.
CLEAR: t_prog, wa_log.
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.
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
APPEND 'tables: dd03l. ' TO t_prog.
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.
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.
APPEND ' p_dados TO <VALOR>. ' TO t_prog.
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.
APPEND ' v_valor = <VALOR>. ' TO t_prog.
MOVE text-453 TO t_prog.
APPEND t_prog.
APPEND ' condense v_valor no-gaps. ' TO t_prog.
APPEND ' SHIFT v_valor(dd03l-leng) RIGHT ' TO t_prog.
APPEND ' DELETING TRAILING space. ' TO t_prog.
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.
APPEND ' BUFFER = v_xstring ' TO t_prog.
APPEND ' TABLES ' TO t_prog.
APPEND ' BINARY_TAB = binary_tab. ' TO t_prog.
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.
APPEND ' p_wa_log+v_tam(dd03l-leng) = <VALOR>. ' TO t_prog.
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
p_tabela
CHANGING p_wa_log
IF FOUND.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
MESSAGE i057 WITH itab_zycbt032-belnr text-019.
/pws/zycbe031-belnr_p = itab_zycbt032-belnr.
ENDIF.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt031
INTO wa_zycbt031_log
WHERE nrseq = /pws/zycbe031-nrseq
AND dtboleto = /pws/zycbe031-dtboleto.
* >> Início da exclusão: FORM FILL_DATE_F-63_IF
TYPE-POOLS: sydes.
DATA: t_sydes TYPE sydes_desc,
wa_types TYPE sydes_typeinfo,
v_len TYPE i.
DESCRIBE FIELD wa_zycbt031_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
PERFORM monta_log_cfm USING wa_zycbt031_log
'/PWS/ZYCBT031'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT031'
wa_log
'A'.
ENDIF.
SELECT * FROM /pws/zycbt133
INTO TABLE itab_zycbt133
WHERE bukrs = /pws/zycbe031-bukrs.
READ TABLE itab_zycbt133
WITH KEY codmod = 'I'.
IF sy-subrc = 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
ENDLOOP.
ENDCASE.
ENDIF.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
IF wa_zycbt007-cfm = 'X'.
SELECT SINGLE *
FROM /pws/zycbt031
INTO wa_zycbt031_log
WHERE nrseq = /pws/zycbe031-nrseq
AND dtboleto = /pws/zycbe031-dtboleto.
* >> Início da exclusão: FORM ESTORNA_APROV
TYPE-POOLS: sydes.
DATA: t_sydes TYPE sydes_desc,
wa_types TYPE sydes_typeinfo,
v_len TYPE i.
DESCRIBE FIELD wa_zycbt031_log INTO t_sydes.
LOOP AT t_sydes-types INTO wa_types.
v_len = wa_types-length.
EXIT.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_APROV
PERFORM monta_log_cfm USING wa_zycbt031_log
'/PWS/ZYCBT031'
CHANGING wa_log.
* << Fim da inclusão
PERFORM grava_log USING '/PWS/ZYCBT031'
wa_log
'A'.
ENDIF.
IF ( sy-index = 3 AND NOT wa_zycbt031-belnr_cide IS INITIAL ) OR
( sy-index = 2 AND NOT wa_zycbt031-belnr_pi IS INITIAL
AND wa_zycbt031-belnr_cide IS INITIAL ) OR
( sy-index < 2 AND NOT wa_zycbt031-belnr_p IS INITIAL
AND wa_zycbt031-belnr_pi IS INITIAL
AND wa_zycbt031-belnr_cide IS INITIAL ).
...
...
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
* >> Início da exclusão: FORM GRAVA_LOG
progname = sy-cprog.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LOG
progname = sy-cprog
EXCEPTIONS
table_not_found = 1
devclass_not_zy = 2
table_not_supported = 3
commit_error = 4
OTHERS = 5.
* << Fim da inclusão
ENDFORM.
FORM verifica_casas_decimais
USING
value(p_valor)
value(p_waers)
CHANGING
p_valor_aj.
SELECT SINGLE * FROM tcurx WHERE currkey EQ p_waers.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
p_valor_aj = p_valor / ( 10 ** ( tcurx-currdec - 2 ) ).
ENDFORM.
* >> Início da inclusão:
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.
CLEAR: t_prog, wa_log.
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.
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
APPEND 'tables: dd03l. ' TO t_prog.
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.
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.
APPEND ' p_dados TO <VALOR>. ' TO t_prog.
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.
APPEND ' v_valor = <VALOR>. ' TO t_prog.
MOVE text-453 TO t_prog.
APPEND t_prog.
APPEND ' condense v_valor no-gaps. ' TO t_prog.
APPEND ' SHIFT v_valor(dd03l-leng) RIGHT ' TO t_prog.
APPEND ' DELETING TRAILING space. ' TO t_prog.
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.
APPEND ' BUFFER = v_xstring ' TO t_prog.
APPEND ' TABLES ' TO t_prog.
APPEND ' BINARY_TAB = binary_tab. ' TO t_prog.
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.
APPEND ' p_wa_log+v_tam(dd03l-leng) = <VALOR>. ' TO t_prog.
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
p_tabela
CHANGING p_wa_log
IF FOUND.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPLZYCBGF
Incluir símbolos de texto:
Sim Texto ComD ComM
451 if dd03l-datatype = 'CURR' or 29 29
452 dd03l-datatype = 'DEC'. 23 23
453 translate v_valor using '. '. 29 29
454 translate v_valor(dd03l-leng) using ' 0'. 41 41
455 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' 38 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB001
Incluir símbolos de texto:
Sim Texto ComD ComM
451 if dd03l-datatype = 'CURR' or 29 29
452 dd03l-datatype = 'DEC'. 23 23
453 translate v_valor using '. '. 29 29
454 translate v_valor(dd03l-leng) using ' 0'. 41 41
455 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' 38 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB004
Incluir símbolos de texto:
Sim Texto ComD ComM
451 if dd03l-datatype = 'CURR' or 29 29
452 dd03l-datatype = 'DEC'. 23 23
453 translate v_valor using '. '. 29 29
454 translate v_valor(dd03l-leng) using ' 0'. 41 41
455 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' 38 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB009
Incluir símbolos de texto:
Sim Texto ComD ComM
451 if dd03l-datatype = 'CURR' or 29 29
452 dd03l-datatype = 'DEC'. 23 23
453 translate v_valor using '. '. 29 29
454 translate v_valor(dd03l-leng) using ' 0'. 41 41
455 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' 38 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB010
Incluir símbolos de texto:
Sim Texto ComD ComM
451 if dd03l-datatype = 'CURR' or 29 29
452 dd03l-datatype = 'DEC'. 23 23
453 translate v_valor using '. '. 29 29
454 translate v_valor(dd03l-leng) using ' 0'. 41 41
455 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' 38 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB012
Incluir símbolos de texto:
Sim Texto ComD ComM
451 if dd03l-datatype = 'CURR' or 29 29
452 dd03l-datatype = 'DEC'. 23 23
453 translate v_valor using '. '. 29 29
454 translate v_valor(dd03l-leng) using ' 0'. 41 41
455 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' 38 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB014
Incluir símbolos de texto:
Sim Texto ComD ComM
451 if dd03l-datatype = 'CURR' or 29 29
452 dd03l-datatype = 'DEC'. 23 23
453 translate v_valor using '. '. 29 29
454 translate v_valor(dd03l-leng) using ' 0'. 41 41
455 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' 38 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB110
Incluir símbolos de texto:
Sim Texto ComD ComM
451 if dd03l-datatype = 'CURR' or 29 29
452 dd03l-datatype = 'DEC'. 23 23
453 translate v_valor using '. '. 29 29
454 translate v_valor(dd03l-leng) using ' 0'. 41 41
455 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' 38 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCM101
Incluir símbolos de texto:
Sim Texto ComD ComM
451 if dd03l-datatype = 'CURR' or 29 29
452 dd03l-datatype = 'DEC'. 23 23
453 translate v_valor using '. '. 29 29
454 translate v_valor(dd03l-leng) using ' 0'. 41 41
455 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' 38 38
455 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' 38 38
455 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' 38 38