ABAP

DATA: res type c.
          CALL FUNCTION ‘POPUP_CONTINUE_YES_NO’
            EXPORTING
             DEFAULTOPTION      = ‘J’
              textline1         = ‘Esta es la primer línea del mensaje’
             TEXTLINE2           = ‘Esta es la segunda línea’
              titel               = ‘Titulo POP-UP’
             START_COLUMN        = 45
             START_ROW           = 15           IMPORTING
             ANSWER              = res.


  CALL FUNCTION ‘POPUP_TO_DISPLAY_TEXT’
  EXPORTING
    titel     = ‘Titulo del POPUP’
    textline1 = ‘Primer linea del mensaje’
    textline2 = ‘Segunda linea del mensaje’
   START_COLUMN       = 25                   “Posicion en la pantalla
   START_ROW          = 15 .           

 
TYPES: BEGIN OF itab,
      texto(20)TYPE c,
      END OF itab.
DATA: ti TYPE itab OCCURS 0 WITH HEADER LINE.
CALL FUNCTION ‘TERM_CONTROL_EDIT’
 EXPORTING
   titel                = ‘Titulo del POPUP’
*   LANGU                =
  TABLES
    textlines            = ti
 EXCEPTIONS
   USER_CANCELLED       = 1
   OTHERS               = 2.


CALL FUNCTION ‘POPUP_TO_INFORM’
  EXPORTING
    titel = sy-repid
    txt2  = 5
   txt1  = text-500.   “pasar a->elementos de texto->textos de selección

 
DATA: resultado LIKE t884t-txt,          
      valor type T884T-TXT.
CALL FUNCTION ‘POPUP_TO_MODIFY_TEXT’
  EXPORTING
   textline1          = ‘Primer linea’
   textline2          = ‘…aqui puede ir otra linea’
   textline3          = ‘…y aqui otra’
    titel                = ‘Titulo del pop-up’
  value1             = ‘Ejemplos popup’                “Valor que va a tener el campo de entrada.
 IMPORTING
   answer            = resultado
   value1             = valor
EXCEPTIONS
   TITEL_TOO_LONG = 1
   OTHERS               = 2



i_cols-tabname = 'PA0001'.
i_cols-fieldname = 'PERNR'.
i_cols-selectflag = 'X'.
APPEND i_cols.
i_cols-tabname = 'PA0001'.
i_cols-fieldname = 'ENAME'.
APPENDi_cols.
*** Llenar table i_empl
CALL FUNCTION 'MD_POPUP_SHOW_INTERNAL_TABLE'
EXPORTING
title = 'Empleados sin informar actividad'
IMPORTING
index = sy-index
TABLES
values = i_empl
columns = i_cols
EXCEPTIONS
leave = 1
OTHERS = 2.
IF sy-subrc NE 0.
EXIT.
ENDIF.


Muestra un popup donde pueden personalizarse losbotones:

CALL FUNCTION 'POPUP_FOR_INTERACTION'
EXPORTING
headline = 'Programa generado con éxito'
text1 = 'Se ha generado el programa'
text2 = sy-repid
text3 = '¿Desea ejecutarlo ahora?'
ticon = 'S'
button_1 = 'Finalizar'
button_2= 'Ejecutar'
IMPORTING
button_pressed = answer
EXCEPTIONS
OTHERS = 1.





Configura un popup con campos a llenar:

data: V_NUMERO like sval OCCURS 0 WITH HEADER LINE..

V_NUMERO-TABNAME = 'MARA'. "Tabla de donde queremos coger el campo
V_NUMERO-fieldname = 'MATNR'. "Campo que queremos pedir por pantalla
APPEND V_NUMERO.V_NUMERO-TABNAME = 'MARA'.
V_NUMERO-FIELDNAME = 'MTART'.
APPEND V_NUMERO.
V_NUMERO-TABNAME = 'PA0001'.
V_NUMERO-FIELDNAME = 'BUKRS'.
V_NUMERO-FIELD_obl = 'X'.
APPEND V_NUMERO.

CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
* NO_VALUE_CHECK = ' '
POPUP_TITLE = 'Complete los campos'
START_COLUMN = '5'
START_ROW = '5'
* IMPORTING
*RETURNCODE =
TABLES
FIELDS = V_NUMERO.
* EXCEPTIONS
* ERROR_IN_FIELDS = 1
* OTHERS = 2
.
IF SY-SUBRC 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

LOOP AT V_NUMERO.
WRITE :/ V_NUMERO-VALUE. "Valor dado por pantalla.
ENDLOOP.

Configura tres...