Sintoma

Ao colocar o numero da DI que já existe e dar um enter, o sistema exibi uma mensagem de erro dizendo

que o Número da Declaração já utilizado.

Selecionar a seta para sair do programa, abrirá uma mensagem dizendo se queremos salvar, clicar no

botão sim. A partir disso o dump ocorre.

Solução

Alterar o tipo de mensagem quando o usuário clicar no botão de sair.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 13145 Data: 31/07/2013 Hora: 13:16:12

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 13145

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 9.0

Pacote                   : 00005

Agrupamento              : 00160

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

00033  - 00001 - 6.0    - 00021  - VERIFICAÇÃO CAMPO NÚMERO DA DI

06608  - 00002 - 7.0    - 00005  - INCLUSÃO DE VERIFICAÇÃO DO NUMERO DA DECLARAÇÃO DA DI

08821  - 00003 - 7.0    - 00010  - CONFIGURAR MENSAGEM PARA PERMITIR REGISTRO DA DI REPETIDO

----------------------------------------------------------------------------------------------------

DUMP NA DI - DYNPRO_MSG_IN_HELP

----------------------------------------------------------------------------------------------------

Palavras Chave:

/PWS/SAPMZYCI023 - DUMP - DI - PERFORM VERIFICA_NRDI

DYNPRO_MSG_IN_HELP

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI023I01

REPS /PWS/MZYCI023F03

*Indicada a aplicação da nota 13153

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023I01

...

MODULE verifica_nrdi INPUT.

* >> Início da inclusão: MODULE VERIFICA_NRDI

  IF v_grava_ok ne 'F'.

* << Fim da inclusão

  PERFORM verifica_nrdi.

* >> Início da inclusão: MODULE VERIFICA_NRDI

  ENDIF.

* << Fim da inclusão

ENDMODULE.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

FORM verifica_nrdi.

  DATA: v_nrseqdi TYPE /pws/zycie085-nrseqdi.

  IF NOT t001-land1 EQ 'CL' AND NOT t001-land1 EQ 'AR'.

    IF NOT /pws/zycie085-nrdi IS INITIAL.

      SELECT SINGLE nrseqdi FROM /pws/zycit085 INTO v_nrseqdi

          WHERE nrseqdi NE /pws/zycie085-nrseqdi

            AND nrdi EQ /pws/zycie085-nrdi.

      IF sy-subrc EQ 0 .

* >> Início da inclusão: FORM VERIFICA_NRDI

        IF okcode EQ 'BACK' OR okcode EQ 'LEAV'.

          MESSAGE i015 WITH text-254 v_nrseqdi.

          v_grava_ok = 'F'.

        ELSE.

* << Fim da inclusão

        SELECT SINGLE * FROM /pws/zyglt217

          WHERE arbgb EQ '/PWS/ZYCIM'

          AND   msgnr EQ '146'.

        IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.

          MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '146'.

        ENDIF.

* >> Início da inclusão: FORM VERIFICA_NRDI

        ENDIF.

* << Fim da inclusão

      ENDIF.

...