CE PLUS - Nota 009221
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Agrupamento de Câmbio
Data/Hora da Publicação: 20/10/2009 00:00:00
Data/Hora Última Alteração: 11/03/2010 11:24:17
Descrição da Nota: CODE INSPECTOR CÂMBIO
Sintoma
CODE INSPECTOR CÂMBIO
Solução
CODE INSPECTOR CÂMBIO
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09221 Data: 20/10/2009 Hora: 09:28:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09221
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00119
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CODE INSPECTOR CÂMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR CÂMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCBA192
FUNC /PWS/ZYCBA290
FUNC /PWS/ZYCB_DADOS_BI
FUNC /PWS/ZYCM_ESTORNA_ASSOCIACAO
FUNC /PWS/ZYGL_DETERMINA_ESTR
FUNC /PWS/ZYGL_MODO_BATCH_INPUT
FUNC /PWS/ZYGL_RETORNA_STATUS
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCB005F01
REPS /PWS/MZYCB030F01
REPS /PWS/MZYCB030F02
REPS /PWS/MZYCB030F03
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB035F02
REPS /PWS/MZYCB104F01
REPS /PWS/MZYCB105F01
REPS /PWS/MZYCB106F01
REPS /PWS/MZYCB115F01
REPS /PWS/MZYCB115F02
REPS /PWS/MZYCB116F02
REPS /PWS/MZYCM101F01
REPS /PWS/MZYCM110F01
REPS /PWS/MZYGL002F01
REPS /PWS/MZYGL002I01
REPS /PWS/MZYGL003F01
REPS /PWS/MZYGL003I01
REPS /PWS/ZYCAR006
REPS /PWS/ZYCAR018
REPS /PWS/ZYCBN102
REPS /PWS/ZYCBR027
REPS /PWS/ZYCBR111
REPS /PWS/ZYCBR114
REPS /PWS/ZYCMR119
REPS /PWS/ZYGLR012
REPS /PWS/ZYGLR024A
REPS /PWS/ZYGLR032
REPS /PWS/ZZYCBGF3U10
REPS /PWS/ZZYCBGF3U11
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA192
...
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
parameter_unknown = 1
OTHERS = 2.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDLOOP.
UNASSIGN: <fs_shlp>, <fs_fielddescr>.
* >> Início da exclusão: FUNCTION /PWS/ZYCBA192
SELECT nrseq gsber FROM /pws/zycet001 INTO TABLE itab_zycet001.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA192
SELECT nrseq gsber
FROM /pws/zycet001
INTO TABLE itab_zycet001. "#EC CI_NOWHERE
* << Fim da inclusão
LOOP AT itab_dados ASSIGNING <fs_dados>.
v_tabix = sy-tabix.
READ TABLE itab_zycet001 WITH KEY
nrinvoic = <fs_dados>-nrinvoic(10).
IF sy-subrc NE 0 or NOT <fs_dados>-vlslf > 0.
DELETE record_tab INDEX v_tabix.
DELETE itab_dados.
ENDIF.
ENDLOOP.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA290
...
get parameter id 'KTOPL-109' field v_ktopl.
if callcontrol-step eq 'DISP'.
if v_operacao eq 'P'.
v_ktosl = 'DSF'.
else.
v_ktosl = 'RCF'.
endif.
refresh record_tab[].
select * from /pws/zycbt125
into table itab_zycbt125 where tpoper = v_operacao
* >> Início da exclusão: FUNCTION /PWS/ZYCBA290
and bukrs = v_bukrs.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA290
and bukrs = v_bukrs. "#EC CI_NOFIRST
* << Fim da inclusão
loop at itab_zycbt125.
clear: itab_zyglt316.
select * from /pws/zyglt316
into table itab_zyglt316
where bukrs = v_bukrs
and ktosl = v_ktosl
and codaux1 = itab_zycbt125-codpagto.
if sy-subrc = 0.
loop at itab_zyglt316.
t_konth-codpagto = itab_zycbt125-codpagto.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DADOS_BI
...
when 'DTFECH1'.
v_data_aux = i_zycbt006-dtpagto.
v_data_aux+6(2) = '01'.
v_databl = v_data_aux.
when 'DTLANC'.
v_databl = i_dtlanc.
when 'TXACE'.
select single taxa from /pws/zycbt169 into v_data_vin
where funcionalidade = 'VIN'
and tpcontr = i_tpcontr
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DADOS_BI
and tpcontabil = 'VIN'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DADOS_BI
and tpcontabil = 'VIN'. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0.
select * from /pws/zycbt168 into wa_zycbt168_aux
up to 1 rows
where tpcontabil = 'VIN'
and taxa = v_data_vin.
endselect.
if sy-subrc = 0.
case v_data_vin.
when 'DTEMB'.
select single dtemb
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_ESTORNA_ASSOCIACAO
...
itab_zycbt131_aux_[] to itab_zycbt131_aux[],
itab_zycbt108_[] to itab_zycbt108[].
loop at itab_zycbt131 where mark eq 'X'.
perform seleciona_parcelas.
if not itab_zycmt005[] is initial.
perform verifica_parcelas.
endif.
clear itab_zycbt131_aux.
refresh itab_zycbt131_aux.
select max( gjahr ) into v_gjahr from /pws/zycbt131
* >> Início da exclusão: FUNCTION /PWS/ZYCM_ESTORNA_ASSOCIACAO
where nrseq_pgfat = itab_zycbt131-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_ESTORNA_ASSOCIACAO
where nrseq_pgfat = itab_zycbt131-nrseq_pgfat. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc eq 0.
select max( belnr_as ) into v_belnras from /pws/zycbt131
where nrseq_pgfat eq itab_zycbt131-nrseq_pgfat
* >> Início da exclusão: FUNCTION /PWS/ZYCM_ESTORNA_ASSOCIACAO
and gjahr eq v_gjahr.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_ESTORNA_ASSOCIACAO
and gjahr eq v_gjahr. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc eq 0.
select * from /pws/zycbt131
UP TO 1 ROWS
into wa_zycbt131
where nrseq_pgfat eq itab_zycbt131-nrseq_pgfat
and gjahr eq v_gjahr
and belnr_as eq v_belnras
* >> Início da exclusão: FUNCTION /PWS/ZYCM_ESTORNA_ASSOCIACAO
and nrseq ne itab_zycbt131-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_ESTORNA_ASSOCIACAO
and nrseq ne itab_zycbt131-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
if sy-subrc eq 0.
case wa_zycbt131-mdcorresp.
when 'IF'.
concatenate text-090 wa_zycbt131-nrseq
into v_texto separated by space.
concatenate v_texto text-093 into v_texto2.
when 'IA'.
concatenate text-091 wa_zycbt131-nrseq
into v_texto separated by space.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DETERMINA_ESTR
...
/pws/zyglt350.
DATA: itab_zyglt339 LIKE /pws/zyglt339 OCCURS 0 WITH HEADER LINE,
itab_zyglt350 LIKE /pws/zyglt350 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zyglt342 OCCURS 0.
include structure /pws/zyglt342.
data: END OF itab_zyglt342.
DATA: v_change TYPE c,
v_lines type i,
v_tabix like sy-tabix,
v_del(1) type c.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_DETERMINA_ESTR
SELECT * FROM /pws/zyglt339 INTO TABLE itab_zyglt339.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_DETERMINA_ESTR
SELECT * FROM /pws/zyglt339 INTO TABLE itab_zyglt339. "#EC CI_NOWHERE
* << Fim da inclusão
IF sy-subrc EQ 0.
select * from /pws/zyglt350 into table itab_zyglt350
WHERE codmod = codmod
* >> Início da exclusão: FUNCTION /PWS/ZYGL_DETERMINA_ESTR
AND FRGGX = funcionalidade.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_DETERMINA_ESTR
AND frggx = funcionalidade. "#EC CI_NOFIRST
* << Fim da inclusão
loop at itab_zyglt350 where prctr ne space.
...
...
AND estrat = 'X'
AND montante <= v_totdep.
IF sy-subrc EQ 0.
SELECT * from /pws/zyglt342 INTO TABLE itab_zyglt342
WHERE frggx = funcionalidade
and codmod = codmod
AND ( valorinc <= v_totdep AND
valorfin >= v_totdep )
AND ( valde <= data
AND valate >= data )
* >> Início da exclusão: FUNCTION /PWS/ZYGL_DETERMINA_ESTR
AND elock NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_DETERMINA_ESTR
AND elock NE 'X'. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc eq 0.
select * from /pws/zyglt350 into table itab_zyglt350
for all entries in itab_zyglt342
WHERE FRGGR = itab_zyglt342-frggr and
CODMOD = itab_zyglt342-codmod and
FRGGX = itab_zyglt342-frggx and
VALORINC = itab_zyglt342-valorinc.
endif.
sort itab_zyglt350 by FRGGR.
sort itab_zyglt342 by FRGGR.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_MODO_BATCH_INPUT
...
DATA: BEGIN OF itab_zycbt039 OCCURS 3.
INCLUDE STRUCTURE /pws/zycbt039.
DATA: END OF itab_zycbt039.
DATA: BEGIN OF itab_modo OCCURS 3.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
DATA: v_answer(1) TYPE c.
SELECT *
FROM /pws/zycbt039
INTO TABLE itab_zycbt039
* >> Início da exclusão: FUNCTION /PWS/ZYGL_MODO_BATCH_INPUT
ORDER BY modo DESCENDING.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_MODO_BATCH_INPUT
ORDER BY modo DESCENDING. "#EC CI_NOWHERE
* << Fim da inclusão
IF sy-subrc NE 0.
RAISE options_not_found.
ENDIF.
CLEAR modo_bi.
LOOP AT itab_zycbt039.
itab_modo-selflag = itab_zycbt039-modo.
itab_modo-varoption = itab_zycbt039-descr.
APPEND itab_modo.
ENDLOOP.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_RETORNA_STATUS
...
DATA: END OF itab_t052.
DATA: BEGIN OF itab_zycit078 OCCURS 10."#EC *
INCLUDE STRUCTURE /pws/zycit078."#EC *
DATA: END OF itab_zycit078."#EC *
DATA: v_layout TYPE slis_layout_alv."#EC *
DATA: v_dias LIKE t052-ztag1.
IF NOT t_dados[] IS INITIAL.
SELECT * FROM /pws/zycbt108
INTO TABLE itab_zycbt108
FOR ALL ENTRIES IN t_dados
* >> Início da exclusão: FUNCTION /PWS/ZYGL_RETORNA_STATUS
WHERE nrseq_pgfat EQ t_dados-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_RETORNA_STATUS
WHERE nrseq_pgfat EQ t_dados-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT * FROM t052
INTO TABLE itab_t052
FOR ALL ENTRIES IN itab_zycbt108
WHERE zterm EQ itab_zycbt108-zterm.
ENDIF.
ENDIF.
LOOP AT t_dados.
IF t_dados-tpprocesso = 'F'.
READ TABLE itab_zycbt108 WITH KEY
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
where codeven = '003R'
and codmod = 'F'.
endselect.
select * from /pws/zyglt321
into table itab_zyglt321
where ktosl = 'RCF'
and codeven = '003R'.
endif.
select *
from /pws/zycat027
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
into table itab_zycat027.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
into table itab_zycat027. "#EC CI_NOWHERE
* << Fim da inclusão
endform.
form preenche_partida_multipla using p_tpimp.
data: v_vlirrf_aux like /pws/zycat025-vlimpme.
data: v_vlirrf(16) type p decimals 5,
v_tot like /pws/zycat025-vlimpme,
v_line type i.
loop at itab_zycbt141 where tpimp = p_tpimp.
itab_zycbe035-mandt = sy-mandt.
itab_zycbe035-tcode = 'F-63'.
itab_zycbe035-tabela = '/PWS/ZYCBT124'.
...
...
endselect.
if sy-subrc = 0.
select *
from bkpf
up to 1 rows
into wa_bkpf
where awkey = wa_vbfa-vbeln. "#EC CI_NOFIRST
endselect.
if sy-subrc = 0.
select * from /pws/zycat027 into table itab_zycat027
* >> Início da exclusão: FORM CRIAR_REMESSA_ORDEM
where shkzg = 'D'.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_ORDEM
where shkzg = 'D'. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0.
loop at itab_zycat027.
r_bschl-sign = 'I'.
r_bschl-option = 'BT'.
r_bschl-high = itab_zycat027-bschl.
append r_bschl.
endloop.
select * from bseg into table itab_bseg
where belnr = wa_bkpf-belnr
and bukrs = wa_bkpf-bukrs
...
...
if not bkpf-belnr is initial and
not bkpf-bukrs is initial and
not bkpf-gjahr is initial.
clear: itab_bseg, wa_bkpf.
refresh: itab_bseg.
select single * from bkpf into wa_bkpf
where belnr = bkpf-belnr
and bukrs = bkpf-bukrs
and gjahr = bkpf-gjahr.
if sy-subrc = 0.
* >> Início da exclusão: FORM CRIAR_REMESSA_DOC
select * from /pws/zycat027 into table itab_zycat027.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_DOC
select *
from /pws/zycat027
into table itab_zycat027. "#EC CI_NOWHERE
* << Fim da inclusão
if sy-subrc = 0.
loop at itab_zycat027.
r_bschl-sign = 'I'.
r_bschl-option = 'BT'.
r_bschl-high = itab_zycat027-bschl.
append r_bschl.
endloop.
select * from bseg into table itab_bseg
where belnr = wa_bkpf-belnr
and bukrs = wa_bkpf-bukrs
...
...
concatenate wa_rbkp-belnr wa_rbkp-gjahr into v_docmiro.
select *
from bkpf
up to 1 rows
into wa_bkpf
where gjahr = wa_rbkp-gjahr
and awkey = v_docmiro. "#EC CI_NOFIRST
endselect.
if sy-subrc = 0.
select * from /pws/zycat027 into table itab_zycat027
* >> Início da exclusão: FORM CRIAR_REMESSA_REVISAO
where shkzg = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_REVISAO
where shkzg = 'C'. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0.
loop at itab_zycat027.
r_bschl-sign = 'I'.
r_bschl-option = 'BT'.
r_bschl-high = itab_zycat027-bschl.
append r_bschl.
endloop.
select * from bseg into table itab_bseg
where belnr = wa_bkpf-belnr
and bukrs = wa_bkpf-bukrs
...
...
form desmembra_docto_provisao_prin.
data: v_koart_bi type /pws/zycat027-koart,
v_shkzg_bi type /pws/zycat027-shkzg.
perform clear_date_batch.
select single * from /pws/zycbt007
where bukrs eq /pws/zycbe124-bukrs.
select single * from /pws/zycbt089
where bukrs eq /pws/zycbe124-bukrs.
select single * from /pws/zyglt009
where bukrs eq /pws/zycbe124-bukrs.
* >> Início da exclusão: FORM DESMEMBRA_DOCTO_PROVISAO_PRIN
select * from /pws/zycat027 into table itab_zycat027.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_PRIN
select * from /pws/zycat027 into table itab_zycat027. "#EC CI_NOWHERE
* << Fim da inclusão
select *
from /pws/zycbt011
up to 1 rows
into wa_zycbt011
where codmod = 'F'
and codeven = '004P'.
endselect.
select * from /pws/zyglt321
into table itab_zyglt321
where ktosl = 'DSF'
...
...
read table itab_zycat025 with key tpimp(4) = 'IRRF'.
check erro_bi_principal is initial and
erro_bi_irrf is initial and
sy-subrc eq 0.
select single * from /pws/zycbt007
where bukrs eq /pws/zycbe124-bukrs.
select single * from /pws/zycbt089
where bukrs eq /pws/zycbe124-bukrs.
select single * from /pws/zyglt009
where bukrs eq /pws/zycbe124-bukrs.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR
select * from /pws/zycat027 into table itab_zycat027.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR
select * from /pws/zycat027 into table itab_zycat027. "#EC CI_NOWHERE
* << Fim da inclusão
if sy-index <= 1.
select *
from /pws/zycbt011
up to 1 rows
into wa_zycbt011
where codmod = 'F'
and codeven = '004P'.
endselect.
select * from /pws/zyglt321
into table itab_zyglt321
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
clear: wa_zycbt117-belnr_p,
wa_zycbt117-dtpagto.
modify /pws/zycbt117 from wa_zycbt117.
when 'IF'.
clear itab_zycbt064.
refresh itab_zycbt064.
select *
from /pws/zycbt064
into table itab_zycbt064
where nrboleto eq /pws/zycbe031-nrseq and
* >> Início da exclusão: FORM ESTORNA_COMPENS
dtboleto eq /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMPENS
dtboleto eq /pws/zycbe031-dtboleto. "#EC CI_NOFIRST
* << Fim da inclusão
loop at itab_zycbt064.
clear wa_zycbt113.
select single * from /pws/zycbt113
into wa_zycbt113
where nrseq eq itab_zycbt064-nrchave
and nrparc eq itab_zycbt064-nrparc
and tpparc eq itab_zycbt064-tpparc.
clear wa_zycbt112.
select single * from /pws/zycbt112
into wa_zycbt112
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB005F01
...
endif.
endform.
form carrega_liquidacao.
clear: itab_zycbt209.
refresh: itab_zycbt209.
select *
from /pws/zycbt209
into table itab_zycbt209
where nrinvoic = itab_zycbt017-nrinvoic and
nrparcf = itab_zycbt017-nrparcf and
* >> Início da exclusão: FORM CARREGA_LIQUIDACAO
gsberf = itab_zycbt017-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_LIQUIDACAO
gsberf = itab_zycbt017-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
endform.
form carrega_vme.
clear: itab_zycbt226.
refresh: itab_zycbt226.
select *
from /pws/zycbt226
into table itab_zycbt226
where nrinvoic = itab_zycbt017-nrinvoic and
nrparcf = itab_zycbt017-nrparcf and
gsberf = itab_zycbt017-gsberf.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB030F01
...
into table itab_zycbt005
for all entries in itab_nrseq
where nrinvoic eq itab_nrseq-nrinvoic. "#EC CI_NOFIRST
select * from /pws/zycbt006
into table itab_zycbt006
for all entries in itab_nrseq
where nrinvoic = itab_nrseq-nrinvoic. "#EC CI_NOFIRST
select * from /pws/zycbt209
into table itab_zycbt209
for all entries in itab_nrseq
* >> Início da exclusão: FORM SELECIONA_DADOS
where nrinvoic = itab_nrseq-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
where nrinvoic = itab_nrseq-nrinvoic. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
endif.
elseif not itab_zycbt161[] is initial.
if v_ordven = 'X' or v_iteov = 'X'.
select nrseq vbeln_va vbeln_vf posnr docnum
vbeln_vl posnl aupos shkzg vlme
from /pws/zycet002
into table itab_zycet002
for all entries in itab_zycbt161
where vbeln_va = itab_zycbt161-vbeln_va.
delete adjacent duplicates from itab_zycet002
comparing nrseq vbeln_va
vbeln_vf posnr docnum vbeln_vl posnl.
else.
select nrseq vbeln_va vbeln_vf posnr docnum
vbeln_vl posnl aupos shkzg vlme
from /pws/zycet002
into table itab_zycet002
for all entries in itab_zycbt161
* >> Início da exclusão: FORM SELECIONA_DADOS
where vbeln_vl = itab_zycbt161-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
where vbeln_vl = itab_zycbt161-vbeln_va. "#EC CI_NOFIRST
* << Fim da inclusão
delete adjacent duplicates from itab_zycet002
comparing nrseq vbeln_vl.
endif.
select * from /pws/zycet014
into table itab_zycet014
for all entries in itab_zycet002
where nrseq = itab_zycet002-nrseq.
select * from /pws/zycet001
into table itab_zycet001
for all entries in itab_zycet002
...
...
into table itab_zycbt005
for all entries in itab_nrseq
where nrinvoic eq itab_nrseq-nrinvoic. "#EC CI_NOFIRST
select * from /pws/zycbt006
into table itab_zycbt006
for all entries in itab_nrseq
where nrinvoic = itab_nrseq-nrinvoic. "#EC CI_NOFIRST
select * from /pws/zycbt209
into table itab_zycbt209
for all entries in itab_nrseq
* >> Início da exclusão: FORM SELECIONA_DADOS
where nrinvoic = itab_nrseq-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
where nrinvoic = itab_nrseq-nrinvoic. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
endif.
sort itab_zycet002 by nrseq.
move: /pws/zycbe092 to wa_zycbt092,
/pws/zycbe093 to wa_zycbt093,
/pws/zycbe094 to wa_zycbt094,
/pws/zycbe095 to wa_zycbt095,
itab_zycbt096[] to itab_zycbt096x[],
itab_zycbt096[] to itab_zycbt096_aux2[],
itab_zycbt161[] to itab_zycbt161x[],
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB030F02
...
move-corresponding /pws/zycbe092 to /pws/zycbe156.
/pws/zycbe156-dtincl = sy-datum.
perform nrseq_desp.
move-corresponding /pws/zycbe156 to wa_zycbt156.
endform.
form modo_batch_input.
clear: /pws/zycbt039, itab_modo.
refresh: itab_modo.
select * from /pws/zycbt039.
itab_modo-selflag = /pws/zycbt039-modo.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
itab_modo-varoption = /pws/zycbt039-descr.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
itab_modo-varoption = /pws/zycbt039-descr. "#EC CI_NOWHERE
* << Fim da inclusão
append itab_modo.
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-047
textline2 = text-048
titel = text-049
importing
answer = v_modo_bi
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB030F03
...
IF v_ordven = 'X' OR v_iteov = 'X'.
SELECT nrseq INTO /pws/zycet002-nrseq
FROM /pws/zycet002
UP TO 1 ROWS
WHERE vbeln_va EQ itab_zycbt096-vbeln_va.
ENDSELECT.
ELSE.
SELECT nrseq INTO /pws/zycet002-nrseq
UP TO 1 ROWS
FROM /pws/zycet002
* >> Início da exclusão: FORM VERIFICA_STATUS
WHERE vbeln_vl EQ itab_zycbt096-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_STATUS
where vbeln_vl eq itab_zycbt096-vbeln_va. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
ENDIF.
IF sy-subrc EQ 0.
MOVE 'X' TO v_scarta.
EXIT.
ENDIF.
ENDLOOP.
ELSEIF NOT itab_zycbt161[] IS INITIAL.
LOOP AT itab_zycbt161.
IF v_ordven = 'X' OR v_iteov = 'X'.
SELECT nrseq INTO /pws/zycet002-nrseq
UP TO 1 ROWS
FROM /pws/zycet002
WHERE vbeln_va EQ itab_zycbt161-vbeln_va.
ENDSELECT.
ELSE.
SELECT nrseq INTO /pws/zycet002-nrseq
UP TO 1 ROWS
FROM /pws/zycet002
* >> Início da exclusão: FORM VERIFICA_STATUS
WHERE vbeln_vl EQ itab_zycbt161-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_STATUS
where vbeln_vl eq itab_zycbt161-vbeln_va. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
ENDIF.
IF sy-subrc EQ 0.
MOVE 'X' TO v_scarta.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
itab_zycet010,
itab_zycet013.
refresh: itab_zycet010,
itab_zycet013.
select single * from /pws/zycbt017
into itab_zycbt017_cg
where nrinvoic eq <fs_op>-nrinvoic
and nrparcf eq <fs_op>-nrparcf.
select single * from /pws/zycbt037
into itab_zycbt037_cg
* >> Início da exclusão: FORM LIQUIDA_COMISSAO_AGENTE
where parvw eq itab_zycbt017_cg-parvw.
* << Fim da exclusão
* >> Início da inclusão: FORM LIQUIDA_COMISSAO_AGENTE
where parvw eq itab_zycbt017_cg-parvw. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc ne 0.
if itab_zycbt017_cg-parvw eq 'AD' or
itab_zycbt017_cg-parvw eq 'DA'.
select single * from /pws/zycbt037
into itab_zycbt037_cg
where parvw eq 'AD' or
* >> Início da exclusão: FORM LIQUIDA_COMISSAO_AGENTE
parvw eq 'DA'.
* << Fim da exclusão
* >> Início da inclusão: FORM LIQUIDA_COMISSAO_AGENTE
parvw eq 'DA'. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
endif.
check itab_zycbt037_cg-codpad eq 'G'
or itab_zycbt037_cg-codpad eq 'D'.
select single * from /pws/zycet037
where bukrs eq <fs_op>-bukrs.
if sy-subrc ne 0.
select single * from /pws/zycet037
where bukrs eq space.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F02
...
FROM t001
INTO TABLE itab_t001.
SELECT werks j_1bbranch
FROM t001w
INTO TABLE itab_t001w.
SELECT *
FROM /pws/zycbt007
INTO TABLE itab_zycbt007.
SELECT *
FROM /pws/zycbt089
* >> Início da exclusão: FORM CARREGA_PARAMETROS
INTO TABLE itab_zycbt089.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
into table itab_zycbt089. "#EC CI_NOWHERE
* << Fim da inclusão
SELECT codpadr kurst
FROM /pws/zycbt009
INTO TABLE itab_zycbt009.
SELECT codeven codmod bukrs ctmoed blart koart agums txtdesc
FROM /pws/zycbt011
* >> Início da exclusão: FORM CARREGA_PARAMETROS
INTO TABLE itab_zycbt011.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
into table itab_zycbt011. "#EC CI_NOWHERE
* << Fim da inclusão
SELECT modo descr
FROM /pws/zycbt039
* >> Início da exclusão: FORM CARREGA_PARAMETROS
INTO TABLE itab_zycbt039.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
into table itab_zycbt039. "#EC CI_NOWHERE
* << Fim da inclusão
SELECT ktosl codeven cpor3 cpocb descr
FROM /pws/zyglt321
* >> Início da exclusão: FORM CARREGA_PARAMETROS
INTO TABLE itab_zyglt321.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
into table itab_zyglt321. "#EC CI_NOWHERE
* << Fim da inclusão
SELECT vktrt dtvrc
FROM /pws/zycet048
INTO TABLE itab_zycet048.
SELECT vktra_ci vktra
FROM /pws/zycit054
* >> Início da exclusão: FORM CARREGA_PARAMETROS
INTO TABLE itab_zycit054.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
into table itab_zycit054. "#EC CI_NOWHERE
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = c_codmod
i_func = c_programa
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
...
...
FORM seleciona_dados_liq_andamento
USING value(p_wa_fatura) TYPE t_s_fatura.
CHECK NOT p_wa_fatura IS INITIAL.
SELECT bukrs nrinvoic belnr nrparcf gsberf dtincl waers saldo belnr2
dtbelnr koart hkont umskz
FROM /pws/zycbt209
INTO TABLE itab_zycbt209
WHERE
nrinvoic = p_wa_fatura-nrinvoic AND
nrparcf = p_wa_fatura-nrparcf AND
* >> Início da exclusão: FORM SELECIONA_DADOS_LIQ_ANDAMENTO
gsberf = p_wa_fatura-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_LIQ_ANDAMENTO
gsberf = p_wa_fatura-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
ENDFORM.
FORM seleciona_dados_associacao
USING
value(p_wa_fatura) TYPE t_s_fatura
value(p_nrseq) TYPE /pws/zycbt229-nrseq_remessa
value(p_dtassoc) TYPE /pws/zycbt227-dtassoc.
CHECK NOT ( p_wa_fatura IS INITIAL AND p_nrseq IS INITIAL ).
IF NOT p_wa_fatura IS INITIAL.
SELECT *
FROM /pws/zycbt227
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB104F01
...
endform.
form calcula_valor_pedido.
if not /pws/zycbe117-ebeln is initial.
refresh : itab_zycit030, itab_ekpo, itab_konv.
clear : itab_zycit030, itab_ekpo, itab_konv, v_vlrpedido, ekko.
select single * from ekko
into ekko
where ebeln eq /pws/zycbe117-ebeln.
select * from /pws/zycit031
up to 1 rows
* >> Início da exclusão: FORM CALCULA_VALOR_PEDIDO
where inco1 eq ekko-inco1.
endselect. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_VALOR_PEDIDO
where inco1 eq ekko-inco1. "#EC CI_NOFIRST
endselect.
* << Fim da inclusão
if sy-subrc = 0.
select * from /pws/zycit030
into table itab_zycit030
where codmod eq 'D' and
codigo eq /pws/zycit031-inco1_ci. "#EC CI_NOFIRST
endif.
select * from ekpo
into table itab_ekpo
where ebeln eq /pws/zycbe117-ebeln
and loekz ne ' '.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB106F01
...
itab_zycbt123_cp-ncm TO itab_zycbt123-ncm,
'P' TO itab_zycbt123-tpdoc.
MOVE: /pws/zycbe119-nrseq TO /pws/zycbe123-nrcorresp,
itab_zycbt123_cp-ncm TO /pws/zycbe123-ncm.
APPEND itab_zycbt123.
ENDLOOP.
ENDFORM.
FORM modo_batch_input.
CLEAR: /pws/zycbt039, itab_modo.
REFRESH: itab_modo.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
SELECT * FROM /pws/zycbt039.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
select * from /pws/zycbt039. "#EC CI_NOWHERE
* << Fim da inclusão
itab_modo-selflag = /pws/zycbt039-modo.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
itab_modo-varoption = /pws/zycbt039-descr. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
itab_modo-varoption = /pws/zycbt039-descr.
* << Fim da inclusão
APPEND itab_modo.
ENDSELECT.
SORT itab_modo DESCENDING.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F01
...
wa_zycbt007-saida_auto is initial ) or
itab_zycbt134-mdcorresp eq 'IA' or
( itab_zycbt134-mdcorresp eq 'ED' and
/pws/zycbt031-tabela eq '/PWS/ZYCBT118' ) or
itab_zycbt134-mdcorresp eq 'ID' ).
if itab_zycbt134-mdcorresp = 'IP'.
select *
up to 1 rows
from /pws/zycbt108
into /pws/zycbt108
* >> Início da exclusão: FORM EXECUTA_BATCH
where nrseq_pgfat = itab_zycbt134-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
where nrseq_pgfat =
itab_zycbt134-nrcorresp. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
if sy-subrc = 0 and
not /pws/zycbt108-belnr_lq is initial.
v_dtcredpr = /pws/zycbt108-dtassoc.
elseif sy-subrc = 0 and
not /pws/zycbt108-belnr_co is initial.
v_dtcredpr = /pws/zycbt108-dtincl.
endif.
elseif itab_zycbt134-mdcorresp = 'ID'.
select *
...
...
refresh: itab_zycbt112, itab_zycbt117, itab_zycbt118, itab_zycbt119,
itab_zycbt124, itab_zycbt128, itab_zycbt001, itab_zycbt064,
itab_zycbt001, itab_zycbt004, itab_zycbt017, itab_zycet010,
itab_zycbt129, itab_zycbt031, itab_zycat025.
endif.
if not it_zycbt134[] is initial.
select * from /pws/zycbt064
into table itab_zycbt064
for all entries in it_zycbt134
where nrboleto eq it_zycbt134-nrseq
* >> Início da exclusão: FORM SELECIONA_DADOS_ORIGEM
and dtboleto eq it_zycbt134-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ORIGEM
and dtboleto eq it_zycbt134-dtboleto. "#EC CI_NOFIRST
* << Fim da inclusão
select * from /pws/zycbt031
into table itab_zycbt031
for all entries in it_zycbt134
where nrseq eq it_zycbt134-nrseq
and dtboleto eq it_zycbt134-dtboleto.
if not itab_zycbt064[] is initial.
select * from /pws/zycbt112
into table itab_zycbt112
for all entries in itab_zycbt064
where nrseq eq itab_zycbt064-nrchave.
...
...
for all entries in itab_aux
where nrseqc = itab_aux-nrseqc.
select * from /pws/zycbt017
into table itab_zycbt017. "#EC CI_NOWHERE
select * from /pws/zycet010
into table itab_zycet010. "#EC CI_NOWHERE
select * from /pws/zycet013
into table itab_zycet013. "#EC CI_NOWHERE
select * from /pws/zycet033 into table itab_zycet033
for all entries in itab_zycbt064
* >> Início da exclusão: FORM SELECIONA_DADOS_ORIGEM
where nrpres = itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ORIGEM
where nrpres = itab_zycbt064-nrchave. "#EC CI_NOFIRST
* << Fim da inclusão
if not itab_zycet033[] is initial.
select *
from /pws/zycet001
into table itab_zycet001
for all entries in itab_zycet033
where nrseq = itab_zycet033-nrseq.
endif.
select * from /pws/zycbt119
into table itab_zycbt119
for all entries in itab_zycbt064
...
...
for all entries in itab_zycbt064
where nrseq eq itab_zycbt064-nrchave.
select * from /pws/zycbt124
into table itab_zycbt124
for all entries in itab_zycbt064
where nrseq eq itab_zycbt064-nrchave.
if not itab_zycbt124[] is initial.
select * from /pws/zycat025
into table itab_zycat025
for all entries in itab_zycbt124
* >> Início da exclusão: FORM SELECIONA_DADOS_ORIGEM
where nrseq eq itab_zycbt124-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ORIGEM
where nrseq eq itab_zycbt124-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
select * from /pws/zycat024 into table itab_zycat024.
endif.
select * from /pws/zycbt128
into table itab_zycbt128
for all entries in itab_zycbt064
where nrseq eq itab_zycbt064-nrchave.
if not itab_zycbt128[] is initial.
select * from /pws/zycbt129
into table itab_zycbt129
for all entries in itab_zycbt128
...
...
select *
up to 1 rows
from /pws/zycbt145
where nrseq eq itab_zycbt134_pagos-nrseq.
endselect.
select *
up to 1 rows
from /pws/zycbt007
where bukrs eq itab_zycbt134_pagos-bukrs.
endselect.
* >> Início da exclusão: FORM ESTORNA_PAGAMENTOS
select belnr_co
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_PAGAMENTOS
select belnr_co "#EC CI_NOFIRST
* << Fim da inclusão
up to 1 rows
from /pws/zycbt108
into /pws/zycbt108-belnr_co
where nrseq_pgfat = itab_zycbt134_pagos-nrcorresp.
endselect.
if not /pws/zycbt007-saida_auto is initial and
/pws/zycbt145-cod_fech ne 'TR' and
not /pws/zycbt108-belnr_co is initial.
message i061 with text-272 text-273
text-274 itab_zycbt134_pagos-nrseq.
...
...
form fill_data_fbra.
data: v_dtcredpr like /pws/zycbt031-dtcredpr,
v_dtcredir like /pws/zycbt031-dtcredir,
v_dtcide like /pws/zycbt031-dtcide,
v_belnr like /pws/zycbt154-belnr_cl,
v_bcoc like /pws/zycbt134-bcocred,
v_dtfb08 like /pws/zycbe033-gjahs,
v_transacao(4) type c,
v_ano1(4) type n.
select single * from /pws/zycbt232 into wa_zycbt232
* >> Início da exclusão: FORM FILL_DATA_FBRA
where nrboleto = itab_zycbt134_estorno-nrseq
and tpproc = itab_zycbt134_estorno-tpproc.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
where nrboleto = itab_zycbt134_estorno-nrseq
and tpproc = itab_zycbt134_estorno-tpproc. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0.
if itab_zycbt134_estorno-tpproc(4) = 'IRRF'.
v_belnr = itab_zycbt134_estorno-belnr_ci.
else.
if not /pws/zycbt145-belnr_saida is initial.
v_belnr = /pws/zycbt145-belnr_saida.
else.
v_belnr = itab_zycbt134_estorno-belnr_c.
endif.
endif.
...
...
endselect.
if ( itab_zycbt134_estorno-tpproc eq ' ' or
itab_zycbt134_estorno-tpproc eq 'PRINCIPAL' ) and
itab_zycbt134_estorno-mdcorresp eq 'CP' and
/pws/zycbt145-cod_fech ne 'TR'.
refresh itab_zycbt064_aux.
select *
from /pws/zycbt064
into table itab_zycbt064_aux
where nrboleto = itab_zycbt134_estorno-nrseq and
* >> Início da exclusão: FORM FILL_DATA_FBRA
mdcorresp = itab_zycbt134_estorno-mdcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
mdcorresp = itab_zycbt134_estorno-mdcorresp. "#EC CI_NOFIRST
* << Fim da inclusão
loop at itab_zycbt064_aux.
loop at itab_zycbt124 where nrseq eq itab_zycbt064_aux-nrchave
and ( criacao eq 'R' or criacao eq 'D' )
and tpoper eq 'P'
and frpagto eq 'C'
and buzei gt 0
and belnr_f51 ne '0000000000'
and belnr_f51 ne ' '.
read table itab_zycat025 with key tpimp(4) = 'IRRF'
nrseq = itab_zycbt124-nrseq.
...
...
from /pws/zycit006
where nrseq = itab_zycbt119-nrpagto.
endselect.
else.
sy-subrc = 4.
endif.
if sy-subrc = 0.
select max( dtassoc ) from /pws/zycbt131
into /pws/zycbt131-dtassoc
where belnr = itab_zycbt119-nrpagto
* >> Início da exclusão: FORM DRILL_DOWN
and nrseq_pgfat = itab_zycbt119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN
and nrseq_pgfat = itab_zycbt119-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0 and not /pws/zycbt131-dtassoc is initial.
v_date = /pws/zycbt131-dtassoc.
else.
v_date = /pws/zycbt108-bldat.
endif.
else.
select *
from /pws/zycbt108
* >> Início da exclusão: FORM DRILL_DOWN
where nrseq_pgfat = itab_zycbt119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN
where nrseq_pgfat = itab_zycbt119-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
if sy-subrc = 0.
if not /pws/zycbt108-belnr_co is initial.
v_date = /pws/zycbt108-bldat.
else.
v_date = itab_zycbt031-dtcredpr.
endif.
endif.
endif.
endif.
...
...
from /pws/zycit006
where nrseq = itab_zycbt119-nrpagto.
endselect.
else.
sy-subrc = 4.
endif.
if sy-subrc = 0.
select max( dtassoc ) from /pws/zycbt131
into /pws/zycbt131-dtassoc
where belnr = itab_zycbt119-nrpagto
* >> Início da exclusão: FORM DRILL_DOWN_PAGOS
and nrseq_pgfat = itab_zycbt119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_PAGOS
and nrseq_pgfat = itab_zycbt119-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0 and
not /pws/zycbt131-dtassoc is initial.
v_date = /pws/zycbt131-dtassoc.
else.
v_date = /pws/zycbt108-bldat.
endif.
else.
select *
up to 1 rows
from /pws/zycbt108
* >> Início da exclusão: FORM DRILL_DOWN_PAGOS
where nrseq_pgfat = itab_zycbt119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_PAGOS
where nrseq_pgfat = itab_zycbt119-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
if sy-subrc = 0.
if not /pws/zycbt108-belnr_co is initial.
v_date = /pws/zycbt108-bldat.
else.
v_date = itab_zycbt031-dtcredpr.
endif.
endif.
endif.
endif.
...
...
move-corresponding itab_zycbt134aux to itab_zycbt134_sel.
append itab_zycbt134_sel.
endif.
endif.
endloop.
if not itab_zycbt134_sel[] is initial.
select *
from /pws/zycbt064
into table itab_zycbt064
for all entries in itab_zycbt134_sel
* >> Início da exclusão: FORM SELECIONA_PROVISIONADOS
where nrboleto = itab_zycbt134_sel-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PROVISIONADOS
where nrboleto = itab_zycbt134_sel-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
if not v_import is initial and
not itab_zycbt064[] is initial.
select *
from /pws/zycbt154
into table itab_zycbt154
for all entries in itab_zycbt064
where nrcorresp = itab_zycbt064-nrchave and
codmod = 'I'.
endif.
...
...
if itab_zycbt134_estorno-mdcorresp eq 'ED'.
clear itab_zycbt031_aux.
read table itab_zycbt031_aux
with key nrseq = itab_zycbt134_estorno-nrseq.
select *
from /pws/zycbt154
into table itab_zycbt154
for all entries in itab_zycbt134_estorno
where nrcorresp eq itab_zycbt134_estorno-nrcorresp and
( codmodul like '%D' or codmodul like '%F' ) and
* >> Início da exclusão: FORM VERIFICA_DOCUMENTOS_CLEARING
belnr_cl ne space.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DOCUMENTOS_CLEARING
belnr_cl ne space. "#EC CI_NOFIRST
* << Fim da inclusão
elseif itab_zycbt134_estorno-mdcorresp eq 'EO'.
loop at itab_zycbt134_estorno
where mdcorresp eq 'EO'.
clear: itab_zycbt031, itab_dif_comissao.
read table itab_zycbt031
with key mdcorresp = itab_zycbt134_estorno-mdcorresp
nrseq = itab_zycbt134_estorno-nrseq
transporting nrparc tpcontr.
itab_dif_comissao-tpcontr = itab_zycbt031-tpcontr.
itab_dif_comissao-codint = itab_zycbt031-nrparc.
...
...
nrcorresp eq itab_dif_comissao-nrcorresp and
( codmodul like '%D' or codmodul like '%F' ) and
belnr_cl ne space.
else.
select *
from /pws/zycbt154
into table itab_zycbt154
for all entries in itab_zycbt134_estorno
where nrcorresp eq itab_zycbt134_estorno-nrcorresp and
( codmodul like '%D' or codmodul like '%F' ) and
* >> Início da exclusão: FORM VERIFICA_DOCUMENTOS_CLEARING
belnr_cl ne space.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DOCUMENTOS_CLEARING
belnr_cl ne space. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
endif.
if not itab_zycbt154[] is initial.
loop at itab_zycbt154.
if itab_zycbt154-codmodul(1) = 'I' or
itab_zycbt154-codmodul(1) = 'J'.
v_codmodul = 'J'.
elseif itab_zycbt154-codmodul(1) = 'C'.
v_codmodul = 'C'.
endif.
...
...
free: itab_zycbt064, itab_zycet010.
clear /pws/zyglt009.
select *
up to 1 rows
from /pws/zyglt009
where bukrs eq itab_zycbt031-bukrs.
endselect.
select *
from /pws/zycbt064
into table itab_zycbt064
* >> Início da exclusão: FORM SELECIONA_DADOS_EL
where nrboleto eq itab_zycbt031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_EL
where nrboleto eq itab_zycbt031-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
if /pws/zycet037-comis_provisao = '0'
or /pws/zycet037-comis_provisao is initial.
if not itab_zycbt064[] is initial.
select *
from /pws/zycet010
into table itab_zycet010
for all entries in itab_zycbt064
where
nrseq eq itab_zycbt064-nrchave and
dtvencto eq itab_zycbt064-dtvencto and
...
...
for all entries in itab_zycbt064
where nrseq eq itab_zycbt064-nrinvoic(10) and
lifnr eq itab_zycbt064-lifnr and
gsber eq itab_zycbt064-gsberf and
prctr eq itab_zycbt064-prctr.
endif.
endif.
select *
up to 1 rows
from /pws/zycbt037
* >> Início da exclusão: FORM SELECIONA_DADOS_EL
where parvw eq /pws/zycbt017-parvw.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_EL
where parvw eq /pws/zycbt017-parvw. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
endform.
form limpa_status.
if itab_zycbt134-tpproc = ' ' or itab_zycbt134-tpproc = 'PRINCIPAL'.
clear itab_zycbt134-statusp.
modify itab_zycbt134 transporting statusp
where nrseq = itab_zycbt134-nrseq .
elseif itab_zycbt134-tpproc = 'I' or itab_zycbt134-tpproc(4) = 'IRRF'.
clear itab_zycbt134-statusp_ir.
modify itab_zycbt134 transporting statusp_ir
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F02
...
itab_zycbe033-d_zuonr = itab_zycbt134-nrseq.
when 'V_BCODESCR'.
itab_zycbe033-c_zuonr = v_bcodescr.
itab_zycbe033-d_zuonr = v_bcodescr.
when 'EMBARCA'.
if itab_zycbt031-mdcorresp = 'IF'.
clear: /pws/zycbt108.
select nrfat into (/pws/zycbt108-nrfat)
from /pws/zycbt108
up to 1 rows
* >> Início da exclusão: FORM DADOS_BI
where nrseq_pgfat = itab_zycbt134-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BI
where nrseq_pgfat =
itab_zycbt134-nrcorresp. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
itab_zycbe033-d_zuonr = /pws/zycbt108-nrfat.
itab_zycbe033-c_zuonr = /pws/zycbt108-nrfat.
else.
itab_zycbe033-c_zuonr = itab_zycbt134-nrseq.
itab_zycbe033-d_zuonr = itab_zycbt134-nrseq.
endif.
endcase.
when 'VALUT'.
case itab_zycbt013-cpocb.
...
...
when 'CP'.
perform seleciona_docto_cp using itab_zycbt134-tpproc.
when 'IP'.
clear itab_zycbt036.
refresh itab_zycbt036.
loop at itab_zycbt064 where nrboleto = itab_zycbt134-nrseq.
loop at itab_zycbt119 where nrseq = itab_zycbt064-nrchave.
select *
up to 1 rows
from /pws/zycbt108
* >> Início da exclusão: FORM SELECIONA_DOCTOS
where nrseq_pgfat = itab_zycbt119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DOCTOS
where nrseq_pgfat = itab_zycbt119-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
itab_zycbt036-tcode = 'F-53'.
itab_zycbt036-tabela = '/PWS/ZYCBT134'.
itab_zycbt036-cpochv = v_cpochv.
if /pws/zycbt108-belnr_lq is initial.
itab_zycbt036-belnr = itab_zycbt119-belnr_p.
else.
itab_zycbt036-belnr = /pws/zycbt108-belnr_lq.
endif.
itab_zycbt036-lifnr = itab_zycbt119-lifnr.
...
...
select *
up to 1 rows
from /pws/zycit006
where nrseq = itab_zycbt119-nrpagto.
endselect.
else.
sy-subrc = 4.
endif.
if sy-subrc = 0.
select max( dtassoc ) from /pws/zycbt131
* >> Início da exclusão: FORM SELECIONA_DOCTOS
into /pws/zycbt131-dtassoc
where belnr = itab_zycbt119-nrpagto
and nrseq_pgfat = itab_zycbt119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DOCTOS
into /pws/zycbt131-dtassoc where
belnr = itab_zycbt119-nrpagto and
nrseq_pgfat = itab_zycbt119-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0 and
not /pws/zycbt131-dtassoc is initial
and /pws/zycbt131-dtassoc > /pws/zycbt108-bldat.
v_ano = /pws/zycbt131-dtassoc(4).
v_data2 = /pws/zycbt131-dtassoc.
else.
v_ano = /pws/zycbt108-bldat(4).
v_data2 = /pws/zycbt108-bldat.
endif.
else.
...
...
when 'EP'.
if not v_ccexterior is initial.
itab_zycbe033-agkoa = wa_zycbt011-koart.
endif.
refresh itab_zycbt036.
loop at itab_zycbt064 where nrboleto = itab_zycbt134-nrseq.
clear itab_zycbt036.
select *
up to 1 rows
from /pws/zycet033
* >> Início da exclusão: FORM SELECIONA_DOCTOS
where nrpres = itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DOCTOS
where nrpres = itab_zycbt064-nrchave. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
itab_zycbt036-tcode = 'F-53'.
itab_zycbt036-tabela = '/PWS/ZYCBT134'.
itab_zycbt036-cpochv = v_cpochv.
if not /pws/zycet033-docfat is initial.
itab_zycbt036-belnr = /pws/zycet033-docfat.
elseif not itab_zycbt031-belnr_p is initial.
itab_zycbt036-belnr = itab_zycbt031-belnr_p.
endif.
itab_zycbt036-lifnr = /pws/zycet033-despach.
...
...
from /pws/zycit006
where nrseq = itab_zycbt119-nrpagto.
endselect.
else.
sy-subrc = 4.
endif.
if sy-subrc = 0.
select max( dtassoc ) from /pws/zycbt131
into /pws/zycbt131-dtassoc
where belnr = itab_zycbt119-nrpagto
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
and nrseq_pgfat = itab_zycbt119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
and nrseq_pgfat = itab_zycbt119-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0 and not /pws/zycbt131-dtassoc is initial
and /pws/zycbt131-dtassoc > /pws/zycbt108-bldat.
v_data_ano = /pws/zycbt131-dtassoc.
else.
v_data_ano = /pws/zycbt108-bldat.
endif.
else.
if not /pws/zycbt108-belnr_co is initial.
v_data_ano = /pws/zycbt108-bldat.
else.
...
...
select *
up to 1 rows
from /pws/zycit006
where nrseq = itab_zycbt119-nrpagto.
endselect.
else.
sy-subrc = 4.
endif.
if sy-subrc = 0.
select max( dtassoc ) from /pws/zycbt131
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
into /pws/zycbt131-dtassoc
where belnr = itab_zycbt119-nrpagto and
nrseq_pgfat = itab_zycbt119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
into /pws/zycbt131-dtassoc where
belnr = itab_zycbt119-nrpagto and
nrseq_pgfat = itab_zycbt119-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0 and not /pws/zycbt131-dtassoc is initial
and /pws/zycbt131-dtassoc > /pws/zycbt108-bldat.
v_data_ano = /pws/zycbt131-dtassoc.
else.
v_data_ano = /pws/zycbt108-bldat.
endif.
else.
if not /pws/zycbt108-belnr_co is initial.
v_data_ano = /pws/zycbt108-bldat.
else.
...
...
endform.
form trata_estornos_boleto_ordem using p_estorno_bol.
clear v_erro_bi.
if not p_estorno_bol is initial.
if not itab_zycbt134_estorno[] is initial and
itab_zycbt232[] is initial.
select * from /pws/zycbt232
into corresponding fields of table itab_zycbt232
for all entries in itab_zycbt134_estorno
where nrboleto = itab_zycbt134_estorno-nrseq
* >> Início da exclusão: FORM TRATA_ESTORNOS_BOLETO_ORDEM
and tpproc = itab_zycbt134_estorno-tpproc.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ESTORNOS_BOLETO_ORDEM
and tpproc = itab_zycbt134_estorno-tpproc. "#EC CI_NOFIRST
* << Fim da inclusão
if not itab_zycbt232[] is initial.
select * from /pws/zycbt226 into table itab_zycbt226
for all entries in itab_zycbt232
where nrseq = itab_zycbt232-nrseq.
loop at itab_zycbt232.
read table itab_zycbt226 with key nrseq = itab_zycbt232-nrseq.
if sy-subrc = 0.
itab_zycbt232-vlr_associado = itab_zycbt232-vl_pagto.
itab_zycbt232-vlr_exterior = itab_zycbt226-vlr_exterior.
itab_zycbt232-sld_exterior = itab_zycbt226-sld_exterior.
...
...
form dados_ordem_pagto.
data: v_linha type i.
get cursor line v_linha.
check not v_linha is initial.
v_linha = tc_boletos3-top_line + v_linha - 1.
read table itab_zycbt134_pagos index v_linha.
if sy-subrc = 0.
select * from /pws/zycbt232
into corresponding fields of table itab_zycbt232_dados
where nrboleto = itab_zycbt134_pagos-nrseq
* >> Início da exclusão: FORM DADOS_ORDEM_PAGTO
and tpproc = itab_zycbt134_pagos-tpproc.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_ORDEM_PAGTO
and tpproc = itab_zycbt134_pagos-tpproc. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0.
itab_zycbt232_dados2[] = itab_zycbt232_dados[].
call screen '0003' starting at 2 4 ending at 107 19.
else.
message w061 with text-049.
endif.
endif.
endform.
form altera_itab_zycbt232_dados.
v_index = tc_dados_or-current_line.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB116F02
...
select * from /pws/zycbt048
appending table itab_zycbt048
where nrseq = <fs_zycbt031>-nrseq and
dtboleto = <fs_zycbt031>-dtboleto.
if sy-subrc ne 0.
clear: itab_zycbt064_aux.
refresh: itab_zycbt064_aux.
select * from /pws/zycbt064
into table itab_zycbt064_aux
where nrboleto = <fs_zycbt031>-nrseq and
* >> Início da exclusão: FORM SELECIONA_DADOS_BOLETO
dtboleto = <fs_zycbt031>-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_BOLETO
dtboleto = <fs_zycbt031>-dtboleto. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc eq 0.
loop at itab_zycbt064_aux.
itab_zycbt048-mandt = itab_zycbt064_aux-mandt.
itab_zycbt048-nrseq = itab_zycbt064_aux-nrboleto.
itab_zycbt048-dtboleto = itab_zycbt064_aux-dtboleto.
itab_zycbt048-mdcorresp = itab_zycbt064_aux-mdcorresp.
itab_zycbt048-nrcorresp = itab_zycbt064_aux-nrchave.
itab_zycbt048-tpparc = itab_zycbt064_aux-tpparc.
itab_zycbt048-nrparc = itab_zycbt064_aux-nrparc.
itab_zycbt048-nrinvoic = itab_zycbt064_aux-nrinvoic.
...
...
from /pws/zyglt009 into wa_zyglt009
where bukrs = p_bukrs.
select tptxjur nrdias
from /pws/zycbt010 into table itab_zycbt010.
select modo descr
from /pws/zycbt039 into table itab_zycbt039. "#EC CI_NOWHERE
if ( not r_financiamento is initial or /pws/zycbe233-origem eq 'F' )
or ( not r_emprestimo is initial or /pws/zycbe233-origem eq 'E' ).
select bukrs lifnr tipo hbkid text1
from /pws/zyglt025 into table itab_zyglt025
* >> Início da exclusão: FORM CARREGA_PARAMETROS
where tipo = 'P'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
where tipo = 'P'. "#EC CI_NOFIRST
* << Fim da inclusão
else.
select bukrs lifnr tipo hbkid text1
from /pws/zyglt025 into table itab_zyglt025
where bukrs = p_bukrs.
endif.
call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
exporting
bukrs = p_bukrs
ktosl = c_ktosl
codaux1 = c_codaux1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101F01
...
/pws/zycbt108.
select single * from /pws/zycbt117
where nrseq = /pws/zycme023-nrcorresp.
if sy-subrc eq 0.
perform seleciona_ia.
clear /pws/zycme023-nrpagto.
endif.
select *
from /pws/zycbt108
up to 1 rows
* >> Início da exclusão: FORM ATUALIZA_ITAB_AGRUPAR_PROCESSO
where nrseq_pgfat = /pws/zycme023-nrcorresp.
endselect . "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ITAB_AGRUPAR_PROCESSO
where nrseq_pgfat = /pws/zycme023-nrcorresp. "#EC CI_NOFIRST
endselect .
* << Fim da inclusão
if sy-subrc eq 0.
perform seleciona_ip.
endif.
if /pws/zycbt117 is initial and
/pws/zycbt108 is initial.
message i061
with text-219 /pws/zycme023-nrcorresp text-220 text-221.
exit.
endif.
move-corresponding /pws/zycme023 to itab_zycmt023.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
select * from ekpo
into table itab_ekpo
where ebeln eq wa_zycbt117-ebeln
and loekz eq ' '.
select * from ekkn
into table itab_ekkn
where ebeln eq wa_zycbt117-ebeln.
select * from /pws/zycit030
into table itab_zycit030
where codmod = 'D'
* >> Início da exclusão: FORM PREENCHE_PARTIDA_MULTIPLA
and codigo = 'FOB'.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_PARTIDA_MULTIPLA
and codigo = 'FOB'. "#EC CI_NOFIRST
* << Fim da inclusão
if not itab_zycit030[] is initial.
select * from konv
into table itab_konv
for all entries in itab_zycit030
where knumv = ekko-knumv
and kschl = itab_zycit030-kschl.
endif.
describe table itab_ekpo lines v_linhas.
clear: v_valor2, v_acm, v_acm2, v_dif, v_total_pedido.
loop at itab_ekpo.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL002F01
...
ENDIF.
ENDLOOP.
REFRESH itab_zycbt011_aux.
MOVE : itab_zycbt011[] TO itab_zycbt011_aux[].
ENDFORM.
FORM atualiza_zycbt011.
REFRESH itab_zycbt011.
CLEAR itab_zycbt011.
SELECT * FROM /pws/zycbt011
INTO TABLE itab_zycbt011
* >> Início da exclusão: FORM ATUALIZA_ZYCBT011
WHERE codmod EQ v_codmod.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ZYCBT011
where codmod eq v_codmod. "#EC CI_NOFIRST
* << Fim da inclusão
REFRESH itab_zycbt011_aux.
MOVE : itab_zycbt011[] TO itab_zycbt011_aux[].
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL002I01
module carrega_itab_zycbt011 input.
refresh itab_zycbt011.
clear itab_zycbt011.
select * from /pws/zycbt011
into table itab_zycbt011
* >> Início da exclusão: MODULE CARREGA_ITAB_ZYCBT011
where codmod eq v_codmod.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_ITAB_ZYCBT011
where codmod eq v_codmod. "#EC CI_NOFIRST
* << Fim da inclusão
refresh itab_zycbt011_aux.
move : itab_zycbt011[] to itab_zycbt011_aux[].
tc_even-top_line = '1'.
endmodule.
module atualiza_itab_zycbt011 input.
move: /pws/zycbe011 to itab_zycbt011,
mark to itab_zycbt011-mark.
modify itab_zycbt011 index tc_even-current_line.
v_codmod = /pws/zycbe011-codmod.
endmodule.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL003F01
...
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
if v_answer = 1.
if not /pws/zyglt020-tipmen is initial and
not /pws/zyglt016-categ is initial and
not /pws/zyglt019-campo is initial.
select * from /pws/zyglt020
up to 1 rows
* >> Início da exclusão: FORM EXCLUSAO
where campo = /pws/zyglt019-campo.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
where campo = /pws/zyglt019-campo. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
if sy-subrc = 0.
concatenate text-020 /pws/zyglt019-campo into v_text
separated by space.
concatenate text-022 /pws/zyglt020-categ into v_mcateg
separated by space.
concatenate 'Tip.Mens:' /pws/zyglt020-tipmen into v_mtipmen
separated by space.
message id '/PWS/ZYNFM'
type 'W'
...
...
endif.
if alv_exit_caused_by_user-cancel = 'X'.
if not sy-calld is initial.
leave.
endif.
endif.
endform.
form select_list.
select * from /pws/zyglt020
into table t_log_zyglt020
* >> Início da exclusão: FORM SELECT_LIST
where campo = /pws/zyglt019-campo.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_LIST
where campo = /pws/zyglt019-campo. "#EC CI_NOFIRST
* << Fim da inclusão
endform.
form alv_build_header_log.
data: v_data(10) type c,
v_hora(10) type c,
v_dt(25) type c,
v_cabec(60) type c, "#EC *
v_mandt(20) type c. "#EC *
data: ls_listheader like line of et_list_commentary.
write sy-datum dd/mm/yyyy to v_data.
write sy-uzeit to v_hora.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL003I01
...
else.
select * from /pws/zyglt022
up to 1 rows
where categ = t_tb_categ-categ. "#EC CI_NOFIRST
endselect.
if sy-subrc = 0.
v_mcateg = '"Caract.de Campo"'.
endif.
select * from /pws/zyglt020
up to 1 rows
* >> Início da exclusão: MODULE USER_COMMAND_1003
where categ = t_tb_categ-categ.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1003
where categ = t_tb_categ-categ. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
if sy-subrc = 0.
v_mcateg1 = '"Chaves / Ord.Campo"'.
endif.
if not v_mcateg is initial or
not v_mcateg1 is initial.
concatenate v_mcateg v_mcateg1 into v_text
separated by ' - '.
message id '/PWS/ZYNFM'
type 'W'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCAR006
...
v_dia5(2) = /pws/zycbt134-dtlanc+6(02).
v_mes5(2) = /pws/zycbt134-dtlanc+4(02).
v_ano5(4) = /pws/zycbt134-dtlanc(04).
v_dtbol134 = /pws/zycbt134-dtboleto.
CONCATENATE v_dia5 '/' v_mes5 '/' v_ano5 INTO v_data5.
CONCATENATE v_ponto5 text-004 /pws/zycbt134-nrseq text-010 INTO
v_texto5 SEPARATED BY space.
ENDIF.
SELECT * FROM /pws/zycbt064 UP TO 1 ROWS
WHERE nrboleto EQ v_nrseq031s3 AND
* >> Início da exclusão:
dtboleto EQ v_dtboleto031.
* << Fim da exclusão
* >> Início da inclusão:
dtboleto eq v_dtboleto031. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
IF sy-subrc EQ 0.
v_dia7 = 00.
v_mes7 = 00.
v_ano7 = 0000.
v_dia7(2) = /pws/zycbt064-dtvencto+6(02).
v_mes7(2) = /pws/zycbt064-dtvencto+4(02).
v_ano7(4) = /pws/zycbt064-dtvencto(04).
v_nrchave064 = /pws/zycbt064-nrchave.
v_nrboleto064 = /pws/zycbt064-nrboleto.
...
...
v_msgid
v_msgno
CHANGING v_nrmsg.
FREE:
itab_bdc,
itab_msg.
ENDFORM.
FORM cbt064.
v_conta = 0.
SELECT * FROM /pws/zycbt064
* >> Início da exclusão: FORM CBT064
WHERE nrboleto EQ v_nrboleto064.
* << Fim da exclusão
* >> Início da inclusão: FORM CBT064
where nrboleto eq v_nrboleto064. "#EC CI_NOFIRST
* << Fim da inclusão
v_conta = v_conta + 1.
ENDSELECT.
IF v_conta > 1.
SKIP 5.
FORMAT COLOR COL_BACKGROUND.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE: 001(88) sy-uline,
/001 '|',
002 text-032,
012 '|',
...
...
056 text-035,
066 '|',
067 text-036,
082 '|',
083 text-037,
088 '|'.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
FORMAT COLOR COL_BACKGROUND.
WRITE /001(88) sy-uline.
SELECT * FROM /pws/zycbt064
* >> Início da exclusão: FORM CBT064
WHERE nrboleto EQ v_nrboleto064.
* << Fim da exclusão
* >> Início da inclusão: FORM CBT064
where nrboleto eq v_nrboleto064. "#EC CI_NOFIRST
* << Fim da inclusão
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WRITE: /001 '|',
002 /pws/zycbt064-nrboleto,
012 '|',
013 /pws/zycbt064-nrchave,
023 '|',
024 /pws/zycbt064-tipo,
055 '|',
056 /pws/zycbt064-dtboleto,
066 '|',
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCAR018
...
it_t005t BY spras land1.
ENDIF.
ENDIF.
SELECT * FROM /pws/zycbt115
INTO TABLE itab_zycbt115
FOR ALL ENTRIES IN itab_zycbt124
WHERE nrcorrep EQ itab_zycbt124-nrseq.
SELECT * FROM /pws/zycat025
INTO TABLE itab_zycat025
FOR ALL ENTRIES IN itab_zycbt124
* >> Início da exclusão: FORM SELECIONA_DADOS
WHERE nrseq = itab_zycbt124-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
where nrseq = itab_zycbt124-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ELSE.
MESSAGE i270.
v_dados = 'X'.
ENDIF.
ENDFORM.
FORM processa_dados.
IF NOT itab_zycbt124[] IS INITIAL.
SELECT * FROM bkpf
INTO TABLE itab_bkpf
FOR ALL ENTRIES IN itab_zycbt124
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBN102
...
ENDIF.
IF wa_despesa-frpagto = 'C'.
v_transacao = 'F-63'.
ELSEIF wa_despesa-frpagto = 'R'.
v_transacao = 'F-02'.
ENDIF.
REFRESH itab_zyglt321.
SELECT *
FROM /pws/zyglt321
INTO TABLE itab_zyglt321
* >> Início da exclusão: FORM EXECUTA_BATCH_DESPESA
WHERE codeven = wa_despesa-codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH_DESPESA
where codeven = wa_despesa-codeven. "#EC CI_NOFIRST
* << Fim da inclusão
IF itab_selreg_aux-codp EQ 'G' OR
itab_selreg_aux-codp EQ 'D'.
PERFORM contab_comis_cg.
ELSE.
PERFORM dados_batch_despesa USING wa_despesa.
ENDIF.
ENDFORM.
FORM executa_batch_js.
CLEAR: itab_zycbt032, itab_zycbe033, itab_zycbt034.
REFRESH: itab_zycbt032, itab_zycbe033, itab_zycbt034.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR027
...
select nrinvoic
nrparcf
gsberf
saldo
dtbelnr
from /pws/zycbt209
into table itab_zycbt209
for all entries in itab_zycbt017
where nrinvoic = itab_zycbt017-nrinvoic
and nrparcf = itab_zycbt017-nrparcf
* >> Início da exclusão: FORM F_SEL_209_226
and gsberf = itab_zycbt017-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM F_SEL_209_226
and gsberf = itab_zycbt017-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
sort itab_zycbt209 by nrinvoic nrparcf gsberf dtbelnr descending.
select nrseq
nrinvoic
nrparcf
gsberf
sld_exterior
dtlancto
from /pws/zycbt226
into table itab_zycbt226
for all entries in itab_zycbt017
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR111
...
APPEND itab_zycbt064_01 TO itab_zycbt064.
ENDLOOP.
APPEND itab_zycbt031_01 TO itab_zycbt031.
ENDLOOP.
itab_zycbt048[] = itab_zycbt048_01[].
itab_zycbt134[] = itab_zycbt134_01[].
ENDIF.
IF NOT itab_zycbt112[] IS INITIAL.
SELECT * FROM /pws/zycbt116 INTO TABLE itab_zycbt116
FOR ALL ENTRIES IN itab_zycbt112
* >> Início da exclusão: FORM PROCESSAR_FINANC
WHERE nrfinanc = itab_zycbt112-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_FINANC
where nrfinanc = itab_zycbt112-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT *
FROM /pws/zycbt041
INTO TABLE itab_zycbt041
FOR ALL ENTRIES IN itab_zycbt112
WHERE mdcorresp EQ 'IF' AND
nrseq EQ itab_zycbt112-nrseq.
SORT itab_zycbt112 BY nrseq.
SELECT bukrs butxt
INTO TABLE t_001
FROM t001
...
...
gsber EQ itab_zycbt119-gsber.
SELECT *
FROM /pws/zycbt041
INTO TABLE itab_zycbt041
FOR ALL ENTRIES IN itab_zycbt119
WHERE mdcorresp EQ 'IP' AND
nrseq EQ itab_zycbt119-nrseq.
SELECT *
FROM /pws/zycbt131
INTO TABLE itab_zycbt131
* >> Início da exclusão: FORM PROCESSAR_PFATUR
FOR ALL ENTRIES IN itab_zycbt119
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_PFATUR
for all entries in itab_zycbt119 "#EC CI_NOFIRST
* << Fim da inclusão
WHERE belnr = itab_zycbt119-nrpagto AND
nrseq_pgfat = itab_zycbt119-nrseq.
IF sy-subrc = 0.
SELECT budat belnr gjahr bukrs kursf FROM bkpf
APPENDING TABLE itab_bkpf
FOR ALL ENTRIES IN itab_zycbt131
WHERE belnr = itab_zycbt131-belnr_as
AND bukrs = itab_zycbt131-bukrs.
LOOP AT itab_bkpf.
READ TABLE itab_zycbt131 WITH KEY belnr_as = itab_bkpf-belnr
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR114
...
itab_zycbt048-nrcontr to itab_processados-nrcontr,
itab_zycbt048-dtcontr to itab_processados-dtcontr,
itab_zycbt048-praca_a to itab_processados-praca_a.
v_tipo_pag = 'C'.
perform forma_pagto using v_tipo_pag.
insert itab_processados.
endif.
select *
from /pws/zycat025
into table itab_zycat025
* >> Início da exclusão: FORM SELECT_BOLETOS_PROCESSADOS_PAG
where nrseq = itab_processados-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_BOLETOS_PROCESSADOS_PAG
where nrseq = itab_processados-nrcorresp. "#EC CI_NOFIRST
* << Fim da inclusão
if not itab_zycbt145-vlmipis is initial.
read table itab_zycat025 with key tpimp = 'PIS'.
if itab_processados-waers eq /pws/zycbt007-waersa.
v_usd = itab_zycat025-vlimpme.
else.
v_me = itab_zycat025-vlimpme.
v_moeda = itab_processados-waers.
v_ctmoeda = v_type.
perform casas_decimais.
perform converte_usd.
...
...
v_usd to itab_nao_processados-vlusd,
v_brl to itab_nao_processados-vlbrl,
itab_nao_processados-vlmicide to itab_nao_processados-vlmi.
v_tipo_pag = 'C'.
perform forma_pagto_nao_proc using v_tipo_pag.
insert itab_nao_processados.
endif.
select *
from /pws/zycat025
into table itab_zycat025
* >> Início da exclusão: FORM SELECT_BOLETOS_NAO_PROCES_PAG
where nrseq = itab_nao_processados-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_BOLETOS_NAO_PROCES_PAG
where nrseq = itab_nao_processados-nrcorresp. "#EC CI_NOFIRST
* << Fim da inclusão
if not itab_zycbt145-vlmipis is initial.
read table itab_zycat025 with key tpimp = 'PIS'.
if itab_nao_processados-waers eq /pws/zycbt007-waersa.
v_usd = itab_zycat025-vlimpme.
else.
v_me = itab_zycat025-vlimpme.
v_moeda = itab_nao_processados-waers.
v_ctmoeda = v_type.
perform casas_decimais.
perform converte_usd.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCMR119
...
LOOP AT itab_zycbt064.
IF /pws/zycet037-comis_provisao = '0'
OR /pws/zycet037-comis_provisao IS INITIAL.
READ TABLE itab_zycet010 WITH KEY nrseq =
itab_zycbt064-nrinvoic(10).
SELECT * FROM /pws/zycbt017
up to 1 rows
WHERE nrinvoic EQ itab_zycet010-nrseq.
endselect.
SELECT * FROM /pws/zycbt037 UP TO 1 ROWS
* >> Início da exclusão: FORM SELECIONAR_EL
WHERE parvw EQ /pws/zycbt017-parvw.
ENDSELECT."#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EL
where parvw eq /pws/zycbt017-parvw. "#EC CI_NOFIRST
endselect.
* << Fim da inclusão
MOVE:
itab_zycet010-nrseq TO itab_selreg-nrchave,
itab_zycet010-nrseq TO itab_selreg-docto,
itab_zycet010-dtvencto TO itab_selreg-dtvencto,
itab_zycet010-vlcomis TO itab_selreg-vlme,
itab_zycet010-lifnr TO itab_selreg-lifnr,
/pws/zycbt037-codpad TO itab_selreg-codp.
APPEND itab_selreg.
itab_documentos-tabela = '/PWS/ZYCET010'.
itab_documentos-nrseq = itab_zycet010-nrseq.
...
...
READ TABLE itab_zycet013 WITH KEY
nrseq = itab_zycbt064-nrinvoic(10)
lifnr = itab_zycbt064-lifnr
gsber = itab_zycbt064-gsberf
prctr = itab_zycbt064-prctr.
SELECT * FROM /pws/zycbt017
up to 1 rows
WHERE nrinvoic EQ itab_zycet013-nrseq.
endselect.
SELECT * FROM /pws/zycbt037 UP TO 1 ROWS
* >> Início da exclusão: FORM SELECIONAR_EL
WHERE parvw EQ /pws/zycbt017-parvw.
ENDSELECT."#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EL
where parvw eq /pws/zycbt017-parvw. "#EC CI_NOFIRST
endselect.
* << Fim da inclusão
MOVE:
itab_zycet013-nrseq TO itab_selreg-nrchave,
itab_zycet013-nrseq TO itab_selreg-docto,
itab_zycet013-gsber TO itab_selreg-gsberf,
itab_zycet013-lifnr TO itab_selreg-lifnr,
itab_zycet013-prctr TO itab_selreg-prctr,
/pws/zycbt037-codpad TO itab_selreg-codp.
APPEND itab_selreg.
itab_documentos-tabela = '/PWS/ZYCET010'.
itab_documentos-nrseq = itab_zycet013-nrseq.
...
...
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_tipo_comis.
SELECT * FROM /pws/zycbt017
up to 1 rows
WHERE nrinvoic EQ itab_zycbt031-nrinvoic.
endselect.
SELECT * FROM /pws/zycbt037 UP TO 1 ROWS
* >> Início da exclusão: FORM VERIFICA_TIPO_COMIS
WHERE parvw EQ /pws/zycbt017-parvw.
ENDSELECT."#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_TIPO_COMIS
where parvw eq /pws/zycbt017-parvw. "#EC CI_NOFIRST
endselect.
* << Fim da inclusão
ENDFORM.
FORM selecionar_ed.
PERFORM clear_date_batch.
CLEAR: wa_despesa, /pws/zycbt004.
SELECT SINGLE * FROM /pws/zycbt004
WHERE nrseqc EQ itab_zycbt031-nrcorresp
AND tpdesp EQ itab_zycbt031-tpdesp
AND nrparc EQ itab_zycbt031-nrparc
AND dtincl EQ itab_zycbt031-dtincl
AND dtliquid EQ itab_zycbt031-dtliquid
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR012
...
itab_relat-vlmet = itab_zycbt154-vlme * itab_zycbt154-kursf.
append itab_relat.
select *
from /pws/zycbt012
up to 1 rows
into /pws/zycbt012
where codeven = '001E'
and codmod = 'F'
and codaux = itab_zycbt128-tpemprest
and codaux2 = 'C'
* >> Início da exclusão: FORM VALORES_PRINCIPAL_F
or codaux2 = 'S'.
* << Fim da exclusão
* >> Início da inclusão: FORM VALORES_PRINCIPAL_F
or codaux2 = 'S'. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
if sy-subrc = 0.
itab_relat-conta = /pws/zycbt012-saknr1.
move: itab_zycbt128-vlme to itab_relat-vlme,
itab_zycbt128-sldesem to itab_relat-vlmesp.
loop at itab_zycbt129 where nrseq = itab_zycbt128-nrseq
and tpparc = 'P'
and dtpagto(6) = data(6).
itab_relat-pagtomes = itab_relat-pagtomes +
itab_zycbt129-vlme.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR024A
...
ID 'TCD' FIELD '/PWS/ZYGL013_E'.
IF sy-subrc = 0.
CALL TRANSACTION '/PWS/ZYGL013_E' AND SKIP FIRST SCREEN.
ELSE.
MESSAGE e261(sf) WITH '/PWS/ZYGL013_E'.
ENDIF.
ENDIF.
ENDFORM.
FORM seleciona_dados.
DATA: v_loop TYPE i.
* >> Início da exclusão: FORM SELECIONA_DADOS
SELECT * FROM /pws/zyglt339 INTO TABLE it_zyglt339 WHERE bname =
sy-uname.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
select * from /pws/zyglt339 into table it_zyglt339
where bname = sy-uname. "#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT it_zyglt339.
v_loop = v_loop + 1.
ENDLOOP.
IF v_loop > 1.
MESSAGE i083 WITH text-001.
EXIT.
ENDIF.
IF NOT it_zyglt339[] IS INITIAL.
READ TABLE it_zyglt339 INDEX 1.
MOVE it_zyglt339-frggr TO v_frggr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR032
...
dtvencto = itab_zycbt064-dtvencto
lifnr = itab_zycbt064-lifnr.
update /pws/zycet010 set belnr51 = space
where nrseq = itab_zycet010-nrseq and
lifnr = itab_zycet010-lifnr and
dtvencto = itab_zycet010-dtvencto.
clear /pws/zycbt145.
select single * from /pws/zycbt145
where nrseq eq itab_zycbt134_estorno-nrseq.
select * from /pws/zycbt037 up to 1 rows
* >> Início da exclusão: FORM FILL_DATA_FBRA_F51
where parvw eq /pws/zycbt017-parvw.
endselect."#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA_F51
where parvw eq /pws/zycbt017-parvw. "#EC CI_NOFIRST
endselect.
* << Fim da inclusão
if /pws/zycbt145-cod_fech ne 'TR' and
( /pws/zycbt037-codpad eq 'T' or
/pws/zycbt037-codpad eq 'R' or
/pws/zycbt037-codpad eq 'D' ).
update /pws/zycet010 set belnr_p = space
where nrseq = itab_zycet010-nrseq and
lifnr = itab_zycet010-lifnr and
dtvencto = itab_zycet010-dtvencto.
endif.
elseif /pws/zycet037-comis_provisao eq '1'.
...
...
elseif /pws/zycet037-comis_provisao = '1'.
select * from /pws/zycet013
into table itab_zycet013
for all entries in itab_zycbt064
where nrseq eq itab_zycbt064-nrinvoic(10)
and lifnr eq itab_zycbt064-lifnr
and gsber eq itab_zycbt064-gsberf
and prctr eq itab_zycbt064-prctr.
endif.
select * from /pws/zycbt037 up to 1 rows
* >> Início da exclusão: FORM SELECIONA_DADOS_EL
where parvw eq /pws/zycbt017-parvw.
endselect."#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_EL
where parvw eq /pws/zycbt017-parvw. "#EC CI_NOFIRST
endselect.
* << Fim da inclusão
endform.
form verifica_documentos_clearing.
data: v_codmodul(1) type c,
v_nrcorresp like /pws/zycbt154-nrcorresp,
v_tabix like sy-tabix,
v_nrparc like /pws/zycbt031-nrparc,
v_codmod like /pws/zycbt031-mdcorresp.
if not itab_zycbt134_estorno[] is initial.
select * from /pws/zycbt154
into table itab_zycbt154
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U10
DATA: v_impr(1),
v_tabix LIKE sy-tabix..
DATA: BEGIN OF itab_tpcont OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt122.
DATA: END OF itab_tpcont.
CONSTANTS c_fi TYPE char2 VALUE 'FI'.
SELECT * FROM /pws/zycbt122
* >> Início da exclusão:
INTO TABLE itab_tpcont.
* << Fim da exclusão
* >> Início da inclusão:
into table itab_tpcont. "#EC CI_NOWHERE
* << Fim da inclusão
READ TABLE record_tab ."#EC *
v_tabix = sy-tabix.
READ TABLE record_tab WITH KEY string(2) = 'FI'.
IF sy-subrc NE 0 AND
v_tabix NE 1.
LOOP AT itab_tpcont.
IF v_impr IS INITIAL.
CONCATENATE c_fi text-001
INTO record_tab-string.
APPEND record_tab.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U11
data: begin of itab_zycbt102 occurs 0.
include structure /pws/zycbt102.
data: end of itab_zycbt102.
data: begin of itab_zycbt122 occurs 0.
include structure /pws/zycbt122.
data: end of itab_zycbt122.
if not record_tab[] is initial.
select * from /pws/zycbt102
* >> Início da exclusão:
into table itab_zycbt102.
* << Fim da exclusão
* >> Início da inclusão:
into table itab_zycbt102. "#EC CI_NOWHERE
* << Fim da inclusão
select * from /pws/zycbt122
* >> Início da exclusão:
into table itab_zycbt122.
* << Fim da exclusão
* >> Início da inclusão:
into table itab_zycbt122. "#EC CI_NOWHERE
* << Fim da inclusão
loop at itab_zycbt102.
concatenate sy-mandt itab_zycbt102-codint itab_zycbt102-txtdesc
into record_tab-string.
...