Mensaje de confirmacion

[fedeape]

Hola, necesito ayuda para poner un mensaje de confirmacion y continuar con la ejecucion del programa segun la respuesta obtenida, por favor si tienen un ejemplo seria muy bueno.

Gracias!

[DCErick]

Hola, necesito ayuda para poner un mensaje de confirmacion y continuar con la ejecucion del programa segun la respuesta obtenida, por favor si tienen un ejemplo seria muy bueno.

Gracias!

REPORT ZEXAMPLE.

TABLES MARA.

DATA: V_ANS, V_MSG(255), C_ROWS(4).

PARAMETER P_ROWS TYPE I.

C_ROWS = P_ROWS.

CONCATENATE 'SELECT' C_ROWS 'ROWS FROM MARA?' INTO V_MSG

                                              SEPARATED BY SPACE.

CALL FUNCTION 'POPUP_TO_CONFIRM'

     EXPORTING

          TITLEBAR= 'SELECT ROWS FROM MARA'

          TEXT_QUESTION   = V_MSG

          TEXT_BUTTON_1= 'YES'

          ICON_BUTTON_1= 'ICON_OKAY'

          TEXT_BUTTON_2= 'NO'

          ICON_BUTTON_2= 'ICON_CANCEL'

     IMPORTING

          ANSWER   = V_ANS.

IF V_ANS EQ '1'.

  SELECT * FROM MARA UP TO P_ROWS ROWS.

    WRITE:/ MARA-MATNR.

  ENDSELECT.

  ULINE.

  WRITE:/ C_ROWS, 'SELECTED'.

ELSE.

  WRITE:/ 'NO RECORDS SELECTED'.

ENDIF.

[DCErick]

Report Zexample.

Data V_ans.

Call Function 'popup_to_confirm_step'

     Exporting

          Textline1 = 'clicking Yes Will Delete All Records In Mara'

          Textline2 = 'do You Want To Delete The Records?'

          Titel     = 'delete Records From Mara'

     Importing

          Answer    = V_ans.

If V_ans Eq 'j'.

* Code To Delete Here....

  Write:/ 'records In Mara Deleted'.

Else.

  Write:/ 'no Records Deleted'.

Endif.

[asclevius]

hola mira este ejemplo, utilizando la función pop up to confirm

DATA:
vl_num_reg TYPE C LENGTH 10,
vl_msg TYPE STRING,
vl_answer TYPE C.


* Numero de registros modificados.
* __________________________________________________ __

vl_num_reg = LINES( P_VG_TI_MOD_ALV ).

* Construir mensaje de salida
* __________________________________________________ __

CONCATENATE 'Existen' vl_num_reg 'registros modificados. Desea salir del proceso?'
INTO vl_msg SEPARATED BY space.

CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'Confirmación de salida'
TEXT_QUESTION = vl_msg
DISPLAY_CANCEL_BUTTON = ' '
POPUP_TYPE = 'ICON_MESSAGE_WARNING'
IMPORTING
ANSWER = vl_answer.

*Si la respuesta es negativa pone el status en cero

IF vl_answer <> 1.
P_VG_STATUS = '4'.
ELSE.
P_VG_STATUS = ''.
ENDIF.



espero que te sirva

[fedeape]

Gracias! con estos ejemplos ya me arreglo.