CE PLUS - Nota 008510
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 08/06/2009 00:00:00
Data/Hora Última Alteração: 11/03/2010 11:02:43
Descrição da Nota: CODE INSPECTOR
Sintoma
CODE INSPECTOR
Solução
CODE INSPECTOR
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08510 Data: 08/06/2009 Hora: 15:55:46
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08510
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00100
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYGLGF1O02
REPS /PWS/MZYCB001F02
REPS /PWS/MZYCB030F01
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB116F01
REPS /PWS/MZYCB116F02
REPS /PWS/MZYCB116F03
REPS /PWS/MZYGL003F01
REPS /PWS/MZYGL003I01
REPS /PWS/ZYCBR108
REPS /PWS/ZYCBR122
REPS /PWS/ZYCBR912F01
REPS /PWS/ZYCER907
REPS /PWS/ZYCMR006
REPT /PWS/SAPMZYCB001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYGLGF1O02
...
zycet042 type /pws/zycet042,
<xmark> type c,
end of s_conteudo.
field-symbols: <fs_conteudo> type s_conteudo.
loop at extract.
check <xmark> eq markiert.
assign extract to <fs_conteudo> casting.
select count(*)
from /pws/zycet101
where nome_tr = <fs_conteudo>-zycet042-navio and
* >> Início da exclusão: FORM VERIFICA_EXCLUSAO_ZYCET042
codabics = <fs_conteudo>-zycet042-codabics. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_EXCLUSAO_ZYCET042
codabics = <fs_conteudo>-zycet042-codabics. "#EC CI_NOFIELD
* << Fim da inclusão
if sy-subrc eq '0'.
message e337(/pws/zycem) with <fs_conteudo>-zycet042-navio.
endif.
endloop.
endform.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F02
...
endif.
perform campos_liquida_pt_acc.
itab_zycbe033-c_gsber = /pws/zycbe001-gsber.
itab_zycbe033-d_gsber = /pws/zycbe001-gsber.
itab_zycbe033-wrbtr = /pws/zycbe001-vlme.
itab_zycbe033-werks = /pws/zycbe001-werks.
itab_zycbe033-kursf = /pws/zycbe001-txcneg.
perform verify_null_field using /pws/zycbe001-txcneg
'TXCAMB'
text-027.
* >> Início da exclusão: FORM CLEARING_PRE
concatenate text-501 /pws/zycbe001-nrseqc
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_PRE
concatenate text-488 /pws/zycbe001-nrseqc
* << Fim da inclusão
into itab_zycbe033-c_zuonr
separated by space.
append itab_zycbe033.
loop at itab_zycbt061 where nrseq = /pws/zycbe001-nrseqc.
select single *
from /pws/zycbt001
into wa_zycbt001_pre
where nrseqc = itab_zycbt061-nrseq_c.
perform pega_contas_acc_pre changing conta_acc texto_acc
conta_pre texto_pre
...
...
itab_partidas-tabela = 'ZYCBT001'.
itab_partidas-cpochv = itab_zycbe033-cpochv.
itab_partidas-belnr = itab_zycbt061-belnr_d.
itab_partidas-agkon = conta_acc.
itab_partidas-agkoa = 'S'.
itab_partidas-agums = space.
itab_partidas-bukrs = wa_zycbt001_pre-bukrs.
itab_partidas-shkzg = 'H'.
if itab_zycbt061-baixa eq 'X'.
itab_partidas-v_sinal = '-'.
* >> Início da exclusão: FORM CLEARING_PRE
concatenate 'Des.' /pws/zycbe001-nrseqc
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_PRE
concatenate text-488 /pws/zycbe001-nrseqc
* << Fim da inclusão
into itab_partidas-d_zuonr
separated by space.
else.
itab_partidas-v_sinal = '+'.
clear itab_partidas-d_zuonr.
endif.
itab_partidas-dtdocto = itab_zycbt061-budat_d.
append itab_partidas.
endloop.
clear v_div.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB030F01
...
read table itab_discrep with key nrdes = '03'.
if sy-subrc ne 0.
itab_discrep-nrdes = '03'.
itab_discrep-descr = text-d03.
append itab_discrep.
endif.
endif.
endif.
endif.
select * from /pws/zycet108
* >> Início da exclusão: FORM CONSISTE_CAMPOS
where vbeln_vl eq itab_zycbt096-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_CAMPOS
where vbeln_vl eq itab_zycbt096-vbeln_va. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
if sy-subrc eq 0.
if /pws/zycbe094-ptransb eq 'N'.
select * from /pws/zycet103
up to 1 rows
where nrseqtr eq /pws/zycet108-nrseqtr
and nrrota_tr eq /pws/zycet108-nrrota_tr
and tpemb eq 'I'.
endselect.
if sy-subrc eq 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
v_codaux3 type /pws/zygle316-codaux3,
v_existe type char1,
wa_destino like line of p_itab_destino.
field-symbols:
<fs_origem> like line of p_itab_origem.
if not p_itab_origem[] is initial.
select * from /pws/zycbt005 into table itab_zycbt005
for all entries in p_itab_origem
where nrinvoic = p_itab_origem-nrinvoic
and nrparcf = p_itab_origem-nrparcf
* >> Início da exclusão: FORM MOVER_DADOS
and gsberf = p_itab_origem-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVER_DADOS
and gsberf = p_itab_origem-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
select * from /pws/zycbt006 into table itab_zycbt006
for all entries in p_itab_origem
where nrinvoic = p_itab_origem-nrinvoic
and nrparcf = p_itab_origem-nrparcf
* >> Início da exclusão: FORM MOVER_DADOS
and gsberf = p_itab_origem-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVER_DADOS
and gsberf = p_itab_origem-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
loop at p_itab_origem assigning <fs_origem> where mark eq 'X'.
check <fs_origem>-status eq c_contabilizado.
loop at p_itab_destino into wa_destino
where nrseq = <fs_origem>-nrseq.
read table itab_disp_ant
with key nrseq = wa_destino-nrseq
destino = wa_destino-destino
dtdisp = wa_destino-dtdisp
transporting no fields.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB116F01
...
if not /pws/zycbe001-belnr is initial.
move: /pws/zycbe001-belnr to vg_belnr.
endif.
endif.
if not r_emprestimo is initial.
select *
up to 1 rows
from /pws/zycbt128
into wa_zycbt128
where nrseqcot = wa_zycbt243-nrseq
* >> Início da exclusão: FORM LOOP_AT_SCREEN_DEFAULT
and waers = wa_zycbt243-waers. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM LOOP_AT_SCREEN_DEFAULT
and waers = wa_zycbt243-waers. "#EC CI_NOFIELD
* << Fim da inclusão
endselect.
if not wa_zycbt128-belnr is initial.
move: wa_zycbt128-belnr to vg_belnr.
endif.
endif.
if not r_financiamento is initial.
select *
up to 1 rows
from /pws/zycbt113
into wa_zycbe113
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB116F02
...
append wa_dados_tc to itab_dados_tc.
endif.
endloop.
if not r_captacao is initial or /pws/zycbe233-origem eq 'C'.
if p_tpcont is initial.
if not /pws/zycbe233-nrseq is initial.
select tpcontr
up to 1 rows
from /pws/zycbt001
into /pws/zycbe001-tpcontr
* >> Início da exclusão: FORM CARREGA_PARAMETROS
where nrseqcot = /pws/zycbe233-nrseq. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
where nrseqcot = /pws/zycbe233-nrseq. "#EC CI_NOFIELD
* << Fim da inclusão
endselect.
if sy-subrc = 0.
move: /pws/zycbe001-tpcontr to p_tpcont.
endif.
else.
get parameter id '/PWS/ZYCBP406' field /pws/zycbe001-tpcontr.
get parameter id '/PWS/ZYCBP408' field vg_bukrs.
move: /pws/zycbe001-tpcontr to p_tpcont.
endif.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB116F03
...
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
for all entries in itab_zycbt243
where nrseqcot = itab_zycbt243-nrseq
* >> Início da exclusão: FORM ZF_EXCLUI_CAPTACAO
and waers = itab_zycbt243-waers. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM ZF_EXCLUI_CAPTACAO
and waers = itab_zycbt243-waers. "#EC CI_NOFIELD
* << Fim da inclusão
endif.
if sy-subrc ne 0.
vl_flag = 'X'.
endif.
endif.
if not r_captacao is initial.
if not itab_zycbt243[] is initial.
select *
from /pws/zycbt001
into table itab_zycbt001
for all entries in itab_zycbt243
where nrseqcot = itab_zycbt243-nrseq
* >> Início da exclusão: FORM ZF_EXCLUI_CAPTACAO
and waers = itab_zycbt243-waers. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM ZF_EXCLUI_CAPTACAO
and waers = itab_zycbt243-waers. "#EC CI_NOFIELD
* << Fim da inclusão
endif.
if sy-subrc ne 0.
vl_flag = 'X'.
endif.
endif.
endif.
endif.
if not vl_flag is initial.
delete /pws/zycbt243 from table itab_zycbt243.
delete /pws/zycbt233 from /pws/zycbe233.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL003F01
...
endif.
if v_answer = 1.
if not /pws/zyglt020-tipmen is initial and
not /pws/zyglt016-categ is initial and
not /pws/zyglt019-campo is initial.
read table t_carac with key col = 'X'.
if sy-subrc ne 0.
message id '/PWS/ZYNFM'
type 'W'
number '000'
* >> Início da exclusão: FORM EXCLUSAO
with 'Selecionar registros a serem eliminados!!!'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
with text-062.
* << Fim da inclusão
else.
loop at t_carac where col = 'X'.
delete t_tb_carac where
tipmen = /pws/zyglt020-tipmen and
categ = /pws/zyglt016-categ and
campo = /pws/zyglt019-campo and
valor = t_carac-valor and
col = 'X'.
delete t_carac index sy-tabix.
delete from /pws/zyglt022 client specified
...
...
and campo = /pws/zyglt019-campo
and valor = t_carac-valor.
delete from /pws/zyglt019 client specified
where mandt = sy-mandt
and campo = /pws/zyglt019-campo.
endloop.
else.
message id '/PWS/ZYNFM'
type 'W'
number '000'
* >> Início da exclusão: FORM EXCLUSAO
with 'Há campos OBRIGATÓRIOS não preenchidos!!!'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
with text-073.
* << Fim da inclusão
endif.
endif.
endif.
clear v_answer.
endform.
form grava.
/pws/zyglt015-mandt = sy-mandt.
/pws/zyglt015-tipmen = /pws/zyglt017-tipmen.
/pws/zyglt015-descr = /pws/zyglt015-descr.
/pws/zyglt015-status = /pws/zyglt015-status.
...
...
write sy-uzeit to v_hora.
concatenate v_data v_hora into v_dt separated by ' - '.
concatenate sy-mandt sy-host(4) into v_mandt separated by ' - '.
refresh: et_list_commentary.
clear ls_listheader.
ls_listheader-typ = 'S'.
ls_listheader-key = text-038.
ls_listheader-info = /pws/zyglt019-campo.
append ls_listheader to et_list_commentary.
ls_listheader-typ = 'S'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER_LOG
ls_listheader-key = 'Data/Hora : '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER_LOG
ls_listheader-key = text-008.
* << Fim da inclusão
ls_listheader-info = v_dt.
append ls_listheader to et_list_commentary.
ls_listheader-typ = 'S'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER_LOG
ls_listheader-key = 'Usuário : '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER_LOG
ls_listheader-key = text-009.
* << Fim da inclusão
ls_listheader-info = sy-uname.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL003I01
...
v_tam = strlen( var1 ).
clear var2.
if v_cam_log ne ' '.
v_tam = v_tam - 4.
var2 = var1(v_tam).
v_cam_log = var2.
endif.
else.
call function 'POPUP_TO_CONFIRM_MSG_WITH_CALL'
exporting
* >> Início da exclusão: MODULE USER_COMMAND_1002
txt01 = 'Para Servidor de Aplicação, favor digitar o caminho!'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1002
txt01 = text-057
* << Fim da inclusão
title = text-059
length = '65'
exceptions
function_module_missed = 1
text_second_pushbutton_missed = 2
others = 3.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR108
...
into table itab_zycet001
where bukrs in s_bukrs
and gsber in s_gsber
and nrseq in s_nrseq
and dtemb in s_dtemb
and dtvencto in s_vencto
and nremb in s_nremb.
if not itab_zycet001[] is initial.
select nrseqc nrinvoic nrcontr waers vlvinc
from /pws/zycbt005
* >> Início da exclusão: FORM SELECIONA_DADOS
into table itab_zycbt005. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
into table itab_zycbt005. "#EC CI_NOWHERE
* << Fim da inclusão
refresh itab_zycbt005_aux.
loop at itab_zycbt005.
itab_zycbt005_aux-nrseqc = itab_zycbt005-nrseqc.
itab_zycbt005_aux-nrinvoic = itab_zycbt005-nrinvoic.
itab_zycbt005_aux-nrcontr = itab_zycbt005-nrcontr.
itab_zycbt005_aux-waers = itab_zycbt005-waers.
itab_zycbt005_aux-vlvinc = itab_zycbt005-vlvinc.
append itab_zycbt005_aux.
endloop.
sort itab_zycbt005_aux by nrseqc nrinvoic.
...
...
select nrseq kunnr
from /pws/zycet046
into table itab_zycet046
for all entries in itab_zycet001
where nrseq = itab_zycet001-nrseq.
if sy-subrc = 0.
select lifnr land1 name1 kunnr
from lfa1
into table itab_lfa1
for all entries in itab_zycet046
* >> Início da exclusão: FORM SELECIONA_DADOS
where kunnr = itab_zycet046-kunnr. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
where kunnr = itab_zycet046-kunnr. "#EC CI_NOFIELD
* << Fim da inclusão
if sy-subrc = 0.
select land1 /pws/codpa
from t005
into table itab_t005
for all entries in itab_lfa1
where land1 = itab_lfa1-land1.
endif.
endif.
select nrseq lifnr
from /pws/zycet010
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR122
...
itab_zycbt034,
itab_zycbe033,
itab_zycbt032.
endform.
form gera_programa_opendataset tables p_itab_msg structure itab_msg
using p_dir_unix.
data: t_prog(72) type c occurs 1000 with header line.
data: w_prog like trdir-name.
append 'report sy-repid.' to t_prog.
append 'data: BEGIN OF itab_msg OCCURS 10,' to t_prog.
* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET
"#EC NOTEXT
* << Fim da inclusão
append ' nrseqc LIKE /pws/zycbt129-nrseq,' to t_prog.
"#EC NOTEXT
append ' tpparc LIKE /pws/zycbt129-tpparc,' to t_prog.
"#EC NOTEXT
append ' nrparc LIKE /pws/zycbt129-nrparc,' to t_prog.
"#EC NOTEXT
append ' texto(50) TYPE c,' to t_prog.
"#EC NOTEXT
append ' END OF itab_msg.' to t_prog.
"#EC NOTEXT
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR912F01
...
perform processar_carga.
else.
message i015 with text-004 text-005.
endif.
endform.
form processar_carga.
clear: v_tpccred, itab_zycbt092_aux.
refresh: itab_zycbt092_aux.
select nrseq tpccred nrccred from /pws/zycbt092
into table itab_zycbt092
* >> Início da exclusão: FORM PROCESSAR_CARGA
where tpccred is null or tpccred eq ''. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_CARGA
where tpccred is null or tpccred eq ''. "#EC CI_NOFIELD
* << Fim da inclusão
if not itab_zycbt092[] is initial.
loop at itab_zycbt092.
v_tpccred = ''.
select single nrseq
from /pws/zycbt161 into v_nrseq
* >> Início da exclusão: FORM PROCESSAR_CARGA
where nrseq = itab_zycbt092-nrseq. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_CARGA
where nrseq = itab_zycbt092-nrseq. "#EC CI_NOFIELD
* << Fim da inclusão
if sy-subrc = 0.
v_tpccred = 'OV'.
endif.
if v_tpccred is initial.
select single nrseq
from /pws/zycbt097 into v_nrseq
where nrseq = itab_zycbt092-nrseq.
if sy-subrc = 0.
v_tpccred = 'IV'.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER907
...
select * from /pws/zycet078.
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.
* >> Início da exclusão:
select * from /pws/zycet092.
* << Fim da exclusão
* >> Início da inclusão:
select * from /pws/zycet092. "#EC CI_NOWHERE
* << Fim da inclusão
v_nrseq_old = /pws/zycet092-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/zycet092 set codnrseq = v_nrseq_new
where nrseqre = /pws/zycet092-nrseqre and
codnrseq = /pws/zycet092-codnrseq.
endselect.
* >> Início da exclusão:
select * from /pws/zycet118.
* << Fim da exclusão
* >> Início da inclusão:
select * from /pws/zycet118. "#EC CI_NOWHERE
* << Fim da inclusão
v_nrseq_old = /pws/zycet118-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.
v_nrseq_old = /pws/zycet118-seqagrupado.
v_nrseq_new1 = v_nrseq_old(3).
if not v_nrseq_old+4(1) is initial.
v_nrseq_new1 = v_nrseq_old+2(3).
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCMR006
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB001
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 501
Texto: (4 caracteres)
"Des."
Comprimento máximo: 4