Tomar valores de un Pop Up

A veces en la impresión de algun documento u alguna otra cosa, necesitamos un corte de control para ingresar un valor y usarlo para algo.

En este ejemplo se muestra como haces para realizar esto:

report zjacprueba.
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.

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.