× ABAP

Pop-up rápido y con matchcode

8 años 1 mes antes - 8 años 1 mes antes #70 por raulete
Para montar una ventana emergente con varios campos con sus ayuda de búsqueda, la forma más rápida es utilizar la función POPUP_GET_VALUES, almacenando en la tabla fields valores de campos de tabla como referencia, de este modo el campo añadido tirará de la definición realizada en su momento sobre el campo de la tabla.
Se pueden añadir tantos campos como se desee.

DATA: vl_fields TYPE sval,
      it_fields TYPE TABLE OF sval WITH HEADER LINE.

CLEAR vl_fields. REFRESH it_fields.

* FECHA
CLEAR vl_fields.
vl_fields-tabname    = 'ZREFTAB'.
vl_fields-fieldname  = 'CAMPO_FECHA'.
vl_fields-field_attr = '01'.	 " 01 Entrada 02 No Entrada 04 Invisible
vl_fields-field_obl = ' '.                     " Obligatorio
vl_fields-fieldtext = 'Fecha de inicio'.       " Texto descriptivo
APPEND vl_fields TO it_fields.

* FECHA
CLEAR vl_fields.
vl_fields-tabname    = 'ZREFTAB'.
vl_fields-fieldname  = 'CAMPO_VALOR'.
vl_fields-field_attr = '01'. 	" 01 Entrada 02 No Entrada 04 Invisible
vl_fields-field_obl = ' '.                    " Obligatorio
vl_fields-fieldtext = 'Valor N'.              " Texto descriptivo
APPEND vl_fields TO it_fields.

CALL FUNCTION 'POPUP_GET_VALUES'
  EXPORTING
    popup_title = 'Selección'
  TABLES
    fields      = it_fields.

READ TABLE it_fields WITH KEY fieldname = 'CAMPO_FECHA'.
WRITE it_fields-value.
READ TABLE it_fields WITH KEY fieldname = 'CAMPO_VALOR'.
WRITE it_fields-value.

Por favor, Iniciar sesión o Crear cuenta para unirse a la conversación.

Tiempo de carga de la página: 0.110 segundos
Gracias a Foro Kunena