CE PLUS - Nota 011313
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Financiamento
Data/Hora da Publicação: 12/07/2011 00:00:00
Data/Hora Última Alteração: 15/07/2011 09:47:40
Descrição da Nota: COMPLEMENTO BOLETO, CONTABILIZAÇÃO F-43 F-63,EMPRÉSTIMO E FINANCIAMENTO
Sintoma
Melhoria no produto para incluir a contabilização dos processos de Pagamento do Financiamento de
Importação e Empréstimo Financeiro pela F-43 e atualização para que seja utilizado os parâmetros da
/PWS/ZYGLT321 em vez da /PWS/ZYCBT013(antiga) para Financiamento de Importação, Empréstimo e
Pagamento Antecipado (complemento do boleto).
Solução
Realizada a Melhoria no produto para incluir a contabilização dos processos de Pagamento do
Financiamento de Importação e Empréstimo Financeiro pela F-43 e atualização para que seja utilizado
os parâmetros da /PWS/ZYGLT321 para Financiamento de Importação, Empréstimo e Pagamento Antecipado
(complemento do boleto).
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11313 Data: 12/07/2011 Hora: 09:09:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11313
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00008
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04196 - 00001 - 7.0 - 00002 - IRRF SOBRE COMISSÃO DE EMPRÉSTIMO CONTABILIZADO NO COMPLEMENTO DO
09279 - 00002 - 8.0 - 00001 - REMESSA FINANCEIRA CONTAB.PELA F-43 PARA PAGTO.EM COMPETENCIA
11317 - 00003 - 8.0 - 00008 - AJUSTE NO CALL TRANSACTION PARA FBRA
----------------------------------------------------------------------------------------------------
COMPLEMENTO BOLETO, CONTABILIZAÇÃO F-43 F-63,EMPRÉSTIMO E FINANCIAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO BOLETO, CONTABILIZAÇÃO,F-43 F-63,EMPRÉSTIMO, FINANCIAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DTEL /PWS/ZYGLL1426
DTEL /PWS/ZYGLL1427
DYNP /PWS/SAPMZYGL007 0133
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCB110F01
REPS /PWS/MZYCM110F01
REPS /PWS/MZYGL007I01
REPS /PWS/MZYGL007O01
REPS /PWS/MZYGL007TOP
REPT /PWS/SAPMZYCB110
TABD /PWS/ZYGLT009
----------------------------------------------------------------------------------------------------
********************************************************
* *
* SOLICITAR DOWNLOAD DA TELA - /PWS/SAPMZYGL007 - 0133 *
* *
********************************************************
----------------------------------------------------------------------------------------------------
**********************************************
* Elemento de dados incluído: /PWS/ZYGLL1426 *
**********************************************
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (51 caracteres), idioma: PT
"GL - Transação para contabilização de Financiamento"
Categoria de dados: Domínio
Domínio: /PWS/ZYGLD595
ID parâmetro:
Nome componente default:
Documentar modificações: NÃO
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (10 caracteres), idioma: PT
"Cont.Finan"
Comprimento máximo do denominador médio: 20
Denominador médio incluído (20 caracteres), idioma: PT
"Contab.Financiamento"
Comprimento máximo do denominador longo: 37
Denominador longo incluído (37 caracteres), idioma: PT
"Transação p/ Contab. de Financiamento"
Comprimento máximo do título: 46
Título incluído (46 caracteres), idioma: PT
"Transação para Contabilização de Financiamento"
----------------------------------------------------------------------------------------------------
**********************************************
* Elemento de dados incluído: /PWS/ZYGLL1427 *
**********************************************
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (48 caracteres), idioma: PT
"GL - Transação para contabilização de Empréstimo"
Categoria de dados: Domínio
Domínio: /PWS/ZYGLD595
ID parâmetro:
Nome componente default:
Documentar modificações: NÃO
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (10 caracteres), idioma: PT
"Cont.Empre"
Comprimento máximo do denominador médio: 17
Denominador médio incluído (17 caracteres), idioma: PT
"Contab.Empréstimo"
Comprimento máximo do denominador longo: 34
Denominador longo incluído (34 caracteres), idioma: PT
"Transação p/ Contab. de Empréstimo"
Comprimento máximo do título: 43
Título incluído (43 caracteres), idioma: PT
"Transação para Contabilização de Empréstimo"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
127.
endloop.
erro_bi = 'X'.
endif.
endif.
else.
erro_bi = 'X'.
endif.
endform.
form fill_date_f-63_ce.
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
data: v_aux_index type sy-index.
v_aux_index = sy-index.
* << Fim da inclusão
if /pws/zycbe145-cod_fech ne 'TR'.
perform get_parameters_128_129e031.
else.
perform get_parameters_tr_ce.
itab_zycbe033-newbs1 = '31'.
itab_zycbe033-newbs = '40'.
endif.
itab_zycbe033-mandt = sy-mandt.
* >> Início da exclusão: FORM FILL_DATE_F-63_CE
itab_zycbe033-tcode = 'F-63'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
itab_zycbe033-tcode = v_trans.
* << Fim da inclusão
itab_zycbe033-tabela = '/PWS/ZYCBT031'.
itab_zycbe033-cpochv = /pws/zycbe031-nrseq.
if sy-index ne 2.
itab_zycbe033-budat = /pws/zycbe031-dtcredpr.
else.
itab_zycbe033-budat = /pws/zycbe031-dtcredir.
endif.
if not /pws/zycbe031-contabreal is initial.
itab_zycbe033-contabreal = 'X'.
endif.
itab_zycbe033-bcorec = /pws/zycbe031-bco.
if wa_zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
else.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-d_valut = itab_zycbe033-budat.
endif.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
* >> Início da exclusão: FORM FILL_DATE_F-63_CE
loop at itab_zycbt013.
case itab_zycbt013-cpor3.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
clear itab_zyglt321.
refresh itab_zyglt321.
select *
from /pws/zyglt321
into table itab_zyglt321
where ktosl eq 'EPR' and
codeven eq v_evento.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
case itab_zyglt321-cpocb.
when 'NREMPREST'.
itab_zycbe033-d_sgtxt = wa_zycbt128-nremprest.
itab_zycbe033-c_sgtxt = wa_zycbt128-nremprest.
when 'NRSEQ'.
itab_zycbe033-d_sgtxt = wa_zycbt128-nrseq.
itab_zycbe033-c_sgtxt = wa_zycbt128-nrseq.
endcase.
when 'VALUT'.
case itab_zyglt321-cpocb.
when 'DTCRED'.
itab_zycbe033-d_valut = wa_zycbt128-dtcred.
itab_zycbe033-c_valut = wa_zycbt128-dtcred.
when 'DTCREDPR'.
if v_aux_index ne 2.
itab_zycbe033-d_valut = /pws/zycbe031-dtcredpr.
itab_zycbe033-c_valut = /pws/zycbe031-dtcredpr.
else.
itab_zycbe033-d_valut = /pws/zycbe031-dtcredir.
itab_zycbe033-c_valut = /pws/zycbe031-dtcredir.
endif.
when 'DTDESEM'.
itab_zycbe033-d_valut = wa_zycbt128-dtdesem.
itab_zycbe033-c_valut = wa_zycbt128-dtdesem.
when 'DTINCL'.
itab_zycbe033-d_valut = wa_zycbt128-dtincl.
itab_zycbe033-c_valut = wa_zycbt128-dtincl.
endcase.
when 'ZFBDT'.
case itab_zyglt321-cpocb.
when 'DTCREDPR'.
if v_aux_index ne 2.
itab_zycbe033-zfbdt = /pws/zycbe031-dtcredpr.
else.
itab_zycbe033-zfbdt = /pws/zycbe031-dtcredir.
endif.
when 'DTFINAL'.
itab_zycbe033-zfbdt = wa_zycbt129-dtfinal.
endcase.
* << Fim da inclusão
when 'XBLNR'.
* >> Início da exclusão: FORM FILL_DATE_F-63_CE
case itab_zycbt013-cpocb.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
case itab_zyglt321-cpocb.
* << Fim da inclusão
when 'NREMPREST'.
itab_zycbe033-xblnr = wa_zycbt128-nremprest.
when 'NRSEQ'.
itab_zycbe033-xblnr = wa_zycbt128-nrseq.
endcase.
when 'ZUONR'.
* >> Início da exclusão: FORM FILL_DATE_F-63_CE
case itab_zycbt013-cpocb.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
case itab_zyglt321-cpocb.
* << Fim da inclusão
when 'NREMPREST'.
itab_zycbe033-d_zuonr = wa_zycbt128-nremprest.
itab_zycbe033-c_zuonr = wa_zycbt128-nremprest.
when 'NRSEQ'.
itab_zycbe033-d_zuonr = wa_zycbt128-nrseq.
itab_zycbe033-c_zuonr = wa_zycbt128-nrseq.
endcase.
endcase.
endloop.
* >> Início da exclusão: FORM FILL_DATE_F-63_CE
if wa_zycbt128-ftxt is initial.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
else.
itab_zycbe033-d_sgtxt = wa_zycbt128-txtinf.
itab_zycbe033-c_sgtxt = wa_zycbt128-txtinf.
endif.
* << Fim da exclusão
perform verify_null_field using wa_zycbt128-bukrs
'BUKRS'
text-010.
itab_zycbe033-bukrs = wa_zycbt128-bukrs.
perform verify_null_field using wa_zycbt128-waers
'WAERS'
text-011.
if /pws/zycbe031-contabreal is initial.
itab_zycbe033-waers = wa_zycbt128-waers.
else.
itab_zycbe033-waers = wa_zycbt007-waersb.
endif.
if sy-index ne 2.
if /pws/zycbe031-contabreal is initial.
itab_zycbe033-kursf = /pws/zycbe031-kursf.
endif.
* >> Início da exclusão: FORM FILL_DATE_F-63_CE
itab_zycbe033-zfbdt = /pws/zycbe031-dtcredpr.
* << Fim da exclusão
else.
if /pws/zycbe031-contabreal is initial.
if not /pws/zycbe031-taxair is initial.
itab_zycbe033-kursf = /pws/zycbe031-taxair.
else.
itab_zycbe033-kursf = /pws/zycbe031-kursf.
itab_zycbt032-msgv1 = text-041.
perform message_store
using c_classe_msg
c_tipo_msg_w
itab_zycbt032-msgv1
space
space
space
015.
endif.
endif.
* >> Início da exclusão: FORM FILL_DATE_F-63_CE
itab_zycbe033-zfbdt = /pws/zycbe031-dtcredir.
* << Fim da exclusão
endif.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
if sy-index ne 2.
perform verify_null_field using wa_zycbt129-vlme
'VLME'
text-013.
if /pws/zycbe031-contabreal is initial.
...
...
if sy-subrc eq 0.
if not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa)
changing e_subrc.
if e_subrc ne 0.
exit.
endif.
endif.
endif.
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
if v_trans = 'F-43'.
itab_zycbe033-newbs = '31'.
itab_zycbe033-c_newko = itab_zycbe033-agkon.
endif.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
itab_zycbt032-msgv2 = v_evento.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
itab_zycbt032-msgv2
space
space
127.
endloop.
if itab_zycbt034[] is initial.
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
if v_trans = 'F-63'.
* << Fim da inclusão
if /pws/zycbe145-cod_fech ne 'TR'.
call function '/PWS/ZYCA_TRANSACAO_F_63'
exporting
v_modo = v_modo_bi
v_predic = wa_zycbt007-fpredicao
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
...
...
call function '/PWS/ZYCA_TRANSACAO_F_63P'
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 FILL_DATE_F-63_CE
endif.
else.
call function '/PWS/ZYCB_TRANSACAO_F_43'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_debito = itab_zycbe035
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
* << Fim da inclusão
endif.
if sy-subrc = 0.
* >> Início da exclusão: FORM FILL_DATE_F-63_CE
read table itab_zycbt032 with key tcode = 'F-63'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
read table itab_zycbt032 with key tcode = v_trans
* << Fim da inclusão
tabela = '/PWS/ZYCBT031'
cpochv = /pws/zycbe031-nrseq
...
...
endif.
if wa_zycbt128-sldesem < 0.
wa_zycbt128-sldesem = 0.
endif.
modify /pws/zycbt128 from wa_zycbt128.
modify /pws/zycbt129 from wa_zycbt129.
endloop.
/pws/zycbe031-statusp = 'P'.
if sy-index = 2.
if wa_zycbt129-tpparc eq 'C'.
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
if v_trans = 'F-63'.
* << Fim da inclusão
itab_zycbt032-msgv1 = itab_zycbt032-belnr.
itab_zycbt032-msgv2 = text-260.
perform message_store
using c_classe_msg
c_tipo_msg_i
itab_zycbt032-msgv1
itab_zycbt032-msgv2
space
space
057.
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
else.
itab_zycbt032-msgv1 = text-098.
itab_zycbt032-msgv2 = itab_zycbt032-belnr.
itab_zycbt032-msgv3 = text-260.
itab_zycbt032-msgv4 = text-466.
perform message_store
using c_classe_msg
c_tipo_msg_i
itab_zycbt032-msgv1
itab_zycbt032-msgv2
itab_zycbt032-msgv3
itab_zycbt032-msgv4
061.
endif.
* << Fim da inclusão
else.
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
if v_trans = 'F-63'.
* << Fim da inclusão
itab_zycbt032-msgv1 = itab_zycbt032-belnr.
itab_zycbt032-msgv2 = text-020.
perform message_store
using c_classe_msg
c_tipo_msg_i
itab_zycbt032-msgv1
itab_zycbt032-msgv2
space
space
057.
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
else.
itab_zycbt032-msgv1 = text-098.
itab_zycbt032-msgv2 = itab_zycbt032-belnr.
itab_zycbt032-msgv3 = text-020.
itab_zycbt032-msgv4 = text-466.
perform message_store
using c_classe_msg
c_tipo_msg_i
itab_zycbt032-msgv1
itab_zycbt032-msgv2
itab_zycbt032-msgv3
itab_zycbt032-msgv4
061.
endif.
* << Fim da inclusão
endif.
/pws/zycbe031-belnr_pi = itab_zycbt032-belnr.
else.
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
if v_trans = 'F-63'.
* << Fim da inclusão
itab_zycbt032-msgv1 = itab_zycbt032-belnr.
itab_zycbt032-msgv2 = text-019.
perform message_store
using c_classe_msg
c_tipo_msg_i
itab_zycbt032-msgv1
itab_zycbt032-msgv2
space
space
057.
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
else.
itab_zycbt032-msgv1 = text-098.
itab_zycbt032-msgv2 = itab_zycbt032-belnr.
itab_zycbt032-msgv3 = text-019.
itab_zycbt032-msgv4 = text-466.
perform message_store
using c_classe_msg
c_tipo_msg_i
itab_zycbt032-msgv1
itab_zycbt032-msgv2
itab_zycbt032-msgv3
itab_zycbt032-msgv4
061.
endif.
* << Fim da inclusão
/pws/zycbe031-belnr_p = itab_zycbt032-belnr.
endif.
modify /pws/zycbt031 from /pws/zycbe031. "#EC ENHOK
perform documentos_ce.
select * from /pws/zycbt133
into table itab_zycbt133
where bukrs = /pws/zycbe031-bukrs.
read table itab_zycbt133
with key codmod = 'F'.
if sy-subrc = 0.
* >> Início da exclusão: FORM FILL_DATE_F-63_CE
if itab_zycbt133-vaprov = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
if v_trans = 'F-43'.
/pws/zycbe031-statusp = 'C'.
modify /pws/zycbt031 from /pws/zycbe031. "#EC ENHOK
endif.
if itab_zycbt133-vaprov = 'X' and v_trans ne 'F-43'.
* << Fim da inclusão
perform executa_aprovacao.
endif.
endif.
* >> Início da exclusão: FORM FILL_DATE_F-63_CE
if itab_zycbt133-vaprov = 'X' and
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
if ( itab_zycbt133-vaprov = 'X' and
itab_zycbt133-vclear = 'X' and not
/pws/zycbe145-cod_fech eq 'TR' ) or
( v_trans = 'F-43' and
* << Fim da inclusão
itab_zycbt133-vclear = 'X' and not
* >> Início da exclusão: FORM FILL_DATE_F-63_CE
/pws/zycbe145-cod_fech eq 'TR'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
/pws/zycbe145-cod_fech eq 'TR' ).
* << Fim da inclusão
perform executa_clearing_emp.
endif.
else.
...
...
elseif /pws/zycbe031-tpparc = 'P'.
v_codeven = '005P'.
elseif /pws/zycbe031-tpparc = 'C'.
v_codeven = '008P'.
endif.
endif.
clear wa_zycbt007.
select single * from /pws/zycbt007
into wa_zycbt007
where bukrs eq /pws/zycbe031-bukrs.
* >> Início da exclusão: FORM GET_PARAMETERS_128_129E031
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = '/PWS/ZYCBT128'.
refresh: itab_zycbt012.
select * from /pws/zycbt012
into table itab_zycbt012
where codeven = v_codeven
and codmod = 'F'.
* << Fim da exclusão
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
and codmod = 'F'
and bukrs = /pws/zycbe031-bukrs.
select single kurst
from /pws/zycbt009
into /pws/zycbt009-kurst
where codpadr = wa_zycbt011-ctmoed.
...
...
endform.
form selecionar_ce.
select single * from /pws/zycbt128
into wa_zycbt128
where nrseq eq /pws/zycbe031-nrcorresp.
select single * from /pws/zycbt129
into wa_zycbt129
where nrseq eq /pws/zycbe031-nrcorresp
and nrparc eq /pws/zycbe031-nrparc
and tpparc eq /pws/zycbe031-tpparc.
* >> Início da inclusão: FORM SELECIONAR_CE
select single * from /pws/zyglt009
where bukrs eq /pws/zycbe031-bukrs.
clear v_trans.
if /pws/zyglt009-transacaoemp = 'F-43'.
v_trans = 'F-43'.
else.
v_trans = 'F-63'.
endif.
* << Fim da inclusão
loop at itab_zycbt031_tc.
select single * from /pws/zycbt128 into /pws/zycbt128
where nrseq eq itab_zycbt031_tc-nrcorresp.
select single * from /pws/zycbt129 into /pws/zycbt129
where nrseq eq itab_zycbt031_tc-nrcorresp
and nrparc eq itab_zycbt031_tc-nrparc
and tpparc eq itab_zycbt031_tc-tpparc.
if /pws/zycbe031-tpparc = 'P'.
move: /pws/zycbt129-nrseq to itab_documentos-nrseq,
/pws/zycbt129-belnr to itab_documentos-belnr,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
elseif /pws/zycbe031-tpparc = 'P'.
v_codeven = '005P'.
elseif /pws/zycbe031-tpparc = 'C'.
v_codeven = '008P'.
endif.
endif.
clear wa_zycbt007.
select single * from /pws/zycbt007
into wa_zycbt007
where bukrs eq /pws/zycbe031-bukrs.
* >> Início da exclusão: FORM GET_PARAMETERS_TR_CE
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = '/PWS/ZYCBT128'.
refresh: itab_zycbt012.
select * from /pws/zycbt012
into table itab_zycbt012
where codeven = v_codeven
and codmod = 'F'.
* << Fim da exclusão
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
and codmod = 'F'
and bukrs = /pws/zycbe031-bukrs.
if sy-index ne 2.
itab_zycbe033-agkon = /pws/zycbe031-bcooper.
elseif /pws/zycbe031-tpparc eq 'J' .
if /pws/zycbe031-pagtoirrf = 'BCO'.
...
...
endif.
else.
read table itab_zyglt316 index 1.
move itab_zyglt316-konts to itab_zycbe033-d_newko.
itab_contas-conta = itab_zyglt316-konts.
append itab_contas.
endif.
perform verify_null_field using itab_zycbe033-d_newko
'NEWKO'
text-016.
* >> Início da inclusão: FORM GET_PARAMETERS_TR_CE
v_evento = v_codeven.
* << Fim da inclusão
endform.
form get_parameters_tr_ed.
perform clear_date_batch.
clear wa_zycbt007.
select single * from /pws/zycbt007
into wa_zycbt007
where bukrs eq /pws/zycbe031-bukrs.
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
016.
endloop.
endif.
else.
erro_bi = 'X'.
endif.
perform clear_date_batch.
endform.
form fill_date_f-63_if.
data v_codeven type /pws/zycbt011-codeven.
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
if /pws/zycbe145-cod_fech ne 'TR'.
perform get_parameters_112_113e031.
else.
perform get_parameters_tr_if.
endif.
* << Fim da inclusão
clear itab_zyglt321.
refresh itab_zyglt321.
* >> Início da exclusão: FORM FILL_DATE_F-63_IF
concatenate '001' wa_zycbt112-codint into v_codeven.
* << Fim da exclusão
select *
from /pws/zyglt321
into table itab_zyglt321
where ktosl eq 'FIN' and
* >> Início da exclusão: FORM FILL_DATE_F-63_IF
codeven eq v_codeven.
if /pws/zycbe145-cod_fech ne 'TR'.
perform get_parameters_112_113e031.
else.
perform get_parameters_tr_if.
endif.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
codeven eq v_evento.
* << Fim da inclusão
itab_zycbe033-mandt = sy-mandt.
* >> Início da exclusão: FORM FILL_DATE_F-63_IF
itab_zycbe033-tcode = 'F-63'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
itab_zycbe033-tcode = v_trans.
* << Fim da inclusão
itab_zycbe033-tabela = '/PWS/ZYCBT031'.
itab_zycbe033-cpochv = /pws/zycbe031-nrseq.
if sy-index ne 2.
...
...
itab_zycbe033-d_valut = sy-datum.
endif.
else.
itab_zycbe033-bldat = /pws/zycbe031-dtboleto.
if /pws/zycbe031-mdcorresp ne 'IF' and
/pws/zycbe031-tpparc ne 'P'.
itab_zycbe033-d_valut = itab_zycbe033-budat.
endif.
endif.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
* >> Início da exclusão: FORM FILL_DATE_F-63_IF
if /pws/zycbe031-mdcorresp eq 'IF' and
/pws/zycbe031-tpparc eq 'P'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
if /pws/zycbe031-mdcorresp eq 'IF'.
* << Fim da inclusão
perform parametriza_if_p.
* >> Início da exclusão: FORM FILL_DATE_F-63_IF
else.
loop at itab_zycbt013.
case itab_zycbt013-cpor3.
when 'XBLNR'.
case itab_zycbt013-cpocb.
when 'NRFINANC'.
itab_zycbe033-xblnr = wa_zycbt112-nrfinanc.
when 'NRSEQ'.
itab_zycbe033-xblnr = wa_zycbt112-nrseq.
when 'NRLINHA'.
itab_zycbe033-xblnr = wa_zycbt112-nrlinha.
endcase.
when 'ZUONR'.
case itab_zycbt013-cpocb.
when 'NRPAGTO'.
itab_zycbe033-d_zuonr = wa_zycbt112-nrfinanc.
itab_zycbe033-c_zuonr = wa_zycbt112-nrfinanc.
when 'NRSEQ'.
itab_zycbe033-d_zuonr = wa_zycbt112-nrseq.
itab_zycbe033-c_zuonr = wa_zycbt112-nrseq.
when 'NRLINHA'.
itab_zycbe033-d_zuonr = wa_zycbt112-nrlinha.
itab_zycbe033-c_zuonr = wa_zycbt112-nrlinha.
when 'NRFINANC'.
itab_zycbe033-d_zuonr = wa_zycbt112-nrfinanc.
itab_zycbe033-c_zuonr = wa_zycbt112-nrfinanc.
endcase.
endcase.
endloop.
if wa_zycbt119-ftxt is initial.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
else.
itab_zycbe033-d_sgtxt = wa_zycbt112-txtinf.
itab_zycbe033-c_sgtxt = wa_zycbt112-txtinf.
endif.
* << Fim da exclusão
endif.
perform verify_null_field using wa_zycbt112-bukrs
'BUKRS'
text-010.
itab_zycbe033-bukrs = wa_zycbt112-bukrs.
perform verify_null_field using wa_zycbt112-waers
'WAERS'
text-011.
if /pws/zycbe031-contabreal is initial.
itab_zycbe033-waers = wa_zycbt112-waers.
...
...
read table itab_zyglt100 with key zexit = 'CBI001' binary search.
if sy-subrc eq 0.
if not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa)
changing e_subrc.
if e_subrc ne 0.
exit.
endif.
endif.
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
endif.
if v_trans = 'F-43'.
itab_zycbe033-newbs = '31'.
itab_zycbe033-c_newko = itab_zycbe033-agkon.
* << Fim da inclusão
endif.
append itab_zycbe033.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
itab_zycbt032-msgv2 = v_evento.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
itab_zycbt032-msgv2
space
space
127.
endloop.
if itab_zycbt034 is initial.
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
if v_trans = 'F-63'.
* << Fim da inclusão
if /pws/zycbe145-cod_fech ne 'TR'.
call function '/PWS/ZYCM_TRANSACAO_F_63A'
exporting
v_modo = v_modo_bi
v_predic = wa_zycbt007-fpredicao
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
...
...
exporting
v_modo = v_modo_bi
v_montante = wa_zycbt007-fpredicao
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 FILL_DATE_F-63_IF
endif.
else.
call function '/PWS/ZYCB_TRANSACAO_F_43'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_debito = itab_zycbe035
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
* << Fim da inclusão
endif.
if sy-subrc = 0.
* >> Início da exclusão: FORM FILL_DATE_F-63_IF
read table itab_zycbt032 with key tcode = 'F-63'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
read table itab_zycbt032 with key tcode = v_trans
* << Fim da inclusão
tabela = '/PWS/ZYCBT031'
cpochv = /pws/zycbe031-nrseq
...
...
wa_zycbt112-sldesem = wa_zycbt112-sldesem - wa_zycbt113-vlme.
endif.
if wa_zycbt112-sldesem < 0.
wa_zycbt112-sldesem = 0.
endif.
modify /pws/zycbt112 from wa_zycbt112.
modify /pws/zycbt113 from wa_zycbt113.
endloop.
/pws/zycbe031-statusp = 'P'.
if sy-index = 2.
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
if v_trans = 'F-63'.
* << Fim da inclusão
itab_zycbt032-msgv1 = itab_zycbt032-belnr.
itab_zycbt032-msgv2 = text-020.
perform message_store
using c_classe_msg
c_tipo_msg_i
itab_zycbt032-msgv1
itab_zycbt032-msgv2
space
space
057.
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
else.
itab_zycbt032-msgv1 = text-098.
itab_zycbt032-msgv2 = itab_zycbt032-belnr.
itab_zycbt032-msgv3 = text-020.
itab_zycbt032-msgv4 = text-466.
perform message_store
using c_classe_msg
c_tipo_msg_i
itab_zycbt032-msgv1
itab_zycbt032-msgv2
itab_zycbt032-msgv3
itab_zycbt032-msgv4
061.
endif.
* << Fim da inclusão
/pws/zycbe031-belnr_pi = itab_zycbt032-belnr.
else.
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
if v_trans = 'F-63'.
* << Fim da inclusão
itab_zycbt032-msgv1 = itab_zycbt032-belnr.
itab_zycbt032-msgv2 = text-019.
perform message_store
using c_classe_msg
c_tipo_msg_i
itab_zycbt032-msgv1
itab_zycbt032-msgv2
space
space
057.
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
else.
itab_zycbt032-msgv1 = text-098.
itab_zycbt032-msgv2 = itab_zycbt032-belnr.
itab_zycbt032-msgv3 = text-019.
itab_zycbt032-msgv4 = text-466.
perform message_store
using c_classe_msg
c_tipo_msg_i
itab_zycbt032-msgv1
itab_zycbt032-msgv2
itab_zycbt032-msgv3
itab_zycbt032-msgv4
061.
endif.
* << Fim da inclusão
/pws/zycbe031-belnr_p = itab_zycbt032-belnr.
endif.
modify /pws/zycbt031 from /pws/zycbe031. "#EC ENHOK
if wa_zycbt007-cfm = 'X'.
select single *
from /pws/zycbt031
into wa_zycbt031_log
where nrseq = /pws/zycbe031-nrseq
and dtboleto = /pws/zycbe031-dtboleto.
perform monta_log_cfm using wa_zycbt031_log
...
...
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.
* >> Início da exclusão: FORM FILL_DATE_F-63_IF
if itab_zycbt133-vaprov = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
if v_trans = 'F-43'.
/pws/zycbe031-statusp = 'C'.
modify /pws/zycbt031 from /pws/zycbe031. "#EC ENHOK
endif.
if itab_zycbt133-vaprov = 'X' and v_trans ne 'F-43'.
* << Fim da inclusão
perform executa_aprovacao.
endif.
endif.
if /pws/zycbe145-cod_fech ne 'TR'.
* >> Início da exclusão: FORM FILL_DATE_F-63_IF
if itab_zycbt133-vaprov = 'X' and
itab_zycbt133-vclear = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
if ( itab_zycbt133-vaprov = 'X' and
itab_zycbt133-vclear = 'X' ) or
( v_trans = 'F-43' and itab_zycbt133-vclear = 'X').
* << Fim da inclusão
perform executa_clearing_financ.
endif.
else.
perform documentos_if.
endif.
else.
move-corresponding /pws/zycbe031 to wa_zycbt031.
erro_bi = 'X'.
loop at itab_zycbt032.
itab_zycbt032-msgv1 = itab_zycbt032-msg(50).
...
...
data: v_recf like /pws/zycbt089-forn_rec_fed,
v_codeven like /pws/zycbt011-codeven.
if sy-index = 2.
if /pws/zycbe031-tpparc = 'J'.
v_codeven = '003P'.
endif.
else.
if /pws/zycbe031-tpparc = 'J'.
v_codeven = '002P'.
elseif /pws/zycbe031-tpparc = 'P'.
* >> Início da exclusão: FORM GET_PARAMETERS_112_113E031
v_codeven = '001P'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_112_113E031
concatenate '001' wa_zycbt112-codint into v_codeven.
* << Fim da inclusão
elseif /pws/zycbe031-tpparc = 'C'.
v_codeven = '004P'.
endif.
endif.
v_evento = v_codeven.
clear wa_zycbt007.
select single * from /pws/zycbt007
into wa_zycbt007
where bukrs eq /pws/zycbe031-bukrs.
* >> Início da exclusão: FORM GET_PARAMETERS_112_113E031
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = '/PWS/ZYCBT112'.
refresh: itab_zycbt012.
select * from /pws/zycbt012
into table itab_zycbt012
where codeven = v_codeven
and codmod = 'I'.
* << Fim da exclusão
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
and codmod = 'I'
and bukrs = /pws/zycbe031-bukrs.
select single kurst
from /pws/zycbt009
into /pws/zycbt009-kurst
where codpadr = wa_zycbt011-ctmoed.
...
...
endform.
form selecionar_if.
select single * from /pws/zycbt112
into wa_zycbt112
where nrseq eq /pws/zycbe031-nrcorresp.
select single * from /pws/zycbt113
into wa_zycbt113
where nrseq eq /pws/zycbe031-nrcorresp
and nrparc eq /pws/zycbe031-nrparc
and tpparc eq /pws/zycbe031-tpparc.
* >> Início da inclusão: FORM SELECIONAR_IF
select single * from /pws/zyglt009
where bukrs eq /pws/zycbe031-bukrs.
clear v_trans.
if /pws/zyglt009-transacaofin = 'F-43'.
v_trans = 'F-43'.
else.
v_trans = 'F-63'.
endif.
* << Fim da inclusão
loop at itab_zycbt031_tc.
select single * from /pws/zycbt112
into /pws/zycbt112
where nrseq eq itab_zycbt031_tc-nrcorresp.
select single * from /pws/zycbt113
into /pws/zycbt113
where nrseq eq itab_zycbt031_tc-nrcorresp
and nrparc eq itab_zycbt031_tc-nrparc
and tpparc eq itab_zycbt031_tc-tpparc.
if ( /pws/zycbe145-cod_fech = 'TR' and
...
...
and bukrs = /pws/zycbe031-bukrs.
endform.
form get_parameters_tr_if.
data: v_recf like /pws/zycbt089-forn_rec_fed.
if sy-index = 2.
if /pws/zycbe031-tpparc = 'J'. v_codeven = '003P'. endif.
else.
if /pws/zycbe031-tpparc = 'J'.
v_codeven = '002P'.
elseif /pws/zycbe031-tpparc = 'P'.
* >> Início da exclusão: FORM GET_PARAMETERS_TR_IF
v_codeven = '001P'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_TR_IF
concatenate '001' wa_zycbt112-codint into v_codeven.
* << Fim da inclusão
elseif /pws/zycbe031-tpparc = 'C'.
v_codeven = '004P'.
endif.
endif.
v_evento = v_codeven.
clear wa_zycbt007.
select single * from /pws/zycbt007
into wa_zycbt007
where bukrs eq /pws/zycbe031-bukrs.
* >> Início da exclusão: FORM GET_PARAMETERS_TR_IF
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = '/PWS/ZYCBT112'.
* << Fim da exclusão
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
and codmod = 'I'
and bukrs = /pws/zycbe031-bukrs.
select single kurst
from /pws/zycbt009
into /pws/zycbt009-kurst
where codpadr = wa_zycbt011-ctmoed.
...
...
when 'DTDESEM'.
move wa_zycbt112-dtdesem to:
itab_zycbe033-d_valut,
itab_zycbe033-c_valut.
when 'DTVENCTO'.
move wa_zycbt112-dtvencto to:
itab_zycbe033-d_valut,
itab_zycbe033-c_valut.
when 'DTFINAL'.
move wa_zycbt113-dtfinal to:
* >> Início da inclusão: FORM PARAMETRIZA_IF_P
itab_zycbe033-d_valut,
itab_zycbe033-c_valut.
when 'DTCREDPR'.
if v_evento = '002P' or v_evento = '004P'.
move /pws/zycbe031-dtcredpr to:
itab_zycbe033-d_valut,
itab_zycbe033-c_valut.
endif.
when 'DTCREDIR'.
if v_evento = '003P'.
move /pws/zycbe031-dtcredir to:
* << Fim da inclusão
itab_zycbe033-d_valut,
itab_zycbe033-c_valut.
* >> Início da inclusão: FORM PARAMETRIZA_IF_P
endif.
* << Fim da inclusão
endcase.
when 'ZFBDT'.
case itab_zyglt321-cpocb.
when 'DTINCL'.
move wa_zycbt112-dtincl to:
itab_zycbe033-zfbdt .
when 'DTDESEM'.
move wa_zycbt112-dtdesem to:
itab_zycbe033-zfbdt .
when 'DTVENCTO'.
move wa_zycbt112-dtvencto to:
itab_zycbe033-zfbdt .
when 'DTFINAL'.
move wa_zycbt113-dtfinal to:
itab_zycbe033-zfbdt .
* >> Início da inclusão: FORM PARAMETRIZA_IF_P
when 'DTCREDPR'.
if v_evento = '002P' or v_evento = '004P'.
move /pws/zycbe031-dtcredpr to:
itab_zycbe033-zfbdt.
endif.
when 'DTCREDIR'.
if v_evento = '003P'.
move /pws/zycbe031-dtcredir to:
itab_zycbe033-zfbdt.
endif.
* << Fim da inclusão
endcase.
when 'XBLNR'.
case itab_zyglt321-cpocb.
when 'NRSEQ'.
move wa_zycbt112-nrseq to:
itab_zycbe033-xblnr .
when 'NRFINANC'.
move wa_zycbt112-nrfinanc to:
* >> Início da inclusão: FORM PARAMETRIZA_IF_P
itab_zycbe033-xblnr .
when 'NRLINHA'.
move wa_zycbt112-nrlinha to:
* << Fim da inclusão
itab_zycbe033-xblnr .
endcase.
when 'ZUONR'.
case itab_zyglt321-cpocb.
when 'NRSEQ'.
move wa_zycbt112-nrseq to:
itab_zycbe033-d_zuonr,
itab_zycbe033-c_zuonr.
when 'NRFINANC'.
move wa_zycbt112-nrfinanc to:
* >> Início da inclusão: FORM PARAMETRIZA_IF_P
itab_zycbe033-d_zuonr,
itab_zycbe033-c_zuonr.
when 'NRPAGTO'.
move wa_zycbt112-nrfinanc to:
itab_zycbe033-d_zuonr,
itab_zycbe033-c_zuonr.
when 'NRLINHA'.
move wa_zycbt112-nrlinha to:
* << Fim da inclusão
itab_zycbe033-d_zuonr,
itab_zycbe033-c_zuonr.
endcase.
endcase.
endloop.
endform.
form verifica_associacao.
select single * from /pws/zycbt119
where nrseq eq /pws/zycbe031-nrcorresp.
if sy-subrc eq 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007I01
...
if v_f63pf is initial.
/pws/zyglt009-transacaopf = c_f43.
else.
/pws/zyglt009-transacaopf = c_f63.
endif.
if v_f63re is initial.
/pws/zyglt009-transacaorem = c_f43.
else.
/pws/zyglt009-transacaorem = c_f63.
endif.
* >> Início da inclusão: MODULE SET_CONTBRL
if v_f63fin is initial.
/pws/zyglt009-transacaofin = c_f43.
else.
/pws/zyglt009-transacaofin = c_f63.
endif.
if v_f63emp is initial.
/pws/zyglt009-transacaoemp = c_f43.
else.
/pws/zyglt009-transacaoemp = c_f63.
endif.
* << Fim da inclusão
endmodule.
module set_infotext input.
if v_infotext1 = 'X'.
/pws/zyglt009-infotext = 'X'.
else.
clear /pws/zyglt009-infotext.
endif.
endmodule.
module set_campos_110 input.
if v_dtjuros1 = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007O01
...
move 'X' to v_f63pf.
endcase.
clear: v_f43re,
v_f63re.
case /pws/zyglt009-transacaorem.
when c_f43.
move 'X' to v_f43re.
when c_f63.
move 'X' to v_f63re.
endcase.
* >> Início da inclusão: MODULE SET_SCREEN_103
clear: v_f43fin,
v_f63fin,
v_f43emp,
v_f63emp.
case /pws/zyglt009-transacaofin.
when c_f43.
move 'X' to v_f43fin.
when c_f63.
move 'X' to v_f63fin.
endcase.
case /pws/zyglt009-transacaoemp.
when c_f43.
move 'X' to v_f43emp.
when c_f63.
move 'X' to v_f63emp.
endcase.
* << Fim da inclusão
endmodule.
module set_screen_109 output.
if /pws/zycbt007-fprovisao = ' '.
v_fprovisao1 = 'X'.
clear v_fprovisao2.
elseif /pws/zycbt007-fprovisao = 'C'.
v_fprovisao2 = 'X'.
clear v_fprovisao1.
endif.
clear: v_dataestorno1,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007TOP
...
v_f43pa type c,
v_f63pf type c,
v_f43pf type c,
v_f63re type c,
v_f43re type c,
v_origem(30),
v_resposta_save_provisao,
v_usp1(1) type c,
v_usp2(1) type c,
v_emp_cp type bukrs,
* >> Início da exclusão:
v_copy type c.
* << Fim da exclusão
* >> Início da inclusão:
v_copy type c,
v_f63fin type c,
v_f43fin type c,
v_f63emp type c,
v_f43emp type c.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB110
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 466
Texto: (18 caracteres)
"foi contabilizado."
Comprimento máximo: 19
----------------------------------------------------------------------------------------------------
********************************************
Modificações efetuadas em TABD /PWS/ZYGLT009
********************************************
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYGLT009
DESCRIÇÃO BREVE: GL - Parâm Gerais Câmbio - continuação da ZYCBT007
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA:
(A) - AUTUALIZAÇÃO DE TABELAS PERMITIDA
************
CAMPOS NOVOS
************
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: TAB.VALORES.: CPO.REF.
TRANSACAOFIN /PWS/ZYGLL1426
TRANSACAOEMP /PWS/ZYGLL1427
***************
OPÇÕES TÉCNICAS
***************
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 0
(X) - AR. BUFFER NÃO PERMITIDO
(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO
(_) - AR. BUFFER ATIVADO
(_) - RGSTS. IND ARMAZENADOS
(_) - ÁREA GEN ARMAZENADA EM BUFFER Nº DE CPOS CHAVE: ______
(_) - TOTALMENTE ARMAZENADO
(_) - REGISTRAR MODIFICS. DDS. EM LOG.