Re: SMARTFORMS - Data fetching from Four tables

Hi,

1) First you declare your internal tables and work area in program

2)prepare the interface between smart form and program . In smartform Global Settings----->Form interface

3)Call the function module in your program.

A Simple Example i am giving here..

TABLES : ZCFRMISU.

types: begin of TY_ZCFRMISU.

       include structure zsacform.

types: end of TY_ZCFRMISU.

data: IT_DETAILS type TY_ZCFRMISU occurs 0 with header line,

      WA_DETAILS type TY_ZCFRMISU.

DATA: WA_ZCFRMISU TYPE ZCFRMISU,

      v_fm TYPE RS38L_FNAM.

************************SELECTION SCREEN******************************

selection-screen begin of block b1 with frame title text-001.

select-options S_FRMNO for ZCFRMISU-FRMNO obligatory DEFAULT '2135676'.

selection-screen end of block b1.

***********************AT SELECTION-SCREEN.***************************

AT SELECTION-SCREEN.

AT SELECTION-SCREEN ON S_FRMNO.

  SELECT SINGLE * FROM ZCFRMISU WHERE FRMNO in S_FRMNO.

  IF sy-subrc <> 0.

  MESSAGE E001 WITH 'No Table Entries Found'.

  EXIT.

  ENDIF.

****************START-OF-SELECTION.**********************************

START-OF-SELECTION.

SELECT EBELN

         BLDAT

         BILLAMT

         INTO CORRESPONDING FIELDS OF TABLE IT_DETAILS FROM ZCFRMISU

         WHERE FRMNO in S_FRMNO.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

    EXPORTING

      FORMNAME                 ='ZSA_FORMS_ISSUE'               //Smartform name

•   VARIANT                  = ' '
•   DIRECT_CALL              = ' '

IMPORTING    FM_NAME                  = v_fm

• 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 v_fm

    EXPORTING

•   ARCHIVE_INDEX              =
•   ARCHIVE_INDEX_TAB          =
•   ARCHIVE_PARAMETERS         =
•   CONTROL_PARAMETERS         =
•   MAIL_APPL_OBJ              =
•   MAIL_RECIPIENT             =
•   MAIL_SENDER                =
•   OUTPUT_OPTIONS             =
•   USER_SETTINGS              = 'X'

      WA_ZCFRMISU                = WA_ZCFRMISU

• IMPORTING
•   DOCUMENT_OUTPUT_INFO       =
•   JOB_OUTPUT_INFO            =
•   JOB_OUTPUT_OPTIONS         =

    TABLES      IT_DETAILS                 = IT_DETAILS                 //final internal table

• 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.