CE PLUS - Nota 010887
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Associação Ordem de Pagamento
Data/Hora da Publicação: 13/01/2011 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:23:04
Descrição da Nota: ASSOCIAÇAO DE ORDENS DE PAGAMENTO - PONTO DE EXIT
Sintoma
Criar ponto de Exit para tratamento especifico
Solução
Criar ponto de exit.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10887 Data: 13/01/2011 Hora: 11:15:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10887
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00054
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10858 - 00001 - 8.0 - 00006 - ASSOCIAÇÃO DE ORDEM DE PAGAMENTO - PONTO DE EXIT
----------------------------------------------------------------------------------------------------
ASSOCIAÇAO DE ORDENS DE PAGAMENTO - PONTO DE EXIT
----------------------------------------------------------------------------------------------------
Palavras Chave:
ASSOCIAÇAO DE ORDENS DE PAGAMENTO - PONTO DE EXIT
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB035 0102
REPS /PWS/MZYCB035F03
REPS /PWS/MZYCB035I01
REPS /PWS/MZYCB035O01
----------------------------------------------------------------------------------------------------
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 exclusão: FORM EXECUTA_EXIT
form executa_exit.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_EXIT
form executa_exit using v_exit.
* << Fim da inclusão
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.
* >> Início da exclusão: FORM EXECUTA_EXIT
READ TABLE itab_zyglt100 WITH KEY zexit = 'ASOP001'
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_EXIT
READ TABLE itab_zyglt100 WITH KEY zexit = v_exit
* << Fim da inclusão
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.
----------------------------------------------------------------------------------------------------
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 exclusão: MODULE USER_COMMAND
Perform executa_exit.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND
perform executa_exit using 'ASOP001'.
* << 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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035O01
MODULE screen OUTPUT.
PERFORM carrega_parametros.
PERFORM carrega_constantes.
PERFORM valores_iniciais.
PERFORM carrega_status_gui.
PERFORM loop_at_screen.
PERFORM pos_processamento_pbo.
* >> Início da inclusão: MODULE SCREEN
perform executa_exit using 'ASOP002'.
* << Fim da inclusão
ENDMODULE.
MODULE insere_linha_tc OUTPUT.
PERFORM insere_linha_tc.
ENDMODULE.