CE PLUS - Nota 011139
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: SML - Associação Ordem Pagamento
Data/Hora da Publicação: 04/05/2011 00:00:00
Data/Hora Última Alteração: 04/05/2011 15:37:12
Descrição da Nota: ASSOCIAÇÃO ORDEM DE PAGAMENTO - EXIT
Sintoma
O cliente necessitava de utilizar de algumas informações do programa na Exit
Solução
As informações que o cliente necessitava para a implementação da Exit foram declaradas
na área comum para permitir a visualização das mesmas
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11139 Data: 04/05/2011 Hora: 15:29:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11139
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00069
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote Descrição Breve
04538 - 00001 - 7.0 - 00002 - ASSOC. VAL. MANTIDOS EXTERIOR-ESTORNO-CONTABILIZAÇÃO E DADOS DA OR
09894 - 00002 - 8.0 - 00002 - ASSOCIAÇÃO VALORES MANTIDOS NO EXTERIOR - ARBITRAGEM APENAS NO EMB
11080 - 00003 - 8.0 - 00007 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO SML SALDO A ASSOCIAR
11123 - 00004 - 8.0 - 00007 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO, CRIAÇÃO DE EXIT
----------------------------------------------------------------------------------------------------
Texto Rápido:
ASSOCIAÇÃO ORDEM DE PAGAMENTO - EXIT
----------------------------------------------------------------------------------------------------
Palavras Chave:
ASSOCIAÇÃO ORDEM DE PAGAMENTO - EXIT
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB035F03
REPS /PWS/MZYCB035T01
REPS /PWS/MZYCB035X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F03
...
form efetua_contabilizacoes.
data
v_saldo type /pws/zycbt227-vlr_associado.
field-symbols:
<fs_zycbt228a> like line of itab_zycbt228a,
<fs_zycbt226> like line of itab_zycbt226.
free itab_mensagem.
perform seleciona_dados_ordem_pagto.
loop at itab_zycbt228a
assigning <fs_zycbt228a>.
* >> Início da inclusão: FORM EFETUA_CONTABILIZACOES
move-corresponding <fs_zycbt228a> to wa_zycbt228a.
* << Fim da inclusão
case <fs_zycbt228a>-oper.
when c_novo.
v_saldo = <fs_zycbt228a>-vlr_assoc_fat.
perform saldo_disp_cont
changing <fs_zycbt228a>.
perform efetua_desmemb_liq_and
using <fs_zycbt228a>-nrseq <fs_zycbt228a>-gjahr
<fs_zycbt228a>-parid
changing v_saldo.
if v_saldo > 0.
...
...
<fs_zycbt228a>-parid.
endif.
perform efetua_desmemb_ordem_pagto
using <fs_zycbt228a>.
perform efetua_comp_associacao
using <fs_zycbt228a>.
read table itab_zycbt226
with table key nrseq = <fs_zycbt228a>-nrseq
assigning <fs_zycbt226>.
if <fs_zycbt226> is assigned.
* >> Início da inclusão: FORM EFETUA_CONTABILIZACOES
move-corresponding <fs_zycbt226> to wa_zycbt226.
* << Fim da inclusão
<fs_zycbt226>-sld_associar =
<fs_zycbt226>-sld_associar - <fs_zycbt228a>-vlr_associado.
endif.
when c_eliminado.
perform saldo_disp_cont
changing <fs_zycbt228a>.
perform efetua_estorno_associacao
using <fs_zycbt228a>-nrseq <fs_zycbt228a>-belnr.
perform efetua_clearing_ordem_pagto
using <fs_zycbt228a>.
perform efetua_clearing_cliente
using <fs_zycbt228a>.
perform efetua_clearing_liq_and
using <fs_zycbt228a>.
read table itab_zycbt226
with table key nrseq = <fs_zycbt228a>-nrseq
assigning <fs_zycbt226>.
if <fs_zycbt226> is assigned.
* >> Início da inclusão: FORM EFETUA_CONTABILIZACOES
move-corresponding <fs_zycbt226> to wa_zycbt226.
* << Fim da inclusão
<fs_zycbt226>-sld_associar =
<fs_zycbt226>-sld_associar + <fs_zycbt228a>-vlr_associado.
endif.
endcase.
perform atualiza_saldos_sml using <fs_zycbt228a>-oper
<fs_zycbt228a>-nrseq.
endloop.
endform.
form efetua_desmemb_liq_and
using
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035T01
...
begin of t_s_zycbt011,
codeven type /pws/zycbt011-codeven,
codmod type /pws/zycbt011-codmod,
bukrs type /pws/zycbt011-bukrs,
ctmoed type /pws/zycbt011-ctmoed,
blart type /pws/zycbt011-blart,
koart type /pws/zycbt011-koart,
agums type /pws/zycbt011-agums,
txtdesc type /pws/zycbt011-txtdesc,
end of t_s_zycbt011,
* >> Início da exclusão:
t_s_zycbt032 type /pws/zycbt032,
t_s_zycbe033 type /pws/zycbe033,
t_s_zycbt034 type /pws/zycbt034,
t_s_zycbt036 type /pws/zycbt036,
* << Fim da exclusão
begin of t_s_zycbt039,
modo type /pws/zycbt039-modo,
descr type /pws/zycbt039-descr,
end of t_s_zycbt039,
* >> Início da exclusão:
t_s_zycbe224 type /pws/zycbe224,
* << Fim da exclusão
begin of t_s_zycet048,
vktrt type /pws/zycet048-vktrt,
dtvrc type /pws/zycet048-dtvrc,
...
...
t_t_t001 type sorted table of t_s_t001
with unique key bukrs,
t_t_zycbt007 type sorted table of t_s_zycbt007
with unique key bukrs,
t_t_zycbt009 type sorted table of t_s_zycbt009
with unique key codpadr,
t_t_zycbt089 type sorted table of t_s_zycbt089
with unique key bukrs,
t_t_zycbt011 type sorted table of t_s_zycbt011
with unique key codeven codmod bukrs,
* >> Início da exclusão:
t_t_zycbt032 type standard table of t_s_zycbt032
with non-unique default key,
t_t_zycbe033 type standard table of t_s_zycbe033
with non-unique default key,
t_t_zycbt034 type standard table of t_s_zycbt034
with non-unique default key,
t_t_zycbt036 type standard table of t_s_zycbt036
with non-unique default key,
* << Fim da exclusão
t_t_zycbt039 type sorted table of t_s_zycbt039
with unique key modo,
* >> Início da exclusão:
t_t_zycbe224 type standard table of t_s_zycbe224
with non-unique default key,
* << Fim da exclusão
t_t_zyglt100 type standard table of /pws/zyglt100
with non-unique default key,
t_t_zyglt321 type sorted table of t_s_zyglt321
with unique key ktosl codeven cpor3.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035X01
* >> Início da inclusão:
types:
t_s_zycbt032 type /pws/zycbt032,
t_s_zycbe033 type /pws/zycbe033,
t_s_zycbt034 type /pws/zycbt034,
t_s_zycbt036 type /pws/zycbt036,
t_s_zycbe224 type /pws/zycbe224,
t_t_zycbt032 type standard table of t_s_zycbt032
with non-unique default key,
t_t_zycbe033 type standard table of t_s_zycbe033
with non-unique default key,
t_t_zycbt034 type standard table of t_s_zycbt034
with non-unique default key,
t_t_zycbt036 type standard table of t_s_zycbt036
with non-unique default key,
t_t_zycbe224 type standard table of t_s_zycbe224
with non-unique default key.
* << Fim da inclusão
data: begin of common part c.
data:
itab_zycbt032 type t_t_zycbt032,
itab_zycbe033 type t_t_zycbe033,
itab_zycbt034 type t_t_zycbt034,
itab_zycbt036 type t_t_zycbt036,
itab_partidas type t_t_zycbe033,
itab_zycbe224 type t_t_zycbe224.
* >> Início da inclusão:
data:
wa_zycbt228a like line of itab_zycbt228a,
wa_zycbt226 like line of itab_zycbt226.
* << Fim da inclusão
data: end of common part.