Sintoma

Ao sair da DI pela mensagem "Desejá gravar antes de sair?" caso fosse informado "SIM" ocorre DUMP

Solução

Realizar a verificação mas não exibir a memsagem de erro no user_command_exit

Informações Complementares

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

Nota Número 07828 Data: 23/12/2008 Hora: 09:23:13

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

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

Nota Número              : 07828

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00078

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

Referência às notas relacionadas:

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

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

DUMP AO SAIR DA DI QUANDO JÁ POSSUI UM NÚMERO IGUAL AO DA DECLARAÇÃO

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

Palavras Chave:

DUMP - DESEMBARAÇO - DI - NÚMERO - DECLARAÇÃO

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023I01

REPS /PWS/MZYCI023X01

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

    ENDIF.

  ENDIF.

  IF v_required EQ '1'.

    CHECK NOT /pws/zycie085-dttax IS INITIAL.

  ENDIF.

  IF NOT /pws/zycie085-dttax IS INITIAL AND NOT v_nottax IS INITIAL.

    MESSAGE i013 WITH text-231 text-232.

    EXIT.

  ENDIF.

  PERFORM verifica_nrdi.

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

  IF v_grava_ok = 'F'.

    EXIT.

  ENDIF.

* << Fim da inclusão

  IF v_dit = 'N'.

    PERFORM: taxa_converte USING

            /pws/zycie085-waersfob /pws/zycie085-dttax

             CHANGING /pws/zycie085-ukursfob.

    PERFORM: taxa_converte USING /pws/zycie085-waersfre

 /pws/zycie085-dttax

             CHANGING /pws/zycie085-ukursfre.

    PERFORM: taxa_converte USING /pws/zycie085-waersseg

 /pws/zycie085-dttax

             CHANGING /pws/zycie085-ukursseg.

...

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

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.             "#EC CI_NOFIELD

      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

        MESSAGE e015 WITH text-254 v_nrseqdi.

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

        ENDIF.

* << Fim da inclusão

      ENDIF.

    ENDIF.

    v_tam_nrdi = strlen( /pws/zycie085-nrdi ).

    IF v_tam_nrdi > 10.                                   "#EC PORTABLE

      SELECT SINGLE * FROM /pws/zyglt217

        WHERE arbgb EQ '/PWS/ZYCIM'

...

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

Modificações efetuadas em REPS /PWS/MZYCI023I01

...

                CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'

                     EXPORTING

                          defaultoption = 'Y'

                          diagnosetext1 = text-023

                          textline1     = text-024

                          titel         = text-025

                     IMPORTING

                          answer        = v_resposta.

                IF v_resposta EQ 'J'.

                  PERFORM save_data.

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

                  IF v_grava_ok = 'F'.

                    EXIT.

                  ENDIF.

* << Fim da inclusão

                ELSEIF v_resposta EQ 'N' .

...

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

Modificações efetuadas em REPS /PWS/MZYCI023X01

...

* >> Início da inclusão:

DATA: v_grava_ok TYPE C VALUE 'V'.

* << Fim da inclusão

DATA: END OF COMMON PART.