CE PLUS - Nota 011643
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 23/11/2011 14:24:37
Data/Hora Última Alteração: 23/11/2011 14:24:37
Descrição da Nota: ROTINA MENSAL EXPORTAÇÃO, TRILHA DE AUDITORIA, LOG
Sintoma
Necessidade de criação de log para todas as alterações realizadas nas tabelas do pw.CE durante o
processamento da Rotina Mensal de Exportação.
Solução
Foi implementado em todos as alterações de dados realizadas nas tabelas do pw.CE pelo processo da
Rotina Mensal de Exportação.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11643 Data: 22/11/2011 Hora: 11:22:33
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11643
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00095
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00155 - 00001 - 6.0 - 00021 - AJUSTES TÉCNICOS NOS PROGRAMAS.
09923 - 00002 - 8.0 - 00002 - VERIFICAÇÃO PERÍODO ABERTO/FECHADO NÃO FUNCIONA - IMPACTO PELO NE
10442 - 00003 - 8.0 - 00004 - ROTINA MENSAL -BI- TRATAR PARAMETRIZAÇAO DA 321-FINAC E IMPORT
10824 - 00004 - 8.0 - 00005 - ROTINA MENSAL DE IMPORTAÇÃO, PROVISÃO DE JUROS
11232 - 00005 - 8.0 - 00007 - ROTINA MENSAL IMPORTAÇÃO - CENTRO DE CUSTO
11413 - 00006 - 8.0 - 00008 - CONTRATOS DE NCE
11506 - 00007 - 8.0 - 00009 - TRILHA DE AUDITORIA
11570 - 00008 - 8.0 - 00009 - ROTINA MENSAL EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
ROTINA MENSAL EXPORTAÇÃO, TRILHA DE AUDITORIA, LOG
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL EXPORTAÇÃO, TRILHA DE AUDITORIA, LOG
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBI003
REPS /PWS/ZYCBI112
REPS /PWS/ZYCBI113
REPS /PWS/ZYCBR003
REPS /PWS/ZYCBR112
REPS /PWS/ZYCBR113
REPS /PWS/ZYGLR020
REPS /PWS/ZYGLR030
REPT /PWS/ZYCBR113
REPT /PWS/ZYGLR030
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI003
TABLES: /pws/zycbt154,
t001,
/pws/zycbt021,
/pws/zyglt009,
* >> Início da exclusão:
/pws/zycbt050.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt050,
/pws/zycbt002,
/pws/zycbt245.
* << Fim da inclusão
DATA: BEGIN OF itab_status OCCURS 5,
fcode LIKE rsmpe-func,
END OF itab_status.
DATA: BEGIN OF itab_total_ac OCCURS 0,
waers LIKE /pws/zycbt001-waers,
slacc LIKE /pws/zycbt001-vlme,
slace LIKE /pws/zycbt001-vlme,
END OF itab_total_ac.
DATA: itab_zycbt009 LIKE /pws/zycbt009 OCCURS 3 WITH HEADER LINE,
itab_zycbt010 LIKE /pws/zycbt010 OCCURS 2 WITH HEADER LINE,
...
...
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-30'
tabela = '/PWS/ZYCBT002'
cpochv = v_cpochv
tpmsg = 'S'.
ENDIF.
IF sy-subrc = 0.
v_contabilizado = 'X'.
UPDATE /pws/zycbt001 SET f_encerrado = 'C'
WHERE f_encerrado = 'I'
AND nrseqc = itab_contabil-nrcorresp(8).
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
clear: wa_zycbt001_aud.
if sy-subrc eq 0.
select single * from /pws/zycbt001
into wa_zycbt001_aud
where nrseqc = itab_contabil-nrcorresp(8).
if sy-subrc eq 0.
move-corresponding wa_zycbt001_aud to /pws/zycbt001.
perform carrega_log using '/PWS/ZYCBT001'
'U'
sy-tcode
'/PWS/SAPMZYCB001'
wa_zycbt001_aud-nrseqc.
endif.
endif.
* << Fim da inclusão
MOVE-CORRESPONDING itab_contabil TO /pws/zycbt154.
IF NOT itab_contabil-vlmetransf IS INITIAL.
/pws/zycbt154-vlme = itab_contabil-vlmetransf.
ELSE.
/pws/zycbt154-vlme = itab_contabil-vlrprov.
ENDIF.
IF itab_contabil-tpcontab IS INITIAL.
/pws/zycbt154-codmodul = 'JU'.
IF wa_zycbt007-fprovisao = space AND
p_agrup IS INITIAL.
...
...
IF itab_contabil-tpcontr+0(1) CA 'PSN'.
UPDATE /pws/zycbt002 SET ftransf = 'X'
belnr2 = itab_zycbt032-belnr
belnr_transf = itab_zycbt032-belnr
przcontr = 'C'
dtvincul = itab_contabil-dtcont
WHERE nrseqc = itab_contabil-nrcorresp(8)
AND nrparc = itab_contabil-nrparcp
AND tpparc = 'P'.
/pws/zycbt154-codint = itab_contabil-nrparcp.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
select single * from /pws/zycbt002
into wa_zycbt002_aud
where nrseqc = itab_contabil-nrcorresp(8)
and nrparc = itab_contabil-nrparcp
and tpparc = 'P'.
if sy-subrc eq 0.
move-corresponding wa_zycbt002_aud to /pws/zycbt002.
perform carrega_log using '/PWS/ZYCBT002'
'U'
sy-tcode
'/PWS/SAPMZYCB001'
itab_contabil-nrcorresp(8).
endif.
* << Fim da inclusão
SORT itab_zycbt002p DESCENDING BY nrseqc nrparc.
READ TABLE itab_zycbt002p INDEX 1.
IF sy-subrc = 0.
IF itab_zycbt002p-nrparc = itab_contabil-nrparcp.
UPDATE /pws/zycbt001 SET przcontr = 'C'
WHERE nrseqc = itab_contabil-nrcorresp(8).
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
clear: wa_zycbt001_aud.
if sy-subrc eq 0.
select single * from /pws/zycbt001
into wa_zycbt001_aud
where nrseqc = itab_contabil-nrcorresp(8).
if sy-subrc eq 0.
move-corresponding wa_zycbt001_aud
to /pws/zycbt001.
perform carrega_log using
'/PWS/ZYCBT001'
'U'
sy-tcode
'/PWS/SAPMZYCB001'
wa_zycbt001_aud-nrseqc.
endif.
endif.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSE.
UPDATE /pws/zycbt001 SET ftransf = 'X'
belnr2 = itab_zycbt032-belnr
belnr_transf = itab_zycbt032-belnr
dtvincul = itab_contabil-dtcont
WHERE nrseqc = itab_contabil-nrcorresp(8).
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
clear: wa_zycbt001_aud.
if sy-subrc eq 0.
select single * from /pws/zycbt001
into wa_zycbt001_aud
where nrseqc = itab_contabil-nrcorresp(8).
if sy-subrc eq 0.
move-corresponding wa_zycbt001_aud to /pws/zycbt001.
perform carrega_log using '/PWS/ZYCBT001'
'U'
sy-tcode
'/PWS/SAPMZYCB001'
wa_zycbt001_aud-nrseqc.
endif.
endif.
* << Fim da inclusão
IF itab_contabil-przcontr EQ 'L'.
UPDATE /pws/zycbt001 SET przcontr = 'C'
WHERE nrseqc = itab_contabil-nrcorresp(8).
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
clear: wa_zycbt001_aud.
if sy-subrc eq 0.
select single * from /pws/zycbt001
into wa_zycbt001_aud
where nrseqc = itab_contabil-nrcorresp(8).
if sy-subrc eq 0.
move-corresponding wa_zycbt001_aud
to /pws/zycbt001.
perform carrega_log using '/PWS/ZYCBT001'
'U'
sy-tcode
'/PWS/SAPMZYCB001'
wa_zycbt001_aud-nrseqc.
endif.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
endif.
* << Fim da inclusão
/pws/zycbt154-codmod = 'E'.
/pws/zycbt154-belnr_pr = itab_zycbt032-belnr.
INSERT /pws/zycbt154.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
if sy-subrc eq 0.
perform carrega_log using '/PWS/ZYCBT154'
'I'
sy-tcode
sy-repid
itab_contabil-nrcorresp.
endif.
* << Fim da inclusão
IF itab_contabil-tpcontr(1) EQ 'N'.
IF itab_contabil-tpcontab IS INITIAL.
IF wa_zycbt007-fprovisao EQ 'C'.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
clear: itab_zycbt245_aud.
refresh: itab_zycbt245_aud.
select * from /pws/zycbt245
into table itab_zycbt245_aud
where nrseqc = itab_contabil-nrcorresp(8)
and dt_calc <= s_dtentr
and belnr_prov = ' '.
* << Fim da inclusão
UPDATE /pws/zycbt245
SET belnr_prov = itab_zycbt032-belnr
dt_prov = itab_contabil-dtcont
WHERE nrseqc = itab_contabil-nrcorresp(8)
AND dt_calc <= s_dtentr
AND belnr_prov = ' '.
ELSE.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
clear: itab_zycbt245_aud.
refresh: itab_zycbt245_aud.
select * from /pws/zycbt245
into table itab_zycbt245_aud
where nrseqc = itab_contabil-nrcorresp(8).
* << Fim da inclusão
UPDATE /pws/zycbt245
SET belnr_prov = itab_zycbt032-belnr
dt_prov = itab_contabil-dtcont
WHERE nrseqc = itab_contabil-nrcorresp(8).
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
endif.
if sy-subrc eq 0.
loop at itab_zycbt245_aud into /pws/zycbt245.
perform carrega_log using '/PWS/ZYCBT245'
'U'
sy-tcode
'/PWS/SAPMZYCB001'
/pws/zycbt245-nrseqc.
endloop.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDIF.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-02'
tabela = '/PWS/ZYCBT002'
cpochv = v_cpochv.
IF sy-subrc EQ 0.
IF itab_contabil-tpcontab EQ 'PR'.
WRITE / text-107.
...
...
/pws/zycbt154-codmodul = 'CI'.
/pws/zycbt154-codint = itab_contabil-nrparcp.
ELSE.
/pws/zycbt154-codmodul = 'IR'.
ENDIF.
/pws/zycbt154-belnr_pr = itab_zycbt032-belnr.
/pws/zycbt154-c_newko = itab_contabil-c_newkoir.
/pws/zycbt154-d_newko = itab_contabil-d_newkoir.
INSERT INTO /pws/zycbt154 VALUES /pws/zycbt154.
COMMIT WORK.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
if sy-subrc eq 0.
perform carrega_log using '/PWS/ZYCBT154'
'I'
sy-tcode
sy-repid
itab_contabil-nrcorresp.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
endif.
* << Fim da inclusão
SKIP.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-02'
tabela = '/PWS/ZYCBT002'
cpochv = v_cpochv.
IF sy-subrc EQ 0.
WRITE: / text-121.
...
...
itab_zycbt154-bco itab_zycbt154-dtcont
itab_zycbt154-bukrs itab_zycbt154-gsber
itab_zycbt154-waers itab_zycbt154-d_newko
itab_zycbt154-c_newko INTO v_cpochv.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = '/PWS/ZYCBT154'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc EQ 0.
IF wa_zycbt007-fprovisao EQ space.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
move-corresponding itab_zycbt154 to /pws/zycbt154.
perform carrega_log using '/PWS/ZYCBT154'
'D'
sy-tcode
sy-repid
itab_zycbt154-nrcorresp.
* << Fim da inclusão
MOVE-CORRESPONDING itab_zycbt154 TO /pws/zycbt154.
DELETE /pws/zycbt154.
ELSE.
UPDATE /pws/zycbt154 SET status = 'S'
WHERE codmod = itab_zycbt154-codmod
AND codmodul = itab_zycbt154-codmodul
AND tpcontr = itab_zycbt154-tpcontr
AND codint = itab_zycbt154-codint
AND bco = itab_zycbt154-bco
AND dtcont = itab_zycbt154-dtcont
AND bukrs = itab_zycbt154-bukrs
AND gsber = itab_zycbt154-gsber
AND waers = itab_zycbt154-waers
AND c_newko = itab_zycbt154-c_newko
AND d_newko = itab_zycbt154-d_newko
AND nrcorresp = itab_zycbt154-nrcorresp
AND mesfech = itab_zycbt154-mesfech
AND gjahr = itab_zycbt154-gjahr.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
if sy-subrc eq 0.
move-corresponding itab_zycbt154 to /pws/zycbt154.
perform carrega_log using '/PWS/ZYCBT154'
'U'
sy-tcode
sy-repid
itab_zycbt154-nrcorresp.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
endif.
* << Fim da inclusão
IF itab_zycbt154-tpcontr(1) EQ 'N' AND
itab_zycbt154-codmodul = 'JU'.
UPDATE /pws/zycbt245 SET belnr_prov = ' '
dt_prov = ' '
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
where nrseqc = itab_zycbt154-nrcorresp(8)
and belnr_prov = itab_zycbt154-belnr_pr.
if sy-subrc eq 0.
clear: itab_zycbt245_aud.
refresh: itab_zycbt245_aud.
select * from /pws/zycbt245
into table itab_zycbt245_aud
* << Fim da inclusão
WHERE nrseqc = itab_zycbt154-nrcorresp(8)
AND belnr_prov = itab_zycbt154-belnr_pr.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
if sy-subrc eq 0.
loop at itab_zycbt245_aud into /pws/zycbt245.
perform carrega_log using '/PWS/ZYCBT245'
'U'
sy-tcode
'/PWS/SAPMZYCB001'
/pws/zycbt245-nrseqc.
endloop.
endif.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
endif.
* << Fim da inclusão
WRITE: / itab_zycbt032-tpmsg,
itab_zycbt154-tpcontr,
itab_zycbt154-bco,
itab_zycbt154-bukrs,
itab_zycbt154-gsber,
text-009,
itab_zycbt154-belnr_pr,
text-010,
itab_zycbt032-belnr.
LOOP AT itab_relat WHERE tpcontr = itab_zycbt154-tpcontr
AND bco = itab_zycbt154-bco
AND bukrs = itab_zycbt154-bukrs
AND gsber = itab_zycbt154-gsber
AND waers = itab_zycbt154-waers
AND f_encerrado = 'I'.
UPDATE /pws/zycbt001 SET f_encerrado = 'C'
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
where nrseqc = itab_relat-nrseqc.
clear: wa_zycbt001_aud.
if sy-subrc eq 0.
select single * from /pws/zycbt001
into wa_zycbt001_aud
* << Fim da inclusão
WHERE nrseqc = itab_relat-nrseqc.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
if sy-subrc eq 0.
move-corresponding wa_zycbt001_aud to /pws/zycbt001.
perform carrega_log using '/PWS/ZYCBT001'
'U'
sy-tcode
'/PWS/SAPMZYCB001'
wa_zycbt001_aud-nrseqc.
endif.
endif.
* << Fim da inclusão
ENDLOOP.
ELSE.
LOOP AT itab_zycbt032 WHERE tcode = 'FB08'
AND tabela = '/PWS/ZYCBT154'
AND cpochv = v_cpochv.
WRITE: / itab_zycbt032-tpmsg,
itab_zycbt154-tpcontr,
itab_zycbt154-bco,
itab_zycbt154-bukrs,
itab_zycbt154-gsber,
...
...
itab_zycbt034-descricao text-142
INTO v_msg SEPARATED BY space.
WRITE: / v_msg.
ENDLOOP.
ENDIF.
ENDLOOP.
SKIP.
IF sy-subrc NE 0.
UPDATE /pws/zycbt001 SET f_encerrado = 'C'
WHERE f_encerrado = 'I'. "#EC CI_NOFIELD
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
if sy-subrc eq 0.
select * from /pws/zycbt001
into table itab_zycbt001_aud
where f_encerrado = 'I'.
if sy-subrc eq 0.
loop at itab_zycbt001_aud into /pws/zycbt001.
perform carrega_log using '/PWS/ZYCBT001'
'U'
sy-tcode
'/PWS/SAPMZYCB001'
/pws/zycbt001-nrseqc.
endloop.
endif.
endif.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM processa_contabilizacao.
NEW-PAGE LINE-SIZE v_tamr LINE-COUNT 58 WITH-TITLE.
UPDATE /pws/zycbt021 SET data = sy-datum
hora = sy-uzeit
usuario = sy-uname
WHERE codrel = '003'.
* >> Início da inclusão: FORM PROCESSA_CONTABILIZACAO
perform carrega_log using '/PWS/ZYCBT021'
'X'
' '
' '
' '.
* << Fim da inclusão
IF wa_zycbt007-fprovisao = space.
PERFORM lancamento_estorno.
ENDIF.
PERFORM lancamento_provisao.
ENDFORM.
FORM processa_subtotal_waers USING p_v_vlmej p_v_vlmeir p_impr.
DATA : v_vlrjprov LIKE /pws/zycbt154-vlme,
v_pos TYPE i.
DATA: v_tipo_jur(5) TYPE c.
CHECK NOT p_v_vlmej IS INITIAL OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI112
...
endif.
/pws/zycbt154-codmod = 'I'.
if itab_contabil-tpcontab is initial.
/pws/zycbt154-codmodul = 'JU'.
elseif itab_contabil-tpcontab eq 'C'.
/pws/zycbt154-codmodul = 'C'.
endif.
/pws/zycbt154-belnr_pr = itab_zycbt032-belnr.
insert into /pws/zycbt154 values /pws/zycbt154.
commit work.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
perform carrega_log using '/PWS/ZYCBT154'
'I'
sy-tcode
sy-repid
/pws/zycbt154-nrcorresp.
* << Fim da inclusão
loop at itab_zycbt032 where tcode = 'F-02'
and tabela = '/PWS/ZYCBT113'
and cpochv = v_cpochv.
write: / itab_zycbt032-tpmsg.
if wa_zycbt007-fprovisao = 'C'.
write: itab_contabil-nrseq.
else.
write: itab_contabil-bco.
endif.
write: itab_contabil-codint,
...
...
clear: /pws/zycbt154-nrcorresp, /pws/zycbt154-tpcontr.
endif.
/pws/zycbt154-vlme = itab_contabil-vlmeir.
/pws/zycbt154-codmod = 'I'.
/pws/zycbt154-codmodul = 'IR'.
/pws/zycbt154-belnr_pr = itab_zycbt032-belnr.
/pws/zycbt154-c_newko = itab_contabil-c_newkoir.
/pws/zycbt154-d_newko = itab_contabil-d_newkoir.
insert into /pws/zycbt154 values /pws/zycbt154.
commit work.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
perform carrega_log using '/PWS/ZYCBT154'
'I'
sy-tcode
sy-repid
/pws/zycbt154-nrcorresp.
* << Fim da inclusão
endif.
loop at itab_zycbt032 where tcode = 'F-02'
and tabela = '/PWS/ZYCBT113'
and cpochv = v_cpochv.
write: / itab_zycbt032-tpmsg.
if wa_zycbt007-fprovisao = 'C'.
write: itab_contabil-nrseq.
else.
write: itab_contabil-bco.
endif.
...
...
itab_zycbt154-codint
itab_zycbt154-bco itab_zycbt154-dtcont
itab_zycbt154-bukrs itab_zycbt154-gsber
itab_zycbt154-waers itab_zycbt154-d_newko
itab_zycbt154-c_newko into v_cpochv.
read table itab_zycbt032 with key tcode = 'FB08'
tabela = '/pws/zycbt154'
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc eq 0.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
select * from /pws/zycbt154
into table itab_zycbt154_aud
where belnr_pr = itab_zycbt154-belnr_pr. "#EC CI_NOFIRST
loop at itab_zycbt154_aud into /pws/zycbt154.
perform carrega_log using '/PWS/ZYCBT154'
'D'
sy-tcode
sy-repid
/pws/zycbt154-nrcorresp.
endloop.
* << Fim da inclusão
delete from /pws/zycbt154 where
belnr_pr = itab_zycbt154-belnr_pr. "#EC CI_NOFIRST
delete itab_zycbt154 where belnr_pr = itab_zycbt154-belnr_pr.
write: / itab_zycbt032-tpmsg,
itab_zycbt154-bco,
itab_zycbt154-codint,
itab_zycbt154-bukrs,
itab_zycbt154-gsber,
text-009,
itab_zycbt154-belnr_pr,
text-010,
itab_zycbt032-belnr.
loop at itab_relat where codint = itab_zycbt154-codint
and bco = itab_zycbt154-bco
and bukrs = itab_zycbt154-bukrs
and gsber = itab_zycbt154-gsber
and waers = itab_zycbt154-waers
and f_encerrado = 'I'.
update /pws/zycbt112 set f_encerrado = 'C'
where nrseq = itab_relat-nrseq.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
move itab_relat-nrseq to /pws/zycbt112-nrseq.
perform carrega_log using '/PWS/ZYCBT112'
'U'
sy-tcode
'/PWS/SAPMZYCM101'
/pws/zycbt112-nrseq.
* << Fim da inclusão
endloop.
endif.
loop at itab_zycbt032 where tcode = 'FB08'
and tabela = '/pws/zycbt154'
and cpochv = v_cpochv.
write: / itab_zycbt032-tpmsg,
itab_zycbt154-bco,
itab_zycbt154-codint,
itab_zycbt154-bukrs,
itab_zycbt154-gsber,
...
...
itab_zycbt032,
itab_zycbt034.
endloop.
endform.
form processa_contabilizacao.
new-page line-size 220 line-count 58 no-title.
update /pws/zycbt021 set data = sy-datum
hora = sy-uzeit
usuario = sy-uname
where codrel = '112'.
* >> Início da inclusão: FORM PROCESSA_CONTABILIZACAO
perform carrega_log using '/PWS/ZYCBT021'
'X'
' '
' '
' '.
* << Fim da inclusão
if not wa_zycbt007-fprovisao = 'C'.
perform lancamento_estorno.
endif.
perform lancamento_provisao.
endform.
form processa_subtotal_waers using p_v_vlmej p_v_vlmeir. "#EC *
data: v_vlmej type wrbtr,
v_vlmeir type wrbtr.
v_vlmej = p_v_vlmej.
v_vlmeir = p_v_vlmeir.
...
...
move-corresponding itab_contabil to /pws/zycbt154.
/pws/zycbt154-nrcorresp = itab_contabil-nrseq.
/pws/zycbt154-codmod = 'I'.
/pws/zycbt154-codmodul = 'T'.
/pws/zycbt154-tpcontr = itab_contabil-nrparcp+1(2).
/pws/zycbt154-dtcont = s_dtentr.
/pws/zycbt154-belnr_pr = itab_zycbt113p-belnr_lp.
/pws/zycbt154-belnr_cl = itab_zycbt032-belnr.
insert into /pws/zycbt154 values /pws/zycbt154.
commit work.
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA
perform carrega_log using '/PWS/ZYCBT154'
'I'
sy-tcode
sy-repid
/pws/zycbt154-nrcorresp.
* << Fim da inclusão
itab_status-fcode = 'CONT'.
append itab_status.
itab_status-fcode = 'RCON'.
append itab_status.
set pf-status '003' excluding itab_status immediately.
refresh itab_status.
update /pws/zycbt113 set ftransf = 'C'
belnr = itab_zycbt032-belnr
where nrseq = itab_contabil-nrseq
and nrparc = itab_contabil-nrparcp
and tpparc = 'P'.
update /pws/zycbt112 set fassoc = 'X'
where nrseq = itab_contabil-nrseq.
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA
move: itab_contabil-nrseq to /pws/zycbt113-nrseq,
itab_contabil-nrparcp to /pws/zycbt113-nrparc,
'P' to /pws/zycbt113-tpparc.
perform carrega_log using '/PWS/ZYCBT113'
'U'
sy-tcode
'/PWS/SAPMZYCM101'
/pws/zycbt113-nrseq.
move itab_contabil-nrseq to /pws/zycbt112-nrseq.
perform carrega_log using '/PWS/ZYCBT112'
'U'
sy-tcode
'/PWS/SAPMZYCM101'
/pws/zycbt112-nrseq.
* << Fim da inclusão
clear v_msg.
concatenate itab_zycbt032-msg text-104
into v_msg separated by space.
write: / itab_zycbt032-tpmsg,
itab_contabil-nrseq,
itab_contabil-codint,
itab_contabil-bukrs,
itab_contabil-gsber,
itab_zycbt032-belnr,
v_msg.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI113
...
itab_zycbe033-budat = sy-datum.
endif.
append itab_zycbe033.
endform.
form processa_contabilizacao.
new-page line-size 220 line-count 58 no-title.
update /pws/zycbt021 set data = sy-datum
hora = sy-uzeit
usuario = sy-uname
where codrel = '113'.
* >> Início da inclusão: FORM PROCESSA_CONTABILIZACAO
perform carrega_log using '/PWS/ZYCBT021'
'X'
' '
' '
' '.
* << Fim da inclusão
if wa_zycbt007-fprovisao = space.
loop at itab_zycbt154.
perform lancamento_estorno.
perform transacao_estorno.
endloop.
endif.
if wa_zycbt007-fprovisao = 'C'.
perform lancamento_provisao.
else.
perform lancamento_provisao_estorno_me.
...
...
move-corresponding itab_contabil to /pws/zycbt154.
/pws/zycbt154-codmod = 'F'.
/pws/zycbt154-codmodul = 'T'.
/pws/zycbt154-codint = itab_contabil-tpemprest.
/pws/zycbt154-tpcontr = itab_contabil-nrparcp+1(2).
/pws/zycbt154-dtcont = s_dtentr.
/pws/zycbt154-belnr_pr = itab_zycbt129p-belnr_lp.
/pws/zycbt154-belnr_cl = itab_zycbt032-belnr.
insert into /pws/zycbt154 values /pws/zycbt154.
commit work.
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA
perform carrega_log using '/PWS/ZYCBT154'
'I'
sy-tcode
sy-repid
/pws/zycbt154-nrcorresp.
* << Fim da inclusão
itab_status-fcode = 'CONT'.
append itab_status.
itab_status-fcode = 'RCON'.
append itab_status.
set pf-status '003' excluding itab_status immediately.
refresh itab_status.
update /pws/zycbt129 set ftransf = 'C'
belnr = itab_zycbt032-belnr
where nrseq = itab_contabil-nrcorresp
and nrparc = itab_contabil-nrparcp
and tpparc = 'P'.
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA
select single * from /pws/zycbt129
where nrseq = itab_contabil-nrcorresp
and nrparc = itab_contabil-nrparcp
and tpparc = 'P'.
/pws/zycbt129-ftransf = 'C'.
/pws/zycbt129-belnr = itab_zycbt032-belnr.
perform carrega_log using '/PWS/ZYCBT129'
'U'
sy-tcode
'/PWS/SAPMZYCA111'
/pws/zycbt129-nrseq.
* << Fim da inclusão
update /pws/zycbt128 set fassoc = 'X'
where nrseq = itab_contabil-nrcorresp.
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA
select single * from /pws/zycbt128
where nrseq = itab_contabil-nrcorresp.
/pws/zycbt128-fassoc = 'X'.
perform carrega_log using '/PWS/ZYCBT128'
'U'
sy-tcode
'/PWS/SAPMZYCA111'
/pws/zycbt128-nrseq.
* << Fim da inclusão
clear v_msg.
concatenate itab_zycbt032-msg text-118
into v_msg separated by space.
write: / itab_zycbt032-tpmsg,
itab_contabil-nrcorresp,
itab_contabil-bukrs,
itab_contabil-gsber,
itab_zycbt032-belnr,
v_msg.
else.
...
...
move-corresponding itab_contabil_estorno to /pws/zycbt154.
/pws/zycbt154-codmod = 'F'.
/pws/zycbt154-codmodul = 'T'.
/pws/zycbt154-codint = itab_contabil-tpemprest.
/pws/zycbt154-tpcontr = itab_contabil_estorno-nrparcp+1(2).
/pws/zycbt154-dtcont = s_dtentr.
/pws/zycbt154-belnr_pr = itab_zycbt129p-belnr_lp.
/pws/zycbt154-belnr_cl = itab_zycbt032-belnr.
insert into /pws/zycbt154 values /pws/zycbt154.
commit work.
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
perform carrega_log using '/PWS/ZYCBT154'
'I'
sy-tcode
sy-repid
/pws/zycbt154-nrcorresp.
* << Fim da inclusão
itab_status-fcode = 'CONT'.
append itab_status.
itab_status-fcode = 'RCON'.
append itab_status.
set pf-status '003' excluding itab_status immediately.
refresh itab_status.
update /pws/zycbt129 set ftransf = 'C'
belnr = itab_zycbt032-belnr
where nrseq = itab_contabil_estorno-nrcorresp
and nrparc = itab_contabil_estorno-nrparcp
and tpparc = 'P'.
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
select single * from /pws/zycbt129
where nrseq = itab_contabil_estorno-nrcorresp
and nrparc = itab_contabil_estorno-nrparcp
and tpparc = 'P'.
/pws/zycbt129-ftransf = 'C'.
/pws/zycbt129-belnr = itab_zycbt032-belnr.
perform carrega_log using '/PWS/ZYCBT129'
'U'
sy-tcode
'/PWS/SAPMZYCA111'
/pws/zycbt129-nrseq.
* << Fim da inclusão
update /pws/zycbt128 set fassoc = 'X'
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
where nrseq = itab_contabil_estorno-nrcorresp.
select single * from /pws/zycbt128
* << Fim da inclusão
where nrseq = itab_contabil_estorno-nrcorresp.
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
/pws/zycbt128-fassoc = 'X'.
perform carrega_log using '/PWS/ZYCBT128'
'U'
sy-tcode
'/PWS/SAPMZYCA111'
/pws/zycbt128-nrseq.
* << Fim da inclusão
clear v_msg.
concatenate itab_zycbt032-msg text-118
into v_msg separated by space.
write: / itab_zycbt032-tpmsg,
itab_contabil_estorno-nrcorresp,
itab_contabil_estorno-bukrs,
itab_contabil_estorno-gsber,
itab_zycbt032-belnr,
v_msg.
else.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
v_parafator like tcurr-tfact,
v_separa type c,
v_vlprov_aux like /pws/zycbt004-vlme,
v_fprov type /pws/zycbt007-fprovisao,
v_liq type c.
data: v_jace type c,
v_dtpagto type sy-datum.
data: v_vinculacao type c.
data: v_msg(150) type c.
data: v_kursf type /pws/zycbe033-kursf.
* >> Início da inclusão:
data: begin of itab_zycbt245_aud occurs 0.
include structure /pws/zycbt245.
data: end of itab_zycbt245_aud.
data: begin of itab_zycbt001_aud occurs 0.
include structure /pws/zycbt001.
data: end of itab_zycbt001_aud.
data: wa_zycbt001_aud like /pws/zycbt001,
wa_zycbt002_aud like /pws/zycbt002.
* << Fim da inclusão
constants: v_jl(2) type c value 'JL'.
selection-screen begin of block a1 with frame title text-001.
parameters: s_bukrs like /pws/zycbt001-bukrs obligatory,
s_dtentr like sy-datum obligatory.
parameters: p_agrup as checkbox.
selection-screen end of block a1.
selection-screen begin of block b2 with frame title text-046.
parameters: s_rbrotm radiobutton group rg1,
s_rbrotd radiobutton group rg1,
s_rbrela radiobutton group rg1.
...
...
parameters: s_rbmens radiobutton group rg2,
s_rbinte radiobutton group rg2.
selection-screen end of block c3.
selection-screen begin of block d4 with frame title text-047.
select-options: s_nrseqc for /pws/zycbt001-nrseqc
matchcode object /pws/zycba050,
s_tpcont for /pws/zycbt001-tpcontr.
selection-screen end of block d4.
include /pws/zycbi003x.
include /pws/zycbi003.
* >> Início da inclusão:
include /pws/zygllog.
* << Fim da inclusão
initialization.
set pf-status '1001'.
at selection-screen.
case sy-ucomm.
when'DEL'.
clear wa_zycbt007.
if not s_bukrs is initial.
select single * from /pws/zycbt007
into wa_zycbt007
where bukrs eq s_bukrs.
...
...
loop at itab_relat_aux where nrseqc = itab_relat-nrseqc and
( vlrprov ne 0 or
vlirprov ne 0 or
vlmetransf ne 0 ).
exit.
endloop.
if sy-subrc ne 0.
v_ec = 1.
update /pws/zycbt001 set f_encerrado = 'E'
where nrseqc = itab_relat-nrseqc.
* >> Início da inclusão: FORM PROCESSA_ENCERRADO
clear: wa_zycbt001_aud.
if sy-subrc eq 0.
select single * from /pws/zycbt001
into wa_zycbt001_aud
where nrseqc = itab_relat-nrseqc.
if sy-subrc eq 0.
move-corresponding wa_zycbt001_aud to /pws/zycbt001.
perform carrega_log using '/PWS/ZYCBT001'
'U'
sy-tcode
'/PWS/SAPMZYCB001'
/pws/zycbt001-nrseqc.
endif.
endif.
* << Fim da inclusão
write : / text-061, itab_relat-nrseqc,
at sy-linsz sy-vline.
endif.
endloop.
if v_ec = 1.
write : / sy-vline, text-063,
at sy-linsz sy-vline.
endif.
uline.
endform.
...
...
if v_tot_vlme ne itab_zycbt001_ence-vlme.
continue.
else.
if wa_zycbt007-fprovisao = space.
itab_zycbt001_ence-f_encerrado = 'E'.
modify itab_zycbt001_ence transporting f_encerrado.
update /pws/zycbt001
set f_encerrado = itab_zycbt001_ence-f_encerrado
where nrseqc eq itab_zycbt001_ence-nrseqc.
commit work.
* >> Início da inclusão: FORM PROCESSA_ENCERRAMENTO
clear: wa_zycbt001_aud.
if sy-subrc eq 0.
select single * from /pws/zycbt001
into wa_zycbt001_aud
where nrseqc = itab_zycbt001_ence-nrseqc.
if sy-subrc eq 0.
move-corresponding wa_zycbt001_aud to /pws/zycbt001.
perform carrega_log using '/PWS/ZYCBT001'
'U'
sy-tcode
'/PWS/SAPMZYCB001'
wa_zycbt001_aud-nrseqc.
endif.
endif.
* << Fim da inclusão
else.
submit /pws/zycbr056
with p_nrseqc = itab_zycbt001_ence-nrseqc
with p_tpcont = itab_zycbt001_ence-tpcontr
with p_dtence = itab_zycbt001_ence-dtencerra
with p_fencer = itab_zycbt001_ence-f_encerrado
with p_waers = itab_zycbt001_ence-waers
with p_bukrs = itab_zycbt001_ence-bukrs
with p_gsber = itab_zycbt001_ence-gsber
with p_j1bran = itab_zycbt001_ence-j_1bbranch
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR112
...
data: begin of itab_modo occurs 0.
include structure spopli.
data: end of itab_modo.
data: begin of itab_zyglt316 occurs 0.
include structure /pws/zyglt316.
data: end of itab_zyglt316.
data: itab_zycbt032 like /pws/zycbt032 occurs 10 with header line,
itab_zycbe033 like /pws/zycbe033 occurs 10 with header line,
itab_zycbt034 like /pws/zycbt034 occurs 10 with header line,
itab_zycbt036 like /pws/zycbt036 occurs 10 with header line.
* >> Início da inclusão:
DATA: itab_zycbt154_aud TYPE TABLE OF /pws/zycbt154.
* << Fim da inclusão
data: v_tamr type i value 220,
v_dtoperac like sy-datum,
v_f_encerrado like /pws/zycbt112-f_encerrado,
v_diascomatual type i,
v_vlcomis like /pws/zycbt112-vlme,
v_blart like /pws/zycbt011-blart,
v_d_sgtxt like /pws/zycbt011-txtdesc,
v_c_sgtxt like /pws/zycbt011-txtdesc,
v_d_newko like /pws/zycbt012-saknr1,
v_c_newko like /pws/zycbt012-saknr1,
...
...
selection-screen begin of block b2 with frame title text-046.
parameters: s_rbrotm radiobutton group rg1,
s_rbrotd radiobutton group rg1,
s_rbrela radiobutton group rg1.
selection-screen end of block b2.
selection-screen begin of block b3 with frame title text-045.
parameters: s_rbmens radiobutton group rg2 user-command rg2,
s_rbinte radiobutton group rg2.
selection-screen end of block b3.
include /pws/zycbi112.
* >> Início da inclusão:
INCLUDE /pws/zygllog.
* << Fim da inclusão
initialization.
set pf-status '1001'.
perform ultimo_dia_mes.
top-of-page.
perform exibe_cabecalho.
at selection-screen.
clear wa_zycbt007.
if not s_bukrs is initial.
select single * from /pws/zycbt007
into wa_zycbt007
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR113
...
nrparcj like /pws/zycbt113-nrparc,
tpemprest like /pws/zycbt128-tpemprest,
aux(1) type c,
dtfpar like sy-datum,
end of itab_contabil.
data: itab_contabil_estorno like itab_contabil
occurs 0 with header line.
.
include /pws/zygli100.
include /pws/zycbi113x.
* >> Início da inclusão:
include /pws/zygllog.
* << Fim da inclusão
data: itab_zyglt100 like /pws/zyglt100 occurs 0 with header line.
data: itab_relat_aux like itab_relat occurs 0 with header line.
data: begin of itab_msg occurs 10,
nrseq like /pws/zycbt128-nrseq,
nremprest like /pws/zycbt128-nremprest,
nrparc like /pws/zycbt129-nrparc,
tpmsg like /pws/zycbt032-tpmsg,
msg like /pws/zycbt032-msg,
end of itab_msg.
data: itab_zycbt032 like /pws/zycbt032 occurs 10 with header line,
...
...
itab_zycbt154-bco itab_zycbt154-dtcont
itab_zycbt154-bukrs itab_zycbt154-gsber
itab_zycbt154-waers itab_zycbt154-d_newko
itab_zycbt154-c_newko
into v_cpochv.
read table itab_zycbt032 with key tcode = 'FB08'
tabela = '/PWS/ZYCBT154'
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc eq 0.
* >> Início da inclusão: FORM TRANSACAO_ESTORNO
move-corresponding itab_zycbt154 to /pws/zycbt154.
perform carrega_log using '/PWS/ZYCBT154'
'D'
sy-tcode
sy-repid
/PWS/ZYCBT154-NRCORRESP.
* << Fim da inclusão
delete from /pws/zycbt154
where belnr_pr = itab_zycbt154-belnr_pr. "#EC CI_NOFIRST
delete itab_zycbt154
where belnr_pr = itab_zycbt154-belnr_pr. "#EC CI_NOFIRST
concatenate itab_zycbt032-tpmsg
itab_zycbt154-bco
itab_zycbt154-bukrs
itab_zycbt154-gsber
text-009
itab_zycbt154-belnr_pr
...
...
append t_lista. clear t_lista.
loop at itab_relat where bco = itab_zycbt154-bco
and bukrs = itab_zycbt154-bukrs
and gsber = itab_zycbt154-gsber
and waers = itab_zycbt154-waers
and c_newko = itab_zycbt154-c_newko
and d_newko = itab_zycbt154-d_newko
and f_encerrado = 'I'.
update /pws/zycbt128 set f_encerrado = 'C'
where nrseq = itab_relat-nrseq.
* >> Início da inclusão: FORM TRANSACAO_ESTORNO
select single * from /pws/zycbt128
where nrseq = itab_relat-nrseq.
/pws/zycbt128-f_encerrado = 'C'.
perform carrega_log using '/PWS/ZYCBT128'
'U'
sy-tcode
'/PWS/SAPMZYCA111'
/PWS/ZYCBT128-NRSEQ.
* << Fim da inclusão
endloop.
else.
loop at itab_zycbt032 where tcode = 'FB08'
and tabela = '/PWS/ZYCBT154'
and cpochv = v_cpochv.
concatenate itab_zycbt032-tpmsg
itab_zycbt154-bco
itab_zycbt154-bukrs
itab_zycbt154-gsber
itab_zycbt032-belnr
...
...
tpmsg = 'S'.
if sy-subrc = 0.
v_contabilizado = 'X'.
if itab_contabil-tpcontab = ' '.
loop at itab_relat where nrseq = itab_contabil-nrcorresp
and tpcontab = ' '.
update /pws/zycbt129 set vlrprov = itab_relat-vlmej
where nrseq = itab_relat-nrseq
and nrparc = itab_relat-nrparcj
and tpparc = 'J'.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02
select single * from /pws/zycbt129
where nrseq = itab_relat-nrseq
and nrparc = itab_relat-nrparcj
and tpparc = 'J'.
/pws/zycbt129-vlrprov = itab_relat-vlmej.
perform carrega_log using '/PWS/ZYCBT129'
'U'
sy-tcode
'/PWS/SAPMZYCA111'
/PWS/ZYCBT129-NRSEQ.
* << Fim da inclusão
endloop.
elseif itab_contabil-tpcontab = 'C'.
loop at itab_relat where nrseq = itab_contabil-nrcorresp
and tpcontab = 'C'.
update /pws/zycbt129 set vlrprov = itab_relat-vlmej
where nrseq = itab_relat-nrseq
and nrparc = itab_relat-nrparcj
and tpparc = 'C'.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02
select single * from /pws/zycbt129
where nrseq = itab_relat-nrseq
and nrparc = itab_relat-nrparcj
and tpparc = 'J'.
/pws/zycbt129-vlrprov = itab_relat-vlmej.
perform carrega_log using '/PWS/ZYCBT129'
'U'
sy-tcode
'/PWS/SAPMZYCA111'
/PWS/ZYCBT129-NRSEQ.
* << Fim da inclusão
endloop.
endif.
move-corresponding itab_contabil to /pws/zycbt154.
/pws/zycbt154-vlme = itab_contabil-vlrprov.
/pws/zycbt154-tpcontr = itab_contabil-nrparcj+1(2).
/pws/zycbt154-codmod = 'F'.
if itab_contabil-tpcontab is initial.
/pws/zycbt154-codmodul = 'JU'.
elseif itab_contabil-tpcontab = 'C'.
/pws/zycbt154-codmodul = 'C'.
endif.
/pws/zycbt154-dtcont = s_dtentr.
/pws/zycbt154-belnr_pr = itab_zycbt032-belnr.
/pws/zycbt154-codint = itab_contabil-tpemprest.
insert into /pws/zycbt154 values /pws/zycbt154.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02
perform carrega_log using '/PWS/ZYCBT154'
'I'
sy-tcode
sy-repid
/PWS/ZYCBT154-NRCORRESP.
* << Fim da inclusão
commit work.
if itab_contabil-tpcontab <> 'T'.
/pws/zycbt154-vlme = itab_contabil-vlrprov.
itab_contabil-aux = 'X'.
modify itab_contabil transporting aux
where nrcorresp = itab_contabil-nrcorresp
and tpcontab = itab_contabil-tpcontab
and nrparcj = itab_contabil-nrparcj.
endif.
endif.
...
...
/pws/zycbt154-tpcontr = itab_contabil-nrparcj+1(2).
/pws/zycbt154-vlme = itab_contabil-vlrprovir.
/pws/zycbt154-codmod = 'F'.
/pws/zycbt154-codmodul = 'IR'.
/pws/zycbt154-belnr_pr = itab_zycbt032-belnr.
/pws/zycbt154-c_newko = itab_contabil-c_newkoir.
/pws/zycbt154-d_newko = itab_contabil-d_newkoir.
/pws/zycbt154-codint = itab_contabil-tpemprest.
insert into /pws/zycbt154 values /pws/zycbt154.
commit work.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02
perform carrega_log using '/PWS/ZYCBT154'
'I'
sy-tcode
sy-repid
/PWS/ZYCBT154-NRCORRESP.
* << Fim da inclusão
endif.
loop at itab_zycbt032 where tcode = 'F-02'
and tabela = '/PWS/ZYCBT129'
and cpochv = v_cpochv.
concatenate itab_zycbt032-tpmsg
itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_zycbt032-belnr
itab_contabil-nrcorresp
itab_zycbt032-msg into t_lista
separated by space.
...
...
/pws/zycbt154-tpcontr = itab_contabil-nrparcj+1(2).
/pws/zycbt154-vlme = itab_contabil-vlrprovir.
/pws/zycbt154-codmod = 'F'.
/pws/zycbt154-codmodul = 'CI'.
/pws/zycbt154-belnr_pr = itab_zycbt032-belnr.
/pws/zycbt154-c_newko = itab_contabil-c_newkoir.
/pws/zycbt154-d_newko = itab_contabil-d_newkoir.
/pws/zycbt154-codint = itab_contabil-tpemprest.
insert into /pws/zycbt154 values /pws/zycbt154.
commit work.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02
perform carrega_log using '/PWS/ZYCBT154'
'I'
sy-tcode
sy-repid
/PWS/ZYCBT154-NRCORRESP.
* << Fim da inclusão
endif.
loop at itab_zycbt032 where tcode = 'F-02'
and tabela = '/PWS/ZYCBT129'
and cpochv = v_cpochv.
concatenate itab_zycbt032-tpmsg
itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_zycbt032-belnr
itab_contabil-nrcorresp
itab_zycbt032-msg into t_lista
separated by space.
...
...
read table itab_contabil_estorno with key
nrcorresp = itab_relat-nrseq
tpcontab = itab_relat-tpcontab
.
if sy-subrc = 0.
if itab_contabil_estorno-tpcontab = ' '.
update /pws/zycbt129 set vlrprov = itab_contabil_estorno-vlme
where nrseq = itab_relat-nrseq
and nrparc = itab_relat-nrparcj
and tpparc = 'J'.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02_ESTORNO_MES
select single * from /pws/zycbt129
where nrseq = itab_relat-nrseq
and nrparc = itab_relat-nrparcj
and tpparc = 'J'.
/pws/zycbt129-vlrprov = itab_contabil_estorno-vlme.
perform carrega_log using '/PWS/ZYCBT129'
'U'
sy-tcode
'/PWS/SAPMZYCA111'
/PWS/ZYCBT129-NRSEQ.
* << Fim da inclusão
elseif itab_contabil_estorno = 'C'.
update /pws/zycbt129 set vlrprov = itab_contabil_estorno-vlme
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02_ESTORNO_MES
where nrseq = itab_relat-nrseq
and nrparc = itab_relat-nrparcj
and tpparc = 'C'.
select single * from /pws/zycbt129
* << Fim da inclusão
where nrseq = itab_relat-nrseq
and nrparc = itab_relat-nrparcj
and tpparc = 'C'.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02_ESTORNO_MES
/pws/zycbt129-vlrprov = itab_contabil_estorno-vlme.
perform carrega_log using '/PWS/ZYCBT129'
'U'
sy-tcode
'/PWS/SAPMZYCA111'
/PWS/ZYCBT129-NRSEQ.
* << Fim da inclusão
endif.
endif.
endloop.
move-corresponding itab_contabil_estorno to /pws/zycbt154.
/pws/zycbt154-codmod = 'F'.
if itab_contabil_estorno-tpcontab = ' '.
/pws/zycbt154-codmodul = 'JU'.
/pws/zycbt154-vlme = itab_contabil_estorno-vlrprov.
elseif itab_contabil_estorno-tpcontab = 'C'.
/pws/zycbt154-codmodul = 'C'.
/pws/zycbt154-vlme = itab_contabil_estorno-vlrprov.
endif.
if p_agrup is initial.
clear /pws/zycbt154-nrcorresp.
endif.
/pws/zycbt154-dtcont = s_dtentr.
/pws/zycbt154-belnr_pr = itab_zycbt032-belnr.
/pws/zycbt154-codint = itab_contabil_estorno-tpemprest.
insert into /pws/zycbt154 values /pws/zycbt154.
commit work.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02_ESTORNO_MES
perform carrega_log using '/PWS/ZYCBT154'
'I'
sy-tcode
sy-repid
/PWS/ZYCBT154-NRCORRESP.
* << Fim da inclusão
if itab_contabil_estorno-tpcontab <> 'T'.
itab_contabil_estorno-aux = 'X'.
modify itab_contabil_estorno transporting aux
where nrcorresp = itab_contabil_estorno-nrcorresp
and tpcontab = itab_contabil_estorno-tpcontab
and nrparcj = itab_contabil_estorno-nrparcj.
endif.
endif.
loop at itab_zycbt032 where tcode = 'F-02'
and tabela = '/PWS/ZYCBT129'
...
...
/pws/zycbt154-belnr_pr = itab_zycbt032-belnr.
/pws/zycbt154-vlme = itab_contabil_estorno-vlrprovir.
/pws/zycbt154-c_newko = itab_contabil_estorno-c_newkoir.
/pws/zycbt154-d_newko = itab_contabil_estorno-d_newkoir.
/pws/zycbt154-codint = itab_contabil_estorno-tpemprest.
if p_agrup is initial.
clear /pws/zycbt154-nrcorresp.
endif.
insert into /pws/zycbt154 values /pws/zycbt154.
commit work.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02_ESTORNO_MES
perform carrega_log using '/PWS/ZYCBT154'
'I'
sy-tcode
sy-repid
/PWS/ZYCBT154-NRCORRESP.
* << Fim da inclusão
endif.
loop at itab_zycbt032 where tcode = 'F-02'
and tabela = '/PWS/ZYCBT129'
and cpochv = v_cpochv.
concatenate itab_zycbt032-tpmsg
itab_contabil_estorno-bco itab_contabil_estorno-bukrs
itab_contabil_estorno-gsber itab_zycbt032-belnr
itab_zycbt032-msg into t_lista
separated by space.
append t_lista. clear t_lista.
...
...
/pws/zycbt154-belnr_pr = itab_zycbt032-belnr.
/pws/zycbt154-vlme = itab_contabil_estorno-vlrprovir.
/pws/zycbt154-c_newko = itab_contabil_estorno-c_newkoir.
/pws/zycbt154-d_newko = itab_contabil_estorno-d_newkoir.
/pws/zycbt154-codint = itab_contabil_estorno-tpemprest.
if p_agrup is initial.
clear /pws/zycbt154-nrcorresp.
endif.
insert into /pws/zycbt154 values /pws/zycbt154.
commit work.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02_ESTORNO_MES
perform carrega_log using '/PWS/ZYCBT154'
'I'
sy-tcode
sy-repid
/PWS/ZYCBT154-NRCORRESP.
* << Fim da inclusão
endif.
loop at itab_zycbt032 where tcode = 'F-02'
and tabela = '/PWS/ZYCBT129'
and cpochv = v_cpochv.
concatenate itab_zycbt032-tpmsg
itab_contabil_estorno-bco itab_contabil_estorno-bukrs
itab_contabil_estorno-gsber itab_zycbt032-belnr
itab_zycbt032-msg into t_lista
separated by space.
append t_lista. clear t_lista.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR020
report /pws/zyglr020 message-id /pws/zycbm.
tables:
/pws/zycbt113,
/pws/zycbt129,
/pws/zycbt154,
/pws/zycbt039,
/pws/zycbt031,
* >> Início da exclusão:
t001."#EC *
* << Fim da exclusão
* >> Início da inclusão:
t001. "#EC *
* << Fim da inclusão
data: itab_zycbt034 like /pws/zycbt034 occurs 10 with header line,
itab_zycbt032 like /pws/zycbt032 occurs 10 with header line,
itab_zycbe033 like /pws/zycbe033 occurs 10 with header line.
data: begin of itab_modo occurs 0.
include structure spopli.
data: end of itab_modo.
data: v_answer(1) type c,
v_codmod(1) type c,
v_monat like t001b-frpe1,
v_ano like t009b-bdatj,
v_modo_bi like /pws/zycbt039-modo.
* >> Início da inclusão:
INCLUDE /pws/zygllog.
DATA: itab_zycbt154_aud TYPE TABLE OF /pws/zycbt154.
* << Fim da inclusão
selection-screen begin of block bl_1 with frame title text-001.
parameters: p_codmod like /pws/zycbt154-codmod no-display memory id
/pws/zyglp094,
p_nrseq like /pws/zycbt154-nrcorresp obligatory,
p_nrparc like /pws/zycbt154-tpcontr obligatory,
p_belnr like /pws/zycbt154-belnr_cl obligatory.
selection-screen end of block bl_1.
at selection-screen output.
import v_codmod from memory id 'E019'.
p_codmod = v_codmod.
...
...
period_not_assigned = 5
version_undefined = 6
others = 7.
if sy-subrc = 0.
else.
endif.
endform.
form modo_batch_input.
clear: itab_modo, /pws/zycbt039.
refresh: itab_modo.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
select * from /pws/zycbt039."#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
SELECT * FROM /pws/zycbt039. "#EC CI_NOWHERE
* << Fim da inclusão
itab_modo-selflag = /pws/zycbt039-modo.
itab_modo-varoption = /pws/zycbt039-descr.
append itab_modo.
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-008
textline2 = text-009
titel = text-010
...
...
select single * from /pws/zycbt113 into /pws/zycbt113
where nrseq = p_nrseq
and tpparc = 'P'
and nrparc = p_nrparc.
if sy-subrc = 0.
update /pws/zycbt113 set ftransf = 'L'
belnr = /pws/zycbt113-belnr_lp
where nrseq = /pws/zycbt113-nrseq
and tpparc = /pws/zycbt113-tpparc
and nrparc = /pws/zycbt113-nrparc.
* >> Início da inclusão: FORM ATUALIZA_TAB_IMP
PERFORM carrega_log USING '/PWS/ZYCBT113'
'U'
'/PWS/ZYCBR112'
'/PWS/SAPMZYCM101'
/pws/zycbt113-nrseq.
SELECT * FROM /pws/zycbt154
INTO TABLE itab_zycbt154_aud
WHERE codmod = v_codmod
AND codmodul = 'T'
AND tpcontr = p_nrparc
AND nrcorresp = p_nrseq
AND belnr_cl = p_belnr.
LOOP AT itab_zycbt154_aud INTO /pws/zycbt154.
PERFORM carrega_log USING '/PWS/ZYCBT154'
'D'
'/PWS/ZYCBR112'
'/PWS/ZYCBR112'
/pws/zycbt154-nrcorresp.
ENDLOOP.
* << Fim da inclusão
delete from /pws/zycbt154 where codmod = v_codmod
and codmodul = 'T'
and tpcontr = p_nrparc
and nrcorresp = p_nrseq
and belnr_cl = p_belnr.
commit work.
endif.
endform.
form atualiza_tab_fin.
select single * from /pws/zycbt129 into /pws/zycbt129
where nrseq = p_nrseq
and tpparc = 'P'
and nrparc = p_nrparc.
if sy-subrc = 0.
update /pws/zycbt129 set ftransf = 'L'
belnr = /pws/zycbt129-belnr_lp
where nrseq = /pws/zycbt129-nrseq
and tpparc = /pws/zycbt129-tpparc
and nrparc = /pws/zycbt129-nrparc.
* >> Início da inclusão: FORM ATUALIZA_TAB_FIN
PERFORM carrega_log USING '/PWS/ZYCBT129'
'U'
'/PWS/ZYCBR113'
'/PWS/SAPMZYCA111'
/pws/zycbt129-nrseq.
SELECT * FROM /pws/zycbt154
INTO TABLE itab_zycbt154_aud
WHERE codmod = v_codmod
AND codmodul = 'T'
AND tpcontr = p_nrparc
AND nrcorresp = p_nrseq
AND belnr_cl = p_belnr.
LOOP AT itab_zycbt154_aud INTO /pws/zycbt154.
PERFORM carrega_log USING '/PWS/ZYCBT154'
'D'
'/PWS/ZYCBR113'
'/PWS/ZYCBR113'
/pws/zycbt154-nrcorresp.
ENDLOOP.
* << Fim da inclusão
delete from /pws/zycbt154 where codmod = v_codmod
and codmodul = 'T'
and tpcontr = p_nrparc
and nrcorresp = p_nrseq
and belnr_cl = p_belnr.
commit work.
endif.
endform.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR030
report /pws/zyglr030 message-id /pws/zycbm.
include /pws/z_rel_alv.
* >> Início da inclusão:
INCLUDE /pws/zygllog.
* << Fim da inclusão
tables: /pws/zycbt002, "#EC *
/pws/zycbt007, "#EC *
/pws/zycbt039, "#EC *
/pws/zycbt113,
/pws/zycbt129,
* >> Início da exclusão:
/pws/zycbt154. "#EC *
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt154, "#EC *
/pws/zycbt001,
/pws/zycbt245.
* << Fim da inclusão
data: begin of itab_contabil occurs 0,
codmodul type /pws/zycbt154-codmodul,
codint type /pws/zycbt154-codint,
bco type /pws/zycbt154-bco,
dtcont type /pws/zycbt154-dtcont,
bukrs type /pws/zycbt154-bukrs,
gsber type /pws/zycbt154-gsber,
waers type /pws/zycbt154-waers,
c_newko type /pws/zycbt154-c_newko,
d_newko type /pws/zycbt154-d_newko,
...
...
belnr_cl = i_final-belnr_pr.
if sy-subrc eq 0.
select * from /pws/zycbt113
up to 1 rows
where belnr = itab_zycbt154-belnr_cl. "#EC CI_NOFIELD
endselect.
if sy-subrc eq 0.
if /pws/zycbt113-belnr_c is initial.
perform executa_fbra_fb08.
if v_ok = 'X'.
* >> Início da inclusão: FORM ESTORNA_IMPORTACAO
SELECT * FROM /pws/zycbt154 INTO /pws/zycbt154
UP TO 1 ROWS
WHERE nrcorresp = itab_zycbe033-cpochv
AND belnr_cl = itab_zycbt154-belnr_cl
AND bukrs = itab_zycbe033-bukrs.
ENDSELECT.
PERFORM carrega_log USING '/PWS/ZYCBT154'
'D'
'/PWS/ZYCBR112'
'/PWS/ZYCBR112'
/pws/zycbt154-nrcorresp.
* << Fim da inclusão
delete from /pws/zycbt154
where nrcorresp = itab_zycbe033-cpochv
and belnr_cl = itab_zycbt154-belnr_cl
and bukrs = itab_zycbe033-bukrs. "#EC CI_NOFIRST
delete i_final
where nrcorresp = itab_zycbe033-cpochv
and belnr_pr = itab_zycbt154-belnr_cl
and bukrs = itab_zycbe033-bukrs.
/pws/zycbt113-belnr = /pws/zycbt113-belnr_lp.
/pws/zycbt113-ftransf = 'L'.
modify /pws/zycbt113.
* >> Início da inclusão: FORM ESTORNA_IMPORTACAO
PERFORM carrega_log USING '/PWS/ZYCBT113'
'U'
'/PWS/ZYCBR112'
'/PWS/SAPMZYCM101'
/pws/zycbt113-nrseq.
* << Fim da inclusão
endif.
else.
message i113 with i_final-belnr_pr.
endif.
else.
message i113 with i_final-belnr_pr.
endif.
endif.
endif.
endloop.
...
...
t_zycbt032 = itab_zycbt032
exceptions
campo_em_branco = 1
others = 2.
if sy-subrc = 0.
read table itab_zycbt032 with key tcode = 'FB08'
tabela = '/PWS/ZYCBT154'
cpochv = i_final-nrcorresp
tpmsg = 'S'.
if sy-subrc = 0.
* >> Início da inclusão: FORM EXECUTA_FB08
SELECT * FROM /pws/zycbt154 INTO /pws/zycbt154
UP TO 1 ROWS
WHERE nrcorresp = itab_zycbe033-cpochv
AND belnr_cl = itab_zycbt154-belnr_cl
AND bukrs = itab_zycbe033-bukrs.
ENDSELECT.
IF /pws/zycbt154-codmod = 'F'.
v_programa = '/PWS/ZYCBR113'.
ELSEIF /pws/zycbt154-codmod = 'I'.
v_programa = '/PWS/ZYCBR112'.
ELSEIF /pws/zycbt154-codmod = 'E'.
v_programa = '/PWS/ZYCBR003'.
ENDIF.
PERFORM carrega_log USING '/PWS/ZYCBT154'
'D'
v_programa
v_programa
/pws/zycbt154-nrcorresp.
* << Fim da inclusão
delete from /pws/zycbt154
where nrcorresp = itab_zycbe033-cpochv
and belnr_pr = itab_zycbt154-belnr_pr
and bukrs = itab_zycbe033-bukrs. "#EC CI_NOFIRST
delete i_final
where nrcorresp = itab_zycbe033-cpochv
and belnr_pr = itab_zycbt154-belnr_pr
and bukrs = itab_zycbe033-bukrs.
if itab_zycbt154-tpcontr(1) eq 'N' and
itab_zycbt154-codmodul = 'JU'.
update /pws/zycbt245 set belnr_prov = ' '
dt_prov = '00000000'
* >> Início da inclusão: FORM EXECUTA_FB08
WHERE nrseqc = itab_zycbt154-nrcorresp(8)
AND belnr_prov = itab_zycbt154-belnr_pr.
SELECT SINGLE * FROM /pws/zycbt245
* << Fim da inclusão
where nrseqc = itab_zycbt154-nrcorresp(8)
and belnr_prov = itab_zycbt154-belnr_pr.
* >> Início da inclusão: FORM EXECUTA_FB08
PERFORM carrega_log USING '/PWS/ZYCBT245'
'U'
'/PWS/ZYCBR003'
'/PWS/SAPMZYCB001'
/pws/zycbt245-nrseqc.
* << Fim da inclusão
endif.
...
...
or i_final-codmodul eq 'C'
or i_final-codmodul eq 'CI'
or i_final-codmodul eq 'PR'.
perform executa_fb08.
elseif i_final-codmodul eq 'T'.
perform estorna_exp_lc.
endif.
endloop.
modify /pws/zycbt002 from table itab_zycbt002.
modify /pws/zycbt001 from table itab_zycbt001.
* >> Início da inclusão: FORM ESTORNA_EXPORTACAO
LOOP AT itab_zycbt002 INTO /pws/zycbt002.
PERFORM carrega_log USING '/PWS/ZYCBT002'
'U'
'/PWS/ZYCBR003'
'/PWS/SAPMZYCB001'
/pws/zycbt002-nrseqc.
ENDLOOP.
LOOP AT itab_zycbt001 INTO /pws/zycbt001.
PERFORM carrega_log USING '/PWS/ZYCBT001'
'U'
'/PWS/ZYCBR003'
'/PWS/SAPMZYCB001'
/pws/zycbt001-nrseqc.
ENDLOOP.
* << Fim da inclusão
endform.
form estorna_financeiro.
loop at i_final where selk eq 'X'.
if i_final-codmodul eq 'JU'
or i_final-codmodul eq 'IR'
or i_final-codmodul(1) eq 'C'.
perform executa_fb08.
elseif i_final-codmodul eq 'T'.
read table itab_zycbt154 with key
nrcorresp = i_final-nrcorresp
...
...
belnr_cl = i_final-belnr_pr.
if sy-subrc eq 0.
select * from /pws/zycbt129
up to 2 rows
where belnr = itab_zycbt154-belnr_cl. "#EC CI_NOFIELD
endselect.
if sy-subrc eq 0.
if /pws/zycbt129-belnr_cl is initial.
perform executa_fbra_fb08.
if v_ok = 'X'.
* >> Início da inclusão: FORM ESTORNA_FINANCEIRO
SELECT * FROM /pws/zycbt154 INTO /pws/zycbt154
UP TO 1 ROWS
WHERE nrcorresp = itab_zycbe033-cpochv
AND belnr_cl = itab_zycbt154-belnr_cl
AND bukrs = itab_zycbe033-bukrs.
ENDSELECT.
PERFORM carrega_log USING '/PWS/ZYCBT154'
'D'
'/PWS/ZYCBR113'
'/PWS/ZYCBR113'
/pws/zycbt154-nrcorresp.
* << Fim da inclusão
delete from /pws/zycbt154
where nrcorresp = itab_zycbe033-cpochv
and belnr_cl = itab_zycbt154-belnr_cl
and bukrs = itab_zycbe033-bukrs. "#EC CI_NOFIRST
delete i_final
where nrcorresp = itab_zycbe033-cpochv
and belnr_pr = itab_zycbt154-belnr_cl
and bukrs = itab_zycbe033-bukrs.
/pws/zycbt129-belnr = /pws/zycbt129-belnr_lp.
/pws/zycbt129-ftransf = 'L'.
modify /pws/zycbt129.
* >> Início da inclusão: FORM ESTORNA_FINANCEIRO
PERFORM carrega_log USING '/PWS/ZYCBT129'
'U'
'/PWS/ZYCBR113'
'/PWS/SAPMZYCA111'
/pws/zycbt129-nrseq.
* << Fim da inclusão
endif.
else.
message i113 with i_final-belnr_pr.
endif.
else.
message i113 with i_final-belnr_pr.
endif.
endif.
endif.
endloop.
...
...
t_zycbt032 = itab_zycbt032
exceptions
campo_em_branco = 1
others = 2.
if sy-subrc = 0.
read table itab_zycbt032 with key tcode = 'FB08'
tabela = '/PWS/ZYCBT154'
cpochv = i_final-nrcorresp
tpmsg = 'S'.
if sy-subrc = 0.
* >> Início da inclusão: FORM EXECUTA_FBRA_FB08_PR
SELECT * FROM /pws/zycbt154 INTO /pws/zycbt154
UP TO 1 ROWS
WHERE nrcorresp = itab_zycbe033-cpochv
AND belnr_cl = itab_zycbt154-belnr_cl
AND bukrs = itab_zycbe033-bukrs.
ENDSELECT.
PERFORM carrega_log USING '/PWS/ZYCBT154'
'D'
'/PWS/ZYCBR003'
'/PWS/ZYCBR003'
/pws/zycbt154-nrcorresp.
* << Fim da inclusão
delete from /pws/zycbt154
where nrcorresp = itab_zycbe033-cpochv
and belnr_pr = itab_zycbt154-belnr_pr
and bukrs = itab_zycbe033-bukrs. "#EC CI_NOFIRST
delete i_final
where nrcorresp = itab_zycbe033-cpochv
and belnr_pr = itab_zycbt154-belnr_pr
and bukrs = itab_zycbe033-bukrs.
endif.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCBR113
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYGLR030
------------------------------------------------------------------------
Modificado símbolo de texto:
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 026
Texto: (1 caracteres)
"'"
Comprimento máximo: 1
------------------------------------------------------------------------
------------------------------------------------------------------------
------------------------------------------------------------------------
------------------------------------------------------------------------