CE PLUS - Nota 009574
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 14/12/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:40:01
Descrição da Nota: ASSOCIAÇÃO DE VALORES MANTIDOS NO EXTERIOR - HOMOLOGAÇÃO PACOTE
Sintoma
Associação de VME - 1-) Dump ao escolher ajuda de pesquisa do numero sequencial.
2-)não apaga a linha da table control ao estornar a ordem
Solução
fazer o tratamento para excluir a ordem quando a contabilização não é feita completamente e acertar
o dump na ajuda de pesquisa
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09574 Data: 14/12/2009 Hora: 09:58:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09574
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04465 - 00001 - 7.0 - 00002 - ASSOCIAÇÃO ORDEM PAGAMENTO - MATCHCODE - FILTRO POR EMISSOR ORDEM
05478 - 00002 - 7.0 - 00003 - DA - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO
07816 - 00003 - 7.0 - 00008 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO - EXCLUSÃO REGISTRO /PWS/ZYCBT2
----------------------------------------------------------------------------------------------------
ASSOCIAÇÃO DE VALORES MANTIDOS NO EXTERIOR - HOMOLOGAÇÃO PACOTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
ASSOCIAÇÃO DE VME - DUMP AO ESCOLHER AJUDA DE PESQUISA DO NUMERO SEQ. E
NÃO APAGA A LINHA DA TABLE CONTROL AO ESTORNAR A ORDEM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB035F02
REPS /PWS/MZYCB035T02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F02
...
delete /pws/zycbt230 from table itab_zycbt230_e.
endif.
if not itab_zycbt229_a is initial.
update /pws/zycbt229 from table itab_zycbt229_a.
update /pws/zycbt230 from table itab_zycbt230_a.
endif.
if not itab_zycbt229_i is initial.
insert /pws/zycbt229 from table itab_zycbt229_i.
insert /pws/zycbt230 from table itab_zycbt230_i.
endif.
* >> Início da inclusão: FORM ATUALIZA_DADOS_ASSOCIACAO
if <fs_zycbt228a>-oper = 'D' and
<fs_zycbt228a>-mark = 'X'.
delete /pws/zycbt228 from table itab_zycbt228_e.
commit work.
v_erro = 'X'.
leave to screen '0001'.
endif.
* << Fim da inclusão
endform.
form verifica_ordem
using value(p_wa_zycbt226) like line of itab_zycbt226
changing p_excecao type c.
types
c_12(12) type c.
field-symbols:
<fs_mensagem> type c_12,
<fs_bukrs> type /pws/zycbe227a-bukrs,
<fs_kunnr> type /pws/zycbe227a-kunag,
...
...
c_tp_docto_assoc type t_s_zycbt228-tp_docto value 'A'.
data
wa_zycbt228a like line of itab_zycbt228a.
field-symbols:
<fs_zycbt226> like line of itab_zycbt226,
<fs_zycbt227> like line of itab_zycbt227,
<fs_zycbt228> like line of itab_zycbt228,
<fs_zycbt229> like line of itab_zycbt229,
<fs_zycbt230> like line of itab_zycbt230.
check not ( itab_zycbt227 is initial and itab_zycbt229 is initial ).
* >> Início da inclusão: FORM TRANSFERE_ASSOCIACAO_ITAB
check v_erro is initial.
* << Fim da inclusão
loop at itab_zycbt227 assigning <fs_zycbt227>.
wa_zycbt228a-nrseq = <fs_zycbt227>-nrseq.
wa_zycbt228a-waers = <fs_zycbt227>-waers.
wa_zycbt228a-vlr_associado = <fs_zycbt227>-vlr_associado.
read table itab_zycbt226
with table key nrseq = <fs_zycbt227>-nrseq
assigning <fs_zycbt226>.
if <fs_zycbt226> is assigned.
wa_zycbt228a-dtincl = <fs_zycbt226>-dtincl.
wa_zycbt228a-j_1bbranch = <fs_zycbt226>-j_1bbranch.
...
...
wa_zycbt227-nrparcf = /pws/zycbe227a-nrparcf.
wa_zycbt227-nremb = /pws/zycbe227a-nremb.
wa_zycbt227-dtlancto = /pws/zycbe227a-budat.
wa_zycbt227-waers = /pws/zycbe227a-waers.
wa_zycbt227-vlr_associado = p_wa_zycbt228a-vlr_associado.
wa_zycbt227-saldo = p_wa_zycbt228a-saldo.
case p_wa_zycbt228a-oper.
when c_alterado.
insert wa_zycbt227 into table p_itab_zycbt227_a.
when c_eliminado.
* >> Início da exclusão: FORM ATUALIZA_ASSOC_EMBARQUE
check not p_wa_zycbt228a-belnr is initial.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ASSOC_EMBARQUE
if not p_wa_zycbt228a-belnr is initial.
insert wa_zycbt227 into table p_itab_zycbt227_e.
else.
if p_wa_zycbt228a-mark = 'X'.
* << Fim da inclusão
insert wa_zycbt227 into table p_itab_zycbt227_e.
* >> Início da inclusão: FORM ATUALIZA_ASSOC_EMBARQUE
endif.
endif.
* << Fim da inclusão
when c_novo.
insert wa_zycbt227 into table p_itab_zycbt227_i.
endcase.
loop at itab_zycbt228
assigning <fs_zycbt228>
where nrseq = p_wa_zycbt228a-nrseq.
case p_wa_zycbt228a-oper.
when c_alterado.
insert <fs_zycbt228> into table p_itab_zycbt228_a.
when c_eliminado.
* >> Início da exclusão: FORM ATUALIZA_ASSOC_EMBARQUE
check not p_wa_zycbt228a-belnr is initial.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ASSOC_EMBARQUE
if not p_wa_zycbt228a-belnr is initial.
insert <fs_zycbt228> into table p_itab_zycbt228_e.
else.
if p_wa_zycbt228a-mark = 'X'.
* << Fim da inclusão
insert <fs_zycbt228> into table p_itab_zycbt228_e.
* >> Início da inclusão: FORM ATUALIZA_ASSOC_EMBARQUE
endif.
endif.
* << Fim da inclusão
when c_novo.
insert <fs_zycbt228> into table p_itab_zycbt228_i.
endcase.
endloop.
else.
...
...
check sy-subrc <> 0.
wa_zycbe224-bukrs = <fs_zycbt226>-bukrs.
wa_zycbe224-saknr = <fs_zycbt226>-kunag.
append wa_zycbe224 to itab_zycbe224.
endif.
endloop.
perform verifica_bloqueio changing itab_zycbe224.
loop at itab_zycbe224 transporting no fields where uname <> space.
exit.
endloop.
* >> Início da exclusão: FORM BLOQUEIA_CONTAS
if sy-subrc <> 0.
* << Fim da exclusão
* >> Início da inclusão: FORM BLOQUEIA_CONTAS
if sy-subrc = 0.
* << Fim da inclusão
call function '/PWS/ZYCB_ENQUEUE_CONTAS'
exporting
i_bloqueia = 'X'
tables
itab_zycbt224 = itab_zycbe224
exceptions
zycbe224_null = 1
erro_bloqueio = 2
others = 3.
if sy-subrc <> 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035T02
...
ref_op TYPE /pws/zycbt226-ref_op,
obs TYPE /pws/zycbt226-obs,
belnr_op TYPE /pws/zycbt226-belnr_op,
conta_contabil TYPE /pws/zycbt226-conta_contabil,
rze TYPE /pws/zycbt226-rze,
tp_conta TYPE /pws/zycbt226-tp_conta,
belnr_assoc TYPE /pws/zycbt226-belnr_assoc,
dt_assoc TYPE /pws/zycbt226-dt_assoc,
origem_op type /pws/zycbt226-origem_op,
END OF t_s_zycbt226,
* >> Início da exclusão:
t_t_zycbt226 TYPE SORTED TABLE OF t_s_zycbt226
WITH UNIQUE KEY nrseq,
* << Fim da exclusão
* >> Início da inclusão:
t_t_zycbt226 type table of t_s_zycbt226
with key nrseq,
* << Fim da inclusão
t_t_ordem_chave TYPE SORTED TABLE OF /pws/zycbe226-nrseq
WITH UNIQUE DEFAULT KEY,
BEGIN OF t_s_zycet001,
nrseq TYPE /pws/zycet001-nrseq,
dtaverb TYPE /pws/zycet001-dtaverb,
dtemb TYPE /pws/zycet001-dtemb,
dtvencto TYPE /pws/zycet001-dtvencto,
kurrf_bl TYPE /pws/zycet001-kurrf_bl,
viatrans TYPE /pws/zycet001-viatrans,
dtcruze TYPE /pws/zycet001-dtcruze,
...