CE PLUS - Nota 002401
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 09/11/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:33:27
Descrição da Nota: CHAMADA DE EXIT NO CUSTO EFETIVO PARA TRATAR RELAT.ZYCIR007- CUS004
Sintoma
Necessário chamada de exit para tratameto específico do relatório /PWS/ZYCIR007.
Solução
Criada a chamada de exit CUS004 para chamar o relatório /PWS/ZYCIR007 ou substituí-lo por um
programa específico.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02401 Data: 09/11/2006 Hora: 13:46:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02401
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00139
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CHAMADA DE EXIT NO CUSTO EFETIVO PARA TRATAR RELAT.ZYCIR007- CUS004
----------------------------------------------------------------------------------------------------
Palavras Chave:
CHAMADA DE EXIT - CUSTO EFETIVO - CUS004 - RELATÓRIO /PWS/ZYCIR007
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F02
...
indx-usera = sy-uname.
EXPORT: itab_zycbt035_aux[] TO MEMORY ID 'I007A',
itab_zycbt035[] TO MEMORY ID 'I007B',
itab_zycie031_aux[] TO MEMORY ID 'I007C',
itab_zycie031[] TO MEMORY ID 'I007D'.
* >> Início da inclusão: FORM ENCERRAMENTO
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI010'
'CUS004'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'CUS004'.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) if found.
ELSE.
* << Fim da inclusão
SUBMIT /pws/zycir007 AND RETURN.
* >> Início da inclusão: FORM ENCERRAMENTO
ENDIF.
* << Fim da inclusão
IMPORT e_okcode FROM MEMORY ID 'I007E'.
...