CE PLUS - Nota 006804
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 19/06/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 13:54:37
Descrição da Nota: MENSAGEM AO ACESSAR A NOTA FISCAL DE REMESSA.
Sintoma
O programa não toma nenhuma ação quando clicamos no botão do DRAFT da nota fiscal de remessa, sem
selecionar o documento da NF. Depois de acessar o DRAFT, quando o programa retorna à NF ele emite a
mensagem 'Posicione o cursor no número da Nota Fiscal.'.
Solução
Adicionada verificação do campo DOCNUM antes de emitir a mensagem.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06804 Data: 19/06/2008 Hora: 08:13:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06804
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00053
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
MENSAGEM AO ACESSAR A NOTA FISCAL DE REMESSA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGEM NOTA FISCAL REMESSA POP UP
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
'DNF001'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF001'.
IF itab_zyglt100-zexit_ativa NE 'X'.
SUBMIT /pws/zycir005
WITH pa_nrnot = v_valor AND RETURN. "#EC CI_SUBMIT
ELSE.
SUBMIT (itab_zyglt100-programa)
WITH pa_nrnot = v_valor AND RETURN. "#EC CI_SUBMIT
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0200
ELSE.
* << Fim da inclusão
MESSAGE i026.
ENDIF.
WHEN 'OBS'.
CALL SCREEN '0210' STARTING AT 2 2.
WHEN 'SELE'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE044-DOCNUM'.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ v_valor.
IF sy-subrc EQ 0.
...