—— BEGIN ——
report Z_smartforms
TABLES:mara.
TYPES:BEGIN OF ty_data,
checkbox TYPE c,
matnr TYPE mara-matnr,
mtart TYPE mara-mtart,
matkl TYPE mara-matkl,
maktx TYPE makt-maktx,
END OF ty_data.
DATA gt_data TYPE TABLE OF ty_data.
*INCLUDE zalv_oo_cls.
INCLUDE z_smartforms_cls.
DATA ok_code TYPE sy-ucomm.
DATA: gt_fieldcat TYPE lvc_t_fcat. "字段操作表
DATA: gs_layout TYPE lvc_s_layo.
SELECT-OPTIONS:
matnr FOR mara-matnr,
mtart FOR mara-mtart,
matkl FOR mara-matkl.
START-OF-SELECTION.
SELECT
a~matnr ,
a~mtart ,
a~matkl ,
b~maktx
INTO CORRESPONDING FIELDS OF TABLE @gt_data
FROM mara AS a
INNER JOIN makt AS b ON a~matnr = b~matnr
UP TO 30 ROWS.
END-OF-SELECTION.
CHECK gt_data[] IS NOT INITIAL.
CREATE OBJECT gr_alv.
PERFORM frm_set_fieldcat.
CALL METHOD gr_alv->standard_oo_alv
EXPORTING
iv_screen = '9000'
iv_default_ex = 'X'
is_layout = gs_layout
iv_self_ucomm = 'X'
iv_container_name = 'TC'
CHANGING
* CR_DOCK = GR_DOCK
* CR_GRID = GR_GRID
ct_fieldcat = gt_fieldcat
ct_data = gt_data
EXCEPTIONS
create_alv_failed = 1.
CALL SCREEN 9000.
FORM frm_set_fieldcat.
gs_layout-sel_mode = 'D' . "模式
gs_layout-zebra = 'X'. "ALV表格按斑马线条纹显示
gs_layout-cwidth_opt = 'X'. "将ALV字段宽度设置为最优化
gs_layout-no_merging = ''.
gs_layout-box_fname = 'CHECKBOX'.
DATA lv_pos TYPE i.
DATA ls_fieldcat LIKE LINE OF gt_fieldcat.
DEFINE %%append_fieldcat.
lv_pos = lv_pos 1.
ls_fieldcat-col_pos = lv_pos.
ls_fieldcat-fieldname = &1."字段名
ls_fieldcat-coltext = &2."文本
* ls_fieldcat-no_zero = &3."去掉前导零
ls_fieldcat-ref_table = &3.
ls_fieldcat-ref_field = &4.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
END-OF-DEFINITION.
%%append_fieldcat:
'CHECKBOX' '选择' '' '',
'MATNR' '' 'MARA' 'MATNR',
'MTART' '' 'MARA' 'MTART',
'MATKL' '' 'MARA' 'MATKL',
'MAKTX' '' 'MAKT' 'MAKTX'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_9000 OUTPUT.
SET PF-STATUS 'STATUS'.
SET TITLEBAR 'TITLE'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.
ok_code = sy-ucomm.
CASE ok_code.
WHEN 'BACK' OR 'EXIT'.
LEAVE TO SCREEN 0.
WHEN 'CANC'.
LEAVE PROGRAM.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Form FRM_PRINT_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM frm_print_data .
TYPES: lty_spopli TYPE TABLE OF spopli WITH EMPTY KEY.
DATA(lt_spopli) = VALUE lty_spopli(
( selflag = 'X' varoption = '打印')
( varoption = '仅预览')
( varoption = '输出PDF')
).
DATA: antwort TYPE c.
"选择打印功能
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
cursorline = 1
mark_flag = 'X'
mark_max = 1
* START_COL = 0
* START_ROW = 0
textline1 = '请选择输出功能'
* TEXTLINE2 = ' '
* TEXTLINE3 = ' '
titel = '功能选择'
* DISPLAY_ONLY = ' '
IMPORTING
answer = antwort
TABLES
t_spopli = lt_spopli
EXCEPTIONS
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
OTHERS = 4.
IF sy-subrc NE 0.
MESSAGE '请选择一个功能' TYPE 'I'.
RETURN.
ENDIF.
CHECK antwort IS NOT INITIAL.
DATA: fname(30) VALUE 'ZTEST_SMARTFORMS_01'.
DATA: fm_name TYPE rs38l_fnam.
DATA: ls_control_param TYPE ssfctrlop ."控制结构
DATA: ls_composer_param TYPE ssfcompop ."处理输出
DATA: outopt TYPE ssfcresop.
DATA: i_job_output_info TYPE ssfcrescl.
CASE antwort.
WHEN '1'.
ls_control_param-langu = '1'.
ls_control_param-no_open = 'X'."控制smartforms的调用
ls_control_param-no_close = 'X'."控制假脱机系统
ls_control_param-device = 'PRINTER'."
"最后一张票据需要关闭假脱机 ls_control_param-no_close = space
PERFORM frm_print_smf USING
ls_control_param
ls_composer_param
fname
CHANGING
i_job_output_info.
WHEN '2'."直接预览
ls_composer_param-tdnoprint = 'X'."预览界面无打印按钮
ls_control_param-langu = '1'.
ls_control_param-no_open = 'X'."控制smartforms的调用
ls_control_param-no_close = 'X'."控制假脱机系统
"最后一张票据需要关闭假脱机 ls_control_param-no_close = space
ls_control_param-no_dialog = 'X'."
ls_control_param-device = 'PRINTER'."
ls_control_param-preview = 'X'."预览
PERFORM frm_print_smf USING
ls_control_param
ls_composer_param
fname
CHANGING
i_job_output_info.
WHEN '3'.
DATA: lv_fullpath TYPE string.
DATA: l_filename TYPE string.
DATA: l_bin_filesize TYPE i.
DATA :l_bin_file TYPE xstring.
DATA: lt_lines TYPE STANDARD TABLE OF tline.
CALL METHOD cl_gui_frontend_services=>directory_browse
EXPORTING
window_title = '选择目录'
* INITIAL_FOLDER =
CHANGING
selected_folder = lv_fullpath.
* 根据SmartForm 名称获得Form的 Function Name
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = fname
IMPORTING
fm_name = fm_name
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE 'Call SSF_FUNCTION_MODULE_NAME Error' TYPE 'E'.
ENDIF.
ls_control_param-langu = '1'.
ls_control_param-no_dialog = 'X'."
ls_control_param-getotf = 'X'."
ls_composer_param-tddest = 'LP01'."打印机
* smartforms
CALL FUNCTION fm_name
EXPORTING
control_parameters = ls_control_param
output_options = ls_composer_param
IMPORTING
job_output_info = i_job_output_info
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE 'Call SmartForms Error' TYPE 'E'.
ENDIF.
* Convert content to PDF
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
format = 'PDF'
IMPORTING
bin_filesize = l_bin_filesize
* BIN_FILE = L_BIN_FILE
TABLES
otf = i_job_output_info-otfdata[]
lines = lt_lines
EXCEPTIONS
err_max_linewidth = 1
err_format = 2
err_conv_not_possible = 3
OTHERS = 4.
CONCATENATE lv_fullpath '' sy-datum sy-uzeit
'.PDF' INTO l_filename.
* download pdf
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
bin_filesize = l_bin_filesize
filename = l_filename
filetype = 'BIN'
TABLES
data_tab = lt_lines
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.
WHEN OTHERS.
ENDCASE.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_PRINT_SMF
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> LS_CONTROL_PARAM
*& --> LS_COMPOSER_PARAM
*& --> FNAME
*& <-- I_JOB_OUTPUT_INFO
*&---------------------------------------------------------------------*
FORM frm_print_smf USING ls_control_param TYPE ssfctrlop
ls_composer_param TYPE ssfcompop
fname TYPE char30
CHANGING i_job_output_info TYPE ssfcrescl.
DATA: outopt TYPE ssfcresop,
fm_name TYPE rs38l_fnam.
CALL FUNCTION 'SSF_OPEN'
EXPORTING
control_parameters = ls_control_param
output_options = ls_composer_param
IMPORTING
job_output_options = outopt
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.
EXIT.
ENDIF.
* 根据SmartForm 名称获得Form的 Function Name
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = fname
IMPORTING
fm_name = fm_name
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE 'Call SSF_FUNCTION_MODULE_NAME Error' TYPE 'E'.
ENDIF.
CALL FUNCTION fm_name
EXPORTING
control_parameters = ls_control_param
output_options = ls_composer_param
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
CALL FUNCTION 'SSF_CLOSE'
IMPORTING
job_output_info = i_job_output_info
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_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.
ENDFORM.
此程序使用OOALV :GR_ALV是自己创建的OO ALV的类，打印的按钮代码如下
CLASS lcl_alv DEFINITION .
PUBLIC SECTION.
······
"自定义工具栏
METHODS handle_toolbar
FOR EVENT toolbar OF cl_gui_alv_grid
IMPORTING e_object
e_interactive.
" 响应用户命令
METHODS handle_user_command
FOR EVENT user_command OF cl_gui_alv_grid
IMPORTING e_ucomm.
······
ENDCLASS .
"实施
CLASS lcl_alv IMPLEMENTATION.
METHOD handle_toolbar.
DATA:
ls_toolbar TYPE stb_button.
CLEAR ls_toolbar.
MOVE 'PRINT' TO ls_toolbar-function.
MOVE TEXT-t01 TO ls_toolbar-text.
MOVE icon_print TO ls_toolbar-icon.
APPEND ls_toolbar TO e_object->mt_toolbar.
ENDMETHOD.
METHOD handle_user_command.
······
CASE e_ucomm.
WHEN 'PRINT'.
PERFORM frm_print_data. "调用打印
WHEN OTHERS.
ENDCASE.
DATA ls_stbl TYPE lvc_s_stbl.
ls_stbl-row = 'X'.
ls_stbl-col = 'X'.
CALL METHOD cr_grid->refresh_table_display
EXPORTING
is_stable = ls_stbl.
ENDCLASS.
DATA gr_alv TYPE REF TO lcl_alv.
—— E N D ——
