设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

SAP中程序实现向导创建Wizard creation

Twilight发表于 2014-12-29 16:41Twilight 最后回复于 2014-12-29 16:41 [复制链接] 4281 0

向导是sap中指导用户一步一步地完成某种工作，他和我们电脑中安装软件时的向导差不多，主要包含以下function modules：
  • SWF_WIZARD_CALL  
  • SWF_WIZARD_Dialog_DATA_GET  
  • SWF_WIZARD_DIALOG_DATA_SET  
  • SWF_WIZARD_DIALOG_MODIFY  
  • SWF_WIZARD_DIALOG_OKCODE_GET  
  • SWF_WIZARD_DIALOG_OKCODE_SET  
  • SWF_WIZARD_DIALOG_REFRESH  
  • SWF_WIZARD_PROCESS  
  • SWF_WIZARD_PROCESS_INTERNAL  
  • SWF_WIZARD_PROCESS_MODIFY  
  • SWF_WIZARD_PROCESS_READ

下面我们以加减计算的小例子讲解，程序逻辑如下
logical_img.jpg
一、创建三个子屏幕500、501、502；子屏幕没有ok_code
Wizard creation 1.jpg
1、500 subscreen 格式：
Wizard creation 2.jpg
Wizard creation 3.jpg
Add/Subtract加减radio button实现方法：dialog中使用单选按钮Radio buttons
逻辑流
  1. PROCESS BEFORE OUTPUT.
  2. * MODULE STATUS_0500.
  3. *
  4. PROCESS AFTER INPUT.
  5.   MODULE user_command_0500.
复制代码

2、501 subscreen 格式：
Wizard creation 4.jpg
逻辑流
  1. PROCESS BEFORE OUTPUT.
  2. MODULE STATUS_0501.
  3. *
  4. PROCESS AFTER INPUT.
  5. * MODULE USER_COMMAND_0501.
复制代码

3、502 subscreen 格式：
Wizard creation 5.jpg
逻辑流
  1. PROCESS BEFORE OUTPUT.
  2. MODULE STATUS_0502.
  3. *
  4. PROCESS AFTER INPUT.
  5. * MODULE USER_COMMAND_0502.
复制代码

二、se61创建一个dialog text对象
Wizard creation 6.jpg
Wizard creation 7.jpg
三、新建程序
  1. REPORT  ydamon_095.
  2. INCLUDE : <wizard>.

  4. DATA : it_wizdef TYPE TABLE OF swf_wizdef,
  5.         wa_wizdef TYPE swf_wizdef,
  6.         wa_wizard TYPE swf_wizard,
  7.         result TYPE i,
  8.         rad1 TYPE xfeld,
  9.         rad2 TYPE xfeld,
  10.         num1 TYPE i,
  11.         num2 TYPE i,
  12.         answer TYPE i.

  14. PERFORM wizard_append USING :
  15.        'YDAMON_095' 'START' 'START_WIZARD',
  16.        'YDAMON_095' 'USER INPUT' 'SHOW_SCREEN_0500',
  17.        'YDAMON_095' 'ADDITION RESULT' 'SHOW_SCREEN_0501',
  18.        'YDAMON_095' 'SUBTRACTION RESULT' 'SHOW_SCREEN_0502',
  19.        'YDAMON_095' 'COMPLETE' 'END_WIZARD'.

  21. CALL FUNCTION 'SWF_WIZARD_PROCESS'
  22.   EXPORTING
  23.    container_compensation            = 'X'
  24. *   PROCESS_LOGGING                   = 'X'
  25. *   ROADMAP                           = 'X'
  26. *   START_COLUMN                      = 2
  27. *   START_ROW                         = 2
  28. *   AMODAL                            = ' '
  29. *   DO_INIT                           = ' '
  30.    TABLES
  31.      definition                        = it_wizdef
  32. *   CONTAINER_PARAMETER               =
  33.   EXCEPTIONS
  34.     operation_cancelled_by_user       = 1
  35.     process_in_error                  = 2
  36.     OTHERS                            = 3
  37.            .
  38. IF sy-subrc <> 0.
  39. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  40. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  41. ENDIF.
  42. *&---------------------------------------------------------------------*
  43. *&      Form  WIZARD_APPEND
  44. *&---------------------------------------------------------------------*
  45. *       text
  46. *----------------------------------------------------------------------*
  47. *      -->P_0022   text
  48. *      -->P_0023   text
  49. *      -->P_0024   text
  50. *----------------------------------------------------------------------*
  51. FORM wizard_append  USING lv_program TYPE c
  52.                            lv_text TYPE c
  53.                            lv_subroutine TYPE c.
  54.   CLEAR wa_wizdef.
  55.   wa_wizdef-program = lv_program.
  56.   wa_wizdef-text = lv_text.
  57.   wa_wizdef-form = lv_subroutine.
  58.   APPEND wa_wizdef TO it_wizdef.
  59. ENDFORM.                    " WIZARD_APPEND

  61. *&---------------------------------------------------------------------*
  62. *&      Form  START_WIZARD
  63. *&---------------------------------------------------------------------*
  64. *       text
  65. *----------------------------------------------------------------------*
  66. *      -->CONTAINER  text
  67. *      -->COMMAND    text
  68. *----------------------------------------------------------------------*
  69. FORM start_wizard TABLES container USING command.
  70.   CLEAR wa_wizard.

  72.   wa_wizard-descobject = 'YWIZARD_DEMO_TEXT'.
  73.   wa_wizard-screen_typ = wizard_screen_start.

  75.   CALL FUNCTION 'SWF_WIZARD_CALL'
  76.     EXPORTING
  77.       wizard_data                       = wa_wizard
  78. *    SPECIFIC_DATA_IMPORT              =
  79.      start_column                      = 2
  80.      start_row                         = 2
  81. *  IMPORTING
  82. *    SPECIFIC_DATA_EXPORT              =
  83. *  TABLES
  84. *    SPECIFIC_TABLE_IMPORT             =
  85. *    SPECIFIC_TABLE_EXPORT             =
  86. *    SPECIFIC_CONTAINER                =
  87.    EXCEPTIONS
  88.      operation_cancelled_by_user       = 1
  89.      back                              = 2
  90.      OTHERS                            = 3
  91.             .
  92.   IF sy-subrc <> 0.
  93. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  94. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  95.   ENDIF.

  97.   swf_evaluate command.
  98. ENDFORM.                    "START_WIZARD

  100. *&---------------------------------------------------------------------*
  101. *&      Form  SHOW_SCREEN_0500
  102. *&---------------------------------------------------------------------*
  103. *       text
  104. *----------------------------------------------------------------------*
  105. *      -->CONTAINER  text
  106. *      -->COMMAND    text
  107. *----------------------------------------------------------------------*
  108. FORM show_screen_0500 TABLES container USING command.

  110.   wa_wizard-docuobject = 'YWIZARD_DEMO_TEXT'.
  111.   wa_wizard-screen_typ = wizard_screen_normal.
  112.   wa_wizard-subscpool1 = 'YDAMON_095'.
  113.   wa_wizard-subscreen1 = '0500'.

  115.   CALL FUNCTION 'SWF_WIZARD_CALL'
  116.     EXPORTING
  117.       wizard_data                       = wa_wizard
  118.     "SPECIFIC_DATA_IMPORT              =
  119.      start_column                      = 2
  120.      start_row                         = 2
  121.    "IMPORTING
  122.      "SPECIFIC_DATA_EXPORT              =
  123. *  TABLES
  124. *    SPECIFIC_TABLE_IMPORT             =
  125. *    SPECIFIC_TABLE_EXPORT             =
  126. *    SPECIFIC_CONTAINER                =
  127.    EXCEPTIONS
  128.      operation_cancelled_by_user       = 1
  129.      back                              = 2
  130.      OTHERS                            = 3
  131.             .
  132.   IF sy-subrc <> 0.
  133. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  134. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  135.   ENDIF.

  137.   swf_evaluate command.
  138. ENDFORM.                    "SHOW_SCREEN_0500
  139. *&---------------------------------------------------------------------*
  140. *&      Form  SHOW_SCREEN_0501
  141. *&---------------------------------------------------------------------*
  142. *       text
  143. *----------------------------------------------------------------------*
  144. *      -->CONTAINER  text
  145. *      -->COMMAND    text
  146. *----------------------------------------------------------------------*
  147. FORM show_screen_0501 TABLES container USING command.

  149.   wa_wizard-docuobject = 'YWIZARD_DEMO_TEXT'.
  150.   wa_wizard-screen_typ = wizard_screen_normal.
  151.   wa_wizard-subscpool1 = 'YDAMON_095'.
  152.   wa_wizard-subscreen1 = '0501'.
  153.   CALL FUNCTION 'SWF_WIZARD_CALL'
  154.     EXPORTING
  155.       wizard_data                       = wa_wizard
  156. *     SPECIFIC_DATA_IMPORT              =
  157.      start_column                      = 2
  158.      start_row                         = 2
  159. *   IMPORTING
  160. *     SPECIFIC_DATA_EXPORT              =
  161. *   TABLES
  162. *     SPECIFIC_TABLE_IMPORT             =
  163. *     SPECIFIC_TABLE_EXPORT             =
  164. *     SPECIFIC_CONTAINER                =
  165.    EXCEPTIONS
  166.      operation_cancelled_by_user       = 1
  167.     back                              = 2
  168.      OTHERS                            = 3
  169.             .
  170.   IF sy-subrc <> 0.
  171. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  172. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  173.   ENDIF.

  175.   CALL FUNCTION 'SWF_WIZARD_PROCESS_MODIFY'
  176.     EXPORTING
  177.       step_form           = 'END_WIZARD'
  178.       step_program        = 'YDAMON_095'
  179.       command             = 'J'
  180.     EXCEPTIONS
  181.       modification_failed = 1
  182.       OTHERS              = 2.
  183.   IF sy-subrc <> 0.
  184. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  185. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  186.   ENDIF.

  188.   swf_evaluate command.
  189. ENDFORM.                    "SHOW_SCREEN_0501

  191. *&---------------------------------------------------------------------*
  192. *&      Form  SHOW_SCREEN_0502
  193. *&---------------------------------------------------------------------*
  194. *       text
  195. *----------------------------------------------------------------------*
  196. *      -->CONTAINER  text
  197. *      -->COMMAND    text
  198. *----------------------------------------------------------------------*
  199. FORM show_screen_0502 TABLES container USING command.

  201.   wa_wizard-docuobject = 'YWIZARD_DEMO_TEXT'.
  202.   wa_wizard-screen_typ = wizard_screen_normal.
  203.   wa_wizard-subscpool1 = 'YDAMON_095'.
  204.   wa_wizard-subscreen1 = '0502'.
  205.   CALL FUNCTION 'SWF_WIZARD_CALL'
  206.      EXPORTING
  207.        wizard_data                       = wa_wizard
  208. *   SPECIFIC_DATA_IMPORT              =
  209.       start_column                      = 2
  210.       start_row                         = 2
  211. * IMPORTING
  212. *   SPECIFIC_DATA_EXPORT              =
  213. * TABLES
  214. *   SPECIFIC_TABLE_IMPORT             =
  215. *   SPECIFIC_TABLE_EXPORT             =
  216. *   SPECIFIC_CONTAINER                =
  217.     EXCEPTIONS
  218.       operation_cancelled_by_user       = 1
  219.       back                              = 2
  220.       OTHERS                            = 3
  221.              .
  222.   IF sy-subrc <> 0.
  223. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  224. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  225.   ENDIF.

  227.   CALL FUNCTION 'SWF_WIZARD_PROCESS_MODIFY'
  228.     EXPORTING
  229.       step_form           = 'END_WIZARD'
  230.       step_program        = 'YDAMON_095'
  231.       command             = 'J'
  232.     EXCEPTIONS
  233.       modification_failed = 1
  234.       OTHERS              = 2.
  235.   IF sy-subrc <> 0.
  236. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  237. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  238.   ENDIF.

  240.   swf_evaluate command.
  241. ENDFORM.                    "SHOW_SCREEN_0502

  243. *&---------------------------------------------------------------------*
  244. *&      Form  END_WIZARD
  245. *&---------------------------------------------------------------------*
  246. *       text
  247. *----------------------------------------------------------------------*
  248. *      -->CONTAINER  text
  249. *      -->COMMAND    text
  250. *----------------------------------------------------------------------*
  251. FORM end_wizard TABLES container USING command.

  253.   wa_wizard-descobject = 'YWIZARD_DEMO_TEXT'.
  254.   wa_wizard-screen_typ = wizard_screen_end.

  256.   CALL FUNCTION 'SWF_WIZARD_CALL'
  257.     EXPORTING
  258.       wizard_data                       = wa_wizard
  259. *    SPECIFIC_DATA_IMPORT              =
  260.      start_column                      = 2
  261.      start_row                         = 2
  262. *  IMPORTING
  263. *    SPECIFIC_DATA_EXPORT              =
  264. *  TABLES
  265. *    SPECIFIC_TABLE_IMPORT             =
  266. *    SPECIFIC_TABLE_EXPORT             =
  267. *    SPECIFIC_CONTAINER                =
  268.    EXCEPTIONS
  269.      operation_cancelled_by_user       = 1
  270.      back                              = 2
  271.      OTHERS                            = 3
  272.             .
  273.   IF sy-subrc <> 0.
  274. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  275. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  276.   ENDIF.
  277.   swf_evaluate command.
  278. ENDFORM.                    "END_WIZARD
  279. *&---------------------------------------------------------------------*
  280. *&      Module  USER_COMMAND_0500  INPUT
  281. *&---------------------------------------------------------------------*
  282. *       text
  283. *----------------------------------------------------------------------*
  284. MODULE user_command_0500 INPUT.
  285.   CASE sy-ucomm.
  286.     WHEN 'RADIO'.
  287.       IF rad1 = 'X'.
  288.         result = num1 + num2.
  289.       ELSEIF rad2 = 'X'.
  290.         result = num1 - num2.
  291.       ENDIF.
  292.   ENDCASE.
  293. ENDMODULE.                 " USER_COMMAND_0500  INPUT
  294. *&---------------------------------------------------------------------*
  295. *&      Module  STATUS_0501  OUTPUT
  296. *&---------------------------------------------------------------------*
  297. *       text
  298. *----------------------------------------------------------------------*
  299. MODULE status_0501 OUTPUT.
  300.   answer = result.
  301. ENDMODULE.                 " STATUS_0501  OUTPUT
  302. *&---------------------------------------------------------------------*
  303. *&      Module  STATUS_0502  OUTPUT
  304. *&---------------------------------------------------------------------*
  305. *       text
  306. *----------------------------------------------------------------------*
  307. MODULE status_0502 OUTPUT.
  308.   answer = result.
  309. ENDMODULE.                    "STATUS_0502 OUTPUT
复制代码

FM: SWF_WIZARD_CALL用于调用在工作流中的wizard screen，screen type有以下几种
  • Starting screen  
  • Ending screen  
  • Input screen  
  • Normal screen  
  • Report screen  
  • Text screen

FM: SWF_WIZARD_PROCESS_MODIFY控制wizard flow的流向，有三个重要的参数：
1、Step_program        下一步需要调用的程序
2、Step_form        下一步需要调用的form
3、Commands:执行的命令，有三种：
  • A -  Activate a screen in wizard definition  
  • D -  Deactivate a screen in wizard definition.  
  • J -  Jump to a screen in the wizard flow.

四、程序测试
Wizard creation 8.jpg
Wizard creation 9.jpg
Wizard creation 10.jpg
Wizard creation 11.jpg
10+8=18
向导, Wizard, dialog, se61

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 846 主题
  2. 125 回帖
  3. 11241 积分
发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-11-23 18:17 , Processed in 0.060142 second(s), 6 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.5

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表