Smartform driver prog

[Former Member]

Hi All,

please share the smartform prog code, if you have

[Former Member]

Hi

Search in SCN....It is already posted many a times...

[Former Member]

Hi

Use the FM SSF_FUNCTION_MODULE_NAME and pass ur smartform name and get the FM name for ur smartform into a variable 'xyz'

Now call the FM using the variable like CALL FUNCTION xyz.

Pass all ur parameters, structures, and/or int table in this FM

This will generate ur smartform

Regards

Winnie

[Former Member]

Hi,

Use the FM SSF_FUNCTION_MODULE_NAME for which u have the pass the ur smartform name and fetch the FM name into a variable.

Then call the FM using the CALL FUNCTION and pass the required parameters to your smartform from the driver program.

Regards,

Bharathi.

[Former Member]

Hi Suprith,

Below is the sample code for smartforms driver program

ABLES : KNA1.

DATA : IT_KNA1 TYPE  ZMK_TT_SF11,
       WA_KNA1 TYPE  ZMK_SF11.
DATA : G_SF_NAME TYPE RS38L_FNAM.

DATA :  W_CNTRL_PARAMETERS TYPE SSFCTRLOP,
        IT_OUTPUT_INFO      TYPE SSFCRESCL,
        W_OUTPUT_OPTIONS    TYPE SSFCOMPOP.

DATA : IT_OTF        TYPE ITCOO OCCURS 0 WITH HEADER LINE,
       IT_PDF_LINES  LIKE TABLE OF TLINE WITH HEADER LINE..

DATA : W_BIN_FILESIZE TYPE I,
       W_BUFFER       TYPE STRING,
       V_LINES_TXT    TYPE I,
       V_LINES_BIN    TYPE I,
       WA_DOC_CHNG    TYPE SODOCCHGI1,
       WA_OBJHEAD     TYPE SOLI_TAB.



DATA : I_RECORD LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.

DATA : I_OBJPACK LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,
       I_OBJTXT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
       I_OBJBIN LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
       I_RECLIST LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE.

SELECT-OPTIONS : SO_KUNNR FOR KNA1-KUNNR.


SELECT KUNNR  NAME1 ORT01
       LAND1 INTO  TABLE IT_KNA1 FROM KNA1
       WHERE KUNNR IN SO_KUNNR.

LOOP AT IT_KNA1 INTO WA_KNA1.
  MOVE SY-TABIX TO WA_KNA1-LOOP_NO.
  MODIFY IT_KNA1 FROM WA_KNA1.
ENDLOOP.


CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
  EXPORTING
    FORMNAME                 = 'ZMK_SF_TEST11'
*    VARIANT                  = ' '
*    DIRECT_CALL              = ' '
  IMPORTING
    FM_NAME                  = G_SF_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.

*** CONTROL PARAMETERS

W_CNTRL_PARAMETERS-NO_DIALOG  = 'X'.
W_CNTRL_PARAMETERS-GETOTF     = 'X'.
*W_CNTRL_PARAMETERS-PREVIEW    = 'SPACE'.

*****OUTPUT_OPTIONS.
W_OUTPUT_OPTIONS-TDDEST = 'LP01'.

CALL FUNCTION  G_SF_NAME
 EXPORTING
*   ARCHIVE_INDEX              =
*   ARCHIVE_INDEX_TAB          =
*   ARCHIVE_PARAMETERS         =
    CONTROL_PARAMETERS         = W_CNTRL_PARAMETERS
*   MAIL_APPL_OBJ              =
*   MAIL_RECIPIENT             =
*   MAIL_SENDER                =
*    OUTPUT_OPTIONS             = W_OUTPUT_OPTIONS
*   USER_SETTINGS              = 'X'
  IMPORTING
*   DOCUMENT_OUTPUT_INFO       =
    JOB_OUTPUT_INFO            = IT_OUTPUT_INFO
*   JOB_OUTPUT_OPTIONS         =
  TABLES
    SF_KNA1                    = IT_KNA1
  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.

regards

Kumar M