CE PLUS - Nota 002027
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 01/09/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:25:59
Descrição da Nota: DSI - VERIFICAÇÃO DE FOR ALL ENTRIES
Sintoma
Atualizada performance de criação da DSI.
Solução
Foram verificados e corrigidos todos os comandos For All Entries.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02027 Data: 01/09/2006 Hora: 10:54:27
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02027
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00129
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DSI - VERIFICAÇÃO DE FOR ALL ENTRIES
----------------------------------------------------------------------------------------------------
Palavras Chave:
PERFORMANCE - DSI - SALVAR - CRIAR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI058F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
EXIT.
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-225.
ENDIF.
* >> Início da inclusão: FORM SALVA_FATURA
if not itab_zycit003[] is initial.
* << Fim da inclusão
SELECT * FROM /pws/zycbt117
INTO TABLE itab_zycbt117
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln
AND slpgant > 0
AND status NE 'E'.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-224.
ENDIF.
* >> Início da inclusão: FORM SALVA_FATURA
endif.
* << Fim da inclusão
ELSE.
SELECT SINGLE belnr_p FROM /pws/zycit006
INTO v_belnr_p
WHERE nrseq EQ /pws/zycie006-nrseq.
IF v_belnr_p IS INITIAL.
MESSAGE i015 WITH text-206 text-207.
ELSE.
MESSAGE i015 WITH text-225.
* >> Início da inclusão: FORM SALVA_FATURA
if not itab_zycit003[] is initial.
* << Fim da inclusão
SELECT * FROM /pws/zycbt117
INTO TABLE itab_zycbt117
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln
AND slpgant > 0
AND status NE 'E'.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-224.
* >> Início da inclusão: FORM SALVA_FATURA
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
itab_zycit006-belnr_p = v_belnr_p.
MODIFY itab_zycit006.
ENDIF.
...