CE PLUS - Nota 003531
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 24/04/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 09:35:23
Descrição da Nota: DUMP AO CLICAR NO BOTÃO EXTRATO DA LI
Sintoma
Ao clicar no botão Extrato da LI ( ctrl + F1) do programa na visão modificar, exibir e criar estão
gerando DUMP.
Solução
Criado consistência no programa para verificar se não está vazia a wa_report_cliente-transacao, para
chamar o relatório corretamente.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03531 Data: 24/04/2007 Hora: 13:56:29
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03531
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00027
Agrupamento : 00163
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DUMP AO CLICAR NO BOTÃO EXTRATO DA LI
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
MESSAGE s015 WITH text-105.
EXIT.
ENDIF.
ELSEIF v_resp_save EQ 'A'.
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycet079 INTO wa_report_cliente
WHERE codmod = 'D'
AND func = 'LI'.
EXPORT /pws/zycie078-tpli TO MEMORY ID '037R01'.
* >> Início da inclusão: FORM COMM_EXTLI
IF NOT wa_report_cliente-transacao IS INITIAL.
* << Fim da inclusão
IF wa_report_cliente-transacao EQ text-192.
SUBMIT /pws/zycir037 WITH p_nrseq = /pws/zycie078-nrseqli
AND RETURN.
ELSE.
SUBMIT (wa_report_cliente-transacao)
WITH p_nrseq = /pws/zycie078-nrseqli AND RETURN.
ENDIF.
* >> Início da inclusão: FORM COMM_EXTLI
ELSE.
MESSAGE i015 WITH text-445.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM comm_marcdele2.
IF NOT /pws/zycie078-nrseqlisub IS INITIAL.
MESSAGE s013 WITH text-092 text-093 /pws/zycie078-nrseqlisub.
ELSEIF NOT /pws/zycie078-nrseqlisuba IS INITIAL.
MESSAGE s013 WITH text-094 text-095 /pws/zycie078-nrseqlisuba.
ELSEIF NOT /pws/zycie078-dtreg IS INITIAL.
MESSAGE s013 WITH text-096 text-097.
ELSE.
PERFORM quest_gravacao.
...
----------------------------------------------------------------------------------------------------
Incluído símbolo de texto 445
'Parametrizar a tabela /PWS/ZYCET079'
'Parametrizar a tabela /PWS/ZYCET079'