PDF format of script output in irregular format

Question

Hi All,
I am getting script output in OTF format in 'CLOSE_FORM'
of standard sales order script.
This,I am able to send in PDF format as mail attachment by using function module 'SO_NEW_DOCUMENT_ATT_SEND_API1'.
But the alignment and format of data in the attachment doesn't exactly match with original script output.
Can anyone help me in this regard? Thanks in advance
- jawahar

Answer 1

Hi,
    disregard my earlier mail.
   fill itcpo structure and try
  <b> itcpo-tdgetotf = 'X'.    
   xdevice = 'PRINTER'.  </b>   
  CALL FUNCTION 'OPEN_FORM'
       EXPORTING
            FORM           = TNAPR-FONAM
            LANGUAGE       = NAST-SPRAS
          <b>  OPTIONS        = ITCPO</b>
            ARCHIVE_INDEX  = TOA_DARA
            ARCHIVE_PARAMS = ARC_PARAMS
            DEVICE         = XDEVICE
            DIALOG         = ' '
       IMPORTING
            RESULT         = ITCPP
       EXCEPTIONS
            OTHERS         = 1.
    CALL FUNCTION 'SX_OBJECT_CONVERT_OTF_PDF'
         EXPORTING
              FORMAT_SRC      = 'OTF'
              FORMAT_DST      = 'PDF'
              DEVTYPE         = 'HPLJ5SI'
         TABLES
              CONTENT_IN      = CONTENT_IN
              CONTENT_OUT     = CONTENT_OUT
         EXCEPTIONS
              ERR_CONV_FAILED = 1
              OTHERS          = 2.
    OBJBIN[] = CONTENT_OUT[].
endif.
  DOC_CHNG-OBJ_NAME = TEXT-003.
doc_chng-obj_descr = text-001.
  CONCATENATE TEXT-002 VBDKR-VBELN "zinvoice14-vessel
                      INTO DOC_CHNG-OBJ_DESCR SEPARATED BY SPACE.
  IF SY-SYSID NE 'S4P'.
    CONCATENATE DOC_CHNG-OBJ_DESCR TEXT-004 INTO DOC_CHNG-OBJ_DESCR
                                                SEPARATED BY SPACE.
  ENDIF.
OBJTXT = 'This is an example of a Sapscript emailed out of SAP'.
APPEND OBJTXT.
  DESCRIBE TABLE OBJTXT LINES TAB_LINES.
  READ TABLE OBJTXT INDEX TAB_LINES.
  DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
Fill the fields of the packing_list for the main document:
It is a text document
  CLEAR OBJPACK-TRANSF_BIN.
The document needs no header (head_num = 0)
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM = 0.
but it has a body
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM = TAB_LINES.
of type RAW
  OBJPACK-DOC_TYPE = 'RAW'.
  APPEND OBJPACK.
Create the attachment (the list itself)
  IF NAST-KSCHL NE 'ZSTT'.
    DESCRIBE TABLE OBJBIN LINES TAB_LINES.
Fill the fields of the packing_list for the attachment:
It is binary document
    OBJPACK-TRANSF_BIN = 'X'.
we need no header
    OBJPACK-HEAD_START = 1.
    OBJPACK-HEAD_NUM = 0.
but a body
    OBJPACK-BODY_START = 1.
    OBJPACK-BODY_NUM = TAB_LINES.
of type ALI
IF NAST-KSCHL NE 'ZSTT'.
    OBJPACK-DOC_TYPE = 'PDF'.
    OBJPACK-OBJ_NAME = 'Attachment'.
    OBJPACK-OBJ_DESCR = 'PDF file'.
    READ TABLE OBJBIN INDEX TAB_LINES.
    DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJBIN ).
    OBJPACK-DOC_SIZE = DOC_SIZE.
    APPEND OBJPACK.
  ENDIF.
get E-mail address
loop at t_tvbdkr.                                          "S4DK966284
  w_name = t_tvbdkr-tdname.                                "S4DK966284
    W_NAME = VBDKR-TDNAME.                                   "S4DK966284
    IF NAST-KSCHL EQ 'ZLEE'." or nast-kschl eq 'ZPRE'.
      PERFORM READ_TEXT USING W_NAME 'Z555' 'VBBK'.
    ENDIF.
    IF SY-SUBRC EQ 0.
      DELETE TDLINES WHERE TDFORMAT EQ '/*'
                      OR TDLINE EQ SPACE.
      LOOP AT TDLINES.
        RECIPIENT_INT-ADDRESS = TDLINES-TDLINE.
        RECLIST-RECEIVER = RECIPIENT_INT.
        RECLIST-REC_TYPE = 'U'.
        APPEND RECLIST.
      ENDLOOP.
    if sy-subrc eq 0.                                      "S4DK966284
      exit.                                                "S4DK966284
    endif.                                                 "S4DK966284
    ENDIF.
endloop.                                                 
  LOOP AT T_TVBDPR.
    CHECK T_TVBDPR-TDNAME+0(10) = VBDKR-TDNAME.              "S4DK966284
    W_NAME = T_TVBDPR-TDNAME.
    IF NAST-KSCHL EQ 'ZLEE'.
      PERFORM READ_TEXT USING W_NAME 'Z558' 'VBBP'.
    ENDIF.
    IF SY-SUBRC EQ 0.
      DELETE TDLINES WHERE TDFORMAT EQ '/*'
                      OR TDLINE EQ SPACE.
      LOOP AT TDLINES.
        RECIPIENT_INT-ADDRESS = TDLINES-TDLINE.
        RECLIST-RECEIVER = RECIPIENT_INT.
        RECLIST-REC_TYPE = 'U'.
        APPEND RECLIST.
      ENDLOOP.
    if sy-subrc eq 0.                                      "S4DK966284
      exit.                                                "S4DK966284
    endif.                                                 "S4DK966284
    ENDIF.
  ENDLOOP.
SEND THE DOCUMENT BY CALLING THE SAPOFFICE API1 MODULE
FOR SENDING DOCUMENTS WITH ATTACHMENTS
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
       EXPORTING
            DOCUMENT_DATA              = DOC_CHNG
            PUT_IN_OUTBOX              = 'X'
       IMPORTING
            SENT_TO_ALL                = SENT_TO_ALL
       TABLES
            PACKING_LIST               = OBJPACK
            OBJECT_HEADER              = OBJHEAD
            CONTENTS_BIN               = OBJBIN
            CONTENTS_TXT               = OBJTXT
            RECEIVERS                  = RECLIST
       EXCEPTIONS
            TOO_MANY_RECEIVERS         = 1
            DOCUMENT_NOT_SENT          = 2
            OPERATION_NO_AUTHORIZATION = 4
            OTHERS                     = 99.
Regards
amole