CE PLUS - Nota 009339
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Empréstimos
Data/Hora da Publicação: 09/11/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:26:16
Descrição da Nota: PONTOS DE EXIT-CAPTAÇÃO(CPT020)-EMPRÉSTIMO(EMP003)-FINANCIAMENTO(FIN003)
Sintoma
Pontos de exit
Captação(CPT020)
Empréstimo(EMP003)
Financiamento(FIN003)
Solução
Pontos de exit
Captação(CPT020)
Empréstimo(EMP003)
Financiamento(FIN003)
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09339 Data: 09/11/2009 Hora: 08:25:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09339
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07116 - 00001 - 7.0 - 00006 - EXPORTAÇÃO CAPTAÇÃO
07250 - 00002 - 7.0 - 00006 - CAPTAÇÃO - HISTÓRICO CONTÁBIL - SALDO VINCULAÇÃO/LIQUIDAÇÃO DESAT
07965 - 00003 - 7.0 - 00008 - DA - COTAÇÃO DE MOEDAS PARA CAPTAÇÃO/FINANCIAMENTO/EMPRÉSTIMO
08914 - 00004 - 7.0 - 00010 - FINANCIAMENTO, REMESSAS, ASSOCIAÇÃO, EMPRÉSTIMO, ASSUNÇÃO DE DIVI
----------------------------------------------------------------------------------------------------
PONTOS DE EXIT-CAPTAÇÃO(CPT020)-EMPRÉSTIMO(EMP003)-FINANCIAMENTO(FIN003)
----------------------------------------------------------------------------------------------------
Palavras Chave:
PONTOS DE EXIT CAPTAÇÃO(CPT020) EMPRÉSTIMO(EMP003) FINANCIAMENTO(FIN003)
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA111F01
REPS /PWS/MZYCA111I01
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F02
REPS /PWS/MZYCB001I01
REPS /PWS/MZYCM101F01
REPS /PWS/MZYCM101I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111F01
...
into (/pws/zycbe128-bukrs, /pws/zycbe128-gsber,
/pws/zycbe128-j_1bbranch, /pws/zycbe128-werks,
v_waersb)
from /pws/zycbt007 up to 1 rows
where bukrs eq /pws/zycbe128-bukrs.
endselect.
else.
v_erro = 'N'.
endif.
endif.
* >> Início da inclusão: FORM SAVE_CHANGES
perform executa_exit using 'EMP003'.
* << Fim da inclusão
if not /pws/zycbe128-nrseqcot is initial and
not /pws/zycbe128-belnr is initial and
( sy-tcode ne '/PWS/ZYCB111_E' or v_status_s ne 0 ).
perform verifica_despesa_cotacao.
endif.
perform message_show using 'X'.
set parameter id '/PWS/ZYCBP373' field v_nrseqcview.
if sy-binpt is initial.
leave to transaction '/PWS/ZYCB111_E' and skip first screen.
endif.
...
...
'/PWS/ZYCBM'
'I'
text-128
/pws/zycbe128-nrseq
text-130
space
'268'.
perform exclui_seq_cotacao.
perform unlock_record.
perform exclui_dados_bancarios.
* >> Início da inclusão: FORM DELETE_ZYCBT128
perform executa_exit using 'EMP003'.
* << Fim da inclusão
perform message_show using 'X'.
leave to screen 0.
endif.
endform.
form verifica_parcelas.
loop at itab_zycbt129p where nrseq = /pws/zycbe128-nrseq.
if not itab_zycbt129p-dtpagto is initial.
v_apagar = 'N'.
v_erro_exclusao = 'X'.
message i191 with itab_zycbt129p-nrparc itab_zycbt129p-dtpagto.
...
...
if sy-subrc = 0.
else.
endif.
if p_limpa_msg = 'X'.
call function 'MESSAGES_INITIALIZE'.
endif.
endform.
form message_initialize.
call function 'MESSAGES_INITIALIZE'.
endform.
* >> Início da inclusão:
form executa_exit using p_exit.
clear: itab_zyglt100.
if itab_zyglt100[] is initial.
v_syrepid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'F'
i_func = v_syrepid
tables
itab_zyglt100 = itab_zyglt100
exceptions
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
others = 4.
if sy-subrc = 0.
else.
endif.
endif.
read table itab_zyglt100 with key zexit = p_exit binary search.
if sy-subrc eq 0 and not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
endif.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111I01
...
v_tela = '0104'.
LOOP AT itab_zycbt129c WHERE mark EQ 'X'.
cont = cont + 1.
ENDLOOP.
IF cont EQ 1.
CALL SCREEN '0105' STARTING AT 3 3.
ELSE.
MESSAGE i015 WITH text-126.
ENDIF.
ENDCASE.
* >> Início da inclusão: MODULE USER_COMMAND_0100
perform executa_exit using 'EMP003'.
* << Fim da inclusão
CLEAR: ok_code, sy-ucomm.
ENDMODULE.
MODULE modify_line INPUT.
CASE sy-dynnr.
WHEN '0102'.
PERFORM verifica_ateracao.
PERFORM verifica_periodo.
PERFORM update_itab_zycbt129p.
v_dtfinal = /pws/zycbe129-dtfinal.
itab_zycbt129p-mark = mark.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
v_nrseqc = /pws/zycbe001-nrseqc.
if okcode ne 'ANLE'.
if v_erro_bi is initial.
v_status_s = '0'.
endif.
endif.
move /pws/zycbe001-nrseqc to /pws/zycbe074-nrseqc.
move-corresponding /pws/zycbe074 to /pws/zycbt074.
modify /pws/zycbt074.
endif.
* >> Início da exclusão: FORM SAVE_CHANGES
clear okcode.
* << Fim da exclusão
v_svdoc = v_salvo = 'X'.
endform.
form verify_tpcontr.
case /pws/zycbe001-tpcontr+0(1).
when 'E' or 'C'.
perform select_zycbt005.
when others.
if not v_nrseqc is initial and
v_status_s = '1'.
perform unlock_record.
...
...
delete from /pws/zycbt211 where nrseqc = v_nrseqc.
delete from /pws/zycbt115 where nrcorrep = v_nrseqc.
delete from /pws/zycbt221 where nrseqc = v_nrseqc.
delete from /pws/zycbt074 where nrseqc = v_nrseqc.
delete from /pws/zycbt216 where nrseqc = v_nrseqc.
if not /pws/zycbe001-nrseqcot is initial and
sy-tcode ne '/PWS/ZYCB001_E' .
perform verifica_despesa_cotacao.
endif.
commit work and wait.
* >> Início da inclusão: FORM DELETE_ZYCBT001
perform executa_exit_cliente using 'CPT020'.
* << Fim da inclusão
leave to screen 0.
endif.
endform.
form save_zycbt004.
data: v_vlvinc like /pws/zycbt005-vlvinc,
v_msg(1) type c.
data begin of itab_tcurr occurs 1.
include structure tcurr.
data end of itab_tcurr.
data: v_kurst like tcurr-kurst,
...
...
delete from /pws/zycbt216 where nrseqc = v_nrseqc.
if not /pws/zycbe001-nrseqcot is initial and
sy-tcode ne '/PWS/ZYCB001_E'.
perform verifica_despesa_cotacao.
endif.
commit work and wait.
message i061 with text-165 v_nrseqc text-166.
if v_capital eq 'X'.
message i061 with text-405 text-406.
endif.
* >> Início da inclusão: FORM DELETE_ZYCBT001_PRE1
perform executa_exit_cliente using 'CPT020'.
* << Fim da inclusão
if not itab_acerto[] is initial.
export itab_acerto to memory id '040'.
submit /pws/zycbr040 and return.
refresh: itab_contabil, itab_acerto.
endif.
leave to screen 0.
endif.
* >> Início da inclusão: FORM DELETE_ZYCBT001_PRE1
perform executa_exit_cliente using 'CPT020'.
* << Fim da inclusão
leave to screen 0.
endform.
form fill_08_pre_pagamento21.
data:
sysubrc like sy-subrc.
if wa_zycbt089-comp_trans eq 'C'.
perform estorno_pre_f04.
if not /pws/zycbe001-belnr_comp is initial.
exit.
endif.
...
...
tcurx-currdec = 2.
endif.
p_result = p_valor / ( 10 ** ( tcurx-currdec - 2 ) ).
endform.
form historico_contabil.
data: nrseqc like /pws/zycbt001-nrseqc.
nrseqc = /pws/zycbe001-nrseqc.
set parameter id '/PWS/ZYCBP019' field nrseqc.
submit /pws/zycbr059 and return
with bukrs eq /pws/zycbe001-bukrs.
* >> Início da exclusão: FORM HISTORICO_CONTABIL
clear okcode.
* << Fim da exclusão
endform.
form seleciona_zycbt007.
select single * from /pws/zycbt007 into wa_zycbt007
where bukrs eq /pws/zycbe001-bukrs.
endform.
form trata_dt_liquid.
case /pws/zycbe001-fdtlanc.
when 'C'.
if not /pws/zycbe001-dtcred is initial.
if /pws/zycbe001-dtcred > /pws/zycbe001-dtliquid.
...
...
delete from /pws/zycbt210 where nrseqc = v_nrseqc.
delete from /pws/zycbt211 where nrseqc = v_nrseqc.
delete from /pws/zycbt115 where nrcorrep = v_nrseqc.
delete from /pws/zycbt074 where nrseqc = v_nrseqc.
delete from /pws/zycbt216 where nrseqc = v_nrseqc.
if not /pws/zycbe001-nrseqcot is initial and
sy-tcode ne '/PWS/ZYCB001_E'.
perform verifica_despesa_cotacao.
endif.
commit work and wait.
* >> Início da inclusão: FORM DELETE_ZYCBT001_TR
perform executa_exit_cliente using 'CPT020'.
* << Fim da inclusão
leave to screen 0.
endif.
endform.
form soma_juros_total.
clear /pws/zycbe001-vltotjur.
loop at itab_zycbt002.
select *
from /pws/zycbt216
into table itab_zycbt216
where nrseqc = itab_zycbt002-nrseqc and
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F02
...
delete from /pws/zycbt003 where nrseqc = v_nrseqc.
delete from /pws/zycbt004 where nrseqc = v_nrseqc.
delete from /pws/zycbt074 where nrseqc = v_nrseqc.
delete from /pws/zycbt216 where nrseqc = v_nrseqc.
delete from /pws/zycbt221 where nrseqc = v_nrseqc.
if not /pws/zycbe001-nrseqcot is initial and
sy-tcode ne '/PWS/ZYCB001_E'.
perform verifica_despesa_cotacao.
endif.
message i061 with text-165 v_nrseqc text-256 text-257.
* >> Início da inclusão: FORM ELIMINA_PRE_ACC
perform executa_exit_cliente using 'CPT020'.
* << Fim da inclusão
leave to screen 0.
endif.
* >> Início da inclusão: FORM ELIMINA_PRE_ACC
perform executa_exit_cliente using 'CPT020'.
* << Fim da inclusão
leave to screen 0.
endform.
form monta_itab_acerto.
data: v_texto(100).
clear: itab_acerto.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
...
v_salvo_aux.
endcase.
leave to transaction c_transacao_c.
else.
message i299 with text-185. "#EC *
endif.
when 'AEND'.
perform lock_record.
perform change_status.
okcode_old = okcode.
* >> Início da exclusão: MODULE USER_COMMAND_CB001
clear okcode.
* << Fim da exclusão
when 'DESP'.
if v_status_s = '1' or
v_status_s is initial.
v_status_s200 = '1'.
else.
v_status_s200 = '0'.
endif.
clear v_alt_desp.
call screen '0200'.
when 'BACK'.
...
...
/pws/zycbe091-vlmi = /pws/zycbe091-vlmi +
itab_zycbt091-vlmi.
endloop.
wa_zycbt091 = /pws/zycbe091.
call screen '0500'.
endif.
endif.
endif.
when 'MODO'.
perform modo_batch_input.
* >> Início da exclusão: MODULE USER_COMMAND_CB001
clear okcode.
* << Fim da exclusão
when 'LIQ'.
perform call_zycb004_2.
select single * from /pws/zycbt001 into /pws/zycbe001
where nrseqc = /pws/zycbe001-nrseqc.
wa_zycbt001 = /pws/zycbt001 = wa_zycbe001 =
wa_zycbt001_pre = /pws/zycbe001.
when 'CALCJUR'.
call screen '0004' starting at 2 2.
when 'HIST'.
perform historico_contabil.
...
...
start_column = 10
start_row = 3
text_object = '/PWS/ZSAPMZYCB001_TXT'
exceptions
text_not_found = 1
others = 2.
if sy-subrc <> 0.
message i015 with text-356.
endif.
endcase.
* >> Início da inclusão: MODULE USER_COMMAND_CB001
perform executa_exit_cliente using 'CPT020'.
clear okcode.
* << Fim da inclusão
endmodule.
module modify_line input.
case sy-dynnr.
when '0102'.
perform update_itab_zycbt002.
when '0103'.
perform update_itab_zycbt003.
when '0104'.
perform update_itab_zycbt002p.
when '0105'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101F01
...
perform message_store using
'/PWS/ZYCBM'
'I'
text-239
/pws/zycbe112-nrseq
text-240
space
'061'.
endif.
perform message_show using 'X'.
* >> Início da inclusão: FORM SAVE_CHANGES
perform executa_exit using 'FIN003'.
* << Fim da inclusão
if v_erro_bi is initial.
perform associa_agrupar_dados.
call function '/PWS/ZYCM_DEQUEUE_EZYCBT112'
exporting
nrseq = v_nrseqc.
clear v_nrseq_agrp.
select * from /pws/zycmt013
into table itab_zycmt013
where nrseq = /pws/zycbe112-nrseq.
read table itab_zycmt013 with key nrseq = /pws/zycbe112-nrseq.
...
...
append wa_mensagem to itab_mensagem.
perform message_store using
'/PWS/ZYCBM'
'I'
wa_mensagem-msg
space
space
space
'061'.
perform message_show using 'X'.
* >> Início da inclusão: FORM DELETE_ZYCBT112
perform executa_exit using 'FIN003'.
* << Fim da inclusão
if not r_financiamento is initial and not wa_243-nrseq is initial.
set parameter id '/PWS/ZYCBP001' field wa_243-nrseq.
clear vg_tcode.
set parameter id '/PWS/ZYCBP404' field vg_tcode.
leave to transaction '/PWS/ZYCB116_E' and skip first screen.
endif.
leave to screen 0.
endif.
endform.
form verifica_faturas.
...
...
perform executa_f51f_estorno.
endif.
if v_erro_bi is initial.
perform exclui_financiamento.
perform exclui_dados_bancarios.
if not /pws/zycbe112-nrseqcot is initial and
( sy-tcode ne '/PWS/ZYCB101_E' or v_status_s ne 0 ).
perform verifica_despesa_cotacao.
endif.
perform message_show using 'X'.
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
perform executa_exit using 'FIN003'.
* << Fim da inclusão
leave to screen 0.
endif.
endform.
form get_parameters_112_estorno.
concatenate text-019 /pws/zycbe112-codint into v_codeven.
clear wa_zycbt007.
select single * from /pws/zycbt007
into wa_zycbt007
where bukrs eq /pws/zycbe112-bukrs.
refresh itab_zyglt321.
...
...
if sy-subrc = 0.
else.
endif.
if p_limpa_msg = 'X'.
call function 'MESSAGES_INITIALIZE'.
endif.
endform.
form message_initialize.
call function 'MESSAGES_INITIALIZE'.
endform.
* >> Início da inclusão:
form executa_exit using p_exit.
clear: itab_zyglt100.
if itab_zyglt100[] is initial.
v_syrepid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'I'
i_func = v_syrepid
tables
itab_zyglt100 = itab_zyglt100
exceptions
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
others = 4.
if sy-subrc = 0.
else.
endif.
endif.
read table itab_zyglt100 with key zexit = p_exit binary search.
if sy-subrc eq 0 and not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
endif.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101I01
...
endif.
if v_obrig eq 'X' and /pws/zycbe112-txtinf is initial.
perform texto_informativo.
else.
if itab_zycbt113j is initial.
message i015 with text-185.
else.
perform save_changes.
endif.
endif.
* >> Início da exclusão: MODULE USER_COMMAND_0100
clear okcode.
* << Fim da exclusão
when 'DELL'.
perform popup_message using text-122 text-123.
if v_answer = 'J'.
clear wa_zycbt007.
select single * from /pws/zycbt007
into wa_zycbt007
where bukrs eq /pws/zycbe112-bukrs.
if /pws/zycbe112-nrseq+0(1) = '5'.
perform delete_zycbt112.
else.
...
...
message i015 with text-194.
endif.
when 'BOL'.
if ts_finan-activetab = 'FC_FINANC' or
ts_finan-activetab = 'FC_ROF' or
ts_finan-activetab = 'FC_ADIC' or
ts_finan-activetab = 'FC_CLASS'.
message i015 with text-198.
endif.
endcase.
* >> Início da inclusão: MODULE USER_COMMAND_0100
perform executa_exit using 'FIN003'.
clear okcode.
* << Fim da inclusão
endmodule.
module modify_line input.
case sy-dynnr.
when '0102'.
perform update_itab_zycbt113p.
v_dtfinal = itab_zycbt113p-dtfinal.
when '0103'.
perform update_itab_zycbt113j.
v_dtfinal = itab_zycbt113j-dtfinal.
/pws/zycbe113-tpjurv = itab_zycbt113j-tpjurv.
...