Re:VA05

[Former Member]

Hi,

In VA05 tcode further sel.criteria button is there , if we click that popup window comes , in my report program i need to use the same, can any one tell me the code

[Former Member]

Hi,

First u need to craeat a Push button thru key word:

selection-screen : function key 1.

at selection-screen.

case : sscrfields-ucom.

when 'FC01'. -

---

> default function code for FUNCTION KEY 1 assigned by the system

call screen 0100 .( it can be MOdel Dialog )

( u need to craete aModel dialog screen 100, where u need to cretae check box)

Revert back if any issues.

Reward with points if helpful.

Regards,

Naveen

[Former Member]

The popup appears by using the following function module

"RK_POPUP_LIST_SEARCH_BIG"

Reward points if useful

Regards,

Reema

[Former Member]

Hi,

can u pass me the code if any one have , coz its urgent, iam trying a lot

[Former Member]

Hi,

what parameters i need to pass for function module RK_POPUP_LIST_SEARCH_BIG

iam getting error in passing parameters

i need to get exactly like va05 further sel.criteria

[Former Member]

You can go thru the module pool program "SAPMV75A"

and go to include program listed "MV75AI00_D0100_OKCODE"

and go to this piece of code

WHEN 'SELK'.

PERFORM FELDTAB_FUELLEN.

OK-CODE = SPACE.

REFRESH: SEFTAB_EIN,

SELTAB_EIN,

EINTAB_EIN,

EXCTAB.

*----

---

Keine Partnerrolle bei Sortimenten / Kundenprimärbedarf-----*

IF VBCOM-TRVOG = '5' OR VBCOM-TRVOG = 'B'.

EXCTAB-OKCOD = 'PART'.

APPEND EXCTAB.

ENDIF.

RKAKY-RNAME = SY-REPID.

RKAKY-TRVOG = TRVOG.

RKAKY-ANZGR = ANZGR.

RKAKY-VARNR = LS-VARNR.

RKAKY-EVENT = 'SELK '.

DATA: TEXT1 LIKE RKAB1-TEXT1.

DATA: TEXT2 LIKE RKAB1-TEXT2.

DATA: TEXT3 LIKE RKAB1-TEXT3.

TEXT1 = TEXT-036.

TEXT2 = TEXT-047.

TEXT3 = TEXT-047.

*----- Gibt es schon Selektionseingaben?--

-

---

F1_F4_HELP = VIEWNAME.

DESCRIBE TABLE SELTAB LINES SY-TFILL.

IF SY-TFILL = 0.

CALL FUNCTION 'RK_POPUP_LIST_SEARCH_BIG'

EXPORTING

KEY = RKAKY

FLG_INACTIVE = ' '

FLG_INITIALIZE = 'X'

FLG_VALUES_FROM_INTERFACE = ' '

FLG_READY_FOR_INPUT = 'X'

TEXT1 = TEXT1

TEXT2 = TEXT2

TEXT3 = TEXT3

TABNAME_FOR_F1_AND_F4 = F1_F4_HELP

TABLES

EINTAB = EINTAB

FELDTAB = FELDTAB

SEFTAB = SEFTAB

SELTAB = SELTAB

EXCEPTIONS

NOT_FOUND_IN_TABLE = 4.

IF SY-SUBRC = 4.

MESSAGE S441 WITH SY-TCODE.

SET SCREEN SY-DYNNR.

LEAVE SCREEN.

ENDIF.

ELSE.

MESSAGE S438.

CALL FUNCTION 'RK_POPUP_LIST_SEARCH_BIG'

EXPORTING

KEY = RKAKY

FLG_INACTIVE = ' '

FLG_INITIALIZE = ' '

FLG_VALUES_FROM_INTERFACE = 'X'

FLG_READY_FOR_INPUT = 'X'

TEXT1 = TEXT1

TEXT2 = TEXT2

TEXT3 = TEXT3

TABNAME_FOR_F1_AND_F4 = F1_F4_HELP

TABLES

EINTAB = EINTAB

FELDTAB = FELDTAB

SEFTAB = SEFTAB

SELTAB = SELTAB

EXCEPTIONS

NOT_FOUND_IN_TABLE = 4.

IF SY-SUBRC = 4.

MESSAGE S441 WITH SY-TCODE.

SET SCREEN SY-DYNNR.

LEAVE SCREEN.

ENDIF.

ENDIF.

DESCRIBE TABLE SELTAB LINES SY-TFILL.

IF SY-TFILL NE 0.

MESSAGE S431.

*------- Zusaetzliche Selektionseingaben speichern -

---

*

LOOP AT SEFTAB.

MOVE SEFTAB TO SEFTAB_EIN.

APPEND SEFTAB_EIN.

ENDLOOP.

LOOP AT SELTAB.

MOVE SELTAB TO SELTAB_EIN.

APPEND SELTAB_EIN.

ENDLOOP.

LOOP AT EINTAB.

MOVE EINTAB TO EINTAB_EIN.

APPEND EINTAB_EIN.

ENDLOOP.

*------- Exctab fuellen -

-

---

EXCTAB-OKCOD = 'SPAL'.

APPEND EXCTAB.

ELSE.

MESSAGE S430.

ENDIF.

IF NOT VBCOM-VBERF IS INITIAL.

DESCRIBE TABLE SELTAB LINES SY-TFILL.

IF SY-TFILL NE 0.

read table seltab with key ktext = 'ERNAM'

vonsl = sy-uname.

if not sy-subrc is initial.

SY-TFILL = SY-TFILL + 1.

SELTAB-KTEXT = 'ERNAM'.

SELTAB-VONSL = SY-UNAME.

SELTAB-BISSL = SY-UNAME.

SELTAB-STEPL = SY-TFILL.

APPEND SELTAB.

ENDIF.

ENDIF.

ENDIF.

PERFORM PARAMETER_SETZEN_SPA.

SET SCREEN SY-DYNNR.

LEAVE SCREEN.

Please award points if found useful.

Regards,

Reema.