CE PLUS - Nota 005551
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 03/01/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:29:22
Descrição da Nota: IMPLEMENTAÇÃO DE EXIT NA NOTA FISCAL GLOBAL
Sintoma
Implementação de Exit na Nota Fiscal Global
Solução
Implementação de Exit na Nota Fiscal Global para contemplar o botão back da Nota Fiscal.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05551 Data: 03/01/2008 Hora: 09:47:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05551
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00028
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
IMPLEMENTAÇÃO DE EXIT NA NOTA FISCAL GLOBAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - NF - NOTA FISCAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
itab_zycit042-series = /pws/zycie042-series.
itab_zycit042-subser = /pws/zycie042-subser.
ENDIF.
MODIFY itab_zycit042 INDEX tc_itens_nfg-current_line.
LOOP AT itab_zycit042.
itab_zycit042-processado = ' '.
MODIFY itab_zycit042 INDEX sy-tabix.
ENDLOOP.
ENDMODULE.
MODULE user_command_exit INPUT.
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF006'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF006' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
CASE sy-dynnr.
WHEN '0001'.
IF okcode = 'BACK' OR okcode = '%EX'.
LEAVE PROGRAM.
ENDIF.
WHEN '0100'.
IF okcode = '%EX'.
LEAVE PROGRAM.
ELSEIF okcode = 'BACK'.
CLEAR: /pws/zycie041, /pws/zycie042, itab_zycit042.
...