CE PLUS - Nota 009055
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 21/09/2009 00:00:00
Data/Hora Última Alteração: 11/03/2010 11:15:57
Descrição da Nota: CODE INSPECTOR - CAMBIO EXPORTAÇÃO
Sintoma
Code Inspector - cambio exportação
Solução
Code Inspector - cambio exportação
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09055 Data: 21/09/2009 Hora: 15:42:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09055
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00115
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CODE INSPECTOR - CAMBIO EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR - CAMBIO EXPORTAÇÃO - ERRO - F5D
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCM101F01
REPS /PWS/MZYGL003F01
REPT /PWS/SAPMZYCA109
REPT /PWS/SAPMZYCB004
REPT /PWS/SAPMZYCB012
REPT /PWS/SAPMZYCB034
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
endif.
perform busca_liquidacoes.
perform provisiona_diferenca_juros.
endif.
endif.
endif.
if itab_zycbt226 is initial.
select *
from /pws/zycbt006
into corresponding fields of table itab_zycbt006_ca
* >> Início da exclusão: FORM GRAVA_TABELAS
where nrinvoic = itab_zycbt006-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
where nrinvoic = itab_zycbt006-nrinvoic. "#EC CI_NOFIRST
* << Fim da inclusão
describe table itab_zycbt006_ca lines v_line.
if v_line < 2.
if wa_zycbt007-liq_com_cg ne 'RP'.
perform estorna_comissao.
endif.
endif.
endif.
perform atualiza_tabelas_transp2.
if wa_zycbt007-liq_com_cg ne 'RP'.
perform liquida_comissao_agente.
...
...
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single * from bkpf
where bukrs = itab_zycbt006-bukrs
and belnr = itab_zycbe033-belnr
and gjahr = v_year.
itab_zycbe033-dtdocto = bkpf-budat.
* >> Início da exclusão: FORM FILL_DATE6_F30_LIQUID_3
concatenate 'Des.' itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID_3
concatenate text-460 itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da inclusão
into itab_zycbe033-c_zuonr
separated by space.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = itab_zycbe033-wrbtr.
concatenate text-233 itab_zycbt006-nrinvoic
into itab_zycbt036-zuonr
separated by space.
append itab_zycbt036.
...
...
itab_zycbt006-bukrs
changing v_ano.
select zuonr from bseg into itab_partidas-d_zuonr
up to 1 rows
where bukrs = itab_zycbt006-bukrs
and belnr = itab_partidas-belnr
and gjahr = v_ano.
endselect.
v_zuonr = 'X'.
else.
* >> Início da exclusão: FORM FILL_DATE6_F30_LIQUID_3
concatenate 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID_3
concatenate text-460
* << Fim da inclusão
itab_zycbt006-nrinvoic
itab_zycbt006-nrparcf
into itab_partidas-d_zuonr
separated by space.
endif.
itab_partidas-v_sinal = '-'.
append itab_partidas.
endloop.
if not itab_partidas[] is initial.
itab_zycbe033-agkon = itab_zycbt017-kunag.
...
...
itab_zycbt209-bukrs
changing v_ano.
select zuonr from bseg into itab_partidas-d_zuonr
up to 1 rows
where bukrs = itab_zycbt209-bukrs
and belnr = itab_partidas-belnr
and gjahr = v_ano.
endselect.
v_zuonr = 'X'.
else.
* >> Início da exclusão: FORM FILL_DATE6_F30_LIQUID_3
concatenate 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID_3
concatenate text-460
* << Fim da inclusão
itab_zycbt006-nrinvoic
itab_zycbt006-nrparcf
into itab_partidas-d_zuonr
separated by space.
endif.
itab_partidas-v_sinal = '-'.
append itab_partidas.
endloop.
endform.
form doctos_fatura.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
endif.
if itab_zycbt030-flag <> 'X'.
itab_zycbe033-newbs = '01'.
else.
itab_zycbe033-newbs = '12'.
endif.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = itab_zycbe033-wrbtr.
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
concatenate 'Des.' itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
concatenate text-460 itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da inclusão
into itab_zycbt036-zuonr
separated by space.
append itab_zycbt036.
itab_doctos-tcode = itab_zycbe033-tcode.
itab_doctos-tabela = itab_zycbe033-tabela.
itab_doctos-cpochv = itab_zycbe033-cpochv.
itab_doctos-belnr = itab_zycbe033-belnr.
itab_doctos-dtdocto = itab_zycbe033-dtdocto.
append itab_doctos.
read table itab_recurso_aux into wa_recurso_aux
...
...
if itab_zycbt006-v_armda is initial.
itab_zycbt036-residuo = itab_zycbt006-vlme.
else.
read table itab_paridade with key nrinvoic = itab_zycbt006-nrinvoic
nrparcf = itab_zycbt006-nrparcf
gsberf = itab_zycbt006-gsberf.
if sy-subrc = 0.
itab_zycbt036-residuo = itab_paridade-v_vlme_c.
endif.
endif.
* >> Início da exclusão: FORM DESMEMBRA_ACE
concatenate 'Des.' itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_ACE
concatenate text-460 itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da inclusão
into itab_zycbt036-zuonr
separated by space.
if ( itab_zycbt006-tpcontr(1) ca 'CE'
or ( /pws/zycbe001-tpcontr(1) eq 'D' and
/pws/zycbt089-f_cont_vinc eq 'F' ) ) and
/pws/zycbe001-desc_receb is initial.
itab_zycbt036-belnr = itab_zycbe033-belnr.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
...
...
clear itab_partidas-d_zuonr.
elseif itab_zycbt030-belnr_d eq itab_zycbt030-belnr_t.
itab_partidas-dtdocto = itab_zycbt030-budat_t.
clear itab_partidas-d_zuonr.
else.
if not /pws/zycbt074-dtcont is initial.
itab_partidas-dtdocto = /pws/zycbt074-dtcont.
else.
itab_partidas-dtdocto = itab_zycbt006-dtpagto.
endif.
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
concatenate 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
concatenate text-460
* << Fim da inclusão
itab_zycbt006-nrinvoic
itab_zycbt006-nrparcf
into itab_partidas-d_zuonr
separated by space.
itab_partidas-v_sinal = '-'.
endif.
append itab_partidas.
endloop.
loop at itab_zycbt209 where nrinvoic = itab_zycbt006-nrinvoic and
gsberf = itab_zycbt006-gsberf and
...
...
from bseg
into itab_partidas-d_zuonr
where bukrs = itab_zycbt209-bukrs and
belnr = itab_zycbt209-belnr_d and
gjahr = v_year and
augbl = space and
koart = itab_zycbt209-koart and
buzei <= 2.
itab_partidas-v_sinal = '+'.
else.
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
concatenate 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
concatenate text-460
* << Fim da inclusão
itab_zycbt006-nrinvoic
itab_zycbt006-nrparcf
into itab_partidas-d_zuonr
separated by space.
itab_partidas-v_sinal = '-'.
endif.
append itab_partidas.
endloop.
loop at itab_zycbt219 where nrinvoic = itab_zycbt006-nrinvoic and
gsberf = itab_zycbt006-gsberf and
...
...
from bseg
into itab_partidas-d_zuonr
where bukrs = itab_zycbt219-bukrs and
belnr = itab_zycbt219-belnr_d and
gjahr = v_year and
augbl = space and
koart = itab_zycbt219-koart and
buzei <= 2.
itab_partidas-v_sinal = '+'.
else.
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
concatenate 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
concatenate text-460
* << Fim da inclusão
itab_zycbt006-nrinvoic
itab_zycbt006-nrparcf
into itab_partidas-d_zuonr
separated by space.
itab_partidas-v_sinal = '-'.
endif.
append itab_partidas.
endloop.
if /pws/zycbe001-desc_receb is initial.
itab_partidas-tcode = 'F-30'.
...
...
others = 7.
select single budat from bkpf
into itab_partidas-dtdocto
where bukrs = itab_zycbt005-bukrs
and belnr = itab_zycbt006-belnr_d
and gjahr = v_year.
if v_desmembramento is initial.
itab_partidas-v_sinal = '+'.
itab_partidas-d_zuonr = space.
else.
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
concatenate 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
concatenate text-460
* << Fim da inclusão
itab_zycbt006-nrinvoic
itab_zycbt006-nrparcf
into itab_partidas-d_zuonr
separated by space.
itab_partidas-v_sinal = '-'.
endif.
append itab_partidas.
endif.
read table itab_contabil with key nrinvoic = itab_zycbt030-nrinvoic
nrparcf = itab_zycbt030-nrparcf
gsberf = itab_zycbt030-gsberf
msg = text-179.
if sy-subrc = 0.
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
concatenate 'Des.' itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
concatenate text-460 itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da inclusão
into itab_zycbe033-c_zuonr
separated by space.
else.
itab_zycbe033-c_zuonr = itab_zycbt006-nrinvoic.
endif.
clear v_zuonr.
read table itab_contabil with key nrinvoic = itab_zycbt030-nrinvoic
nrparcf = itab_zycbt030-nrparcf
gsberf = /pws/zycbe001-gsber
msg = text-180.
...
...
clear itab_contabil-vbeln.
itab_contabil-gsberf = itab_zycbt006-gsberf.
itab_contabil-nrparcf = itab_zycbt006-nrparcf.
itab_contabil-docto = itab_zycbt032-belnr.
itab_contabil-msg = text-194.
itab_contabil-dtdocto = itab_zycbt006-dtpagto.
itab_contabil-bukrs = itab_zycbt006-bukrs.
append itab_contabil.
delete from /pws/zycbt084
where belnr = v_belnr_ant
* >> Início da exclusão: FORM ANULA_DESM_ACE_ABITR
and tdesmemb = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_DESM_ACE_ABITR
and tdesmemb = 'E'. "#EC CI_NOFIRST
* << Fim da inclusão
else.
loop at itab_zycbt032 where tcode = 'FB08'
and tabela = 'ZYCBT006'
and cpochv = v_cpochv.
itab_erro-vbeln = itab_zycbt006-belnr_d.
itab_erro-msg = itab_zycbt032-msg.
append itab_erro.
endloop.
endif.
else.
...
...
itab_zycbe033-umskz = itab_zycbt209-umskz.
if itab_zycbt209-koart eq 'D'.
if itab_zycbt209-umskz is initial.
itab_zycbe033-newbs = '01'.
else.
itab_zycbe033-newbs = '09'.
endif.
else.
itab_zycbe033-newbs = '40'.
endif.
* >> Início da exclusão: FORM DESMEMBRA_LIQ_AND
concatenate 'Des.' itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
concatenate text-460 itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da inclusão
into itab_zycbe033-d_zuonr
separated by space.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = itab_zycbe033-wrbtr.
append itab_zycbt036.
itab_doctos-tcode = itab_zycbe033-tcode.
itab_doctos-tabela = itab_zycbe033-tabela.
itab_doctos-cpochv = itab_zycbe033-cpochv.
...
...
if itab_zycbt006-ftxt is initial.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
else.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
endif.
endif.
itab_zycbe033-c_sgtxt = itab_zycbt006-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt220-nrinvoic.
* >> Início da exclusão: FORM DESM_DESC_RECEB
concatenate 'Des.' itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da exclusão
* >> Início da inclusão: FORM DESM_DESC_RECEB
concatenate text-460 itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da inclusão
into itab_zycbe033-d_zuonr
separated by space.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = itab_zycbe033-wrbtr.
append itab_zycbt036.
itab_doctos-tcode = itab_zycbe033-tcode.
itab_doctos-tabela = itab_zycbe033-tabela.
itab_doctos-cpochv = itab_zycbe033-cpochv.
...
...
v_gjahr = v_year.
select single budat from bkpf
into itab_partidas-dtdocto
where bukrs = itab_zycbt005-bukrs
and belnr = itab_zycbt006-belnr_d
and gjahr = v_year.
if v_desmembramento is initial.
itab_partidas-v_sinal = '+'.
itab_partidas-d_zuonr = space.
else.
* >> Início da exclusão: FORM BAIXA_ACE_PERFORMANCE
concatenate 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_ACE_PERFORMANCE
concatenate text-460
* << Fim da inclusão
itab_zycbt006-nrinvoic
itab_zycbt006-nrparcf
into itab_partidas-d_zuonr
separated by space.
itab_partidas-v_sinal = '-'.
endif.
append itab_partidas.
* >> Início da exclusão: FORM BAIXA_ACE_PERFORMANCE
concatenate 'Des.' itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_ACE_PERFORMANCE
concatenate text-460 itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da inclusão
into itab_zycbe033-c_zuonr
separated by space.
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using itab_zycbt006-bukrs
wa_t001w-j_1bbranch.
...
...
itab_zycbt006-bukrs
changing v_ano.
select zuonr from bseg into itab_partidas-d_zuonr
up to 1 rows
where bukrs = itab_zycbt006-bukrs
and belnr = itab_partidas-belnr
and gjahr = v_ano.
endselect.
v_zuonr = 'X'.
else.
* >> Início da exclusão: FORM BAIXA_CLIENTE_PERFORMANCE
concatenate 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
concatenate text-460
* << Fim da inclusão
itab_zycbt006-nrinvoic
itab_zycbt006-nrparcf
into itab_partidas-d_zuonr
separated by space.
endif.
itab_partidas-v_sinal = '-'.
append itab_partidas.
endloop.
loop at itab_zycbt209 where nrinvoic = itab_zycbt006-nrinvoic and
gsberf = itab_zycbt006-gsberf and
...
...
itab_zycbt209-bukrs
changing v_ano.
select zuonr from bseg into itab_partidas-d_zuonr
up to 1 rows
where bukrs = itab_zycbt209-bukrs
and belnr = itab_partidas-belnr
and gjahr = v_ano.
endselect.
v_zuonr = 'X'.
else.
* >> Início da exclusão: FORM BAIXA_CLIENTE_PERFORMANCE
concatenate 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
concatenate text-460
* << Fim da inclusão
itab_zycbt006-nrinvoic
itab_zycbt006-nrparcf
into itab_partidas-d_zuonr
separated by space.
endif.
itab_partidas-v_sinal = '-'.
endif.
append itab_partidas.
endloop.
* >> Início da exclusão: FORM BAIXA_CLIENTE_PERFORMANCE
concatenate 'Des.' itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
concatenate text-460 itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
* << Fim da inclusão
into itab_zycbe033-c_zuonr
separated by space.
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using itab_zycbt006-bukrs
wa_t001w-j_1bbranch.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
when 'VALUT'.
if itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
* >> Início da exclusão: FORM PREENCHE_CAMPOS
concatenate 'Des. OP' <fs_zycbt226>-nrseq
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
concatenate text-461 <fs_zycbt226>-nrseq
* << Fim da inclusão
into itab_zycbe033-d_zuonr
separated by space.
endform.
form soma_liqand.
loop at itab_zycbt209 where nrinvoic = itab_zycbt006-nrinvoic and
gsberf = itab_zycbt006-gsberf and
nrparcf = itab_zycbt006-nrparcf.
move-corresponding itab_zycbt209 to itab_zycbt209s.
collect itab_zycbt209s.
endloop.
...
...
select single kurst
from /pws/zycbt009
into v_kurst
where codpadr = /pws/zycbt011-ctmoed.
convert date v_dtcalcjur into inverted-date v_dtbudat.
select * from tcurr
into table itab_tcurr
where kurst = v_kurst
and fcurr = /pws/zycbt001-waers
and tcurr = wa_zycbt007-waersb
* >> Início da exclusão: FORM SELECIONA_TAXA_P
and gdatu ge v_dtbudat.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_TAXA_P
and gdatu ge v_dtbudat. "#EC PORTABLE
* << Fim da inclusão
read table itab_tcurr index 1.
itab_zycbe033-kursf = itab_tcurr-ukurs.
endform.
form estorna_fbra_fb08 using p_belnr
p_data
p_bukrs
p_fbra
changing p_subrc.
data: v_monat like t001b-frpe1,
v_ano type gjahr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
if wa_zyglt321_cg-cpocb = 'ZTERM'.
wa_zycbe033-zterm = itab_zycbt017_cg-zterm.
endif.
endcase.
endloop.
wa_zycbe033-bldat = <fs_op>-dtlancto.
wa_zycbe033-budat = <fs_op>-dtlancto.
wa_zycbe033-d_newko = itab_zycbt017_cg-kunag.
perform verify_null_field using wa_zycbe033-d_newko
'KONTO'
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
text-116.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
text-035.
* << Fim da inclusão
if wa_zycbt007-comis = 'C'.
wa_zycbe033-c_newko = itab_zycbt012a-saknr1.
else.
wa_zycbe033-c_newko = itab_selreg-lifnr.
endif.
perform verify_null_field using wa_zycbe033-c_newko
'KONTO'
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
text-117.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
text-036.
* << Fim da inclusão
if wa_zycbt007-comis eq 'A'.
if itab_aux-flag <> 'X'.
wa_zycbe033-newbs = '01'.
wa_zycbe033-newbs1 = '31'.
else.
wa_zycbe033-newbs = '11'.
wa_zycbe033-newbs1 = '21'.
endif.
else.
if itab_aux-flag <> 'X'.
...
...
move wa_zycbt032 to itab_zycbt032a.
itab_zycbt032a-budat = wa_zycbe033-budat.
append itab_zycbt032a.
itab_contabil-nrinvoic = wa_zycbt030-nrinvoic.
itab_contabil-nrparcf = wa_zycbt030-nrparcf.
itab_contabil-vbeln = wa_zycbt030-vbeln.
itab_contabil-gsberf = wa_zycbt030-gsberf.
itab_contabil-docto = wa_zycbt032-belnr.
itab_contabil-dtdocto = wa_zycbe033-budat.
itab_contabil-bukrs = itab_zycbt006-bukrs.
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
itab_contabil-msg = text-119.
* << Fim da exclusão
append itab_contabil.
itab_zycbt077-belnr = wa_zycbt032-belnr.
itab_zycbt077-bukrs = wa_zycbe033-bukrs.
itab_zycbt077-gjahr = wa_zycbe033-budat(4).
itab_zycbt077-status = 'E'.
itab_zycbt077-tcode = wa_zycbt032-tcode.
concatenate '004' itab_selreg-codp into
itab_zycbt077-codeven.
itab_zycbt077-codmod = 'E'.
itab_zycbt077-nrinvoic = itab_aux-nrinvoic.
...
...
itab_aux-budat = wa_zycbe033-budat.
modify itab_aux transporting belnr6
where belnr6 = v_belnr6.
itab_contabil-nrinvoic = itab_aux-nrinvoic.
itab_contabil-nrparcf = itab_aux-nrparcf.
itab_contabil-vbeln = itab_aux-vbeln.
itab_contabil-gsberf = itab_aux-gsberf.
itab_contabil-docto = wa_zycbt032-belnr.
itab_contabil-dtdocto = wa_zycbe033-budat.
itab_contabil-bukrs = itab_zycbt006-bukrs.
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
itab_contabil-msg = text-111.
* << Fim da exclusão
append itab_contabil.
itab_zycbt077-belnr = wa_zycbt032-belnr.
itab_zycbt077-bukrs = wa_zycbe033-bukrs.
itab_zycbt077-gjahr = wa_zycbe033-budat(4).
itab_zycbt077-status = 'E'.
itab_zycbt077-tcode = wa_zycbt032-tcode.
concatenate '004' itab_selreg-codp into
itab_zycbt077-codeven.
itab_zycbt077-codmod = 'E'.
itab_zycbt077-gsberf = itab_zycbt006-gsberf.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101F01
...
message i061 with text-115 /pws/zycbt243-belnr_desp
text-470.
else.
loop at itab_zycbt032.
message i015 with itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
endloop.
endif.
else.
loop at itab_zycbt034.
* >> Início da exclusão: FORM ESTORNA_DESPESA_COTACAO
message i127 with itab_zycbt034-descricao v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DESPESA_COTACAO
message i015 with itab_zycbt034-descricao v_codeven.
* << Fim da inclusão
endloop.
endif.
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/MZYGL003F01
...
v_dtin(10) type c,
v_dtfi(10) type c.
data: ls_listheader like line of et_list_commentary.
write sy-datum dd/mm/yyyy to v_data.
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'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER_LOG_EXT
ls_listheader-key = 'Data/Hora : '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER_LOG_EXT
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_EXT
ls_listheader-key = 'Usuário : '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER_LOG_EXT
ls_listheader-key = text-009.
* << Fim da inclusão
ls_listheader-info = sy-uname.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCA109
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: EN
Símbolo: 001
Texto: (27 caracteres)
"D you want to save changes?"
Comprimento máximo: 27
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 018
Texto: (37 caracteres)
"Mensagens emitidas durante o processo"
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 187
Texto: (7 caracteres)
"Entranc"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 188
Texto: (40 caracteres)
"no existent for this branch (check entry"
Comprimento máximo: 51
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB004
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: EN
Símbolo: 002
Texto: (12 caracteres)
"Funding Bank"
Comprimento máximo: 17
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: EN
Símbolo: 005
Texto: (5 caracteres)
"Curr."
Comprimento máximo: 5
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: EN
Símbolo: 049
Texto: (5 caracteres)
"Curr."
Comprimento máximo: 5
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: EN
Símbolo: 155
Texto: (6 caracteres)
"Invoic"
Comprimento máximo: 6
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: EN
Símbolo: 177
Texto: (4 caracteres)
"Erro"
Comprimento máximo: 4
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 253
Texto: (28 caracteres)
"Valores Mantidos no Exterior"
Comprimento máximo: 28
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 254
Texto: (23 caracteres)
"Liquidação em Andamento"
Comprimento máximo: 23
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 255
Texto: (7 caracteres)
"Cliente"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 459
Texto: (39 caracteres)
"Reversal of Prov.Difference of Interest"
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 460
Texto: (4 caracteres)
"Des."
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 461
Texto: (7 caracteres)
"Des. OP"
Comprimento máximo: 7
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB012
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 010
Texto: (44 caracteres)
"Select the parcels interests before the Bank"
Comprimento máximo: 46
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 010
Texto: (45 caracteres)
"Seleccionar parcelas de intereses ante el bco"
Comprimento máximo: 46
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 018
Texto: (39 caracteres)
"Favor to sel.a sequential one Interests"
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 018
Texto: (39 caracteres)
"Favor seleccionar secuencial de interes"
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 037
Texto: (22 caracteres)
"Conta Crédito de Juros"
Comprimento máximo: 132
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: EN
Símbolo: 124
Texto: (41 caracteres)
"Grouping will not be saved. Difference of"
Comprimento máximo: 50
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 124
Texto: (42 caracteres)
"El agrupar no será ahorrado. Diferencia de"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 143
Texto: (26 caracteres)
"Grouping is not allowed of"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 144
Texto: (26 caracteres)
"Types of different Interes"
Comprimento máximo: 26
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 288
Texto: (24 caracteres)
"Acc. accounting Invalid."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 288
Texto: (24 caracteres)
"Cuentas Contables Inval."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 451
Texto: (29 caracteres)
"if dd03l-datatype = 'CURR' or"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 452
Texto: (23 caracteres)
"dd03l-datatype = 'DEC'."
Comprimento máximo: 23
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 453
Texto: (29 caracteres)
"translate v_valor using '. '."
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 454
Texto: (41 caracteres)
"translate v_valor(dd03l-leng) using ' 0'."
Comprimento máximo: 41
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 455
Texto: (38 caracteres)
"CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'"
Comprimento máximo: 38
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 456
Texto: (35 caracteres)
"DATA: BEGIN OF binary_tab OCCURS 0,"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 457
Texto: (20 caracteres)
"default(200) TYPE c,"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 458
Texto: (18 caracteres)
"END OF binary_tab."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 459
Texto: (19 caracteres)
"p_dados TO <VALOR>."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 460
Texto: (18 caracteres)
"v_valor = <VALOR>."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 461
Texto: (31 caracteres)
"SHIFT v_valor(dd03l-leng) RIGHT"
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 462
Texto: (24 caracteres)
"DELETING TRAILING space."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 463
Texto: (22 caracteres)
"BUFFER = v_xstring"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 464
Texto: (24 caracteres)
"BINARY_TAB = binary_tab."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 465
Texto: (37 caracteres)
"p_wa_log+v_tam(dd03l-leng) = <VALOR>."
Comprimento máximo: 37
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB034
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 007
Texto: (5 caracteres)
"Valor"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: M51
Texto: (47 caracteres)
"National Currency Unknown parameters in general"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: M52
Texto: (19 caracteres)
"Is allowed currency"
Comprimento máximo: 30
------------------------------------------------------------------------
Modificado texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): FKDA
Texto: (20 caracteres)
"Billing Date"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Modificado texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): S_BUKRS
Texto: (15 caracteres)
"Company"
Referência ao Dictionary: NÃO