SAPScript to PDF

[Former Member]

Hi Folks,

I had to create a RFC Function module, which takes invoice number and output type as input parameter and downloads PDF file from the SAPScript document.

Eg If we go to transaction VF02 and put in the invoice number and go to menu path Billing Document -> Issue Output To -> Screen and the Output Type is ZC05. The Function Module should download the PDF file for the SAPScript Document.

Thanks in Advance.

Punit

[dani_mn]

check this program it converts and download the sapscript into PDF.

RSTXPDFT4

Regards,

Wasim Ahmed

[Former Member]

You just need to enter the SPOOL request number from tcode SP01 and execute RSTXPDFT4 program from SE38.

[Former Member]

Hi Punit,

This is one way.

1. While taking the printout,

we get a list of printers.

2. If acrobat (acrobat writer)

is installed on front-end,

then in the printer list,

we will also get 'Acrobat PDF Writer'.

3. After selecting this,

we will get a file-open dialog box

for saving the .PDF file.

4. This file will contain the sapscript form.

5. In fact, any kind of printout,

Word,Excel etc,

will be converted to .PDF if we

have acrobat pdf writer installed.

There are two SAP functions to convert SPOOL to PDF.

1 CONVERT_ABAPSPOOLJOB_2_PDF

2 CONVERT_OTFSPOOLJOB_2_PDF.

regards,

Mukesh Kumar

[Former Member]

First u have to Create a New Driver Program which will take Invoice Number / output Type as a Input

2.after that u have to call the Layout.

3.Get the Spool If u want or Get the OTF data for that Script by using the Optiions of Open_form.

4. Convert OTF data into PDF by using FM Conver_OTF_PDF.

Regards

Prabhu

[Former Member]

Hi

See this post:

Here you can find a solution for the smartform, but it's the same for a sapscript: the difference is you have to pick up the OTF data from fm CLOSE_FORM.

Max

[Former Member]

Hai Punit

Check the following Code

REPORT ZRICH_0003.

DATA: ITCPO LIKE ITCPO,

TAB_LINES LIKE SY-TABIX.

• Variables for EMAIL functionality

DATA: MAILDATA LIKE SODOCCHGI1.

DATA: MAILPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.

DATA: MAILHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.

DATA: MAILBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.

DATA: MAILTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.

DATA: MAILREC LIKE SOMLREC90 OCCURS 0 WITH HEADER LINE.

DATA: SOLISTI1 LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.

PERFORM SEND_FORM_VIA_EMAIL.

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

• FORM SEND_FORM_VIA_EMAIL *

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

FORM SEND_FORM_VIA_EMAIL.

CLEAR: MAILDATA, MAILTXT, MAILBIN, MAILPACK, MAILHEAD, MAILREC.

REFRESH: MAILTXT, MAILBIN, MAILPACK, MAILHEAD, MAILREC.

• Creation of the document to be sent File Name

MAILDATA-OBJ_NAME = 'TEST'.

• Mail Subject

MAILDATA-OBJ_DESCR = 'Subject'.

• Mail Contents

MAILTXT-LINE = 'Here is your file'.

APPEND MAILTXT.

• Prepare Packing List

PERFORM PREPARE_PACKING_LIST.

• Set recipient - email address here!!!

MAILREC-RECEIVER = 'itsme@whatever.com'.

MAILREC-REC_TYPE = 'U'.

APPEND MAILREC.

• Sending the document

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

DOCUMENT_DATA = MAILDATA

PUT_IN_OUTBOX = ' '

TABLES

PACKING_LIST = MAILPACK

OBJECT_HEADER = MAILHEAD

CONTENTS_BIN = MAILBIN

CONTENTS_TXT = MAILTXT

RECEIVERS = MAILREC

EXCEPTIONS

TOO_MANY_RECEIVERS = 1

DOCUMENT_NOT_SENT = 2

OPERATION_NO_AUTHORIZATION = 4

OTHERS = 99.

ENDFORM.

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

• Form PREPARE_PACKING_LIST

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

FORM PREPARE_PACKING_LIST.

CLEAR: MAILPACK, MAILBIN, MAILHEAD.

REFRESH: MAILPACK, MAILBIN, MAILHEAD.

DESCRIBE TABLE MAILTXT LINES TAB_LINES.

READ TABLE MAILTXT INDEX TAB_LINES.

MAILDATA-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( MAILTXT ).

• Creation of the entry for the compressed document

CLEAR MAILPACK-TRANSF_BIN.

MAILPACK-HEAD_START = 1.

MAILPACK-HEAD_NUM = 0.

MAILPACK-BODY_START = 1.

MAILPACK-BODY_NUM = TAB_LINES.

MAILPACK-DOC_TYPE = 'RAW'.

APPEND MAILPACK.

• Creation of the document attachment

• This form gets the OTF code from the SAPscript form.

• If you already have your OTF code, I believe that you may

• be able to skip this form. just do the following code, looping thru

• your SOLISTI1 and updating MAILBIN.

PERFORM GET_OTF_CODE.

LOOP AT SOLISTI1.

MOVE-CORRESPONDING SOLISTI1 TO MAILBIN.

APPEND MAILBIN.

ENDLOOP.

DESCRIBE TABLE MAILBIN LINES TAB_LINES.

MAILHEAD = 'TEST.OTF'.

APPEND MAILHEAD.

• Creation of the entry for the compressed attachment

MAILPACK-TRANSF_BIN = 'X'.

MAILPACK-HEAD_START = 1.

MAILPACK-HEAD_NUM = 1.

MAILPACK-BODY_START = 1.

MAILPACK-BODY_NUM = TAB_LINES.

MAILPACK-DOC_TYPE = 'OTF'.

MAILPACK-OBJ_NAME = 'TEST'.

MAILPACK-OBJ_DESCR = 'Subject'.

MAILPACK-DOC_SIZE = TAB_LINES * 255.

APPEND MAILPACK.

ENDFORM.

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

• Form GET_OTF_CODE

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

FORM GET_OTF_CODE.

DATA: BEGIN OF OTF OCCURS 0.

INCLUDE STRUCTURE ITCOO .

DATA: END OF OTF.

DATA: ITCPO LIKE ITCPO.

DATA: ITCPP LIKE ITCPP.

CLEAR ITCPO.

ITCPO-TDGETOTF = 'X'.

• Start writing OTF code

CALL FUNCTION 'OPEN_FORM'

EXPORTING

FORM = 'ZTEST_FORM'

LANGUAGE = SY-LANGU

OPTIONS = ITCPO

DIALOG = ' '

EXCEPTIONS

OTHERS = 1.

CALL FUNCTION 'START_FORM'

EXCEPTIONS

ERROR_MESSAGE = 01

OTHERS = 02.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

WINDOW = 'MAIN'

EXCEPTIONS

ERROR_MESSAGE = 01

OTHERS = 02.

• Close up Form and get OTF code

CALL FUNCTION 'END_FORM'

EXCEPTIONS

ERROR_MESSAGE = 01

OTHERS = 02.

MOVE-CORRESPONDING ITCPO TO ITCPP.

CALL FUNCTION 'CLOSE_FORM'

IMPORTING

RESULT = ITCPP

TABLES

OTFDATA = OTF

EXCEPTIONS

OTHERS = 1.

• Move OTF code to structure SOLI form email

CLEAR SOLISTI1. REFRESH SOLISTI1.

LOOP AT OTF.

SOLISTI1-LINE = OTF.

APPEND SOLISTI1.

ENDLOOP.

ENDFORM.

Thanks & Regards

Sreeni