Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 06/10/2009 00:00:00
Data/Hora Última Alteração: 08/03/2010 10:16:33
Descrição da Nota: MANUTENÇÃO NO DRAFT DA DSE
Sintoma
Ao realizar uma seleção inválida, estava mostrando um relatório vazio.
Solução
Caso a seleção for inválida, mostrar uma mensagem de "Não existem dados para o critério de seleção"
e voltando para a área de seleção do programa.
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09154 Data: 06/10/2009 Hora: 15:16:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09154
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00117
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
MANUTENÇÃO NO DRAFT DA DSE
----------------------------------------------------------------------------------------------------
Palavras Chave:
STOP, MESSAGE I008.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCER131
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER131
...
FORM select_data
USING
p_nrdse LIKE s_nrdse
CHANGING
p_wa_zycet208 LIKE wa_zycet208
p_itab_zycet209 LIKE itab_zycet209[]
p_itab_zycet210 LIKE itab_zycet210[].
SELECT SINGLE * FROM /pws/zycet208
INTO p_wa_zycet208
WHERE nrseqdse EQ p_nrdse.
* >> Início da inclusão: FORM SELECT_DATA
IF p_wa_zycet208 IS INITIAL.
MESSAGE i008.
STOP.
ENDIF.
* << Fim da inclusão
SELECT * FROM /pws/zycet209
INTO TABLE p_itab_zycet209
WHERE nrseqdse EQ p_nrdse.
SELECT SINGLE descricao
FROM /pws/zycet154
INTO v_desc_empresa
WHERE bukrs EQ wa_zycet208-bukrs. "#EC *
SELECT SINGLE ddtext
FROM dd07t
INTO v_desc_natoper
...