Function Module in SmartForm

[Former Member]

Hellow experts,

Here i have one Function Module like ZSAMPLE1.

I want to display it output in SmartForm.

What should I do for this. Pls help me.

with regards

babu

[Former Member]

Hi babu ,

Have you got the answer? if the answer is no then

In your FM Zsample ,let us say u are getting v_matnr as import parameter.

If u want to print the same using smartforms ,follow the 2 steps

1. create a smartform z_sample1 with v_matnr as importing parameters in the form interface.

use a text element u can print the same

2. Now in your FM use the following 2 fms

call function 'SSF_FUNCTION_MODULE_NAME'

exporting

formname = 'Z_SAMPLE1'

importing

fm_name = v_form_name

NOW V_FORM_NAME will have the FM name of the smartform .

call function v_form_name

exporting

v_matnr = p_matnr

exceptions

formatting_error = 1

internal_error = 2

send_error = 3

user_canceled = 4

others = 5.

.

Reward poits if u find it useful

-Sapsurfer

Edited by: SapSurfer on Mar 20, 2008 6:21 PM

[Former Member]

Hi look this code it will use ful to u

report zpsr3m_invoice_coversheet no standard page heading

message-id zps.

- -

---

tables: proj,

prps,

vbrk,

vbrp,

bseg,

likp,

pa0105,

pa0002,

t001,

adrc,

konv,

tvzbt.

-{ Type Definitions } -

---

types: begin of typ_prps,

pspnr like prps-pspnr,

end of typ_prps,

begin of typ_aufnr,

aufnr like afko-aufnr,

end of typ_aufnr,

begin of typ_vbeln,

vbeln like vbrk-vbeln,

end of typ_vbeln,

begin of typ_konv,

knumv like konv-knumv,

kposn like konv-kposn,

kwert like konv-kwert,

end of typ_konv.

-{ Internal Tables } -

---

data: gt_invitems like standard table of zpss_rrbinv_items

with header line,

gt_pspnr type standard table of typ_prps

with header line,

gt_aufnr type standard table of typ_aufnr

with header line,

gt_vbeln type standard table of typ_vbeln

with header line,

gt_konv type standard table of typ_konv

with header line.

data: gt_mess_att like solisti1 occurs 0 with header line.

-{ Work Areas } -

---

data: gst_invheader like zpss_rrbinv_header,

begin of gwa_bseg,

bukrs like bseg-bukrs,

belnr like bseg-belnr,

gjahr like bseg-gjahr,

txdat like bseg-txdat,

filkd like bseg-filkd,

end of gwa_bseg.

data: gst_control_parameters type ssfctrlop,

gst_output_options type ssfcompop,

gt_job_output_info type ssfcrescl,

gt_output_options type ssfcresop.

- -

---

constants: gc_formname type tdsfname value 'ZPS_INVOICE_COVERSHEET1',

gc_usrty like pa0105-usrty value '0001'.

- -

---

data: gv_fm_name type rs38l_fnam,

gv_pernr like pa0105-pernr,

gv_uname like sy-uname.

- -

---

ranges: gr_pspnr for prps-pspnr,

gr_aufnr for afko-aufnr.

-{ Selection - Screen } -

---

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

parameters: gp_pspid like proj-pspid memory id psp,

gp_vbeln like vbrk-vbeln.

selection-screen end of block blk1.

selection-screen begin of block blk2 with frame title text-002.

parameters: gp_layut type tdsfname , "LIKE vbrp-arktx , "DEVK933900

gp_logo like rstxt-tdname default 'RRB_KBR_COLOR' .

selection-screen end of block blk2.

selection-screen begin of block blk3 with frame title text-009.

parameters: gp_norm radiobutton group r1 default 'X',

gp_pdf radiobutton group r1 .

selection-screen end of block blk3.

-{AT SELECTION-SCREEN } -

---

at selection-screen on gp_pspid.

if gp_pspid is not initial.

perform f_validate_project.

• ELSE.

• MESSAGE E000 WITH

• 'Enter any Project definition...'(006).

endif.

at selection-screen on gp_vbeln.

if gp_vbeln is not initial.

perform f_validate_billing_doc.

else.

message e000 with

'Enter Invoice Number.....'(005).

endif.

at selection-screen output.

gp_pspid = gp_pspid.

at selection-screen on value-request for gp_logo.

perform f_get_logo changing gp_logo.

at selection-screen on value-request for gp_vbeln.

perform f_get_invoice changing gp_vbeln.

-{ START-OF-SELECTION } -

---

start-of-selection.

• Get the other data for the form.

perform f_get_other_invoice_details.

• Call the SMART FORM to print the invoice.

perform f_print_invoice_covsheet.

&----

---

*& Form F_GET_LOGO

&----

---

• To get the Invoice LOGO to print in the SMART FORMS

----

---

• <--EV_LOGO text

----

---

form f_get_logo changing ev_logo.

ev_logo = 'RRB_KBR_COLOR'.

endform. " F_GET_LOGO

&----

---

*& Form F_VALIDATE_PROJECT

&----

---

• To validate the project definition entered

----

---

form f_validate_project .

select single *

from proj

where pspid = gp_pspid.

if sy-subrc ne 0.

message e000 with

'Project definition not found..........'(003).

endif.

endform. " F_VALIDATE_PROJECT

&----

---

*& Form f_validate_billing_doc

&----

---

• To validate the Billing document

----

---

form f_validate_billing_doc .

• Get all the project elements

perform f_get_project_data.

if gp_pspid is not initial.

if gr_pspnr[] is not initial or

gr_aufnr[] is not initial.

• Check the billing document is from the current project only.

select mvgr1 mvgr2 mvgr3 mvgr4 mvgr5 matnr arktx vbeln posnr netwr

vrkme

into table gt_invitems

from vbrp

where vbeln eq gp_vbeln

and ( ps_psp_pnr in gr_pspnr or

aufnr in gr_aufnr ).

if sy-subrc eq 0.

select single vbeln bstnk_vf zterm stceg

bukrs waerk belnr gjahr

ernam knumv kunrg fkdat

into (gst_invheader-vbeln,

gst_invheader-bstnk_vf,

gst_invheader-zterm,

gst_invheader-stceg,

gwa_bseg-bukrs,

gst_invheader-waerk,

gwa_bseg-belnr,

gwa_bseg-gjahr,

vbrk-ernam,

vbrk-knumv,

gst_invheader-kunrg,

vbrk-fkdat)

from vbrk

where vbeln = gp_vbeln.

else.

message e037 with gp_pspid.

• Invoice does not belong to any WBS/Netowrk of the project:

endif.

endif.

else.

select single vbeln bstnk_vf zterm stceg

bukrs waerk belnr gjahr

ernam knumv kunrg fkdat

into (gst_invheader-vbeln,

gst_invheader-bstnk_vf,

gst_invheader-zterm,

gst_invheader-stceg,

gwa_bseg-bukrs,

gst_invheader-waerk,

gwa_bseg-belnr,

gwa_bseg-gjahr,

vbrk-ernam,

vbrk-knumv,

gst_invheader-kunrg,

vbrk-fkdat)

from vbrk

where vbeln = gp_vbeln.

endif.

endform. " f_validate_billing_doc

&----

---

*& Form f_get_project_data

&----

---

• text

----

---

form f_get_project_data .

clear: gt_pspnr, gt_pspnr[],

gt_aufnr, gt_aufnr[],

gr_pspnr, gr_pspnr[],

gr_aufnr, gr_aufnr[].

• Get the project

if gp_pspid is initial.

get parameter id 'PSP' field gp_pspid.

endif.

check gp_pspid is not initial.

select single *

from proj

where pspid = gp_pspid.

• First get all the wbs elements of the project

select pspnr

into table gt_pspnr

from prps

where psphi = proj-pspnr.

if sy-subrc eq 0.

loop at gt_pspnr.

gr_pspnr-sign = 'I'.

gr_pspnr-option = 'EQ'.

gr_pspnr-low = gt_pspnr-pspnr.

append gr_pspnr.

endloop.

endif.

• Get all the networks.

select distinct aufnr

into table gt_aufnr

from caufv

where pronr eq proj-pspnr.

if sy-subrc eq 0.

loop at gt_aufnr.

gr_aufnr-sign = 'I'.

gr_aufnr-option = 'EQ'.

gr_aufnr-low = gt_aufnr-aufnr.

append gr_aufnr.

endloop.

endif.

endform. " f_get_project_data

&----

---

*& Form f_get_invoice

&----

---

• text

----

---

• <--EV_VBELN text

----

---

form f_get_invoice changing ev_vbeln.

data: lv_fieldname like help_info-fieldname,

lv_tabname like help_info-tabname,

lv_value like help_info-fldvalue,

lv_index like sy-tabix.

data: lt_fields like help_value occurs 0 with header line,

lt_dynpread like dynpread occurs 0 with header line.

lt_dynpread-fieldname = 'GP_PSPID'.

append lt_dynpread.

• Read the screen input first.

call function 'DYNP_VALUES_READ'

exporting

dyname = sy-repid

dynumb = sy-dynnr

tables

dynpfields = lt_dynpread

exceptions

invalid_abapworkarea = 1

invalid_dynprofield = 2

invalid_dynproname = 3

invalid_dynpronummer = 4

invalid_request = 5

no_fielddescription = 6

invalid_parameter = 7

undefind_error = 8

double_conversion = 9

stepl_not_found = 10

others = 11.

if sy-subrc <> 0.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

else.

read table lt_dynpread with key fieldname = 'GP_PSPID'.

if sy-subrc eq 0.

gp_pspid = lt_dynpread-fieldvalue.

endif.

endif.

if gp_pspid is not initial.

• Get the project data first

perform f_get_project_data.

• Get the invoice list now.

if gr_pspnr[] is not initial.

select distinct vbeln

into table gt_vbeln

from vbrp

where ps_psp_pnr in gr_pspnr.

endif.

if gr_aufnr[] is not initial.

select distinct vbeln

appending table gt_vbeln

from vbrp

where aufnr in gr_aufnr .

endif.

else.

select vbeln

into table gt_vbeln

from vbrk.

endif.

if gt_vbeln[] is not initial.

lt_fields-tabname = lv_tabname = 'VBRK'.

lt_fields-fieldname = lv_fieldname = 'VBELN'.

lt_fields-selectflag = 'X'.

append lt_fields.

call function 'HELP_VALUES_GET_NO_DD_NAME'

exporting

cucol = '5'

curow = '5'

selectfield = lv_fieldname

titel = text-008 "'Select Any Value'

importing

ind = lv_index

select_value = lv_value

tables

fields = lt_fields

full_table = gt_vbeln

exceptions

full_table_empty = 1

no_tablestructure_given = 2

no_tablefields_in_dictionary = 3

more_then_one_selectfield = 4

no_selectfield = 5

others = 6.

if sy-subrc <> 0.

message s000 with

'No Invoices found for the project definition..'(007).

else.

clear gt_vbeln.

read table gt_vbeln index lv_index.

ev_vbeln = gt_vbeln-vbeln.

endif.

else.

message s000 with

'No Invoices found for the project definition..'(007).

endif.

endform. " f_get_invoice

&----

---

*& Form F_PRINT_INVOICE_COVSHEET

&----

---

• text

----

---

form f_print_invoice_covsheet .

• Call the function module to get the name of the

• function module name which will be generated dynamically for

• the layout

call function 'SSF_FUNCTION_MODULE_NAME'

exporting

• formname = gc_formname

formname = gp_layut

importing

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

• ----------------------------------------------------------------*

• Set up the output options for the smart form

clear gst_output_options.

• GST_OUTPUT_OPTIONS-tddest = sy-pdest.

gst_output_options-tddest = 'FWIN'. "Frontend printer

gst_output_options-tdnewid = sy-prnew.

gst_output_options-tdimmed = 'X'.

gst_output_options-tddelete = sy-prrel.

clear gst_control_parameters.

• Setup to generate OTF internal table

gst_control_parameters-no_dialog = 'X'.

gst_control_parameters-getotf = 'X'.

gst_control_parameters-preview = 'X'. "Deactivate preview!

if gp_norm is not initial.

• Call the original function module.

call function gv_fm_name

exporting

inv_header = gst_invheader

tables

inv_data = gt_invitems

exceptions

formatting_error = 1

internal_error = 2

send_error = 3

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

• Call the original function module.

call function gv_fm_name

exporting

control_parameters = gst_control_parameters

output_options = gst_output_options

inv_header = gst_invheader

importing

job_output_info = gt_job_output_info

job_output_options = gt_output_options

tables

inv_data = gt_invitems

exceptions

formatting_error = 1

internal_error = 2

send_error = 3

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

*----

---

• Display PDF Preview Screen

perform pdf_preview using gt_job_output_info-otfdata.

endif.

endform. " F_PRINT_INVOICE_COVSHEET

&----

---

*& Form f_get_other_invoice_details

&----

---

• text

----

---

form f_get_other_invoice_details .

data: lv_index like sy-tabix,

lwa_invitems like gt_invitems.

data: lt_invitems like gt_invitems occurs 0 with header line,

lt_invitems1 like gt_invitems occurs 0 with header line.

• Get the prepared by person name.

if gst_invheader-ernam is not initial.

select single pernr

into pa0105-pernr

from pa0105

where usrty = gc_usrty

and usrid = gst_invheader-ernam.

select nachn vorna

up to 1 rows

into (pa0002-nachn, pa0002-vorna)

from pa0002

where pernr = pa0105-pernr.

endselect.

condense: pa0002-nachn, pa0002-vorna.

concatenate pa0002-nachn pa0002-vorna

into gst_invheader-ernam

separated by space.

endif.

• Get logo

move gp_logo to gst_invheader-logo.

• Write the date as required.

if vbrk-fkdat is not initial and

vbrk-fkdat ne '00000000'.

perform f_write_date changing gst_invheader-txdat.

endif.

• Get the description for Payment terms

select single *

from tvzbt

where spras eq sy-langu

and zterm eq gst_invheader-zterm.

if sy-subrc eq 0.

condense: tvzbt-vtext, gst_invheader-zterm.

concatenate gst_invheader-zterm '-' tvzbt-vtext

into gst_invheader-zterm.

endif.

• Get the billing address.

select adrnr

up to 1 rows

into gst_invheader-adrnr

from vbpa

where vbeln = gst_invheader-vbeln

and parvw = 'RE'.

endselect.

if sy-subrc ne 0.

message i000 with

'Billing Party address of Customer is not maintained..'(009).

stop.

endif.

• Get the company code address (Registered Address).

select single adrnr

into t001-adrnr

from t001

where bukrs = gwa_bseg-bukrs.

if sy-subrc eq 0.

select name1 street city1 post_code1

region country

up to 1 rows

into (adrc-name1, adrc-street, adrc-city1, adrc-post_code1,

adrc-region, adrc-country)

from adrc

where addrnumber = t001-adrnr

and date_from le sy-datum.

endselect.

if sy-subrc eq 0.

condense: adrc-name1, adrc-street, adrc-city1,

adrc-post_code1, adrc-region, adrc-country.

concatenate adrc-name1 ', ' adrc-street

into gst_invheader-zzregoff_line1.

concatenate adrc-city1 ', ' adrc-region ', '

adrc-country ' ' adrc-post_code1

into gst_invheader-zzregoff_line2.

endif.

endif.

gv_uname = vbrk-ernam.

• Get the Prepared by Person name.

call function 'CRIF_GET_EMPLOYEE_FOR_USER' "just like this

exporting

user_name = gv_uname

begindate = sy-datum

enddate = sy-datum

importing

employeenumber = gv_pernr

exceptions

no_employeenumber_found = 1

subtype_not_available = 2

others = 3.

if sy-subrc eq 0.

select single *

from pa0002

where pernr = gv_pernr

and begda le sy-datum

and endda ge sy-datum.

concatenate pa0002-vorna pa0002-nachn into

gst_invheader-ernam separated by space.

endif.

• Get the Invoice items

if gt_invitems[] is initial.

select mvgr1 mvgr2 mvgr3 mvgr4 mvgr5 matnr arktx vbeln posnr netwr

into table gt_invitems

from vbrp

where vbeln eq gp_vbeln.

if sy-subrc eq 0.

sort gt_invitems by mvgr1 mvgr2 mvgr3 mvgr4 mvgr5 arktx matnr.

endif.

endif.

• Get the VAT on the billing items through condition

• type 'MWST'.

if gt_invitems[] is not initial.

select knumv kposn kwert

into table gt_konv

from konv

for all entries in gt_invitems

where knumv = vbrk-knumv

and kposn = gt_invitems-posnr

and kschl = 'MWST'.

if sy-subrc eq 0.

• Now loop through the condition value table and modify the invoice item

• table.

sort gt_konv by knumv kposn.

loop at gt_invitems.

lv_index = sy-tabix.

read table gt_konv with key knumv = vbrk-knumv

kposn = gt_invitems-posnr

binary search.

if sy-subrc eq 0.

gt_invitems-kwert = gt_konv-kwert.

modify gt_invitems index lv_index transporting kwert.

endif.

lt_invitems = gt_invitems.

at end of arktx.

sum.

move: gt_invitems-netwr to lt_invitems-netwr,

gt_invitems-kwert to lt_invitems-kwert.

collect lt_invitems.

endat.

endloop.

• Take the summarized table for display in the output.

clear gt_invitems[].

gt_invitems[] = lt_invitems[].

clear lt_invitems[].

free lt_invitems[].

else.

loop at gt_invitems.

lt_invitems = gt_invitems.

clear: lt_invitems-vbeln, lt_invitems-posnr.

at end of arktx.

sum.

move: gt_invitems-netwr to lt_invitems-netwr,

gt_invitems-kwert to lt_invitems-kwert.

collect lt_invitems.

endat.

endloop.

• Take the summarized table for display in the output.

clear gt_invitems[].

gt_invitems[] = lt_invitems[].

clear lt_invitems[].

free lt_invitems[].

endif.

• sort the table.

lt_invitems1[] = gt_invitems[].

delete lt_invitems1 where mvgr1 ne space or

mvgr2 ne space or

mvgr3 ne space or

mvgr4 ne space or

mvgr5 ne space.

delete gt_invitems where mvgr1 = space and

mvgr2 = space and

mvgr3 = space and

mvgr4 = space and

mvgr5 = space.

sort gt_invitems by mvgr1 mvgr2 mvgr3 mvgr4 mvgr5.

• Now, construct the output table with mat grp descriptions

loop at gt_invitems.

lwa_invitems = gt_invitems.

clear: lt_invitems-arktx,

lt_invitems-netwr,

lt_invitems-kwert.

• Material group 1

at new mvgr1.

if lwa_invitems-mvgr1 is not initial.

select single bezei from tvm1t into lt_invitems-arktx

where spras = sy-langu

and mvgr1 = lwa_invitems-mvgr1.

append lt_invitems.

endif.

endat.

• Material group 2

clear: lt_invitems-arktx,

lt_invitems-netwr,

lt_invitems-kwert.

at end of mvgr2.

if lwa_invitems-mvgr2 is not initial.

select single bezei from tvm2t into lt_invitems-arktx

where spras = sy-langu

and mvgr2 = lwa_invitems-mvgr2.

if lt_invitems-mvgr3 is initial and

lt_invitems-mvgr4 is initial and

lt_invitems-mvgr5 is initial.

sum.

move: gt_invitems-netwr to lt_invitems-netwr,

gt_invitems-kwert to lt_invitems-kwert.

endif.

concatenate '->' lt_invitems-arktx into lt_invitems-arktx.

append lt_invitems.

endif.

endat.

• Material group 3

clear: lt_invitems-arktx,

lt_invitems-netwr,

lt_invitems-kwert.

at end of mvgr3.

if lwa_invitems-mvgr3 is not initial.

select single bezei from tvm3t into lt_invitems-arktx

where spras = sy-langu

and mvgr3 = lwa_invitems-mvgr3.

if lt_invitems-mvgr4 is initial and

lt_invitems-mvgr5 is initial.

sum.

move: gt_invitems-netwr to lt_invitems-netwr,

gt_invitems-kwert to lt_invitems-kwert.

endif.

concatenate '-->' lt_invitems-arktx into lt_invitems-arktx.

append lt_invitems.

endif.

endat.

• Material group 4

clear: lt_invitems-arktx,

lt_invitems-netwr,

lt_invitems-kwert.

at end of mvgr4.

if lwa_invitems-mvgr4 is not initial.

select single bezei from tvm4t into lt_invitems-arktx

where spras = sy-langu

and mvgr4 = lwa_invitems-mvgr4.

if lt_invitems-mvgr5 is initial.

sum.

move: gt_invitems-netwr to lt_invitems-netwr,

gt_invitems-kwert to lt_invitems-kwert.

endif.

concatenate '--->' lt_invitems-arktx into lt_invitems-arktx.

append lt_invitems.

endif.

endat.

• Material group 5

clear: lt_invitems-arktx,

lt_invitems-netwr,

lt_invitems-kwert.

at end of mvgr5.

if lwa_invitems-mvgr5 is not initial.

select single bezei from tvm5t into lt_invitems-arktx

where spras = sy-langu

and mvgr5 = lwa_invitems-mvgr5.

sum.

move: gt_invitems-netwr to lt_invitems-netwr,

gt_invitems-kwert to lt_invitems-kwert.

concatenate '---->' lt_invitems-arktx into lt_invitems-arktx.

append lt_invitems.

endif.

endat.

• Material group 1

at end of mvgr1.

if lwa_invitems-mvgr1 is not initial.

select single bezei from tvm1t into lt_invitems-arktx

where spras = sy-langu

and mvgr1 = lwa_invitems-mvgr1.

concatenate 'Total ' lt_invitems-arktx into lt_invitems-arktx

separated by space.

if lt_invitems-mvgr2 is initial and

lt_invitems-mvgr3 is initial and

lt_invitems-mvgr4 is initial and

lt_invitems-mvgr5 is initial.

sum.

move: gt_invitems-netwr to lt_invitems-netwr,

gt_invitems-kwert to lt_invitems-kwert.

endif.

append lt_invitems.

endif.

endat.

endloop.

• Now keep all the records with non material groups.

sort lt_invitems1 by arktx.

loop at lt_invitems1.

lwa_invitems = lt_invitems1.

at end of arktx.

lt_invitems = lwa_invitems.

sum.

move: lt_invitems1-netwr to lt_invitems-netwr,

lt_invitems1-kwert to lt_invitems-kwert.

append lt_invitems.

endat.

endloop.

endif.

• Take the summarized table for display in the output.

if gp_layut <> 'ZPS_INVOICE_COVERSHEET3'.

clear gt_invitems[].

gt_invitems[] = lt_invitems[].

clear lt_invitems[].

free lt_invitems[].

endif.

endform. " f_get_other_invoice_details

----

---

• Form: pdf_preview

----

---

• Desc: Preview PDF Debit/Credit memo

----

---

form pdf_preview using iv_otfdata type tsfotf.

• PREVIEW PDF Credit Memo

call function 'SSFCOMP_PDF_PREVIEW'

exporting

i_otf = iv_otfdata

exceptions

convert_otf_to_pdf_error = 1

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

endform. "pdf_preview

&----

---

*& Form f_write_date

&----

---

• To write the date in format

----

---

• <--CV_date date

----

---

form f_write_date changing cv_date.

data: lv_date like sy-datum.

lv_date = vbrk-fkdat.

clear cv_date.

case lv_date+4(2).

when '01'.

write '-Jan-' to cv_date.

when '02'.

write '-Feb-' to cv_date.

when '03'.

write '-Mar-' to cv_date.

when '04'.

write '-Apr-' to cv_date.

when '05'.

write '-May-' to cv_date.

when '06'.

write '-Jun-' to cv_date.

when '07'.

write '-Jul-' to cv_date.

when '08'.

write '-Aug-' to cv_date.

when '09'.

write '-Sep-' to cv_date.

when '10'.

write '-Oct-' to cv_date.

when '11'.

write '-Nov-' to cv_date.

when '12'.

write '-Dec-' to cv_date.

endcase.

condense cv_date.

concatenate lv_date6(2) cv_date lv_date0(4)

into cv_date.

endform. " f_write_date

thanks

suresh

[Former Member]

Hi

You can use the same in smartforms call the same within the program line and get the infor

finally display the information from the return

Regards

Shiva

[Former Member]

Hi,

1.create a report which can have ur function module.

2.Just call that in initialization of Global definition.

like:Perform form_name (reportname).

Need points.

Thanks and Regards,

Shiva.