Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

Q) how to create tabstrips in selection screen?

Q) how to create tabstrips in selection screen?

Tags:
replied

hi,

Please check the fallowing code...Award me points if it solves ur problem....

&----


*& Report ZTABSTRIP *

*& Author: Kevin Wilson *

*& HTTP://www.sapgenie.com - Portal for SAP consultants *

&----


REPORT ztabstrip LINE-SIZE 120 NO STANDARD PAGE HEADING.

TABLES: mara, lfa1, ekpo.

----


  • selection screen *

----


  • Define screen 101 as subscreen

SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t00.

SELECT-OPTIONS matnr FOR mara-matnr.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN END OF SCREEN 101.

  • Define screen 102 as subscreen

SELECTION-SCREEN BEGIN OF SCREEN 102 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.

SELECT-OPTIONS: kunnr FOR lfa1-kunnr.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN END OF SCREEN 102.

  • Define tab screen

SELECTION-SCREEN BEGIN OF TABBED BLOCK t1 FOR 20 LINES.

SELECTION-SCREEN TAB (10) name1 USER-COMMAND PUSH1 DEFAULT SCREEN 101.

SELECTION-SCREEN TAB (20) name2 USER-COMMAND PUSH2 DEFAULT SCREEN 102.

SELECTION-SCREEN END OF BLOCK t1.

INITIALIZATION.

name1 = text-n01. "Material

name2 = text-n02. "Vendor

name3 = text-n03. "Plant

at selection-screen.

case sy-ucomm. "To set the screen on tab

when 'PUSH1'. "when cliched on any one of tab

tabb1-dynnr = 101.

tabb1-activetab = 'TABS1'.

when 'PUSH2'.

tabb1-dynnr = 102.

tabb1-activetab = 'TABS2'.

endcase.

Regards,

Sanjeev

0 View this answer in context
Not what you were looking for? View more on this topic or Ask a question