CE PLUS - Nota 009262
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Despesas
Data/Hora da Publicação: 26/10/2009 00:00:00
Data/Hora Última Alteração: 04/03/2010 11:14:47
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 09262 Data: 26/10/2009 Hora: 18:34:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09262
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00120
----------------------------------------------------------------------------------------------------
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:
RELE F6DK972556 20091026 182750 PWSCB
RELE F6DK972558 20091026 182745 PWSCB
REPS /PWS/LZYGLGF2F01
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001O01
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB009F05
REPS /PWS/MZYCB009F08
REPS /PWS/MZYCB012F01
REPS /PWS/MZYCB027F01
REPS /PWS/MZYCB028F01
REPS /PWS/MZYCB030F02
REPS /PWS/MZYCB115F01
REPS /PWS/MZYCBT133F01
REPS /PWS/MZYGL003F01
REPS /PWS/MZYGL003O01
REPS /PWS/MZYGL004O01
REPS /PWS/MZYGL014O01
REPS /PWS/MZYGL016F01
REPS /PWS/MZYGL017F01
REPS /PWS/MZYGL340O01
REPS /PWS/MZYGL341O01
REPS /PWS/MZYGL342O01
REPS /PWS/ZYCBR108
REPS /PWS/ZYCBR361
REPS /PWS/ZYCBR362
REPS /PWS/ZYCBR999
REPS /PWS/ZYCER907
REPS /PWS/ZYCMR006
REPS /PWS/ZYCMR119
REPS /PWS/ZYGLR024A
REPS /PWS/ZYGLR999
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK972556 20091026 182750 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK972558 20091026 182745 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYGLGF2F01
...
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
* >> Início da exclusão: FORM VERIFICA_EMPRESAS
WHERE lifnr EQ p_conta.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_EMPRESAS
where lifnr eq p_conta. "#EC CI_SGLSELECT
* << Fim da inclusão
ELSEIF p_tpcont EQ 'D'.
SELECT bukrs kunnr FROM knb1
INTO TABLE itab_empresas
* >> Início da exclusão: FORM VERIFICA_EMPRESAS
WHERE kunnr EQ p_conta.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_EMPRESAS
where kunnr eq p_conta. "#EC CI_SGLSELECT
* << Fim da inclusão
ENDIF.
IF NOT itab_empresas[] IS INITIAL.
CLEAR v_lines.
LOOP AT itab_empresas.
LOOP AT itab_t041b WHERE bbukr = itab_empresas-bukrs.
v_lines = v_lines + 1.
ENDLOOP.
ENDLOOP.
IF NOT v_lines IS INITIAL.
PERFORM bdc_screen USING 'SAPMF05A' '0701'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
message i227 with itab_dados-descricao.
endloop.
clear itab_dados.
refresh itab_dados.
leave to screen '100'.
endif.
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.
itab_modo-varoption = /pws/zycbt039-descr.
append itab_modo. "#EC CI_NOWHERE
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-151
textline2 = text-152
titel = text-153
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001O01
...
sy-dynnr eq '0102'.
v_cod_grupo = 'CCO'.
elseif sy-dynnr eq '0108'.
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_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.
if sy-subrc eq 0.
...
...
itab_nome_campo[],
v_nome_campo,
v_comp.
check not /pws/zycbe002-nrdias is initial.
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: MODULE TRATA_CAMPOS_102
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_CAMPOS_102
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.
...
...
module trata_tc_comissao output.
clear: itab_t320[], itab_nome_campo[], v_nome_campo, v_comp.
if sy-dynnr eq '0116'.
v_cod_grupo = 'CCO'.
endif.
select campo flag
from /pws/zyglt320
into table itab_t320
where programa eq sy-repid and
tela eq sy-dynnr and
* >> Início da exclusão: MODULE TRATA_TC_COMISSAO
cod_grupo eq v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_TC_COMISSAO
cod_grupo eq 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/MZYCB004F01
...
others = 7.
select single * from bkpf
where bukrs eq itab_zycbt006-bukrs
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.
* >> 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.
itab_modo-varoption = /pws/zycbt039-descr.
append itab_modo. "#EC CI_NOWHERE
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-034
textline2 = text-035
titel = text-036
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F05
...
/pws/zycbe017a-fkdat = ''.
/pws/zycbe017a-kunag = ''.
/pws/zycbe017a-dtvencto = ''.
/pws/zycbe017a-inco1 = ''.
/pws/zycbe017a-nrsd = ''.
v_nrre_ate = ''.
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.
itab_modo-varoption = /pws/zycbt039-descr.
append itab_modo. "#EC CI_NOWHERE
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-087
textline2 = text-088
titel = text-089
...
...
data: v_nlin type i value is initial.
if sy-ucomm eq 'CRET'.
free: itab_zycbt017_aux, itab_nrinvoic, itab_gsberf , itab_fkdat,
itab_kunag , itab_dtvencto, itab_dtbl , itab_inco1,
itab_nrre , itab_nrsd.
free: itab_zycbt209_aux.
if not refe[] is initial.
select *
into table itab_zycbt209_aux
from /pws/zycbt209
* >> Início da exclusão: FORM SELECIONAR_ZYCBT017
where ref_ordem in refe.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ZYCBT017
where ref_ordem in refe. "#EC CI_NOFIELD
* << Fim da inclusão
if not itab_zycbt209_aux[] is initial.
select *
into table itab_zycbt017_aux
from /pws/zycbt017
for all entries in itab_zycbt209_aux
where nrinvoic = itab_zycbt209_aux-nrinvoic
and nrparcf = itab_zycbt209_aux-nrparcf
and gsberf = itab_zycbt209_aux-gsberf
and vlslf > 0.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
for all entries in itab_vinc
where nrseqc eq itab_vinc-nrseqc.
endif.
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
nrparcf = itab_vinc-nrparcf and
* >> Início da exclusão: FORM ESTORNO_PERIODO_ABERTO
nrseqc = itab_vinc-nrseqc.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO
nrseqc = itab_vinc-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_vinc
where nrinvoic = itab_vinc-nrinvoic and
gsberf = itab_vinc-gsberf and
nrparcf = itab_vinc-nrparcf . "#EC CI_NOFIRST
endif.
select *
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012F01
...
others = 3.
if sy-subrc ne 0.
v_motivo = '02'.
else.
v_motivo = '01'.
endif.
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.
itab_modo-varoption = /pws/zycbt039-descr.
append itab_modo. "#EC CI_NOWHERE
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-086
textline2 = text-087
titel = text-088
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB027F01
...
value(p_description).
if p_field is initial.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
append itab_zycbt034.
endif.
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.
itab_modo-varoption = /pws/zycbt039-descr.
append itab_modo. "#EC CI_NOWHERE
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-026
textline2 = text-027
titel = text-028
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB028F01
...
endloop.
endif.
else.
v_ok = 'X'.
endif.
perform clear_date_batch.
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.
itab_modo-varoption = /pws/zycbt039-descr.
append itab_modo. "#EC CI_NOWHERE
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-094
textline2 = text-095
titel = text-096
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB030F02
...
form inicializa_156.
clear: /pws/zycbe156, wa_zycbt156.
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.
* >> 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.
itab_modo-varoption = /pws/zycbt039-descr.
append itab_modo. "#EC CI_NOWHERE
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-047
textline2 = text-048
titel = text-049
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F01
...
up to 1 rows
from /pws/zyglt009
where bukrs eq itab_zycbt134-bukrs.
endselect.
select *
up to 1 rows
from /pws/zycbt089
where bukrs eq itab_zycbt134-bukrs.
endselect.
if itab_zycat027[] is initial.
* >> Início da exclusão: FORM EXECUTA_BATCH
select * from /pws/zycat027 into table itab_zycat027.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
select * from /pws/zycat027 into table itab_zycat027."#EC CI_NOWHERE
* << Fim da inclusão
endif.
if itab_zycbt134-mdcorresp = 'CP'.
perform get_parameters_cp using itab_zycbt134-tpproc.
if /pws/zycbt145-cod_fech ne 'TR'.
clear v_origem.
loop at itab_zycbt064 where nrboleto = itab_zycbt134-nrseq.
loop at itab_zycbt124 where nrseq = itab_zycbt064-nrchave
and tpoper = 'P'
and ( criacao = 'D' or
criacao = 'R' ).
...
...
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
where nrseq eq itab_zycbt124-nrseq. "#EC CI_NOFIRST
* >> Início da exclusão: FORM SELECIONA_DADOS_ORIGEM
select * from /pws/zycat024 into table itab_zycat024.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ORIGEM
select * from /pws/zycat024
into table itab_zycat024."#EC CI_NOWHERE
* << Fim da inclusão
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
where nrseq eq itab_zycbt128-nrseq.
...
...
call transaction 'FB03' and skip first screen.
else.
message e261(sf) with 'FB03'.
endif.
endif.
endif.
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.
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.
...
...
endif.
if v_lifnr_from is initial.
v_lifnr_from = v_lifnr_to.
endif.
if v_lifnr_to is initial.
v_lifnr_to = v_lifnr_from.
endif.
if v_nrseq_from is initial and v_nrseq_to is initial.
select min( nrseq ) max( nrseq )
into (v_nrseq_from, v_nrseq_to)
* >> Início da exclusão: FORM SELECT_DATA_ZYCBT134
from /pws/zycbt134.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA_ZYCBT134
from /pws/zycbt134. "#EC CI_NOWHERE
* << Fim da inclusão
endif.
if v_dtboleto_from is initial and v_dtboleto_to is initial.
select min( dtboleto ) max( dtboleto )
into (v_dtboleto_from, v_dtboleto_to)
* >> Início da exclusão: FORM SELECT_DATA_ZYCBT134
from /pws/zycbt134.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA_ZYCBT134
from /pws/zycbt134. "#EC CI_NOWHERE
* << Fim da inclusão
endif.
if v_bukrs_from is initial and v_bukrs_to is initial.
select min( bukrs ) max( bukrs )
into (v_bukrs_from, v_bukrs_to)
* >> Início da exclusão: FORM SELECT_DATA_ZYCBT134
from /pws/zycbt134.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA_ZYCBT134
from /pws/zycbt134. "#EC CI_NOWHERE
* << Fim da inclusão
endif.
if v_dtlanc_from is initial and v_dtlanc_to is initial.
select min( dtlanc ) max( dtlanc )
into (v_dtlanc_from, v_dtlanc_to)
* >> Início da exclusão: FORM SELECT_DATA_ZYCBT134
from /pws/zycbt134.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA_ZYCBT134
from /pws/zycbt134. "#EC CI_NOWHERE
* << Fim da inclusão
if v_dtlanc_from is initial.
v_dtlanc_from = '00000000'.
endif.
endif.
if v_lifnr_from is initial and v_lifnr_to is initial.
select min( lifnr ) max( lifnr )
into (v_lifnr_from, v_lifnr_to)
* >> Início da exclusão: FORM SELECT_DATA_ZYCBT134
from /pws/zycbt134.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA_ZYCBT134
from /pws/zycbt134. "#EC CI_NOWHERE
* << Fim da inclusão
endif.
if v_export = 'X'.
refresh: p_nrseq, p_dtboleto, p_mdcorresp, p_nrcontr, p_bukrs,
p_dtlanc, p_lifnr.
clear: p_nrseq, p_dtboleto, p_mdcorresp, p_nrcontr, p_bukrs,
p_dtlanc, p_lifnr.
p_nrseq-sign = text-216.
p_nrseq-option = text-217.
p_nrseq-low = v_nrseq_from.
p_nrseq-high = v_nrseq_to.
...
...
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
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.
* >> Início da exclusão: FORM ESTORNA_DIFERENCA
delete from /pws/zycbt154 where belnr_pr = v_belnr_f_02i.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DIFERENCA
delete from /pws/zycbt154
where belnr_pr = v_belnr_f_02i. "#EC CI_NOFIRST
* << Fim da inclusão
commit work.
clear v_belnr_f_02i.
endif.
clear: v_estorno.
v_nrseq = itab_zycbt134-nrseq.
perform executa_fbra_fb08 using
'X'
itab_zycbt134-bukrs
itab_zycbt134-belnr_c
itab_zycbt134-dtlanc
...
...
up to 1 rows
from /pws/zycbt011
into wa_zycbt011
where codeven = '009O'
and codmod = 'F'
and bukrs = itab_zycbt124-bukrs.
endselect.
endif.
endif.
if itab_zycat027[] is initial.
* >> Início da exclusão: FORM GET_PARAMETERS_CP
select * from /pws/zycat027 into table itab_zycat027.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CP
select * from /pws/zycat027 into table itab_zycat027."#EC CI_NOWHERE
* << Fim da inclusão
endif.
endform.
form seleciona_docto_cp using p_tpproc.
read table itab_zycbt031 with key nrseq = itab_zycbt134-nrseq.
check sy-subrc = 0.
clear itab_zycbt036.
refresh itab_zycbt036.
if p_tpproc = 'PRINCIPAL' or p_tpproc = ' '.
if /pws/zycbt145-cod_fech eq 'TR' or
/pws/zycbt124-frpagto eq 'R'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCBT133F01
...
CLEAR: itab_zycbt133-bukrs,
itab_zycbt133-codmod.
MESSAGE s016 WITH text-002.
ENDIF.
ENDIF.
ENDFORM.
FORM seleciona.
IF itab_zycbt133[] IS INITIAL AND okcode NE 'DELE'.
SELECT *
FROM /pws/zycbt133
* >> Início da exclusão: FORM SELECIONA
INTO TABLE itab_zycbt133.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA
into table itab_zycbt133. "#EC CI_NOWHERE
* << Fim da inclusão
PERFORM authority_check.
MOVE itab_zycbt133[] TO itab_zycbt133_aux[].
ENDIF.
v_current = 1.
ENDFORM.
FORM linha_tc.
CASE sy-dynnr.
WHEN '0100'.
DESCRIBE TABLE itab_zycbt133 LINES v_line.
tc_param-lines = v_line.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL003F01
...
ls_listheader-key = text-009.
ls_listheader-info = sy-uname.
append ls_listheader to et_list_commentary.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = et_list_commentary.
endform.
form fill_output_table_par.
refresh t_param.
select * from /pws/zyglt015
* >> Início da exclusão: FORM FILL_OUTPUT_TABLE_PAR
into table t_param.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_OUTPUT_TABLE_PAR
into table t_param. "#EC CI_NOWHERE
* << Fim da inclusão
endform.
form alv_build_fieldcat_par.
clear ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'TIPMEN'.
ls_fieldcat-ref_fieldname = 'TIPMEN'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
ls_fieldcat-seltext_s = text-024.
ls_fieldcat-outputlen = 10.
append ls_fieldcat to gt_fieldcat.
...
...
into v_status
up to 1 rows
where domname = '/PWS/ZYGLD029'
and domvalue_l = /pws/zyglt019-status. "#EC CI_GENBUFF
endselect.
elseif not /pws/zyglt015-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/zyglt015-status.
* << Fim da exclusão
* >> Início da inclusão: FORM DET_DOMINIO
and domvalue_l = /pws/zyglt015-status. "#EC CI_GENBUFF
* << Fim da inclusão
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'
and domvalue_l = /pws/zyglt019-categ_dad."#EC CI_GENBUFF
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL003O01
...
g_ts_monitor-subscreen = '1004'.
when c_ts_monitor-tab5.
g_ts_monitor-subscreen = '1005'.
when others.
endcase.
endmodule.
module status_1003 output.
clear: v_numreg, sy-ucomm, ok-code.
select categ denom tip
from /pws/zyglt016
* >> Início da exclusão: MODULE STATUS_1003
into table t_categ.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_1003
into table t_categ. "#EC CI_NOWHERE
* << Fim da inclusão
if t_tb_categ[] is initial.
t_tb_categ[] = t_categ[].
else.
t_categ[] = t_tb_categ[].
endif.
sort: t_categ by categ,
t_tb_categ by categ.
describe table t_tb_categ lines v_numreg.
tb_categ-lines = v_numreg + 100.
endmodule.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL004O01
module status_0100 output.
set pf-status '0100'.
set titlebar '0100'.
if st_flag-initial is initial.
clear: it_aux. refresh: it_aux.
st_flag-initial = 'X'.
select * from /pws/zycit417
* >> Início da exclusão: MODULE STATUS_0100
into table it_zycit417.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0100
into table it_zycit417. "#EC CI_NOWHERE
* << Fim da inclusão
if sy-subrc = 0 and
it_aux[] is initial.
it_aux[] = it_zycit417[].
endif.
endif.
describe table it_zycit417 lines v_numreg.
tb_info-lines = v_numreg + 100.
endmodule.
module status_0200 output.
set parameter id '/PWS/ZYGLP109' field sy-langu.
...
...
endloop.
endmodule.
module status_0001 output.
set pf-status '0001'.
set titlebar '0001' with text-004.
endmodule.
module load_data output.
if v_dele <> 1.
if it_zycit417[] is initial.
select * from /pws/zycit417
* >> Início da exclusão: MODULE LOAD_DATA
into table it_zycit417.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
into table it_zycit417. "#EC CI_NOWHERE
* << Fim da inclusão
endif.
endif.
endmodule.
module atualiza_posicao output.
data: currentline(5),
totalline(5).
describe table it_zycit417 lines v_line.
if it_zycit417[] is initial.
clear: v_line,
nextline.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL014O01
...
itab_zyglt325-descr TO /pws/zygle325-descr.
tc_tab-lines = tc_tab-lines + 2.
CLEAR okcode.
ENDMODULE.
MODULE select OUTPUT.
DATA: v_var.
IF itab_zyglt325[] IS INITIAL AND
itab_zyglt325-mark <> 'X' AND
itab_zyglt325_dele[] IS INITIAL.
SELECT * FROM /pws/zyglt325
* >> Início da exclusão: MODULE SELECT
INTO TABLE itab_zyglt325.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECT
into table itab_zyglt325. "#EC CI_NOWHERE
* << Fim da inclusão
ENDIF.
v_var = 'A'.
LOOP AT itab_zyglt325.
MOVE: v_var TO itab_zyglt325-flag.
MODIFY itab_zyglt325.
ENDLOOP.
CLEAR v_var.
ENDMODULE.
MODULE status_0002 OUTPUT.
SET PF-STATUS '0002'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL016F01
...
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_zyglt327[] IS INITIAL.
* >> Início da exclusão: FORM FILL_NODES
SELECT * FROM /pws/zyglt327 INTO TABLE itab_zyglt327.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_NODES
select * from /pws/zyglt327
into table itab_zyglt327. "#EC CI_NOWHERE
* << Fim da inclusão
SORT itab_zyglt327 BY cod_grupo.
ENDIF.
CLEAR node.
node-node_key = text-003.
node-isfolder = 'X'.
node-text = text-011.
node-dragdropid = ' '.
APPEND node TO node_table.
LOOP AT itab_zyglt327.
CLEAR node.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL017F01
...
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_zyglt328[] IS INITIAL.
* >> Início da exclusão: FORM FILL_NODES
SELECT * FROM /pws/zyglt328 INTO TABLE itab_zyglt328.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_NODES
select * from /pws/zyglt328
into table itab_zyglt328. "#EC CI_NOWHERE
* << Fim da inclusão
SORT itab_zyglt328 BY campo.
ENDIF.
CLEAR node.
node-node_key = text-003.
node-isfolder = 'X'.
node-text = text-011.
node-dragdropid = ' '.
APPEND node TO node_table.
LOOP AT itab_zyglt328.
CLEAR node.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL340O01
...
PERFORM trata_decimais USING itab_zyglt340-waers
CHANGING itab_zyglt340-montante.
MOVE-CORRESPONDING itab_zyglt340 TO /pws/zyglt340.
MOVE itab_zyglt340-mark TO mark.
CLEAR ok_code.
tc_code-lines = v_line.
ENDMODULE.
MODULE load_data OUTPUT.
IF itab_zyglt340[] IS INITIAL.
SELECT * FROM /pws/zyglt340
* >> Início da exclusão: MODULE LOAD_DATA
INTO TABLE itab_zyglt340.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
INTO TABLE itab_zyglt340. "#EC CI_NOWHERE
* << Fim da inclusão
PERFORM trata_bloqueio.
MOVE itab_zyglt340[] TO it_regant[].
ENDIF.
ENDMODULE.
MODULE atualiza_posicao OUTPUT.
DATA: currentline(5),
totalline(5).
DESCRIBE TABLE itab_zyglt340 LINES v_line.
IF itab_zyglt340[] IS INITIAL.
CLEAR: v_line,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL341O01
MODULE status_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '0100' WITH text-001.
CLEAR ok_code.
ENDMODULE.
MODULE load_data OUTPUT.
IF itab_zyglt341[] IS INITIAL.
SELECT * FROM /pws/zyglt341
* >> Início da exclusão: MODULE LOAD_DATA
INTO TABLE itab_zyglt341.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
into table itab_zyglt341. "#EC CI_NOWHERE
* << Fim da inclusão
PERFORM trata_bloqueio.
move itab_zyglt341[] to it_regant[].
ENDIF.
ENDMODULE.
MODULE atualiza_posicao OUTPUT.
DATA: currentline(5),
totalline(5).
DESCRIBE TABLE itab_zyglt341 LINES v_line.
IF itab_zyglt341[] IS INITIAL.
CLEAR: v_line,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL342O01
MODULE status_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '0100' WITH text-001.
ENDMODULE.
MODULE load_data OUTPUT.
IF itab_zyglt342[] IS INITIAL.
SELECT * FROM /pws/zyglt342
* >> Início da exclusão: MODULE LOAD_DATA
INTO TABLE itab_zyglt342.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
into table itab_zyglt342. "#EC CI_NOWHERE
* << Fim da inclusão
PERFORM trata_bloqueio.
MOVE: itab_zyglt342[] TO it_regant[].
ENDIF.
ENDMODULE.
MODULE atualiza_posicao OUTPUT.
DATA: currentline(5),
totalline(5).
DESCRIBE TABLE itab_zyglt342 LINES v_line.
IF itab_zyglt342[] IS INITIAL.
CLEAR: v_line,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR108
...
and vltotal in s_valor
and waers1 in s_waers.
endif.
select * from /pws/zyglt382
into table itab_zyglt382
where bukrs in s_bukrs.
select * from /pws/zycbt164
into table itab_zycbt164
where bukrs in s_bukrs.
select * from /pws/zycbt163
* >> Início da exclusão: FORM SELECIONA_DADOS
into table itab_zycbt163.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
into table itab_zycbt163. "#EC CI_NOWHERE
* << Fim da inclusão
endform.
form monta_layout.
data: v_tot_vlme like /pws/zycet002-vlme,
v_tot_agente like /pws/zycet066-vlagente,
v_valor(15) type c,
v_prazo(3) type n,
v_cont(3) type n,
v_descarta(1) type c.
clear: v_seq, v_descarta, v_data, v_hora.
v_data = sy-datum.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR361
...
dtreceb
bukrs
waers
gsber
werks
j_1bbranch
vlcred
bco_ext
nome_bco
FROM /pws/zycbt240
* >> Início da exclusão: FORM F_SELECIONA_ZYCBT240
INTO TABLE it_zycbt240.
* << Fim da exclusão
* >> Início da inclusão: FORM F_SELECIONA_ZYCBT240
into table it_zycbt240. "#EC CI_NOWHERE
* << Fim da inclusão
CHECK it_zycbt240 IS INITIAL.
DELETE it_zycbt240 WHERE NOT bukrs IN s_bukrs.
DELETE it_zycbt240 WHERE NOT waers IN s_waers.
DELETE it_zycbt240 WHERE NOT gsber IN s_gsber.
DELETE it_zycbt240 WHERE NOT j_1bbranch IN s_j_1bbr.
DELETE it_zycbt240 WHERE NOT bco_ext IN s_bco_me.
DELETE it_zycbt240 WHERE NOT dtreceb IN s_dtrecb.
CHECK s_exerc IS INITIAL.
DELETE it_zycbt240 WHERE NOT dtreceb(4) IN s_exerc.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR362
...
PERFORM f_exibe_mensagem.
END-OF-SELECTION.
FORM f_seleciona.
SELECT belnr_saida
waers
nrboleto
tpproc
bukrs
nrseq
FROM /pws/zycbt232
* >> Início da exclusão: FORM F_SELECIONA
INTO TABLE itab_zycbt232.
* << Fim da exclusão
* >> Início da inclusão: FORM F_SELECIONA
into table itab_zycbt232. "#EC CI_NOWHERE
* << Fim da inclusão
DELETE ADJACENT DUPLICATES FROM itab_zycbt232 COMPARING nrboleto.
SELECT nrseq
tpproc
bukrs
FROM /pws/zycbt134
INTO TABLE itab_zycbt134
FOR ALL ENTRIES IN itab_zycbt232
WHERE nrseq = itab_zycbt232-nrboleto
AND tpproc = itab_zycbt232-tpproc
AND bukrs = itab_zycbt232-bukrs.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR999
Report /pws/zycbr999.
UPDATE /PWS/ZYCBT054 SET: USERNAMEC = SY-UNAME "#EC CI_NOWHERE
* >> Início da exclusão:
, HRUSERC = SY-UZEIT
, DTUSERC = SY-DATUM
. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão:
, hruserc = sy-uzeit "#EC CI_NOWHERE
, dtuserc = sy-datum. "#EC CI_NOWHERE
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER907
...
diagnosetext2 = text-002
textline1 = text-003
titel = text-004
importing
answer = v_answer
exceptions
others = 1.
if v_answer ne 'J'.
leave program.
endif.
* >> Início da exclusão:
select * from /pws/zycet066.
* << Fim da exclusão
* >> Início da inclusão:
select * from /pws/zycet066. "#EC CI_NOWHERE
* << Fim da inclusão
v_nrseq_old = /pws/zycet066-codnrseq.
v_nrseq_new = v_nrseq_old(3).
if not v_nrseq_old+4(1) is initial.
v_nrseq_new = v_nrseq_old+2(3).
endif.
update /pws/zycet066 set codnrseq = v_nrseq_new
where nrseqre = /pws/zycet066-nrseqre and
codnrseq = /pws/zycet066-codnrseq.
endselect.
* >> Início da exclusão:
select * from /pws/zycet078.
* << Fim da exclusão
* >> Início da inclusão:
select * from /pws/zycet078. "#EC CI_NOWHERE
* << Fim da inclusão
v_nrseq_old = /pws/zycet078-codnrseq.
v_nrseq_new = v_nrseq_old(3).
if not v_nrseq_old+4(1) is initial.
v_nrseq_new = v_nrseq_old+2(3).
endif.
update /pws/zycet078 set codnrseq = v_nrseq_new
where nrseqre = /pws/zycet078-nrseqre and
codnrseq = /pws/zycet078-codnrseq.
endselect.
select * from /pws/zycet092. "#EC CI_NOWHERE
...
...
seqagrupado = v_nrseq_new1
where nrseqre = /pws/zycet118-nrseqre and
codnrseq = /pws/zycet118-codnrseq and
vbeln_va = /pws/zycet118-vbeln_va and
aupos = /pws/zycet118-aupos and
vbeln_vl = /pws/zycet118-vbeln_vl and
posnl = /pws/zycet118-posnl and
vbeln_vf = /pws/zycet118-vbeln_vf and
posnr = /pws/zycet118-posnr.
endselect.
* >> Início da exclusão:
select * from /pws/zycet119.
* << Fim da exclusão
* >> Início da inclusão:
select * from /pws/zycet119. "#EC CI_NOWHERE
* << Fim da inclusão
v_nrseq_old = /pws/zycet119-codnrseq.
v_nrseq_new = v_nrseq_old(3).
if not v_nrseq_old+4(1) is initial.
v_nrseq_new = v_nrseq_old+2(3).
endif.
update /pws/zycet119 set codnrseq = v_nrseq_new
where nrseqre = /pws/zycet119-nrseqre and
codnrseq = /pws/zycet119-codnrseq and
stcd1 = /pws/zycet119-stcd1 and
sequencial = /pws/zycet119-sequencial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCMR006
...
endif.
endif.
endif.
select * from /pws/zycbt164
into table itab_zycbt164
where bukrs in s_bukrs.
select * from /pws/zyglt382
into table itab_zyglt382
where bukrs in s_bukrs.
select * from /pws/zyglt383
* >> Início da exclusão: FORM SELECIONA_DADOS
into table itab_zyglt383.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
into table itab_zyglt383. "#EC CI_NOWHERE
* << Fim da inclusão
select waers /pws/codmo from tcurc
into table itab_tcurc.
select * from /pws/zycmt024
* >> Início da exclusão: FORM SELECIONA_DADOS
into table itab_zycmt024.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
into table itab_zycmt024. "#EC CI_NOWHERE
* << Fim da inclusão
endform.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCMR119
...
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
others = 8. "#EC *
if sy-subrc = 0.
else.
endif.
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.
itab_modo-varoption = /pws/zycbt039-descr.
append itab_modo.
endselect."#EC CI_NOWHERE
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-015
textline2 = text-016
titel = text-014
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR024A
...
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.
* >> Início da exclusão: FORM SELECIONA_DADOS
select * from /pws/zyglt342 into table it_zyglt342.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
select * from /pws/zyglt342 into table it_zyglt342. "#EC CI_NOWHERE
* << Fim da inclusão
if sy-subrc eq 0.
* >> Início da exclusão: FORM SELECIONA_DADOS
select * from /pws/zyglt343 into table it_zyglt343.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
select * from /pws/zyglt343
into table it_zyglt343. "#EC CI_NOWHERE
* << Fim da inclusão
endif.
if not it_zyglt343[] is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR999
report /pws/zycir999.
* >> Início da exclusão:
update /pws/zycet081 set: usernamec = sy-uname
, hruserc = sy-uzeit
, dtuserc = sy-datum
. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão:
update /pws/zycet081 set: usernamec = sy-uname "#EC CI_NOWHERE
, hruserc = sy-uzeit "#EC CI_NOWHERE
, dtuserc = sy-datum. "#EC CI_NOWHERE
* << Fim da inclusão