Application Development 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: 

Have to add a i/p pop-up screen in f-28

Former Member
0 Kudos
186

Have to add a i/p pop-up screen in f-28

where after i i/p data it have to go back to the same screen

i hav called my screen in BTE 1120 .

please help me out with the code for only screen

or is there any function module which can help me out for calling pop and where i/n i can enter data.

1 ACCEPTED SOLUTION

Former Member
0 Kudos
88

Hi,

You may use:

DATA : BEGIN OF T-fields OCCURS 0.

INCLUDE STRUCTURE sval.

DATA : END OF T-fields.

*

Populate t_fields like:

T-fields-tabname = 'CAUFVD'.

T-fields-FIELDTEXT = 'Reference Date '.

T-fields-fieldname = 'IDAT2'.

T-fields-value = sy-datum.

APPEND T-fields.

*

After accepting i/p from the user use:

LOOP AT T-fields.

CASE T-fields-fieldname.

WHEN 'IDAT2'.

MOVE T-fields-value TO l_date.

ENDCASE.

ENDLOOP.

*

Use l_date for further Processing.

CALL FUNCTION 'POPUP_GET_VALUES'

EXPORTING

no_value_check = ' '

popup_title = 'Complete'

start_column = '5'

start_row = '5'

IMPORTING

returncode = w_return

TABLES

fields = T-fields

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.

Regards

Raju Chitale

2 REPLIES 2

Former Member
0 Kudos
89

Hi,

You may use:

DATA : BEGIN OF T-fields OCCURS 0.

INCLUDE STRUCTURE sval.

DATA : END OF T-fields.

*

Populate t_fields like:

T-fields-tabname = 'CAUFVD'.

T-fields-FIELDTEXT = 'Reference Date '.

T-fields-fieldname = 'IDAT2'.

T-fields-value = sy-datum.

APPEND T-fields.

*

After accepting i/p from the user use:

LOOP AT T-fields.

CASE T-fields-fieldname.

WHEN 'IDAT2'.

MOVE T-fields-value TO l_date.

ENDCASE.

ENDLOOP.

*

Use l_date for further Processing.

CALL FUNCTION 'POPUP_GET_VALUES'

EXPORTING

no_value_check = ' '

popup_title = 'Complete'

start_column = '5'

start_row = '5'

IMPORTING

returncode = w_return

TABLES

fields = T-fields

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.

Regards

Raju Chitale

Former Member
0 Kudos
88

Hi,

You can use:

CALL FUNCTION 'POPUP_GET_VALUES' . Check the func.module documentation for help.

Regards,

Subramanian