Search help

Former Member — Thu, 19 Apr 2007 05:16:20 GMT

while giving search help to a parameter and press F4 i shd get an intial screen and while i press enter i shd get all the data assigned to that field

please suggest me

Regards

Salman

Re: Search help

Former Member — Thu, 19 Apr 2007 05:22:30 GMT

Hi,

Refer to the code below:-

REPORT ZSRI_SEARCHHELP .

TYPES: BEGIN OF values,

bukrs TYPE bkpf-bukrs,

belnr TYPE bkpf-belnr,

gjahr TYPE bkpf-gjahr,

END OF values.

DATA: BUKRS(4) TYPE c,

BELNR(10) TYPE c.

DATA: progname TYPE sy-repid,

dynnum TYPE sy-dynnr,

dynpro_values TYPE TABLE OF dynpread,

field_value LIKE LINE OF dynpro_values,

values_tab TYPE TABLE OF values.

CALL SCREEN 100.

*&----

*& Module INIT OUTPUT

*&----

text

*----

MODULE INIT OUTPUT.

progname = sy-repid.

dynnum = sy-dynnr.

CLEAR: field_value, dynpro_values.

field_value-fieldname = 'BUKRS'.

APPEND field_value TO dynpro_values.

ENDMODULE. " INIT OUTPUT

*&----

*& Module CANCEL INPUT

*&----

text

*----

MODULE CANCEL INPUT.

LEAVE PROGRAM.

ENDMODULE.

" CANCEL INPUT

***&----

***

*& Module VALUE_BUKRS INPUT

*&----

text

*----

MODULE VALUE_BUKRS INPUT.

CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

EXPORTING

tabname = 'BKPF'

fieldname = 'BUKRS'

dynpprog = progname

dynpnr = dynnum

dynprofield = 'BUKRS'.

ENDMODULE. " VALUE_BUKRS INPUT

**&----

**& Module VALUE_BELNR INPUT

**&----

text

**----

MODULE VALUE_BELNR 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.

SELECT BUKRS BELNR

FROM BKPF

INTO CORRESPONDING FIELDS OF TABLE values_tab

WHERE BUKRS = field_value-fieldvalue.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'BUKRS'

dynpprog = progname

dynpnr = dynnum

dynprofield = 'BELNR'

value_org = 'S'

TABLES

value_tab = values_tab.

ENDMODULE. " VALUE_BELNR INPUT

&----

*& Module VALUE_GJAHR INPUT

&----

text

----

MODULE VALUE_GJAHR INPUT.

ENDMODULE. " VALUE_GJAHR INPUT

Screen painter flow logic se51

PROCESS BEFORE OUTPUT.

MODULE INIT.

PROCESS AFTER INPUT.

MODULE CANCEL AT EXIT-COMMAND.

PROCESS ON VALUE-REQUEST.

FIELD BUKRS MODULE VALUE_BUKRS.

FIELD BELNR MODULE VALUE_BELNR.

FIELD GJAHR MODULE VALUE_GJAHR.

Thanks and regards,

Prerna

topic Re: Search help in Application Development and Automation Discussions

Search help

Re: Search help