Driver Program of Smartform

[Former Member]

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

[Former Member]

Hi

REPORT ZSMARTFORM.

• Calling SMARTFORMS from your ABAP program.

• Collecting all the table data in your program, and pass once to SMARTFORMS

• SMARTFORMS

• Declare your table type in :-

• Global Settings -> Form Interface

• Global Definintions -> Global Data

• Main Window -> Table -> DATA

• Written by : SAP Hints and Tips on Configuration and ABAP/4 Programming

• http://sapr3.tripod.com

TABLES: MKPF.

DATA: FM_NAME TYPE RS38L_FNAM.

DATA: BEGIN OF INT_MKPF OCCURS 0.

INCLUDE STRUCTURE MKPF.

DATA: END OF INT_MKPF.

SELECT-OPTIONS S_MBLNR FOR MKPF-MBLNR MEMORY ID 001.

SELECT * FROM MKPF WHERE MBLNR IN S_MBLNR.

MOVE-CORRESPONDING MKPF TO INT_MKPF.

APPEND INT_MKPF.

ENDSELECT.

• At the end of your program.

• Passing data to SMARTFORMS

call function 'SSF_FUNCTION_MODULE_NAME'

exporting

formname = 'ZSMARTFORM'

• VARIANT = ' '

• DIRECT_CALL = ' '

IMPORTING

FM_NAME = FM_NAME

EXCEPTIONS

NO_FORM = 1

NO_FUNCTION_MODULE = 2

OTHERS = 3.

if sy-subrc <> 0.

WRITE: / 'ERROR 1'.

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

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

endif.

call function FM_NAME

• EXPORTING

• ARCHIVE_INDEX =

• ARCHIVE_INDEX_TAB =

• ARCHIVE_PARAMETERS =

• CONTROL_PARAMETERS =

• MAIL_APPL_OBJ =

• MAIL_RECIPIENT =

• MAIL_SENDER =

• OUTPUT_OPTIONS =

• USER_SETTINGS = 'X'

• IMPORTING

• DOCUMENT_OUTPUT_INFO =

• JOB_OUTPUT_INFO =

• JOB_OUTPUT_OPTIONS =

TABLES

GS_MKPF = INT_MKPF

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.

<b>Reward points for useful Answers</b>

Regards

Anji

[Former Member]

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

[Former Member]

Hi,

Refer

https://forums.sdn.sap.com/click.jspa?searchID=4394850&messageID=1932425

https://forums.sdn.sap.com/click.jspa?searchID=4394850&messageID=2244182

Regards

[Former Member]

Hi Jain.

TABLES: MARA.

DATA: F_NAME TYPE RS38L_FNAM.

DATA: BEGIN OF IT_MARA OCCURS 0.

INCLUDE STRUCTURE MARA.

DATA: END OF IT_MARA.

SELECT-OPTIONS S_MATNR FOR MARA-MATNR.

SELECT * FROM MARA INTO TABLE IT_MARA WHERE MATNR IN S_MATNR.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZSF_FORM'

• VARIANT = ' '

• DIRECT_CALL = ' '

IMPORTING

FM_NAME = F_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.

call function F_NAME

• EXPORTING

• ARCHIVE_INDEX =

• ARCHIVE_INDEX_TAB =

• ARCHIVE_PARAMETERS =

• CONTROL_PARAMETERS =

• MAIL_APPL_OBJ =

• MAIL_RECIPIENT =

• MAIL_SENDER =

• OUTPUT_OPTIONS =

• USER_SETTINGS = 'X'

• IMPORTING

• DOCUMENT_OUTPUT_INFO =

• JOB_OUTPUT_INFO =

• JOB_OUTPUT_OPTIONS =

TABLES

GS_MKPF = IIT_MARA

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.

Reward points for all helpful Answers

Kiran.M

[Former Member]

Hi,

First bring all the data in internal table int_final & dsescribe a structure similar to int_final in se11(here I'm using ZFIR_VEN_WHTAX_CERT).

IF NOT int_final[] IS INITIAL.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

formname = p_form

IMPORTING

fm_name = fm_name

EXCEPTIONS

no_form = 1

no_function_module = 2

OTHERS = 3.

control-no_open = 'X'.

control-no_close = 'X'.

CALL FUNCTION 'SSF_OPEN'

EXPORTING

control_parameters = control

• IMPORTING

• JOB_OUTPUT_OPTIONS = WF_JOB_OUTPUT_OPTIONS

EXCEPTIONS

formatting_error = 1

internal_error = 2

send_error = 3

user_canceled = 4

OTHERS = 5.

IF sy-subrc <> 0.

EXIT.

ENDIF.

LOOP AT INT_FINAL.

MOVE-CORRESPONDING INT_FINAL TO INT_FINAL1.

APPEND INT_FINAL1.

AT END OF LIFNR.

CALL FUNCTION fm_name

EXPORTING

control_parameters = control

TABLES

zven_whtax_cert = int_final1.

CLEAR INT_FINAL1.

REFRESH: INT_FINAL1.

ENDAT.

ENDLOOP.

CALL FUNCTION 'SSF_CLOSE'

• IMPORTING

• JOB_OUTPUT_INFO = WF_FLAG

EXCEPTIONS

formatting_error = 1

internal_error = 2

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

ELSE.

MESSAGE I004(ZBHI) WITH text-005.

ENDIF.

ENDFORM.

Hope this helps.

Reward if helps.

Regards,

Sipra

[Former Member]

HI

You should use 'SSF_FUNCTION_MODULE_NAME' & call function fm_name in your program & not others.

.

Tables : sflight.
Data : fm_name TYPE rs38l_fnam.

*data : Begin of it_flttab occurs 0,
*        carrid type sflight-carrid,
*        connid type sflight-connid,
*        fldate type sflight-fldate,
*        seatsmax type sflight-seatsmax,
*        seatsocc type sflight-seatsocc,
*        End of it_flttab.

data : it_flttab like table  of sflight.
Data : g_salary type i .
*       it_flttab type standard table of ty_flt.
g_salary = 1000.


select carrid connid fldate seatsmax seatsocc from sflight into
corresponding fields of table it_flttab.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
  EXPORTING
    formname                 = 'ZTACA_SMFORM2'
*   VARIANT                  = ' '
*   DIRECT_CALL              = ' '
 IMPORTING
   FM_NAME                  = fm_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.

call function fm_name
  Exporting
     salary = g_salary
  TABLES
     it_flttab = it_flttab
  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.

Reward all helpfull answers

Regards

Pavan

[Former Member]

Hi folks,

Can any one tell me why the following Function Module is needed?

call function fm_name
  Exporting
     salary = g_salary
  TABLES
     it_flttab = it_flttab
  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.

What is the basic use of following FM in driver program?

Thanks

Siddarth

[Former Member]

as u know that when u activate SF it will generate one FM , so u have to call that FM.

u can see the FM name of that SF in debug mode.

Regards

Peram

[Former Member]

Hi Jain,

This is the function module which is used to pass data to smart forms.

the function module

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

formname = lf_formname

• VARIANT = ' '

• DIRECT_CALL = ' '

IMPORTING

fm_name = fm_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.

will get the name of smartform funtion module in Fm_name.

Reward if lhelpful

Regards

Azad.

[Former Member]

Hi

As u activate any smartform a fm will be generated automatically so to call a asmartform u have to call that fm also compulsory

Reward all helpfull answers

Regards

Pavan

[Former Member]

Thanks for all your responses.