CE PLUS - Nota 010935
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 03/02/2011 00:00:00
Data/Hora Última Alteração: 03/02/2011 16:11:24
Descrição da Nota: VINCULAÇÃO E LIQUIDAÇÃO, LOG DE CFM
Sintoma
Ocorrido erro no F6Q, onde foi criado um cénario com Contrato Tipo Câmbio Pronto 7311.
Feita a vinculação e ao estornar ocorreu Dump. Erro ocorre quando parametro do CFM está igual a Sim.
Solução
A solução foi substituir o generate pela chamada do programa /pws/zyglr039 ( que gera o Log ),
chamando com submit. Desta maneira não ocorre o estouro de limite de chamadas.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10935 Data: 03/02/2011 Hora: 15:35:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10935
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00057
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02946 - 00001 - 6.0 - 00026 - PARÂMETRO /PWS/ZYGL007 CFM SIM - DUMP VERSÃO 4.7 OU SUPERIOR
10377 - 00002 - 8.0 - 00004 - PARAMETRO - CAPTAÇÃO - PROBLEMA CFM
----------------------------------------------------------------------------------------------------
VINCULAÇÃO E LIQUIDAÇÃO, LOG DE CFM
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO, LIQUIDAÇÃO, LOG CFM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB009F02
REPS /PWS/MZYCB009F03
REPS /PWS/MZYCB009F06
REPS /PWS/MZYCB009F10
REPS /PWS/ZYGLR039
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
and tpdesp = itab_zycbt006-tpdesp
and nrparc = itab_zycbt006-nrparc
and dtincl = itab_zycbt006-dtincl
and nrinvoic = itab_zycbt006-nrinvoic
and gsberf = itab_zycbt006-gsberf
and dtvincul = itab_zycbt006-dtvincul
and dtvencto = itab_zycbt006-dtvencto
and dtpagto = itab_zycbt006-dtpagto.
perform monta_log_cfm using wa_zycbt006_log
'/PWS/ZYCBT006'
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES
'6T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT006'
wa_log
'E'.
endif.
delete from /pws/zycbt006 where nrseqc = itab_zycbt006-nrseqc
and tpdesp = itab_zycbt006-tpdesp
and nrparc = itab_zycbt006-nrparc
and dtincl = itab_zycbt006-dtincl
and nrinvoic = itab_zycbt006-nrinvoic
...
...
if sy-subrc eq 0.
if not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
endif.
endif.
endif.
if wa_zycbt007-cfm = 'X'.
perform monta_log_cfm using /pws/zycbt006
'/PWS/ZYCBT006'
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES
'6T'
* << Fim da inclusão
changing wa_log.
if wa_zycbt006_log is initial and itab_zycbt006-v_status = 'I'.
perform grava_log using '/PWS/ZYCBT006'
wa_log
'C'.
else.
perform grava_log using '/PWS/ZYCBT006'
wa_log
'A'.
endif.
...
...
tdesmemb = 'K'.
check sy-subrc eq 0.
read table itab_zycbt209 with key
nrinvoic = itab_zycbt030-nrinvoic
gsberf = itab_zycbt030-gsberf
nrparcf = itab_zycbt030-nrparcf.
if sy-subrc ne 0.
read table itab_bsad with key belnr = itab_zycbt084-belnr.
else.
loop at itab_bsad where belnr = itab_zycbt084-belnr
* >> Início da exclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
and zuonr(4) ne 'Des.'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
and zuonr(4) ne text-232.
* << Fim da inclusão
exit.
endloop.
endif.
check sy-subrc eq 0.
itab_zycbt030-v_kwert =
( itab_zycbt030-kwert / itab_zycbt030-s_kwert )
* v_vlliq.
modify itab_zycbt030.
read table itab_zycbt017 with key
nrinvoic = itab_zycbt030-nrinvoic
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
AND nrparc = itab_zycbt006-nrparc
AND dtincl = itab_zycbt006-dtincl
AND nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
AND dtvincul = itab_zycbt006-dtvincul
AND dtvencto = itab_zycbt006-dtvencto
AND dtpagext = itab_zycbt006-dtpagext
AND dtpagto = itab_zycbt006-dtpagto.
PERFORM monta_log_cfm USING wa_zycbt006_log
'/PWS/ZYCBT006'
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2
'6T'
* << Fim da inclusão
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'E'.
ENDIF.
DELETE FROM /pws/zycbt006 WHERE nrseqc = itab_zycbt006-nrseqc
AND tpdesp = itab_zycbt006-tpdesp
AND nrparc = itab_zycbt006-nrparc
AND dtincl = itab_zycbt006-dtincl
AND nrinvoic = itab_zycbt006-nrinvoic
...
...
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
ENDIF.
IF wa_zycbt007-cfm = 'X'.
PERFORM monta_log_cfm USING /pws/zycbt006
'/PWS/ZYCBT006'
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2
'6T'
* << Fim da inclusão
CHANGING wa_log.
IF wa_zycbt006_log IS INITIAL AND itab_zycbt006-v_status = 'I'.
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'C'.
ELSE.
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'A'.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
sy-subrc eq 0,
itab_zyglt100-zexit_ativa eq 'X',
not itab_zyglt100-formulario is initial,
not itab_zyglt100-programa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa)
if found.
endform.
form monta_log_cfm using p_dados
p_tabela
* >> Início da inclusão: FORM MONTA_LOG_CFM
p_tipo
* << Fim da inclusão
changing p_wa_log.
data: t_prog(72) type c occurs 1000 with header line,
w_prog like trdir-name.
* >> Início da inclusão: FORM MONTA_LOG_CFM
data: v_chamada(50) type c,
wa_006t type /pws/zycbt006.
* << Fim da inclusão
clear: t_prog, wa_log.
refresh: t_prog.
append 'report sy-repid. ' to t_prog.
...
...
append ' v_tam = v_tam + dd03l-intlen. ' to t_prog.
append ' else. ' to t_prog.
append text-244 to t_prog.
append ' v_tam = v_tam + dd03l-leng. ' to t_prog.
append ' endif. ' to t_prog.
append 'enddo. ' to t_prog.
else.
append 'p_wa_log = p_dados. ' to t_prog.
endif.
append 'endform. ' to t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
generate subroutine pool t_prog name w_prog.
if sy-subrc = 0.
perform log in program (w_prog) using p_dados
p_tabela
changing p_wa_log
if found.
endif.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
v_chamada = 'LIQUIDACAO'.
clear: wa_006t.
case p_tipo.
when '6T'.
move p_dados to wa_006t.
endcase.
export: t_prog to memory id 'GEN001',
v_chamada to memory id 'GEN013',
p_tabela to memory id 'GEN031',
p_tipo to memory id 'GEN032',
wa_006t to memory id 'GEN035'.
submit /pws/zyglr039 and return.
import: p_wa_log from memory id 'GEN029'.
* << Fim da inclusão
endform.
form desm_conta_corrente
using
p_v_slliq type /pws/zycbt006-vlme
changing v_subrc.
clear v_subrc.
if /pws/zyglt009-comp_aut_cc is initial.
if wa_recurso_aux-descorigem eq c_liq_vme.
if <fs_zycbt226>-sld_exterior >= p_v_slliq.
itab_recurso_aux-vl_total_saldo = p_v_slliq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F02
...
endif.
modify /pws/zycbt050 from /pws/zycbe050."#EC ENHOK
if wa_zycbt007-cfm = 'X'.
describe field /pws/zycbe050 into t_sydes.
loop at t_sydes-types into wa_types.
v_len = wa_types-length.
exit.
endloop.
perform monta_log_cfm using /pws/zycbe050
'/PWS/ZYCBT050'
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO
'50E'
* << Fim da inclusão
changing wa_log.
if wa_zycbt050_log is initial.
perform grava_log using '/PWS/ZYCBT050'
wa_log
'C'.
else.
perform grava_log using '/PWS/ZYCBT050'
wa_log
'A'.
endif.
...
...
and gsberf = itab_zycbt005-gsberf
and dtvincul = itab_zycbt005-dtvincul
and dtvencto = itab_zycbt005-dtvencto.
describe field wa_zycbt005_log into t_sydes.
loop at t_sydes-types into wa_types.
v_len = wa_types-length.
exit.
endloop.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endif.
endloop.
else.
loop at itab_zycbt005 where mark = 'X'.
update /pws/zycbt005 set: slpagar = itab_zycbt005-slpagar
belnr = itab_zycbt005-belnr
...
...
where nrseqc = itab_zycbt005-nrseqc
and tpdesp = itab_zycbt005-tpdesp
and nrparc = itab_zycbt005-nrparc
and dtincl = itab_zycbt005-dtincl
and nrinvoic = itab_zycbt005-nrinvoic
and gsberf = itab_zycbt005-gsberf
and dtvincul = itab_zycbt005-dtvincul
and dtvencto = itab_zycbt005-dtvencto.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endif.
endloop.
endif.
commit work.
else.
message i015 with text-109.
...
...
if wa_zycbt007-cfm = 'X'.
loop at itab_zycbt005.
wa_zycbt005_log = itab_zycbt005.
describe field wa_zycbt005_log into t_sydes.
loop at t_sydes-types into wa_types.
v_len = wa_types-length.
exit.
endloop.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM CLEARING_ESTORNO
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endloop.
endif.
modify itab_zycbt005 transporting belnr slpagar
where nrseqc = /pws/zycbe050-nrseqc
and tpdesp = /pws/zycbe050-tpdesp
and nrparc = /pws/zycbe050-nrparc
...
...
where nrseqc = /pws/zycbe050-nrseqc
and tpdesp = /pws/zycbe050-tpdesp
and nrparc = /pws/zycbe050-nrparc
and dtincl = /pws/zycbe050-dtincl
and nrinvoic = /pws/zycbe050-nrinvoic
and gsberf = /pws/zycbe050-gsberf
and dtvincul = /pws/zycbe050-dtvincul
and dtvencto = /pws/zycbe050-dtvencto.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM CLEARING_ESTORNO
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT050'
wa_log
'E'.
endif.
delete from /pws/zycbt050
where nrseqc = /pws/zycbe050-nrseqc
and tpdesp = /pws/zycbe050-tpdesp
and nrparc = /pws/zycbe050-nrparc
and dtincl = /pws/zycbe050-dtincl
...
...
where nrseqc = /pws/zycbe050-nrseqc and
tpdesp = /pws/zycbe050-tpdesp and
nrparc = /pws/zycbe050-nrparc and
dtincl = /pws/zycbe050-dtincl and
nrinvoic = /pws/zycbe050-nrinvoic and
gsberf = /pws/zycbe050-gsberf and
dtvincul = /pws/zycbe050-dtvincul and
dtvencto = /pws/zycbe050-dtvencto.
perform monta_log_cfm using wa_zycbt050_log
'/PWS/ZYCBT050'
* >> Início da inclusão: FORM ELIMINA_PDD
'50T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT050'
wa_log
'A'.
endif.
read table itab_zycbt005
with key nrinvoic = itab_zycbt051-nrinvoic
nrparcf = itab_zycbt051-nrparcf
gsberf = itab_zycbt051-gsberf.
read table itab_zycbt006
...
...
where nrseqc = /pws/zycbe050-nrseqc and
tpdesp = /pws/zycbe050-tpdesp and
nrparc = /pws/zycbe050-nrparc and
dtincl = /pws/zycbe050-dtincl and
nrinvoic = /pws/zycbe050-nrinvoic and
gsberf = /pws/zycbe050-gsberf and
dtvincul = /pws/zycbe050-dtvincul and
dtvencto = /pws/zycbe050-dtvencto.
perform monta_log_cfm using wa_zycbt050_log
'/PWS/ZYCBT050'
* >> Início da inclusão: FORM CLEARING_ESTORNO_RPRD
'50T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT050'
wa_log
'A'.
endif.
read table itab_zycbt005
with key nrinvoic = itab_zycbt051-nrinvoic
nrparcf = itab_zycbt051-nrparcf
gsberf = itab_zycbt051-gsberf.
read table itab_zycbt006
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F03
...
where nrseqc = itab_zycbt005_ant-nrseqc
and tpdesp = itab_zycbt005_ant-tpdesp
and nrparc = itab_zycbt005_ant-nrparc
and dtincl = itab_zycbt005_ant-dtincl
and nrinvoic = itab_zycbt005_ant-nrinvoic
and gsberf = itab_zycbt005_ant-gsberf
and dtvincul = itab_zycbt005_ant-dtvincul
and dtvencto = itab_zycbt005_ant-dtvencto.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM GRAVA_TABELAS
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'E'.
endif.
if itab_zycbt005_ant-belnr is initial and
( itab_zycbt005_ant-status eq 'I' or
itab_zycbt005_ant-status is initial ).
delete from /pws/zycbt005
where nrseqc = itab_zycbt005_ant-nrseqc
...
...
and nrparc = itab_zycbt005_ant-nrparc
and dtincl = itab_zycbt005_ant-dtincl
and nrinvoic = itab_zycbt005_ant-nrinvoic
and gsberf = itab_zycbt005_ant-gsberf
and dtvincul = itab_zycbt005_ant-dtvincul
and dtvencto = itab_zycbt005_ant-dtvencto
and dtpagto = itab_zycbt005_ant-dtvincul.
if sy-subrc eq 0.
perform monta_log_cfm using wa_zycbt006_log
'/PWS/ZYCBT006'
* >> Início da inclusão: FORM GRAVA_TABELAS
'6T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT006'
wa_log
'E'.
endif.
endif.
if itab_zycbt005_ant-belnr is initial and
( itab_zycbt005_ant-status eq 'I' or
itab_zycbt005_ant-status is initial ).
delete from /pws/zycbt006
...
...
and tpdesp = itab_zycbt005-tpdesp
and nrparc = itab_zycbt005-nrparc
and dtincl = itab_zycbt005-dtincl
and nrinvoic = itab_zycbt005-nrinvoic
and gsberf = itab_zycbt005-gsberf
and dtvincul = itab_zycbt005-dtvincul
and dtvencto = itab_zycbt005-dtvencto.
modify /pws/zycbt005 from itab_zycbt005.
perform monta_log_cfm using itab_zycbt005
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM GRAVA_TABELAS
'5T'
* << Fim da inclusão
changing wa_log.
if sy-subrc eq 0.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
else.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'C'.
endif.
...
...
and tpdesp = itab_zycbt006-tpdesp
and nrparc = itab_zycbt006-nrparc
and dtincl = itab_zycbt006-dtincl
and nrinvoic = itab_zycbt006-nrinvoic
and gsberf = itab_zycbt006-gsberf
and dtvincul = itab_zycbt006-dtvincul
and dtvencto = itab_zycbt006-dtvencto
and dtpagto = itab_zycbt006-dtpagto.
perform monta_log_cfm using itab_zycbt006
'/PWS/ZYCBT006'
* >> Início da inclusão: FORM GRAVA_LIQUIDACAO
'6T'
* << Fim da inclusão
changing wa_log.
if sy-subrc eq 0.
perform grava_log using '/PWS/ZYCBT006'
wa_log
'A'.
else.
perform grava_log using '/PWS/ZYCBT006'
wa_log
'C'.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F06
...
and dtincl = /pws/zycbe050-dtincl
and nrinvoic = /pws/zycbe050-nrinvoic
and gsberf = /pws/zycbe050-gsberf
and dtvincul = /pws/zycbe050-dtvincul
and dtvencto = /pws/zycbe050-dtvencto.
endif.
modify /pws/zycbt050 from /pws/zycbe050."#EC ENHOK
if wa_zycbt007-cfm = 'X'.
perform monta_log_cfm using /pws/zycbe050
'/PWS/ZYCBT050'
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
'50E'
* << Fim da inclusão
changing wa_log.
if wa_zycbt050_log is initial.
perform grava_log using '/PWS/ZYCBT050'
wa_log
'C'.
else.
perform grava_log using '/PWS/ZYCBT050'
wa_log
'A'.
endif.
...
...
where nrseqc = itab_zycbt005-nrseqc
and tpdesp = itab_zycbt005-tpdesp
and nrparc = itab_zycbt005-nrparc
and dtincl = itab_zycbt005-dtincl
and nrinvoic = itab_zycbt005-nrinvoic
and gsberf = itab_zycbt005-gsberf
and dtvincul = itab_zycbt005-dtvincul
and dtvencto = itab_zycbt005-dtvencto.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endif.
endloop.
else.
loop at itab_zycbt005 where mark = 'X'.
update /pws/zycbt005 set: slpagar = itab_zycbt005-slpagar
belnr = itab_zycbt005-belnr
...
...
where nrseqc = itab_zycbt005-nrseqc
and tpdesp = itab_zycbt005-tpdesp
and nrparc = itab_zycbt005-nrparc
and dtincl = itab_zycbt005-dtincl
and nrinvoic = itab_zycbt005-nrinvoic
and gsberf = itab_zycbt005-gsberf
and dtvincul = itab_zycbt005-dtvincul
and dtvencto = itab_zycbt005-dtvencto.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endif.
endloop.
endif.
commit work.
else.
message i015 with text-109.
...
...
append itab_zycbe033.
else.
itab_zycbt005-slpagar = itab_zycbt005-slpagar +
/pws/zycbe050-vldev_fat.
modify /pws/zycbt005 from itab_zycbt005.
if wa_zycbt007-cfm = 'X'.
loop at itab_zycbt005.
move-corresponding itab_zycbt005 to wa_zycbt005_log.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM EXECUTA_CLEARING_DEV
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endloop.
endif.
modify itab_zycbt005 transporting slpagar
where nrseqc = /pws/zycbe050-nrseqc
and tpdesp = /pws/zycbe050-tpdesp
and nrparc = /pws/zycbe050-nrparc
...
...
where nrseqc = /pws/zycbe050-nrseqc
and tpdesp = /pws/zycbe050-tpdesp
and nrparc = /pws/zycbe050-nrparc
and dtincl = /pws/zycbe050-dtincl
and nrinvoic = /pws/zycbe050-nrinvoic
and gsberf = /pws/zycbe050-gsberf
and dtvincul = /pws/zycbe050-dtvincul
and dtvencto = /pws/zycbe050-dtvencto.
perform monta_log_cfm using wa_zycbt050_log
'/PWS/ZYCBT050'
* >> Início da inclusão: FORM EXECUTA_CLEARING_DEV
'50T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT050'
wa_log
'E'.
endif.
delete from /pws/zycbt050 where nrseqc = /pws/zycbe050-nrseqc
and tpdesp = /pws/zycbe050-tpdesp
and nrparc = /pws/zycbe050-nrparc
and dtincl = /pws/zycbe050-dtincl
and nrinvoic = /pws/zycbe050-nrinvoic
...
...
and nrparcf = /pws/zycbe050-nrparcf
and gsberf = /pws/zycbe050-gsberf
and dtvincul = /pws/zycbe050-dtvincul
and dtvencto = /pws/zycbe050-dtvencto.
modify /pws/zycbt005 from itab_zycbt005.
if wa_zycbt007-cfm = 'X'.
loop at itab_zycbt005.
move-corresponding itab_zycbt005 to wa_zycbt005_log.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM EXECUTA_CLEARING_DEV
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endloop.
endif.
if /pws/zycbe001-tpcontr(01) ca 'CE'.
/pws/zycbe001-slpagar = /pws/zycbe001-slpagar +
/pws/zycbe050-vldev_fat.
/pws/zycbe001-belnr2 = itab_zycbt032-belnr.
...
...
where nrseqc = /pws/zycbe050-nrseqc
and tpdesp = /pws/zycbe050-tpdesp
and nrparc = /pws/zycbe050-nrparc
and dtincl = /pws/zycbe050-dtincl
and nrinvoic = /pws/zycbe050-nrinvoic
and gsberf = /pws/zycbe050-gsberf
and dtvincul = /pws/zycbe050-dtvincul
and dtvencto = /pws/zycbe050-dtvencto.
perform monta_log_cfm using wa_zycbt050_log
'/PWS/ZYCBT050'
* >> Início da inclusão: FORM EXECUTA_CLEARING_DEV
'50T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT050'
wa_log
'E'.
endif.
delete from /pws/zycbt050
where nrseqc = /pws/zycbe050-nrseqc
and tpdesp = /pws/zycbe050-tpdesp
and nrparc = /pws/zycbe050-nrparc
and dtincl = /pws/zycbe050-dtincl
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
where nrseqc = itab_zycbt005_ant-nrseqc
and tpdesp = itab_zycbt005_ant-tpdesp
and nrparc = itab_zycbt005_ant-nrparc
and dtincl = itab_zycbt005_ant-dtincl
and nrinvoic = itab_zycbt005_ant-nrinvoic
and gsberf = itab_zycbt005_ant-gsberf
and dtvincul = itab_zycbt005_ant-dtvincul
and dtvencto = itab_zycbt005_ant-dtvencto.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM ATUALIZA_DADOS_ESTORNO
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'E'.
endif.
delete from /pws/zycbt005
where nrseqc = itab_zycbt005_ant-nrseqc
and tpdesp = itab_zycbt005_ant-tpdesp
and nrparc = itab_zycbt005_ant-nrparc
and dtincl = itab_zycbt005_ant-dtincl
...
...
and nrparc = itab_zycbt005_ant-nrparc
and dtincl = itab_zycbt005_ant-dtincl
and nrinvoic = itab_zycbt005_ant-nrinvoic
and gsberf = itab_zycbt005_ant-gsberf
and dtvincul = itab_zycbt005_ant-dtvincul
and dtvencto = itab_zycbt005_ant-dtvencto
and dtpagto = itab_zycbt005_ant-dtvincul.
if sy-subrc eq 0.
perform monta_log_cfm using wa_zycbt006_log
'/PWS/ZYCBT006'
* >> Início da inclusão: FORM ATUALIZA_DADOS_ESTORNO
'6T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT006'
wa_log
'E'.
endif.
endif.
delete from /pws/zycbt006
where nrseqc = itab_zycbt005_ant-nrseqc
and tpdesp = itab_zycbt005_ant-tpdesp
and nrparc = itab_zycbt005_ant-nrparc
...
...
and tpdesp = itab_zycbt005-tpdesp
and nrparc = itab_zycbt005-nrparc
and dtincl = itab_zycbt005-dtincl
and nrinvoic = itab_zycbt005-nrinvoic
and gsberf = itab_zycbt005-gsberf
and dtvincul = itab_zycbt005-dtvincul
and dtvencto = itab_zycbt005-dtvencto.
modify /pws/zycbt005 from itab_zycbt005.
perform monta_log_cfm using itab_zycbt005
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM GRAVA_CONTABILIZACAO
'5T'
* << Fim da inclusão
changing wa_log.
if sy-subrc eq 0.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
else.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'C'.
endif.
...
...
modify itab_zycbt002p transporting ftransf
where slvinc = 0 and
przcontr eq 'L'.
modify /pws/zycbt002 from table itab_zycbt002p.
modify /pws/zycbt069 from table itab_zycbt069.
endif.
commit work.
endform.
form monta_log_cfm using p_dados
p_tabela
* >> Início da inclusão: FORM MONTA_LOG_CFM
p_tipo
* << Fim da inclusão
changing p_wa_log.
data: t_prog(72) type c occurs 1000 with header line,
w_prog like trdir-name.
* >> Início da inclusão: FORM MONTA_LOG_CFM
data: v_chamada(50) type c,
wa_050e type /pws/zycbe050,
wa_050t type /pws/zycbt050,
wa_005t type /pws/zycbt005,
wa_006t type /pws/zycbt006.
* << Fim da inclusão
clear: t_prog, wa_log.
refresh: t_prog.
append 'report sy-repid. ' to t_prog.
append 'form log using p_dados ' to t_prog.
append ' p_tabela ' to t_prog.
append ' CHANGING P_WA_LOG. ' to t_prog.
if sy-saprl(3) ge '620' or sy-saprl(2) eq '47'. "#EC PORTABLE
append 'tables: dd03l. ' to t_prog.
append text-474 to t_prog.
append text-475 to t_prog.
...
...
append ' v_tam = v_tam + dd03l-intlen. ' to t_prog.
append ' else. ' to t_prog.
append text-483 to t_prog.
append ' v_tam = v_tam + dd03l-leng. ' to t_prog.
append ' endif. ' to t_prog.
append 'enddo. ' to t_prog.
else.
append 'p_wa_log = p_dados. ' to t_prog.
endif.
append 'endform. ' to t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
generate subroutine pool t_prog name w_prog.
if sy-subrc = 0.
perform log in program (w_prog) using p_dados
p_tabela
changing p_wa_log
if found.
endif.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
v_chamada = 'VINCULACAO'.
clear: wa_050e,
wa_050t,
wa_005t,
wa_006t.
case p_tipo.
when '50E'.
move p_dados to wa_050e.
when '50T'.
move p_dados to wa_050t.
when '5T'.
move p_dados to wa_005t.
when '6T'.
move p_dados to wa_006t.
endcase.
export: t_prog to memory id 'GEN001',
v_chamada to memory id 'GEN013',
p_tabela to memory id 'GEN031',
p_tipo to memory id 'GEN032',
wa_005t to memory id 'GEN034',
wa_006t to memory id 'GEN035',
wa_050t to memory id 'GEN036',
wa_050e to memory id 'GEN037'.
submit /pws/zyglr039 and return.
import: p_wa_log from memory id 'GEN029'.
* << Fim da inclusão
endform.
form get_parameters_002_cp using value(p_v_sinal).
data: v_nrdias type i,
v_prazo,
v_codaux like /pws/zyglt316-codaux1.
concatenate '003' /pws/zycbe005-tpcontr into v_codeven.
v_nrdias = /pws/zycbe006-dtpagto - /pws/zycbe005-dtvincul.
if v_nrdias > 360.
v_prazo = 'L'.
else.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR039
...
wa_trailer_lote_25 like itab_trailer_lote_25,
wa_trailer_arq_25 like itab_trailer_arq_25.
data: p_wa_log type char4000,
p_tipo(2) type c,
p_tabela(13) type c.
data: wa_001t type /pws/zycbt001,
wa_001e type /pws/zycbe001,
wa_002t type /pws/zycbt002,
wa_005t type /pws/zycbt005,
wa_006t type /pws/zycbt006.
* >> Início da inclusão:
data: wa_050t type /pws/zycbt050,
wa_050e type /pws/zycbe050.
* << Fim da inclusão
import: t_prog from memory id 'GEN001',
wa_header_arq_26 from memory id 'GEN003',
wa_header_lote_26 from memory id 'GEN004',
wa_det_segto_a_341_26 from memory id 'GEN005',
wa_det_segto_a_n341_26 from memory id 'GEN006',
wa_det_segto_b_26 from memory id 'GEN007',
wa_trailer_lote_26 from memory id 'GEN008',
wa_trailer_arq_26 from memory id 'GEN009',
v_chamada from memory id 'GEN013',
wa_header_arq_25 from memory id 'GEN014',
...
...
wa_iof from memory id 'GEN027'.
import: t_prog from memory id 'GEN001',
v_chamada from memory id 'GEN013',
wa_001t from memory id 'GEN028',
wa_001e from memory id 'GEN030',
wa_002t from memory id 'GEN033',
wa_005t from memory id 'GEN034',
wa_006t from memory id 'GEN035',
p_tabela from memory id 'GEN031',
p_tipo from memory id 'GEN032'.
* >> Início da inclusão:
import: t_prog from memory id 'GEN001',
v_chamada from memory id 'GEN013',
wa_050e from memory id 'GEN037',
wa_050t from memory id 'GEN036',
wa_005t from memory id 'GEN034',
wa_006t from memory id 'GEN035',
p_tabela from memory id 'GEN031',
p_tipo from memory id 'GEN032'.
* << Fim da inclusão
generate subroutine pool t_prog name w_prog.
if sy-subrc = 0.
if v_chamada = 'wa_header_arq_25'.
perform quebra_linha in program (w_prog) using wa_saida
wa_header_arq_25
if found.
elseif v_chamada = 'wa_header_lote_25'.
perform quebra_linha in program (w_prog) using wa_saida
wa_header_lote_25
if found.
...
...
p_tabela
changing p_wa_log
if found.
when '5T'.
perform quebra_linha in program (w_prog) using wa_005t
p_tabela
changing p_wa_log
if found.
when '6T'.
perform quebra_linha in program (w_prog) using wa_006t
* >> Início da inclusão:
p_tabela
changing p_wa_log
if found.
endcase.
export: p_wa_log to memory id 'GEN029'.
elseif v_chamada = 'VINCULACAO'.
case p_tipo.
when '5T'.
perform log in program (w_prog) using wa_005t
p_tabela
changing p_wa_log
if found.
when '6T'.
perform log in program (w_prog) using wa_006t
p_tabela
changing p_wa_log
if found.
when '50T'.
perform log in program (w_prog) using wa_050t
p_tabela
changing p_wa_log
if found.
when '50E'.
perform log in program (w_prog) using wa_050e
p_tabela
changing p_wa_log
if found.
endcase.
export: p_wa_log to memory id 'GEN029'.
elseif v_chamada = 'LIQUIDACAO'.
case p_tipo.
when '6T'.
perform log in program (w_prog) using wa_006t
* << Fim da inclusão
p_tabela
changing p_wa_log
if found.
endcase.
export: p_wa_log to memory id 'GEN029'.
endif.
endif.
export: wa_saida to memory id 'GEN002'.
leave program.