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: 

F4 help for date field on screen painter

Former Member
0 Kudos

Hi ,

I created a screen using dialog programming . I have a date field there which is defined as

itab-date.

The format for this field in Element list is DATS .

How do i get a drop down on the date field on the screen .

Please advise

Thanks !

4 REPLIES 4

Former Member
0 Kudos

HI

Go to screen painet and go to attributes of field by DB clik on it. If you want to apply your own search help then give its name under ATTR-DICT-search help otherwise go to ATTR-PROGRAM-Poss.entries-2.

Regards

Aditya

0 Kudos

Hi,

Declare the Date field like ....

GV_DATE like SY-DATUM ...This will ensure the date field will get F4 help automatically.

Regards,

Raghav

Former Member
0 Kudos

In Report u have to add,

TYPES: BEGIN OF TY_F4HELP,

ENAME TYPE PA0001-ENAME,

PERNR TYPE PA0001-PERNR,

END OF TY_F4HELP.

Data: IT_F4HELP TYPE STANDARD TABLE OF TY_F4HELP WITH HEADER LINE.

*Begin of add F4 in Parameter field Ename.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_ENAME.

DATA: IT_RETURN_TAB TYPE ddshretval OCCURS 0 WITH HEADER LINE . " Return table for F4 help

SELECT DISTINCT ename pernr

FROM PA0001

INTO TABLE IT_F4HELP.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'ENAME'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = IT_F4HELP

RETURN_TAB = it_return_tab

EXCEPTIONS

PARAMETER_ERROR = 1

NO_VALUES_FOUND = 2

OTHERS = 3.

READ TABLE it_return_tab INDEX 1.

IF SY-SUBRC <> 0.

ENDIF.

IF sy-subrc = 0.

MOVE it_return_tab-fieldval TO P_ename.

ENDIF.

CLEAR: it_return_tab.

*End of add F4 in Parameter field Ename.

Former Member
0 Kudos

Hi,

In field attribute,you can give the field name as syst-datum and click the check box from dictionary.Then you will get search help for that date field

Reward if useful.

Regards

Shibin