SCREEN PAINTER

Working with Screen Painter

By Vikram Chellappa, Mouri Tech Solutions

SCREEN PAINTER:-

Screen painter is a tool in ABAP dev workbench used to create the screens using the

T-code SE51. In the screen painter, you can define the following interface elements with their associated attributes.
1. Input/Output Fields
2. Field Names
3. Checkboxes
4. Radio Buttons
5. Group Boxes
6. Sub screens.
7. Pushbuttons with No Fixed Position

and others 

STEP-BY-STEP DEMO FOR SCREEN PAINTER.

Create a Z program in SE38.

clip_image001

Click on Save. We will write the code later in this. 

Go to transaction SE51

clip_image002

Enter the created program name and screen number

clip_image003

Enter the short description and click on save.

clip_image004

Click on flowlogic tab. 

clip_image005

Uncomment the statement “ MODULE STATUS_0100 “.

clip_image006

Double click the “ status_0100.”

The below screen will be displayed,

Click on yes.

clip_image007

Following pop-up screen appears. Select the “zdemo_screen_painter” “main program” and click on continue.

clip_image008

Click on yes.

clip_image009

Screen would be displayed as follows: 

clip_image010

Now come back to the transaction SE51. Select flow logic. Click in layout. 

clip_image011

Screen painter window will be displayed like this. Here we will design the required screen fields.

Click on the middle icon clip_image012 dictionary / program fields window. Or F6.

clip_image013

Following screen appears: 

clip_image014

Enter the table name in the table field name.

Click on get from dictionary. 

clip_image015

Select the required fields from MARA table from dictionary. Click on OK or continue. 

clip_image016

clip_image017

After placing the required fields, you can view the below screen.

clip_image018

Create the push button from the toolbox. 

clip_image019

Select the pushbutton, drag and drop the button onto the screen. 

clip_image020

Create the other required buttons in the same procedure mentioned above and assign the name, text, and function code for each one. 

clip_image021

After creating the screen click on save check and activate. 

press flow logic button. clip_image022

clip_image023

Click on tab Element List enter OK_CODE.

clip_image024

Paste the below Code in created z program created earlier:

*&-------------------------------------------------------------------*

*& Report ZDEMO_SCREEN_PAINTER

*&

*&-------------------------------------------------------------------*

*& Demo for Screen Painter.

*& By Vikramchellappa.

*&-------------------------------------------------------------------*

REPORT ZDEMO_SCREEN_PAINTER.

******************************************************************

* TABLE DECLARATIONS.

******************************************************************

TABLES: MARA.

******************************************************************

* DATA DECLARATIONS.

*****************************************************************

DATA: MATNR TYPE MARA-MATNR,

ERSDA TYPE MARA-ERSDA,

ERNAM TYPE MARA-ERNAM,

MTART TYPE MARA-MTART,

MATKL TYPE MARA-MATKL,

DISPLAY TYPE C,

SAVE TYPE C,

DELETE TYPE C,

CLEAR TYPE C,

EXIT TYPE C,

OK_CODE LIKE SY-UCOMM.

*****************************************************************

* CALLING SCREEN.

*****************************************************************

CALL SCREEN 100.

*&--------------------------------------------------------------*

*& Module STATUS_0100 OUTPUT

*&--------------------------------------------------------------*

* text

*--------------------------------------------------------------*

MODULE STATUS_0100 OUTPUT.

* SET PF-STATUS 'ZMENU'.

* SET TITLEBAR 'ZMENU_PAINTER'.

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'BACK'.

LEAVE PROGRAM.

WHEN 'DISPLAY'.

SELECT SINGLE ERSDA ERNAM MTART MATKL FROM MARA

INTO (MARA-ERSDA, MARA-ERNAM, MARA-MTART, MARA-MATKL)

WHERE MATNR = MARA-MATNR.

WHEN 'CLEAR'.

CLEAR MARA.

ENDCASE.

ENDMODULE. " STATUS_0100 OUTPUT

Output:-

Enter Material number On Material Field. Click on Display. 

clip_image025

Material Information is displayed as shown below: 

clip_image026

posted @ 2011-04-18 10:42  lyqandgdp  阅读(686)  评论(0编辑  收藏  举报