11-23-2007 6:03 AM
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
11-23-2007 6:06 AM
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
11-23-2007 6:06 AM
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
11-23-2007 6:08 AM
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>
11-23-2007 6:08 AM
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.
11-23-2007 6:08 AM
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.
11-23-2007 6:10 AM
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
11-23-2007 8:09 AM
11-23-2007 6:11 AM
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
11-23-2007 7:28 AM
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.