Include PDF file in a SAPscript Form

Question

Here is a good one.  Anyone ever heard of this.  I need to somehow import a PDF file into an ABAP program and include it in a sapscript form. 
Requirment:
Customer sends a PDF file to our system. We need to take this PDF file and include into a "quote" sapscript form and fax it back to the customer.
If anyone has any other ideas of how I can accomplish this task........PLEASE let me know.  Thanks.
Regards,
Rich Heilman

Answer 1

i solved a similiar problem by following:
- catch the sapsript-data in otf-format by setting
  itcpo-tdgetotf = 'X' at CALL FUNCTION 'OPEN_FORM'
- read the pdf-file from it's source
  (i.e. content server)in an internal table
- send the fax with function-module SO_DOCUMENT_SEND_API1.
  at least in 4.6c you can add attachements to the fax.
  the fax-body is the otf, the attachements are
  the pdf-files.
i suppose that your fax-software is able to send the pdf-attachements.
here is some coding i copied from my program. i simplified it to show the main steps, so it won't run immediatly. the form assumes that the otf is filled in table ZT_OTFDATE, the pdf in ZT_PDFDATA and the PDF-filesize is in Z_PDFSIZE.
*&      Form  FAX
FORM fax CHANGING pe_subrc.
  DATA
  : ls_docdata TYPE sodocchgi1
  , ls_sadrfd  TYPE sadrfd
  , l_len TYPE i
  , lt_packlist TYPE TABLE OF sopcklsti1 WITH HEADER LINE
  , lt_head TYPE TABLE OF solisti1 WITH HEADER LINE
  , lt_text TYPE TABLE OF solisti1 WITH HEADER LINE
  , lt_bin  TYPE TABLE OF solisti1 WITH HEADER LINE
  , lt_recv TYPE TABLE OF somlreci1 WITH HEADER LINE
  , l_lines TYPE i
OTF-Body
  CLEAR lt_packlist.
  DESCRIBE TABLE zt_otfdata LINES l_lines.
  lt_packlist-transf_bin = 'X'.
  lt_packlist-head_start = 1.
  lt_packlist-head_num   = 1.
  lt_packlist-doc_type   = 'OTF'.
  lt_packlist-obj_name   = 'Letter'.
  lt_packlist-obj_descr  = 'Letter'.
  lt_packlist-body_start = 1.
  lt_packlist-body_num   = l_lines.
  lt_packlist-doc_size   = lt_packlist-body_num * 255.
  APPEND lt_packlist.
  APPEND tnapr-fonam TO lt_head.
  APPEND LINES OF zt_otfdata TO lt_bin.
Attachement
  CLEAR lt_packlist.
  lt_packlist-transf_bin = 'X'.
  lt_packlist-doc_type   = 'PDF'.
  lt_packlist-obj_name   = 'filename'.
  lt_packlist-obj_descr  = 'a filedescription'.
  lt_packlist-head_start = 2.
  lt_packlist-head_num   = 1.
  DESCRIBE TABLE lt_bin LINES l_lines.
  lt_packlist-body_start = l_lines + 1.
  DESCRIBE TABLE zt_PDFDATA LINES l_lines.
  lt_packlist-body_num   = l_lines.
  lt_packlist-doc_size   = Z_PDFSIZE.
  APPEND lt_packlist.
  APPEND 'filename' TO lt_head.
  APPEND LINES OF zt_pdfdata TO lt_bin.
Receiver
  ls_sadrfd-rec_state = itcpo-tdteleland.
  ls_sadrfd-rec_fax   = itcpo-tdtelenum.
  lt_recv-receiver     = ls_sadrfd.
  lt_recv-rec_type     = 'F'.     " F=FAX U=Email
  APPEND lt_recv.
DOCUMENT HEADER
  CLEAR ls_docdata.
  ls_docdata-obj_name    = 'fax name'
  ls_docdata-obj_descr   = 'fax description'.
  ls_docdata-obj_langu   = sy-langu.
  ls_docdata-obj_sort    = sy-datum.
  ls_docdata-obj_expdat  = sy-datum + 7.
  ls_docdata-sensitivty  = 'O'.
  ls_docdata-obj_prio    = '1'.
ls_docdata-NO_CHANGE   = ''.
  ls_docdata-priority    = ls_docdata-obj_prio.
  ls_docdata-expiry_dat  = ls_docdata-obj_expdat.
ls_docdata-PROC_TYPE   = ''.
ls_docdata-PROC_NAME   = ''.
ls_docdata-PROC_SYST   = ''.
ls_docdata-PROC_CLINT  = ''.
ls_docdata-SKIP_SCREN  = ''.
ls_docdata-TO_DO_OUT   = ''.
ls_docdata-FREE_DEL    = ''.
  ls_docdata-doc_size    = l_len.
  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data                    = ls_docdata
    PUT_IN_OUTBOX                    = ' '
    SENDER_ADDRESS                   = SY-UNAME
    SENDER_ADDRESS_TYPE              = 'B'
  IMPORTING
    SENT_TO_ALL                      =
    NEW_OBJECT_ID                    =
    SENDER_ID                        =
    TABLES
      packing_list                     = lt_packlist
      object_header                    = lt_head
      contents_bin                     = lt_bin
      contents_txt                     = lt_text
    CONTENTS_HEX                     =
    OBJECT_PARA                      =
    OBJECT_PARB                      =
      receivers                        = lt_recv
    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.
    pe_subrc = sy-subrc.
    PERFORM protocol_update.
  ENDIF.
ENDFORM.