Posted: Wed Mar 04, 2009 5:18 pm Post subject: SmartForm Displaying/Previewing
Version 1.0
Author WATTO
Source from: http: /www.watto.org/program/abap/download/Z_SMARTFORM_TEMPLATE_DISPLAY.abap
Description: A template program for running a SmartForm and previewing it. The previewing is done separate to the standard previewing, so that you can have control over the pages separately. Includes the following functionality...
Features:
- Generate a SmartForm output
- Display and navigate between pages
- Can do your own manipulation of the output prior to display
Code:
REPORT z_smartform_template_display.
DATA:
v_control_params TYPE ssfctrlop,
v_output_options TYPE ssfcompop,
v_output_info TYPE ssfcrescl.
* OTF Data for previewing
DATA:
i_otf TYPE tsfotf,
v_otf LIKE LINE OF i_otf.
* A single page
DATA:
v_preview_page TYPE itcoo,
i_preview_page TYPE STANDARD TABLE OF itcoo.
DATA:
BEGIN OF i_gui_preview OCCURS 0.
INCLUDE STRUCTURE itcoo.
DATA:
END OF i_gui_preview.
* Bitmaps used in the preview
TYPES:
BEGIN OF t_bitmaps,
bm_index LIKE sy-tabix, " Index in Table OTF
bm_doc_id(42) TYPE c, " DOC-ID of the Bitmap
END OF t_bitmaps.
DATA:
v_bitmaps TYPE t_bitmaps,
i_bitmaps TYPE STANDARD TABLE OF t_bitmaps.
* details about the preview
TYPES:
BEGIN OF t_preview_info,
curr_pag LIKE ssfpp-tdpages, " Page Number
op_index LIKE sy-tabix, " Index in Table OTF
END OF t_preview_info.
DATA:
v_preview_info TYPE t_preview_info,
i_preview_info TYPE STANDARD TABLE OF t_preview_info.
PERFORM run_smartform
USING 'MYSMARTFORM'
v_control_params
v_output_options
CHANGING
v_output_info.
* Retrieve the generated output
i_otf = v_output_info-otfdata.
* prepare the data for previewing.
PERFORM load_preview_bitmaps.
PERFORM get_preview_page_count.
* Loads page 1 of the preview
PERFORM show_preview_page
USING
1.
*---------------------------------------------------------------------*
* FORM setup_smartform_for_display
*---------------------------------------------------------------------*
* [+] Sets the parameters for PDF conversions
*---------------------------------------------------------------------*
FORM setup_smartform_for_display.
*---------------------------------------------------------------------*
* FORM run_smartform
*---------------------------------------------------------------------*
* [+] Runs the SmartForm of the given name
*---------------------------------------------------------------------*
FORM run_smartform
USING
p_form_name TYPE c
p_control_params TYPE ssfctrlop
p_output_options TYPE ssfcompop
CHANGING
p_output_info TYPE ssfcrescl.
DATA:
lv_function_name TYPE rs38l_fnam.
* Find the SmartForm function module name
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = p_form_name
IMPORTING
fm_name = lv_function_name
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 99.
IF sy-subrc <> 0.
EXIT.
ENDIF.
* Run the SmartForm function module
CALL FUNCTION p_form_name
EXPORTING
control_parameters = p_control_params
output_options = p_output_options
user_settings = ' '
IMPORTING
job_output_info = p_output_info
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 99.
ENDFORM. "run_smartform
*----------------------------------------------------------------------
* FORM load_preview_bitmaps
*----------------------------------------------------------------------
* [+] Prepares the bitmap images used in the print preview
*----------------------------------------------------------------------
FORM load_preview_bitmaps.
CLEAR:
v_bitmaps,
i_bitmaps.
LOOP AT i_otf
INTO v_otf
WHERE tdprintcom = 'BM'.
IF v_otf-tdprintpar+11(1) = 'D'.
v_bitmaps-bm_index = sy-tabix.
v_bitmaps-bm_doc_id = v_otf-tdprintpar+16(42).
APPEND v_bitmaps TO i_bitmaps.
ENDIF.
ENDLOOP.
ENDFORM. "load_preview_bitmaps
*----------------------------------------------------------------------
* FORM get_preview_page_count
*----------------------------------------------------------------------
* [+] Gets the number of pages in this preview.
* [+] Sets up the i_preview_info
*----------------------------------------------------------------------
FORM get_preview_page_count.
* Internal variables
DATA:
lv_pages LIKE ssfpp-tdpages.
LOOP AT i_otf
INTO v_otf
WHERE tdprintcom = 'OP'. "Open Page
v_preview_info-op_index = sy-tabix.
ADD 1 TO lv_pages.
v_preview_info-curr_pag = lv_pages.
APPEND v_preview_info TO i_preview_info.
ENDLOOP.
CLEAR:
v_preview_info.
ENDFORM. "get_preview_page_count
*----------------------------------------------------------------------
* FORM show_preview_page
*----------------------------------------------------------------------
* [+] Loads the given page number in the preview
*----------------------------------------------------------------------
FORM show_preview_page
USING
p_page_number TYPE txpagenr.
* Internal variables
DATA:
lv_current_index LIKE sy-tabix.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = 25
text = 'Please wait...'.
* already on the correct page
CHECK v_preview_info-curr_pag <> p_page_number.
READ TABLE i_preview_info
INTO v_preview_info
INDEX p_page_number.
CHECK sy-subrc = 0.
* preview header data
v_preview_page-tdprintcom = '//'.
APPEND v_preview_page TO i_preview_page.
* preview page data
lv_current_index = v_preview_info-op_index.
DO.
READ TABLE i_otf
INTO v_otf
INDEX lv_current_index.
IF sy-subrc <> 0.
EXIT.
ENDIF.
v_preview_page = v_otf.
CASE v_preview_page-tdprintcom.
WHEN 'RD'. "Raw Data
APPEND v_preview_page TO i_preview_page.
WHEN 'EP'. "Close Page
APPEND v_preview_page TO i_preview_page.
EXIT.
WHEN OTHERS.
APPEND v_preview_page TO i_preview_page.
ENDCASE.
ADD 1 TO lv_current_index.
ENDDO.
ENDFORM. "show_preview_page
*----------------------------------------------------------------------
* FORM show_next_page
*----------------------------------------------------------------------
* [+] Shows the next page
*----------------------------------------------------------------------
FORM show_next_page.
DATA: lv_page_number TYPE txpagenr,
lv_last_page TYPE i.
lv_page_number = v_preview_info-curr_pag.
ADD 1 TO lv_page_number.
DESCRIBE TABLE i_preview_info LINES lv_last_page.
IF lv_page_number > lv_last_page.
lv_page_number = lv_last_page.
ENDIF.
IF lv_page_number <> v_preview_info-curr_pag.
PERFORM show_preview_page
USING
lv_page_number.
ENDIF.
ENDFORM. "show_next_page
*----------------------------------------------------------------------
* FORM show_previous_page
*----------------------------------------------------------------------
* [+] Shows the previous page
*----------------------------------------------------------------------
FORM show_previous_page.
DATA: lv_page_number TYPE txpagenr.
lv_page_number = v_preview_info-curr_pag.
SUBTRACT 1 FROM lv_page_number.
IF lv_page_number <= 0.
lv_page_number = 1.
ENDIF.
IF lv_page_number <> v_preview_info-curr_pag.
PERFORM show_preview_page
USING
lv_page_number.
ENDIF.
ENDFORM. "show_previous_page
*----------------------------------------------------------------------
* FORM show_first_page
*----------------------------------------------------------------------
* [+] Shows the first page
*----------------------------------------------------------------------
FORM show_first_page.
DATA: lv_page_number TYPE txpagenr.
lv_page_number = 1.
IF lv_page_number <> v_preview_info-curr_pag.
PERFORM show_preview_page
USING
lv_page_number.
ENDIF.
ENDFORM. "show_first_page
*----------------------------------------------------------------------
* FORM show_last_page
*----------------------------------------------------------------------
* [+] Shows the first page
*----------------------------------------------------------------------
FORM show_last_page.
DATA: lv_page_number TYPE txpagenr.
*----------------------------------------------------------------------
* MODULE display_preview
*----------------------------------------------------------------------
* [+] Prepares the print preview for being displayed
*
* THIS SHOULD BE PUT IN THE "PROCESS BEFORE OUTPUT" OF THE SCREEN
*
*----------------------------------------------------------------------
MODULE display_preview OUTPUT.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
