CE PLUS - Nota 011229
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Parâmetros
Data/Hora da Publicação: 10/06/2011 00:00:00
Data/Hora Última Alteração: 10/06/2011 16:52:59
Descrição da Nota: CODE INSPECTOR
Sintoma
CODE INSPECTOR
Solução
CODE INSPECTOR
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11229 Data: 10/06/2011 Hora: 10:52:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11229
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00073
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA024F01
REPS /PWS/MZYCA024O01
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB005F01
REPS /PWS/MZYCB035F03
REPS /PWS/MZYCB110F01
REPS /PWS/MZYGL008F01
REPS /PWS/MZYGL008I01
REPS /PWS/MZYGL009F01
REPS /PWS/MZYGL010F01
REPS /PWS/MZYGL011F01
REPS /PWS/MZYGL011I02
REPS /PWS/MZYGL014F01
REPS /PWS/MZYGL110F01
REPS /PWS/MZYGLT355F01
REPS /PWS/ZYCBR114
REPS /PWS/ZYCBR140
REPS /PWS/ZYCBR359
REPS /PWS/ZYCBR400F01
REPS /PWS/ZYCBR400O01
REPS /PWS/ZYCBR907
REPS /PWS/ZYCMR908
REPT /PWS/SAPMZYCB035
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA024F01
...
if sy-subrc <> 0.
clear ok_code.
message e015 with text-024.
endif.
message i061 with text-025 v_order text-026.
endif.
endform.
form carga_dados.
data v_pos(1) type n.
select * from /pws/zycat026
* >> Início da exclusão: FORM CARGA_DADOS
into table itab_zycat026.
* << Fim da exclusão
* >> Início da inclusão: FORM CARGA_DADOS
into table itab_zycat026. "#EC CI_NOWHERE
* << Fim da inclusão
if itab_zycat026[] is initial.
exit.
endif.
select * from /pws/zycat024
* >> Início da exclusão: FORM CARGA_DADOS
into table itab_zycat024_aux.
* << Fim da exclusão
* >> Início da inclusão: FORM CARGA_DADOS
into table itab_zycat024_aux. "#EC CI_NOWHERE
* << Fim da inclusão
loop at itab_zycat026.
v_pos = strlen( itab_zycat026-tpimp ).
loop at itab_zycat024_aux.
if itab_zycat024_aux-tpimp(v_pos) = itab_zycat026-tpimp.
if not itab_zycat026-formula is initial.
itab_zycat024_aux-formula = itab_zycat026-formula.
modify itab_zycat024_aux.
endif.
endif.
endloop.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA024O01
module status_0100 output.
set pf-status '0100'.
set titlebar '0100' with text-001.
endmodule.
module load_data output.
perform carga_dados.
if itab_zycat024[] is initial.
select * from /pws/zycat024
* >> Início da exclusão: MODULE LOAD_DATA
into table itab_zycat024.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
into table itab_zycat024. "#EC CI_NOWHERE
* << Fim da inclusão
perform trata_bloqueio.
endif.
endmodule.
module atualiza_posicao output.
data: currentline(5),
totalline(5).
describe table itab_zycat024 lines v_line.
if itab_zycat024[] is initial.
clear: v_line,
nextline.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
LOOP AT itab_zycbt006 WHERE v_status EQ 'E'
AND NOT vlcomis IS initial.
READ TABLE itab_zycbt226 INTO wa_zycbt226
WITH KEY nrinvoic = itab_zycbt006-nrinvoic
nrparcf = itab_zycbt006-nrparcf
gsberf = itab_zycbt006-gsberf.
CHECK sy-subrc NE 0.
SELECT *
FROM /pws/zycbt006
INTO CORRESPONDING FIELDS OF TABLE itab_zycbt006_ca
* >> Início da exclusão: FORM ESTORNA_COMISSAO
WHERE nrinvoic = itab_zycbt006-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMISSAO
where nrinvoic = itab_zycbt006-nrinvoic. "#EC CI_NOFIRST
* << Fim da inclusão
DESCRIBE TABLE itab_zycbt006_ca LINES v_linha.
CHECK v_linha < 2.
CLEAR: itab_selreg,
itab_zycet010,
itab_zycet013.
REFRESH: itab_zycet010,
itab_zycet013.
SELECT SINGLE * FROM /pws/zycbt017
WHERE nrinvoic EQ itab_zycbt006-nrinvoic
AND nrparcf EQ itab_zycbt006-nrparcf.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
endif.
endform.
form carga_valor_contrato.
data: begin of itab_zycbt005_carga occurs 0.
include structure /pws/zycbt005.
data: end of itab_zycbt005_carga.
data: begin of itab_zycbt006_carga occurs 0.
include structure /pws/zycbt006.
data: end of itab_zycbt006_carga.
select * from /pws/zycbt006
* >> Início da exclusão: FORM CARGA_VALOR_CONTRATO
into table itab_zycbt006_carga.
* << Fim da exclusão
* >> Início da inclusão: FORM CARGA_VALOR_CONTRATO
into table itab_zycbt006_carga. "#EC CI_NOWHERE
* << Fim da inclusão
delete itab_zycbt006_carga where not waers_c is initial.
if not itab_zycbt006_carga[] is initial.
select * from /pws/zycbt005
into table itab_zycbt005_carga
for all entries in itab_zycbt006_carga
where nrseqc = itab_zycbt006_carga-nrseqc
and tpdesp = itab_zycbt006_carga-tpdesp
and nrparc = itab_zycbt006_carga-nrparc
and dtincl = itab_zycbt006_carga-dtincl
and nrinvoic = itab_zycbt006_carga-nrinvoic
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB005F01
...
nrparcf = itab_zycbt017-nrparcf and
gsberf = itab_zycbt017-gsberf and
( origem_op is null or
origem_op eq space or
origem_op = ' ' ).
select *
from /pws/zycbt227
into table itab_zycbt227
where nrinvoic = itab_zycbt017-nrinvoic and
nrparcf = itab_zycbt017-nrparcf and
* >> Início da exclusão: FORM CARREGA_VME
gsberf = itab_zycbt017-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_VME
gsberf = itab_zycbt017-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc eq 0.
select *
from /pws/zycbt226
appending table itab_zycbt226
for all entries in itab_zycbt227
where nrseq = itab_zycbt227-nrseq and
( origem_op is null or
origem_op eq space or
origem_op = ' ' ).
loop at itab_zycbt227.
...
...
into table itab_zycbt226_sml
where nrinvoic = itab_zycbt017-nrinvoic and
nrparcf = itab_zycbt017-nrparcf and
gsberf = itab_zycbt017-gsberf and
origem_op = 'P'.
select *
from /pws/zycbt227
into table itab_zycbt227_sml
where nrinvoic = itab_zycbt017-nrinvoic and
nrparcf = itab_zycbt017-nrparcf and
* >> Início da exclusão: FORM CARREGA_SML
gsberf = itab_zycbt017-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_SML
gsberf = itab_zycbt017-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc eq 0.
select *
from /pws/zycbt226
appending table itab_zycbt226_sml
for all entries in itab_zycbt227_sml
where nrseq = itab_zycbt227_sml-nrseq
and origem_op = 'P'.
loop at itab_zycbt227_sml.
read table itab_zycbt226_sml with key
nrseq = itab_zycbt227_sml-nrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F03
...
endif.
else.
loop at itab_zycbt034 assigning <fs_zycbt034>.
wa_mensagem-bukrs = wa_zycbt017-bukrs.
wa_mensagem-nrinvoic = <fs_zycbt209>-nrinvoic.
wa_mensagem-nrparcf = <fs_zycbt209>-nrparcf.
wa_mensagem-gsberf = <fs_zycbt209>-gsberf.
wa_mensagem-nrseq = p_nrseq.
wa_mensagem-tpmsg = 'E'.
wa_mensagem-belnr = ''.
* >> Início da exclusão: FORM EFETUA_DESMEMB_LIQ_AND
concatenate 'Liq.And.-Campo Não Preenchido' <fs_zycbt034>-campo
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_DESMEMB_LIQ_AND
concatenate text-o03 <fs_zycbt034>-campo
* << Fim da inclusão
<fs_zycbt034>-descricao into wa_mensagem-msg
separated by space.
append wa_mensagem to itab_mensagem.
endloop.
free wa_mensagem.
endif.
endloop.
endform.
form efetua_desmemb_cliente
using
...
...
' '.
perform insere_itab_zycbt230
using p_nrseq p_gjahr c_tp_desm_cliente wa_mensagem-belnr
<fs_bldat> <fs_budat>.
endif.
else.
loop at itab_zycbt034 assigning <fs_zycbt034>.
wa_mensagem-nrseq = p_nrseq.
wa_mensagem-tpmsg = 'E'.
wa_mensagem-belnr = ''.
* >> Início da exclusão: FORM EFETUA_DESMEMB_CLIENTE
concatenate 'Des.Cli.-Campo Não Preenchido' <fs_zycbt034>-campo
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_DESMEMB_CLIENTE
concatenate text-o04 <fs_zycbt034>-campo
* << Fim da inclusão
<fs_zycbt034>-descricao into wa_mensagem-msg
separated by space.
append wa_mensagem to itab_mensagem.
endloop.
free wa_mensagem.
endif.
endform.
form efetua_desmemb_ordem_pagto
using value(p_wa_zycbt228a) like line of itab_zycbt228a.
constants:
...
...
perform insere_itab_zycbt230
using p_wa_zycbt228a-nrseq p_wa_zycbt228a-gjahr c_tp_desm_ordem
wa_mensagem-belnr <fs_bldat> <fs_budat>.
endif.
else.
loop at itab_zycbt034 assigning <fs_zycbt034>.
wa_mensagem-bukrs = <fs_bukrs>.
wa_mensagem-nrseq = p_wa_zycbt228a-nrseq.
wa_mensagem-tpmsg = 'E'.
wa_mensagem-belnr = ''.
* >> Início da exclusão: FORM EFETUA_DESMEMB_ORDEM_PAGTO
concatenate 'Des.Ord.-Campo Não Preenchido' <fs_zycbt034>-campo
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_DESMEMB_ORDEM_PAGTO
concatenate text-o05 <fs_zycbt034>-campo
* << Fim da inclusão
<fs_zycbt034>-descricao into wa_mensagem-msg
separated by space.
append wa_mensagem to itab_mensagem.
endloop.
free wa_mensagem.
endif.
endform.
form efetua_comp_associacao
using value(p_wa_zycbt228a) like line of itab_zycbt228a.
constants:
...
...
v_data v_moeda_assoc p_wa_zycbt228a-vlr_associado
' '.
perform insere_itab_zycbt230
using p_wa_zycbt228a-nrseq p_wa_zycbt228a-gjahr c_tp_comp_assoc
wa_mensagem-belnr <fs_bldat> <fs_budat>.
endif.
else.
loop at itab_zycbt034 assigning <fs_zycbt034>.
wa_mensagem-tpmsg = 'E'.
wa_mensagem-belnr = ''.
* >> Início da exclusão: FORM EFETUA_COMP_ASSOCIACAO
concatenate 'Comp.Assoc.-Campo Não Preenchido'
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_COMP_ASSOCIACAO
concatenate text-o06
* << Fim da inclusão
<fs_zycbt034>-campo <fs_zycbt034>-descricao
into wa_mensagem-msg separated by space.
append wa_mensagem to itab_mensagem.
endloop.
free wa_mensagem.
endif.
endform.
form efetua_estorno_associacao
using
value(p_nrseq) type t_s_zycbt228a-nrseq
...
...
if not wa_mensagem is initial.
<fs_zycbt226>-belnr_assoc = wa_mensagem-belnr.
<fs_zycbt226>-dt_assoc = wa_mensagem-dtcont.
endif.
else.
loop at itab_zycbt034 assigning <fs_zycbt034>.
wa_mensagem-bukrs = <fs_bukrs>.
wa_mensagem-nrseq = p_wa_zycbt228a-nrseq.
wa_mensagem-tpmsg = 'E'.
wa_mensagem-belnr = ''.
* >> Início da exclusão: FORM EFETUA_CLEARING_ORDEM_PAGTO
concatenate 'Clea.Ord.Pgt.-Campo Não Preenchido'
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_CLEARING_ORDEM_PAGTO
concatenate text-o07
* << Fim da inclusão
<fs_zycbt034>-campo <fs_zycbt034>-descricao
into wa_mensagem-msg separated by space.
append wa_mensagem to itab_mensagem.
endloop.
free wa_mensagem.
endif.
endform.
form efetua_clearing_cliente
using value(p_wa_zycbt228a) like line of itab_zycbt228a.
constants:
...
...
wa_zycbt124-dtdocto = wa_mensagem-dtcont.
if wa_zycbt124-sld_associar = wa_zycbt124-vlme.
clear wa_zycbt124-dtpagto.
endif.
endif.
endif.
else.
loop at itab_zycbt034 assigning <fs_zycbt034>.
wa_mensagem-tpmsg = 'E'.
wa_mensagem-belnr = ''.
* >> Início da exclusão: FORM EFETUA_CLEARING_CLIENTE
concatenate 'Clea.Cli.-Campo Não Preenchido' <fs_zycbt034>-campo
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_CLEARING_CLIENTE
concatenate text-o08 <fs_zycbt034>-campo
* << Fim da inclusão
<fs_zycbt034>-descricao into wa_mensagem-msg
separated by space.
append wa_mensagem to itab_mensagem.
endloop.
free wa_mensagem.
endif.
endform.
form efetua_clearing_liq_and
using value(p_wa_zycbt228a) like line of itab_zycbt228a.
constants:
...
...
<fs_zycbt209>-dtbelnr = wa_mensagem-dtcont.
endif.
else.
loop at itab_zycbt034 assigning <fs_zycbt034>.
wa_mensagem-bukrs = <fs_zycbt209>-bukrs.
wa_mensagem-nrinvoic = <fs_zycbt209>-nrinvoic.
wa_mensagem-nrparcf = <fs_zycbt209>-nrparcf.
wa_mensagem-gsberf = <fs_zycbt209>-gsberf.
wa_mensagem-tpmsg = 'E'.
wa_mensagem-belnr = ''.
* >> Início da exclusão: FORM EFETUA_CLEARING_LIQ_AND
concatenate 'Clea.Liq.And.-Campo Não Preenchido'
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_CLEARING_LIQ_AND
concatenate text-o09
* << Fim da inclusão
<fs_zycbt034>-campo <fs_zycbt034>-descricao
into wa_mensagem-msg separated by space.
append wa_mensagem to itab_mensagem.
endloop.
free wa_mensagem.
endif.
endloop.
endform.
form verifica_commodities
using p_wa_fatura type t_s_fatura.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
DATA: v_codpad TYPE /pws/zycbt037-codpad.
PERFORM clear_date_batch.
v_trans = 'F-30'.
CLEAR: v_parvw, itab_zycbt017.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = /pws/zycbe031-nrcorresp
nrparcf = /pws/zycbe031-nrparcf
gsberf = /pws/zycbe031-gsberf.
SELECT SINGLE codpad
FROM /pws/zycbt037
INTO v_codpad
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
WHERE parvw = itab_zycbt017-parvw.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
where parvw = itab_zycbt017-parvw. "#EC CI_NOFIRST
* << Fim da inclusão
CONCATENATE '004' v_codpad INTO v_codeven.
IF /pws/zycet037-comis_provisao EQ '0'
OR /pws/zycet037-comis_provisao IS INITIAL.
v_codaux = /pws/zycet010-lifnr.
ELSEIF /pws/zycet037-comis_provisao EQ '1'.
v_codaux = itab_zycet013-lifnr.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycbe031-bukrs.
REFRESH itab_zyglt321.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL008F01
...
endif.
endform.
form transp_all.
refresh: itab_zyglt314_cr, itab_zyglt315_cr, itab_zyglt316_cr.
if v_emp is initial or
vbukrs is initial.
call screen '0005' starting at 10 06.
check okcode = 'ENTER'.
if itab_zygle309[] is initial.
select * from /pws/zyglt309
* >> Início da exclusão: FORM TRANSP_ALL
into table itab_zygle309.
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSP_ALL
into table itab_zygle309. "#EC CI_NOWHERE
* << Fim da inclusão
endif.
endif.
clear okcode.
if itab_zygle312[] is initial.
select * from /pws/zyglt312
into table itab_zygle312
for all entries in itab_zygle309
where grupp = itab_zygle309-grupp.
endif.
if not itab_zygle312[] is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL008I01
...
if sy-ucomm ne 'CANCEL' and
sy-ucomm ne 'COPY'.
if v_emp_cp is initial.
message e001 with text-063.
endif.
endif.
if sy-ucomm eq 'ENTER'.
select single bukrs
from /pws/zycbt011
into v_bukrs
* >> Início da exclusão: MODULE VALIDA_EMPRESA
where bukrs = v_emp_cp.
* << Fim da exclusão
* >> Início da inclusão: MODULE VALIDA_EMPRESA
where bukrs = v_emp_cp. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc ne 0.
message e001 with text-061 v_emp_cp text-064.
endif.
endif.
endmodule.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL009F01
...
ELSEIF NOT v_order IS INITIAL.
CLEAR okcode.
MESSAGE s015 WITH text-064 v_order.
ENDIF.
ENDFORM.
FORM transp_all.
DATA: itab_zyglt344_cr TYPE TABLE OF /pws/zyglt344.
REFRESH itab_zyglt320_cr.
IF itab_zygle309[] IS INITIAL.
SELECT * FROM /pws/zyglt309
* >> Início da exclusão: FORM TRANSP_ALL
INTO TABLE itab_zygle309.
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSP_ALL
into table itab_zygle309. "#EC CI_NOWHERE
* << Fim da inclusão
ENDIF.
CHECK NOT itab_zygle309[] IS INITIAL.
SELECT * FROM /pws/zyglt344
INTO TABLE itab_zyglt344_cr
FOR ALL ENTRIES IN itab_zygle309
WHERE modulo = itab_zygle309-grupp.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zyglt320
INTO TABLE itab_zyglt320_cr
FOR ALL ENTRIES IN itab_zyglt344_cr
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL010F01
...
mandt = /pws/zyglt309-mandt.
CLEAR v_reg_usado.
v_status = '1'.
ENDFORM.
FORM transp_all.
IF NOT itab_zyglt319 IS INITIAL.
PERFORM grava_request TABLES itab_zyglt319.
ELSE.
IF itab_zyglt309[] IS INITIAL.
SELECT * FROM /pws/zyglt309
* >> Início da exclusão: FORM TRANSP_ALL
INTO TABLE itab_zyglt309.
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSP_ALL
into table itab_zyglt309. "#EC CI_NOWHERE
* << Fim da inclusão
ENDIF.
CHECK NOT itab_zyglt309[] IS INITIAL.
SELECT * FROM /pws/zyglt319
* >> Início da exclusão: FORM TRANSP_ALL
INTO TABLE itab_zyglt319
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSP_ALL
into corresponding fields of table itab_zyglt319
* << Fim da inclusão
FOR ALL ENTRIES IN itab_zyglt309
WHERE grupp = itab_zyglt309-grupp .
CHECK NOT itab_zyglt319[] IS INITIAL.
LOOP AT itab_zyglt319.
MOVE itab_zyglt319 TO itab_programas.
APPEND itab_programas.
ENDLOOP.
IF NOT itab_programas IS INITIAL.
SELECT * FROM trdirt INTO TABLE itab_trdirt
FOR ALL ENTRIES IN itab_programas
WHERE name = itab_programas-obj_name AND
* >> Início da exclusão: FORM TRANSP_ALL
sprsl = sy-langu.
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSP_ALL
sprsl = sy-langu. "#EC CI_SGLSELECT
* << Fim da inclusão
LOOP AT itab_programas.
READ TABLE itab_trdirt WITH KEY name = itab_programas-obj_name.
MOVE itab_trdirt-text TO itab_programas-text.
MODIFY itab_programas.
ENDLOOP.
ENDIF.
PERFORM grava_request TABLES itab_programas.
ENDIF.
ENDFORM.
FORM grava_request TABLES p_tab STRUCTURE /pws/zyglt319.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL011F01
...
if sy-subrc eq 0.
v_emp = 'X'.
else.
message s016(/pws/zycem) with text-016.
v_emp = ' '.
endif.
if not v_copy is initial.
select single bukrs
from /pws/zycbt011
into v_emp1
* >> Início da exclusão: FORM TRATA_EMPRESA
where bukrs = d_bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EMPRESA
where bukrs = d_bukrs. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc eq 0.
clear: v_copy, v_emp_cp.
message i001 with text-056 d_bukrs
text-058 .
endif.
else.
select single bukrs
from /pws/zycbt011
into v_emp1
* >> Início da exclusão: FORM TRATA_EMPRESA
where bukrs = d_bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EMPRESA
where bukrs = d_bukrs. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc ne 0.
message i001 with text-056 d_bukrs text-057.
v_erro = 'X'.
endif.
endif.
endform.
form seleciona_dados_modulo.
check sy-saprl = '46B'.
clear node.
call method g_tree->get_selected_node importing
...
...
endif.
endform.
form transp_all.
refresh itab_zycbt011_cr.
if v_emp is initial or
d_bukrs is initial.
call screen '0103' starting at 10 06.
check okcode = 'ENTER'.
if itab_zygle309[] is initial.
select * from /pws/zyglt309
* >> Início da exclusão: FORM TRANSP_ALL
into table itab_zygle309.
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSP_ALL
into table itab_zygle309. "#EC CI_NOWHERE
* << Fim da inclusão
endif.
endif.
clear okcode.
if itab_zyglt351[] is initial.
select * from /pws/zyglt351
into table itab_zyglt351
for all entries in itab_zygle309
where grupp = itab_zygle309-grupp.
endif.
if not itab_zyglt351[] is initial.
...
...
and codmod = itab_zyglt351-codmod
and bukrs = d_bukrs.
endif.
if not itab_zycbt011_cr[] is initial.
perform gera_request.
endif.
endform.
form busca_dados.
select * from /pws/zycbt011
into corresponding fields of table itab_zycbt011_aux
* >> Início da exclusão: FORM BUSCA_DADOS
where bukrs eq v_emp_cp.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_DADOS
where bukrs eq v_emp_cp. "#EC CI_NOFIRST
* << Fim da inclusão
if not itab_zycbt011_aux[] is initial.
perform gera_request_011 tables itab_zycbt011_aux .
else.
message i000 with text-025 text-026 text-028.
endif.
loop at itab_zycbt011_aux.
move d_bukrs to itab_zycbt011_aux-bukrs.
modify /pws/zycbt011 from itab_zycbt011_aux.
endloop.
endform.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL011I02
...
if sy-ucomm ne 'CANCEL' and
sy-ucomm ne 'COPY'.
if v_emp_cp is initial.
message e001 with text-055.
endif.
endif.
if sy-ucomm eq 'ENTER'.
select single bukrs
from /pws/zycbt011
into v_bukrs
* >> Início da exclusão: MODULE VALIDA_EMPRESA
where bukrs = v_emp_cp.
* << Fim da exclusão
* >> Início da inclusão: MODULE VALIDA_EMPRESA
where bukrs = v_emp_cp. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc ne 0.
message e001 with text-056 v_emp_cp text-057.
endif.
endif.
endmodule.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL014F01
...
where cod_area = itab_zyglt325_dele-cod_area.
endloop.
move-corresponding itab_zyglt325_dele to itab_zyglt325_gr.
move sy-mandt to itab_zyglt325_gr-mandt.
append itab_zyglt325_gr.
perform grava_request tables itab_zyglt325_gr.
else.
clear itab_zyglt325_gr.
refresh itab_zyglt325_gr.
select * from /pws/zyglt325
* >> Início da exclusão: FORM SALVA_TC
into table itab_zyglt325_gr.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_TC
into table itab_zyglt325_gr. "#EC CI_NOWHERE
* << Fim da inclusão
loop at itab_zyglt325_aux.
read table itab_zyglt325_gr
with key cod_area = itab_zyglt325_aux-cod_area
descr = itab_zyglt325_aux-descr.
move sy-mandt to itab_zyglt325_aux-mandt.
if itab_zyglt325_gr-cod_area ne itab_zyglt325_aux-cod_area
and itab_zyglt325_gr-descr ne itab_zyglt325_aux-descr.
move-corresponding itab_zyglt325_aux to itab_zyglt325_gr.
append itab_zyglt325_gr.
else.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
FORM seleciona_dados_gerais.
IF NOT itab_zycbt064[] IS INITIAL.
SELECT * FROM /pws/zycbt134 INTO TABLE itab_zycbt134
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq = itab_zycbt064-nrboleto.
SELECT * FROM /pws/zycbt048 INTO TABLE itab_zycbt048
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq = itab_zycbt064-nrboleto.
SELECT * FROM /pws/zycbt236
INTO TABLE itab_zycbt236
* >> Início da exclusão: FORM SELECIONA_DADOS_GERAIS
WHERE nrboleto = /pws/zycbe031-nrseq .
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_GERAIS
where nrboleto = /pws/zycbe031-nrseq . "#EC CI_NOFIRST
* << Fim da inclusão
CASE /pws/zycbe031-mdcorresp.
WHEN 'IP'.
SELECT * FROM /pws/zycbt119 INTO TABLE itab_zycbt119
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq = itab_zycbt064-nrchave.
WHEN 'IF'.
SELECT * FROM /pws/zycbt112 INTO TABLE itab_zycbt112
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq = itab_zycbt064-nrchave.
IF NOT itab_zycbt112[] IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGLT355F01
...
move-corresponding itab_zyglt355_dele to itab_zyglt355_gr.
move sy-mandt to itab_zyglt355_gr-mandt.
append itab_zyglt355_gr.
perform grava_request tables itab_zyglt355_gr.
clear: itab_zyglt355_dele,
itab_zyglt355_dele[].
else.
clear itab_zyglt355_gr.
refresh itab_zyglt355_gr.
select * from /pws/zyglt355
* >> Início da exclusão: FORM SALVA_DADOS
into table itab_zyglt355_gr.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS
into table itab_zyglt355_gr. "#EC CI_NOWHERE
* << Fim da inclusão
loop at itab_zyglt355.
read table itab_zyglt355_gr
with key land1 = itab_zyglt355-land1
hbkid = itab_zyglt355-hbkid.
move sy-mandt to itab_zyglt355-mandt.
if itab_zyglt355-land1 ne itab_zyglt355_gr-land1
or itab_zyglt355-hbkid ne itab_zyglt355_gr-hbkid
or itab_zyglt355-versao ne itab_zyglt355_gr-versao
or itab_zyglt355-avisopg ne itab_zyglt355_gr-avisopg
or itab_zyglt355-versaolote ne itab_zyglt355_gr-versaolote
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR114
...
where nrseq eq itab_processados-nrseq
and dtcontr eq itab_processados-dtcontr.
endif.
endif.
refresh: itab_agrup, itab_zycat025.
if not itab_zycbt048[] is initial.
select *
from /pws/zycat025
into table itab_zycat025
for all entries in itab_zycbt048
* >> Início da exclusão: FORM SELECT_BOLETOS_PROCESSADOS_PAG
where nrseq = itab_zycbt048-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_BOLETOS_PROCESSADOS_PAG
where nrseq = itab_zycbt048-nrcorresp. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
select land1 zlsch text1
from t042z
into table itab_t042z.
if not itab_processados[] is initial.
clear: itab_zycbt145.
refresh: itab_zycbt145.
select *
from /pws/zycbt145
into table itab_zycbt145
...
...
where nrseq eq itab_nao_processados-nrseq
and dtcontr eq itab_nao_processados-dtcontr.
endif.
endif.
refresh: itab_agrup, itab_zycat025.
if not itab_zycbt048[] is initial.
select *
from /pws/zycat025
into table itab_zycat025
for all entries in itab_zycbt048
* >> Início da exclusão: FORM SELECT_BOLETOS_NAO_PROCES_PAG
where nrseq = itab_zycbt048-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_BOLETOS_NAO_PROCES_PAG
where nrseq = itab_zycbt048-nrcorresp. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
select land1 zlsch text1
from t042z
into table itab_t042z.
if not itab_nao_processados[] is initial.
clear: itab_zycbt145.
refresh: itab_zycbt145.
select *
from /pws/zycbt145
into table itab_zycbt145
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR140
...
for all entries in itab_zycbt017
where nrinvoic = itab_zycbt017-nrinvoic and
nrparcf = itab_zycbt017-nrparcf and
gsberf = itab_zycbt017-gsberf .
select *
from /pws/zycbt227
into table itab_zycbt227
for all entries in itab_zycbt017
where nrinvoic = itab_zycbt017-nrinvoic
and nrparcf = itab_zycbt017-nrparcf
* >> Início da exclusão: FORM SELECIONA_DADOS
and gsberf = itab_zycbt017-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
and gsberf = itab_zycbt017-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
itab_zycbt227_aux[] = itab_zycbt227[].
endif.
endform.
form move_dados.
data: v_subrc type sy-subrc.
if not itab_zycbt017[] is initial.
loop at itab_zycbt017.
clear itab_zycet002.
read table itab_zycet002
with key nrseq = itab_zycbt017-nrinvoic(10).
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR359
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR400F01
...
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
importing
answer = v_answer.
if v_answer = '2'.
exit.
endif.
update /pws/zycbt002 set tprendimen = '130'
codrecbenef = '0481'
* >> Início da exclusão: FORM ATUALIZA_002_113_129
formatribut = '42'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_002_113_129
formatribut = '42'. "#EC CI_NOWHERE
* << Fim da inclusão
update /pws/zycbt113 set tprendimen = '130'
codrecbenef = '0481'
* >> Início da exclusão: FORM ATUALIZA_002_113_129
formatribut = '42'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_002_113_129
formatribut = '42'. "#EC CI_NOWHERE
* << Fim da inclusão
update /pws/zycbt129 set tprendimen = '130'
codrecbenef = '0481'
* >> Início da exclusão: FORM ATUALIZA_002_113_129
formatribut = '42'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_002_113_129
formatribut = '42'. "#EC CI_NOWHERE
* << Fim da inclusão
commit work and wait.
message i015 with text-005.
endform.
form atualiza_124.
call function 'POPUP_TO_CONFIRM'
exporting
titlebar = text-001
text_question = text-006
text_button_1 = text-003
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-004
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
importing
answer = v_answer.
if v_answer = '2'.
exit.
endif.
select * from /pws/zycbt125
* >> Início da exclusão: FORM ATUALIZA_124
into table itab_zycbt125.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_124
into table itab_zycbt125. "#EC CI_NOWHERE
* << Fim da inclusão
select * from /pws/zycbt124
* >> Início da exclusão: FORM ATUALIZA_124
into table itab_zycbt124.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_124
into table itab_zycbt124. "#EC CI_NOWHERE
* << Fim da inclusão
loop at itab_zycbt124.
if not itab_zycbt124-codpagto is initial
and itab_zycbt124-tprendimen is initial
...
...
importing
answer = v_answer.
if v_answer = '2'.
exit.
endif.
loop at itab_zycbt124_aux.
if not itab_zycbt124_aux-relfontepag is initial.
update /pws/zycbt124
set relfontepag = itab_zycbt124_aux-relfontepag
where recrem = itab_zycbt124_aux-recrem.
* >> Início da inclusão: FORM ATUALIZA_124_FONTE
"#EC CI_NOFIELD
* << Fim da inclusão
endif.
endloop.
commit work and wait.
message i015 with text-005.
endform.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR400O01
module status_0100 output.
set pf-status '0100'.
set titlebar '0100' with text-001.
endmodule.
module load_data output.
if itab_zycbt124_rec[] is initial.
select distinct recrem from /pws/zycbt124
* >> Início da exclusão: MODULE LOAD_DATA
into table itab_zycbt124_rec.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
into table itab_zycbt124_rec. "#EC CI_NOWHERE
* << Fim da inclusão
perform preenche_itab_zycbt124.
endif.
endmodule.
module status_0001 output.
set pf-status '0001'.
set titlebar '0001' with text-001.
endmodule.
module trata_tela output.
describe table itab_zycbt124_aux lines v_line.
move-corresponding itab_zycbt124_aux to /pws/zycbe124.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR907
...
importing
answer = v_answer.
if v_answer = '2'.
exit.
endif.
perform seleciona_dados.
perform processar_dados.
endcase.
form seleciona_dados.
select * from /pws/zycbt084
* >> Início da exclusão: FORM SELECIONA_DADOS
into table itab_zycbt084.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
into table itab_zycbt084. "#EC CI_NOWHERE
* << Fim da inclusão
delete itab_zycbt084 where tdesmemb ne 'K'
and tdesmemb ne 'H'
and tdesmemb ne 'O'
and tdesmemb ne 'V'.
delete itab_zycbt084 where result_saldo > 0.
if not p_nrseqc is initial.
delete itab_zycbt084 where nrseqc ne p_nrseqc.
endif.
if not p_invoic is initial.
delete itab_zycbt084 where nrinvoic ne p_invoic.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCMR908
...
cancel_display = ' '
importing
answer = v_answer.
if v_answer eq 'J'.
perform carrega_dados.
perform processa_dados.
endif.
end-of-selection.
form carrega_dados.
select * from /pws/zycbt117
* >> Início da exclusão: FORM CARREGA_DADOS
into corresponding fields of table itab_zycbt117.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS
into corresponding fields of table itab_zycbt117. "#EC CI_NOWHERE
* << Fim da inclusão
select * from /pws/zycbt130
into table itab_zycbt130
where tpassoc = 'PA'. "#EC CI_NOFIRST
endform.
form processa_dados.
loop at itab_zycbt117.
read table itab_zycbt130 with key
nrseq_pgfat = itab_zycbt117-nrseq.
if sy-subrc ne 0.
update /pws/zycbt117
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB035
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: O03
Texto: (29 caracteres)
"Liq.And.-Campo Não Preenchido"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: O04
Texto: (29 caracteres)
"Des.Cli.-Campo Não Preenchido"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: O05
Texto: (29 caracteres)
"Des.Ord.-Campo Não Preenchido"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: O06
Texto: (32 caracteres)
"Comp.Assoc.-Campo Não Preenchido"
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: O07
Texto: (34 caracteres)
"Clea.Ord.Pgt.-Campo Não Preenchido"
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: O08
Texto: (30 caracteres)
"Clea.Cli.-Campo Não Preenchido"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: O09
Texto: (34 caracteres)
"Clea.Liq.And.-Campo Não Preenchido"
Comprimento máximo: 34