sapscript example

[Former Member]

can anyone copy example of script driver program

progrm should include

open form

start form

write form

end form

close form

[Former Member]

Hi deepa,

Check this sample code ...

REPORT ZPSAPSCRIPT.

TABLES : EKKO,

EKPO,

KNA1,

USR01,

MARA,

MAKT.

DATA : BEGIN OF ZOPTION.

INCLUDE STRUCTURE ITCPO.

DATA : END OF ZOPTION.

PARAMETERS: P_EBELN LIKE EKKO-EBELN,

P_EBELP LIKE EKPO-EBELP.

CLEAR EKPO.

SELECT SINGLE * FROM EKPO

WHERE EBELN = P_EBELN AND

EBELP = P_EBELP.

CLEAR KNA1.

SELECT SINGLE NAME1 FROM KNA1

INTO KNA1-NAME1

WHERE KUNNR = EKPO-KUNNR.

CLEAR MAKT.

SELECT SINGLE MAKTX FROM MAKT

INTO MAKT-MAKTX

WHERE MATNR = EKPO-MATNR AND

SPRAS = SY-LANGU.

CLEAR USR01.

SELECT SINGLE * FROM USR01 WHERE BNAME = SY-UNAME.

ZOPTION-TDDEST = USR01-SPLD. "Output device (printer)

ZOPTION-TDIMMED = 'X'. "Print immediately

ZOPTION-TDDELETE = 'X'. "Delete after printing

ZOPTION-TDPROGRAM = 'ZPQRPRNT'. "Program Name

CALL FUNCTION 'OPEN_FORM'

EXPORTING

APPLICATION = 'TX'

• ARCHIVE_INDEX = ' '

• ARCHIVE_PARAMS = ' '

DEVICE = 'PRINTER'

DIALOG = ' '

FORM = 'Z_TESTSCRIPT'

LANGUAGE = SY-LANGU

OPTIONS = ZOPTION

IMPORTING

LANGUAGE = SY-LANGU

EXCEPTIONS

OTHERS = 1.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER'

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'HEADER'

EXCEPTIONS

ELEMENT = 1.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'MAIN'

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'MAIN'

EXCEPTIONS

ELEMENT = 1.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'FOOTER'

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'FOOTER'

EXCEPTIONS

ELEMENT = 1.

CALL FUNCTION 'CLOSE_FORM'

EXCEPTIONS

UNOPENED = 1

OTHERS = 2.

regards,

sai ramesh

[Former Member]

Hi Ramesh,

If u have driver programme

with start form

end form

quite useful for me

Deepa

[Former Member]

Hi deepa !!

go through this link .. it helps u a lot !!!

http://sap.niraj.tripod.com/id20.html

reward if it helps u..

sai ramesh

[Vijay]

hi

plz find the sample sapscrip print program code.....

TABLES :vbrk , kna1 , adrc ,vbrp.

SELECT-OPTIONS : s_vbeln FOR vbrk-vbeln.

TYPES: BEGIN OF st_itab,

vbeln TYPE vbrk-vbeln,

fkdat TYPE vbrk-fkdat,

kunrg TYPE vbrk-kunrg,

xblnr TYPE vbrk-xblnr,

netwr TYPE vbrk-netwr ,

waerk TYPE vbrk-waerk,

END OF st_itab.

DATA: itab TYPE STANDARD TABLE OF st_itab,

wa_itab TYPE st_itab.

DATA :adr_no TYPE kna1-adrnr,

v_kunrg TYPE vbrk-kunrg.

TYPES : BEGIN OF st_itab1,

name1 TYPE adrc-name1,

street TYPE adrc-street ,

city1 TYPE adrc-city1 ,

post_code1 TYPE adrc-post_code1 ,

country TYPE adrc-country ,

tel_number TYPE adrc-tel_number ,

END OF st_itab1.

DATA: itab1 TYPE STANDARD TABLE OF st_itab1,

wa_itab1 TYPE st_itab1.

TYPES:BEGIN OF st_itab3,

matnr TYPE vbrp-matnr,

arktx TYPE vbrp-arktx,

fkimg TYPE vbrp-fkimg,

vrkme TYPE vbrp-vrkme,

netwr TYPE vbrp-netwr,

END OF st_itab3.

DATA: itab3 TYPE STANDARD TABLE OF st_itab3,

wa_itab3 TYPE st_itab3,

v_total TYPE vbrp-netwr value 0.

data : s1(3) type p decimals 1, "Box Y position

s2(3) type p decimals 1 value '0.5'. "Box Height

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

***OPEN FORM

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

CALL FUNCTION 'OPEN_FORM'

EXPORTING

• APPLICATION = 'TX'

• ARCHIVE_INDEX =

• ARCHIVE_PARAMS =

• DEVICE = 'PRINTER'

• DIALOG = 'X'

form = 'Z_CHALLENGE'

language = sy-langu

• OPTIONS =

• MAIL_SENDER =

• MAIL_RECIPIENT =

• MAIL_APPL_OBJECT =

• RAW_DATA_INTERFACE = '*'

• IMPORTING

• LANGUAGE =

• NEW_ARCHIVE_PARAMS =

• RESULT =

EXCEPTIONS

canceled = 1

device = 2

form = 3

OPTIONS = 4

unclosed = 5

mail_options = 6

archive_error = 7

invalid_fax_number = 8

more_params_needed_in_batch = 9

spool_error = 10

codepage = 11

OTHERS = 12

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

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

*PAGE NUMBER

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

SELECT vbeln

fkdat

kunrg

xblnr

netwr

waerk

FROM vbrk

INTO TABLE itab

WHERE vbeln IN s_vbeln .

LOOP AT itab INTO wa_itab.

clear : s1.

s1 = '0.5'.

CLEAR V_TOTAL.

CALL FUNCTION 'START_FORM'

EXPORTING

• ARCHIVE_INDEX =

form = 'Z_CHALLENGE'

language = sy-langu

• STARTPAGE = ' '

• PROGRAM = ' '

• MAIL_APPL_OBJECT =

• IMPORTING

• LANGUAGE =

• EXCEPTIONS

• FORM = 1

• FORMAT = 2

• UNENDED = 3

• UNOPENED = 4

• UNUSED = 5

• SPOOL_ERROR = 6

• CODEPAGE = 7

• OTHERS = 8

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER'

• FUNCTION = 'SET'

• TYPE = 'BODY'

window = 'HEADER'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

SELECT SINGLE kunrg INTO v_kunrg FROM vbrk WHERE vbeln = wa_itab-vbeln.

SELECT SINGLE adrnr FROM kna1 INTO adr_no WHERE kunnr = v_kunrg.

SELECT SINGLE name1

street

city1

post_code1

country

tel_number

INTO wa_itab1

FROM adrc WHERE addrnumber = adr_no

AND date_from <= sy-datum AND date_to >= sy-datum.

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

INVOICE DIPLAY

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

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'INVOICE'

function = 'APPEND'

type = 'BODY'

window = 'INVOICE'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

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

*ADDRESS

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

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ADDRESS'

function = 'APPEND'

type = 'BODY'

window = 'ADDRESS'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

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

• MAIN HEADER

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

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER_MAIN'

function = 'APPEND'

type = 'BODY'

window = 'MAIN'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

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

*DISPLAYING DATA

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

SELECT matnr

arktx

fkimg

vrkme

netwr

INTO CORRESPONDING FIELDS OF TABLE itab3

FROM vbrp

WHERE vbeln = wa_itab-vbeln.

LOOP AT itab3 INTO wa_itab3 .

compute v_total = v_total + wa_itab3-netwr .

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'DATA'

function = 'APPEND'

type = 'BODY'

window = 'MAIN'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

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

*FOOTER

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

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'FOOTER'

• FUNCTION = 'SET'

• TYPE = 'BODY'

window = 'FOOTER'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

s1 = s1 + '0.4' .

ENDLOOP.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'TOTAL'

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'MAIN'

• IMPORTING

• PENDING_LINES =

• EXCEPTIONS

• ELEMENT = 1

• FUNCTION = 2

• TYPE = 3

• UNOPENED = 4

• UNSTARTED = 5

• WINDOW = 6

• BAD_PAGEFORMAT_FOR_PRINT = 7

• SPOOL_ERROR = 8

• CODEPAGE = 9

• OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'END_FORM'

• IMPORTING

• RESULT =

• EXCEPTIONS

• UNOPENED = 1

• BAD_PAGEFORMAT_FOR_PRINT = 2

• SPOOL_ERROR = 3

• CODEPAGE = 4

• OTHERS = 5

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDLOOP.

CALL FUNCTION 'CLOSE_FORM'

• IMPORTING

• RESULT =

• RDI_RESULT =

• TABLES

• OTFDATA =

EXCEPTIONS

unopened = 1

bad_pageformat_for_print = 2

send_error = 3

spool_error = 4

codepage = 5

OTHERS = 6

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

<b>plz reward pts if helpful.</b>

regards

vijay

[Former Member]

Hi Deepa,

Check this code.

CALL FUNCTION 'OPEN_FORM'

• EXPORTING

• APPLICATION = 'TX'

• ARCHIVE_INDEX =

• ARCHIVE_PARAMS =

• DEVICE = 'PRINTER'

• DIALOG = 'X'

• FORM = 'ZSCRIPT1'

• LANGUAGE = SY-LANGU

• OPTIONS =

• MAIL_SENDER =

• MAIL_RECIPIENT =

• MAIL_APPL_OBJECT =

• RAW_DATA_INTERFACE = '*'

• SPONUMIV =

• IMPORTING

• LANGUAGE =

• NEW_ARCHIVE_PARAMS =

• RESULT =

EXCEPTIONS

CANCELED = 1

DEVICE = 2

FORM = 3

OPTIONS = 4

UNCLOSED = 5

MAIL_OPTIONS = 6

ARCHIVE_ERROR = 7

INVALID_FAX_NUMBER = 8

MORE_PARAMS_NEEDED_IN_BATCH = 9

SPOOL_ERROR = 10

CODEPAGE = 11

OTHERS = 12

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'START_FORM'

EXPORTING

• ARCHIVE_INDEX =

FORM = 'ZFORM1'

• LANGUAGE = ' '

• STARTPAGE = 'X'

PROGRAM = 'ZSCRIPT1'

• MAIL_APPL_OBJECT =

• IMPORTING

• LANGUAGE =

• EXCEPTIONS

• FORM = 1

• FORMAT = 2

• UNENDED = 3

• UNOPENED = 4

• UNUSED = 5

• SPOOL_ERROR = 6

• CODEPAGE = 7

• OTHERS = 8

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

• ELEMENT = ' '

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'HEADER'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

ELEMENT = 1

FUNCTION = 2

TYPE = 3

UNOPENED = 4

UNSTARTED = 5

WINDOW = 6

BAD_PAGEFORMAT_FOR_PRINT = 7

SPOOL_ERROR = 8

OTHERS = 9

.

IF SY-SUBRC <> 0.

write:/ 'ERROR IN HEADER'.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

• ELEMENT = ' '

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'MAIN'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

ELEMENT = 1

FUNCTION = 2

TYPE = 3

UNOPENED = 4

UNSTARTED = 5

WINDOW = 6

BAD_PAGEFORMAT_FOR_PRINT = 7

SPOOL_ERROR = 8

OTHERS = 9

.

IF SY-SUBRC <> 0.

write:/ 'ERROR IN HEADER'.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

• ELEMENT = ' '

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'FOOTER'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

ELEMENT = 1

FUNCTION = 2

TYPE = 3

UNOPENED = 4

UNSTARTED = 5

WINDOW = 6

BAD_PAGEFORMAT_FOR_PRINT = 7

SPOOL_ERROR = 8

OTHERS = 9

.

IF SY-SUBRC <> 0.

write:/ 'ERROR IN HEADER'.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'END_FORM'

• IMPORTING

• RESULT =

• EXCEPTIONS

• UNOPENED = 1

• BAD_PAGEFORMAT_FOR_PRINT = 2

• SPOOL_ERROR = 3

• CODEPAGE = 4

• OTHERS = 5

.

CALL FUNCTION 'CLOSE_FORM'

• IMPORTING

• RESULT =

• RDI_RESULT =

• TABLES

• OTFDATA =

• EXCEPTIONS

• UNOPENED = 1

• BAD_PAGEFORMAT_FOR_PRINT = 2

• SEND_ERROR = 3

• SPOOL_ERROR = 4

• CODEPAGE = 5

• OTHERS = 6

.

Hope this resolves your query.

Reward all the helpful answers.

Regards

[Former Member]

hi

here is an eg code for sap script

<b>QUESTION

Header

In the header, print the general data valid for the entire billing document

• Document number

• Identification number of the payer and his address

• Billing date

• Net value of the entire billing document

• Document currency

Items

• Material number

• Billing quantity

• Net value

• Currency

Input: A selection screen with a select option for entering billing document(s). Search help should be enabled.

Output: All the entered billing documents should be displayed once</b>

TABLES :vbrk , kna1 , adrc ,vbrp.

SELECT-OPTIONS : s_vbeln FOR vbrk-vbeln.

TYPES: BEGIN OF st_itab,

vbeln TYPE vbrk-vbeln,

fkdat TYPE vbrk-fkdat,

kunrg TYPE vbrk-kunrg,

xblnr TYPE vbrk-xblnr,

netwr TYPE vbrk-netwr ,

waerk TYPE vbrk-waerk,

END OF st_itab.

DATA: itab TYPE STANDARD TABLE OF st_itab,

wa_itab TYPE st_itab.

DATA :adr_no TYPE kna1-adrnr,

v_kunrg TYPE vbrk-kunrg.

TYPES : BEGIN OF st_itab1,

name1 TYPE adrc-name1,

street TYPE adrc-street ,

city1 TYPE adrc-city1 ,

post_code1 TYPE adrc-post_code1 ,

country TYPE adrc-country ,

tel_number TYPE adrc-tel_number ,

END OF st_itab1.

DATA: itab1 TYPE STANDARD TABLE OF st_itab1,

wa_itab1 TYPE st_itab1.

TYPES:BEGIN OF st_itab3,

matnr TYPE vbrp-matnr,

arktx TYPE vbrp-arktx,

fkimg TYPE vbrp-fkimg,

vrkme TYPE vbrp-vrkme,

netwr TYPE vbrp-netwr,

END OF st_itab3.

DATA: itab3 TYPE STANDARD TABLE OF st_itab3,

wa_itab3 TYPE st_itab3,

v_total TYPE vbrp-netwr value 0.

data : s1(3) type p decimals 1, "Box Y position

s2(3) type p decimals 1 value '0.5'. "Box Height

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

***OPEN FORM

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

CALL FUNCTION 'OPEN_FORM'

EXPORTING

• APPLICATION = 'TX'

• ARCHIVE_INDEX =

• ARCHIVE_PARAMS =

• DEVICE = 'PRINTER'

• DIALOG = 'X'

form = 'Z_CHALLENGE'

language = sy-langu

• OPTIONS =

• MAIL_SENDER =

• MAIL_RECIPIENT =

• MAIL_APPL_OBJECT =

• RAW_DATA_INTERFACE = '*'

• IMPORTING

• LANGUAGE =

• NEW_ARCHIVE_PARAMS =

• RESULT =

EXCEPTIONS

canceled = 1

device = 2

form = 3

OPTIONS = 4

unclosed = 5

mail_options = 6

archive_error = 7

invalid_fax_number = 8

more_params_needed_in_batch = 9

spool_error = 10

codepage = 11

OTHERS = 12

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

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

*PAGE NUMBER

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

SELECT vbeln

fkdat

kunrg

xblnr

netwr

waerk

FROM vbrk

INTO TABLE itab

WHERE vbeln IN s_vbeln .

LOOP AT itab INTO wa_itab.

clear : s1.

s1 = '0.5'.

CLEAR V_TOTAL.

CALL FUNCTION 'START_FORM'

EXPORTING

• ARCHIVE_INDEX =

form = 'Z_CHALLENGE'

language = sy-langu

• STARTPAGE = ' '

• PROGRAM = ' '

• MAIL_APPL_OBJECT =

• IMPORTING

• LANGUAGE =

• EXCEPTIONS

• FORM = 1

• FORMAT = 2

• UNENDED = 3

• UNOPENED = 4

• UNUSED = 5

• SPOOL_ERROR = 6

• CODEPAGE = 7

• OTHERS = 8

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER'

• FUNCTION = 'SET'

• TYPE = 'BODY'

window = 'HEADER'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

SELECT SINGLE kunrg INTO v_kunrg FROM vbrk WHERE vbeln = wa_itab-vbeln.

SELECT SINGLE adrnr FROM kna1 INTO adr_no WHERE kunnr = v_kunrg.

SELECT SINGLE name1

street

city1

post_code1

country

tel_number

INTO wa_itab1

FROM adrc WHERE addrnumber = adr_no

AND date_from <= sy-datum AND date_to >= sy-datum.

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

INVOICE DIPLAY

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

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'INVOICE'

function = 'APPEND'

type = 'BODY'

window = 'INVOICE'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

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

*ADDRESS

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

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'ADDRESS'

function = 'APPEND'

type = 'BODY'

window = 'ADDRESS'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

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

• MAIN HEADER

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

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'HEADER_MAIN'

function = 'APPEND'

type = 'BODY'

window = 'MAIN'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

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

*DISPLAYING DATA

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

SELECT matnr

arktx

fkimg

vrkme

netwr

INTO CORRESPONDING FIELDS OF TABLE itab3

FROM vbrp

WHERE vbeln = wa_itab-vbeln.

LOOP AT itab3 INTO wa_itab3 .

compute v_total = v_total + wa_itab3-netwr .

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'DATA'

function = 'APPEND'

type = 'BODY'

window = 'MAIN'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

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

*FOOTER

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

CALL FUNCTION 'WRITE_FORM'

EXPORTING

element = 'FOOTER'

• FUNCTION = 'SET'

• TYPE = 'BODY'

window = 'FOOTER'

• IMPORTING

• PENDING_LINES =

EXCEPTIONS

element = 1

function = 2

type = 3

unopened = 4

unstarted = 5

window = 6

bad_pageformat_for_print = 7

spool_error = 8

codepage = 9

OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

s1 = s1 + '0.4' .

ENDLOOP.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'TOTAL'

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'MAIN'

• IMPORTING

• PENDING_LINES =

• EXCEPTIONS

• ELEMENT = 1

• FUNCTION = 2

• TYPE = 3

• UNOPENED = 4

• UNSTARTED = 5

• WINDOW = 6

• BAD_PAGEFORMAT_FOR_PRINT = 7

• SPOOL_ERROR = 8

• CODEPAGE = 9

• OTHERS = 10

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'END_FORM'

• IMPORTING

• RESULT =

• EXCEPTIONS

• UNOPENED = 1

• BAD_PAGEFORMAT_FOR_PRINT = 2

• SPOOL_ERROR = 3

• CODEPAGE = 4

• OTHERS = 5

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDLOOP.

CALL FUNCTION 'CLOSE_FORM'

• IMPORTING

• RESULT =

• RDI_RESULT =

• TABLES

• OTFDATA =

EXCEPTIONS

unopened = 1

bad_pageformat_for_print = 2

send_error = 3

spool_error = 4

codepage = 5

OTHERS = 6

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

reward if useful

regards

ravish

[Former Member]

Hi Deepa,

<a href="http://www.sap-img.com/sapscripts/a-sample-sap-scripts-reports.htm">This is what you want.</a>

<b>Reward Points if helpful.</b>

Regards,

Tejas