script print program

[Former Member]

please send the script print program

[Former Member · Accepted solution]

Hi,

try this

REPORT yyyttest .

TABLES: EKKO, EKPO, LFA1.

SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS: AEDAT1 FOR EKKO-AEDAT,

EKORG1 FOR EKKO-EKORG,

BSART1 FOR EKKO-BSART,

KTOKK1 FOR LFA1-KTOKK.

SELECTION-SCREEN: END OF BLOCK B1.

DATA: BEGIN OF ITAB OCCURS 0,

AEDAT LIKE EKKO-AEDAT,

EKORG LIKE EKKO-EKORG,

BSART LIKE EKKO-BSART,

KTOKK LIKE LFA1-KTOKK,

EBELN LIKE EKKO-EBELN,

LIFNR LIKE LFA1-LIFNR,

EBELP LIKE EKPO-EBELP,

NETPR LIKE EKPO-NETPR,

END OF ITAB.

SELECT EK_{AEDAT EBELP NETPR EP}EBELN EK~LIFNR

INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM EKPO AS EP

INNER JOIN

EKKO AS EK ON

EP_{EBELN = EK}EBELN

INNER JOIN LFA1 AS LF ON

LF_{LIFNR = EK}LIFNR

WHERE EK_{AEDAT IN AEDAT1 AND EK}EKORG IN EKORG1 AND EK_{BSART IN BSART1 AND LF}KTOKK IN KTOKK1.

*LOOP AT ITAB.

*WRITE:/ ITAB-AEDAT.

*ENDLOOP.

SORT ITAB BY EBELN.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

DEVICE = 'PRINTER'

DIALOG = 'X'

FORM = 'ZPROFORM1'

.

LOOP AT ITAB..

CALL FUNCTION 'START_FORM'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'CITY'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN'.

CALL FUNCTION 'END_FORM'.

ENDLOOP.

CALL FUNCTION 'CLOSE_FORM'.

Regards,

Venkatesh

[Former Member]

Hi Vijendranath..

Try this program..hope it will help you..

&----

---

*& Report Z101847_SCRIPTPGM

*&

&----

---

*&

*&

&----

---

REPORT Z101847_SCRIPTPGM.

• Table Declaration.

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

TABLES: LIKP,LIPS.

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

• Structure Declaration.

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

TYPES: BEGIN OF ST_LIKP,

VBELN LIKE LIKP-VBELN,

KUNNR LIKE LIKP-KUNNR,

END OF ST_LIKP.

TYPES: BEGIN OF ST_LIPS,

POSNR LIKE LIPS-POSNR,

MATNR LIKE LIPS-MATNR,

LGORT LIKE LIPS-LGORT,

CHARG LIKE LIPS-CHARG,

LFIMG LIKE LIPS-LFIMG,

MEINS LIKE LIPS-MEINS,

END OF ST_LIPS.

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

• Internal Table Declaration.

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

DATA: ITAB TYPE STANDARD TABLE OF ST_LIKP,

IT_TAB TYPE STANDARD TABLE OF ST_LIPS,

WA_LIKP TYPE ST_LIKP,

WA_LIPS TYPE ST_LIPS.

DATA: WA_SUM TYPE LIPS-LFIMG VALUE 0.

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

• Selection-Screen Decalaration.

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

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETER: P_VBELN TYPE LIKP-VBELN.

SELECTION-SCREEN END OF BLOCK B1.

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

• Populating Database Tables Into Internal Tables.

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

SELECT VBELN KUNNR FROM LIKP INTO TABLE ITAB

WHERE VBELN = P_VBELN.

SELECT POSNR MATNR LGORT CHARG LFIMG MEINS

FROM LIPS INTO TABLE IT_TAB WHERE VBELN = P_VBELN.

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

• Looping At Internal Table.

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

LOOP AT IT_TAB INTO WA_LIPS.

WA_SUM = WA_SUM + WA_LIPS-LFIMG.

ENDLOOP.

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

• Calling OPEN_FROM Function.

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

CALL FUNCTION 'OPEN_FORM'

EXPORTING

• APPLICATION = 'TX'

• ARCHIVE_INDEX =

• ARCHIVE_PARAMS =

DEVICE = 'PRINTER'

• DIALOG = 'X'

FORM = 'Z101847_SCRIPT'

LANGUAGE = SY-LANGU.

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

• Calling WRITE_FORM Function.

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

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER'

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'HEADER'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'LOGO'

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'LOGO'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER'

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'MAIN'.

LOOP AT IT_TAB INTO WA_LIPS.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'ITEM'

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'MAIN'.

ENDLOOP.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'FOOTER '

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'FOOTER'.

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

• Calling CLOSE_FORM Function.

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

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

.

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

• End Of Z101847_Scriptpgm.

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

Edited by: Nikita Jain on Oct 9, 2008 2:14 PM