SAP ABAP smartforms 创建并实现调用源码（下）

SAP ABAP smartforms 创建并实现调用源码（上）
smartforms 入门详见上一篇博文。

一：报表程序调用 smartforms

示例：报表选中一行，将这行机相关数据通过表单打印出来。实际例子:采购订单表，销售订单。

调用核心代码：

根据SmartForm 名称获得Form的 Function Names
call function ‘SSF_FUNCTION_MODULE_NAME’
exporting
formname = uv_name
importing
fm_name = gv_fm_name
exceptions
no_form = 1
no_function_module = 2
others = 3.
传入参数
call function gv_fm_name
exporting
control_parameters = ls_ssfctrlop
ls_student = gs_student
tables
it_student = it_student
exceptions
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
others = 5.

二：进阶功能
1.初始化变量
当变量是调用 smartforms 后需要计算或转换的，可以先在全局数据定义一个变量，在初始化页写代码赋值。例：打印的列表计算总和。
在这里插入图片描述
2.在se11中参考过了货币和数字单位字段,也需要在smartforms中的全局定义中做参考。否则报错消息编号601：参考字段&1在表格中未知的错误。数量选择数据类型 ‘QUAN’ 货币选择数据类型 ‘CURR’。

3.动态表格行数超过一页打印纸，需要转到下一页打印并且其他部分布局和内容不变的情况，在表格下方右键新建命令。
在这里插入图片描述
PS：一定要设置条件页（仅在页为第一页）和常规属性（转到新页第二页）。

在这里插入图片描述
除了命令所在页，后续还有几页就创建几个命令。设置的所在页和转到下一页依次累加。

4.当前页码/总页码

&SFSY-PAGE&/&SFSY-JOBPAGES&
5.根据判断条件决定文本显示。在条件栏输入对应关系，下图的例子表示当这个字段是’张三’的时候就显示，否则不显示。文本的话要用引号。
在这里插入图片描述

三：全部代码

*&---------------------------------------------------------------------*
*& Report ZTEST_EXPORT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_EXPORT.


*----------------------------------------------------------------------*
* Type-pools/定义类型池
*----------------------------------------------------------------------*
TYPE-POOLS: slis.

*----------------------------------------------------------------------*
* Tables/声明数据库表
*----------------------------------------------------------------------*
TABLES:ZMMTEST.

*----------------------------------------------------------------------*
* Type/自定义类型
*----------------------------------------------------------------------*
TYPES:BEGIN OF ty_alv,
        sel type char1,  "是否被选择
        id   type zmmtest-id,
        name type zmmtest-name,
        age  type zmmtest-age,
        sex  type zmmtest-sex,
        hobby type zmmtest-hobby,
        "include TYPE zmmtest,
        times     type numc4,    "打印次数
  END OF ty_alv.

DATA:gt_alv      TYPE STANDARD TABLE OF ty_alv,
     gs_alv      TYPE ty_alv,
     gt_print    type standard table of ty_alv,
     gs_student  type zmmtest,
     it_student  type TABLE OF zmmtest.
DATA:gv_fm_name TYPE rs38l_fnam.

*-------------------------------------*
* Define the Macros/定义
*----------------------------------------------------------------------*
DEFINE set_fieldcat.
  CLEAR gs_fcat_lvc .
  gs_fcat_lvc-fieldname = &1."内表的字段
  gs_fcat_lvc-outputlen = &2."输出长度
  gs_fcat_lvc-scrtext_l = &3."在ALV里面显示的名字
  gs_fcat_lvc-just      = &4."水平对齐方式，L左对齐，R右对齐。
  gs_fcat_lvc-no_zero   = &5."去除前导零
  APPEND gs_fcat_lvc TO gt_fcat_lvc .
END-OF-DEFINITION.
*----------------------------------------------------------------------*
* 声明ALV对象
*----------------------------------------------------------------------*
DATA:gs_layout_lvc TYPE lvc_s_layo,
     gt_fcat_lvc   TYPE lvc_t_fcat,
     gs_fcat_lvc   TYPE lvc_s_fcat.
*----------------------------------------------------------------------*
* Internal table and work area/定义内表和工作区
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
* Selection  screen/定义屏幕
*----------------------------------------------------------------------*
SELECTION-SCREEN FUNCTION KEY: 1 .
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE TEXT-t01.
    SELECT-OPTIONS: s_id FOR zmmtest-id,
                    s_name FOR zmmtest-name,
                    s_age FOR zmmtest-age,
                    s_sex FOR zmmtest-sex,
                    s_hobby FOR zmmtest-hobby.
SELECTION-SCREEN END OF BLOCK block1.
*----------------------------------------------------------------------*
* Initialization/初始事件
*----------------------------------------------------------------------*
INITIALIZATION.

*----------------------------------------------------------------------*
* At selection-screen/屏幕事件
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.

*----------------------------------------------------------------------*
* AT SELECTION-SCREEN OUTPUT
*----------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
*----------------------------------------------------------------------*
* Start-of-selection/开始选择事件
*----------------------------------------------------------------------*
START-OF-SELECTION.
*取数据
  PERFORM frm_get_data.
*ALV展示
  PERFORM frm_display_alv.
*----------------------------------------------------------------------*
* End-of-selection/结束选择事件
*----------------------------------------------------------------------*
END-OF-SELECTION.
*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
FORM frm_get_data .
  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE gt_alv
    from zmmtest
    where id in s_id
       AND name in s_name
       AND age  in s_age
       AND sex  in s_sex
       AND hobby in s_hobby.

endform.

*&---------------------------------------------------------------------*
*& Form FRM_DISPLAY_ALV
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
FORM frm_display_alv .
  set_fieldcat:'ID'  '' '学号' '' '',
               'NAME' '' '学生姓名' '' '',
               'AGE' '' '年龄' '' '',
               'SEX' '' '性别' '' '',
               'HOBBY' '' '兴趣爱好' '' ''.
  CLEAR:gs_layout_lvc.
  gs_layout_lvc-zebra     = 'X'.
  gs_layout_lvc-cwidth_opt   = 'X'.
  gs_layout_lvc-box_fname   = 'SEL'.   "选择框
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program = sy-repid
      i_callback_pf_status_set = 'FRM_PF_STATUS'
      i_callback_user_command  = 'FRM_USER_COMMAND'
      is_layout_lvc      = gs_layout_lvc
      it_fieldcat_lvc    = gt_fcat_lvc
      i_save             = 'A'
    TABLES
      t_outtab           = gt_alv
    EXCEPTIONS
      program_error      = 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.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FRM_PF_STATUS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_pf_status USING pt_extab TYPE slis_t_extab .
  SET PF-STATUS 'STATUS' .

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FRM_USER_COMMAND
*&---------------------------------------------------------------------*
*       自定义的用户命令处理
*----------------------------------------------------------------------*
*      -->PV_UCOMM      用户命令类型
*      -->PS_SELFIELD  用户命令信息
*----------------------------------------------------------------------*
form frm_user_command using pv_ucomm type sy-ucomm
      ps_selfield type slis_selfield.
  data: lr_grid type ref to cl_gui_alv_grid.
*  ps_selfield-refresh    = 'X'.
*  ps_selfield-col_stable = 'X'.
*  ps_selfield-row_stable = 'X'.
  data : lv_stable type lvc_s_stbl.
  lv_stable-row = '1'.
  lv_stable-col = '1'.

  call function 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    importing
      e_grid = lr_grid.
  call method lr_grid->check_changed_data.

  case pv_ucomm.
    when '&PRINT'.
      perform frm_print_data.
    when 'ALL'.
      perform frm_select_all.
    when 'SAL'.
      perform frm_deselect_all.
    when '&IC1'.
      read table gt_alv index ps_selfield-tabindex into gs_alv.  "获取单击行
      if ps_selfield-fieldname = 'SEL' and gs_alv-sel = ''.
        gs_alv-sel = 'X'.
        modify gt_alv from gs_alv transporting sel where id = gs_alv-id.
      elseif ps_selfield-fieldname = 'SEL' and gs_alv-sel = 'X'.
        gs_alv-sel = ''.
        modify gt_alv from gs_alv transporting sel where id = gs_alv-id.
      endif.
  endcase.
*刷新
  call method lr_grid->refresh_table_display
    exporting
      is_stable = lv_stable.
endform.

*&---------------------------------------------------------------------*
*& Form FRM_SELECT_ALL
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
form frm_select_all .
  loop at gt_alv into gs_alv.
    gs_alv-sel = 'X'.
    modify gt_alv from gs_alv index sy-tabix transporting sel.
  endloop.
endform.
*&---------------------------------------------------------------------*
*& Form FRM_DESELECT_ALL
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
form frm_deselect_all .
  loop at gt_alv into gs_alv.
    gs_alv-sel = ''.
    modify  gt_alv from gs_alv index sy-tabix transporting sel .
  endloop.
endform.

*&---------------------------------------------------------------------*
*& Form FRM_PRINT_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
form frm_print_data .
  refresh gt_print.
  loop at gt_alv into gs_alv where sel = 'X'.
    append gs_alv to gt_print.
  endloop.
  if sy-langu  = '1'.
    if gt_print is initial.
      message '请选择需打印的凭证' type 'E' display like 'S'.
    endif.
  else.
    if gt_print is initial.
      message 'Please select the certificate to print' type 'E' display like 'S'.
    endif.
  endif.

*获取数据
"perform frm_select_data.
  if sy-langu = '1'.
    perform frm_open_print_window using 'ZMMFTEST'.
  else.
    perform frm_open_print_window using 'ZMMFTEST_EN'.
  endif.
  perform frm_get_print_data.
  perform frm_close_print_window.
endform.
*&---------------------------------------------------------------------*
*& Form FRM_SELECT_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
form frm_select_data .
"根据实际查询需要
endform.

*&---------------------------------------------------------------------*
*& Form FRM_OPEN_PRINT_WINDOW
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
form frm_open_print_window using uv_name type tdsfname..
  data:ls_ssfcompop type ssfcompop,
       ls_ssfctrlop type ssfctrlop.
  ls_ssfcompop-tdimmed = 'X'.
  ls_ssfcompop-tddelete = 'X'.
  ls_ssfcompop-tdiexit = 'X'.

  ls_ssfctrlop-no_open = 'X'.
  ls_ssfctrlop-no_close = 'X'.
  ls_ssfctrlop-langu = sy-langu.
* 根据SmartForm 名称获得Form的 Function Names
  call function 'SSF_FUNCTION_MODULE_NAME'
    exporting
      formname           = uv_name
    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.
*****打开打印窗口
  call function 'SSF_OPEN'
    exporting
      user_settings      = ''
      output_options     = ls_ssfcompop
      control_parameters = ls_ssfctrlop
    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.
endform.
*&---------------------------------------------------------------------*
*& Form FRM_CLOSE_PRINT_WINDOW
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
form frm_close_print_window .
  data: ls_ssfcrescl type ssfcrescl.

*****关闭打印窗口
  call function 'SSF_CLOSE'
    importing
      job_output_info  = ls_ssfcrescl
    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.
*统计打印次数
  if ls_ssfcrescl-outputdone = 'X'.
    loop at gt_print into gs_alv.

*更改ALV数据
      gs_alv-times = gs_alv-times + 1.
      modify gt_alv from gs_alv transporting times where id = gs_alv-id.
      if sy-langu = '1'.
        message '打印成功' type 'S'.
      else.
        message 'Print success' type 'S'.
      endif.
    endloop.
  endif.
endform.
*&---------------------------------------------------------------------*
*& Form FRM_GET_PRINT_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
form frm_get_print_data .
  loop at gt_print into gs_alv.
*打印
     gs_student = CORRESPONDING #( gs_alv ).

     it_student =  CORRESPONDING #( gt_alv ).

    perform frm_print.
  endloop.

endform.

*&---------------------------------------------------------------------*
*& Form FRM_PRINT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
form frm_print.
  data:ls_ssfctrlop type ssfctrlop.
  data lv_page type i.
  ls_ssfctrlop-no_open = 'X'.
  ls_ssfctrlop-no_close = 'X'.
****打印
  call function gv_fm_name
    exporting
      control_parameters = ls_ssfctrlop
      ls_student          = gs_student
    tables
      it_student            = it_student
    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.
endform.