Selection screen filter

[Former Member]

hi exports

In Selection screen 2 fields LFB1-AKONT is fist and next lfa1-lifnr when i select LFB1-AKONT this field lfa1-lifnr comes only this related LFB1-AKONT only

Any one tell me

[Former Member]

Hi,

Try this code filling internal table fields,

DATA: BEGIN OF values,
OID TYPE ZCL_OBJECT-OBJECTID,
ODEC TYPE ZCL_OBJECT-OBJECT_DESC,
END OF values,
W_FIELD(10).

DATA: ZCL_PROJECT-PROJECTID type zcl_project-projectid,
ZCL_OBJECT-OBJECTID(5).
DATA: progname TYPE sy-repid,
dynnum TYPE sy-dynnr,
dynpro_values TYPE TABLE OF dynpread,
field_value LIKE LINE OF dynpro_values,
values_tab LIKE TABLE OF values.

CALL SCREEN 100.

&---------------------------------------------------------------------
*& Module VALUE_PROJECTID INPUT
&---------------------------------------------------------------------

text 
----------------------------------------------------------------------
*MODULE VALUE_PROJECTID INPUT.

CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST' 
EXPORTING 
tabname = 'ZCL_PROJECT' 
fieldname = 'PROJECTID' 
dynpprog = progname 
dynpnr = dynnum 
dynprofield = 'ZCL_PROJECT-PROJECTID'. 
*
*
*ENDMODULE. " VALUE_PROJECTID INPUT
&---------------------------------------------------------------------
*& Module VALUE_OBJECTID INPUT
&---------------------------------------------------------------------

text 
----------------------------------------------------------------------
MODULE VALUE_OBJECTID INPUT.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = progname
dynumb = dynnum
translate_to_upper = 'X'
TABLES
dynpfields = dynpro_values.

READ TABLE dynpro_values INDEX 1 INTO field_value.

W_FIELD = FIELD_VALUE-FIELDVALUE.
SELECT OBJECTID
OBJECT_DESC
FROM ZCL_OBJECT
INTO (VALUES-OID,
VALUES-ODEC)
WHERE PROJECTID = FIELD_VALUE-FIELDVALUE.
APPEND VALUES TO VALUES_TAB.
ENDSELECT.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'OID'
dynpprog = progname
dynpnr = dynnum
dynprofield = 'ZCL_OBJECT-OBJECTID'
value_org = 'S'
TABLES
value_tab = values_tab.

ENDMODULE. " VALUE_OBJECTID INPUT
&---------------------------------------------------------------------
*& Module INIT OUTPUT
&---------------------------------------------------------------------


text 
----------------------------------------------------------------------
MODULE INIT OUTPUT.
progname = sy-repid.
dynnum = sy-dynnr.
CLEAR: field_value, dynpro_values.
field_value-fieldname = 'ZCL_PROJECT-PROJECTID'.
APPEND field_value TO dynpro_values.

IF SY-UCOMM = 'BACK'.
LEAVE program.
ENDIF.
IF SY-UCOMM = 'ANS'.
LEAVE TO SCREEN '0'.
ENDIF.
ENDMODULE. " INIT OUTPUT

START-OF-SELECTION.
WRITE: / field_value-fieldvalue,
W_FIELD.


LOOP AT VALUES_TAB INTO VALUES.

WRITE / VALUES.
ENDLOOP.

if sy-subrc 0.
WRITE / field_value-fieldvalue.
endif.

Plzz reward points if it helps

[Former Member]

you have do thsi by event handling.

Use at selction screen output or at selction screen on field<>.

access the value of lifnr from table based on the other filed and set as default.

[Former Member]

santosh sarda

pls explain detailly

Thanks and regards

Suresh