CE PLUS - Nota 010858
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Associação Ordem de Pagamento
Data/Hora da Publicação: 28/12/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:23:11
Descrição da Nota: ASSOCIAÇÃO DE ORDEM DE PAGAMENTO - PONTO DE EXIT
Sintoma
Ponto de exit para programa especifico
Solução
Ponto de exit para programa especifico
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10858 Data: 28/12/2010 Hora: 11:51:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10858
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00052
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07931 - 00001 - 7.0 - 00008 - DA - SISTEMA DE PAGAMENTOS EM MOEDA LOCAL E ASSOCIAÇÃO(SML)
09894 - 00002 - 8.0 - 00002 - ASSOCIAÇÃO VALORES MANTIDOS NO EXTERIOR - ARBITRAGEM APENAS NO EM
10343 - 00003 - 8.0 - 00004 - CODE INSPECTOR
----------------------------------------------------------------------------------------------------
ASSOCIAÇÃO DE ORDEM DE PAGAMENTO - PONTO DE EXIT
----------------------------------------------------------------------------------------------------
Palavras Chave:
ASSOCIAÇÃO DE ORDEM DE PAGAMENTO - PONTO DE EXIT
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB035F03
REPS /PWS/MZYCB035I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F03
...
if v_defator is initial.
v_defator = 1.
endif.
if v_parafator is initial.
v_parafator = 1.
endif.
p_valor_mi = ( ( bkpf-kursf / v_defator ) * v_parafator )
* p_valor_me.
endif.
endform.
* >> Início da inclusão:
form executa_exit.
FIELD-SYMBOLS:
<fs_ucomm> TYPE sy-ucomm,
<fs_zyglt100> LIKE LINE OF itab_zyglt100.
CLEAR r_okcode.
CALL METHOD cl_gui_cfw=>dispatch.
IF NOT r_okcode IS INITIAL.
ok_code = r_okcode.
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASOP001'
ASSIGNING <fs_zyglt100>.
IF sy-subrc EQ 0.
IF NOT <fs_zyglt100>-zexit_ativa IS INITIAL.
PERFORM (<fs_zyglt100>-formulario)
IN PROGRAM (<fs_zyglt100>-programa).
ENDIF.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035I01
...
perform drilldown.
endif.
case sy-dynnr.
when '0001'.
perform user_command_0001.
when '0010'.
perform user_command_0010.
when '0102'.
perform user_command_0102.
endcase.
* >> Início da inclusão: MODULE USER_COMMAND
Perform executa_exit.
* << Fim da inclusão
if sy-dynnr = '0010'.
perform emite_mensagem using space.
endif.
endmodule.
module modifica_linha_tc input.
wa_controle-linhas = sy-loopc.
perform modifica_linha_tc.
endmodule.
module ajuda_fatura input.
perform ajuda_fatura.
...