CE PLUS - Nota 010367
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 06/07/2010 00:00:00
Data/Hora Última Alteração: 17/08/2010 11:28:52
Descrição da Nota: IMPLEMENTAÇÃO DA EXIT DI017 NA DI NO INÍCIO DO PERFORM SAVE_DATA
Sintoma
Implementação da Exit DI017 na DI no início do Perform SAVE_DATA
Solução
Implementação da Exit DI017 na DI no início do Perform SAVE_DATA
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10367 Data: 06/07/2010 Hora: 14:59:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10367
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00029
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
09725 - 00001 - PREENCHER O EX TARIFARIO QUANDO CADASTRADO NA T604F
----------------------------------------------------------------------------------------------------
IMPLEMENTAÇÃO DA EXIT DI017 NA DI NO INÍCIO DO PERFORM SAVE_DATA
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - DI017 - DI - INÍCIO - PERFORM - SAVE_DATA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
v_ano(4).
CONCATENATE '%' 'I' sy-datlo+2(2) INTO v_ano.
SELECT MAX( nrseqdi ) INTO (v_nrseqc) FROM /pws/zycit085
WHERE nrseqdi LIKE v_ano.
v_count = v_nrseqc+0(7) + 1.
CONCATENATE v_count+0(7) 'I' sy-datlo+2(2) INTO /pws/zycie085-nrseqdi.
ENDFORM.
FORM save_data.
DATA: v_pesotd TYPE /pws/zycie003-ntgewd.
DATA v_ex TYPE c.
* >> Início da inclusão: FORM SAVE_DATA
e_subrc = 0.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI023'
'DI017'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DI017' 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.
IF e_subrc NE 0.
EXIT.
ENDIF.
* << Fim da inclusão
LOOP AT itab_it.
CHECK NOT itab_it-tipo_al IS INITIAL OR
NOT itab_it-extarif_al IS INITIAL OR
NOT itab_it-orgemiss_al IS INITIAL OR
NOT itab_it-numero_al IS INITIAL OR
NOT itab_it-anoemiss_al IS INITIAL .
IF itab_it-tipo_al IS INITIAL OR
itab_it-extarif_al IS INITIAL OR
itab_it-orgemiss_al IS INITIAL OR
itab_it-numero_al IS INITIAL OR
...