Smartforms to MSWord

Hi All,
I need to download smartforms to MSWord.Is there any Function modulr for that.....
I think 'CONVERT_OTF' will not work in this case

Hi,
Please refer this thread.
time milliseconds

Similar Messages

Problem in sending the smartform as an email in a country specific language

Hi,
I am facing a problem in sending a smartform as a email for all other Languages except english and another problem is its sending the email but the output status is still in RED in the messages tab.
the program is working fine for english.
Please do find the below code using which i would be sending the smartform as an email for a PO along with the line item attachments.
Please help.
Arun.
Determine smartform function module for purchase document
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
 EXPORTING
 formname = lf_formname
 IMPORTING
 fm_name = lf_fm_name
 EXCEPTIONS
 no_form = 1
 no_function_module = 2
 OTHERS = 3.
IF sy-subrc <> 0.
error handling
 ent_retco = sy-subrc.
 IF sy-subrc = 1.
 MESSAGE e001(/smb40/ssfcomposer).
 ENDIF.
 IF sy-subrc = 2.
 MESSAGE e002(/smb40/ssfcomposer) WITH tnapr-sform.
 ENDIF.
 PERFORM protocol_update_i.
ENDIF.
*Start of changes <Arun K Singarapu> C082493 <04/28/2008>
*for print preview
IF sy-ucomm = 'PREVOUTPUT' OR sy-ucomm = 'VIEW'.
 CALL FUNCTION lf_fm_name "'/1BCDWB/SF00000197'
 EXPORTING
 control_parameters = wa_ctrlop
 output_options = wa_compop
 user_settings = 'X'
 is_ekko = l_doc-xekko
 is_pekko = l_doc-xpekko
 is_nast = l_nast
 iv_from_mem = l_from_memory
 iv_druvo = iv_druvo
 iv_xfz = iv_xfz
 IMPORTING
 job_output_info = wa_return
 TABLES
 it_ekpo = l_doc-xekpo[]
 it_ekpa = l_doc-xekpa[]
 it_pekpo = l_doc-xpekpo[]
 it_eket = l_doc-xeket[]
 it_tkomv = l_doc-xtkomv[]
 it_ekkn = l_doc-xekkn[]
 it_ekek = l_doc-xekek[]
 it_komk = l_xkomk[]
 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.
 EXIT.
ELSE.
 wa_ctrlop-LANGU = nast-spras.
 wa_ctrlop-getotf = 'X'.
 wa_ctrlop-no_dialog = 'X'.
 wa_compop-tdnoprev = 'X'.
 CALL FUNCTION lf_fm_name "'/1BCDWB/SF00000197'
 EXPORTING
 control_parameters = wa_ctrlop
 output_options = wa_compop
 user_settings = 'X'
 is_ekko = l_doc-xekko
 is_pekko = l_doc-xpekko
 is_nast = l_nast
 iv_from_mem = l_from_memory
 iv_druvo = iv_druvo
 iv_xfz = iv_xfz
 IMPORTING
 job_output_info = wa_return
 TABLES
 it_ekpo = l_doc-xekpo[]
 it_ekpa = l_doc-xekpa[]
 it_pekpo = l_doc-xpekpo[]
 it_eket = l_doc-xeket[]
 it_tkomv = l_doc-xtkomv[]
 it_ekkn = l_doc-xekkn[]
 it_ekek = l_doc-xekek[]
 it_komk = l_xkomk[]
 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.
*Convert the data from OTF to PDF format
 it_otf[] = wa_return-otfdata[].
 CALL FUNCTION 'CONVERT_OTF'
 EXPORTING
 format = 'PDF'
 max_linewidth = 132
 IMPORTING
 bin_filesize = l_len_in
 bin_file = lp_xcontent
 TABLES
 otf = it_otf
 lines = it_tline
 EXCEPTIONS
 err_max_linewidth = 1
 err_format = 2
 err_conv_not_possible = 3
 OTHERS = 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.
 TRY.
---------- create persistent send request ----------------------
 send_request = cl_bcs=>create_persistent( ).
 len = XSTRLEN( lp_xcontent ).
transform to solix tab
 lt_solix =
 cl_document_bcs=>xstring_to_solix(
 ip_xstring = lp_xcontent ).
Create Body to the E-mail.
 APPEND Text-005 TO l_text.
Attachment Name
 l_ponumber = text-004.
 CONCATENATE l_ponumber l_doc-xekko-ebeln INTO l_ponumber.
Subject for the E-Mail.
 l_subject = text-001.
 CONCATENATE l_subject l_doc-xekko-ebeln INTO l_subject.
*create document E-Mail.
 CALL METHOD cl_document_bcs=>create_document
 EXPORTING
 i_type = 'RAW'
 i_subject = l_subject
 i_length = '13'
 i_text = l_text
 RECEIVING
 result = l_email_object.
*Create PDF Document
 bcs_doc = cl_document_bcs=>create_document(
 i_type = 'PDF'
 i_subject = l_ponumber
 i_length = len
 i_language = nast-spras
 i_hex = lt_solix
*Type casting
 obj_pdf_file ?= bcs_doc.
Add PDF document as an attachment
 CALL METHOD l_email_object->add_document_as_attachment
 EXPORTING
 im_document = obj_pdf_file.
get the attachments of the PO for each line item
 SELECT ebeln
 ebelp
 FROM ekpo
 INTO TABLE it_ekpo
 WHERE ebeln = l_doc-xekko-ebeln.
concatenate PO and the Line Item Numebr to get the Object key
 LOOP AT it_ekpo INTO wa_ekpo.
 CONCATENATE wa_ekpo-ebeln wa_ekpo-ebelp INTO wa_temp-objky.
 APPEND wa_temp TO it_temp.
 CLEAR: wa_temp,wa_ekpo.
 ENDLOOP.
*Get data from table DRAD
 IF it_temp[] IS NOT INITIAL.
 SELECT dokar
 doknr
 dokvr
 doktl
 objky
 FROM drad
 client specified
 INTO TABLE it_drad
 FOR ALL ENTRIES IN it_temp
 WHERE mandt = sy-mandt
 AND objky = it_temp-objky.
 ENDIF.
 IF NOT it_drad IS INITIAL.
 SELECT * FROM dms_doc2loio
 INTO TABLE it_dms_doc2loio
 FOR ALL ENTRIES IN it_drad
 WHERE dokar = 'SRM'
 AND doknr = it_drad-doknr
 AND dokvr = it_drad-dokvr
 AND doktl = it_drad-doktl.
 ENDIF.
Get the Physical object class and Object ID of the attachment
 IF NOT it_dms_doc2loio IS INITIAL.
 SELECT * FROM dms_ph_cd1
 INTO TABLE it_dms_ph_cd1
 FOR ALL ENTRIES IN it_dms_doc2loio
 WHERE loio_id = it_dms_doc2loio-lo_objid.
 ENDIF.
Get the file from the DMS server using the below function module.
 LOOP AT it_dms_ph_cd1 INTO wa_dms_ph_cd1.
 wa_object_id-class = wa_dms_ph_cd1-ph_class.
 wa_object_id-objid = wa_dms_ph_cd1-phio_id.
 CALL FUNCTION 'SDOK_PHIO_LOAD_CONTENT'
 EXPORTING
 object_id = wa_object_id
 client = sy-mandt
 TABLES
 file_access_info = it_file_access_info
 file_content_binary = it_sdokcntbin
 EXCEPTIONS
 not_existing = 1
 not_authorized = 2
 no_content = 3
 bad_storage_type = 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.
 READ TABLE it_file_access_info INTO wa_file_access_info INDEX 1.
 IF wa_file_access_info-mimetype = 'application/msword'.
 l_doc_type = 'DOC'.
 CLEAR: a_xstring,len.
 LOOP AT it_sdokcntbin INTO wa_sdokcntbin.
 CONCATENATE a_xstring wa_sdokcntbin-line
 INTO a_xstring IN BYTE MODE.
 ENDLOOP.
 len = XSTRLEN( a_xstring ).
 transform to solix tab - adding additional attachments
 REFRESH lt_solix.
 lt_solix =
 cl_document_bcs=>xstring_to_solix(
 ip_xstring = a_xstring ).
 CLEAR l_filename.
 Get the file name
 l_filename = wa_file_access_info-file_name.
 bcs_doc1 = cl_document_bcs=>create_document(
 i_type = l_doc_type
 i_subject = l_filename
 i_length = len
 i_language = sy-langu
 i_hex = lt_solix
*Type casting
 obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
 CALL METHOD l_email_object->add_document_as_attachment
 EXPORTING
 im_document = obj_file.
for PDF document
 ELSEIF wa_file_access_info-mimetype = 'application/pdf'.
 l_doc_type = 'PDF'.
 file_size = wa_file_access_info-file_size.
Convert the 1022 binary data to xstring
 CLEAR a_xstring.
 CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
 EXPORTING
 input_length = file_size
 IMPORTING
 buffer = a_xstring
 TABLES
 binary_tab = it_sdokcntbin
 EXCEPTIONS
 failed = 1
 OTHERS = 2.
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
 DATA: w_output_length TYPE i.
Convert Xstring to 255 RAW
 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
 EXPORTING
 buffer = a_xstring
 IMPORTING
 output_length = w_output_length
 TABLES
 binary_tab = lt_content_bin.
 len = w_output_length.
 CLEAR l_filename.
 Get the file name
 l_filename = wa_file_access_info-file_name.
 bcs_doc1 = cl_document_bcs=>create_document(
 i_type = l_doc_type
 i_subject = l_filename
 i_length = len
 i_language = sy-langu
 i_hex = lt_content_bin
 type casting
 obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
 CALL METHOD l_email_object->add_document_as_attachment
 EXPORTING
 im_document = obj_file.
for Excel Document
 ELSEIF wa_file_access_info-mimetype = 'application/msexcel'.
 l_doc_type = 'XLS'.
 CLEAR: a_xstring,len.
 LOOP AT it_sdokcntbin INTO wa_sdokcntbin.
 CONCATENATE a_xstring wa_sdokcntbin-line
 INTO a_xstring IN BYTE MODE.
 ENDLOOP.
 len = XSTRLEN( a_xstring ).
 transform to solix tab - adding additional attachments
 REFRESH lt_solix.
 lt_solix =
 cl_document_bcs=>xstring_to_solix(
 ip_xstring = a_xstring ).
 CLEAR l_filename.
 Get the file name
 l_filename = wa_file_access_info-file_name.
 bcs_doc1 = cl_document_bcs=>create_document(
 i_type = l_doc_type
 i_subject = l_filename
 i_length = len
 i_language = sy-langu
 i_hex = lt_solix
*Type casting
 obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
 CALL METHOD l_email_object->add_document_as_attachment
 EXPORTING
 im_document = obj_file.
for text doxument
 ELSEIF wa_file_access_info-mimetype = 'plain/text'.
 l_doc_type = 'TXT'.
 file_size = wa_file_access_info-file_size.
 Get the file name
 l_filename = wa_file_access_info-file_name.
 CALL FUNCTION 'SCMS_BINARY_TO_TEXT'
 EXPORTING
 input_length = file_size
 TABLES
 binary_tab = it_sdokcntbin
 text_tab = file_data
 EXCEPTIONS
 failed = 1
 OTHERS = 2.
 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 METHOD cl_document_bcs=>create_document
 EXPORTING
 i_type = l_doc_type
 i_subject = l_filename
 i_text = file_data
 RECEIVING
 result = bcs_doc1.
 obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
 CALL METHOD l_email_object->add_document_as_attachment
 EXPORTING
 im_document = obj_file.
 ENDIF.
 CLEAR:it_file_access_info,it_sdokcntbin.
 CLEAR:wa_object_id,wa_file_access_info,file_size.
 ENDLOOP.
 CALL METHOD send_request->set_document( l_email_object ).
*Get the address number for the vendor
 SELECT SINGLE adrnr
 FROM lfa1
 INTO l_adrnr
 WHERE lifnr = l_doc-xekko-lifnr.
 MOVE l_adrnr TO l_addrno.
Get the Email Address for the vendor using address number
 CALL FUNCTION 'ADDR_GET_REMOTE'
 EXPORTING
 addrnumber = l_addrno
 TABLES
 adsmtp = it_adsmtp
 EXCEPTIONS
 parameter_error = 1
 address_not_exist = 2
 internal_error = 3
 OTHERS = 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.
 sender = cl_sapuser_bcs=>create( sy-uname ).
 CALL METHOD send_request->set_sender
 EXPORTING
 i_sender = sender.
 READ TABLE it_adsmtp INTO wa_adsmtp WITH KEY flg_nouse = 'X'.
 IF sy-subrc = 0.
 LOOP AT it_adsmtp INTO wa_adsmtp WHERE flg_nouse = 'X'.
 CALL METHOD cl_cam_address_bcs=>create_internet_address
 EXPORTING
 i_address_string = wa_adsmtp-smtp_addr
 RECEIVING
 result = recipient.
 CALL METHOD send_request->add_recipient
 EXPORTING
 i_recipient = recipient
 i_express = 'X'.
 ENDLOOP.
 ELSE.
 READ TABLE it_adsmtp INTO wa_adsmtp WITH KEY flgdefault = 'X'.
 IF sy-subrc = 0.
 CALL METHOD cl_cam_address_bcs=>create_internet_address
 EXPORTING
 i_address_string = wa_adsmtp-smtp_addr
 RECEIVING
 result = recipient.
 CALL METHOD send_request->add_recipient
 EXPORTING
 i_recipient = recipient
 i_express = 'X'.
 ENDIF.
 ENDIF.
 CALL METHOD send_request->send(
 EXPORTING
 i_with_error_screen = 'X'
 RECEIVING
 result = l_sent_to_all ).
 CATCH cx_bcs INTO bcs_exception.
 WRITE: 'Fehler aufgetreten.'(001).
 WRITE: 'Fehlertyp:'(002), bcs_exception->error_type.
 EXIT.
 ENDTRY.
ENDIF.

Hi,
I am facing a problem in sending a smartform as a email for all other Languages except english and another problem is its sending the email but the output status is still in RED in the messages tab.
the program is working fine for english.
Please do find the below code using which i would be sending the smartform as an email for a PO along with the line item attachments.
Please help.
Arun.
Determine smartform function module for purchase document
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
 EXPORTING
 formname = lf_formname
 IMPORTING
 fm_name = lf_fm_name
 EXCEPTIONS
 no_form = 1
 no_function_module = 2
 OTHERS = 3.
IF sy-subrc <> 0.
error handling
 ent_retco = sy-subrc.
 IF sy-subrc = 1.
 MESSAGE e001(/smb40/ssfcomposer).
 ENDIF.
 IF sy-subrc = 2.
 MESSAGE e002(/smb40/ssfcomposer) WITH tnapr-sform.
 ENDIF.
 PERFORM protocol_update_i.
ENDIF.
*Start of changes <Arun K Singarapu> C082493 <04/28/2008>
*for print preview
IF sy-ucomm = 'PREVOUTPUT' OR sy-ucomm = 'VIEW'.
 CALL FUNCTION lf_fm_name "'/1BCDWB/SF00000197'
 EXPORTING
 control_parameters = wa_ctrlop
 output_options = wa_compop
 user_settings = 'X'
 is_ekko = l_doc-xekko
 is_pekko = l_doc-xpekko
 is_nast = l_nast
 iv_from_mem = l_from_memory
 iv_druvo = iv_druvo
 iv_xfz = iv_xfz
 IMPORTING
 job_output_info = wa_return
 TABLES
 it_ekpo = l_doc-xekpo[]
 it_ekpa = l_doc-xekpa[]
 it_pekpo = l_doc-xpekpo[]
 it_eket = l_doc-xeket[]
 it_tkomv = l_doc-xtkomv[]
 it_ekkn = l_doc-xekkn[]
 it_ekek = l_doc-xekek[]
 it_komk = l_xkomk[]
 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.
 EXIT.
ELSE.
 wa_ctrlop-LANGU = nast-spras.
 wa_ctrlop-getotf = 'X'.
 wa_ctrlop-no_dialog = 'X'.
 wa_compop-tdnoprev = 'X'.
 CALL FUNCTION lf_fm_name "'/1BCDWB/SF00000197'
 EXPORTING
 control_parameters = wa_ctrlop
 output_options = wa_compop
 user_settings = 'X'
 is_ekko = l_doc-xekko
 is_pekko = l_doc-xpekko
 is_nast = l_nast
 iv_from_mem = l_from_memory
 iv_druvo = iv_druvo
 iv_xfz = iv_xfz
 IMPORTING
 job_output_info = wa_return
 TABLES
 it_ekpo = l_doc-xekpo[]
 it_ekpa = l_doc-xekpa[]
 it_pekpo = l_doc-xpekpo[]
 it_eket = l_doc-xeket[]
 it_tkomv = l_doc-xtkomv[]
 it_ekkn = l_doc-xekkn[]
 it_ekek = l_doc-xekek[]
 it_komk = l_xkomk[]
 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.
*Convert the data from OTF to PDF format
 it_otf[] = wa_return-otfdata[].
 CALL FUNCTION 'CONVERT_OTF'
 EXPORTING
 format = 'PDF'
 max_linewidth = 132
 IMPORTING
 bin_filesize = l_len_in
 bin_file = lp_xcontent
 TABLES
 otf = it_otf
 lines = it_tline
 EXCEPTIONS
 err_max_linewidth = 1
 err_format = 2
 err_conv_not_possible = 3
 OTHERS = 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.
 TRY.
---------- create persistent send request ----------------------
 send_request = cl_bcs=>create_persistent( ).
 len = XSTRLEN( lp_xcontent ).
transform to solix tab
 lt_solix =
 cl_document_bcs=>xstring_to_solix(
 ip_xstring = lp_xcontent ).
Create Body to the E-mail.
 APPEND Text-005 TO l_text.
Attachment Name
 l_ponumber = text-004.
 CONCATENATE l_ponumber l_doc-xekko-ebeln INTO l_ponumber.
Subject for the E-Mail.
 l_subject = text-001.
 CONCATENATE l_subject l_doc-xekko-ebeln INTO l_subject.
*create document E-Mail.
 CALL METHOD cl_document_bcs=>create_document
 EXPORTING
 i_type = 'RAW'
 i_subject = l_subject
 i_length = '13'
 i_text = l_text
 RECEIVING
 result = l_email_object.
*Create PDF Document
 bcs_doc = cl_document_bcs=>create_document(
 i_type = 'PDF'
 i_subject = l_ponumber
 i_length = len
 i_language = nast-spras
 i_hex = lt_solix
*Type casting
 obj_pdf_file ?= bcs_doc.
Add PDF document as an attachment
 CALL METHOD l_email_object->add_document_as_attachment
 EXPORTING
 im_document = obj_pdf_file.
get the attachments of the PO for each line item
 SELECT ebeln
 ebelp
 FROM ekpo
 INTO TABLE it_ekpo
 WHERE ebeln = l_doc-xekko-ebeln.
concatenate PO and the Line Item Numebr to get the Object key
 LOOP AT it_ekpo INTO wa_ekpo.
 CONCATENATE wa_ekpo-ebeln wa_ekpo-ebelp INTO wa_temp-objky.
 APPEND wa_temp TO it_temp.
 CLEAR: wa_temp,wa_ekpo.
 ENDLOOP.
*Get data from table DRAD
 IF it_temp[] IS NOT INITIAL.
 SELECT dokar
 doknr
 dokvr
 doktl
 objky
 FROM drad
 client specified
 INTO TABLE it_drad
 FOR ALL ENTRIES IN it_temp
 WHERE mandt = sy-mandt
 AND objky = it_temp-objky.
 ENDIF.
 IF NOT it_drad IS INITIAL.
 SELECT * FROM dms_doc2loio
 INTO TABLE it_dms_doc2loio
 FOR ALL ENTRIES IN it_drad
 WHERE dokar = 'SRM'
 AND doknr = it_drad-doknr
 AND dokvr = it_drad-dokvr
 AND doktl = it_drad-doktl.
 ENDIF.
Get the Physical object class and Object ID of the attachment
 IF NOT it_dms_doc2loio IS INITIAL.
 SELECT * FROM dms_ph_cd1
 INTO TABLE it_dms_ph_cd1
 FOR ALL ENTRIES IN it_dms_doc2loio
 WHERE loio_id = it_dms_doc2loio-lo_objid.
 ENDIF.
Get the file from the DMS server using the below function module.
 LOOP AT it_dms_ph_cd1 INTO wa_dms_ph_cd1.
 wa_object_id-class = wa_dms_ph_cd1-ph_class.
 wa_object_id-objid = wa_dms_ph_cd1-phio_id.
 CALL FUNCTION 'SDOK_PHIO_LOAD_CONTENT'
 EXPORTING
 object_id = wa_object_id
 client = sy-mandt
 TABLES
 file_access_info = it_file_access_info
 file_content_binary = it_sdokcntbin
 EXCEPTIONS
 not_existing = 1
 not_authorized = 2
 no_content = 3
 bad_storage_type = 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.
 READ TABLE it_file_access_info INTO wa_file_access_info INDEX 1.
 IF wa_file_access_info-mimetype = 'application/msword'.
 l_doc_type = 'DOC'.
 CLEAR: a_xstring,len.
 LOOP AT it_sdokcntbin INTO wa_sdokcntbin.
 CONCATENATE a_xstring wa_sdokcntbin-line
 INTO a_xstring IN BYTE MODE.
 ENDLOOP.
 len = XSTRLEN( a_xstring ).
 transform to solix tab - adding additional attachments
 REFRESH lt_solix.
 lt_solix =
 cl_document_bcs=>xstring_to_solix(
 ip_xstring = a_xstring ).
 CLEAR l_filename.
 Get the file name
 l_filename = wa_file_access_info-file_name.
 bcs_doc1 = cl_document_bcs=>create_document(
 i_type = l_doc_type
 i_subject = l_filename
 i_length = len
 i_language = sy-langu
 i_hex = lt_solix
*Type casting
 obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
 CALL METHOD l_email_object->add_document_as_attachment
 EXPORTING
 im_document = obj_file.
for PDF document
 ELSEIF wa_file_access_info-mimetype = 'application/pdf'.
 l_doc_type = 'PDF'.
 file_size = wa_file_access_info-file_size.
Convert the 1022 binary data to xstring
 CLEAR a_xstring.
 CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
 EXPORTING
 input_length = file_size
 IMPORTING
 buffer = a_xstring
 TABLES
 binary_tab = it_sdokcntbin
 EXCEPTIONS
 failed = 1
 OTHERS = 2.
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
 DATA: w_output_length TYPE i.
Convert Xstring to 255 RAW
 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
 EXPORTING
 buffer = a_xstring
 IMPORTING
 output_length = w_output_length
 TABLES
 binary_tab = lt_content_bin.
 len = w_output_length.
 CLEAR l_filename.
 Get the file name
 l_filename = wa_file_access_info-file_name.
 bcs_doc1 = cl_document_bcs=>create_document(
 i_type = l_doc_type
 i_subject = l_filename
 i_length = len
 i_language = sy-langu
 i_hex = lt_content_bin
 type casting
 obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
 CALL METHOD l_email_object->add_document_as_attachment
 EXPORTING
 im_document = obj_file.
for Excel Document
 ELSEIF wa_file_access_info-mimetype = 'application/msexcel'.
 l_doc_type = 'XLS'.
 CLEAR: a_xstring,len.
 LOOP AT it_sdokcntbin INTO wa_sdokcntbin.
 CONCATENATE a_xstring wa_sdokcntbin-line
 INTO a_xstring IN BYTE MODE.
 ENDLOOP.
 len = XSTRLEN( a_xstring ).
 transform to solix tab - adding additional attachments
 REFRESH lt_solix.
 lt_solix =
 cl_document_bcs=>xstring_to_solix(
 ip_xstring = a_xstring ).
 CLEAR l_filename.
 Get the file name
 l_filename = wa_file_access_info-file_name.
 bcs_doc1 = cl_document_bcs=>create_document(
 i_type = l_doc_type
 i_subject = l_filename
 i_length = len
 i_language = sy-langu
 i_hex = lt_solix
*Type casting
 obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
 CALL METHOD l_email_object->add_document_as_attachment
 EXPORTING
 im_document = obj_file.
for text doxument
 ELSEIF wa_file_access_info-mimetype = 'plain/text'.
 l_doc_type = 'TXT'.
 file_size = wa_file_access_info-file_size.
 Get the file name
 l_filename = wa_file_access_info-file_name.
 CALL FUNCTION 'SCMS_BINARY_TO_TEXT'
 EXPORTING
 input_length = file_size
 TABLES
 binary_tab = it_sdokcntbin
 text_tab = file_data
 EXCEPTIONS
 failed = 1
 OTHERS = 2.
 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 METHOD cl_document_bcs=>create_document
 EXPORTING
 i_type = l_doc_type
 i_subject = l_filename
 i_text = file_data
 RECEIVING
 result = bcs_doc1.
 obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
 CALL METHOD l_email_object->add_document_as_attachment
 EXPORTING
 im_document = obj_file.
 ENDIF.
 CLEAR:it_file_access_info,it_sdokcntbin.
 CLEAR:wa_object_id,wa_file_access_info,file_size.
 ENDLOOP.
 CALL METHOD send_request->set_document( l_email_object ).
*Get the address number for the vendor
 SELECT SINGLE adrnr
 FROM lfa1
 INTO l_adrnr
 WHERE lifnr = l_doc-xekko-lifnr.
 MOVE l_adrnr TO l_addrno.
Get the Email Address for the vendor using address number
 CALL FUNCTION 'ADDR_GET_REMOTE'
 EXPORTING
 addrnumber = l_addrno
 TABLES
 adsmtp = it_adsmtp
 EXCEPTIONS
 parameter_error = 1
 address_not_exist = 2
 internal_error = 3
 OTHERS = 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.
 sender = cl_sapuser_bcs=>create( sy-uname ).
 CALL METHOD send_request->set_sender
 EXPORTING
 i_sender = sender.
 READ TABLE it_adsmtp INTO wa_adsmtp WITH KEY flg_nouse = 'X'.
 IF sy-subrc = 0.
 LOOP AT it_adsmtp INTO wa_adsmtp WHERE flg_nouse = 'X'.
 CALL METHOD cl_cam_address_bcs=>create_internet_address
 EXPORTING
 i_address_string = wa_adsmtp-smtp_addr
 RECEIVING
 result = recipient.
 CALL METHOD send_request->add_recipient
 EXPORTING
 i_recipient = recipient
 i_express = 'X'.
 ENDLOOP.
 ELSE.
 READ TABLE it_adsmtp INTO wa_adsmtp WITH KEY flgdefault = 'X'.
 IF sy-subrc = 0.
 CALL METHOD cl_cam_address_bcs=>create_internet_address
 EXPORTING
 i_address_string = wa_adsmtp-smtp_addr
 RECEIVING
 result = recipient.
 CALL METHOD send_request->add_recipient
 EXPORTING
 i_recipient = recipient
 i_express = 'X'.
 ENDIF.
 ENDIF.
 CALL METHOD send_request->send(
 EXPORTING
 i_with_error_screen = 'X'
 RECEIVING
 result = l_sent_to_all ).
 CATCH cx_bcs INTO bcs_exception.
 WRITE: 'Fehler aufgetreten.'(001).
 WRITE: 'Fehlertyp:'(002), bcs_exception->error_type.
 EXIT.
 ENDTRY.
ENDIF.

How to use msword as editor in sap script and smart form..

how to use msword as text editor in sap scripts and smartforms..

Hi
Go through the link given below :
Saptechnical. com
tutorials
smartforms
you will find solution for how to use MS word as editior.
Or
Call transaction I18N
go to I18N Customizing -> MS Word as Editor.Choose the Help-Button and follow the instructions.
If transaction I18N is not available in your system yet (see SAP Note 848036), you can also enable this feature via program RSCPINST.
Call transaction SE38, enter program RSCPINST and press F8. On the next screen,select Goto -> Set MS Word as Editor.
With Regard
Nikunj shah

Regarding printing an circle in smartforms

Hi,
       i want to print an circle in the smartform.
i had tried to draw the circle in MSword, word painter,
and upload it as bmp file and used it as graphic in the smartform but it is coming distorted. so please help if you know the solution.

hi,
    Guru,
          Thank you for the answer distortion is reduced but still there. and each time i increase the DPI size of the graphic decreases.
i am also having problem that if i creat a window inside another window i have a problem that some times i can display the contents(mainly graphics) but some times it doesn't come what might be the cause.
actually inside the same window i have created 2 other window each contains the different graphic.
when i see the preview only one graphic is seen the other one is not seen.
it window size is also big enough to print the graphic as i check it separately in other form with same size.
there is no difference in the window settings also as i have copied the same window which is working fine and just changed the positions.
please let me know if any remedy is there
thanks in advance

Smartform when iam development i dont find the paragraph format?

Dear Freinds,
iam developing a smartform i just in the windows i am started adding the heading , so when i created a text and when i write the text and wanted to make the text center i cannot see the Character Formats and Paragraph Formats . i mean to say i dont find the drop option itself the Paragraph formats or Charcgter Formats i am getting only the Winword as default when i go to the General attributes . why iam not able see the Paragraph Formats?
regards
divya

Hi Friends,
That is not thing which i have aske is when i create a text i am getting WordPad as default due to which i cannot see my pageformat drop down box at all, so any way i have found it how to remove it by going to the transacton I18N -
> and i unchecked the MSWORD ........then i got what i looking for.
regards
divya.

SmartForm & MS Word

Hello,
I need to download a smarform in msword format (.doc or .rtf).
I know functions to download to .pdf format that works ok.
Also functions to make several task with ms word files, but only works in a flat list. if the smatform contains windows or logos, the function catch the "NOT_ABAP_LIST" exception.
I hope you'll understand my english and gratefull any suggestion.
Thanks.

Hi Luis,
I m sure but just try what i m saying .... Actually I m on leave and dont have access to system henced can't check this and tell you .. try this and se whether its working or not..
1. From the smartform you have got the function module created by SAP right..
 and you are calling this function module in you ABAP program..
2. Now one of the the output parameter of this function module will be output_info.
 From this you will get the OTF data for your smartform..
3. Now pass this OTF data to function module CONVERT_OTF and in the
 call of this func mod.pass format as 'DOC' (check if we can pass this ) this will
 convert our OTF data to DOC format..
4. Now make use of GUI_DOWNLOAD func mod. to download the data to
 presentation system...
I guess this should work ... let me know if you have any prob in this..
Enjoy SAP.
Pankaj Singh.

Filename in Webdynpro for a PDF created with Smartform

Hi,
I created a PDF with Smartform in my Webdynpro-Application.
When I click the save button there is a default filename f.pdf .
How can I change the filename?
Regards
Marcus Schug

Hi Experts,
any update on this?
I am facing the same problem with ESS payslip (smartform/Hrform): my customer wants to have custom file name for download salery statements from the portal. Do you know how to change the default form name unknown.pdf to e.g.. "payslip_month_year"?
I spent a lot of time to find any possibility to get and change the file name but without success till now.
Please respond.
Regards,
Zdzislaw Kaczmarczyk
Edited by: Zdzislaw Kaczmarczyk on Jun 14, 2010 4:41 PM

Sy-tabix for internal table in smartform

Hi friends,
How to capture the sy-tabix value for the entries in an internal table which has been looped into the loop of table node of a smartform?? I need to print something immedaitely after the end of the table
For every record the value of sy-tabix is showing 1 !!
Advance Thanks
Aadarsh

Hi Aadarsh,
Give ur sy-tabix at the end of the loop.
loop at itab.
//table node populations.
endloop.
give a seperate loop for this.
loop at itab.
sy-tabix.
endloop
get the total no and print it after the table.
If u r using do loop then give sy-index.
Hope tihs helps u,
Regards,
Nagarajan.
Message was edited by: Nagarajan Kumarappan

Dunning won't print to smartform

Hey all,
I've been trying to set up the Dunning process to print to the standard SAP dunning smartform (F150_DUNN_SF). Here's what I've done so far:
1. Used transaction BF31 to change the function module for dunning to FI_PRINT_DUNNING_NOTICE_SMARTF.
2. Used transaction SPRO under Financial Accounting->Accounts Receivable and Accounts Payable->Business Transactions->Dunning->Printout->Assign Dunning Forms to set the Form for our custon procedure for all 3 Dunning Levels to F150_DUNN_SF
3. I then run the dunning report out of transaction F150. The Dunning list shows that the customer should receive the letter.
When I try to print, the job terminates. When I check the job log in SM37, I get the following error: "Include text does not exist (object TEXT, ID )" (Message class SSFCOMPOSER, Message No. 610). Everything looks like it is set up correctly. Did I miss a step?
Thanks for your help!
~William

Hi,
Seems that the smartform that you are using has a standard text which is not avaliable check the smartform for standard texts being used and check if they are all avaliable in SO10.
Regards,
Himanshu

Smartforms: How 2 fire print & download 2 PDF simultaniously 4 my forms

Dear Murugesh, Cristian
The following is my piece of code which directly downloads my forms into PDF but not creating any spool 4 firing print ,
1) I need the both to happen simultaniously .
2) I need to include the o/p(either SAPScript/report o/p) as the Smartform pages with o/p of my Driver prog ,by calling another TCODE from my driver prog .
Please throw some light on this .
have a look into my code
*Printing of Export Invoice, Packing List,Enclosure to Packing List & *
*Case Marking in one SMART FORMS Layout *
REPORT ZSD_REP_MULTI_PRINT.
TABLES :
 vbak,
 vbap,
 vbpa,
 vbfa,
 VBRK,
 VBRP,
 LIKP,
 LIPS,
 KONV,
 objk,
 tvko,
 ser01,
 sadr,
 equi,
 makt,
 mast,
 t005t,
 kna1,
 t001w,
 T001,
 ADRC,
 sscrfields,
 zpp_plcmi, "Packing list history For Conf: Item data
 zplh, "PACKING LIST HISTORY : HEADER DATA
 zpli. "PACKING LIST HISTORY : ITEM DATA
DATA: FM_NAME1 TYPE RS38L_FNAM,
 FM_NAME2 TYPE RS38L_FNAM,
 FM_NAME3 TYPE RS38L_FNAM,
 FM_NAME4 TYPE RS38L_FNAM,
 P_E_DEVTYPE TYPE RSPOPTYPE,
 P_JOB_OUTPUT_INFO TYPE SSFCRESCL OCCURS 2000 WITH HEADER LINE,
 T_OTF LIKE ITCOO OCCURS 0 WITH HEADER LINE,
 P_OUTPUT_OPTIONS TYPE SSFCOMPOP OCCURS 0 WITH HEADER LINE,
 P_CONTROL_PARAMETERS TYPE SSFCTRLOP OCCURS 0 WITH HEADER LINE ,
 P_DOC LIKE DOCS OCCURS 2000 WITH HEADER LINE,
 P_LINES LIKE TLINE OCCURS 200,
 P_BIN_FILESIZE TYPE I,
 P_LANGUAGE TYPE SFLANGU,
 P_BIN_FILE TYPE XSTRING,
 OK_CODE LIKE SY-UCOMM.
DATA: T_ITEM TYPE ZSD_TABL_LITEM,
 WA_ITEM TYPE ZSD_STRUCT_LITEM,
 T_ADRS LIKE ZSD_STRUCT_ADRS OCCURS 0 WITH HEADER LINE,
 MSLINES LIKE TLINE OCCURS 1 WITH HEADER LINE,
 TIDNO LIKE STXL-TDID,
 TNAME LIKE STXL-TDNAME,
 TOBJT LIKE STXL-TDOBJECT,
 SSORD LIKE VBAK-VBELN,
 TOT LIKE VBAK-NETWR,
 WORD LIKE SPELL.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
PARAMETERS: P_DELNO LIKE LIKP-VBELN OBLIGATORY,
 P_INVNO LIKE VBRK-VBELN OBLIGATORY,
 P_DATE LIKE SY-DATUM.
SELECTION-SCREEN END OF BLOCK blk1.
AT SELECTION-SCREEN.
CLEAR T_ADRS.
REFRESH T_ITEM.
T_ADRS-INVNO = P_INVNO.
T_ADRS-INVDAT = P_DATE.
SELECT SINGLE VBELV INTO VBFA-VBELV
 FROM VBFA
 WHERE VBELN = P_DELNO
 AND VBTYP_N = 'J' .
SSORD = VBFA-VBELV.
*Exporter's Address
SELECT SINGLE BUKRS_VF INTO VBAK-BUKRS_VF
 FROM VBAK
 WHERE VBELN = VBFA-VBELV.
SELECT SINGLE ADRNR
 INTO T001-ADRNR
 FROM T001
 WHERE BUKRS = VBAK-BUKRS_VF.
SELECT SINGLE NAME1 STREET CITY1 POST_CODE1 COUNTRY
 INTO (T_ADRS-NAME1,T_ADRS-STREET,T_ADRS-CITY1,
 T_ADRS-POST_CODE1, ADRC-COUNTRY)
 FROM ADRC
 WHERE ADDRNUMBER EQ T001-ADRNR.
SELECT SINGLE LANDX
 INTO T_ADRS-COUNTRY
 FROM T005T
 WHERE SPRAS = 'EN'
 AND LAND1 = ADRC-COUNTRY.
*Consignee Address & Buyer Other Than Consignee
SELECT SINGLE KUNNR KUNAG INTO (LIKP-KUNNR, LIKP-KUNAG)
 FROM LIKP WHERE VBELN = P_DELNO.
IF LIKP-KUNNR = LIKP-KUNAG.
 SELECT SINGLE NAME1 NAME2 STRAS ORT01 PSTLZ REGIO TELF1 ADRNR
 INTO (T_ADRS-CNAME1, T_ADRS-CNAME2, T_ADRS-CSTREET,
 T_ADRS-CCITY, T_ADRS-CPCODE, T_ADRS-CREGIO,
 T_ADRS-CTELF1, KNA1-ADRNR)
 FROM KNA1
 WHERE KUNNR = LIKP-KUNNR.
 SELECT SINGLE COUNTRY INTO ADRC-COUNTRY
 FROM ADRC
 WHERE ADDRNUMBER EQ KNA1-ADRNR.
 SELECT SINGLE LANDX
 INTO T_ADRS-CCOUNTRY
 FROM T005T
 WHERE SPRAS = 'EN'
 AND LAND1 = ADRC-COUNTRY.
 T_ADRS-ONAME1 = T_ADRS-CNAME1 .
 T_ADRS-ONAME2 = T_ADRS-CNAME2 .
 T_ADRS-OSTREET = T_ADRS-CSTREET .
 T_ADRS-OCITY = T_ADRS-CCITY.
 T_ADRS-OPCODE = T_ADRS-CPCODE .
 T_ADRS-OREGIO = T_ADRS-CREGIO.
 T_ADRS-OTELF1 = T_ADRS-CTELF1 .
 T_ADRS-OCOUNTRY = T_ADRS-CCOUNTRY.
ELSE.
 SELECT SINGLE NAME1 NAME2 STRAS ORT01 PSTLZ REGIO TELF1 ADRNR
 INTO (T_ADRS-CNAME1, T_ADRS-CNAME2, T_ADRS-CSTREET,
 T_ADRS-CCITY, T_ADRS-CPCODE, T_ADRS-CREGIO,
 T_ADRS-CTELF1, KNA1-ADRNR)
 FROM KNA1
 WHERE KUNNR = LIKP-KUNNR.
 SELECT SINGLE COUNTRY INTO ADRC-COUNTRY
 FROM ADRC
 WHERE ADDRNUMBER EQ KNA1-ADRNR.
 SELECT SINGLE LANDX
 INTO T_ADRS-CCOUNTRY
 FROM T005T
 WHERE SPRAS = 'EN'
 AND LAND1 = ADRC-COUNTRY.
*Buyer Other than Consignee
 SELECT SINGLE NAME1 NAME2 STRAS ORT01 PSTLZ REGIO TELF1 ADRNR
 INTO (T_ADRS-ONAME1, T_ADRS-ONAME2, T_ADRS-OSTREET,
 T_ADRS-OCITY, T_ADRS-OPCODE, T_ADRS-OREGIO,
 T_ADRS-OTELF1, KNA1-ADRNR)
 FROM KNA1
 WHERE KUNNR = LIKP-KUNAG.
 SELECT SINGLE COUNTRY INTO ADRC-COUNTRY
 FROM ADRC
 WHERE ADDRNUMBER EQ KNA1-ADRNR.
 SELECT SINGLE LANDX
 INTO T_ADRS-OCOUNTRY
 FROM T005T
 WHERE SPRAS = 'EN'
 AND LAND1 = ADRC-COUNTRY.
ENDIF.
*Other's Ref
TIDNO = 'Z071'.
TNAME = SSORD.
TOBJT = 'VBBK'.
PERFORM FINDTEXT.
LOOP AT MSLINES.
 T_ADRS-OREF = mslines-tdline(25).
 EXIT.
ENDLOOP.
*Buyer's Order No Ref
TIDNO = 'Z023'.
TNAME = SSORD.
TOBJT = 'VBBK'.
PERFORM FINDTEXT.
LOOP AT MSLINES.
 T_ADRS-BUYER = mslines-tdline(25).
 EXIT.
ENDLOOP.
*Exporter Ref
TIDNO = 'Z072'.
TNAME = SSORD.
TOBJT = 'VBBK'.
PERFORM FINDTEXT.
LOOP AT MSLINES.
 T_ADRS-XPREF = mslines-tdline(25).
 EXIT.
ENDLOOP.
*Pre-Carraige By
TIDNO = 'Z074'.
TNAME = SSORD.
TOBJT = 'VBBK'.
PERFORM FINDTEXT.
LOOP AT MSLINES.
 T_ADRS-PCRG = mslines-tdline(25).
 EXIT.
ENDLOOP.
*Place Of reciept by Pre-Carraige
TIDNO = 'Z073'.
TNAME = SSORD.
TOBJT = 'VBBK'.
PERFORM FINDTEXT.
LOOP AT MSLINES.
 T_ADRS-PLPCRG = mslines-tdline(25).
 EXIT.
ENDLOOP.
*Vessel/Flight No
TIDNO = 'Z075'.
TNAME = SSORD.
TOBJT = 'VBBK'.
PERFORM FINDTEXT.
LOOP AT MSLINES.
 T_ADRS-VFNO = mslines-tdline(25).
 EXIT.
ENDLOOP.
*Port Of Loading
TIDNO = 'Z077'.
TNAME = SSORD.
TOBJT = 'VBBK'.
PERFORM FINDTEXT.
LOOP AT MSLINES.
 T_ADRS-PLOAD = mslines-tdline(25).
 EXIT.
ENDLOOP.
*Port Of Discharge
TIDNO = 'Z076'.
TNAME = SSORD.
TOBJT = 'VBBK'.
PERFORM FINDTEXT.
LOOP AT MSLINES.
 T_ADRS-PDISG = mslines-tdline(25).
 EXIT.
ENDLOOP.
*Final Destination
TIDNO = 'Z070'.
TNAME = SSORD.
TOBJT = 'VBBK'.
PERFORM FINDTEXT.
LOOP AT MSLINES.
 T_ADRS-FDEST = mslines-tdline(25).
 EXIT.
ENDLOOP.
*Terms Of Delivery & Payment
TIDNO = 'Z080'.
TNAME = SSORD.
TOBJT = 'VBBK'.
PERFORM FINDTEXT.
LOOP AT MSLINES.
 T_ADRS-TERMS = mslines-tdline(50).
 EXIT.
ENDLOOP.
APPEND T_ADRS.
*BODY SECTION FOR LINE ITEMS
SELECT POSNR KWMENG VRKME WAERK
 INTO (VBAP-POSNR, VBAP-KWMENG, VBAP-VRKME, VBAP-WAERK)
 FROM VBAP
 WHERE VBELN = SSORD.
*Mark/Case No
 TIDNO = '0002'.
 CONCATENATE SSORD
 VBAP-POSNR
 INTO TNAME.
 TOBJT = 'VBBP'.
 PERFORM FINDTEXT.
 LOOP AT MSLINES.
 WA_ITEM-MARKNO = mslines-tdline(40).
 EXIT.
 ENDLOOP.
*Packing Type
 TIDNO = '0003'.
 CONCATENATE SSORD
 VBAP-POSNR
 INTO TNAME.
 TOBJT = 'VBBP'.
 PERFORM FINDTEXT.
 LOOP AT MSLINES.
 WA_ITEM-PACKTYP = mslines-tdline(40).
 EXIT.
 ENDLOOP.
*Goods Description
 TIDNO = '0001'.
 CONCATENATE SSORD
 VBAP-POSNR
 INTO TNAME.
 TOBJT = 'VBBP'.
 PERFORM FINDTEXT.
 LOOP AT MSLINES.
 WA_ITEM-GDESC = mslines-tdline(40).
 EXIT.
 ENDLOOP.
*Goods Quantity
 WA_ITEM-QTY = VBAP-KWMENG.
 WA_ITEM-VRKME = VBAP-VRKME.
*Goods Rate
 SELECT SINGLE KNUMV INTO VBAK-KNUMV FROM VBAK WHERE VBELN = SSORD.
 SELECT SINGLE KBETR WAERS
 INTO (WA_ITEM-RATE, WA_ITEM-WAERS)
 FROM KONV
 WHERE KNUMV = VBAK-KNUMV
 AND KPOSN = VBAP-POSNR
 AND KSCHL = 'PR00'.
*Item Remarks
 TIDNO = 'ZREM'.
 CONCATENATE SSORD
 VBAP-POSNR
 INTO TNAME.
 TOBJT = 'VBBP'.
 PERFORM FINDTEXT.
 LOOP AT MSLINES.
 WA_ITEM-REMARK = mslines-tdline(40).
 EXIT.
 ENDLOOP.
*Goods Amount
 WA_ITEM-AMOUNT = WA_ITEM-QTY * WA_ITEM-RATE.
 WA_ITEM-WAERK = VBAP-WAERK.
 TOT = TOT + WA_ITEM-AMOUNT.
 APPEND WA_ITEM TO T_ITEM.
ENDSELECT.
T_ADRS-TOT = TOT.
CALL FUNCTION 'SPELL_AMOUNT'
 EXPORTING
 AMOUNT = TOT
 CURRENCY = VBAP-WAERK
FILLER = ' '
 LANGUAGE = SY-LANGU
 IMPORTING
 IN_WORDS = WORD
 EXCEPTIONS
 NOT_FOUND = 1
 TOO_LARGE = 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.
*Gross Wieght
TIDNO = 'Z078'.
TNAME = SSORD.
TOBJT = 'VBBK'.
PERFORM FINDTEXT.
LOOP AT MSLINES.
 T_ADRS-GWT = mslines-tdline(15).
 EXIT.
ENDLOOP.
*Net Wieght
TIDNO = 'Z079'.
TNAME = SSORD.
TOBJT = 'VBBK'.
PERFORM FINDTEXT.
LOOP AT MSLINES.
 T_ADRS-NWT = mslines-tdline(15).
 EXIT.
ENDLOOP.
T_ADRS-TOT_WORDS = WORD-WORD.
APPEND T_ADRS.
START-OF-SELECTION.
P_LANGUAGE = 'EN'.
CALL FUNCTION 'SSF_GET_DEVICE_TYPE'
 EXPORTING
 I_LANGUAGE = P_LANGUAGE
 I_APPLICATION = 'SAPDEFAULT'
 IMPORTING
 E_DEVTYPE = P_E_DEVTYPE.
P_OUTPUT_OPTIONS-XSFCMODE = 'X'.
P_OUTPUT_OPTIONS-XSF = SPACE.
P_OUTPUT_OPTIONS-XDFCMODE = 'X'.
P_OUTPUT_OPTIONS-XDF = SPACE.
P_OUTPUT_OPTIONS-TDPRINTER = P_E_DEVTYPE.
P_OUTPUT_OPTIONS-TDDEST = 'LOHP'.
APPEND P_OUTPUT_OPTIONS.
P_CONTROL_PARAMETERS-NO_DIALOG = 'X'.
P_CONTROL_PARAMETERS-GETOTF = 'X'.
P_CONTROL_PARAMETERS-NO_CLOSE = SPACE.
APPEND P_CONTROL_PARAMETERS.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
 EXPORTING
 FORMNAME = 'ZSD_REP_MULTI_PRINT1'
VARIANT = ' '
DIRECT_CALL = ' '
 IMPORTING
 FM_NAME = FM_NAME1
 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 FM_NAME1
 EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
 CONTROL_PARAMETERS = P_CONTROL_PARAMETERS
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
 OUTPUT_OPTIONS = P_OUTPUT_OPTIONS
 USER_SETTINGS = 'X'
IMPORTING
DOCUMENT_OUTPUT_INFO =
 JOB_OUTPUT_INFO = P_JOB_OUTPUT_INFO
JOB_OUTPUT_OPTIONS =
TABLES
 T_ADRS = T_ADRS
 T_ITEM = T_ITEM
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.
LOOP AT P_JOB_OUTPUT_INFO-OTFDATA INTO T_OTF.
 APPEND T_OTF.
ENDLOOP.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
 EXPORTING
 FORMNAME = 'ZSD_REP_MULTI_PRINT2'
VARIANT = ' '
DIRECT_CALL = ' '
 IMPORTING
 FM_NAME = FM_NAME2
 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 FM_NAME2
 EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
 CONTROL_PARAMETERS = P_CONTROL_PARAMETERS
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
 OUTPUT_OPTIONS = P_OUTPUT_OPTIONS
 USER_SETTINGS = 'X'
IMPORTING
DOCUMENT_OUTPUT_INFO =
 JOB_OUTPUT_INFO = P_JOB_OUTPUT_INFO
JOB_OUTPUT_OPTIONS =
TABLES
 T_ADRS = T_ADRS
 T_ITEM = T_ITEM
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.
LOOP AT P_JOB_OUTPUT_INFO-OTFDATA INTO T_OTF.
 APPEND T_OTF.
ENDLOOP.
SET PARAMETER ID: 'AUN' FIELD SSORD ,"VBAK-VBELN VALUE ,
 'APO' FIELD ITNO."VBAP-POSNR.
CALL TRANSACTION 'ZPL3' AND SKIP FIRST SCREEN.
IF SY-SUBRC NE 0.
 MESSAGE E001(ZQOTBANK).
ENDIF.
*SET PARAMETER ID: 'AUN' FIELD VBAK-VBELN,
 'APO' FIELD VBAP-POSNR.
*CALL TRANSACTION 'ZA3C' AND SKIP FIRST SCREEN.
*IF SY-SUBRC NE 0.
MESSAGE E001(ZQOTBANK).
*ENDIF.
IMPORT (T_OTF2) FROM MEMORY ID 'MEMID'.
LOOP AT T_OTF2 INTO T_OTF2.
 APPEND T_OTF2 TO T_OTF.
ENDLOOP.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
 EXPORTING
 FORMNAME = 'ZSD_REP_MULTI_PRINT4'
VARIANT = ' '
DIRECT_CALL = ' '
 IMPORTING
 FM_NAME = FM_NAME4
 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 FM_NAME4
 EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
 CONTROL_PARAMETERS = P_CONTROL_PARAMETERS
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
 OUTPUT_OPTIONS = P_OUTPUT_OPTIONS
 USER_SETTINGS = 'X'
IMPORTING
DOCUMENT_OUTPUT_INFO =
 JOB_OUTPUT_INFO = P_JOB_OUTPUT_INFO
JOB_OUTPUT_OPTIONS =
TABLES
 T_ADRS = T_ADRS
 T_ITEM = T_ITEM
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.
LOOP AT P_JOB_OUTPUT_INFO-OTFDATA INTO T_OTF.
 APPEND T_OTF.
ENDLOOP.
CALL FUNCTION 'CONVERT_OTF_2_PDF'
EXPORTING
 USE_OTF_MC_CMD = 'X'
ARCHIVE_INDEX =
IMPORTING
 BIN_FILESIZE = P_BIN_FILESIZE
TABLES
 OTF = T_OTF
 DOCTAB_ARCHIVE = P_DOC
 LINES = P_LINES
EXCEPTIONS
 ERR_CONV_NOT_POSSIBLE = 1
 ERR_OTF_MC_NOENDMARKER = 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 'GUI_DOWNLOAD'
EXPORTING
 BIN_FILESIZE = P_BIN_FILESIZE
 FILENAME = 'C:\SD4.pdf'
 FILETYPE = 'BIN'
APPEND = ' '
WRITE_FIELD_SEPARATOR = ' '
HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
IMPORTING
 FILELENGTH = P_BIN_FILESIZE
TABLES
 DATA_TAB = P_LINES
FIELDNAMES =
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*& Form FINDTEXT
 text
FORM FINDTEXT.
REFRESH mslines.
CALL FUNCTION 'READ_TEXT'
 EXPORTING
 client = sy-mandt
 id = tidno
 language = sy-langu
 name = tname
 object = tobjt
 TABLES
 lines = mslines
 EXCEPTIONS
 id = 1
 language = 2
 name = 3
 not_found = 4
 object = 5
 reference_check = 6
 wrong_access_to_archive = 7
 OTHERS = 8.
DELETE mslines WHERE tdline IS INITIAL.
ENDFORM. "FINDTEXT
Thnx
moni
Message was edited by: md monirujjaman
Message was edited by: md monirujjaman

Hello,
I had thought that your 4th output of the Transaction is an output of a list and NOT from a SCRIPT.
Now, if it is a SAP SCRIPT ourput, it is quite simple as you have to get the OTFDATA from the SCRIPT. But you may have to make the correction in your SAPSCRIPT driver program.
Sample:
CALL FUNCTION 'CLOSE_FORM'
 TABLES
 otfdata = te_otf_table
 EXCEPTIONS
 unopened = 1
 bad_pageformat_for_print = 2
 OTHERS = 3.
Next you may EXPORT this OTF Data Internal Table to ABAP Memory.
In your program where you are calling all the 3 forms + the transaction which outputs the SAPScript output, the exported data may be imported and appended into the MAIN Interal Table and single PDF could be generated.
Secondly, The PRINT prieview of the SSFs could be generated by passing Export options of the SSF FM
SAmple:
ssfctrlop-no_dialog = ' '.
CALL FUNCTION l_form
 EXPORTING
 control_parameters = ssfctrlop
 output_options = ssfcompop
I hope this helps you.
Regards, Murugesh AS

How to print the superscript in smartform

Hi gurus,
Please tell me the procedure how to print the superscript in middle of the text displaying?
when we are displaying the smartform its converted to some special character like & .
please let me know procedure at the earliest
Regards
Raj

Hi thanks for ur patience.
see my requirment was to print TM as superscript for HLL ,already smartstyle is there, and also a character format with superscript is also defined.
then aftet HLL how it prints as superscript.
for HLL we are using another character format and for superscript we are using the another character format.
If posiible send me the code to write in smartforms
Regards
RAj
Points are awarded for useful answers.

How to print horizantal lines in smartforms?

hi friends,
how to print horizantal lines in smartforms.
waiting for ur valuble replies.
Thanks,
Kiran

HI,
If u use templates or table,then use borders to print the horizontal lines.
Eg : Create template-->Table painter->click select pattern button->Display framed pattern->select 3rd one.it will display only horizantal lines.
if want to print horizantal line under the text, then create one paragraph or character formate with Underline in smartstyles.Use that paragraph or character to u r text element

How to print a bullet in smartforms?

Hi All,
How to print a bullet in smartforms?
I need it urgently.
Any help would be appeciated.
Regards,
Mahesh.

Hi,
if i remember correct <600> is the value for bullets.
you can insert this using sap system symbols ---> select bullets (before this place your cursor where ever you want the bullets.
eg:
P1 <600> test.
Thanks,
Sree.

How to print Check Box in smartform

HI,
How to print check box in smartforms. I am using Include Sap Symbol but in the print it is coming as #. Do we need to do any setting like we do for barcode?
Thanks
Raghavendra

hi,
u can print a check box in different ways.. by inserting symbols and making window as check box..
once go through the thread u will get to k now differnt ways
putting checkboxes in smartform?
Please Close this thread.. when u r problem is solved. Reward all Helpful answers
Regards
Naresh Reddy K

Error while assigning Smartform in Sale Order

Dear All,
For taking the sale order printout, I do not want to create a SAP SCRIPT Form. So in NACE transaction, I have created one output type 'ZA01' and assigned a new Smartform to that output type.
Now, after adding this output type in Sale Order, when I am going to print the sale order using ZA01 output type system is giving error that WRITE_FORM is invalid, START_FORM is missing.
Please tell whether can we assign the Smartform to sale order or not. And if yes then how to correct the error.
Kind Regards,
Vishal

Dear Raghu,
I have checked it. And the entry is present in that table. But this error is coming only when I am giving Smartform. But system is not giving any error when I am giving script form.
So the problem is only for SmartForm.
Regards,
Vishal

Smartforms to MSWord

Similar Messages

Maybe you are looking for