Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

Mutliple input fields in POPUP

RahulKeshav
Active Contributor
0 Likes
2,077

Hi Experts,

I have a scenario......

my user wants a popup to enter multiple values of same type....eg . serial number...

the options should be -- manually enter the values or a text file ...(like we hav an option in select-options extension ...green icon)

i want both options to be available for user....

I hav a option to create it thru a set of screens...but i am looking for ...if any other option is available

Please suggest.....

Thanks

RK

1 ACCEPTED SOLUTION
Read only

former_member156446
Active Contributor
0 Likes
1,413

Check this sample code:

DATA: xfields LIKE sval OCCURS 0.
DATA: sfields LIKE sval.
DATA: sreturn(1) TYPE c.
REFRESH xfields.
CLEAR sfields.
sfields-tabname   = 'KNA1'.
sfields-fieldname = 'ERDAT'.
sfields-fieldtext = 'Date 1'.
sfields-comp_tab  = 'KNA1'.
sfields-comp_field = 'ERDAT'.
*      SFIELDS-FIELD_ATTR  = '04'.
sfields-field_obl  = 'X'.
APPEND sfields TO xfields.
CLEAR sfields.
sfields-tabname   = 'KNA1'.
sfields-fieldname = 'UPDAT'.
sfields-fieldtext = 'Date 2'.
sfields-comp_tab  = 'KNA1'.
sfields-comp_field = 'UPDAT'.
*      SFIELDS-FIELD_ATTR  = '04'.
sfields-field_obl  = 'X'.
APPEND sfields TO xfields.
CLEAR sfields.
CALL FUNCTION 'POPUP_GET_VALUES'
  EXPORTING
    popup_title  = text-001
    start_column = '3'
    start_row    = '5'
  IMPORTING
    returncode   = sreturn
  TABLES
    fields       = xfields.
IF sreturn NE 'C'.
*       Read input value
  LOOP AT xfields INTO sfields WHERE fieldname = 'ERDAT'.
    WRITE sfields-value.
  ENDLOOP.
ENDIF.

1 REPLY 1
Read only

former_member156446
Active Contributor
0 Likes
1,414

Check this sample code:

DATA: xfields LIKE sval OCCURS 0.
DATA: sfields LIKE sval.
DATA: sreturn(1) TYPE c.
REFRESH xfields.
CLEAR sfields.
sfields-tabname   = 'KNA1'.
sfields-fieldname = 'ERDAT'.
sfields-fieldtext = 'Date 1'.
sfields-comp_tab  = 'KNA1'.
sfields-comp_field = 'ERDAT'.
*      SFIELDS-FIELD_ATTR  = '04'.
sfields-field_obl  = 'X'.
APPEND sfields TO xfields.
CLEAR sfields.
sfields-tabname   = 'KNA1'.
sfields-fieldname = 'UPDAT'.
sfields-fieldtext = 'Date 2'.
sfields-comp_tab  = 'KNA1'.
sfields-comp_field = 'UPDAT'.
*      SFIELDS-FIELD_ATTR  = '04'.
sfields-field_obl  = 'X'.
APPEND sfields TO xfields.
CLEAR sfields.
CALL FUNCTION 'POPUP_GET_VALUES'
  EXPORTING
    popup_title  = text-001
    start_column = '3'
    start_row    = '5'
  IMPORTING
    returncode   = sreturn
  TABLES
    fields       = xfields.
IF sreturn NE 'C'.
*       Read input value
  LOOP AT xfields INTO sfields WHERE fieldname = 'ERDAT'.
    WRITE sfields-value.
  ENDLOOP.
ENDIF.