Skip to Content
0
Former Member
Nov 12, 2008 at 10:43 AM

Form doesn't exists after calling driver program

67 Views

Hi,

I had created a invoice form, and i called through driver program in se38.After executing i m getting as 'Form doesn't exists'.

'zinvoice1' is the name of the smartform.

Code as follows:

REPORT ZINVOICE1.

tables: kna1,vbrp,vbrk.

parameters: p_kunnr like vbrk-kunag,

p_vbeln like vbrk-vbeln.

data : fm_name type rs38l_fnam.

data: t_vbrp like standard table of vbrp,

t_vbrk like standard table of vbrk.

data: fs_kna1 type kna1,

fs_vbrk like line of t_vbrk,

fs_vbrp like line of t_vbrp.

start-of-selection.

select single * from kna1 into fs_kna1

where kunnr eq p_kunnr.

select * from vbrk into table t_vbrk

where kunag eq p_kunnr and vbeln eq p_vbeln.

select * from vbrp into table t_vbrp for all entries in t_vbrk

where vbeln = t_vbrk-vbeln.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'zinvoice1'

  • 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 '/1BCDWB/SF00000050'

EXPORTING

  • ARCHIVE_INDEX =

  • ARCHIVE_INDEX_TAB =

  • ARCHIVE_PARAMETERS =

  • CONTROL_PARAMETERS =

  • MAIL_APPL_OBJ =

  • MAIL_RECIPIENT =

  • MAIL_SENDER =

  • OUTPUT_OPTIONS =

  • USER_SETTINGS = 'X'

IM_FS_KNA1 = fs_kna1

IM_T_VBRP = t_vbrp

  • IMPORTING

  • DOCUMENT_OUTPUT_INFO =

  • JOB_OUTPUT_INFO =

  • JOB_OUTPUT_OPTIONS =

TABLES

IM_T_VBRK = t_vbrk

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