CE PLUS - Nota 010135
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 07/05/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:49:30
Descrição da Nota: VALORES MANTIDOS NO EXTERIOR - DEVOLUÇÃO-MENSAGEM SALDO INCORRETA SGTXT
Sintoma
- Ao efetuar uma Devolução de Valores Mantidos no Exterior ou Associação, exibe mensagem de erro do
campo SGTXT e não finaliza a contabilização, estornando o que foi gerado;
- Ao efetuar a devolução de Valores Mantidos no Exterior, esta considerando o campo SLD_EXTERIOR,
mas tem que considerar apenas o SLD_ASSOCIAR;
- Ao voltar da tela da Devolução, o Botão de Devolução desaparece e só retorna após o Enter.
Solução
- Considerar o campo Descrição para passar ao SGTXT e XBLNR quando é acionada a tabela
/pws/zyglt321;
- Considerar apenas o campo SLD_ASSOCIAR para ver o saldo disponível a criar uma Devolução;
- Ajustar a consistência da exibição do botão Devolução.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10135 Data: 07/05/2010 Hora: 10:57:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10135
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00020
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03270 - 00001 - 6.0 - 00026 - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO
03379 - 00002 - 7.0 - 00001 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO - DES. ADIC. REMESSA
04068 - 00003 - 7.0 - 00002 - ASSOCIAÇÃO ORDEM DE PAGAMENTO - ATRIBUIÇÃO COMPENSAÇÃO
05482 - 00004 - 7.0 - 00003 - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO
06371 - 00005 - 7.0 - 00005 - VALORES MANTIDOS NO EXTERIOR - DEVOLUÇÃO
07931 - 00007 - 7.0 - 00008 - DA - SISTEMA DE PAGAMENTOS EM MOEDA LOCAL E ASSOCIAÇÃO(SML)
08195 - 00006 - 7.0 - 00008 - VALORES MANTIDOS NO EXTERIOR - BAIXA DE COMISSÃO DE AGENTE CG NA
09286 - 00008 - 8.0 - 00001 - VALORES MANTIDOS NO EXTERIOR, SISTEMA DE PAGAMENTO EM MOEDA LOCAL
----------------------------------------------------------------------------------------------------
VALORES MANTIDOS NO EXTERIOR - DEVOLUÇÃO-MENSAGEM SALDO INCORRETA SGTXT
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALORES MANTIDOS NO EXTERIOR - DEVOLUÇÃO - MENSAGEM SALDO INCORRETA
ASSOCIAÇÃO DE VALORES MANTIDOS NO EXTERIOR AJUSTES SGTXT
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB034I01
REPS /PWS/MZYCB034TOP
REPS /PWS/MZYCB035F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
form limpa_ok_code.
* >> Início da inclusão: FORM LIMPA_OK_CODE
v_ok_code_devol = ok_code.
* << Fim da inclusão
clear ok_code.
endform.
form status_gui.
define define_titulo.
if sy-tcode = c_transacao_c.
set titlebar '0100' with '- '(020) text-058.
elseif sy-tcode = c_transacao_a.
set titlebar '0100' with '- '(020) text-059.
elseif sy-tcode = c_transacao_e.
set titlebar '0100' with '- '(020) text-060.
...
...
set titlebar '0200' with '- '(020) text-060.
endif.
end-of-definition.
define verifica_devolucao.
read table itab_zycbt226
with key tipo_op = c_pagamento_antecipado
transporting no fields.
if sy-subrc ne 0 or
( ts_principal-activetab ne c_tela_receb and
ts_principal-activetab ne space ).
* >> Início da inclusão: FORM STATUS_GUI
if v_ok_code_devol ne 'CANCEL'.
* << Fim da inclusão
preenche_itab_status_exc 'SEL_DEVOL'.
endif.
* >> Início da inclusão: FORM STATUS_GUI
endif.
* << Fim da inclusão
end-of-definition.
types: begin of t_s_status_exc,
fcode type rsmpe-func,
end of t_s_status_exc,
t_t_status_exc type table of t_s_status_exc with default key.
...
...
p_wa_zycbe033-d_sgtxt = <fs_op>-nrseq.
p_wa_zycbe033-augtx = <fs_op>-nrseq.
when c_ref.
p_wa_zycbe033-c_sgtxt = <fs_op>-ref_op.
p_wa_zycbe033-d_sgtxt = <fs_op>-ref_op.
p_wa_zycbe033-augtx = <fs_op>-ref_op.
when c_obs.
p_wa_zycbe033-c_sgtxt = <fs_op>-obs.
p_wa_zycbe033-d_sgtxt = <fs_op>-obs.
p_wa_zycbe033-augtx = <fs_op>-obs.
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
when others.
p_wa_zycbe033-c_sgtxt = <fs_zyglt321>-descr.
p_wa_zycbe033-d_sgtxt = <fs_zyglt321>-descr.
p_wa_zycbe033-augtx = <fs_zyglt321>-descr.
* << Fim da inclusão
endcase.
when c_xblnr.
v_hora = sy-uzeit.
concatenate v_hora+2(2) ':' v_hora+4(2)
into v_hora.
case <fs_zyglt321>-cpocb.
when c_nrinvoic_ms.
concatenate <fs_op>-nrinvoic v_hora
into p_wa_zycbe033-xblnr
separated by space.
...
...
into p_wa_zycbe033-xblnr
separated by space.
when c_nrinvoic.
p_wa_zycbe033-xblnr = <fs_op>-nrinvoic.
when c_nremb.
p_wa_zycbe033-xblnr = <fs_op>-nremb.
when c_nrseq.
p_wa_zycbe033-xblnr = <fs_op>-nrseq.
when c_ref.
p_wa_zycbe033-xblnr = <fs_op>-ref_op.
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
when others.
p_wa_zycbe033-xblnr = <fs_zyglt321>-descr.
* << Fim da inclusão
endcase.
when c_zfbdt.
case <fs_zyglt321>-cpocb.
when c_dtincl.
p_wa_zycbe033-zfbdt = <fs_op>-dtincl.
when c_dtlancto.
p_wa_zycbe033-zfbdt = <fs_op>-dtlancto.
when c_dtlimite.
p_wa_zycbe033-zfbdt = <fs_op>-dtlimite.
when c_dtbl.
...
...
p_wa_zycbe033-c_zuonr = <fs_op>-nrinvoic.
when c_nremb.
p_wa_zycbe033-d_zuonr = <fs_op>-nremb.
p_wa_zycbe033-c_zuonr = <fs_op>-nremb.
when c_nrseq.
p_wa_zycbe033-d_zuonr = <fs_op>-nrseq.
p_wa_zycbe033-c_zuonr = <fs_op>-nrseq.
when c_ref.
p_wa_zycbe033-d_zuonr = <fs_op>-ref_op.
p_wa_zycbe033-c_zuonr = <fs_op>-ref_op.
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
when others.
p_wa_zycbe033-d_zuonr = <fs_zyglt321>-descr.
p_wa_zycbe033-c_zuonr = <fs_zyglt321>-descr.
* << Fim da inclusão
endcase.
when c_valut.
case <fs_zyglt321>-cpocb.
when c_dtincl.
p_wa_zycbe033-c_valut = <fs_op>-dtincl.
p_wa_zycbe033-d_valut = <fs_op>-dtincl.
when c_dtlimite.
p_wa_zycbe033-c_valut = <fs_op>-dtlimite.
p_wa_zycbe033-d_valut = <fs_op>-dtlimite.
when c_dtbl.
...
...
when c_dtlancto.
p_wa_zycbe033-c_valut = <fs_op>-dtlancto.
p_wa_zycbe033-d_valut = <fs_op>-dtlancto.
endcase.
when c_zterm.
if <fs_zyglt321>-cpocb = c_zterm.
p_wa_zycbe033-zterm = wa_fat-zterm.
endif.
endcase.
endloop.
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
if p_wa_zycbe033-d_sgtxt is initial.
p_wa_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
p_wa_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
p_wa_zycbe033-augtx = wa_zycbt011-txtdesc.
endif.
* << Fim da inclusão
endform.
form doc_op using value(p_estorno) type c
changing p_belnr_est_f02 type /pws/zycbt226-belnr_op
p_dtlancto_est_f02 type /pws/zycbt226-dtlancto.
data: wa_zycbt032 type t_s_zycbt032,
wa_zycbe033 type t_s_zycbe033,
wa_zycbt034 type t_s_zycbt034,
wa_tab_op type t_s_tab_op,
v_lancto_multiplo type c,
v_newbs2 type newbs,
...
...
p_zycbe033-augtx = <fs_op>-nrseq.
when 'OBS'.
p_zycbe033-d_sgtxt = <fs_op>-obs.
p_zycbe033-c_sgtxt = <fs_op>-obs.
p_zycbe033-augtx = <fs_op>-obs.
when 'REF_OP'.
p_zycbe033-d_sgtxt = <fs_op>-ref_op.
p_zycbe033-c_sgtxt = <fs_op>-ref_op.
p_zycbe033-augtx = <fs_op>-ref_op.
when others.
* >> Início da exclusão: FORM BUSCA_PARAMETROS_321
clear:
p_zycbe033-d_sgtxt,
p_zycbe033-c_sgtxt,
p_zycbe033-augtx.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321
p_zycbe033-d_sgtxt = wa_zyglt321-descr.
p_zycbe033-c_sgtxt = wa_zyglt321-descr.
p_zycbe033-augtx = wa_zyglt321-descr.
* << Fim da inclusão
endcase.
else.
p_zycbe033-d_sgtxt = p_txtlanc.
p_zycbe033-c_sgtxt = p_txtlanc.
p_zycbe033-augtx = p_txtlanc.
endif.
when 'XBLNR'.
v_hora = sy-uzeit.
concatenate v_hora+2(2)
':'
...
...
when 'NRSEQ+MS'.
concatenate <fs_op>-nrseq
v_hora
into p_zycbe033-xblnr.
when 'REF_OP'.
p_zycbe033-xblnr = <fs_op>-ref_op.
when 'REF_OP+MS'.
concatenate <fs_op>-ref_op
v_hora
into p_zycbe033-xblnr.
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321
when others.
p_zycbe033-xblnr = wa_zyglt321-descr.
* << Fim da inclusão
endcase.
when 'ZFBDT'.
case wa_zyglt321-cpocb.
when 'DTINCL'.
p_zycbe033-zfbdt = sy-datum.
when 'DTLANCTO'.
p_zycbe033-zfbdt = <fs_op>-dtlancto.
when 'DTLIMITE'.
p_zycbe033-zfbdt = <fs_op>-dtlimite.
endcase.
...
...
case wa_zyglt321-cpocb.
when 'NRSEQ'.
p_zycbe033-d_zuonr = <fs_op>-nrseq.
p_zycbe033-c_zuonr = <fs_op>-nrseq.
when 'NRINVOIC'.
p_zycbe033-d_zuonr = <fs_op>-nrinvoic.
p_zycbe033-c_zuonr = <fs_op>-nrinvoic.
when 'NREMB'.
p_zycbe033-d_zuonr = <fs_op>-nremb.
p_zycbe033-c_zuonr = <fs_op>-nremb.
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321
when others.
p_zycbe033-d_zuonr = wa_zyglt321-descr.
p_zycbe033-c_zuonr = wa_zyglt321-descr.
* << Fim da inclusão
endcase.
when 'ZTERM'.
if wa_zyglt321-cpocb = 'ZTERM'.
p_zycbe033-zterm = v_zterm.
endif.
endcase.
endloop.
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321
if p_zycbe033-d_sgtxt is initial.
p_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
p_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
p_zycbe033-augtx = wa_zycbt011-txtdesc.
endif.
* << Fim da inclusão
endform.
form store_erros
using p_itab_zycbt034 type t_t_zycbt034.
data:
wa_zycbt034 like line of p_itab_zycbt034.
loop at p_itab_zycbt034 into wa_zycbt034.
perform message_store
using '/PWS/ZYCBM'
'I'
'ERRO:'
...
...
endif.
endform.
form adicionar_item_devolucao
using p_zycbt226 like line of itab_zycbt226.
data:
wa_devolucao like line of itab_devolucao.
field-symbols:
<fs_devolucao> like line of itab_devolucao.
check sy-tcode ne c_transacao_e
and sy-tcode ne c_trans_sml_e.
* >> Início da exclusão: FORM ADICIONAR_ITEM_DEVOLUCAO
if p_zycbt226-sld_exterior eq 0 or
p_zycbt226-sld_associar eq 0.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONAR_ITEM_DEVOLUCAO
if p_zycbt226-sld_associar eq 0.
* << Fim da inclusão
perform message_store using
'/PWS/ZYCBM'
'I'
'Ordem de Pagamento'(001)
p_zycbt226-nrseq
'não possui saldo para devolução.'(m42)
space
'061'.
exit.
endif.
...
...
wa_dev like line of itab_devolucao,
wa_zycbt226 like line of itab_zycbt226.
loop at itab_zycbt226 into wa_zycbt226
where mark eq 'X'.
clear:
wa_devolucao.
wa_devolucao-nrseqop = wa_zycbt226-nrseq.
loop at itab_devolucao into wa_dev
where nrseqop = wa_zycbt226-nrseq
and operacao = c_novo.
* >> Início da exclusão: FORM ATUALIZAR_SALDO_DEVOLUCAO
wa_devolucao-sld_exterior =
wa_zycbt226-sld_exterior - wa_dev-vldevolucao.
* << Fim da exclusão
wa_devolucao-sld_associar =
wa_zycbt226-sld_associar - wa_dev-vldevolucao.
endloop.
if sy-subrc ne 0.
* >> Início da exclusão: FORM ATUALIZAR_SALDO_DEVOLUCAO
wa_devolucao-sld_exterior = wa_zycbt226-sld_exterior.
* << Fim da exclusão
wa_devolucao-sld_associar = wa_zycbt226-sld_associar.
endif.
modify itab_devolucao from wa_devolucao
* >> Início da exclusão: FORM ATUALIZAR_SALDO_DEVOLUCAO
transporting sld_associar sld_exterior
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZAR_SALDO_DEVOLUCAO
transporting sld_associar
* << Fim da inclusão
where nrseqop = wa_devolucao-nrseqop.
endloop.
endform.
form processar_devolucoes.
field-symbols:
<fs_devolucao> like line of itab_devolucao.
loop at itab_devolucao assigning <fs_devolucao>.
read table itab_zycbt226 assigning <fs_op>
with key nrseq = <fs_devolucao>-nrseqop.
perform excluir_devolucao
...
...
check not p_devolucao-belnr_comp is initial.
perform salvar_dados_devolucao
changing p_devolucao.
clear:
p_devolucao-operacao.
endform.
form salvar_dados_devolucao
changing p_devolucao type t_devolucao.
case p_devolucao-operacao.
when c_excluido.
* >> Início da exclusão: FORM SALVAR_DADOS_DEVOLUCAO
<fs_op>-sld_exterior =
<fs_op>-sld_exterior + p_devolucao-vldevolucao.
* << Fim da exclusão
<fs_op>-sld_associar =
<fs_op>-sld_associar + p_devolucao-vldevolucao.
delete from /pws/zycbt242 where nrseq = p_devolucao-nrseq.
when c_novo.
* >> Início da exclusão: FORM SALVAR_DADOS_DEVOLUCAO
<fs_op>-sld_exterior =
<fs_op>-sld_exterior - p_devolucao-vldevolucao.
* << Fim da exclusão
<fs_op>-sld_associar =
<fs_op>-sld_associar - p_devolucao-vldevolucao.
insert into /pws/zycbt242 values p_devolucao.
endcase.
if p_devolucao-belnr_desm_op is initial.
<fs_op>-belnr_assoc = p_devolucao-belnr_comp.
else.
<fs_op>-belnr_assoc = p_devolucao-belnr_desm_op.
endif.
<fs_op>-dt_assoc = p_devolucao-dtdevolucao.
update /pws/zycbt226
* >> Início da exclusão: FORM SALVAR_DADOS_DEVOLUCAO
set sld_exterior = <fs_op>-sld_exterior
sld_associar = <fs_op>-sld_associar
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS_DEVOLUCAO
set sld_associar = <fs_op>-sld_associar
* << Fim da inclusão
belnr_assoc = <fs_op>-belnr_assoc
dt_assoc = <fs_op>-dt_assoc
where nrseq = <fs_op>-nrseq.
commit work.
endform.
form busca_sequencial_devolucao
changing p_nrseq.
data:
v_ano(3) type c,
v_nrseq type /pws/zycbt242-nrseq.
...
...
p_zycbe033-c_sgtxt = p_devolucao-nrseq.
p_zycbe033-augtx = p_devolucao-nrseq.
when 'REF_OP'.
p_zycbe033-d_sgtxt = <fs_op>-ref_op.
p_zycbe033-c_sgtxt = <fs_op>-ref_op.
p_zycbe033-augtx = <fs_op>-ref_op.
when 'NRDEV'.
p_zycbe033-d_sgtxt = p_devolucao-nrdevolucao.
p_zycbe033-c_sgtxt = p_devolucao-nrdevolucao.
p_zycbe033-augtx = p_devolucao-nrdevolucao.
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321_DEVOLUCAO
when others.
p_zycbe033-d_sgtxt = wa_zyglt321-descr.
p_zycbe033-c_sgtxt = wa_zyglt321-descr.
p_zycbe033-augtx = wa_zyglt321-descr.
* << Fim da inclusão
endcase.
when 'XBLNR'.
case wa_zyglt321-cpocb.
when 'NRSEQ'.
p_zycbe033-xblnr = p_devolucao-nrseq.
when 'REF_OP'.
p_zycbe033-xblnr = <fs_op>-ref_op.
when 'NRDEV'.
p_zycbe033-xblnr = p_devolucao-nrdevolucao.
when 'NRSEQ_OP'.
p_zycbe033-xblnr = <fs_op>-nrseq.
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321_DEVOLUCAO
when others.
p_zycbe033-xblnr = wa_zyglt321-descr.
* << Fim da inclusão
endcase.
when 'ZFBDT'.
case wa_zyglt321-cpocb.
when 'DTINCL'.
p_zycbe033-zfbdt = sy-datum.
when 'DTDEVOL'.
p_zycbe033-zfbdt = p_devolucao-dtdevolucao.
when 'DTLIMITE'.
p_zycbe033-zfbdt = <fs_op>-dtlimite.
endcase.
...
...
case wa_zyglt321-cpocb.
when 'NRSEQ_OP'.
p_zycbe033-d_zuonr = <fs_op>-nrseq.
p_zycbe033-c_zuonr = <fs_op>-nrseq.
when 'REF_OP'.
p_zycbe033-d_zuonr = <fs_op>-ref_op.
p_zycbe033-c_zuonr = <fs_op>-ref_op.
when 'NRSEQ'.
p_zycbe033-d_zuonr = p_devolucao-nrseq.
p_zycbe033-c_zuonr = p_devolucao-nrseq.
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321_DEVOLUCAO
when others.
p_zycbe033-d_zuonr = wa_zyglt321-descr.
p_zycbe033-c_zuonr = wa_zyglt321-descr.
* << Fim da inclusão
endcase.
when 'ZTERM'.
if wa_zyglt321-cpocb = 'ZTERM'.
p_zycbe033-zterm = v_zterm.
endif.
endcase.
endloop.
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321_DEVOLUCAO
if p_zycbe033-d_sgtxt is initial.
p_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
p_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
p_zycbe033-augtx = wa_zycbt011-txtdesc.
endif.
* << Fim da inclusão
endform.
form contabiliza_desm_devolucao
changing p_devolucao type t_devolucao.
data:
v_count type t_mensagem-msg,
v_msg type t_mensagem-msg,
v_cpochv type /pws/zycbe033-cpochv,
wa_zycbt011 type /pws/zycbe011,
wa_cont type t_contabilizacoes,
wa_zycbe033 like line of itab_zycbe033,
...
...
wa_zycbe033-c_sgtxt = itab_zycbt017_cg-nremb.
wa_zycbe033-augtx = itab_zycbt017_cg-nremb.
when 'NRSEQ'.
wa_zycbe033-d_sgtxt = <fs_op>-nrseq.
wa_zycbe033-c_sgtxt = <fs_op>-nrseq.
wa_zycbe033-augtx = <fs_op>-nrseq.
when 'REF_OP'.
wa_zycbe033-d_sgtxt = <fs_op>-ref_op.
wa_zycbe033-c_sgtxt = <fs_op>-ref_op.
wa_zycbe033-augtx = <fs_op>-ref_op.
* >> Início da inclusão: FORM DADOS_BATCH
when others.
wa_zycbe033-d_sgtxt = wa_zyglt321_cg-descr.
wa_zycbe033-c_sgtxt = wa_zyglt321_cg-descr.
wa_zycbe033-augtx = wa_zyglt321_cg-descr.
* << Fim da inclusão
endcase.
when 'XBLNR'.
clear: v_ms.
case wa_zyglt321_cg-cpocb .
when 'NRINVOIC'.
wa_zycbe033-xblnr = itab_zycbt017_cg-nrinvoic.
when 'NREMB'.
wa_zycbe033-xblnr = itab_zycbt017_cg-nremb.
when 'NRSEQ'.
wa_zycbe033-xblnr = <fs_op>-nrseq.
...
...
concatenate itab_zycbt017_cg-nremb v_ms
into wa_zycbe033-xblnr separated by space.
when 'NRSEQ+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate <fs_op>-nrseq v_ms
into wa_zycbe033-xblnr separated by space.
when'REF_OP+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate <fs_op>-ref_op v_ms
into wa_zycbe033-xblnr separated by space.
* >> Início da inclusão: FORM DADOS_BATCH
when others.
wa_zycbe033-xblnr = wa_zyglt321_cg-descr.
* << Fim da inclusão
endcase.
when 'ZFBDT'.
case wa_zyglt321_cg-cpocb.
when 'DTBL'.
wa_zycbe033-zfbdt = itab_zycbt017_cg-dtbl.
when 'DTINVOIC'.
wa_zycbe033-zfbdt = itab_zycbt017_cg-dtinvoic.
when 'DTVENCTO'.
wa_zycbe033-zfbdt = itab_zycbt017_cg-dtvencto.
when 'DTLANC'.
...
...
when 'ZUONR'.
case wa_zyglt321_cg-cpocb.
when 'NRINVOIC'.
wa_zycbe033-d_zuonr = itab_zycbt017_cg-nrinvoic.
when 'NREMB'.
wa_zycbe033-d_zuonr = itab_zycbt017_cg-nremb.
when 'NRSEQ'.
wa_zycbe033-d_zuonr = <fs_op>-nrseq.
when'REF_OP'.
wa_zycbe033-d_zuonr = <fs_op>-ref_op.
* >> Início da inclusão: FORM DADOS_BATCH
when others.
wa_zycbe033-d_zuonr = wa_zyglt321_cg-descr.
* << Fim da inclusão
endcase.
when 'ZTERM'.
if wa_zyglt321_cg-cpocb = 'ZTERM'.
wa_zycbe033-zterm = itab_zycbt017_cg-zterm.
endif.
endcase.
endloop.
wa_zycbe033-bktxt = wa_zycbt007-bktxt.
* >> Início da inclusão: FORM DADOS_BATCH
if wa_zycbe033-d_sgtxt is initial.
* << Fim da inclusão
wa_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
wa_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
wa_zycbe033-augtx = wa_zycbt011-txtdesc.
* >> Início da inclusão: FORM DADOS_BATCH
endif.
* << Fim da inclusão
perform verify_null_field using <fs_op>-bukrs
'BUKRS'
text-048.
wa_zycbe033-bukrs = <fs_op>-bukrs.
...
...
perform verify_null_field using wa_zycbe033-kursf
'TXCAMB'
text-051.
if wa_zycbt007-fdtdoc = 'D'.
wa_zycbe033-bldat = sy-datum.
wa_zycbe033-d_valut = sy-datum.
else.
wa_zycbe033-bldat = wa_zycbe033-budat.
wa_zycbe033-d_valut = wa_zycbe033-budat.
endif.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
wa_zycbe033-augtx = wa_zycbt011-txtdesc.
* << Fim da inclusão
loop at itab_zyglt321_cg into wa_zyglt321_cg.
case wa_zyglt321_cg-cpor3.
when 'SGTXT'.
case wa_zyglt321_cg-cpocb .
when 'NRINVOIC'.
wa_zycbe033-d_sgtxt = itab_zycbt017_cg-nrinvoic.
wa_zycbe033-c_sgtxt = itab_zycbt017_cg-nrinvoic.
wa_zycbe033-augtx = itab_zycbt017_cg-nrinvoic.
when 'NREMB'.
wa_zycbe033-d_sgtxt = itab_zycbt017_cg-nremb.
wa_zycbe033-c_sgtxt = itab_zycbt017_cg-nremb.
wa_zycbe033-augtx = itab_zycbt017_cg-nremb.
when 'NRSEQ'.
wa_zycbe033-d_sgtxt = <fs_op>-nrseq.
wa_zycbe033-c_sgtxt = <fs_op>-nrseq.
wa_zycbe033-augtx = <fs_op>-nrseq.
when 'REF_OP'.
wa_zycbe033-d_sgtxt = <fs_op>-ref_op.
wa_zycbe033-c_sgtxt = <fs_op>-ref_op.
wa_zycbe033-augtx = <fs_op>-ref_op.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
when others.
wa_zycbe033-d_sgtxt = wa_zyglt321_cg-descr.
wa_zycbe033-c_sgtxt = wa_zyglt321_cg-descr.
wa_zycbe033-augtx = wa_zyglt321_cg-descr.
* << Fim da inclusão
endcase.
when 'XBLNR'.
clear: v_ms.
case wa_zyglt321_cg-cpocb .
when 'NRINVOIC'.
wa_zycbe033-xblnr = itab_zycbt017_cg-nrinvoic.
when 'NREMB'.
wa_zycbe033-xblnr = itab_zycbt017_cg-nremb.
when 'NRSEQ'.
wa_zycbe033-xblnr = <fs_op>-nrseq.
...
...
concatenate itab_zycbt017_cg-nremb v_ms
into wa_zycbe033-xblnr separated by space.
when 'NRSEQ+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate <fs_op>-nrseq v_ms
into wa_zycbe033-xblnr separated by space.
when'REF_OP+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate <fs_op>-ref_op v_ms
into wa_zycbe033-xblnr separated by space.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
when others.
wa_zycbe033-xblnr = wa_zyglt321_cg-descr.
* << Fim da inclusão
endcase.
when 'ZFBDT'.
case wa_zyglt321_cg-cpocb.
when 'DTBL'.
wa_zycbe033-zfbdt = itab_zycbt017_cg-dtbl.
when 'DTINVOIC'.
wa_zycbe033-zfbdt = itab_zycbt017_cg-dtinvoic.
when 'DTVENCTO'.
wa_zycbe033-zfbdt = itab_zycbt017_cg-dtvencto.
when 'DTLANC'.
...
...
when 'ZUONR'.
case wa_zyglt321_cg-cpocb.
when 'NRINVOIC'.
wa_zycbe033-d_zuonr = itab_zycbt017_cg-nrinvoic.
when 'NREMB'.
wa_zycbe033-d_zuonr = itab_zycbt017_cg-nremb.
when 'NRSEQ'.
wa_zycbe033-d_zuonr = <fs_op>-nrseq.
when'REF_OP'.
wa_zycbe033-d_zuonr = <fs_op>-ref_op.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
when others.
wa_zycbe033-d_zuonr = wa_zyglt321_cg-descr.
* << Fim da inclusão
endcase.
when 'ZTERM'.
if wa_zyglt321_cg-cpocb = 'ZTERM'.
wa_zycbe033-zterm = itab_zycbt017_cg-zterm.
endif.
endcase.
endloop.
perform verify_null_field using <fs_op>-bukrs
'BUKRS'
text-048.
wa_zycbe033-bukrs = <fs_op>-bukrs.
perform verify_null_field using itab_zycbt017_cg-waers
'WAERS'
text-049.
wa_zycbe033-waers = itab_zycbt017_cg-waers.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
wa_zycbe033-augtx = wa_zycbt011-txtdesc.
* << Fim da exclusão
wa_zycbe033-c_gsber = <fs_op>-gsberf.
wa_zycbe033-d_gsber = <fs_op>-gsberf.
if wa_zycbt007-comis = 'A' or wa_zycbt007-comis = ' '.
wa_zycbe033-agkon = itab_selreg-lifnr.
wa_zycbe033-agkoa = 'K'.
else.
wa_zycbe033-agkoa = 'S'.
wa_zycbe033-agkon = itab_zycbt012a-saknr1.
endif.
if wa_zycbt007-liq_trans eq 'R'.
...
...
wa_zycbe033-c_sgtxt = itab_zycbt017_cg-nremb.
wa_zycbe033-augtx = itab_zycbt017_cg-nremb.
when 'NRSEQ'.
wa_zycbe033-d_sgtxt = <fs_op>-nrseq.
wa_zycbe033-c_sgtxt = <fs_op>-nrseq.
wa_zycbe033-augtx = <fs_op>-nrseq.
when 'REF_OP'.
wa_zycbe033-d_sgtxt = <fs_op>-ref_op.
wa_zycbe033-c_sgtxt = <fs_op>-ref_op.
wa_zycbe033-augtx = <fs_op>-ref_op.
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
when others.
wa_zycbe033-d_sgtxt = wa_zyglt321_cg-descr.
wa_zycbe033-c_sgtxt = wa_zyglt321_cg-descr.
wa_zycbe033-augtx = wa_zyglt321_cg-descr.
* << Fim da inclusão
endcase.
when 'XBLNR'.
clear: v_ms.
case wa_zyglt321_cg-cpocb .
when 'NRINVOIC'.
wa_zycbe033-xblnr = itab_zycbt017_cg-nrinvoic.
when 'NREMB'.
wa_zycbe033-xblnr = itab_zycbt017_cg-nremb.
when 'NRSEQ'.
wa_zycbe033-xblnr = <fs_op>-nrseq.
...
...
concatenate itab_zycbt017_cg-nremb v_ms
into wa_zycbe033-xblnr separated by space.
when 'NRSEQ+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate <fs_op>-nrseq v_ms
into wa_zycbe033-xblnr separated by space.
when'REF_OP+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate <fs_op>-ref_op v_ms
into wa_zycbe033-xblnr separated by space.
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
when others.
wa_zycbe033-xblnr = wa_zyglt321_cg-descr.
* << Fim da inclusão
endcase.
when 'ZFBDT'.
case wa_zyglt321_cg-cpocb.
when 'DTBL'.
wa_zycbe033-zfbdt = itab_zycbt017_cg-dtbl.
when 'DTINVOIC'.
wa_zycbe033-zfbdt = itab_zycbt017_cg-dtinvoic.
when 'DTVENCTO'.
wa_zycbe033-zfbdt = itab_zycbt017_cg-dtvencto.
when 'DTLANC'.
...
...
when 'ZUONR'.
case wa_zyglt321_cg-cpocb.
when 'NRINVOIC'.
wa_zycbe033-d_zuonr = itab_zycbt017_cg-nrinvoic.
when 'NREMB'.
wa_zycbe033-d_zuonr = itab_zycbt017_cg-nremb.
when 'NRSEQ'.
wa_zycbe033-d_zuonr = <fs_op>-nrseq.
when'REF_OP'.
wa_zycbe033-d_zuonr = <fs_op>-ref_op.
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
when others.
wa_zycbe033-d_zuonr = wa_zyglt321_cg-descr.
* << Fim da inclusão
endcase.
when 'ZTERM'.
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.
...
...
wa_zycbe033-c_sgtxt = itab_zycbt017_cg-nremb.
wa_zycbe033-augtx = itab_zycbt017_cg-nremb.
when 'NRSEQ'.
wa_zycbe033-d_sgtxt = <fs_op>-nrseq.
wa_zycbe033-c_sgtxt = <fs_op>-nrseq.
wa_zycbe033-augtx = <fs_op>-nrseq.
when 'REF_OP'.
wa_zycbe033-d_sgtxt = <fs_op>-ref_op.
wa_zycbe033-c_sgtxt = <fs_op>-ref_op.
wa_zycbe033-augtx = <fs_op>-ref_op.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
when others.
wa_zycbe033-d_sgtxt = wa_zyglt321_cg-descr.
wa_zycbe033-c_sgtxt = wa_zyglt321_cg-descr.
wa_zycbe033-augtx = wa_zyglt321_cg-descr.
* << Fim da inclusão
endcase.
when 'XBLNR'.
clear: v_ms.
case wa_zyglt321_cg-cpocb .
when 'NRINVOIC'.
wa_zycbe033-xblnr = itab_zycbt017_cg-nrinvoic.
when 'NREMB'.
wa_zycbe033-xblnr = itab_zycbt017_cg-nremb.
when 'NRSEQ'.
wa_zycbe033-xblnr = <fs_op>-nrseq.
...
...
concatenate itab_zycbt017_cg-nremb v_ms
into wa_zycbe033-xblnr separated by space.
when 'NRSEQ+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate <fs_op>-nrseq v_ms
into wa_zycbe033-xblnr separated by space.
when'REF_OP+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate <fs_op>-ref_op v_ms
into wa_zycbe033-xblnr separated by space.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
when others.
wa_zycbe033-xblnr = wa_zyglt321_cg-descr.
* << Fim da inclusão
endcase.
when 'ZFBDT'.
case wa_zyglt321_cg-cpocb.
when 'DTBL'.
wa_zycbe033-zfbdt = itab_zycbt017_cg-dtbl.
when 'DTINVOIC'.
wa_zycbe033-zfbdt = itab_zycbt017_cg-dtinvoic.
when 'DTVENCTO'.
wa_zycbe033-zfbdt = itab_zycbt017_cg-dtvencto.
when 'DTLANC'.
...
...
when 'ZUONR'.
case wa_zyglt321_cg-cpocb.
when 'NRINVOIC'.
wa_zycbe033-d_zuonr = itab_zycbt017_cg-nrinvoic.
when 'NREMB'.
wa_zycbe033-d_zuonr = itab_zycbt017_cg-nremb.
when 'NRSEQ'.
wa_zycbe033-d_zuonr = <fs_op>-nrseq.
when'REF_OP'.
wa_zycbe033-d_zuonr = <fs_op>-ref_op.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
when others.
wa_zycbe033-d_zuonr = wa_zyglt321_cg-descr.
* << Fim da inclusão
endcase.
when 'ZTERM'.
if wa_zyglt321_cg-cpocb = 'ZTERM'.
wa_zycbe033-zterm = itab_zycbt017_cg-zterm.
endif.
endcase.
endloop.
perform verify_null_field using <fs_op>-bukrs
'BUKRS'
text-048.
wa_zycbe033-bukrs = <fs_op>-bukrs.
perform verify_null_field using itab_zycbt017_cg-waers
'WAERS'
text-049.
wa_zycbe033-waers = itab_zycbt017_cg-waers.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
if wa_zycbe033-augtx is initial.
* << Fim da inclusão
wa_zycbe033-augtx = wa_zycbt011-txtdesc.
wa_zycbe033-d_sgtxt = wa_zycbe033-augtx.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
wa_zycbe033-c_sgtxt = wa_zycbe033-augtx.
endif.
* << Fim da inclusão
wa_zycbe033-bktxt = wa_zycbt007-bktxt.
wa_zycbe033-c_gsber = <fs_op>-gsberf.
wa_zycbe033-d_gsber = <fs_op>-gsberf.
wa_zycbe033-agkon = itab_zycbt017_cg-kunag.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034I01
...
<fs_receb>-sld_transferir to <fs_receb>-vlr_exterior,
'X' to <fs_receb>-drilldown.
endloop.
endcase.
endmodule.
module verifica_valor_devolucao input.
data:
wa_zycbt226 like line of itab_zycbt226.
read table itab_zycbt226 into wa_zycbt226
with key nrseq = /pws/zycbe242-nrseqop.
* >> Início da exclusão: MODULE VERIFICA_VALOR_DEVOLUCAO
if /pws/zycbe242-vldevolucao > wa_zycbt226-sld_exterior.
perform message_store using '/PWS/ZYCBM'
'E'
'Valor da Devolução'(043)
'deve ser menor ou igual ao'(m10)
'Saldo no Exterior'(044)
space
'061'.
clear:
/pws/zycbe242-vldevolucao.
endif.
* << Fim da exclusão
if /pws/zycbe242-vldevolucao > wa_zycbt226-sld_associar.
perform message_store using '/PWS/ZYCBM'
'E'
'Valor da Devolução'(043)
'deve ser menor ou igual ao'(m10)
'Saldo a Associar'(042)
space
'061'.
clear:
/pws/zycbe242-vldevolucao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034TOP
...
wa_zycbt030 type t_s_zycbt030,
wa_zycbt209 type t_s_zycbt209.
field-symbols: <fs_op> type t_s_zycbe226.
data:
v_text_sld_exterior(24) type c,
v_text_data_cre(27) type c,
v_text_bco_cc(22) type c,
v_text_descr_bco_cc(25) type c,
v_wrbtr type /pws/zycbt030-vlsltrans,
ok_code type sy-ucomm,
* >> Início da inclusão:
v_ok_code_devol type sy-ucomm,
* << Fim da inclusão
v_ultimo_nrseq type /pws/zycbe226-nrseq,
v_novo_nrseq type /pws/zycbe226-nrseq,
v_modo_bi(1) type c,
v_desm_cli(1) type c,
v_desm_liqand(1) type c,
v_sld_liq_and type wrbtr,
v_sml type c,
v_vl_liqand type /pws/zycbt209-vlme,
v_dif type /pws/zycbt209-vlme,
v_belnr_est_f02 type /pws/zycbt226-belnr_op,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F03
...
p_wa_zycbe033-c_sgtxt = <fs_zycbt226>-ref_op.
p_wa_zycbe033-d_sgtxt = <fs_zycbt226>-ref_op.
p_wa_zycbe033-augtx = <fs_zycbt226>-ref_op.
endif.
when c_obs.
if <fs_zycbt226> is assigned.
p_wa_zycbe033-c_sgtxt = <fs_zycbt226>-obs.
p_wa_zycbe033-d_sgtxt = <fs_zycbt226>-obs.
p_wa_zycbe033-augtx = <fs_zycbt226>-obs.
endif.
* >> Início da exclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
when space.
p_wa_zycbe033-c_sgtxt = <fs_zycbt011>-txtdesc.
p_wa_zycbe033-d_sgtxt = <fs_zycbt011>-txtdesc.
p_wa_zycbe033-augtx = <fs_zycbt011>-txtdesc.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
when others.
p_wa_zycbe033-c_sgtxt = <fs_zyglt321>-descr.
p_wa_zycbe033-d_sgtxt = <fs_zyglt321>-descr.
p_wa_zycbe033-augtx = <fs_zyglt321>-descr.
* << Fim da inclusão
endcase.
when c_xblnr.
case <fs_zyglt321>-cpocb.
when c_nrinvoic.
p_wa_zycbe033-xblnr = wa_zycbt017-nrinvoic.
when c_nremb.
p_wa_zycbe033-xblnr = wa_zycbt017-nremb.
when c_nrseq.
if <fs_zycbt226> is assigned.
v_hora = sy-uzeit.
...
...
concatenate wa_zycbt124-nrseq v_hora+2(2) ':'
v_hora+4(2) into p_wa_zycbe033-xblnr.
endif.
when c_nrfech.
if p_codeven = c_codeven_associa_rem
or p_codeven = c_codeven_associa_rem_sml.
v_hora = sy-uzeit.
concatenate wa_zycbt124-nrfech v_hora+2(2) ':'
v_hora+4(2) into p_wa_zycbe033-xblnr.
endif.
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
when others.
p_wa_zycbe033-xblnr = <fs_zyglt321>-descr.
* << Fim da inclusão
endcase.
when c_zterm.
p_wa_zycbe033-zterm = wa_zycbt017-zterm.
when c_zfbdt.
case <fs_zyglt321>-cpocb.
when c_dtbl.
p_wa_zycbe033-zfbdt = wa_zycbt017-dtbl.
when c_dtinvoic.
p_wa_zycbe033-zfbdt = wa_zycbt017-dtinvoic.
when c_dtassoc.
...
...
if <fs_zycbt226> is assigned.
p_wa_zycbe033-d_zuonr = <fs_zycbt226>-nrseq.
endif.
if p_codeven = c_codeven_remessa.
p_wa_zycbe033-d_zuonr = wa_zycbt124-nrseq.
endif.
when c_ref.
if <fs_zycbt226> is assigned.
p_wa_zycbe033-d_zuonr = <fs_zycbt226>-ref_op.
endif.
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
when others.
p_wa_zycbe033-d_zuonr = <fs_zyglt321>-descr.
* << Fim da inclusão
endcase.
endif.
when c_valut.
case <fs_zyglt321>-cpocb.
when c_dtbl.
p_wa_zycbe033-c_valut = wa_zycbt017-dtbl.
p_wa_zycbe033-d_valut = wa_zycbt017-dtbl.
when c_dtinvoic.
p_wa_zycbe033-c_valut = wa_zycbt017-dtinvoic.
p_wa_zycbe033-d_valut = wa_zycbt017-dtinvoic.
...
...
p_wa_zycbe033-d_valut = <fs_zycbt226>-dtlancto.
endif.
when c_dtlimite.
if <fs_zycbt226> is assigned.
p_wa_zycbe033-c_valut = <fs_zycbt226>-dtlimite.
p_wa_zycbe033-d_valut = <fs_zycbt226>-dtlimite.
endif.
endcase.
endcase.
endloop.
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
if p_wa_zycbe033-c_sgtxt is initial.
p_wa_zycbe033-c_sgtxt = <fs_zycbt011>-txtdesc.
p_wa_zycbe033-d_sgtxt = <fs_zycbt011>-txtdesc.
p_wa_zycbe033-augtx = <fs_zycbt011>-txtdesc.
endif.
* << Fim da inclusão
endform.
form verifica_contabilizacao
using
value(p_transacao) type /pws/zycbt032-tcode
value(p_tabela) type /pws/zycbt032-tabela
value(p_cpochv) type /pws/zycbt032-cpochv
value(p_msg) type /pws/zycbt032-msg
changing
p_wa_mensagem type t_s_mensagem.
constants:
...