Purchase Order SAP Script

Purchase Order SAP Script

Requirement: Develop a purchase order with Logo, Address and page no.

A Real Time Scenario on Purchase Order SAP Script Form

Business Req:

Create a PO form with the below layout.

Please follow the below steps

Step 1:

Create a Page by name PAGE1

Step 2:

Create Required no of Window as per the layout given

Step 3:

Create Page Windows and specify height/width

Step 4:

Create Paragraph Formats

Step 5:

Create a TABS for Paragraph Formats

Step 6:

Create a Character Format

Step 7:

Write the code for Printing Headings, Line item information, Grand total in
Mainwindow

Step 8:

Write the code for Printing Vendor address in Address window

Step 9:

Write the code for Printing Footer information in Footer window

Step 10:

Write the code for Printing Logo in Logo window

Step 11:

Similarly, Write the code for Printing PO Details/PageNo/Title

Step 12:

Print the standard text using SO10 Tcode

Step 13:

Arrange all the windows as per the given Layout.

Step 14:

Create a Driver Program

Step 15:

EXECUTE THE driver program

Step 16:

Create a Second Page Layout

Step 17:

Increase the height of MAIN window

Step 18:

Printing Terms&Conditions using STARTFORM AND END FORM

Step 19:

Change the Driver Program for using STARTFORM AND END FORM

Detailed Steps:

1. Se71->Give formname ->ZV_PO ->create.
2. give Meaning->click on BASIC settings.
3. Select page format /landscape

Step 1: Create a Page by name PAGE1

4. Click on PAGES->EDIT->CRATE ELEMENT->give page as page1 and meaning as page1->>Give Next Page as Page1
5. click on WINDOWS(by default, main window will be added)

Step 2 : Create Required no of Window as per the layout given

6. 6- click on EDIT->create element->give window name as TITLE and meaning as title.

Repeat the same step and add the below windows.

Step 3: Create Page Windows and specify height/width

7. Click on Page windows-> EDIT->CRATE ELEMENT->Double click on each window so that the window would be added to the page. Give the appropriate height, width, left/right margin as below for each window

Step 4 : Create Paragraph Formats

Create the 4 paragraph Formats as below.

Step 5 : Create a TABS for Paragraph Formats

Give Tabs for HEADER paragraph format as below.

And the 4th tab as 55 chars right justified .

Give font family as COURIER AND size as 12 for all paragraph formats, except for TITLE paragraph. Give 16 for this TITLE paragraph.

Step 6 : Create a Character Format

Create character format as below.

Step 7 : Write the code for Headings, Line item information, Grand total in Mainwindow

Goto->Pagewindows->Double click on main window and click on texteditor-

CLICK ON GOTO CHANGE EDITOR—>write the below code.

Here…

/:TOP…ENDTOP is used to print header information in the main window so that the it flows on to every page .

/Eïƒ BODY—-this is used to print body. All the line item values.

/E-Total—-used to print total at the end of main window..

This element is called after the loop..endloop..so that Grand total is printed immediately

After the main window.

Step 8 : Write the code for Printing Vendor address in Address window

Goto->Pagewindows->Double click on ADDRESS window and click on texteditor->write the below code.

Step 9 : Write the code for Printing Footer information in Footer window

Goto->Pagewindows->Double click on FOOTER window and click on texteditor->write the below code.

FT–&ULINE(60)&

FT–ALL RIGHTS RESERVED TO IBM INDIA PVT.LTD

Here FT is paragraph format And

C1 is char format with bold.

Step 10 : Write the code for Printing Logo in Logo window

Goto->Pagewindows->Double click on LOGO window and click on texteditor->write the below code or Click on INSERT->GRAPHICS->Select Stored on Document

Server->Give Name ‘IBM'(Image name Uploaded through SE78)->

Give object : GRAPHICS

ID : BMAP

Select color Bitmap Image->Press Continue->the Below syntax will come automatically

BITMAP ‘IBM’ OBJECT GRAPHICS ID BMAP TYPE BCOL

Step 11 : Similarly, Write the code for Printing PO Details/PageNo/Title

Similarly, for all windows write the below code in the text editor

Goto->Pagewindows->Double click on PO_NO window and click on texteditor->write the below code

DF– PO No : &wa_ekko-ebeln&

DF– PO Date : &wa_ekko-aedat&

Goto->Pagewindows->Double click on PAGE_NO window and click on texteditor->write the below code

DF–Page.No : &PAGE&/&SAPSCRIPT-FORMPAGES(C)&

Goto->Pagewindows->Double click on TITLE window and click on texteditor->write the below code

TL—-Purchase Order

Step 12 : Print the standard text using SO10 Tcode

Goto->Pagewindows->Double click on TEXT window and click on texteditor->write the below text.

We can write the text directly in the window. But in the real time we use a concept called standard Text.

So Lets use the standard Text now.

Goto SO10->give text name->click on Create->

CLICK ON GOTO->CHANGE EDITOR

Write the below text->click on save->go back and click on print preview.

Go back to script

Goto->Pagewindows->Double click on TEXT window and click on texteditor->write the below text.

/: INCLUDE ZV_PO_TEXT OBJECT TEXT ID ST

THIS IS STD TEXT THRU SO10 TXN.

Or

CLick on Insert->Text->Standard->a pop will appear->give text name as ZV_PO_TEXT->press enter->

The code will be displayed automatically.

Step13 : Arrange all the windows as per the given Layout

Finally, Lets Re-arrange all the window positions again by going to Graphical Form Painer.

Click on SETTINGS->FORM PAINTER->Select checkbox Graphical Form Painter

And press enter

The form should look as below.

If not arrange all the windows as below by dragging and dropping.

Now goback to PC EDITOR.

Save and activate script

Specify default paragraph and first page

Save and activate script

Step14 : Create a Driver Program

And the driver prg is: 
REPORT ZV_PO_DRIVER.
TABLES: ADRC,LFA1,EKKO.
PARAMETERS: P_EBELN TYPE EKKO-EBELN.
*DATA DECLARATIONS
DATA: WA_EKKO TYPE EKKO.
DATA: WA_EKPO TYPE EKPO.
DATA: IT_EKPO TYPE TABLE OF EKPO.
DATA: WA_LFA1 TYPE LFA1.
DATA: WA_ADRC TYPE ADRC.
DATA: V_TOT TYPE EKPO-NETWR.
*READ PO HEADER DETAILS
SELECT SINGLE * FROM EKKO
  INTO WA_EKKO
  WHERE EBELN = P_EBELN.
*READ PO ITEM DETAILS
SELECT * FROM EKPO
  INTO TABLE IT_EKPO
  WHERE EBELN = P_EBELN.
READ TABLE IT_EKPO INTO WA_EKPO INDEX 1.
DO 100 TIMES.
  APPEND WA_EKPO TO IT_EKPO.
ENDDO.
*READ VENDOR MASTER DATA TO FIND THE ADDRESS NUMBER
SELECT SINGLE * FROM LFA1 INTO WA_LFA1 WHERE LIFNR = WA_EKKO-LIFNR.
SELECT SINGLE * FROM ADRC INTO WA_ADRC WHERE ADDRNUMBER = WA_LFA1-ADRNR.
*OPEN THE FORM
CALL FUNCTION 'OPEN_FORM'
  EXPORTING
  FORM  = 'ZV_PO'
  LANGUAGE = SY-LANGU.
*PRINT EACH ITEM IN MAIN WINDOW
LOOP AT IT_EKPO INTO WA_EKPO .
*CALCLUATE GRAND TOTAL
  V_TOT = V_TOT + WA_EKPO-NETWR .
  WA_EKPO-MATNR = 'APACHE-160' .
  CALL FUNCTION 'WRITE_FORM'
  EXPORTING
  ELEMENT = 'BODY'
  WINDOW  = 'MAIN'.
*PRIINT THETOTAL AFETR ANIN WINDOW BODY PAGE
  AT LAST .
  CALL FUNCTION 'WRITE_FORM'
  EXPORTING
  ELEMENT = 'TOTAL'
  WINDOW  = 'MAIN'.
  ENDAT.
ENDLOOP .
CALL FUNCTION 'CLOSE_FORM'.

Step15 : EXECUTE THE driver program

EXECUTE THE driver program->Give PO number as 4151508223

and execute->Below is the output .

Step16 : Create a Second Page Layout

Now Create a second Page PAGE2 and copy the Main Window, Page No Window, Footer Window.

Click on PAGES->EDIT->CRATE ELEMENT->give page as page2 and meaning as page2->>Give Next Page as Page2

Double click on Page1->give next page as Page2.

Double click on Page2->give next page as Page2.

8. Click on Page windows-> Give Page as Page2->Click on EDIT->CRATE ELEMENT->Double click on Main Window, Page No Window, Footer Window so that the windows would be added to the page2.

Step17 : Increase the height of MAIN window

Now Lets Re-arrange the MAIN window position i.e. Just Increase the height of MAIN window as below by going to Graphical Form Painer.

Click on SETTINGS->FORM PAINTER->Select checkbox Graphical Form Painter

The form should look as below.

Save->activate the form and again test it from Driver Prg.

The Page1 Should look as below.

And the Page2 Should look as below.

USING STARTFORM AND END FORM

Step18 : Printing Terms&Conditions using STARTFORM AND END FORM

Crate another Sap Script by name ZV_PO_TERMS with below attributes.

Page : Page1

Windows : Main Window, Create a new window by name TERMS.

Page Windows : Copy MAIN window and TERMS windows onto page1 .

Double click on the Main Window->Write the below text.

Double click on the TERMS Window->Write the below text.

Create a title paragraph format and write the below text with font size 22 points

Also create defuakt paragraph format with font size 16 points

Save , Activate the program.

Define irst page and default paragraph

Step19 : Change the Driver Program for using STARTFORM AND END FORM

Write the below code in the above driver program i.e. just add the below code to the above code CALL FUNCTION ‘CLOSE_FORM’.

CALL FUNCTION ‘END_FORM’.

*The start form is used to call a different form for printing TREMS&CONDITIONS.

*This for is reusable as it is only for printing

* TREMS&CONDITIONS

CALL FUNCTION ‘START_FORM’

EXPORTING

*  ARCHIVE_INDEX  = ARCHIVE_INDEX
  form  = 'ZV_PO_TERMS'
  language  = sy-langu
  .
  CALL FUNCTION 'WRITE_FORM'
  EXPORTING
  element = 'TERMS'
  window  = 'MAIN'.
CALL FUNCTION 'END_FORM' .
CALL FUNCTION 'CLOSE_FORM'.
The Terms  and conditions  will be printed on the Last Page .
*&---------------------------------------------------------------------*
*& Report  ZV_PO_DRIVER
*&
*&---------------------------------------------------------------------*
REPORT  ZV_PO_DRIVER.
TABLES : ADRC,LFA1,EKKO.
PARAMETERS : P_EBELN TYPE EKKO-EBELN .
*DATA DECLARATIONS
DATA : WA_EKKO TYPE EKKO .
DATA : WA_EKPO TYPE EKPO .
DATA : IT_EKPO TYPE TABLE OF EKPO .
DATA : WA_LFA1 TYPE LFA1 .
DATA : WA_ADRC TYPE ADRC .
DATA : V_TOT TYPE EKPO-NETWR .
*READ  PO HEADER DETAILS
SELECT SINGLE * FROM EKKO
  INTO  WA_EKKO
  WHERE EBELN = P_EBELN.
*READ  PO ITEM  DETAILS
SELECT  * FROM EKPO
  INTO TABLE IT_EKPO
  WHERE EBELN = P_EBELN.
READ TABLE IT_EKPO INTO WA_EKPO INDEX 1.
DO 100 TIMES .
  APPEND WA_EKPO TO IT_EKPO.
ENDDO.
*READ  VENDOR MASTER DATA TO FIND THE ADDRESS NUMBER
SELECT SINGLE * FROM LFA1 INTO WA_LFA1 WHERE LIFNR = WA_EKKO-LIFNR.
SELECT SINGLE * FROM ADRC INTO WA_ADRC WHERE ADDRNUMBER = WA_LFA1-ADRNR.
*OPEN THE FORM
CALL FUNCTION 'OPEN_FORM'
  EXPORTING
  FORM  = 'ZV_PO'
  LANGUAGE = SY-LANGU.
*PRINT EACH ITEM IN MAIN WINDOW
LOOP AT IT_EKPO INTO WA_EKPO.
*CALCLUATE GRAND TOTAL
  V_TOT = V_TOT + WA_EKPO-NETWR.
  WA_EKPO-MATNR = 'APACHE-160'.
  CALL FUNCTION 'WRITE_FORM'
  EXPORTING
  ELEMENT = 'BODY'
  WINDOW = 'MAIN'.
*PRIINT THETOTAL AFETR ANIN WINDOW BODY PAGE
  AT LAST.
  CALL FUNCTION 'WRITE_FORM'
  EXPORTING
  ELEMENT = 'TOTAL'
  WINDOW = 'MAIN'.
  ENDAT.
ENDLOOP.
CALL FUNCTION 'END_FORM'.

*The start form is used to call another SAP SCRIPT form for printing TERMS&CONDITIONS.

*This form can be reusable by al forms as it is only for printing TREMS&CONDITIONS

CALL FUNCTION 'START_FORM'
EXPORTING
* ARCHIVE_INDEX = ARCHIVE_INDEX
  FORM = 'ZV_PO_TERMS'
  LANGUAGE = SY-LANGU
  .
CALL FUNCTION 'WRITE_FORM'
  EXPORTING
  ELEMENT = 'TERMS'
  WINDOW = 'MAIN'.
CALL FUNCTION 'END_FORM'.
CALL FUNCTION 'CLOSE_FORM'