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 SELECT OPTION

Former Member

Hai,

How to crete f4 help for a Select optation(GL Account) field which has to display z Table values in program..

Expecting in steps.......

Regards,

Laxmi

1 ACCEPTED SOLUTION

former_member386202
Active Contributor
0 Kudos

Hi,

Use FM "F4if_FIELD_VALUE_REQUEST".

At selection-screen on value request of glaccount.

call function F4if_FIELD_VALUE_REQUEST

Regards,

Prashant

Message was edited by:

Prashant Patil

8 REPLIES 8

former_member386202
Active Contributor
0 Kudos

Hi,

Use FM "F4if_FIELD_VALUE_REQUEST".

At selection-screen on value request of glaccount.

call function F4if_FIELD_VALUE_REQUEST

Regards,

Prashant

Message was edited by:

Prashant Patil

Former Member

Hi

like this


TYPES : BEGIN OF ST_OBJID_SH,
         OTYPE TYPE HRP1000-OTYPE,
         OBJID TYPE HRP1000-OBJID,
        END OF ST_OBJID_SH.

DATA : IT_OBJID_SH TYPE STANDARD TABLE OF ST_OBJID_SH.
DATA : WA_OBJID_SH TYPE ST_OBJID_SH.

************SELECTION SCREEN DESIGN************************

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

*SELECT-OPTIONS : S_OTYPE FOR HRP1001-OTYPE NO INTERVALS .
SELECT-OPTIONS : S_OBJID FOR HRP1001-OBJID NO INTERVALS .
SELECT-OPTIONS : DATE FOR SY-DATUM NO-EXTENSION OBLIGATORY.

SELECTION-SCREEN END OF BLOCK B1.

***********END OF SELECTION SCREEN DESIGN******************

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_OBJID-LOW.

*  IF S_OBJID IS NOT INITIAL.

    SELECT OTYPE OBJID FROM HRP1000
                 INTO TABLE IT_OBJID_SH
                 WHERE OTYPE = 'D'.

 IF SY-SUBRC EQ 0.

* SEARCH HELP FOR QUALIFICATION.

    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
*              DDIC_STRUCTURE         = ' '
        RETFIELD               =  'OBJID'
*              PVALKEY                = ' '
       DYNPPROG               = SY-REPID
       DYNPNR                 = SY-DYNNR
       DYNPROFIELD            = 'S_OBJID'
*              STEPL                  = 0
*              WINDOW_TITLE           =
*              VALUE                  = ' '
       VALUE_ORG              = 'S'
*              MULTIPLE_CHOICE        = ' '
*              DISPLAY                = ' '
*              CALLBACK_PROGRAM       = ' '
*              CALLBACK_FORM          = ' '
*              MARK_TAB               =
*            IMPORTING
*              USER_RESET             =
      TABLES
        VALUE_TAB              =  IT_OBJID_SH
*              FIELD_TAB              =
*              RETURN_TAB             = RETURN_TAB
*              DYNPFLD_MAPPING        =
*            EXCEPTIONS
*              PARAMETER_ERROR        = 1
*              NO_VALUES_FOUND        = 2
*              OTHERS                 = 3
              .
    IF SY-SUBRC <> 0.
*           MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*                   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ENDIF.

              .

<b>Reward if usefull</b>

Former Member
0 Kudos

Check the following code to get the F4 help in select options for G/L Account

AT SELECTION-SCREEN ON VALUE-REQUEST FOR HKONT-LOW.

SELECT KSTAR KTEXT INTO TABLE IT_HKONT FROM CSKU WHERE SPRAS EQ 'EN'.

SORT IT_HKONT BY KSTAR.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'HKONT'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = IT_HKONT

RETURN_TAB = IT_RETURN.

IF SY-SUBRC = 0.

READ TABLE IT_RETURN INDEX 1.

MOVE IT_RETURN-FIELDVAL TO HKONT-LOW.

ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR HKONT-HIGH.

SELECT KSTAR KTEXT INTO TABLE IT_HKONT FROM CSKU WHERE SPRAS EQ 'EN'.

SORT IT_HKONT BY KSTAR.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'HKONT'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = IT_HKONT

RETURN_TAB = IT_RETURN.

IF SY-SUBRC = 0.

READ TABLE IT_RETURN INDEX 1.

MOVE IT_RETURN-FIELDVAL TO HKONT-HIGH.

ENDIF.

Rewards if useful.

Former Member
0 Kudos

parameters gi_para type gl_type.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_MATNR.

SELECT MATNR

FROM MARA

INTO TABLE ITAB

UP TO 10 ROWS.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'MATERIAL NUMBER'

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'P_MATNR'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = ITAB

EXCEPTIONS

PARAMETER_ERROR = 1

NO_VALUES_FOUND = 2

OTHERS = 3.

Former Member
0 Kudos

Hi Laxmi,

Try this..

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_account.

PERFORM get_account.

form get_account.

FORM get_account .

SELECT facc

FROM <table>

INTO TABLE t_acc

WHERE <>.

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'

EXPORTING

endpos_col = 75

endpos_row = 20

startpos_col = 30

startpos_row = 05

titletext = 'ACCOUNT'

IMPORTING

choise = w_lineno

TABLES

valuetab = t_ACCOUNT

EXCEPTIONS

break_off = 1

OTHERS = 2.

IF sy-subrc EQ 0 .

READ TABLE t_acc INDEX w_lineno.

IF sy-subrc EQ 0.

s_account-low = t_acc-facc.

ENDIF .

CLEAR t_acc .

REFRESH t_acc.

ENDIF .

ENDFORM .

Regards,

Kaveri

0 Kudos

hi,

<b>problem solved</b>

thanks for posting answers

regards

laxmi

Former Member
0 Kudos

Hi,

Create search help for ur table in the se11

and assign that search help in the program.

select-options:

s_help type domain match-code object "seach help name'.

reward points if it helps

Former Member
0 Kudos

Hi,

field - select option

at selection screen on value-request for field.

use function module popup_with_table.

pass ur internal table in this FM.

CALL FUNCTION 'POPUP_WITH_TABLE'

EXPORTING

endpos_col = 50

endpos_row = sy-srows

startpos_col = 10

startpos_row = 10

titletext = 'record'

IMPORTING

CHOICE = field

tables

valuetab = itab

EXCEPTIONS

BREAK_OFF = 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.