smartform pdf conversion problem

[Former Member]

hi all,

i m new to smartform i have created a simple smartform now i want to convert it into .pdf im using RSTXPDFT4 prog. to convert it. but it is showing following text.

Selection of Notifications

00000000 notifications selected

00000000 notifications deleted (logically)

00000000 new notifications saved

00000000 notifications saved

Sending Messages

00000016 notifications selected

00000000 messages sent

Unable to send 00000000 notifications due to errors

plz tel me that is there any betteer and easy method or other program avalable for this purpose..?

[Former Member]

First create spool by selecting NEW SPOOL while printing smartform.

Give spool number as input to program RSTXPDFT4, if there are too many pages popup will appear to execute program in background else it will give popup to confirm / reselect path for downloading file to presentation server.

Regards,

Mohaiyuddin

[Former Member]

instead of generating spool, u generate otf and then use convert_otf to convert to pdf

look at following code.

ls_control_param-getotf = 'X'.

call function lf_fm_name

exporting

archive_index = toa_dara

archive_parameters = arc_params

control_parameters = ls_control_param

• mail_appl_obj =

mail_recipient = ls_recipient

mail_sender = ls_sender

output_options = ls_composer_param

user_settings = ' '

is_dlv_delnote = ls_dlv_delnote

is_nast = nast

importing

• document_output_info =

job_output_info = it_job_output_info "Smart Forms: Return value at end of form printing

• job_output_options =

exceptions formatting_error = 1

internal_error = 2

send_error = 3

user_canceled = 4

others = 5.

it_itcoo = it_job_output_info-otfdata[].

if it_itcoo[] is not initial.

call function 'CONVERT_OTF'

exporting

format = 'PDF'

importing

bin_filesize = v_bin_filesize

tables

otf = it_itcoo

lines = it_tline

exceptions

err_max_linewidth = 1

err_format = 2

err_conv_not_possible = 3.

Edited by: kartik tarla on Dec 5, 2008 4:37 PM

[Former Member]

hi Nilesh

smartform >>> OTF >> PDF

FM 'CONVERT_OTF' will be used

for code and example check this link

saptechnical.com/Tutorials/Smartforms/OTF2PDF.htm

hope it works

Thanks

Sachin

[Former Member]

There could be 2 ways of converting smartform to pdf.

1. Create a spool of the smartform and then convert the spool to pdf.

2. Get OTF data from smartform and then convert OTF to pdf.

FM are available to convert both ways. You could get the OTF data directly from Control Params of the smartform Function Module.

Let us know if you cant progress further and need code as well.

[Former Member]

Hi Nilesh,

Refer this program

&----

---

*& Report YMSL_ORDER_ACCEPTANCE

*&

&----

---

*&

*&

&----

---

REPORT YMSL_ORDER_ACCEPTANCE.

*********Variable Declarations *****************************

DATA: GV_FORM_NAME TYPE RS38L_FNAM, " Used to store the function module generated by Smartform

GV_BIN_FILESIZE TYPE I, " Store the file size

GV_POS TYPE I,

GV_LEN TYPE I,

GV_TAB_LINES TYPE I,

gv_desc_lines type i.

********Constants *******************************************

DATA : GC_TEXT(11) TYPE C VALUE 'Form Output',

GC_TST(3) TYPE C VALUE 'TST',

GC_TESTING(20) TYPE C VALUE 'Order Acceptance'.

*********Work Area Declarations *****************************

DATA: GS_DOCDATA TYPE SODOCCHGI1, " Data of an object which can be changed

GS_CTRLOP TYPE SSFCTRLOP, " Smart Forms: Control structure

GS_OUTOPT TYPE SSFCOMPOP, " SAP Smart Forms: Smart Composer (transfer) options

GS_OTFDATA TYPE SSFCRESCL, " Smart Forms: Return value at end of form printing

GS_RECLIST TYPE SOMLRECI1, " SAPoffice: Structure of the API Recipient List

GS_PDF_TAB TYPE TLINE, " Workarea for SAP Script Text Lines

GS_OBJBIN TYPE SOLISTI1, " SAPoffice: Single List with Column Length 255

GS_OBJPACK TYPE SOPCKLSTI1. " SAPoffice: Description of Imported Object Components

DATA : w_doc_chng typE sodocchgi1.

*********Internal tables Declarations *****************************

DATA : I_OBJTXT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.

DATA: GT_RECLIST TYPE TABLE OF SOMLRECI1, " SAPoffice: Structure of the API Recipient List

GT_PDF_TAB TYPE TABLE OF TLINE, " SAPscript: Text Lines

GT_OTF TYPE TABLE OF ITCOO, " OTF Structure

GT_OBJBIN TYPE TABLE OF SOLISTI1, " SAPoffice: Single List with Column Length 255

GT_OBJPACK TYPE TABLE OF SOPCKLSTI1. " SAPoffice: Description of Imported Object Components

******

DATA : BEGIN OF IT_ADR6 OCCURS 0,

SMTP_ADDR TYPE ADR6-SMTP_ADDR,

END OF IT_ADR6.

DATA : W_FILE_NAME TYPE STRING,

W_FILE_PATH TYPE STRING,

W_FULL_PATH TYPE STRING.

CLEAR : GV_FORM_NAME,

GS_CTRLOP,

GS_OUTOPT,

GS_OTFDATA,

GV_BIN_FILESIZE,

GV_POS,

GV_LEN,

GV_TAB_LINES.

SELECTION-SCREEN: BEGIN OF SCREEN 1001 AS WINDOW TITLE scr_ttl .

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TXT_B1 NO INTERVALS.

SELECTION-SCREEN BEGIN OF LINE .

SELECTION-SCREEN COMMENT 1(15) TX_VBELN.

PARAMETER : P_VBELN TYPE VBAK-VBELN .

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B1.

*SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TXT_B2 .

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: R_OUT RADIOBUTTON GROUP R1 DEFAULT 'X' USER-COMMAND RAD11 .

SELECTION-SCREEN COMMENT 5(20) TXT_OUT. " roles by t-code

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETER R_PDF RADIOBUTTON GROUP R1 .

SELECTION-SCREEN COMMENT 5(20) TXT_PDF.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETER R_MAIL RADIOBUTTON GROUP R1 .

SELECTION-SCREEN COMMENT 5(15) TXT_MAIL.

*SELECTION-SCREEN END OF LINE.

*SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 20(7) TXT_MAL1.

PARAMETER : P_MAIL TYPE ADR6-SMTP_ADDR MODIF ID M1 .

SELECTION-SCREEN END OF LINE.

*SELECTION-SCREEN END OF BLOCK B2.

SELECTION-SCREEN: END OF SCREEN 1001 .

CALL SELECTION-SCREEN 1001 STARTING AT 20 5 ENDING AT 105 10.

*SET PF-STATUS 'STATUS'.

INITIALIZATION.

TX_VBELN = 'Order'.

TXT_B1 = 'Selection Criteria '.

• TXT_B2 = 'Output Criteria '.

scr_ttl = 'Order Acceptance'.

TXT_OUT = 'Print Output'.

TXT_PDF = 'Save To PDF'.

TXT_MAIL = 'Mail the Output'.

TXT_MAL1 = 'E-mail'.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF R_MAIL <> 'X'.

IF SCREEN-GROUP1 = 'M1'.

• SCREEN-INVISIBLE = 1.

SCREEN-INPUT = 0. " Disable for input.

MODIFY SCREEN.

ENDIF.

ENDIF.

ENDLOOP.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_MAIL.

PERFORM TABLE_HELP.

START-OF-SELECTION..

• IF P_VBELN IS NOT INITIAL.

PERFORM GET_SF.

IF R_PDF = 'X' .

PERFORM CONVERT_OTF.

PERFORM SAVE_DIALOG.

PERFORM DOWNLOAD.

ELSEIF R_MAIL = 'X'.

IF P_MAIL IS NOT INITIAL.

PERFORM CONVERT_OTF.

PERFORM SEND_MAIL.

ELSE.

MESSAGE 'Please Enter Email Address' TYPE 'S'.

• CALL TRANSACTION 'YMSL20'.

• LEAVE LIST-PROCESSING.

ENDIF.

ENDIF.

• ELSE.

• MESSAGE 'Please Enter Order No' TYPE 'S'.

• CALL TRANSACTION 'YMSL20'.

• LEAVE LIST-PROCESSING.

*

*ENDIF.

END-OF-SELECTION.

&----

---

*& Form TABLE_HELP

&----

---

FORM TABLE_HELP .

IF R_MAIL = 'X'.

SELECT SMTP_ADDR FROM ADR6 INTO TABLE IT_ADR6.

SORT IT_ADR6.

DELETE ADJACENT DUPLICATES FROM IT_ADR6 COMPARING ALL FIELDS.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

RETFIELD = 'IT_ADR6-SMTP_ADDR'

• PVALKEY = ' '

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'EMAIL'

• STEPL = 0

WINDOW_TITLE = 'SELECT MAIL ADDRESS'

• VALUE = ' '

VALUE_ORG = 'S'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

• MARK_TAB =

• IMPORTING

• USER_RESET =

TABLES

VALUE_TAB = IT_ADR6

• FIELD_TAB =

• RETURN_TAB =

• DYNPFLD_MAPPING =

• EXCEPTIONS

• PARAMETER_ERROR = 1

• NO_VALUES_FOUND = 2

• OTHERS = 3

.

IF SY-SUBRC <> 0.

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

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

ENDIF.

ENDIF.

ENDFORM. " TABLE_HELP

&----

---

*& Form GET_SF

&----

---

FORM GET_SF .

*u2022 Generate Function Module name

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'Z_CHK'

IMPORTING

FM_NAME = GV_FORM_NAME

EXCEPTIONS

NO_FORM = 1

NO_FUNCTION_MODULE = 2

OTHERS = 3.

IF SY-SUBRC <> 0.

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

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

ENDIF.

*u2022 Assigning values to Form Control Structure and Form Composer

IF R_OUT <> 'X'.

GS_CTRLOP-GETOTF = 'X'.

GS_CTRLOP-NO_DIALOG = 'X'.

GS_OUTOPT-TDNOPREV = 'X'.

ENDIF.

*/1BCDWB/SF00000368

CALL FUNCTION GV_FORM_NAME "'/1BCDWB/SF00000368'

EXPORTING

• ARCHIVE_INDEX =

• ARCHIVE_INDEX_TAB =

• ARCHIVE_PARAMETERS =

CONTROL_PARAMETERS = GS_CTRLOP

• MAIL_APPL_OBJ =

• MAIL_RECIPIENT =

• MAIL_SENDER =

OUTPUT_OPTIONS = GS_OUTOPT

USER_SETTINGS = 'X'

IMPORTING

• DOCUMENT_OUTPUT_INFO =

JOB_OUTPUT_INFO = GS_OTFDATA

• JOB_OUTPUT_OPTIONS =

• EXCEPTIONS

• FORMATTING_ERROR = 1

• INTERNAL_ERROR = 2

• SEND_ERROR = 3

• USER_CANCELED = 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.

*

• CALL FUNCTION GV_FORM_NAME

• EXPORTING

• ARCHIVE_INDEX =

• ARCHIVE_INDEX_TAB =

• ARCHIVE_PARAMETERS =

• CONTROL_PARAMETERS = GS_CTRLOP

• MAIL_APPL_OBJ =

• MAIL_RECIPIENT =

• MAIL_SENDER =

• OUTPUT_OPTIONS = GS_OUTOPT

• USER_SETTINGS = 'X'

• TEMP_VBELN = P_VBELN

• IMPORTING

• DOCUMENT_OUTPUT_INFO =

• JOB_OUTPUT_INFO = GS_OTFDATA

• JOB_OUTPUT_OPTIONS =

• EXCEPTIONS

• FORMATTING_ERROR = 1

• INTERNAL_ERROR = 2

• SEND_ERROR = 3

• USER_CANCELED = 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.

ENDFORM. " GET_SF

&----

---

*& Form CONVERT_OTF

&----

---

FORM CONVERT_OTF .

*u2022 Assigning the OTFDATA to OTF Structure table

CLEAR GT_OTF.

GT_OTF[] = GS_OTFDATA-OTFDATA[].

*u2022 Convert the OTF DATA to SAP Script Text lines

CLEAR GT_PDF_TAB.

CALL FUNCTION 'CONVERT_OTF'

EXPORTING

FORMAT = 'PDF'

MAX_LINEWIDTH = 132

• ARCHIVE_INDEX = ' '

• COPYNUMBER = 0

• ASCII_BIDI_VIS2LOG = ' '

• PDF_DELETE_OTFTAB = ' '

IMPORTING

BIN_FILESIZE = GV_BIN_FILESIZE

• BIN_FILE =

TABLES

OTF = GT_OTF

LINES = GT_PDF_TAB

EXCEPTIONS

ERR_MAX_LINEWIDTH = 1

ERR_FORMAT = 2

ERR_CONV_NOT_POSSIBLE = 3

ERR_BAD_OTF = 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.

*

*t_otf[] = t_otf_from_fm-otfdata[].

*

• Function Module CONVERT_OTF is used to convert the OTF format to PDF

*

*CALL FUNCTION 'CONVERT_OTF'

*EXPORTING

*FORMAT = 'PDF'

*MAX_LINEWIDTH = 132

• ARCHIVE_INDEX = ' '

• COPYNUMBER = 0

• ASCII_BIDI_VIS2LOG = ' '

• PDF_DELETE_OTFTAB = ' '

*IMPORTING

*BIN_FILESIZE = W_bin_filesize

• BIN_FILE =

*TABLES

*otf = T_OTF

*lines = T_pdf_tab

*EXCEPTIONS

*ERR_MAX_LINEWIDTH = 1

*ERR_FORMAT = 2

*ERR_CONV_NOT_POSSIBLE = 3

*ERR_BAD_OTF = 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.

ENDFORM. " CONVERT_OTF

&----

---

*& Form SAVE_DIALOG

&----

---

FORM SAVE_DIALOG .

• To display File SAVE dialog window

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG

EXPORTING

WINDOW_TITLE = 'Download to PDF '

• DEFAULT_EXTENSION = '(*.PDF)'

DEFAULT_FILE_NAME = 'file.pdf'

FILE_FILTER = 'PDF Format(*.PDF)'

INITIAL_DIRECTORY = 'C:\Documents and Settings\Administrator\Desktop'

• WITH_ENCODING =

PROMPT_ON_OVERWRITE = 'X'

CHANGING

FILENAME = W_FILE_NAME

PATH = W_FILE_PATH

FULLPATH = W_FULL_PATH

• USER_ACTION =

• FILE_ENCODING =

EXCEPTIONS

CNTL_ERROR = 1

ERROR_NO_GUI = 2

NOT_SUPPORTED_BY_GUI = 3

OTHERS = 4

.

IF SY-SUBRC <> 0.

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

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

ENDIF.

ENDFORM. " SAVE_DIALOG

&----

---

*& Form DOWNLOAD

&----

---

FORM DOWNLOAD .

• Use the FM GUI_DOWNLOAD to download the generated PDF file onto the

• presentation server

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

BIN_FILESIZE = GV_BIN_FILESIZE

FILENAME = W_FULL_PATH

FILETYPE = 'BIN'

• APPEND = ' '

• WRITE_FIELD_SEPARATOR = ' '

• HEADER = '00'

• TRUNC_TRAILING_BLANKS = ' '

• WRITE_LF = 'X'

• COL_SELECT = ' '

• COL_SELECT_MASK = ' '

• DAT_MODE = ' '

• CONFIRM_OVERWRITE = ' '

• NO_AUTH_CHECK = ' '

• CODEPAGE = ' '

• IGNORE_CERR = ABAP_TRUE

• REPLACEMENT = '#'

• WRITE_BOM = ' '

• TRUNC_TRAILING_BLANKS_EOL = 'X'

• WK1_N_FORMAT = ' '

• WK1_N_SIZE = ' '

• WK1_T_FORMAT = ' '

• WK1_T_SIZE = ' '

• IMPORTING

• FILELENGTH =

TABLES

DATA_TAB = GT_PDF_TAB

• FIELDNAMES =

• EXCEPTIONS

• FILE_WRITE_ERROR = 1

• NO_BATCH = 2

• GUI_REFUSE_FILETRANSFER = 3

• INVALID_TYPE = 4

• NO_AUTHORITY = 5

• UNKNOWN_ERROR = 6

• HEADER_NOT_ALLOWED = 7

• SEPARATOR_NOT_ALLOWED = 8

• FILESIZE_NOT_ALLOWED = 9

• HEADER_TOO_LONG = 10

• DP_ERROR_CREATE = 11

• DP_ERROR_SEND = 12

• DP_ERROR_WRITE = 13

• UNKNOWN_DP_ERROR = 14

• ACCESS_DENIED = 15

• DP_OUT_OF_MEMORY = 16

• DISK_FULL = 17

• DP_TIMEOUT = 18

• FILE_NOT_FOUND = 19

• DATAPROVIDER_EXCEPTION = 20

• CONTROL_FLUSH_ERROR = 21

• OTHERS = 22

.

IF SY-SUBRC <> 0.

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

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

ENDIF.

ENDFORM. " DOWNLOAD

&----

---

*& Form SEND_MAIL

&----

---

FORM SEND_MAIL .

***changes by rajan

*DATA : v_first TYPE USER_ADDR-NAME_FIRST,

• V_LAST TYPE USER_ADDR-NAME_LAST.

DATA : detail TYPE STRING.

*

*SELECT SINGLE NAME_FIRST NAME_LAST FROM

• USER_ADDR INTO (V_FIRST,V_LAST)

• WHERE BNAME = syst-UNAME.

• CONCATENATE v_first V_LAST INTO detail SEPARATED BY space.

data : v_po_no TYPE vbkd-bstkd,

v_po_date TYPE vbkd-bstdk.

data : day TYPE STRING,

month type STRING,

year TYPE STRING.

data : date TYPE STRING.

SELECT SINGLE BSTKD BSTDK

FROM VBKD

INTO (v_po_no,v_po_date)

WHERE VBELN = P_VBELN.

day = v_po_date+6(2).

month = v_po_date+4(2).

year = v_po_date+0(4).

CONCATENATE day '/' month '/' year INTO date.

CONCATENATE 'Please Find attached Order Acceptance against your P.O.No.' v_po_no 'dated' date '.' INTO detail SEPARATED BY space.

**u2022 Assigning the Description of the object sent in the mail

• CLEAR GS_DOCDATA.

• GS_DOCDATA-OBJ_NAME = GC_TST.

• GS_DOCDATA-OBJ_DESCR = GC_TESTING.

*u2022 Assigning the email id to Structure of the API Recipient List table

CLEAR : GT_RECLIST, GS_RECLIST.

GS_RECLIST-RECEIVER = P_MAIL. "

GS_RECLIST-REC_TYPE = 'U'."'G' ."'O'. "'B'. "'U'.

APPEND GS_RECLIST TO GT_RECLIST.

• mail body rajan

I_OBJTXT = 'Dear Sir/Madam.'.

APPEND I_OBJTXT.

I_OBJTXT = detail.

APPEND I_OBJTXT.

I_OBJTXT = ''.

APPEND I_OBJTXT.

I_OBJTXT = 'Thanks.'.

APPEND I_OBJTXT.

I_OBJTXT = 'Best Regards,'.

APPEND I_OBJTXT.

I_OBJTXT = 'For Bilcare Ltd.'.

APPEND I_OBJTXT.

DESCRIBE TABLE i_objtxt LINES gv_desc_lines.

*DESCRIBE TABLE i_objtxt LINES v_lines_txt.

CLEAR I_OBJTXT.

READ TABLE I_OBJTXT INDEX gv_desc_lines.

if sy-subrc = 0.

• Document information.

GS_DOCDATA-obj_name = 'ord_accept'.

GS_DOCDATA-expiry_dat = sy-datum + 10.

GS_DOCDATA-obj_descr = 'Order Acceptance'.

GS_DOCDATA-sensitivty = 'F'. "Functional object

GS_DOCDATA-doc_size = gv_desc_lines * 255.

CLEAR Gs_OBJPACK-transf_bin.

• Start line of object header in transport packet

• GS_OBJPACK-TRANSF_BIN = 'X'.

GS_OBJPACK-doc_size = gv_desc_lines * 255.

GS_OBJPACK-HEAD_START = 1.

GS_OBJPACK-HEAD_NUM = 0.

GS_OBJPACK-BODY_START = 1.

GS_OBJPACK-BODY_NUM = gv_desc_lines.

GS_OBJPACK-DOC_TYPE = 'RAW'.

• GS_OBJPACK-OBJ_NAME = 'ORDER_ACCEPTANCE'.

• GS_OBJPACK-OBJ_DESCR = 'ORDER_ACCEPTANCE.PDF'.

APPEND GS_OBJPACK TO GT_OBJPACK.

• GS_OBJPACK-HEAD_START = 1.

• GS_OBJPACK-HEAD_NUM = 0.

• GS_OBJPACK-BODY_START = 1.

• GS_OBJPACK-doc_type = 'RAW'.

*APPEND GS_OBJPACK TO GT_OBJPACK.

ENDIF.

*u2022 Passing the SAP Script text lines to SAPoffice: Single List with Column Length 255 table

CLEAR : GS_OBJBIN, GS_PDF_TAB.

LOOP AT GT_PDF_TAB INTO GS_PDF_TAB.

GV_POS = 255 - GV_LEN.

IF GV_POS > 134. "length of pdf_table

GV_POS = 134.

ENDIF.

GS_OBJBIN+GV_LEN = GS_PDF_TAB(GV_POS).

GV_LEN = GV_LEN + GV_POS.

IF GV_LEN = 255. "length of out (contents_bin)

APPEND GS_OBJBIN TO GT_OBJBIN.

CLEAR: GS_OBJBIN, GV_LEN.

IF GV_POS < 134.

GS_OBJBIN = GS_PDF_TAB+GV_POS.

GV_LEN = 134 - GV_POS.

ENDIF.

ENDIF.

ENDLOOP.

IF GV_LEN > 0.

APPEND GS_OBJBIN TO GT_OBJBIN.

ENDIF.

*u2022 Filling the details in SAPoffice: Description of Imported Object Components table

DESCRIBE TABLE GT_OBJBIN LINES GV_TAB_LINES.

CLEAR GS_OBJBIN.

READ TABLE GT_OBJBIN INTO GS_OBJBIN INDEX GV_TAB_LINES.

IF SY-SUBRC = 0.

GS_OBJPACK-DOC_SIZE = ( GV_TAB_LINES - 1 ) * 255 + STRLEN( GS_OBJBIN ).

GS_OBJPACK-TRANSF_BIN = 'X'.

GS_OBJPACK-HEAD_START = 1.

GS_OBJPACK-HEAD_NUM = 0.

GS_OBJPACK-BODY_START = 1.

GS_OBJPACK-BODY_NUM = GV_TAB_LINES.

GS_OBJPACK-DOC_TYPE = 'PDF'.

GS_OBJPACK-OBJ_NAME = 'ORDER_ACCEPTANCE'.

GS_OBJPACK-OBJ_DESCR = 'Order Acceptance'.

APPEND GS_OBJPACK TO GT_OBJPACK.

ENDIF.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

DOCUMENT_DATA = GS_DOCDATA

PUT_IN_OUTBOX = 'X'

COMMIT_WORK = 'X'

• IMPORTING

• SENT_TO_ALL =

• NEW_OBJECT_ID =

TABLES

PACKING_LIST = GT_OBJPACK

• OBJECT_HEADER = I_OBJTXT

CONTENTS_BIN = GT_OBJBIN

CONTENTS_TXT = I_OBJTXT

• CONTENTS_HEX =

• OBJECT_PARA =

• OBJECT_PARB =

RECEIVERS = GT_RECLIST

EXCEPTIONS

TOO_MANY_RECEIVERS = 1

DOCUMENT_NOT_SENT = 2

DOCUMENT_TYPE_NOT_EXIST = 3

OPERATION_NO_AUTHORIZATION = 4

PARAMETER_ERROR = 5

X_ERROR = 6

ENQUEUE_ERROR = 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.

ELSE.

• WRITE 'Sent Successfully'.

MESSAGE 'Sent Successfully' TYPE 'I'.

• CALL TRANSACTION 'YMSL20'.

• LEAVE LIST-PROCESSING.

ENDIF.

SUBMIT RSCONN01

WITH MODE EQ 'INT'

AND RETURN.

ENDFORM. " SEND_MAIL

Thanks

Ankur Sharma

[Former Member]

ok