CE PLUS - Nota 009825
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 11/02/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:23:55
Descrição da Nota: ROTINA MENSAL IMPORTAÇÃO / EXPORTAÇÃO / FINANCEIRO MENSAGENS DE RETORNO
Sintoma
Ao executar as rotinas mensais de importação, financeiro ou exportação, não esta retornando os erros
que ocorrem na contabilizações.
Solução
Incluir em todos os pontos de mensagens das tabelas /pws/zycbt032 e /pws/zycbt034 a impressão das
mesmas. Retirar as que são exibidas como pop-up.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09825 Data: 11/02/2010 Hora: 16:57:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09825
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00008
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01054 - 00001 - 6.0 - 00023 - ROTINA MENSAL COM TRANSFERÊNCIA DE LONGO PARA CURTO, GERAVA F-30
01309 - 00002 - 6.0 - 00023 - ROTINA MENSAL EXPORTAÇÃO CONTABILIZAÇÃO SEPARADA DE ACC E ACE = S
03450 - 00003 - 7.0 - 00001 - DESENVOLVIMENTO ADICIONAL - ESTORNO DA ROTINA MENSAL.
04196 - 00004 - 7.0 - 00002 - IRRF SOBRE COMISSÃO DE EMPRÉSTIMO CONTABILIZADO NO COMPLEMENTO DO
04930 - 00005 - 7.0 - 00003 - CODE INSPECTOR(ROTINA MENSAL)
05294 - 00006 - 7.0 - 00003 - ROTINA MENSAL EXPORTAÇÃO - PONTO DE EXIT RME001
05316 - 00007 - 7.0 - 00003 - ROTINA MENSAL EXPORTAÇÃO - SEPARAÇÃO ACC/ACE - CONTABILIZAÇÃO
05587 - 00008 - 7.0 - 00004 - VERIFICAÇÃO E CODE INSPECTOR
07450 - 00009 - 7.0 - 00007 - DA - ROTINA MENSAL DE ESTORNO PARA EXP, IMP, FINANC
07850 - 00010 - 7.0 - 00008 - ROTINA MENSAL FINANCEIRO - ANO FISCAL - AWKEY - TRANSFERENCIA LP/
09200 - 00011 - 8.0 - 00001 - ROTINA MENSAL EXPORTAÇÃO - DEDUZ JUROS, DATA PAGAMENTO EXTERIOR-L
----------------------------------------------------------------------------------------------------
ROTINA MENSAL IMPORTAÇÃO / EXPORTAÇÃO / FINANCEIRO MENSAGENS DE RETORNO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL IMPORTAÇÃO EXPORTAÇÃO FINANCEIRO MENSAGENS DE RETORNO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBI003
REPS /PWS/ZYCBI112
REPS /PWS/ZYCBI113
REPS /PWS/ZYCBR003
REPS /PWS/ZYCBR113
REPT /PWS/ZYCBR003
REPT /PWS/ZYCBR112
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI003
...
clear itab_contabil_aux.
move-corresponding itab_contabil to itab_contabil_aux.
collect itab_contabil_aux.
endloop.
itab_contabil[] = itab_contabil_aux[].
else.
sort itab_contabil.
delete adjacent duplicates from itab_contabil.
endif.
loop at itab_contabil.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
clear: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
refresh: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
* << Fim da inclusão
clear /pws/zycbt154.
if itab_contabil-vlrprov > 0 or itab_contabil-vlmetransf > 0.
if itab_contabil-tpcontab is initial.
concatenate 'JU'
itab_contabil-tpcontr itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
itab_contabil-waers itab_contabil-d_newko
itab_contabil-c_newko
into itab_zycbe033-cpochv.
itab_zycbe033-tcode = 'F-02'.
...
...
itab_contabil-d_newkoir itab_contabil-c_newkoir
into itab_zycbe033-cpochv.
endif.
itab_zycbe033-wrbtr = itab_contabil-vlirprov.
itab_zycbe033-d_newko = itab_contabil-d_newkoir.
itab_zycbe033-c_newko = itab_contabil-c_newkoir.
itab_zycbe033-blart = itab_contabil-blartir.
append itab_zycbe033.
endif.
loop at itab_zycbt034.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
message i016 with itab_zycbt034-descricao.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
concatenate text-066 itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-nrcorresp
itab_contabil-tpcontr text-141
itab_zycbt034-descricao text-142
into v_msg separated by space.
write: / v_msg.
* << Fim da inclusão
endloop.
if itab_zycbt034 is initial and
not itab_zycbe033[] is initial.
clear: itab_zyglt100.
refresh: itab_zyglt100.
v_repid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'E'
i_func = v_repid
...
...
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
exceptions
campo_em_branco = 1
others = 2.
endif.
endif.
if sy-subrc = 0.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
v_contabilizado = 'X'.
* << Fim da exclusão
select single name1 into (lfa1-name1)
from lfa1
where lifnr = itab_contabil-bco.
if sy-subrc eq 0.
itab_contabil-descbanc = lfa1-name1.
endif.
if itab_contabil-tpcontab is initial.
concatenate 'JU'
itab_contabil-tpcontr itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
...
...
itab_contabil-tpcontr itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
itab_contabil-waers itab_contabil-d_newko
itab_contabil-c_newko into v_cpochv.
read table itab_zycbt032 with key tcode = 'F-30'
tabela = '/PWS/ZYCBT002'
cpochv = v_cpochv
tpmsg = 'S'.
endif.
if sy-subrc = 0.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
v_contabilizado = 'X'.
* << Fim da inclusão
update /pws/zycbt001 set f_encerrado = 'C'
where f_encerrado = 'I'
and nrseqc = itab_contabil-nrcorresp(8).
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.
...
...
itab_zycbt032-belnr,
itab_zycbt032-msg.
endloop.
if not itab_contabil-tpcontab is initial.
read table itab_zycbt032 with key tcode = 'F-30'
tabela = '/PWS/ZYCBT002'
cpochv = v_cpochv.
if sy-subrc eq 0.
write: / text-070.
endif.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
endif.
* << Fim da inclusão
loop at itab_zycbt032 where tcode = 'F-30'
and tabela = '/PWS/ZYCBT002'
and cpochv = v_cpochv.
write: / itab_zycbt032-tpmsg,
itab_contabil-tpcontr,
itab_contabil-nrcorresp,
itab_contabil-bukrs,
itab_contabil-gsber,
itab_zycbt032-belnr,
itab_zycbt032-msg.
endloop.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
endif.
* << Fim da exclusão
if itab_contabil-tpcontab eq 'C'.
concatenate 'CI'
itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-waers
itab_contabil-d_newkoir itab_contabil-c_newkoir
into v_cpochv.
else.
concatenate 'IR' itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-waers
itab_contabil-d_newkoir itab_contabil-c_newkoir
...
...
itab_zycbt032-msg.
endloop.
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.
else.
loop at itab_zycbt034.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
concatenate itab_zycbt034-descricao '('
itab_contabil-tpcontr ')' into v_descricao.
message i016 with v_descricao.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
concatenate text-066 itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-nrcorresp
itab_contabil-tpcontr text-141
itab_zycbt034-descricao text-142
into v_msg separated by space.
write: / v_msg.
* << Fim da inclusão
endloop.
endif.
else.
message i061(/pws/zycbm) with text-060.
endif.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
clear: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
refresh: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
* << Fim da exclusão
endif.
endloop.
clear: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
refresh: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
endform.
form lancamento_estorno.
...
...
and cpochv = v_cpochv.
write: / itab_zycbt032-tpmsg,
itab_zycbt154-tpcontr,
itab_zycbt154-bco,
itab_zycbt154-bukrs,
itab_zycbt154-gsber,
itab_zycbt032-belnr,
itab_zycbt032-msg.
endloop.
endif.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
else.
loop at itab_zycbt034.
concatenate text-066 itab_zycbt154-bco itab_zycbt154-bukrs
itab_zycbt154-gsber itab_zycbt154-nrcorresp
itab_zycbt154-tpcontr text-141
itab_zycbt034-descricao text-142
into v_msg separated by space.
write: / v_msg.
endloop.
* << Fim da inclusão
endif.
endloop.
skip.
if sy-subrc ne 0.
update /pws/zycbt001 set f_encerrado = 'C'
where f_encerrado = 'I'. "#EC CI_NOFIELD
endif.
endform.
form processa_contabilizacao.
new-page line-size v_tamr line-count 58 with-title.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI112
...
bukrs = itab_contabil-bukrs
gsber = itab_contabil-gsber
waers = itab_contabil-waers
c_newko = itab_contabil-c_newko
d_newko = itab_contabil-d_newko
nrcorresp = ' '.
if sy-subrc = 0.
continue.
endif.
endif.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
perform clear_date_batch.
* << Fim da inclusão
itab_zycbe033-tcode = 'F-02'.
itab_zycbe033-tabela = '/PWS/ZYCBT113'.
if itab_contabil-tpcontab is initial.
concatenate 'JU' itab_contabil-codint itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
itab_contabil-waers itab_contabil-d_newko
itab_contabil-c_newko into itab_zycbe033-cpochv.
elseif itab_contabil-tpcontab eq 'C'.
concatenate 'C' itab_contabil-codint itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
...
...
itab_contabil-c_newkoir into itab_zycbe033-cpochv.
itab_zycbe033-wrbtr = itab_contabil-vlmeir.
itab_zycbe033-d_newko = itab_contabil-d_newkoir.
itab_zycbe033-c_newko = itab_contabil-c_newkoir.
itab_zycbe033-d_sgtxt = itab_contabil-d_sgtxtir.
itab_zycbe033-c_sgtxt = itab_contabil-c_sgtxtir.
itab_zycbe033-blart = itab_contabil-blartir.
append itab_zycbe033.
endif.
loop at itab_zycbt034.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
message i016 with itab_zycbt034-descricao.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
concatenate text-114 itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-nrseq
text-115 itab_zycbt034-descricao text-116
into v_msg separated by space.
write: / v_msg.
* << Fim da inclusão
endloop.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCM_TRANSACAO_F_02'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
campo_em_branco = 1
others = 2.
if sy-subrc = 0.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
v_contabilizado = 'X'.
* << Fim da exclusão
if itab_contabil-tpcontab is initial.
concatenate 'JU' itab_contabil-codint itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
itab_contabil-waers itab_contabil-d_newko
itab_contabil-c_newko into v_cpochv.
elseif itab_contabil-tpcontab eq 'C'.
concatenate 'C' itab_contabil-codint itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
itab_contabil-waers itab_contabil-d_newko
itab_contabil-c_newko into v_cpochv.
endif.
read table itab_zycbt032 with key tcode = 'F-02'
tabela = '/PWS/ZYCBT113'
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc = 0.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
v_contabilizado = 'X'.
* << Fim da inclusão
clear /pws/zycbt154.
move-corresponding itab_contabil to /pws/zycbt154.
if wa_zycbt007-fprovisao = 'C' or
itab_contabil-tpcontab = 'T' or
( wa_zycbt007-fprovisao ne 'C' and
p_agrup = 'X' ) .
/pws/zycbt154-nrcorresp = itab_contabil-nrseq.
/pws/zycbt154-tpcontr = itab_contabil-nrparcj+1(2).
else.
clear: /pws/zycbt154-nrcorresp, /pws/zycbt154-tpcontr.
...
...
endif.
concatenate 'IR' itab_contabil-codint itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
itab_contabil-waers itab_contabil-d_newkoir
itab_contabil-c_newkoir into v_cpochv.
read table itab_zycbt032 with key tcode = 'F-02'
tabela = '/PWS/ZYCBT113'
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc = 0.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
v_contabilizado = 'X'.
* << Fim da inclusão
move-corresponding itab_contabil to /pws/zycbt154.
if wa_zycbt007-fprovisao = 'C' or
( wa_zycbt007-fprovisao ne 'C' and
p_agrup = 'X' ).
/pws/zycbt154-nrcorresp = itab_contabil-nrseq.
/pws/zycbt154-tpcontr = itab_contabil-nrparcj+1(2).
else.
clear: /pws/zycbt154-nrcorresp, /pws/zycbt154-tpcontr.
endif.
/pws/zycbt154-vlme = itab_contabil-vlmeir.
...
...
itab_zycbt032-msg.
endloop.
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.
else.
loop at itab_zycbt034.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
v_descricao = itab_zycbt034-descricao.
message i016 with v_descricao.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
concatenate text-114 itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-nrseq
text-115 itab_zycbt034-descricao text-116
into v_msg separated by space.
write: / v_msg.
* << Fim da inclusão
endloop.
endif.
endif.
clear: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
refresh: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
endloop.
...
...
if itab_zycbt154[] is initial.
select * from /pws/zycbt154
into table itab_zycbt154
where codmod eq 'I'
and codint in s_codint
and bukrs eq s_bukrs
and codmodul <> 'T'
and nrcorresp = ' '.
endif.
loop at itab_zycbt154.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
perform clear_date_batch.
* << Fim da inclusão
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = '/pws/zycbt154'.
concatenate itab_zycbt154-codmodul
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 itab_zycbe033-cpochv.
itab_zycbe033-belnr = itab_zycbt154-belnr_pr.
itab_zycbe033-bukrs = itab_zycbt154-bukrs.
...
...
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.
endloop.
* >> Início da exclusão: FORM LANCAMENTO_ESTORNO
else.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
endif.
* << Fim da inclusão
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-belnr,
itab_zycbt032-msg.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
endloop.
else.
loop at itab_zycbt034.
concatenate text-114 itab_zycbt154-bco itab_zycbt154-bukrs
itab_zycbt154-gsber itab_zycbt154-nrcorresp
text-115 itab_zycbt034-descricao text-116
into v_msg separated by space.
write: / v_msg.
* << Fim da inclusão
endloop.
* >> Início da exclusão: FORM LANCAMENTO_ESTORNO
endif.
* << Fim da exclusão
endif.
clear: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
refresh: itab_zycbe033,
itab_zycbt032,
...
...
'WAERS'
text-035.
itab_zycbe033-waers = itab_contabil-waers.
itab_zycbe033-kursf = itab_contabil-kursf.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-103.
itab_zycbe033-blart = wa_zycbt011-blart.
append itab_zycbe033.
loop at itab_zycbt034.
* >> Início da exclusão: FORM CLEARING_TRANSFERENCIA
message i061 with itab_zycbt034-descricao.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA
concatenate text-114 itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-nrseq
text-115 itab_zycbt034-descricao text-116
into v_msg separated by space.
write: / v_msg.
* << Fim da inclusão
endloop.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCM_TRANSACAO_F_51T'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
...
...
write: / itab_zycbt032-tpmsg,
itab_contabil-nrseq,
itab_contabil-codint,
itab_contabil-bukrs,
itab_contabil-gsber,
v_msg.
endloop.
endif.
else.
loop at itab_zycbt034.
* >> Início da exclusão: FORM CLEARING_TRANSFERENCIA
message i061 with itab_zycbt034-descricao.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA
concatenate text-114 itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-nrseq
text-115 itab_zycbt034-descricao text-116
into v_msg separated by space.
write: / v_msg.
* << Fim da inclusão
endloop.
endif.
endif.
endform.
form get_parameters_f-51t.
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = '001T'
and codmod = 'I' "#EC *
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI113
...
read table itab_zyglt316 index 1.
itab_relat-c_newko = itab_zyglt316-konth.
endif.
endform.
form lancamento_provisao.
data:
v_tvlmej like /pws/zycbt128-vlme,
v_tvlmeir like /pws/zycbt128-vlme.
loop at itab_contabil where aux <> 'X'
and tpcontab <> 'T'.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
perform clear_date_batch.
* << Fim da inclusão
clear: v_tvlmej,
v_tvlmeir.
if itab_contabil-tpcontab = ' '.
loop at itab_relat where nrseq = itab_contabil-nrcorresp
and tpcontab = ' '
and nrparcj = itab_contabil-nrparcj.
v_tvlmej = v_tvlmej + itab_relat-vlmej.
v_tvlmeir = v_tvlmeir + itab_relat-vlmeir.
endloop.
elseif itab_contabil-tpcontab = 'C'.
...
...
not itab_contabil-c_newkoir is initial.
itab_zycbe033-d_newko = itab_contabil-d_newkoir.
itab_zycbe033-c_newko = itab_contabil-c_newkoir.
itab_zycbe033-d_sgtxt = itab_contabil-d_sgtxtir.
itab_zycbe033-c_sgtxt = itab_contabil-c_sgtxtir.
itab_zycbe033-blart = itab_contabil-blartir.
append itab_zycbe033.
endif.
endif.
loop at itab_zycbt034.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
message i016 with itab_zycbt034-descricao.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
concatenate text-089 itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-nrcorresp
text-090 itab_zycbt034-descricao text-091
into t_lista separated by space.
append t_lista. clear t_lista.
* << Fim da inclusão
endloop.
if itab_zycbe033[] is initial.
message i061(/pws/zycbm) with text-061 text-062.
elseif itab_zycbt034[] is initial.
perform executa_trans_f_02.
endif.
endloop.
loop at itab_contabil where aux <> 'X' and tpcontab = 'T'.
perform clearing_transferencia.
endloop.
endform.
form lancamento_estorno.
data: v_monat like t001b-frpe1.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO
perform clear_date_batch.
* << Fim da inclusão
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = '/PWS/ZYCBT154'.
concatenate itab_zycbt154-codmodul itab_zycbt154-tpcontr
itab_zycbt154-bco itab_zycbt154-dtcont
itab_zycbt154-bukrs itab_zycbt154-gsber
itab_zycbt154-waers itab_zycbt154-d_newko
itab_zycbt154-c_newko
into itab_zycbe033-cpochv.
itab_zycbe033-belnr = itab_zycbt154-belnr_pr.
itab_zycbe033-bukrs = itab_zycbt154-bukrs.
...
...
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
others = 8.
if sy-subrc eq 0.
else.
endif.
endform.
form lancamento_provisao_estorno_me.
loop at itab_contabil_estorno where aux <> 'X'
and tpcontab <> 'T'.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_ESTORNO_ME
perform clear_date_batch.
* << Fim da inclusão
if itab_contabil_estorno-vlme <= 0.
continue.
endif.
read table itab_zycbt154 with key codint = 'F'
waers = itab_contabil_estorno-waers
gsber = itab_contabil_estorno-gsber
c_newko = itab_contabil_estorno-c_newko
d_newko = itab_contabil_estorno-d_newko
bco = itab_contabil_estorno-bco.
if sy-subrc eq 0.
...
...
not itab_contabil_estorno-c_newkoir is initial.
itab_zycbe033-d_newko = itab_contabil_estorno-d_newkoir.
itab_zycbe033-c_newko = itab_contabil_estorno-c_newkoir.
itab_zycbe033-d_sgtxt = itab_contabil_estorno-d_sgtxtir.
itab_zycbe033-c_sgtxt = itab_contabil_estorno-c_sgtxtir.
itab_zycbe033-blart = itab_contabil_estorno-blartir.
append itab_zycbe033.
endif.
endif.
loop at itab_zycbt034.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_ESTORNO_ME
message i016 with itab_zycbt034-descricao.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_ESTORNO_ME
concatenate text-089 itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-nrcorresp
text-090 itab_zycbt034-descricao text-091
into t_lista separated by space.
append t_lista. clear t_lista.
* << Fim da inclusão
endloop.
if itab_zycbe033[] is initial.
message i061(/pws/zycbm) with text-061 text-062.
elseif itab_zycbt034[] is initial.
perform executa_trans_f_02_estorno_mes.
endif.
endloop.
loop at itab_contabil_estorno where aux <> 'X' and tpcontab = 'T'.
perform clearing_transferencia_estorno.
endloop.
...
...
itab_zycbe033-kursf = itab_contabil-kursf.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-117.
itab_zycbe033-blart = wa_zycbt011-blart.
perform verifica_pais_filial using itab_zycbt128-bukrs
itab_zycbt128-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt128-j_1bbranch.
append itab_zycbe033.
loop at itab_zycbt034.
* >> Início da exclusão: FORM CLEARING_TRANSFERENCIA
message i061 with itab_zycbt034-descricao.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA
concatenate text-089 itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-nrcorresp
text-090 itab_zycbt034-descricao text-091
into v_msg separated by space.
write: / v_msg.
* << Fim da inclusão
endloop.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCA_TRANSACAO_F_51T'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
...
...
into v_msg separated by space.
write: / itab_zycbt032-tpmsg,
itab_contabil-nrcorresp,
itab_contabil-bukrs,
itab_contabil-gsber,
v_msg.
endloop.
endif.
else.
loop at itab_zycbt034.
* >> Início da exclusão: FORM CLEARING_TRANSFERENCIA
message i061 with itab_zycbt034-descricao.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA
concatenate text-089 itab_contabil-bco itab_contabil-bukrs
itab_contabil-gsber itab_contabil-nrcorresp
text-090 itab_zycbt034-descricao text-091
into v_msg separated by space.
write: / v_msg.
* << Fim da inclusão
endloop.
endif.
endif.
endform.
form get_parameters_f-51t.
clear wa_zycbt011.
select * from /pws/zycbt011
up to 1 rows
into wa_zycbt011
where codeven = '001T'
...
...
itab_zycbe033-kursf = itab_contabil_estorno-kursf.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-117.
itab_zycbe033-blart = wa_zycbt011-blart.
perform verifica_pais_filial using itab_zycbt128-bukrs
itab_zycbt128-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt128-j_1bbranch.
append itab_zycbe033.
loop at itab_zycbt034.
* >> Início da exclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
message i061 with itab_zycbt034-descricao.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
concatenate text-089 itab_contabil_estorno-bco
itab_contabil_estorno-bukrs itab_contabil_estorno-gsber
itab_contabil_estorno-nrcorresp text-090
itab_zycbt034-descricao text-091
into v_msg separated by space.
write: / v_msg.
* << Fim da inclusão
endloop.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCA_TRANSACAO_F_51T'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
...
...
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.
loop at itab_zycbt032 where tcode = text-100
and tabela = text-101
* >> Início da exclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
and cpochv = itab_contabil_estorno-nrcorresp
.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
and cpochv = itab_contabil_estorno-nrcorresp.
* << 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,
v_msg.
endloop.
endif.
else.
loop at itab_zycbt034.
* >> Início da exclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
message i061 with itab_zycbt034-descricao.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
concatenate text-089 itab_contabil_estorno-bco
itab_contabil_estorno-bukrs itab_contabil_estorno-gsber
itab_contabil_estorno-nrcorresp text-090
itab_zycbt034-descricao text-091
into v_msg separated by space.
write: / v_msg.
* << Fim da inclusão
endloop.
endif.
endif.
endform.
form quebra using value(wa_itab_relat) like wa_itab_relat.
if not wa_itab_relat-tpcontab = 'T'.
uline.
if wa_zycbt007-fprovisao = 'C'.
clear: v_totir, v_totju, v_totpir, v_totpju, v_totc, v_totpc.
sort itab_zycbt154 by nrcorresp codmodul dtcont vlme.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
v_programa type sy-cprog,
v_defator like tcurr-ffact,
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.
* >> Início da inclusão:
data: v_msg(150) type c.
* << Fim da inclusão
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.
selection-screen end of block b2.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR113
...
concatenate itab_zycbt032-tpmsg
itab_zycbt154-bco
itab_zycbt154-bukrs
itab_zycbt154-gsber
itab_zycbt032-belnr
itab_zycbt032-msg into t_lista
separated by space.
append t_lista. clear t_lista.
endloop.
endif.
* >> Início da inclusão: FORM TRANSACAO_ESTORNO
else.
loop at itab_zycbt034.
concatenate text-089 itab_zycbt154-bco
itab_zycbt154-bukrs itab_zycbt154-gsber
itab_zycbt154-nrcorresp text-090
itab_zycbt034-descricao text-091
into v_msg separated by space.
write: / v_msg.
endloop.
* << Fim da inclusão
endif.
clear: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
refresh: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
endform.
form executa_trans_f_02.
call function '/PWS/ZYCA_TRANSACAO_F_02'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
campo_em_branco = 1
others = 2.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02
if sy-subrc = 0.
if itab_contabil-tpcontab = ' '.
concatenate 'JU' itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
itab_contabil-waers itab_contabil-d_newko
itab_contabil-c_newko itab_contabil-nrcorresp
into v_cpochv.
elseif itab_contabil-tpcontab = 'C'.
concatenate 'C' itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
itab_contabil-waers itab_contabil-d_newko
itab_contabil-c_newko itab_contabil-nrcorresp
into v_cpochv.
endif.
read table itab_zycbt032 with key tcode = 'F-02'
tabela = '/PWS/ZYCBT129'
cpochv = v_cpochv
tpmsg = 'S'.
* << Fim da inclusão
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'.
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'.
endloop.
* >> Início da exclusão: FORM EXECUTA_TRANS_F_02
endif.
if itab_contabil-tpcontab = ' '.
concatenate 'JU' itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
itab_contabil-waers itab_contabil-d_newko
itab_contabil-c_newko itab_contabil-nrcorresp
into v_cpochv.
elseif itab_contabil-tpcontab = 'C'.
concatenate 'C' itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
itab_contabil-waers itab_contabil-d_newko
itab_contabil-c_newko itab_contabil-nrcorresp
into v_cpochv.
* << Fim da exclusão
endif.
* >> Início da exclusão: FORM EXECUTA_TRANS_F_02
read table itab_zycbt032 with key tcode = 'F-02'
tabela = '/PWS/ZYCBT129'
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc = 0.
* << Fim da exclusão
move-corresponding itab_contabil to /pws/zycbt154.
/pws/zycbt154-vlme = itab_contabil-vlrprov.
...
...
insert into /pws/zycbt154 values /pws/zycbt154.
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.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02
endif.
* << Fim da inclusão
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.
append t_lista. clear t_lista.
endloop.
* >> Início da exclusão: FORM EXECUTA_TRANS_F_02
endif.
* << Fim da exclusão
concatenate 'IR' itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
itab_contabil-waers itab_contabil-d_newkoir
itab_contabil-c_newkoir itab_contabil-nrcorresp
into v_cpochv.
read table itab_zycbt032 with key tcode = 'F-02'
tabela = '/PWS/ZYCBT129'
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc = 0.
...
...
call function '/PWS/ZYCA_TRANSACAO_F_02'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
campo_em_branco = 1
others = 2.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02_ESTORNO_MES
if sy-subrc = 0.
if itab_contabil_estorno-tpcontab = ' '.
concatenate 'JU' itab_contabil_estorno-bco
itab_contabil_estorno-bukrs itab_contabil_estorno-gsber
itab_contabil_estorno-waers itab_contabil_estorno-d_newko
itab_contabil_estorno-c_newko
into v_cpochv.
elseif itab_contabil_estorno-tpcontab = 'C'.
concatenate 'C' itab_contabil_estorno-bco
itab_contabil_estorno-bukrs itab_contabil_estorno-gsber
itab_contabil_estorno-waers itab_contabil_estorno-d_newko
itab_contabil_estorno-c_newko
into v_cpochv.
endif.
read table itab_zycbt032 with key tcode = 'F-02'
tabela = '/PWS/ZYCBT129'
cpochv = v_cpochv
tpmsg = 'S'.
* << Fim da inclusão
if sy-subrc = 0.
v_contabilizado = 'X'.
loop at itab_relat where bco = itab_contabil_estorno-bco
and bukrs = itab_contabil_estorno-bukrs
and gsber = itab_contabil_estorno-gsber
and waers = itab_contabil_estorno-waers
and c_newko = itab_contabil_estorno-c_newko
and d_newko = itab_contabil_estorno-d_newko
and f_encerrado = 'I'.
read table itab_contabil_estorno with key
nrcorresp = itab_relat-nrseq
* >> Início da exclusão: FORM EXECUTA_TRANS_F_02_ESTORNO_MES
tpcontab = itab_relat-tpcontab.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02_ESTORNO_MES
tpcontab = itab_relat-tpcontab
.
* << Fim da inclusão
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'.
elseif itab_contabil_estorno = 'C'.
update /pws/zycbt129 set vlrprov = itab_contabil_estorno-vlme
where nrseq = itab_relat-nrseq
and nrparc = itab_relat-nrparcj
and tpparc = 'C'.
endif.
endif.
endloop.
* >> Início da exclusão: FORM EXECUTA_TRANS_F_02_ESTORNO_MES
if itab_contabil_estorno-tpcontab = ' '.
concatenate 'JU' itab_contabil_estorno-bco
itab_contabil_estorno-bukrs itab_contabil_estorno-gsber
itab_contabil_estorno-waers itab_contabil_estorno-d_newko
itab_contabil_estorno-c_newko
into v_cpochv.
elseif itab_contabil_estorno-tpcontab = 'C'.
concatenate 'C' itab_contabil_estorno-bco
itab_contabil_estorno-bukrs itab_contabil_estorno-gsber
itab_contabil_estorno-waers itab_contabil_estorno-d_newko
itab_contabil_estorno-c_newko
into v_cpochv.
endif.
read table itab_zycbt032 with key tcode = 'F-02'
tabela = '/PWS/ZYCBT129'
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc = 0.
* << Fim da exclusão
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.
...
...
into v_cpochv.
read table itab_zycbt032 with key tcode = 'F-02'
tabela = '/PWS/ZYCBT129'
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc = 0.
move-corresponding itab_contabil_estorno to /pws/zycbt154.
/pws/zycbt154-vlme = itab_contabil_estorno-vlrprovir.
/pws/zycbt154-codmod = 'F'.
/pws/zycbt154-codmodul = 'IR'.
* >> Início da inclusão: FORM EXECUTA_TRANS_F_02_ESTORNO_MES
/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.
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.
endloop.
concatenate 'CI' itab_contabil_estorno-bco
itab_contabil_estorno-bukrs itab_contabil_estorno-gsber
itab_contabil_estorno-waers itab_contabil_estorno-d_newkoir
itab_contabil_estorno-c_newkoir
into v_cpochv.
read table itab_zycbt032 with key tcode = 'F-02'
tabela = '/PWS/ZYCBT129'
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc = 0.
move-corresponding itab_contabil_estorno to /pws/zycbt154.
/pws/zycbt154-vlme = itab_contabil_estorno-vlrprovir.
/pws/zycbt154-codmod = 'F'.
/pws/zycbt154-codmodul = 'CI'.
* << Fim da inclusão
/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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCBR003
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 141
Texto: (5 caracteres)
"Campo"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 142
Texto: (50 caracteres)
"não esta preenchido.Lançamento não será realizado."
Comprimento máximo: 50
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCBR112
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 114
Texto: (1 caracteres)
"E"
Comprimento máximo: 1
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 115
Texto: (5 caracteres)
"Campo"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 116
Texto: (50 caracteres)
"não esta preenchido.Lançamento não será realizado."
Comprimento máximo: 50