Driver Program of Smartform

Question

Hi Folks,
Can any body post the sample driver program of smart form? I need the same to call a smartform which created.
thanks
Siddarth

Answer 1

Hi,
Check this....
*& Report  ZSEND_PDF_EMAIL
REPORT  zsend_pdf_email.
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 = '[email protected]'.
  mailrec-rec_type = 'U'.
  APPEND mailrec.
Sending the document
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = maildata
      put_in_outbox              = 'X'
    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.
commit work.
ENDFORM.                    "SEND_FORM_VIA_EMAIL
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.                    "PREPARE_PACKING_LIST
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.
  data control type SSFCTRLOP.
  data output type SSFCOMPOP.
  data otfdata type SSFCRESCL.
  control-getotf = 'X'.
  OUTPUT-TDDEST = 'Lp01'.
control-DEVICE = 'LOCL'.
  control-NO_DIALOG = 'X'.
  CLEAR itcpo.
  itcpo-tdgetotf = 'X'.
CALL FUNCTION '/1BCDWB/SF00000279'
EXPORTING
   CONTROL_PARAMETERS         = control
   OUTPUT_OPTIONS             = output
   USER_SETTINGS              = ' '
IMPORTING
  DOCUMENT_OUTPUT_INFO       =
   JOB_OUTPUT_INFO            = otfdata
  JOB_OUTPUT_OPTIONS         =
EXCEPTIONS
   FORMATTING_ERROR           = 1
   INTERNAL_ERROR             = 2
   SEND_ERROR                 = 3
   USER_CANCELED              = 4
   OTHERS                     = 5.
IF sy-subrc <> 0.
ENDIF.
Move OTF code to structure SOLI form email
  CLEAR solisti1. REFRESH solisti1.
  LOOP AT otfdata-otfdata into otf.
    solisti1-line = otf.
    APPEND solisti1.
  ENDLOOP.
ENDFORM.                    "GET_OTF_CODE
Regards,
Sankar