CE PLUS - Nota 009254
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 23/10/2009 00:00:00
Data/Hora Última Alteração: 11/03/2010 11:26:20
Descrição da Nota: CODE INSPECTOR - CAMBIO
Sintoma
CODE INSPECTOR - CAMBIO
Solução
CODE INSPECTOR - CAMBIO
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09254 Data: 23/10/2009 Hora: 14:45:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09254
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 - CAMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR - CAMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCBA069
FUNC /PWS/ZYCBA127
FUNC /PWS/ZYCBA295
FUNC /PWS/ZYCMA010
RELE F6DK972460 20091023 143603 PWSCB
REPS /PWS/LZYCAGF2F01
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCA111F01
REPS /PWS/MZYCA111O01
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F04
REPS /PWS/MZYCB001I01
REPS /PWS/MZYCB001O01
REPS /PWS/MZYCB001TOP
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB009F02
REPS /PWS/MZYCB009F03
REPS /PWS/MZYCB009F04
REPS /PWS/MZYCB009F05
REPS /PWS/MZYCB009F06
REPS /PWS/MZYCB009F07
REPS /PWS/MZYCB009F08
REPS /PWS/MZYCB009F09
REPS /PWS/MZYCB009F10
REPS /PWS/MZYCB009O01
REPS /PWS/MZYCB012F01
REPS /PWS/MZYCB027F01
REPS /PWS/MZYCB028F01
REPS /PWS/MZYCB028O01
REPS /PWS/MZYCB030F01
REPS /PWS/MZYCB030F02
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB106F01
REPS /PWS/MZYCB115F01
REPS /PWS/MZYCB115F02
REPS /PWS/MZYCB115I01
REPS /PWS/MZYCB116F03
REPS /PWS/MZYCB116I01
REPS /PWS/MZYCB251F01
REPS /PWS/MZYGL003F01
REPS /PWS/MZYGL032F01
REPS /PWS/MZYGL342I01
REPS /PWS/ZYCBR111
REPS /PWS/ZYCBR120
REPS /PWS/ZYCBR140
REPS /PWS/ZYGLR999
REPS /PWS/ZZYCBGF3U03
REPS /PWS/ZZYGLGF4U02
REPS /PWS/ZZYGLGF4U06
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA069
...
EXCEPTIONS
parameter_unknown = 1
OTHERS = 2.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDLOOP.
UNASSIGN: <fs_shlp>, <fs_fielddescr>.
SELECT nrseq gsber FROM /pws/zycet001
INTO TABLE itab_zycet001
* >> Início da exclusão: FUNCTION /PWS/ZYCBA069
WHERE envia_c EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA069
WHERE envia_c EQ 'X'. "#EC CI_NOFIELD
* << 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 = 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/ZYCBA127
...
DELETE record_tab INDEX sy-tabix.
DELETE itab_dados.
ENDIF.
ENDLOOP.
SELECT nrcorresp
FROM /pws/zycbt134
INTO TABLE itab_zycbt134
FOR ALL ENTRIES IN itab_dados
WHERE nrcorresp EQ itab_dados-nrseq
AND mdcorresp EQ 'IA'
* >> Início da exclusão: FUNCTION /PWS/ZYCBA127
AND belnr_c NE space.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA127
AND belnr_c NE space. "#EC CI_NOFIELD
* << Fim da inclusão
LOOP AT itab_dados INTO wa_dados.
v_tabix = sy-tabix.
READ TABLE itab_zycbt134 WITH KEY nrcorresp = wa_dados-nrseq.
IF sy-subrc NE 0.
DELETE itab_dados INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
CONTINUE.
ENDIF.
ENDLOOP.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA295
...
ref_ordem type /pws/zycbt209-ref_ordem,
end of t_konth.
field-symbols:
<fs_shlp> like line of shlp_tab,
<fs_fielddescr> like line of shlp_tab-fielddescr,
<fs_dados> like line of itab_dados.
if callcontrol-step eq 'DISP'.
refresh record_tab[].
select ref_ordem from /pws/zycbt209
into table itab_zycbt209
* >> Início da exclusão: FUNCTION /PWS/ZYCBA295
where ref_ordem ne ' '.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA295
where ref_ordem ne ' '. "#EC CI_NOFIELD
* << Fim da inclusão
if sy-subrc = 0.
sort itab_zycbt209 by ref_ordem.
delete adjacent duplicates from itab_zycbt209 comparing ref_ordem.
endif.
loop at itab_zycbt209.
t_konth-ref_ordem = itab_zycbt209-ref_ordem.
append t_konth.
endloop.
record_tab[] = t_konth[].
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCMA010
...
FROM /pws/zycit006
INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_dados
WHERE nrseq EQ itab_dados-nrpagto.
SELECT nrcorresp
FROM /pws/zycbt134
INTO TABLE itab_zycbt134
FOR ALL ENTRIES IN itab_dados
WHERE nrcorresp EQ itab_dados-nrseq
AND mdcorresp EQ 'IP'
* >> Início da exclusão: FUNCTION /PWS/ZYCMA010
AND belnr_c NE space.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCMA010
AND belnr_c NE space. "#EC CI_NOFIELD
* << Fim da inclusão
LOOP AT itab_dados INTO wa_dados.
v_tabix = sy-tabix.
READ TABLE itab_zycit006 WITH KEY nrseq = wa_dados-nrpagto.
IF sy-subrc = 0.
DELETE itab_dados INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
CONTINUE.
ENDIF.
READ TABLE itab_zycbt134 WITH KEY nrcorresp = wa_dados-nrseq.
IF sy-subrc NE 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK972460 20091023 143603 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCAGF2F01
...
LOOP AT itab_t041b.
IF itab_t041b-bukrs = itab_t041b-bbukr.
DELETE itab_t041b.
ENDIF.
ENDLOOP.
CLEAR itab_t041b.
CHECK NOT itab_t041b[] IS INITIAL.
IF p_tpcont EQ 'S'.
SELECT bukrs saknr FROM skb1
INTO TABLE itab_empresas
* >> Início da exclusão: FORM VERIFICA_EMPRESAS
WHERE saknr EQ p_conta.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_EMPRESAS
where saknr eq p_conta. "#EC CI_SGLSELECT
* << Fim da inclusão
ELSEIF p_tpcont EQ 'K'.
SELECT bukrs lifnr FROM lfb1
INTO TABLE itab_empresas
WHERE lifnr EQ p_conta.
ELSEIF p_tpcont EQ 'D'.
SELECT bukrs kunnr FROM knb1
INTO TABLE itab_empresas
WHERE kunnr EQ p_conta.
ENDIF.
IF NOT itab_empresas[] IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
v_dtassoc to /pws/zycat028-dt_assoc,
v_recrem to /pws/zycbe124-recrem,
v_belnr_as to v_belnr_s.
endform.
form cria_remessa_repatriacao
using p_sy_subrc type sy-subrc.
select *
up to 1 rows
from /pws/zycat028
where tp_processo = v_processo
* >> Início da exclusão: FORM CRIA_REMESSA_REPATRIACAO
and nr_processo = v_sequencial.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIA_REMESSA_REPATRIACAO
and nr_processo = v_sequencial. "#EC CI_NOFIELD
* << Fim da inclusão
endselect.
p_sy_subrc = sy-subrc.
endform.
form message_store using p_classe
p_tipo
p_msg1
p_msg2
p_msg3
p_msg4
p_nro. "#EC *
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
where nrseq = /pws/zycbe031-nrcorresp.
select *
up to 1 rows
from /pws/zycat028
into wa_zycat028
where nrseq = /pws/zycbe031-nrcorresp.
endselect.
if sy-subrc = 0.
select *
from /pws/zycat027
* >> Início da exclusão: FORM SELECIONAR_CP
into table itab_zycat027.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_CP
into table itab_zycat027. "#EC CI_NOWHERE
* << Fim da inclusão
endif.
select single * from /pws/zycbt127
where nrseq = wa_zycbt124-nrseq.
select single tprem from /pws/zycbt125
into /pws/zycbt125-tprem
where codpagto eq wa_zycbt124-codpagto
and tpoper eq 'R'.
if not itab_zycbt064[] is initial.
select * from /pws/zycbt141 into table itab_zycbt141
for all entries in itab_zycbt064
...
...
and codmod = 'F'
and bukrs = /pws/zycbe031-bukrs.
select * from /pws/zyglt321
into table itab_zyglt321
where ktosl = 'RCF'
and codeven = '003R'.
endif.
if itab_zycat027[] is initial.
select *
from /pws/zycat027
* >> Início da exclusão: FORM GET_PARAMETERS_CP
into table itab_zycat027.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CP
into table itab_zycat027."#EC CI_NOWHERE
* << Fim da inclusão
endif.
endform.
form contabiliza_docto_cp using p_tpimp
p_recontabiliza
p_recuperar.
data: v_fornec type /pws/zycat024-fornecedor.
if not p_recontabiliza is initial.
read table itab_zycbt124_aux with key nrseq = itab_zycat025-nrseq.
else.
read table itab_zycbt124_aux with key nrseq = wa_zycbt124-nrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111F01
...
endif.
perform message_initialize.
select nrseq dtpagto status
from /pws/zycbt118
into (/pws/zycbt118-nrseq, /pws/zycbt118-dtpagto,
/pws/zycbt118-status)
up to 1 rows
where nrref = /pws/zycbe128-nrseq and
dtpagto <> '00000000' and
status <> 'E' and
* >> Início da exclusão: FORM DELETE_ZYCBT128
codmodul = 'EM'.
endselect. "#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_ZYCBT128
codmodul = 'EM'. "#EC CI_NOFIELD
endselect.
* << Fim da inclusão
if sy-subrc eq 0.
message i015 with text-035 text-034.
v_erro_exclusao = 'X'.
else.
select *
into table itab_zycbt118
from /pws/zycbt118
where nrref = /pws/zycbe128-nrseq and
status <> 'E' and
codmodul = 'EM'. "#EC CI_NOFIELD
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111O01
...
FROM lfa1
WHERE lifnr EQ /pws/zycbe128-bcofinan1.
ENDSELECT.
bcodescr2 = lfa1-name1.
ENDIF.
IF NOT /pws/zycbe128-waers IS INITIAL.
SELECT *
UP TO 1 ROWS
FROM tcurt
WHERE spras EQ sy-langu AND
* >> Início da exclusão: MODULE SET-SCREEN
waers EQ /pws/zycbe128-waers.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
waers eq /pws/zycbe128-waers. "#EC CI_SGLSELECT
* << Fim da inclusão
ENDSELECT.
moeda = tcurt-ltext.
ENDIF.
IF NOT /pws/zycbe128-lifnr IS INITIAL.
SELECT *
UP TO 1 ROWS
FROM lfa1
WHERE lifnr EQ /pws/zycbe128-lifnr.
ENDSELECT. "#EC CI_SGLSELECT
fornecedor = lfa1-name1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
refresh itab_dados.
leave to screen '100'.
endif.
endform.
form modo_batch_input.
clear: /pws/zycbt039, itab_modo.
refresh: itab_modo.
select * from /pws/zycbt039.
itab_modo-selflag = /pws/zycbt039-modo.
itab_modo-varoption = /pws/zycbt039-descr.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
append itab_modo.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
append itab_modo. "#EC CI_NOWHERE
* << Fim da inclusão
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-151
textline2 = text-152
titel = text-153
importing
answer = v_modo_bi
tables
...
...
with key cpor3 = 'ZFBDT'.
if sy-subrc = 0 and itab_zyglt321-cpocb = 'DTLIQUID'.
perform fill_date_fb02
using ' '.
loop at itab_zycbt002p where not belnr is initial.
perform fill_date_fb02 using 'X'.
endloop.
endif.
endif.
endif.
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
loop at itab_zycbt002p where not belnr is initial.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
loop at itab_zycbt002p .
if not itab_zycbt002p-belnr is initial.
* << Fim da inclusão
read table itab_zycbt002p_ant with key
nrparc = itab_zycbt002p-nrparc.
if sy-subrc = 0 and
( itab_zycbt002p-dtpror ne itab_zycbt002p_ant-dtpror or
itab_zycbt002p-dtfinal ne itab_zycbt002p_ant-dtfinal )
and not itab_zycbt002p-vlme ne itab_zycbt002p_ant-vlme.
concatenate '001' /pws/zycbe001-tpcontr into v_codeven.
clear itab_zyglt321.
refresh itab_zyglt321.
select *
...
...
where ktosl = 'CPT'
and codeven = v_codeven.
if sy-subrc = 0.
read table itab_zyglt321
with key cpor3 = 'ZFBDT'.
if sy-subrc = 0 and itab_zyglt321-cpocb = 'DTFINAL'.
perform fill_date_fb02 using 'X'.
at last.
perform fill_date_fb02 using ' '.
endat.
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
endif.
* << Fim da inclusão
endif.
endif.
endif.
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
...
...
message i061 with text-149 /pws/zycbe004-belnr_comp
text-150 itab_zycbt032-belnr.
/pws/zycbe004-belnr_comp = space.
else.
loop at itab_zycbt032.
message i015 with itab_zycbt032-msg.
endloop.
endif.
endif.
endform.
* >> Início da exclusão: FORM DIAS_JUROS
form dias_juros using v_mess.
* << Fim da exclusão
* >> Início da inclusão: FORM DIAS_JUROS
form dias_juros using v_mess .
* << Fim da inclusão
data:
v_vlmeamj like /pws/zycbe001-vlme,
v_minimo like /pws/zycbt001-vlme,
v_maximo like /pws/zycbt001-vlme,
v_valme like /pws/zycbt002-vlme,
v_dtliquid like /pws/zycbt001-dtliquid,
v_dtpror like /pws/zycbt003-dtpror.
v_dtinicio3 = itab_zycbt002-dtinicio.
if itab_zycbt002-dtinicio is initial.
if v_dtfinal is initial.
...
...
v_ordem = itab_vbap-vbeln.
delete wa_zycbt221 where ordem = /pws/zycbe221-ordem.
endif.
endloop.
endif.
select * from /pws/zycbt221
into table itab_zycbt221_aux
for all entries in wa_zycbt221
where nrseqc ne /pws/zycbe001-nrseqc and
ordem = wa_zycbt221-ordem and
* >> Início da exclusão: FORM VERIFICA_ORDEM
item = wa_zycbt221-item.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ORDEM
item = wa_zycbt221-item. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-tcode ne c_transacao_e .
if v_pass is initial.
v_valoritem = wa_zycbt221-vlr_item.
loop at itab_zycbt221_aux where ordem = wa_zycbt221-ordem and
item = wa_zycbt221-item.
v_valoritem = v_valoritem - itab_zycbt221_aux-vlr_rateio.
if v_valoritem <= '0'.
wa_zycbt221-vlr_item = v_valoritem .
endif.
concatenate v_msg1 itab_zycbt221_aux-nrseqc
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
text-012.
else.
read table itab_zyglt316 index 1.
itab_zycbe033-d_newko = itab_zyglt316-konts.
perform verify_null_field using itab_zycbe033-d_newko
'NEWKO'
text-016.
endif.
select *
from /pws/zycbt088
* >> Início da exclusão: FORM GET_PARAMETERS_CANC
into table itab_zycbt088.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CANC
into table itab_zycbt088. "#EC CI_NOWHERE
* << Fim da inclusão
endform.
form calcula_vlmicanc.
if /pws/zycbe001-belnr_canc is initial.
/pws/zycbe001-vlmicanc = /pws/zycbe001-txcneg *
/pws/zycbe001-vlcanc.
endif.
endform.
form limpa_cancelamento.
clear: v_altcanc,
/pws/zycbe001-vlmicanc,
...
...
if sy-subrc = 0.
itab_zycbe033-stgrd = '01'.
else.
itab_zycbe033-stgrd = '02'.
itab_zycbe033-budat = sy-datum.
endif.
endform.
form anula_enceramento.
select * from /pws/zycbt154 into table itab_zycbt154
where nrcorresp eq /pws/zycbe001-nrseqc and
* >> Início da exclusão: FORM ANULA_ENCERAMENTO
belnr_cl <> space.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ENCERAMENTO
belnr_cl <> space. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0.
loop at itab_zycbt154 where not belnr_cl is initial.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FBRA'.
itab_zycbe033-tabela = '/PWS/ZYCBT001'.
itab_zycbe033-cpochv = /pws/zycbe001-nrseqc.
itab_zycbe033-belnr = itab_zycbt154-belnr_cl.
itab_zycbe033-bukrs = /pws/zycbe001-bukrs.
itab_zycbe033-bldat = /pws/zycbe001-dtencerra.
itab_zycbe033-budat = /pws/zycbe001-dtencerra.
...
...
if sy-subrc eq 0.
perform clear_date_batch.
perform executa_fb08.
v_belnr_cl = itab_zycbt154-belnr_cl.
clear: itab_zycbt154-status,
itab_zycbt154-belnr_cl.
check itab_zycbt154-nrcorresp eq /pws/zycbe001-nrseqc.
update /pws/zycbt154 set status = itab_zycbt154-status
belnr_cl = itab_zycbt154-belnr_cl
where nrcorresp = /pws/zycbe001-nrseqc
* >> Início da exclusão: FORM ANULA_ENCERAMENTO
and belnr_cl = v_belnr_cl.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ENCERAMENTO
and belnr_cl = v_belnr_cl. "#EC CI_NOFIRST
* << Fim da inclusão
modify itab_zycbt154 transporting belnr_cl
where nrcorresp = /pws/zycbe001-nrseqc
and belnr_cl = v_belnr_cl.
commit work.
else.
loop at itab_zycbt032.
message i015 with itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
endloop.
endif.
...
...
tabela_categ_nao_configurada = 8
others = 9.
endform.
form verif_clasf_cont.
v_cod_grupo = 'CCO'.
select campo flag
from /pws/zyglt320
into table itab_t320
where programa = sy-repid and
tela = sy-dynnr and
* >> Início da exclusão: FORM VERIF_CLASF_CONT
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_CLASF_CONT
cod_grupo = v_cod_grupo. "#EC CI_NOFIRST
* << Fim da inclusão
sort itab_t320 by campo.
loop at tc_perj-cols into wa_cols.
itab_nome_campo-nome_campo_tela = wa_cols-screen-name.
append itab_nome_campo.
endloop.
sort itab_nome_campo.
loop at itab_t320.
concatenate '.' itab_t320-campo '.' into v_comp.
search itab_nome_campo for v_comp starting at 1.
if sy-subrc eq 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001O01
...
elseif sy-dynnr eq '0108' or
sy-dynnr eq '0109' or
sy-dynnr eq '0206'.
v_cod_grupo = 'CCR'.
endif.
select campo flag
from /pws/zyglt320
into table itab_t320
where programa = sy-repid and
tela = sy-dynnr and
* >> Início da exclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo."#EC CI_NOFIRST
* << Fim da inclusão
sort itab_t320 by campo.
loop at screen.
itab_nome_campo-nome_campo_tela = screen-name.
append itab_nome_campo.
endloop.
sort itab_nome_campo.
loop at itab_t320.
concatenate '.'
itab_t320-campo '.' into v_comp.
search itab_nome_campo for v_comp starting at 1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
and belnr eq itab_zycbt006-belnr5
and gjahr eq v_year.
v_taxa = bkpf-kursf.
endform.
form modo_batch_input.
clear: /pws/zycbt039, itab_modo.
refresh: itab_modo.
select * from /pws/zycbt039.
itab_modo-selflag = /pws/zycbt039-modo.
itab_modo-varoption = /pws/zycbt039-descr.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
append itab_modo.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
append itab_modo. "#EC CI_NOWHERE
* << Fim da inclusão
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-034
textline2 = text-035
titel = text-036
importing
answer = v_modo_bi
tables
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F02
...
clear itab_zycbt012.
read table itab_zycbt012 with key codeven = v_codeven_dev
codmod = 'E'
chlanc = 'D'
tpcodaux = 'G'.
itab_zycbe033-d_newko = itab_zycbt012-saknr1.
perform verify_null_field using itab_zycbt012-saknr1
'NEWKO'
text-011.
select single * from cskb into cskb
* >> Início da exclusão: FORM PDD
where kstar = itab_zycbe033-d_newko.
* << Fim da exclusão
* >> Início da inclusão: FORM PDD
where kstar = itab_zycbe033-d_newko."#EC CI_GENBUFF
* << Fim da inclusão
if sy-subrc eq 0.
perform verify_null_field using itab_zycbt051-kostl
'KOSTL'
text-273.
itab_zycbe033-d_kostl = itab_zycbt051-kostl.
elseif sy-subrc ne 0 and
not itab_zycbt051-kostl is initial.
message i061 with text-276 itab_zycbe033-d_newko text-274.
message i015 with text-277.
exit.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F03
...
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf.
if sy-subrc eq 0.
/pws/zycbe017-zterm = itab_zycbt017-zterm.
endif.
select single belnr from /pws/zycbt209 into v_belnr_trans
where nrinvoic = itab_zycbt005-nrinvoic and
nrparcf = itab_zycbt005-nrparcf and
gsberf = itab_zycbt005-gsberf and
dtincl = itab_zycbt005-dtvincul and
* >> Início da exclusão: FORM CARREGA_ZYCBE005
nrseqc = itab_zycbt005-nrseqc .
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_ZYCBE005
nrseqc = itab_zycbt005-nrseqc . "#EC CI_NOFIRST
* << Fim da inclusão
perform carrega_desvincula.
endform.
form exclui_dados_itab.
data v_excluida type c.
clear v_pag_jur.
select single * from /pws/zycbt007 into wa_zycbt007
where bukrs = /pws/zycbe001-bukrs.
call function 'POPUP_TO_CONFIRM_STEP'
exporting
defaultoption = 'Y'
...
...
if /pws/zycbt089-controle_ov = 'X'.
if not itab_zycbt005[] is initial.
select * from /pws/zycet002 into table itab_zycet002
for all entries in itab_zycbt005
where nrseq = itab_zycbt005-nrinvoic(10).
endif.
loop at itab_zycet002.
select single * from /pws/zycbt221
where nrseqc ne /pws/zycbe001-nrseqc
and ordem = itab_zycet002-vbeln_va
* >> Início da exclusão: FORM GRAVA_TABELAS
and item = itab_zycet002-aupos.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
and item = itab_zycet002-aupos. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0.
select single * from /pws/zycbt001 into wa_zycbt001_ov
where nrseqc = /pws/zycbt221-nrseqc
and tpcontr = 'DP'.
if sy-subrc = 0.
v_msg = text-349.
concatenate /pws/zycbt221-item text-350 /pws/zycbt221-ordem
text-351
into v_msg1 separated by space.
concatenate /pws/zycbt221-nrseqc '.' into v_msg2.
...
...
into table itab_zycbt010.
if not itab_zycbt001[] is initial.
select * from tcurx
into table itab_tcurx
for all entries in itab_zycbt001
where currkey = itab_zycbt001-waers.
endif.
select single * from /pws/zycbt089
where bukrs eq /pws/zycbe001-bukrs.
select * from /pws/zycbt088
* >> Início da exclusão: FORM SELECIONA_PARAMETROS_GERAIS
into table itab_zycbt088.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PARAMETROS_GERAIS
into table itab_zycbt088. "#EC CI_NOWHERE
* << Fim da inclusão
if /pws/zycbe001-tpcontr(1) = 'D'.
select * from /pws/zycbt221
into table itab_zycbt221
where nrseqc = /pws/zycbe001-nrseqc.
endif.
endform.
form atualiza_zycbt004.
perform busca_envento_taxa.
if itab_zycbt005-vljur gt 0.
move-corresponding itab_zycbt005 to /pws/zycbt004.
...
...
endloop.
endloop.
if not itab_zycbt005[] is initial.
select *
from /pws/zycbt209
into table itab_zycbt209
for all entries in itab_zycbt005
where nrinvoic = itab_zycbt005-nrinvoic and
gsberf = itab_zycbt005-gsberf and
nrparcf = itab_zycbt005-nrparcf and
* >> Início da exclusão: FORM SELECIONA_ZYCBT030_B
nrseqc = itab_zycbt005-nrseqc.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCBT030_B
nrseqc = itab_zycbt005-nrseqc. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc ne 0.
select *
from /pws/zycbt209
into table itab_zycbt209
for all entries in itab_zycbt005
where nrinvoic = itab_zycbt005-nrinvoic and
gsberf = itab_zycbt005-gsberf and
* >> Início da exclusão: FORM SELECIONA_ZYCBT030_B
nrparcf = itab_zycbt005-nrparcf .
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCBT030_B
nrparcf = itab_zycbt005-nrparcf . "#EC CI_NOFIRST
* << Fim da inclusão
endif.
select * from /pws/zycbt226
into table itab_zycbt226
for all entries in itab_zycbt005
where nrinvoic = itab_zycbt005-nrinvoic
and nrparcf = itab_zycbt005-nrparcf
and gsberf = itab_zycbt005-gsberf.
if sy-subrc eq 0 and sy-tcode eq c_transacao_c.
delete itab_zycbt226 where sld_exterior eq 0.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F04
...
check not p_itab_fatura is initial.
select
bukrs nrinvoic belnr dtincl gsberf nrparcf saldo belnr2 dtbelnr
from /pws/zycbt209
into table p_itab_zycbt209
for all entries in p_itab_fatura
where
nrinvoic eq p_itab_fatura-nrinvoic and
gsberf eq p_itab_fatura-gsberf and
nrparcf eq p_itab_fatura-nrparcf and
* >> Início da exclusão: FORM SELECIONA_LIQUIDACAO_ANDAMENTO
saldo gt 0.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_LIQUIDACAO_ANDAMENTO
saldo gt 0. "#EC CI_NOFIRST
* << Fim da inclusão
endform.
form documento_contrato.
field-symbols:
<fs_belnr> type bseg-belnr,
<fs_dtdocto> type bseg-augdt.
data:
v_dtcont type bseg-augdt.
if /pws/zycbe001-belnr2 is initial.
assign /pws/zycbe001-belnr to <fs_belnr>.
else.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F05
...
/pws/zycbe017a-inco1 = ''.
/pws/zycbe017a-nrsd = ''.
v_nrre_ate = ''.
endform.
form modo_batch_input.
clear: /pws/zycbt039, itab_modo.
refresh: itab_modo.
select * from /pws/zycbt039.
itab_modo-selflag = /pws/zycbt039-modo.
itab_modo-varoption = /pws/zycbt039-descr.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
append itab_modo.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
append itab_modo. "#EC CI_NOWHERE
* << Fim da inclusão
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-087
textline2 = text-088
titel = text-089
importing
answer = v_modo_bi
tables
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F06
...
endloop.
loop at itab_zycbt030.
itab_zycbt030-s_kwert = v_s_kwert.
modify itab_zycbt030.
endloop.
select *
from /pws/zycbt209
into table itab_zycbt209
where nrinvoic = itab_zycbt050-nrinvoic and
gsberf = itab_zycbt050-gsberf and
* >> Início da exclusão: FORM SELECIONA_ZYCBT030
nrparcf = itab_zycbt050-nrparcf.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCBT030
nrparcf = itab_zycbt050-nrparcf. "#EC CI_NOFIRST
* << Fim da inclusão
endform.
form select_devol_vincul.
refresh: itab_zycbt050.
clear: itab_zycbt050.
if not itab_zycbt005[] is initial.
select * from /pws/zycbt050
into table itab_zycbt050
for all entries in itab_zycbt005
where nrseqc = itab_zycbt005-nrseqc
and tpdesp = itab_zycbt005-tpdesp
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F07
...
select single *
from /pws/zycbt017
where nrinvoic eq itab_zycbt006-nrinvoic
and nrparcf eq itab_zycbt006-nrparcf.
if /pws/zycet037-bukrs is initial.
select single *
from /pws/zycet037
where bukrs eq /pws/zycbe001-bukrs.
endif.
select single * from /pws/zycbt037
* >> Início da exclusão: FORM LIQUIDA_COMISSAO_DE_AGENTE
where parvw eq /pws/zycbt017-parvw.
* << Fim da exclusão
* >> Início da inclusão: FORM LIQUIDA_COMISSAO_DE_AGENTE
where parvw eq /pws/zycbt017-parvw."#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc ne 0.
if /pws/zycbt017-parvw eq 'AD' or
/pws/zycbt017-parvw eq 'DA'.
select single * from /pws/zycbt037
where parvw eq 'AD' or
* >> Início da exclusão: FORM LIQUIDA_COMISSAO_DE_AGENTE
parvw eq 'DA'.
* << Fim da exclusão
* >> Início da inclusão: FORM LIQUIDA_COMISSAO_DE_AGENTE
parvw eq 'DA'. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
endif.
check /pws/zycbt037-codpad eq 'G' or /pws/zycbt037-codpad eq 'D'.
if /pws/zycet037-comis_provisao is initial or
/pws/zycet037-comis_provisao eq 0.
select *
into table itab_zycet010
from /pws/zycet010
where nrseq eq itab_zycbt006-nrinvoic
and ( dtpagto is null
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
gsberf = itab_vinc-gsberf AND
nrparcf = itab_vinc-nrparcf AND
nrseqc = itab_vinc-nrseqc.
IF sy-subrc NE 0.
SELECT *
FROM /pws/zycbt209
INTO TABLE itab_zycbt209
FOR ALL ENTRIES IN itab_vinc
WHERE nrinvoic = itab_vinc-nrinvoic AND
gsberf = itab_vinc-gsberf AND
* >> Início da exclusão: FORM ESTORNO_PERIODO_ABERTO
nrparcf = itab_vinc-nrparcf .
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO
nrparcf = itab_vinc-nrparcf . "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
SELECT *
FROM /pws/zycbt226
INTO TABLE itab_zycbt226
FOR ALL ENTRIES IN itab_vinc
WHERE nrinvoic = itab_vinc-nrinvoic AND
gsberf = itab_vinc-gsberf AND
nrparcf = itab_vinc-nrparcf .
ENDIF.
PERFORM get_parameters_cp.
...
...
itab_partidas-tabela = itab_zycbe033-tabela.
itab_partidas-cpochv = itab_zycbe033-cpochv.
itab_partidas-belnr = itab_zycbt030-belnr_d.
itab_partidas-agkon = itab_zycbt017-kunag.
itab_partidas-agkoa = 'D'.
itab_partidas-agums = space.
itab_partidas-bukrs = wa_zycbt005-bukrs.
itab_partidas-shkzg = 'H'.
itab_partidas-v_sinal = '+'.
itab_partidas-dtdocto = itab_zycbt006-dtpagto.
* >> Início da exclusão: FORM FILL_DATE6_F30_LIQUID
CONCATENATE 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID
concatenate text-472
* << Fim da inclusão
wa_zycbt005-nrinvoic
INTO itab_partidas-d_zuonr
SEPARATED BY space.
itab_partidas-v_sinal = '-'.
APPEND itab_partidas.
ENDLOOP.
IF NOT itab_partidas[] IS INITIAL.
itab_zycbe033-agkon = itab_zycbt017-kunag.
CLEAR itab_zycbe033-umskz.
itab_zycbe033-agkoa = 'D'.
...
...
itab_partidas-tcode = itab_zycbe033-tcode.
itab_partidas-tabela = itab_zycbe033-tabela.
itab_partidas-cpochv = itab_zycbe033-cpochv.
itab_partidas-belnr = itab_zycbt209-belnr_d.
itab_partidas-dtdocto = itab_zycbt209-budat_d.
itab_partidas-agkon = itab_zycbt209-hkont.
itab_partidas-agkoa = itab_zycbt209-koart.
itab_partidas-agums = itab_zycbt209-umskz.
itab_partidas-bukrs = itab_zycbt209-bukrs.
itab_partidas-shkzg = 'H'.
* >> Início da exclusão: FORM FILL_DATE6_F30_LIQUID
CONCATENATE 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID
concatenate text-472
* << Fim da inclusão
wa_zycbt005-nrinvoic
INTO itab_partidas-d_zuonr
SEPARATED BY space.
itab_partidas-v_sinal = '-'.
APPEND itab_partidas.
ENDLOOP.
ENDFORM.
FORM lancamento_clearing_2.
DATA v_vltot.
v_waersbrl = wa_zycbt007-waersb.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F09
...
select single * from /pws/zycbt089 into wa_zycbt089
where bukrs eq /pws/zycbe001-bukrs.
if not /pws/zycbt089-bx_cli_vinc is initial.
loop at itab_zycbt005_ant.
select single * from /pws/zycbt209
where nrinvoic = itab_zycbt005_ant-nrinvoic and
dtincl = itab_zycbt005_ant-dtvincul and
gsberf = itab_zycbt005_ant-gsberf and
nrparcf = itab_zycbt005_ant-nrparcf and
liquid = ' ' and
* >> Início da exclusão: FORM VERIFICA_BAIXA_CLIENTE
nrseqc = itab_zycbt005_ant-nrseqc.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_BAIXA_CLIENTE
nrseqc = itab_zycbt005_ant-nrseqc. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc ne 0.
v_ind_mudanca = 'X'.
itab_zycbt005-flag = 'I'.
modify itab_zycbt005 transporting flag
where nrinvoic = itab_zycbt005_ant-nrinvoic and
gsberf = itab_zycbt005_ant-gsberf and
nrparcf = itab_zycbt005_ant-nrparcf.
endif.
endloop.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
and gsberf = itab_zycbt005-gsberf
and sld_exterior gt 0.
if sy-subrc eq 0.
select *
from /pws/zycbt209
into table it_zycbt209
for all entries in it_zycbt226
where nrinvoic = it_zycbt226-nrinvoic
and nrparcf = it_zycbt226-nrparcf
and gsberf = it_zycbt226-gsberf
* >> Início da exclusão: FORM SELECAO_FATURAS
and saldo gt 0.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECAO_FATURAS
and saldo gt 0. "#EC CI_NOFIRST
* << Fim da inclusão
select *
from /pws/zycbt030
into table it_zycbt030
for all entries in it_zycbt226
where nrinvoic = it_zycbt226-nrinvoic
and nrparcf = it_zycbt226-nrparcf
and gsberf = it_zycbt226-gsberf
and vlsltrans gt 0.
loop at it_zycbt226.
clear: v_209, v_030.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009O01
...
v_comp.
if sy-dynnr eq '0100' or
sy-dynnr eq '0402'.
v_cod_grupo = 'CCO'.
endif.
select campo flag
from /pws/zyglt320
into table itab_t320
where programa = sy-repid and
tela = sy-dynnr and
* >> Início da exclusão: MODULE TRATA_TBCONTROL
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_TBCONTROL
cod_grupo = v_cod_grupo."#EC CI_NOFIRST
* << Fim da inclusão
sort itab_t320 by campo.
loop at screen.
itab_nome_campo-nome_campo_tela = screen-name.
append itab_nome_campo.
endloop.
sort itab_nome_campo.
loop at itab_t320.
concatenate '.'
itab_t320-campo '.' into v_comp.
search itab_nome_campo for v_comp starting at 1.
...
...
sy-dynnr eq '0405'.
v_cod_grupo = 'CCR'.
elseif sy-dynnr eq '0404'.
v_cod_grupo = 'CCO'.
endif.
select campo flag
from /pws/zyglt320
into table itab_t320
where programa = sy-repid and
tela = sy-dynnr and
* >> Início da exclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo."#EC CI_NOFIRST
* << Fim da inclusão
sort itab_t320 by campo.
loop at screen.
itab_nome_campo-nome_campo_tela = screen-name.
append itab_nome_campo.
endloop.
sort itab_nome_campo.
loop at itab_t320.
concatenate '.' itab_t320-campo '.' into v_comp.
search itab_nome_campo for v_comp starting at 1.
if sy-subrc eq 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012F01
...
else.
v_motivo = '01'.
endif.
endform.
form modo_batch_input.
clear: /pws/zycbt039, itab_modo.
refresh: itab_modo.
select * from /pws/zycbt039.
itab_modo-selflag = /pws/zycbt039-modo.
itab_modo-varoption = /pws/zycbt039-descr.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
append itab_modo.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
append itab_modo. "#EC CI_NOWHERE
* << Fim da inclusão
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-086
textline2 = text-087
titel = text-088
importing
answer = v_modo_bi
tables
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB027F01
...
itab_zycbt034-descricao = p_description.
APPEND itab_zycbt034.
ENDIF.
ENDFORM.
FORM modo_batch_input.
CLEAR: /pws/zycbt039, itab_modo.
REFRESH: itab_modo.
SELECT * FROM /pws/zycbt039.
itab_modo-selflag = /pws/zycbt039-modo.
itab_modo-varoption = /pws/zycbt039-descr.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
APPEND itab_modo.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
append itab_modo. "#EC CI_NOWHERE
* << Fim da inclusão
ENDSELECT.
SORT itab_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-026
textline2 = text-027
titel = text-028
IMPORTING
answer = v_modo_bi
TABLES
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB028F01
...
v_ok = 'X'.
ENDIF.
PERFORM clear_date_batch.
ENDFORM.
FORM modo_batch_input.
CLEAR: /pws/zycbt039, itab_modo.
REFRESH itab_modo.
SELECT * FROM /pws/zycbt039.
itab_modo-selflag = /pws/zycbt039-modo.
itab_modo-varoption = /pws/zycbt039-descr.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
APPEND itab_modo.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
append itab_modo. "#EC CI_NOWHERE
* << Fim da inclusão
ENDSELECT.
SORT itab_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-094
textline2 = text-095
titel = text-096
IMPORTING
answer = v_modo_bi
TABLES
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB028O01
...
SPRAS = SY-LANGU.
ENDSELECT.
ENDIF.
ENDIF.
IF NOT /PWS/ZYCBE086-WAERS IS INITIAL.
SELECT KTEXT
UP TO 1 ROWS
FROM TCURT
INTO V_MOEDA
WHERE WAERS = /PWS/ZYCBE086-WAERS AND
* >> Início da exclusão: MODULE SET_SCREEN
SPRAS = SY-LANGU.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
spras = sy-langu. "#EC CI_SGLSELECT
* << Fim da inclusão
ENDSELECT.
ENDIF.
IF NOT /PWS/ZYCBE086-CODMOD IS INITIAL.
SELECT DESCRICAO
FROM /PWS/ZYCBT111
INTO V_CODMOD
WHERE CODMOD = /PWS/ZYCBE086-CODMOD.
ENDSELECT.
ENDIF.
IF /PWS/ZYCBE086-FRRECEB EQ 'R'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB030F01
...
if sy-subrc ne 0 and not v_descricao is initial.
message w293 with v_descricao. "#EC *
endif.
endform.
form busca_bandeira.
select land1
into /pws/zycbe098-land1
up to 1 rows
from t005t
where landx eq v_bandeira
* >> Início da exclusão: FORM BUSCA_BANDEIRA
and land1 ne space.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_BANDEIRA
and land1 ne space. "#EC CI_GENBUFF
* << Fim da inclusão
endselect.
if sy-subrc ne 0 and not v_bandeira is initial.
message w293 with v_bandeira.
endif.
endform.
form criar_modelo.
v_nrseq = /pws/zycbe092-nrseq.
v_nrseq1 = v_modelo.
write v_nrseq1 right-justified to v_nrseq1.
overlay v_nrseq1 with '00000000'.
...
----------------------------------------------------------------------------------------------------
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. "#EC CI_NOWHERE
append itab_modo.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
itab_modo-varoption = /pws/zycbt039-descr.
append itab_modo. "#EC CI_NOWHERE
* << Fim da inclusão
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
tables
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
<fs_devolucao> type t_devolucao.
loop at itab_zycbt226 into wa_zycbt226
where mark = 'X'
and tipo_op = c_pagamento_antecipado.
append wa_zycbt226 to it_zycbt226_temp.
endloop.
if not it_zycbt226_temp[] is initial.
select * from /pws/zycbt242
into table itab_devolucao
for all entries in it_zycbt226_temp
* >> Início da exclusão: FORM SELECIONA_DEVOLUCAO
where nrseqop = it_zycbt226_temp-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DEVOLUCAO
where nrseqop = it_zycbt226_temp-nrseq. "#EC CI_NOFIELD
* << Fim da inclusão
endif.
loop at it_zycbt226_temp into wa_zycbt226.
loop at itab_devolucao assigning <fs_devolucao>
where nrseqop = wa_zycbt226-nrseq.
<fs_devolucao>-sld_exterior = wa_zycbt226-sld_exterior.
<fs_devolucao>-sld_associar = wa_zycbt226-sld_associar.
endloop.
if sy-subrc ne 0.
perform adicionar_item_devolucao
using wa_zycbt226.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB106F01
...
move 'X' to itab_zycbt115-fsta.
modify itab_zycbt115 index sy-tabix.
endloop.
if not /pws/zycbe119-belnr_p is initial
or not /pws/zycbe119-belnr51 is initial.
perform salvar_dados.
else .
delete from /pws/zycbt119 where nrseq = /pws/zycbe119-nrseq.
delete from /pws/zycmt020 where nrseq = /pws/zycbe119-nrseq and
codmod = 'PG'.
* >> Início da exclusão: FORM EXCLUIR_REGISTRO
delete from /pws/zycbt108 where nrseq_pgfat = /pws/zycbe119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_REGISTRO
delete from /pws/zycbt108
where nrseq_pgfat = /pws/zycbe119-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
move sy-repid to v_repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'I'
i_func = v_repid
tables
itab_zyglt100 = itab_zyglt100
exceptions
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F01
...
itab_erro_aux.
refresh: itab_erro, itab_acerto, itab_erro_s, itab_acerto_s,
itab_erro_aux.
endif.
if v_erro_f_04 is initial.
clear itab_zycbt134_todos.
refresh itab_zycbt134_todos.
select *
from /pws/zycbt134
into table itab_zycbt134_todos
* >> Início da exclusão: FORM SALVAR_DADOS
where statuspg eq space.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
where statuspg eq space. "#EC CI_NOFIELD
* << Fim da inclusão
endif.
endform.
form popup_message using value(p_text_001)
value(p_title).
call function 'POPUP_TO_CONFIRM_STEP'
exporting
defaultoption = 'Y'
textline1 = p_text_001
titel = p_title
importing
...
...
elseif itab_zycbt134-tpproc(3) = 'ISS'.
itab_zycat025-dtpagto = /pws/zycbt145-dtiss.
elseif itab_zycbt134-tpproc(3) = 'PIS'.
itab_zycat025-dtpagto = /pws/zycbt145-dtpis.
elseif itab_zycbt134-tpproc(6) = 'COFINS'.
itab_zycat025-dtpagto = /pws/zycbt145-dtcofins.
endif.
update /pws/zycat025 set dtpagto = itab_zycat025-dtpagto
belnr_pg = itab_zycat025-belnr_pg
where nrseq = itab_zycat025-nrseq
* >> Início da exclusão: FORM EXECUTA_BATCH
and tpimp = itab_zycat025-tpimp.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
and tpimp = itab_zycat025-tpimp."#EC CI_NOFIRST
* << Fim da inclusão
modify itab_zycat025 transporting dtpagto belnr_pg
where nrseq = itab_zycat025-nrseq
and tpimp = itab_zycat025-tpimp.
endloop.
endif.
endloop.
else.
if not itab_zycbt032-belnr is initial.
if itab_zycbt134-tpproc = 'I' or
itab_zycbt134-tpproc(4) = 'IRRF'.
...
...
export itab_acerto_s[] to memory id '005'.
submit /pws/zycbr128 and return.
clear: itab_erro, itab_acerto, itab_erro_s, itab_acerto_s.
refresh: itab_erro, itab_acerto, itab_erro_s, itab_acerto_s.
endif.
clear itab_zycbt134_todos.
refresh itab_zycbt134_todos.
select *
from /pws/zycbt134
into table itab_zycbt134_todos
* >> Início da exclusão: FORM ESTORNA_PAGAMENTOS
where statuspg eq space.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_PAGAMENTOS
where statuspg eq space. "#EC CI_NOFIELD
* << Fim da inclusão
clear: v_answer, ok_code.
endform.
form executa_estorno.
clear v_belnr_cl.
perform verifica_documentos_clearing.
sort itab_zycbt134_estorno by nrseq ascending
tpproc ascending
belnr_c descending
belnr_ci descending.
loop at itab_zycbt134_estorno.
...
...
append itab_erro.
delete itab_zycbt134_estorno_aux
where nrseq eq itab_zycbt134_estorno-nrseq and
dtboleto eq itab_zycbt134_estorno-dtboleto.
else.
perform atualiza_tabelas.
endif.
update /pws/zycbt154 set: belnr_cl = space
status = space
where nrcorresp = itab_zycbt134_estorno-nrcorresp
* >> Início da exclusão: FORM FILL_DATA_FBRA
and belnr_cl = v_belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
and belnr_cl = v_belnr. "#EC CI_NOFIRST
* << Fim da inclusão
commit work.
* >> Início da exclusão: FORM FILL_DATA_FBRA
delete from /pws/zycbt154 where belnr_pr = v_belnr
and nrcorresp = itab_zycbt134_estorno-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
delete from /pws/zycbt154
where belnr_pr = v_belnr
and nrcorresp = itab_zycbt134_estorno-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
else.
loop at itab_zycbt034.
message i127 with itab_zycbt034-descricao v_evento.
endloop.
endif.
else.
perform atualiza_tabelas.
update /pws/zycbt154 set: belnr_cl = space
status = space
where nrcorresp = itab_zycbt134_estorno-nrcorresp
* >> Início da exclusão: FORM FILL_DATA_FBRA
and belnr_cl = v_belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
and belnr_cl = v_belnr."#EC CI_NOFIRST
* << Fim da inclusão
commit work.
* >> Início da exclusão: FORM FILL_DATA_FBRA
delete from /pws/zycbt154 where belnr_pr = v_belnr
and nrcorresp = itab_zycbt134_estorno-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
delete from /pws/zycbt154
where belnr_pr = v_belnr
and nrcorresp = itab_zycbt134_estorno-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
endif.
if itab_zycbt134_estorno-belnr_c is initial and
itab_zycbt134_estorno-belnr_ci is initial and
itab_zycbt134_estorno-belnr_cide is initial.
update /pws/zycbt031 set statuspg = ''
where nrseq = itab_zycbt134_estorno-nrseq and
dtboleto = itab_zycbt134_estorno-dtboleto.
commit work.
read table itab_zycbt031 with key
nrseq = itab_zycbt134_estorno-nrseq
...
...
elseif v_modo_bi eq '1'.
v_modo_bi = 'N'.
endif.
endform.
form elimina_recebimentos.
clear itab_zycbt124_aux.
refresh itab_zycbt124_aux.
select *
from /pws/zycbt124
into table itab_zycbt124_aux
* >> Início da exclusão: FORM ELIMINA_RECEBIMENTOS
where tpoper = text-096.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_RECEBIMENTOS
where tpoper = text-096. "#EC CI_NOFIELD
* << Fim da inclusão
loop at itab_zycbt031 where mdcorresp = text-097.
read table itab_zycbt124_aux
with key nrseq = itab_zycbt031-nrcorresp.
if sy-subrc eq 0.
delete itab_zycbt031.
endif.
endloop.
endform.
form executa_clearing.
data v_evento_comis like /pws/zycbt011-codeven.
...
...
others = 2.
if sy-subrc = 0.
read table itab_zycbt032 with key tcode = 'FB08'
tabela = '/PWS/ZYCBT134'
cpochv = itab_zycbt134_sel-nrseq
tpmsg = 'S'.
if sy-subrc eq 0.
if v_mod = 'JU' or v_mod = 'CO'.
message i061 with text-104 v_belnr_f_02j
text-230 itab_zycbt134_sel-nrseq.
* >> Início da exclusão: FORM ESTORNA_DIFERENCA
delete itab_zycbt154 where belnr_pr = v_belnr_f_02j.
delete from /pws/zycbt154 where belnr_pr = v_belnr_f_02j.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DIFERENCA
delete itab_zycbt154
where belnr_pr = v_belnr_f_02j."#EC CI_NOFIRST
delete from /pws/zycbt154
where belnr_pr = v_belnr_f_02j."#EC CI_NOFIRST
* << Fim da inclusão
commit work.
clear v_belnr_f_02j.
elseif v_mod = 'IR'.
message i061 with text-104 v_belnr_f_02i
text-230 itab_zycbt134_sel-nrseq.
delete itab_zycbt154 where belnr_pr = v_belnr_f_02i.
delete from /pws/zycbt154 where belnr_pr = v_belnr_f_02i.
commit work.
clear v_belnr_f_02i.
endif.
...
...
itab_zycbt134-dtlanc = itab_zycbe033-budat.
loop at itab_zycbt064 where nrboleto = itab_zycbt134-nrseq.
loop at itab_zycat025 where tpimp(4) = 'IRRF'
and nrseq = itab_zycbt064-nrchave.
itab_zycat025-belnr_pg = itab_zycbt134-belnr_ci.
itab_zycat025-dtpagto = itab_zycbt031-dtcredir.
update /pws/zycat025 set
dtpagto = itab_zycat025-dtpagto
belnr_pg = itab_zycat025-belnr_pg
where nrseq = itab_zycat025-nrseq and
* >> Início da exclusão: FORM EXECUTA_F53_CP_ESPECIFICA
tpimp = itab_zycat025-tpimp.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
tpimp = itab_zycat025-tpimp."#EC CI_NOFIRST
* << Fim da inclusão
modify itab_zycat025 transporting dtpagto belnr_pg
where nrseq = itab_zycat025-nrseq
and tpimp = itab_zycat025-tpimp.
endloop.
endloop.
if itab_zycbt134-mdcorresp eq 'ED'.
read table itab_zycbt031 with key
nrseq = itab_zycbt134-nrseq.
if itab_zycbt031-tpdesp eq 'PR'.
if /pws/zyglt009-arq_eletro = 'X'
...
...
itab_zycbt134-belnr_cide = itab_zycbt032-belnr.
itab_zycbt134-dtlanc = itab_zycbe033-budat.
loop at itab_zycbt064 where nrboleto = itab_zycbt134-nrseq.
loop at itab_zycat025 where tpimp(4) = 'CIDE'
and nrseq = itab_zycbt064-nrchave.
itab_zycat025-belnr_pg = itab_zycbt134-belnr_cide.
itab_zycat025-dtpagto = itab_zycbt031-dtcide.
update /pws/zycat025 set dtpagto = itab_zycat025-dtpagto
belnr_pg = itab_zycat025-belnr_pg
where nrseq = itab_zycat025-nrseq
* >> Início da exclusão: FORM EXECUTA_F53_CP_ESPECIFICA
and tpimp = itab_zycat025-tpimp.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
and tpimp = itab_zycat025-tpimp. "#EC CI_NOFIRST
* << Fim da inclusão
modify itab_zycat025 transporting dtpagto belnr_pg
where nrseq = itab_zycat025-nrseq
and tpimp = itab_zycat025-tpimp.
endloop.
endloop.
endif.
endif.
move-corresponding itab_zycbt134 to itab_acerto_s.
itab_acerto_s-dtcont = sy-datum.
itab_acerto_s-belnr = v_belnr.
...
...
and tpdesp = /pws/zycbt031-tpdesp
and dtincl = /pws/zycbt031-dtincl.
endif.
endif.
endloop.
endform.
form atualiza_docto_pres_ep.
loop at itab_zycbt064.
update /pws/zycet033 set docnum_1 = itab_zycbt134-belnr_c
statuscb = 'E'
* >> Início da exclusão: FORM ATUALIZA_DOCTO_PRES_EP
where nrpres = itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DOCTO_PRES_EP
where nrpres = itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
commit work.
endloop.
endform.
form doc_prest.
loop at itab_zycbt064.
update /pws/zycet033 set docnum_1 = ''
statuscb = ''
* >> Início da exclusão: FORM DOC_PREST
where nrpres = itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM DOC_PREST
where nrpres = itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
commit work.
endloop.
endform.
form preenche_contas_f02_ed.
data: v_ktosl like /pws/zyglt316-ktosl,
v_codaux1 like /pws/zyglt316-codaux1.
if itab_zycbe033-tcode = text-281.
v_ktosl = 'DSE'.
clear v_codaux1.
if /pws/zyglt009-provjur_moeda = 'X' and
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F02
...
endif.
if p_estorno_bol is initial.
delete from /pws/zycbt134 where nrseq = v_nrseq
and tpproc = v_tpproc.
clear: itab_zycbt134-statusp, itab_zycbt134-belnr_c.
modify itab_zycbt134 transporting statusp belnr_c
where nrseq = v_nrseq
and tpproc = v_tpproc.
else.
delete from /pws/zycbt232 where nrboleto = v_nrseq
* >> Início da exclusão: FORM ATUALIZA_DADOS_ORDEM_BOLETO
and tpproc = v_tpproc.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DADOS_ORDEM_BOLETO
and tpproc = v_tpproc."#EC CI_NOFIRST
* << Fim da inclusão
delete itab_zycbt232_assoc where nrboleto = v_nrseq
and tpproc = v_tpproc.
endif.
endform.
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.
...
...
where nrseq = itab_zycbt124-nrseq.
endloop.
else.
loop at itab_zycat025
where tpimp = itab_zycbt134_estorno-tpproc
and nrseq = itab_zycbt064-nrchave.
clear: itab_zycat025-belnr_pg, itab_zycat025-dtpagto.
update /pws/zycat025 set dtpagto = itab_zycat025-dtpagto
belnr_pg = itab_zycat025-belnr_pg
where nrseq = itab_zycat025-nrseq
* >> Início da exclusão: FORM ATUALIZA_TABELAS
and tpimp = itab_zycat025-tpimp.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TABELAS
and tpimp = itab_zycat025-tpimp."#EC CI_NOFIRST
* << Fim da inclusão
modify itab_zycat025 transporting dtpagto belnr_pg
where nrseq = itab_zycat025-nrseq
and tpimp = itab_zycat025-tpimp.
endloop.
endif.
endloop.
endif.
if itab_zycbt134_estorno-mdcorresp = 'EP'.
perform doc_prest.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115I01
...
and not itab_zycbt134[] is initial.
message e061 with text-268.
endif.
endif.
endmodule.
module consiste_banco_empresa input.
if not v_bcoemp is initial.
select *
up to 1 rows
from t012
* >> Início da exclusão: MODULE CONSISTE_BANCO_EMPRESA
where hbkid eq v_bcoemp.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_BANCO_EMPRESA
where hbkid eq v_bcoemp. "#EC CI_GENBUFF
* << Fim da inclusão
endselect.
if sy-subrc ne 0.
message e061 with text-268.
endif.
endif.
endmodule.
module consiste_id_conta input.
if not v_idconta is initial.
select *
up to 1 rows
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB116F03
...
where nrseq = /pws/zycbe233-nrseq.
if sy-subrc = 0.
if not r_financiamento is initial.
if not itab_zycbt243[] is initial.
select *
from /pws/zycbt112
into table itab_zycbt112
for all entries in itab_zycbt243
where nrseqcot = itab_zycbt243-nrseq
and waers = itab_zycbt243-waers
* >> Início da exclusão: FORM ZF_EXCLUI_CAPTACAO
and status = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM ZF_EXCLUI_CAPTACAO
and status = 'E'. "#EC CI_NOFIELD
* << Fim da inclusão
endif.
if sy-subrc = 0.
vl_flag = 'X'.
endif.
endif.
if not r_emprestimo is initial.
if not itab_zycbt243[] is initial.
select *
from /pws/zycbt128
into table itab_zycbt128
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB116I01
...
endif.
endif.
endif.
endmodule.
module consiste_instituicao input.
data v_instituicao type /pws/zyglt215-instituicao.
check not /pws/zycbe048-instituicao is initial.
select single instituicao
from /pws/zyglt215
into v_instituicao
* >> Início da exclusão: MODULE CONSISTE_INSTITUICAO
where instituicao = /pws/zycbe048-instituicao.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_INSTITUICAO
where instituicao = /pws/zycbe048-instituicao. "#EC CI_NOFIELD
* << Fim da inclusão
if sy-subrc ne 0.
message e061 with text-025.
endif.
endmodule.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB251F01
...
INTO TABLE itab_tabelas
FROM dd02l INNER JOIN tadir
ON dd02l~tabname = tadir~obj_name
WHERE ( dd02l~tabname LIKE '/PWS/ZYC_T%' )
AND ( tadir~devclass = '/PWS/ZYCB' OR
tadir~devclass = '/PWS/ZYCA' OR
tadir~devclass = '/PWS/ZYCM' )
AND ( tadir~object = 'TRAN'
OR tadir~object = 'TABL' )
AND tadir~pgmid = 'R3TR'
* >> Início da exclusão: FORM CARREGA_TABLES
AND tadir~obj_name = dd02l~tabname.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_TABLES
and tadir~obj_name = dd02l~tabname. "#EC CI_BUFFJOIN
* << Fim da inclusão
CLEAR itab_tabelas.
itab_tabelas-tabela = '/PWS/ZYCBT011'.
APPEND itab_tabelas.
CLEAR itab_tabelas.
itab_tabelas-tabela = '/PWS/ZYCBT029'.
APPEND itab_tabelas.
CLEAR itab_tabelas.
itab_tabelas-tabela = '/PWS/ZYCBT031'.
APPEND itab_tabelas.
CLEAR itab_tabelas.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL003F01
...
into v_categoria
where categ = /pws/zyglt016-categ.
else.
clear v_categoria.
endif.
if not /pws/zyglt019-status is initial.
select ddtext from dd07t
into v_status
up to 1 rows
where domname = '/PWS/ZYGLD029'
* >> Início da exclusão: FORM DET_DOMINIO
and domvalue_l = /pws/zyglt019-status.
* << Fim da exclusão
* >> Início da inclusão: FORM DET_DOMINIO
and domvalue_l = /pws/zyglt019-status. "#EC CI_GENBUFF
* << Fim da inclusão
endselect.
elseif not /pws/zyglt015-status is initial.
select ddtext from dd07t
into v_status
up to 1 rows
where domname = '/PWS/ZYGLD029'
and domvalue_l = /pws/zyglt015-status.
endselect.
else.
clear v_status.
endif.
if not /pws/zyglt019-categ_dad is initial.
select ddtext from dd07t
into v_categ_dad
up to 1 rows
where domname = '/PWS/ZYGLD123'
* >> Início da exclusão: FORM DET_DOMINIO
and domvalue_l = /pws/zyglt019-categ_dad.
* << Fim da exclusão
* >> Início da inclusão: FORM DET_DOMINIO
and domvalue_l = /pws/zyglt019-categ_dad."#EC CI_GENBUFF
* << Fim da inclusão
endselect.
else.
clear v_categ_dad.
endif.
if not /pws/zyglt015-prod is initial.
select ddtext from dd07t
into v_produto
up to 1 rows
where domname = '/PWS/ZYGLD030'
* >> Início da exclusão: FORM DET_DOMINIO
and domvalue_l = /pws/zyglt015-prod.
* << Fim da exclusão
* >> Início da inclusão: FORM DET_DOMINIO
and domvalue_l = /pws/zyglt015-prod."#EC CI_GENBUFF
* << Fim da inclusão
endselect.
else.
clear v_produto.
endif.
if not /pws/zyglt019-formato is initial.
select ddtext from dd07t
into v_formato
up to 1 rows
where domname = '/PWS/ZYGLD017'
* >> Início da exclusão: FORM DET_DOMINIO
and domvalue_l = /pws/zyglt019-formato.
* << Fim da exclusão
* >> Início da inclusão: FORM DET_DOMINIO
and domvalue_l = /pws/zyglt019-formato."#EC CI_GENBUFF
* << Fim da inclusão
endselect.
else.
clear v_formato.
endif.
endform.
form trata_formato.
if /pws/zyglt019-categ_dad = '3'.
loop at screen.
case screen-name.
when '/PWS/ZYGLT019-FORMATO'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL032F01
...
okcode = okcode_aux.
MESSAGE i000 WITH text-009.
ENDFORM.
FORM call_ucomm_abort.
PERFORM free_tree.
LEAVE PROGRAM.
ENDFORM.
FORM fill_nodes.
REFRESH: node_table.
IF itab_zycbt214[] IS INITIAL.
* >> Início da exclusão: FORM FILL_NODES
SELECT * FROM /pws/zycbt214 INTO TABLE itab_zycbt214.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_NODES
select * from /pws/zycbt214
into table itab_zycbt214. "#EC CI_NOWHERE
* << Fim da inclusão
SORT itab_zycbt214 BY tpcontr.
ENDIF.
CLEAR node.
node-node_key = text-003.
node-isfolder = 'X'.
node-text = text-012.
node-dragdropid = ' '.
APPEND node TO node_table.
IF NOT itab_zycbt214[] IS INITIAL.
SELECT * FROM /pws/zycbt016 INTO TABLE itab_zycbt016
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL342I01
...
MODULE consiste_area INPUT.
IF NOT /pws/zyglt350-area IS INITIAL.
SELECT SINGLE * FROM /pws/zyglt341 WHERE area = /pws/zyglt350-area.
IF sy-subrc NE 0 AND /pws/zyglt350-area NE '#'.
MESSAGE e015 WITH text-022.
ENDIF.
ENDIF.
ENDMODULE.
MODULE consiste_ccusto INPUT.
IF NOT /pws/zyglt350-kostl IS INITIAL.
* >> Início da exclusão: MODULE CONSISTE_CCUSTO
SELECT * FROM csks UP TO 1 ROWS WHERE kostl = /pws/zyglt350-kostl.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_CCUSTO
select * from csks up to 1 rows
where kostl = /pws/zyglt350-kostl."#EC CI_GENBUFF
* << Fim da inclusão
ENDSELECT.
IF sy-subrc NE 0 AND /pws/zyglt350-kostl NE '#'.
MESSAGE e015 WITH text-022.
ENDIF.
ENDIF.
ENDMODULE.
MODULE consiste_clucro INPUT.
IF NOT /pws/zyglt350-prctr IS INITIAL.
SELECT * FROM cepc UP TO 1 ROWS WHERE prctr = /pws/zyglt350-prctr.
ENDSELECT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR111
...
j_1bbranch werks
into table itab_zycbt112
from /pws/zycbt112
where bukrs in so_empr and
gsber in so_div and
codint in so_tpmt and
bcofinan in so_bco and
lifnr in so_forn and
werks in so_cen and
j_1bbranch in so_fil and
* >> Início da exclusão: FORM PROCESSAR_FINANC
dtincl in so_dtinc.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_FINANC
dtincl in so_dtinc. "#EC CI_NOFIELD
* << Fim da inclusão
if not itab_zycbt112[] is initial.
select *
from /pws/zycbt113
into table itab_zycbt113
for all entries in itab_zycbt112
where nrseq eq itab_zycbt112-nrseq and
dtpagto in so_dtpg and
dtpagto not in ('00000000', ' ') and
status ne 'E'.
loop at itab_zycbt113.
...
...
into table itab_zycbt119
from /pws/zycbt119
where bukrs in so_empr and
gsber in so_div and
codint in so_tpmt and
bconegoc in so_bco and
lifnr in so_forn and
status ne 'E' and
werks in so_cen and
j_1bbranch in so_fil and
* >> Início da exclusão: FORM PROCESSAR_PFATUR
dtincl in so_dtinc.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_PFATUR
dtincl in so_dtinc. "#EC CI_NOFIELD
* << Fim da inclusão
if not itab_zycbt119[] is initial.
if not so_dtpg[] is initial.
delete itab_zycbt119 where dtpagto = '00000000'
or dtpagto = ' '.
loop at itab_zycbt119.
loop at so_dtpg where low <= itab_zycbt119-dtpagto
and high >= itab_zycbt119-dtpagto.
exit.
endloop.
if sy-subrc ne 0.
...
...
from /pws/zycbt118
where dtpagto not in ('00000000', ' ') and
dtpagto in so_dtpg and
bukrs in so_empr and
benefic in so_forn and
status ne 'E' and
codmod eq 'I' and
dtincl in so_dtinc and
werks in so_cen and
j_1bbranch in so_fil and
* >> Início da exclusão: FORM PROCESSAR_DESPESA
gsber in so_div.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_DESPESA
gsber in so_div. "#EC CI_NOFIELD
* << Fim da inclusão
if not itab_zycbt118[] is initial.
select *
from /pws/zycbt064
into table itab_zycbt064
for all entries in itab_zycbt118
where mdcorresp eq 'ID' and
nrchave eq itab_zycbt118-nrseq.
if sy-subrc eq 0 and not itab_zycbt064[] is initial.
select *
from /pws/zycbt134
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR120
...
END-OF-PAGE.
ULINE.
FORM processar_financ.
SELECT nrseq nrfinanc bukrs bcofinan waers vlme lifnr tbn codint
INTO CORRESPONDING FIELDS OF TABLE itab_zycbt112
FROM /pws/zycbt112
WHERE bukrs IN so_empr
AND codint IN so_tpmt
AND bcofinan IN so_bco
AND lifnr IN so_forn
* >> Início da exclusão: FORM PROCESSAR_FINANC
AND status NE 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_FINANC
and status ne 'E'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycbt113 INTO TABLE itab_zycbt113
FOR ALL ENTRIES IN itab_zycbt112
WHERE nrseq EQ itab_zycbt112-nrseq
AND tpparc EQ 'P'
AND dtpagto NE '00000000'
AND dtpagto NE ' '.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycbt031 INTO TABLE itab_zycbt031
FOR ALL ENTRIES IN itab_zycbt113
...
...
AND nrparc EQ itab_zycbt113-nrparc.
ENDIF.
CLEAR itab_zycbt118.
REFRESH itab_zycbt118.
SELECT * FROM /pws/zycbt118
INTO TABLE itab_zycbt118
FOR ALL ENTRIES IN itab_zycbt112
WHERE nrref EQ itab_zycbt112-nrseq
AND codmodul EQ 'FI'
AND vlme GT 0
* >> Início da exclusão: FORM PROCESSAR_FINANC
AND status NE 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_FINANC
and status ne 'E'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
SELECT tpdesp txtdesc FROM /pws/zycbt015
INTO TABLE itab_zycbt015
FOR ALL ENTRIES IN itab_zycbt118
WHERE tpdesp EQ itab_zycbt118-tpdesp
AND ftipo EQ 'I'.
ENDIF.
SELECT bukrs butxt FROM t001
INTO TABLE itab_t001
FOR ALL ENTRIES IN itab_zycbt112
...
...
waers vlme nrfat lifnr refbanco codmod dtpagto tbn codint
INTO TABLE itab_zycbt119
FROM /pws/zycbt119
WHERE dtpagto IN so_dtpg
AND bukrs IN so_empr
AND codint IN so_tpmt
AND bconegoc IN so_bco
AND lifnr IN so_forn
AND status NE 'E'
AND dtpagto NE '00000000'
* >> Início da exclusão: FORM PROCESSAR_PFATUR
AND dtpagto NE ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_PFATUR
and dtpagto ne ' '. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0 AND NOT itab_zycbt119[] IS INITIAL.
CLEAR itab_zycbt118.
REFRESH itab_zycbt118.
SELECT * FROM /pws/zycbt118
INTO TABLE itab_zycbt118
FOR ALL ENTRIES IN itab_zycbt119
WHERE nrref EQ itab_zycbt119-nrseq
AND codmodul EQ 'PG'
AND vlme GT 0
* >> Início da exclusão: FORM PROCESSAR_PFATUR
AND status NE 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_PFATUR
and status ne 'E'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
SELECT tpdesp txtdesc FROM /pws/zycbt015
INTO TABLE itab_zycbt015
FOR ALL ENTRIES IN itab_zycbt118
WHERE tpdesp EQ itab_zycbt118-tpdesp
AND ftipo EQ 'I'.
ENDIF.
SELECT * FROM /pws/zycbt031 INTO TABLE itab_zycbt031
FOR ALL ENTRIES IN itab_zycbt119
WHERE nrcorresp = itab_zycbt119-nrseq
...
...
CLEAR itab_zycbt118.
REFRESH itab_zycbt118.
SELECT * FROM /pws/zycbt118
INTO TABLE itab_zycbt118
FOR ALL ENTRIES IN itab_zycbt117
WHERE nrref EQ itab_zycbt117-nrseq
AND codmodul EQ 'PA'
AND vlme GT 0
AND status NE 'E'
AND dtpagto NE '00000000'
* >> Início da exclusão: FORM PROCESSAR_PANTEC
AND dtpagto NE ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_PANTEC
and dtpagto ne ' '. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
SELECT tpdesp txtdesc FROM /pws/zycbt015
INTO TABLE itab_zycbt015
FOR ALL ENTRIES IN itab_zycbt118
WHERE tpdesp EQ itab_zycbt118-tpdesp
AND ftipo EQ 'I'.
ENDIF.
SELECT * FROM /pws/zycbt031 INTO TABLE itab_zycbt031
FOR ALL ENTRIES IN itab_zycbt117
WHERE mdcorresp EQ 'IA'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR140
...
itab_dados-dtvlext > p_dtbase ).
DELETE itab_dados.
v_filtrado = 'X'.
ENDIF.
CLEAR: v_saldo_aux, v_saldo209, v_saldo226.
SELECT saldo
FROM /pws/zycbt209
INTO v_saldo209
WHERE nrinvoic = itab_dados-nrinvoic
AND nrparcf = itab_dados-nrparcf
* >> Início da exclusão: FORM FILTRA_DADOS
AND dtbelnr NE '00000000'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILTRA_DADOS
and dtbelnr ne '00000000'. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
SELECT vlr_exterior
FROM /pws/zycbt226
INTO v_saldo226
WHERE nrinvoic = itab_dados-nrinvoic
AND nrparcf = itab_dados-nrparcf
AND dtlancto NE '00000000'.
ENDSELECT.
v_saldo_aux = itab_dados-vlme + v_saldo226 + v_saldo209.
IF v_saldo_aux <= 0.
...
...
( itab_dados-dtliqand NE '00000000' AND
itab_dados-dtliqand < p_dtbase ) OR
( itab_dados-dtvlext NE '00000000' AND
itab_dados-dtvlext < p_dtbase ).
CLEAR: v_saldo_aux, v_saldo209, v_saldo226.
SELECT saldo
FROM /pws/zycbt209
INTO v_saldo209
WHERE nrinvoic = itab_dados-nrinvoic
AND nrparcf = itab_dados-nrparcf
* >> Início da exclusão: FORM FILTRA_DADOS
AND dtbelnr NE '00000000'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILTRA_DADOS
and dtbelnr ne '00000000'. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
SELECT sld_exterior
FROM /pws/zycbt226
INTO v_saldo226
WHERE nrinvoic = itab_dados-nrinvoic
AND nrparcf = itab_dados-nrparcf
AND dtlancto NE '00000000'.
ENDSELECT.
if itab_dados-parvw = 'CG' or
itab_dados-parvw = 'DA'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR999
Report /pws/zycir999.
* >> Início da exclusão:
UPDATE /PWS/ZYCBT011 SET: USERNAMEC = SY-UNAME
* << Fim da exclusão
* >> Início da inclusão:
update /pws/zycet081 set: usernamec = sy-uname
* << Fim da inclusão
, HRUSERC = SY-UZEIT
* >> Início da exclusão:
, DTUSERC = SY-DATUM ."#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão:
, dtuserc = sy-datum
. "#EC CI_NOWHERE
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U03
DATA: BEGIN OF itab_zycet001 OCCURS 0,
nrinvoic LIKE /pws/zycet001-nrseq,
gsberf LIKE /pws/zycet001-gsber,
END OF itab_zycet001.
SELECT nrseq gsber FROM /PWS/ZYCET001
INTO TABLE itab_zycet001
* >> Início da exclusão:
WHERE envia_c EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão:
where envia_c eq 'X'. "#EC CI_NOFIELD
* << Fim da inclusão
LOOP AT record_tab.
READ TABLE itab_zycet001 WITH KEY
nrinvoic = record_tab-string+3(10).
IF sy-subrc NE 0.
READ TABLE itab_zycet001 WITH KEY
nrinvoic = record_tab-string(10).
ENDIF.
IF sy-subrc EQ 0.
DELETE record_tab.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYGLGF4U02
* >> Início da inclusão:
check callcontrol-step = 'SELECT'.
clear record_tab[].
data: v_record1(40),
v_record2(40).
if shlp-selopt is initial.
select trdir~name trdirt~text
from trdir
left join trdirt on trdirt~name = trdir~name
and trdirt~sprsl = sy-langu
into (v_record1,v_record2)
where trdir~name like '/PWS/SAPMZY%'. "#EC CI_BUFFJOIN
move v_record1(40) to record_tab(40).
move v_record2(40) to record_tab+40(40).
append record_tab.
endselect.
else.
ranges r_processo for trdir-name.
data wa_selopt like line of shlp-selopt.
loop at shlp-selopt into wa_selopt where shlpfield = 'PROCESSO'.
r_processo-sign = wa_selopt-sign.
r_processo-option = wa_selopt-option.
r_processo-low = wa_selopt-low.
r_processo-high = wa_selopt-high.
append r_processo.
endloop.
select trdir~name trdirt~text
from trdir
left join trdirt on trdirt~name = trdir~name
and trdirt~sprsl = sy-langu
into (v_record1,v_record2)
where trdir~name like '/PWS/SAPMZY%'
and trdir~name in r_processo. "#EC CI_BUFFJOIN
move v_record1(40) to record_tab(40).
move v_record2(40) to record_tab+40(40).
append record_tab.
endselect.
endif.
callcontrol-step = 'DISP'.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYGLGF4U06
* >> Início da inclusão:
check callcontrol-step = 'SELECT'.
clear record_tab[].
data: v_record1(40),
v_record2(40).
if shlp-selopt is initial.
select distinct processo descproc
from /pws/zyglt371
into (v_record1,v_record2)
where ativo = 'X'. "#EC CI_NOFIELD
move v_record1(40) to record_tab(40).
move v_record2(40) to record_tab+40(40).
append record_tab.
endselect.
else.
ranges r_processo for trdir-name.
data wa_selopt like line of shlp-selopt.
loop at shlp-selopt into wa_selopt where shlpfield = 'PROCESSO'.
r_processo-sign = wa_selopt-sign.
r_processo-option = wa_selopt-option.
r_processo-low = wa_selopt-low.
r_processo-high = wa_selopt-high.
append r_processo.
endloop.
select distinct processo descproc
from /pws/zyglt371
into (v_record1,v_record2)
where ativo = 'X'
and processo in r_processo. "#EC CI_NOFIELD
move v_record1(40) to record_tab(40).
move v_record2(40) to record_tab+40(40).
append record_tab.
endselect.
endif.
callcontrol-step = 'DISP'.
* << Fim da inclusão