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
|