‎2010 Jan 11 5:30 PM
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
‎2010 Jan 11 7:22 PM
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.
‎2010 Jan 11 7:22 PM
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.