CE PLUS - Nota 008633
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 06/07/2009 00:00:00
Data/Hora Última Alteração: 09/09/2011 17:13:33
Descrição da Nota: NECESSÁRIO UMA EXIT DE TELA NO PROGRAMA DE NF
Sintoma
necessário uma exit de tela no programa de NF
Solução
Acrescentada a exit DNF007 no controle de tela da NF. Utilizar variavel v_local para identificar
local da exit.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08633 Data: 06/07/2009 Hora: 15:39:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08633
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00104
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00102 - 00001 - 6.0 - 00021 - NOTA FISCAL - CRIAÇÃO DE EXIT DE OKCODE E BOTÕES
04960 - 00002 - 7.0 - 00003 - NOTA FISCAL COM QUEBRA DE ITENS
----------------------------------------------------------------------------------------------------
NECESSÁRIO UMA EXIT DE TELA NO PROGRAMA DE NF
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT -TELA - PROGRAMA ESPECÍFICO - NF
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI016 0100
REPS /PWS/MZYCI016O01
REPS /PWS/MZYCI016X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI016 0100
MODIFICAR CAIXA DE VERIFICAÇÃO "ITAB_ZYCIT042-MARK" em tbl.contr./tabstr
Texto _
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0100
loop at itab_zycit042 with control tc_itens_nfg
cursor tc_itens_nfg-current_line.
module carrega_zycie042.
module set_screen_tc_nfg.
* >> Início da inclusão:
module exit_tela.
* << Fim da inclusão
endloop.
process after input.
loop at itab_zycit042.
* >> Início da exclusão:
module altera_itab_zycit042.
* << Fim da exclusão
* >> Início da inclusão:
module : altera_itab_zycit042,
exit_tela.
* << Fim da inclusão
endloop.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F02
* >> Início da inclusão:
form exit_tela.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF007'.
CLEAR: itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF007' 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.
ENDIF.
ENDIF.
CLEAR v_local.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
MODIFY itab_zycit042 INDEX tc_itens_nfg-current_line.
* >> Início da exclusão: MODULE ALTERA_ITAB_ZYCIT042
LOOP AT itab_zycit042.
* << Fim da exclusão
itab_zycit042-processado = ' '.
* >> Início da exclusão: MODULE ALTERA_ITAB_ZYCIT042
MODIFY itab_zycit042 INDEX sy-tabix.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: MODULE ALTERA_ITAB_ZYCIT042
MODIFY itab_zycit042 TRANSPORTING processado
WHERE nrseq = /pws/zycie041-nrseq.
v_local = 'PAI' .
* << Fim da inclusão
ENDMODULE.
...
...
* >> Início da inclusão:
MODULE exit_tela INPUT.
PERFORM exit_tela.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016O01
...
* >> Início da inclusão: MODULE SET_SCREEN_TC_NFG
v_local = 'TBL_CTRL'.
* << Fim da inclusão
ENDMODULE.
...
...
* >> Início da inclusão: MODULE EXIT_TELA
CLEAR v_local.
* << Fim da inclusão
ENDMODULE.
...
...
MODULE exit_tela OUTPUT.
* >> Início da exclusão: MODULE EXIT_TELA
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF007'.
CLEAR: itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF007' BINARY SEARCH.
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: MODULE EXIT_TELA
perform exit_tela.
* << Fim da inclusão
* >> Início da exclusão: MODULE EXIT_TELA
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
CLEAR v_local.
* << Fim da exclusão
ENDMODULE.
....
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016TOP
PROGRAM /pws/sapmzyci016 MESSAGE-ID /pws/zycim.
INCLUDE /pws/zygl_bot.
INCLUDE /pws/mzyci016oo.
INCLUDE /pws/mzyci016x01.
...
* >> Início da exclusão:
/pws/zycie042,
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016X01
...
* >> Início da inclusão:
TABLES:
/pws/zycie042.
* << Fim da inclusão
DATA: BEGIN OF COMMON PART a.
...
* >> Início da inclusão:
DATA: v_local(10).
* << Fim da inclusão
DATA: END OF COMMON PART a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI016
*Criar include
* >> Início da inclusão:
INCLUDE /PWS/MZYCI016F02.
* << Fim da inclusão
...