CE PLUS - Nota 010377
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 07/07/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:35:15
Descrição da Nota: PARAMETRO - CAPTAÇÃO - PROBLEMA CFM
Sintoma
Captação - problema CFM -quando campo está sim, ocorre dump
Solução
colocar o comando generate num submit para zerar a memoria e não estourar a qtde.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10377 Data: 07/07/2010 Hora: 16:51:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10377
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00029
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04798 - 00001 - 7.0 - 00003 - REMESSA - DA BASE CÁLCULO IMPOSTOS
04819 - 00002 - 7.0 - 00003 - CAPTAÇÃO - CRIAÇÃO AUTOMÁTICA DE PARCELAS DE ACC
04833 - 00003 - 7.0 - 00003 - CAPTAÇÕES DE CONTRATOS DE EXPORTAÇÃO
05240 - 00004 - 7.0 - 00003 - CAPTAÇÃO - PONTO DE EXIT CPT016
05724 - 00005 - 7.0 - 00004 - CODE INSPECTOR , VERIFICAÇÃO AMPLIADA , RELATORIOS GL
06700 - 00006 - 7.0 - 00005 - CAPTAÇÃO - ESTORNO DA CAPTAÇÃO DE PRE PAGAMENTO
07449 - 00007 - 7.0 - 00007 - ERRO NA BASE DE CALCULO NO PROGRAMA DE REMESSA
08510 - 00008 - 7.0 - 00009 - CODE INSPECTOR
09141 - 00009 - 8.0 - 00001 - LIQUIDAÇÃO DE ACC COM PRÉ PAGAMENTO - CONTA CONTABIL INCORRETA
09572 - 00010 - 8.0 - 00001 - CAPTAÇÃO, COM PRORROGAÇÃO
09661 - 00011 - 8.0 - 00002 - CAPTAÇÃO - CANCELAMENTO-MSG BANCO FINANCIADOR/NEGOCIADOR NÃO PREE
09953 - 00012 - 8.0 - 00002 - CAPTAÇÃO PRÉ PAGAMENTO, CONTABILIZAÇÃO
10191 - 00013 - 8.0 - 00003 - CAPTAÇÃO, PREENCHIMENTO SOCIEDADE PARCEIRA NA CONTABILIZAÇÃO
10271 - 00014 - 8.0 - 00003 - CAPTAÇÃO - LIQUIDAÇÃO DE ACC COM PRÉ
10331 - 00015 - 8.0 - 00004 - CODE INSPECTOR - PW.CE - CAMBIO
10343 - 00016 - 8.0 - 00004 - CODE INSPECTOR
----------------------------------------------------------------------------------------------------
PARAMETRO - CAPTAÇÃO - PROBLEMA CFM
----------------------------------------------------------------------------------------------------
Palavras Chave:
PARAMETRO CAPTAÇÃO - PROBLEMA CFM -QUANDO CAMPO ESTÁ SIM, OCORRE DUMP
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F02
REPS /PWS/MZYCB001F04
REPS /PWS/MZYCB001I01
REPS /PWS/ZYGLR039
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
endif.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbt001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM SAVE_ZYCBT001
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endselect.
endif.
endif.
clear v_ok.
if /pws/zycbe001-nrcontr ne wa_zycbt001-nrcontr.
perform refresh_zycbt004.
update /pws/zycbt005 set nrcontr = /pws/zycbe001-nrcontr
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = wa_zycbt001-nrseqc.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM SAVE_ZYCBT001
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endselect.
endif.
update /pws/zycbt006 set nrcontr = /pws/zycbe001-nrcontr
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
select *
from /pws/zycbt006
into wa_zycbt006_log
where nrseqc = wa_zycbt001-nrseqc.
perform monta_log_cfm using wa_zycbt006_log
'/PWS/ZYCBT006'
* >> Início da inclusão: FORM SAVE_ZYCBT001
'6T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT006'
wa_log
'A'.
endselect.
endif.
endif.
if v_opccme = 'X'.
perform estorna_dp_ccme.
perform save_zycbt226.
...
...
while sy-subrc ne 0.
perform find_nrseqc.
insert into /pws/zycbt001 values /pws/zycbe001.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
if sy-subrc eq 0.
commit work.
perform monta_log_cfm using /pws/zycbe001
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001
'1E'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'C'.
endif.
endif.
endif.
v_existe = 'S'.
endwhile.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
if sy-subrc eq 0.
commit work.
perform monta_log_cfm using /pws/zycbe001
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001
'1E'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'C'.
endif.
endif.
endif.
else.
modify /pws/zycbt001.
endif.
...
...
j_1bbranch = /pws/zycbe001-j_1bbranch
werks = /pws/zycbe001-werks
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM SAVE_ZYCBT001
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endselect.
endif.
update /pws/zycbt004 set: dtincl = v_dtvincul
benefic = /pws/zycbe001-bconegoc
where nrseqc = /pws/zycbe001-nrseqc
and tpdesp = 'J'.
...
...
move /pws/zycbe001 to wa_zycbt001.
move /pws/zycbe074 to wa_zycbt074.
else.
perform refresh_dependent_tables using v_ok 'SAVE'.
if v_ok ne 'N'.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbt001-tpcontr(1) ne 'C' and
/pws/zycbt001-tpcontr(1) ne 'E'.
perform monta_log_cfm using /pws/zycbt001
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbt001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbt001-nrseqc.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM SAVE_ZYCBT001
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endselect.
endif.
endif.
if /pws/zycbt001-tpcontr(1) = 'P' or
/pws/zycbe001-tpcontr(1) = 'S'.
if v_belnr2 is initial.
...
...
/pws/zycbe001-tpcontr(1) ne 'E'.
select *
from /pws/zycbt002
into wa_zycbt002_log
where nrseqc = /pws/zycbe001-nrseqc.
if /pws/zycbe001-tpcontr(1) eq 'T' and
wa_zycbt002_log-tpparc eq 'P'.
else.
perform monta_log_cfm using wa_zycbt002_log
'/PWS/ZYCBT002'
* >> Início da inclusão: FORM SAVE_ZYCBT002
'2T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT002'
wa_log
'E'.
endif.
endselect.
endif.
endif.
delete from /pws/zycbt002 where nrseqc = /pws/zycbe001-nrseqc.
if /pws/zycbe001-tpcontr+0(1) ca 'PS'.
...
...
move itab_zycbt002 to /pws/zycbt002.
modify /pws/zycbt002.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbt002-tpcontr(1) ne 'C' and
/pws/zycbt002-tpcontr(1) ne 'E'.
if /pws/zycbt002-tpcontr(1) eq 'T' and
/pws/zycbt002-tpparc eq 'P'.
else.
perform monta_log_cfm using /pws/zycbt002
'/PWS/ZYCBT002'
* >> Início da inclusão: FORM SAVE_ZYCBT002
'2T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT002'
wa_log
'C'.
endif.
endif.
endif.
check itab_zycbt002-tpcontr+0(1) ca 'PS'.
if itab_zycbt002-nrparc eq '001' or
itab_zycbt002-calc eq 'X'.
...
...
move itab_zycbt002 to /pws/zycbt002.
modify /pws/zycbt002.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
if /pws/zycbe001-tpcontr(1) eq 'T' and
/pws/zycbt002-tpparc eq 'P'.
else.
perform monta_log_cfm using /pws/zycbt002
'/PWS/ZYCBT002'
* >> Início da inclusão: FORM SAVE_ZYCBT002
'2T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT002'
wa_log
'C'.
endif.
endif.
endif.
check itab_zycbt002-tpcontr+0(1) ca 'PS'.
clear /pws/zycbt004.
select single * from /pws/zycbt004
...
...
move itab_zycbt002p to /pws/zycbt002.
modify /pws/zycbt002.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbt002-tpcontr(1) ne 'C' and
/pws/zycbt002-tpcontr(1) ne 'E'.
if /pws/zycbt002-tpcontr(1) eq 'T' and
/pws/zycbt002-tpparc eq 'P'.
else.
perform monta_log_cfm using /pws/zycbt002
'/PWS/ZYCBT002'
* >> Início da inclusão: FORM SAVE_ZYCBT002
'2T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT002'
wa_log
'C'.
endif.
endif.
endif.
if /pws/zycbe001-tpcontr(1) = 'T'.
perform move_itab_zycbt002p.
endif.
...
...
vlmi = /pws/zycbe001-vlmi
slpagar = /pws/zycbe001-slpagar
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM FILL_DATE1_F02
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
describe field wa_zycbt005_log into t_sydes.
...
...
if sy-subrc eq 0.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = v_nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM DELETE_ZYCBT001
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'E'.
endif.
endif.
delete from /pws/zycbt004 where nrseqc = v_nrseqc.
delete from /pws/zycbt001 where nrseqc = v_nrseqc.
data: wa_zycbe243 type /pws/zycbt243.
select *
...
...
/pws/zycbe001-tpcontr(1) ne 'E'.
select *
from /pws/zycbt002
into wa_zycbt002_log
where nrseqc = v_nrseqc.
if /pws/zycbe001-tpcontr(1) eq 'T' and
wa_zycbt002_log-tpparc eq 'P'.
else.
perform monta_log_cfm using wa_zycbt002_log
'/PWS/ZYCBT002'
* >> Início da inclusão: FORM DELETE_ZYCBT001
'2T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT002'
wa_log
'E'.
endif.
endselect.
endif.
endif.
delete from /pws/zycbt002 where nrseqc = v_nrseqc.
delete from /pws/zycbt003 where nrseqc = v_nrseqc.
...
...
and nrparc = /pws/zycbe004-nrparc.
if wa_zycbt007-cfm = 'X'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe004-nrseqc
and dtvincul = /pws/zycbe004-dtincl
and nrparc = /pws/zycbe004-nrparc.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM SAVE_ZYCBT004
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endselect.
endif.
endif.
if v_altdesp is initial.
select single * from /pws/zycbt004
where nrseqc = /pws/zycbe004-nrseqc
...
...
where nrseqc = /pws/zycbe001-nrseqc
and bukrs = /pws/zycbe001-bukrs.
if wa_zycbt007-cfm = 'X'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc eq /pws/zycbe001-nrseqc
and bukrs eq /pws/zycbe001-bukrs.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM SAVE_ZYCBT005
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endselect.
endif.
endform.
form grava_zycbt004.
if not /pws/zycbe004-vlme is initial and
not /pws/zycbe004-vlme eq '0.00'.
...
...
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM FILL_DATE1_F02_ME
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
where nrseqc = /pws/zycbe001-nrseqc
and belnr = space.
if wa_zycbt007-cfm = 'X'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc
and belnr = /pws/zycbe001-belnr.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM FILL_DATE1_F02_ME
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endselect.
endif.
endif.
commit work.
else.
loop at itab_zycbt032.
...
...
modify /pws/zycbt001.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT001_ME
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT001_ME
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
if estorno_ok eq 'S'.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = v_nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM DELETE_ZYCBT001_PRE1
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'E'.
endif.
endif.
if v_capital eq 'X'.
refresh: itab_zycbt218.
clear: v_belnr, itab_zycbt218.
select * from /pws/zycbt218
...
...
/pws/zycbe001-tpcontr(1) ne 'E'.
select *
from /pws/zycbt002
into wa_zycbt002_log
where nrseqc = v_nrseqc.
if /pws/zycbe001-tpcontr(1) eq 'T' and
wa_zycbt002_log-tpparc eq 'P'.
else.
perform monta_log_cfm using wa_zycbt002_log
'/PWS/ZYCBT002'
* >> Início da inclusão: FORM DELETE_ZYCBT001_PRE1
'2T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT002'
wa_log
'E'.
endif.
endselect.
endif.
endif.
if v_capital ne 'X'.
delete from /pws/zycbt002 where
...
...
from /pws/zycbt002
into wa_zycbt002_log
where nrseqc = itab_zycbt002p-nrseqc
and nrparc = itab_zycbt002p-nrparc
and tpparc = itab_zycbt002p-tpparc.
if /pws/zycbe001-tpcontr(1) eq 'T' and
wa_zycbt002_log-tpparc eq 'P'.
else.
perform monta_log_cfm using wa_zycbt002_log
'/PWS/ZYCBT002'
* >> Início da inclusão: FORM FILL_08_PRE_PAGAMENTO21
'2T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT002'
wa_log
'E'.
endif.
endif.
endif.
delete from /pws/zycbt002
where nrseqc = itab_zycbt002p-nrseqc and
nrparc = itab_zycbt002p-nrparc and
...
...
endloop.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
perform refresh_zycbt004.
update /pws/zycbt005 set nrcontr = /pws/zycbe001-nrcontr
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endselect.
endif.
update /pws/zycbt006 set nrcontr = /pws/zycbe001-nrcontr
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
select *
from /pws/zycbt006
into wa_zycbt006_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt006_log
'/PWS/ZYCBT006'
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
'6T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT006'
wa_log
'A'.
endselect.
endif.
endif.
perform save_zycbt002.
perform save_zycbt003.
perform save_zycbt005.
...
...
modify /pws/zycbt001 from /pws/zycbe001.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
while sy-subrc ne 0.
perform find_nrseqc.
insert into /pws/zycbt001 values /pws/zycbe001.
if wa_zycbt007-cfm = 'X'.
if sy-subrc eq 0.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
commit work.
perform monta_log_cfm using /pws/zycbe001
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
'1E'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'C'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
endwhile.
else.
modify /pws/zycbt001.
if wa_zycbt007-cfm = 'X'.
if sy-subrc eq 0.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
commit work.
perform monta_log_cfm using /pws/zycbe001
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
'1E'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
endif.
endif.
endif.
v_salvo_aux = 'X'.
move /pws/zycbe001-nrseqc to wa_zycbt001-nrseqc.
...
...
modify /pws/zycbt001.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
if v_ok ne 'N' and v_ok2 ne 'X'.
/pws/zycbe001-slvinc = /pws/zycbe001-slpagar =
/pws/zycbe001-slreserv = /pws/zycbe001-vlme.
endif.
modify /pws/zycbt001 from /pws/zycbe001.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
perform monta_log_cfm using /pws/zycbe001
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
'1E'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
from /pws/zycbt002
into wa_zycbt002_log
where nrseqc = /pws/zycbe001-nrseqc
and nrparc = itab_zycbt002p-nrparc
and tpparc = 'P'.
if /pws/zycbe001-tpcontr(1) eq 'T' and
wa_zycbt002_log-tpparc eq 'P'.
else.
perform monta_log_cfm using wa_zycbt002_log
'/PWS/ZYCBT002'
* >> Início da inclusão: FORM FILL_DATA_F30_LIQ
'2T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT002'
wa_log
'A'.
endif.
endselect.
endif.
endif.
modify itab_zycbt002p transporting belnr2 slvinc
where nrseqc = /pws/zycbe001-nrseqc
...
...
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM FILL_DATA_F30_LIQ
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
from /pws/zycbt002
into wa_zycbt002_log
where nrseqc = /pws/zycbe001-nrseqc
and nrparc = itab_zycbt002p-nrparc
and tpparc = 'P'.
if /pws/zycbe001-tpcontr(1) eq 'T' and
wa_zycbt002_log-tpparc eq 'P'.
else.
perform monta_log_cfm using wa_zycbt002_log
'/PWS/ZYCBT002'
* >> Início da inclusão: FORM CLEAR_ESTORNO_LIQ
'2T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT002'
wa_log
'A'.
endif.
endselect.
endif.
endif.
modify itab_zycbt002p transporting belnr2 slvinc
where nrseqc = /pws/zycbe001-nrseqc
...
...
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM CLEAR_ESTORNO_LIQ
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
endif.
move-corresponding /pws/zycbe001 to wa_zycbt001.
delete from /pws/zycbt004
where nrseqc eq /pws/zycbe001-nrseqc
and tpdesp eq 'JL'
...
...
from /pws/zycbt002
into wa_zycbt002_log
where nrseqc = /pws/zycbe001-nrseqc
and nrparc = itab_zycbt002p-nrparc
and tpparc = 'P'.
if /pws/zycbe001-tpcontr(1) eq 'T' and
wa_zycbt002_log-tpparc eq 'P'.
else.
perform monta_log_cfm using wa_zycbt002_log
'/PWS/ZYCBT002'
* >> Início da inclusão: FORM FILL_DATA_F30_LIQ_EST
'2T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT002'
wa_log
'A'.
endif.
endselect.
endif.
endif.
modify itab_zycbt002p transporting belnr2 slvinc
where nrseqc = /pws/zycbe001-nrseqc
...
...
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM FILL_DATA_F30_LIQ_EST
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
modify /pws/zycbt001.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbt001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
perform refresh_zycbt004.
update /pws/zycbt005 set nrcontr = /pws/zycbe001-nrcontr
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endselect.
endif.
update /pws/zycbt006 set nrcontr = /pws/zycbe001-nrcontr
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
select *
from /pws/zycbt006
into wa_zycbt006_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt006_log
'/PWS/ZYCBT006'
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
'6T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT006'
wa_log
'A'.
endselect.
endif.
endif.
perform save_zycbt002.
perform save_zycbt003.
perform save_zycbt005.
...
...
while sy-subrc ne 0.
perform find_nrseqc.
insert into /pws/zycbt001 values /pws/zycbe001.
if wa_zycbt007-cfm = 'X'.
if sy-subrc eq 0.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
commit work.
perform monta_log_cfm using /pws/zycbe001
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
'1E'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'C'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
endif.
v_existe = 'S'.
endwhile.
if wa_zycbt007-cfm = 'X'.
if sy-subrc eq 0.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
commit work.
perform monta_log_cfm using /pws/zycbe001
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
'1E'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'C'.
endif.
endif.
endif.
endif.
v_salvo_aux = 'X'.
move /pws/zycbe001-nrseqc to wa_zycbt001-nrseqc.
...
...
modify /pws/zycbt001.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
perform refresh_dependent_tables using v_ok 'SAVE'.
if v_ok ne 'N'.
modify /pws/zycbt001.
if wa_zycbt007-cfm = 'X'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM SAVE_ZYCBT001_TR
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if wa_zycbt001-belnr2 is initial and
wa_zycbt001-belnr_tr eq wa_zycbt001-belnr.
perform reverse_document_zycbt001.
else.
if wa_zycbt001-belnr2 is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F02
...
if wa_zycbt007-cfm = 'X'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
endif.
modify /pws/zycbt001.
if wa_zycbt007-cfm = 'X'.
perform monta_log_cfm using /pws/zycbt001
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM LANCA_PRE_PAGAMENTO_ACC
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
if /pws/zycbt001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbt001-nrseqc.
describe field wa_zycbt005_log into t_sydes.
...
...
modify /pws/zycbt001.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM LANCA_PRE_PAGAMENTO_ACC
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
from /pws/zycbt002
into wa_zycbt002_log
where nrseqc = itab_zycbt002p-nrseqc
and tpparc = 'P'
and nrparc = itab_zycbt002p-nrparc.
if /pws/zycbe001-tpcontr(1) eq 'T' and
wa_zycbt002_log-tpparc eq 'P'.
else.
perform monta_log_cfm using wa_zycbt002_log
'/PWS/ZYCBT002'
* >> Início da inclusão: FORM LANCAMENTO_PRE_ACC
'2T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT002'
wa_log
'A'.
endif.
endselect.
endif.
endif.
itab_contabil-nrseqpre = /pws/zycbe001-nrseqc.
itab_contabil-nrparpre = itab_zycbt002p-nrparc.
...
...
from /pws/zycbt002
into wa_zycbt002_log
where nrseqc = itab_zycbt002p-nrseqc
and tpparc = 'P'
and nrparc = itab_zycbt002p-nrparc.
if /pws/zycbe001-tpcontr(1) eq 'T' and
wa_zycbt002_log-tpparc eq 'P'.
else.
perform monta_log_cfm using wa_zycbt002_log
'/PWS/ZYCBT002'
* >> Início da inclusão: FORM LANCAMENTO_PRE_ACC
'2T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT002'
wa_log
'A'.
endif.
endselect.
endif.
endif.
v_prim = 'X'.
endloop.
...
...
where nrseqc = v_nrseqc.
/pws/zycbt001-f_pre = 'X'.
/pws/zycbt001-status = 'I'.
if wa_zycbt007-cfm = 'X'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = v_nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM ELIMINA_PRE_ACC
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'E'.
endif.
delete from /pws/zycbt001
where nrseqc = v_nrseqc.
commit work.
modify /pws/zycbt001.
if wa_zycbt007-cfm = 'X'.
select *
from /pws/zycbt002
into wa_zycbt002_log
where nrseqc = v_nrseqc.
if wa_zycbt001_log-tpcontr(1) eq 'T' and
wa_zycbt002_log-tpparc eq 'P'.
else.
perform monta_log_cfm using wa_zycbt002_log
'/PWS/ZYCBT002'
* >> Início da inclusão: FORM ELIMINA_PRE_ACC
'2T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT002'
wa_log
'E'.
endif.
endselect.
endif.
delete from /pws/zycbt002
where nrseqc = v_nrseqc.
delete from /pws/zycbt003 where nrseqc = v_nrseqc.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
commit work.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM FILL_DATA_F30
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
where nrseqc = /pws/zycbe001-nrseqc.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM CLEAR_ESTORNO
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbe001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe001-nrseqc.
...
...
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)
if found.
endif.
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,
* >> Início da inclusão: FORM MONTA_LOG_CFM
v_chamada(50) type c,
* << Fim da inclusão
w_prog like trdir-name.
* >> Início da inclusão: FORM MONTA_LOG_CFM
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.
* << Fim da inclusão
clear: t_prog, wa_log.
refresh: t_prog.
append 'report sy-repid. ' to t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
append 'form log using p_dados ' to t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
append 'form quebra_linha using p_dados ' to t_prog.
* << Fim da inclusão
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-471 to t_prog.
append text-472 to t_prog.
...
...
append ' v_tam = v_tam + dd03l-intlen. ' to t_prog.
append ' else. ' to t_prog.
append text-481 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 = 'CAPTACAO'.
clear: wa_001e,
wa_001t,
wa_002t,
wa_005t,
wa_006t.
case p_tipo.
when '1E'.
move p_dados to wa_001e .
when '1T'.
move p_dados to wa_001t.
when '2T'.
move p_dados to wa_002t .
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_001t to memory id 'GEN028',
wa_001e to memory id 'GEN030',
wa_002t to memory id 'GEN033',
wa_005t to memory id 'GEN034',
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 estorna_dp_ccme.
clear: v_vlr_ord,
v_vlr_ord_aux,
v_dif_fat.
select *
into table itab_zycbt241
from /pws/zycbt241
where nrseqc = /pws/zycbe001-nrseqc.
select *
...
...
endform.
form estorno_efetivo_contabilizacao.
data: v_ok.
perform refresh_dependent_tables using v_ok 'SAVE'.
if v_ok ne 'N'.
if wa_zycbt007-cfm = 'X'.
if /pws/zycbt001-tpcontr(1) ne 'C' and
/pws/zycbt001-tpcontr(1) ne 'E'.
perform monta_log_cfm using /pws/zycbt001
'/PWS/ZYCBT001'
* >> Início da inclusão: FORM ESTORNO_EFETIVO_CONTABILIZACAO
'1T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
endif.
if /pws/zycbt001-tpcontr eq 'E'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbt001-nrseqc.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: FORM ESTORNO_EFETIVO_CONTABILIZACAO
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endselect.
endif.
endif.
if /pws/zycbt001-tpcontr(1) = 'P' or
/pws/zycbe001-tpcontr(1) = 'S'.
if v_belnr2 is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
...
commit work.
if wa_zycbt007-cfm = 'X'.
select *
from /pws/zycbt005
into wa_zycbt005_log
where nrseqc = /pws/zycbe004-nrseqc
and dtvincul = /pws/zycbe004-dtincl
and nrparc = /pws/zycbe004-nrparc.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
* >> Início da inclusão: MODULE USER_COMMAND_0200
'5T'
* << Fim da inclusão
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endselect.
endif.
endif.
move-corresponding /pws/zycbe004 to wa_zycbe004_d.
clear: /pws/zycbe004.
move-corresponding wa_zycbe004_d to /pws/zycbe004.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR039
...
wa_det_segto_b_26 like itab_det_segto_b_26,
wa_trailer_lote_26 like itab_trailer_lote_26,
wa_trailer_arq_26 like itab_trailer_arq_26,
wa_header_arq_25 like itab_header_arq_25,
wa_header_lote_25 like itab_header_lote_25,
wa_detalhe_a_25 like itab_detalhe_a_25,
wa_detalhe_b_25 like itab_detalhe_b_25,
wa_detalhe_c_25 like itab_detalhe_c_25,
wa_trailer_lote_25 like itab_trailer_lote_25,
wa_trailer_arq_25 like itab_trailer_arq_25.
* >> Início da inclusão:
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.
* << 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_detalhe_c_25 from memory id 'GEN018',
wa_trailer_lote_25 from memory id 'GEN019',
wa_trailer_arq_25 from memory id 'GEN020',
vl_remessa from memory id 'GEN021',
wa_irrf from memory id 'GEN022',
wa_cide from memory id 'GEN023',
wa_pis from memory id 'GEN024',
wa_cofins from memory id 'GEN025',
wa_iss from memory id 'GEN026',
wa_iof from memory id 'GEN027'.
* >> Início da inclusão:
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'.
* << 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.
...
...
wa_irrf
wa_cide
wa_pis
wa_cofins
wa_iss
wa_iof
changing
vl_base
if found.
export: vl_base to memory id 'GEN028'.
* >> Início da inclusão:
elseif v_chamada = 'CAPTACAO'.
case p_tipo.
when '1T'.
perform quebra_linha in program (w_prog) using wa_001t
p_tabela
changing p_wa_log
if found.
when '1E'.
perform quebra_linha in program (w_prog) using wa_001e
p_tabela
changing p_wa_log
if found.
when '2T'.
perform quebra_linha in program (w_prog) using wa_002t
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
p_tabela
changing p_wa_log
if found.
endcase.
export: p_wa_log to memory id 'GEN029'.
* << Fim da inclusão
endif.
endif.
export: wa_saida to memory id 'GEN002'.
leave program.