Scribd
Upload
292 views8 pages

Modulepool Tabstrip

This document provides steps to create a tabstrip control in ABAP to display subscreens. It involves: 1) Creating a program and defining tabstrip and subscreen area controls. 2) Defining module pools and data structures for customer and sales tables. 3) Creating input and output modules for the subscreens to load and display table data. 4) Removing comments from Process Before Output events and adding MOVE statements to pass data between screens. 5) Testing the transaction code in SE93.

Uploaded by

Aswin Dharmavaram
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
Download as docx, pdf, or txt
292 views8 pages

Modulepool Tabstrip

This document provides steps to create a tabstrip control in ABAP to display subscreens. It involves: 1) Creating a program and defining tabstrip and subscreen area controls. 2) Defining module pools and data structures for customer and sales tables. 3) Creating input and output modules for the subscreens to load and display table data. 4) Removing comments from Process Before Output events and adding MOVE statements to pass data between screens. 5) Testing the transaction code in SE93.

Uploaded by

Aswin Dharmavaram
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
Download as docx, pdf, or txt
Download as docx, pdf, or txt
You are on page 1/ 8

Go to se38 program and enter program name

Click on create , save and activate .


Go to se51 transaction code
Enter program name and enter screen number click on create.

Enter description
Select screen type : normal
Select the tabstrip control (after push button) drop it in layout
Double click on tabstrip control.
Define properties name:strip
Double click on tab1
Provide name:cutomer
Fct code:cust
Fct type: P
Select sub screen area drop it in customer control.
Define properties name: SUB1
Double click on tab2.
Provide name :sales
Fctcode:sale
Fct type: P
Select sub screen area drop it in sales control.
Define properties name: SUB2

Provide the option display & exit.


Go with screen painter
Screen no: 110.
Type :sub screen
Go with layout, provide name ,country.etc..
Go with screen painter
Screen no :120.
Type:subscreen
Go with layout provide sales doc and date etc.

*&---------------------------------------------------------------------*
*& Module Pool
ZASWIN_TABST12
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
PROGRAM ZASWIN_TABST12.
TABLES:KNA1,VBAK.
DATA:BEGIN OF ITAB OCCURS 0,
KUNNR LIKE KNA1-KUNNR,
LAND1 LIKE KNA1-LAND1,
END OF ITAB.
DATA:BEGIN OF JTAB OCCURS 0,
VBELN LIKE VBAK-VBELN,
ERDAT LIKE VBAK-ERDAT,
END OF JTAB.

CONTROLS:STRIP TYPE TABSTRIP.


*&---------------------------------------------------------------------*
*&
Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*
text
*----------------------------------------------------------------------*
module USER_COMMAND_0100 input.
CASE SY-UCOMM.
WHEN 'DISP'.
REFRESH ITAB.
SELECT KUNNR LAND1 FROM KNA1 INTO ITAB.
APPEND ITAB.
ENDSELECT.
REFRESH JTAB.
SELECT VBELN ERDAT FROM VBAK INTO JTAB.
APPEND JTAB.
ENDSELECT.
ENDCASE.
endmodule.

" USER_COMMAND_0100

INPUT

*&---------------------------------------------------------------------*
*&
Module STATUS_0110 OUTPUT
*&---------------------------------------------------------------------*
*
text
*----------------------------------------------------------------------*
module STATUS_0110 output.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
MOVE-CORRESPONDING ITAB TO KNA1.
endmodule.
" STATUS_0110 OUTPUT
*&---------------------------------------------------------------------*
*&
Module STATUS_0120 OUTPUT
*&---------------------------------------------------------------------*
*
text
*----------------------------------------------------------------------*
module STATUS_0120 output.
* SET PF-STATUS 'xxxxxxxx'.

SET TITLEBAR 'xxx'.

MOVE-CORRESPONDING JTAB TO VBAK.


endmodule.
" STATUS_0120

OUTPUT

Go with screen 110 flow logic.


Delete the comment for PBO double click on that.
move-corresponding itab to kna1

Go with screen 120 flow logic.


Delete the comment for PBO double click on that.
move-corresponding itab to vbak

Next go to se93 and create and execute the transaction code.

You might also like