Skip to Content
avatar image
Former Member

smartform driver program

Hi,

can u plz send me one realtime sample smartform driver program if possible invoice from and credit form

regards

Siri

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

2 Answers

  • avatar image
    Former Member
    Jul 04, 2006 at 01:14 AM

    Hi,

    You can used RLB_INVOICE driver program for invoice/credit forms.

    Cheers,

    Rye

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Jul 04, 2006 at 03:27 AM

    hi

    good

    THIS IS A SAMPLE DRIVER PROGRAM

    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

    *

    *

    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.

    AND YOU CAN IMPLEMENT YOUR OWN SMARTFORM DRIVER PROGRAM USING THIS LOGIC

    THANKS

    MRUTYUN

    Add comment
    10|10000 characters needed characters exceeded