二维码

bdc批量导入excel中mm01物料主数据,收集消息alv显示

Twilight发表于 2014-02-11 11:30Twilight 最后回复于 2014-02-11 11:30 [复制链接] 1255 0

测试数据执行效果图
bdc_mm01.jpg

主要功能
1.文件路径的有效性检查
2.成功和错误消息 红绿灯分类汇总
3.通过tabix标记出ALV中每行数据在execl中的位置
4.execl中数据在bdc之前的check检查
4.alv显示整个效果

主程序代码:
  1. *->execl数据上传所需的结构
  2. TYPES :BEGIN OF TY_GETDATA,
  3.          MAT_NO(10),
  4.          MAT_NAME(50),
  5.          MEINS(5),
  6.          OLD_MAT_NAME(20),
  7.          GROSS_WT(10),
  8.          WT_UNIT(5),
  9.          NTGEW(10),
  10.          VOLUM(10),
  11.          VOLEH(5),
  12.          GROES(20),
  13.        END OF TY_GETDATA.
  14. *->收集导入返回的信息
  15. TYPES :BEGIN OF TY_MESSAGE,
  16.         TABIX TYPE SYTABIX,
  17.         MAT_NO(10),
  18.         MAT_NAME(50),
  19.         MEINS(5),
  20.         OLD_MAT_NAME(20),
  21.         GROSS_WT(10),
  22.         WT_UNIT(5),
  23.         NTGEW(10),
  24.         VOLUM(10),
  25.         VOLEH(5),
  26.         GROES(20),
  27.         MESSAGE(250),
  28.         ICON(10), "LED
  29.         SUM TYPE I,
  30.       END OF TY_MESSAGE.

  31. DATA:IT_GETDATA TYPE TABLE OF TY_GETDATA WITH HEADER LINE,
  32.      IT_MESSAGE TYPE TABLE OF TY_MESSAGE WITH HEADER LINE.
  33. DATA:BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE.
  34. DATA:MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
  35. DATA CTUMODE LIKE CTU_PARAMS-DISMODE VALUE 'N'. " A DEBUG  N A E P
  36. DATA CUPDATE LIKE CTU_PARAMS-UPDMODE VALUE 'L'. " A S L

  37. SELECTION-SCREEN BEGIN OF BLOCK BLK_010 WITH FRAME TITLE TEXT-001.
  38. PARAMETERS:P_FILE LIKE RLGRAP-FILENAME OBLIGATORY.
  39. SELECTION-SCREEN END OF BLOCK BLK_010.

  40. AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
  41.   CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
  42.    EXPORTING
  43. *     PROGRAM_NAME        = SYST-REPID
  44. *     DYNPRO_NUMBER       = SYST-DYNNR
  45. *     FIELD_NAME          = ' '
  46.      STATIC              = 'X'
  47. *     MASK                = ' '
  48. *     FILEOPERATION       = 'R'
  49. *     PATH                =
  50.     CHANGING
  51.       FILE_NAME           = P_FILE
  52. *     LOCATION_FLAG       = 'P'
  53. *   EXCEPTIONS
  54. *     MASK_TOO_LONG       = 1
  55. *     OTHERS              = 2
  56.             .
  57. *--------------------------------------------------------------------*
  58. *  START-OF-SELECTION
  59. *--------------------------------------------------------------------*
  60. START-OF-SELECTION.
  61.   PERFORM PARAMETERS_CHECK.
  62.   PERFORM GET_DATA.

  63.   LOOP AT IT_GETDATA.
  64.     MOVE-CORRESPONDING IT_GETDATA TO IT_MESSAGE.
  65.     IT_MESSAGE-TABIX = SY-TABIX + 1."alv显示的索引号与execl中数据顺序相同
  66.     PERFORM CHECK_VALUE.

  67.     IF IT_MESSAGE-ICON <> ICON_LED_RED.
  68. *       PERFORM BDC_INPUT.
  69.       CLEAR BDCDATA."一定不能忘记清空
  70.       REFRESH BDCDATA.
  71.       PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '0060'.
  72.       PERFORM BDC_FIELD       USING 'BDC_CURSOR'
  73.                                     'RMMG1-MATNR'.
  74.       PERFORM BDC_FIELD       USING 'BDC_OKCODE'
  75.                                     '=ENTR'.
  76.       PERFORM BDC_FIELD       USING 'RMMG1-MATNR'
  77.                                    IT_GETDATA-MAT_NO.
  78.       PERFORM BDC_FIELD       USING 'RMMG1-MBRSH'
  79.                                     'M'.
  80.       PERFORM BDC_FIELD       USING 'RMMG1-MTART'
  81.                                     'FERT'.
  82.       PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '0070'.
  83.       PERFORM BDC_FIELD       USING 'BDC_CURSOR'
  84.                                     'MSICHTAUSW-DYTXT(01)'.
  85.       PERFORM BDC_FIELD       USING 'BDC_OKCODE'
  86.                                     '=ENTR'.
  87.       PERFORM BDC_FIELD       USING 'MSICHTAUSW-KZSEL(01)'
  88.                                     'X'.
  89.       PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4004'.
  90.       PERFORM BDC_FIELD       USING 'BDC_OKCODE'
  91.                                     '=BU'.
  92.       PERFORM BDC_FIELD       USING 'MAKT-MAKTX'
  93.                                     IT_GETDATA-MAT_NAME.
  94.       PERFORM BDC_FIELD       USING 'MARA-MEINS'
  95.                                     IT_GETDATA-MEINS.
  96.       PERFORM BDC_FIELD       USING 'MARA-BISMT'
  97.                                     IT_GETDATA-OLD_MAT_NAME.
  98.       PERFORM BDC_FIELD       USING 'MARA-MTPOS_MARA'
  99.                                     'NORM'.
  100.       PERFORM BDC_FIELD       USING 'BDC_CURSOR'
  101.                                     'MARA-GROES'.
  102.       PERFORM BDC_FIELD       USING 'MARA-BRGEW'
  103.                                     IT_GETDATA-GROSS_WT.
  104.       PERFORM BDC_FIELD       USING 'MARA-GEWEI'
  105.                                     IT_GETDATA-WT_UNIT.
  106.       PERFORM BDC_FIELD       USING 'MARA-NTGEW'
  107.                                     IT_GETDATA-NTGEW.
  108.       PERFORM BDC_FIELD       USING 'MARA-VOLUM'
  109.                                     IT_GETDATA-VOLUM.
  110.       PERFORM BDC_FIELD       USING 'MARA-VOLEH'
  111.                                     IT_GETDATA-VOLEH.
  112.       PERFORM BDC_FIELD       USING 'MARA-GROES'
  113.                                     IT_GETDATA-GROES.

  114.       PERFORM BDC_TRANSACTION USING 'MM01'.
  115.     ENDIF.
  116.     IT_MESSAGE-SUM = 1."用来统计成功和错误的条数
  117.     APPEND IT_MESSAGE.
  118.     CLEAR IT_MESSAGE.
  119.     CLEAR IT_GETDATA.
  120.   ENDLOOP.

  121.   PERFORM DIAPLAY_MESSAGE.

  122. *&---------------------------------------------------------------------*
  123. *&      Form  PARAMETERS_CHECK
  124. *&---------------------------------------------------------------------*
  125. *       text
  126. *----------------------------------------------------------------------*
  127. FORM PARAMETERS_CHECK .
  128.   DATA: LV_FILE TYPE STRING,
  129.         LV_EXIST TYPE ABAP_BOOL.
  130.   LV_FILE = P_FILE.
  131.   "Checks if a File Exists  检查文件是否存在
  132.   CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_EXIST
  133.     EXPORTING
  134.       FILE                 = LV_FILE
  135.     RECEIVING
  136.       RESULT               = LV_EXIST
  137.     EXCEPTIONS
  138.       CNTL_ERROR           = 1
  139.       ERROR_NO_GUI         = 2
  140.       WRONG_PARAMETER      = 3
  141.       NOT_SUPPORTED_BY_GUI = 4
  142.       OTHERS               = 5.
  143.   IF SY-SUBRC <> 0.
  144.     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  145.             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  146.     LEAVE LIST-PROCESSING.
  147.   ELSEIF LV_EXIST = ABAP_FALSE.
  148.     MESSAGE S001(00) WITH '文件:' LV_FILE '不存在'.
  149.     LEAVE LIST-PROCESSING.
  150.   ENDIF.

  151. ENDFORM.                    " PARAMETERS_CHECK
  152. *&---------------------------------------------------------------------*
  153. *&      Form  GET_DATA
  154. *&---------------------------------------------------------------------*
  155. *       text
  156. *----------------------------------------------------------------------*
  157. FORM GET_DATA .
  158.   DATA: IT_RAW_DATA TYPE TRUXS_T_TEXT_DATA.
  159.   REFRESH: IT_GETDATA.
  160.   CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
  161.     EXPORTING
  162. *   I_FIELD_SEPERATOR          =
  163.       I_LINE_HEADER              = 'X'"去掉模板第一行标题头部
  164.       I_TAB_RAW_DATA             = IT_RAW_DATA
  165.       I_FILENAME                 = P_FILE
  166.     TABLES
  167.       I_TAB_CONVERTED_DATA       = IT_GETDATA[]
  168. * EXCEPTIONS
  169. *   CONVERSION_FAILED          = 1
  170. *   OTHERS                     = 2
  171.             .
  172.   IF SY-SUBRC <> 0.
  173.     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  174.             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  175.   ENDIF.

  176.   IF IT_GETDATA[] IS INITIAL.
  177.     MESSAGE S001(00) WITH '文件中没有数据'(001).
  178.     LEAVE LIST-PROCESSING.
  179.   ENDIF.
  180. ENDFORM.                    "GET_DATA
  181. *&---------------------------------------------------------------------*
  182. *&      Form  CHECK_VALUE
  183. *&---------------------------------------------------------------------*
  184. *       text
  185. *----------------------------------------------------------------------*
  186. *  -->  p1        text
  187. *  <--  p2        text
  188. *----------------------------------------------------------------------*
  189. FORM CHECK_VALUE .
  190.   TABLES:T006,MARA."不写into 必须用tables申明一下
  191.   DATA:L_MESSAGE TYPE STRING.
  192.   DATA:MEINS_OUTPUT,VOLEH_OUTPUT.

  193.   CLEAR:L_MESSAGE.

  194.   SELECT SINGLE *
  195.     FROM MARA
  196.     WHERE MATNR = IT_GETDATA-MAT_NO.
  197.   IF SY-SUBRC EQ 0.
  198.     L_MESSAGE = '此物料已经创建'.
  199.     IT_MESSAGE-ICON = ICON_LED_RED.
  200.   ENDIF.
  201.   IT_MESSAGE-MESSAGE = L_MESSAGE.

  202. ENDFORM.                    " CHECK_VALUE
  203. *&---------------------------------------------------------------------*
  204. *&      Form  BDC_INPUT
  205. *&---------------------------------------------------------------------*
  206. FORM BDC_INPUT .

  207. ENDFORM.                    " BDC_INPUT

  208. *----------------------------------------------------------------------*
  209. *        Start new screen                                              *
  210. *----------------------------------------------------------------------*
  211. FORM BDC_DYNPRO USING PROGRAM DYNPRO.
  212.   CLEAR BDCDATA.
  213.   BDCDATA-PROGRAM  = PROGRAM.
  214.   BDCDATA-DYNPRO   = DYNPRO.
  215.   BDCDATA-DYNBEGIN = 'X'.
  216.   APPEND BDCDATA.
  217. ENDFORM.                    "BDC_DYNPRO

  218. *----------------------------------------------------------------------*
  219. *        Insert field                                                  *
  220. *----------------------------------------------------------------------*
  221. FORM BDC_FIELD USING FNAM FVAL.
  222.   CLEAR BDCDATA.
  223.   BDCDATA-FNAM = FNAM.
  224.   BDCDATA-FVAL = FVAL.
  225.   APPEND BDCDATA.
  226. ENDFORM.                    "BDC_FIELD
  227. *&---------------------------------------------------------------------*
  228. *&      Form  BDC_TRANSACTION
  229. *&---------------------------------------------------------------------*
  230. *       text
  231. *----------------------------------------------------------------------*
  232. *      -->P_0471   text
  233. *----------------------------------------------------------------------*
  234. FORM BDC_TRANSACTION  USING    VALUE(TCODE).
  235.   DATA: L_MSTRING TYPE STRING.
  236.   TABLES:T100.
  237.   CALL TRANSACTION TCODE USING BDCDATA
  238.                    MODE   CTUMODE
  239.                    UPDATE CUPDATE
  240.                    MESSAGES INTO MESSTAB.
  241.   LOOP AT MESSTAB.
  242.     SELECT SINGLE * FROM T100 WHERE SPRSL = MESSTAB-MSGSPRA
  243.                               AND   ARBGB = MESSTAB-MSGID
  244.                               AND   MSGNR = MESSTAB-MSGNR.
  245.     IF SY-SUBRC = 0.
  246.       L_MSTRING = T100-TEXT.
  247.       IF L_MSTRING CS '&1'.
  248.         REPLACE '&1' WITH MESSTAB-MSGV1 INTO L_MSTRING.
  249.         REPLACE '&2' WITH MESSTAB-MSGV2 INTO L_MSTRING.
  250.         REPLACE '&3' WITH MESSTAB-MSGV3 INTO L_MSTRING.
  251.         REPLACE '&4' WITH MESSTAB-MSGV4 INTO L_MSTRING.
  252.       ELSE.
  253.         REPLACE '&' WITH MESSTAB-MSGV1 INTO L_MSTRING.
  254.         REPLACE '&' WITH MESSTAB-MSGV2 INTO L_MSTRING.
  255.         REPLACE '&' WITH MESSTAB-MSGV3 INTO L_MSTRING.
  256.         REPLACE '&' WITH MESSTAB-MSGV4 INTO L_MSTRING.
  257.       ENDIF.
  258.       CONDENSE L_MSTRING.
  259.       IT_MESSAGE-MESSAGE = L_MSTRING.

  260.       IF MESSTAB-MSGTYP = 'S'.

  261. *successful updation...................................................*

  262.         IT_MESSAGE-ICON = ICON_LED_GREEN.
  263.       ELSE.

  264. *invalid entry..not updated............................................*

  265.         IT_MESSAGE-ICON = ICON_LED_RED.
  266.       ENDIF.
  267.     ENDIF.
  268.   ENDLOOP.
  269. ENDFORM.                    " BDC_TRANSACTION
  270. *&---------------------------------------------------------------------*
  271. *&      Form  DIAPLAY_MESSAGE
  272. *&---------------------------------------------------------------------*
  273. *       text
  274. *----------------------------------------------------------------------*
  275. *  -->  p1        text
  276. *  <--  p2        text
  277. *----------------------------------------------------------------------*
  278. FORM DIAPLAY_MESSAGE .
  279. *分类汇总 需要do_sum配合
  280.   DATA IT_SORT_LVC TYPE LVC_T_SORT.
  281.   DATA WA_SORT_LVC TYPE LVC_S_SORT.
  282.   CLEAR WA_SORT_LVC.
  283.   WA_SORT_LVC-SPOS = 1.
  284.   WA_SORT_LVC-FIELDNAME = 'ICON'.
  285.   WA_SORT_LVC-UP = 'X'.
  286.   WA_SORT_LVC-SUBTOT = 'X'.
  287.   APPEND WA_SORT_LVC TO IT_SORT_LVC.

  288.   DATA IS_LAYOUT_LVC TYPE LVC_S_LAYO.
  289.   CLEAR IS_LAYOUT_LVC.
  290.   IS_LAYOUT_LVC-ZEBRA = 'X'.
  291.   IS_LAYOUT_LVC-CWIDTH_OPT = 'X'.

  292.   DATA IT_FIELDCAT_LVC TYPE LVC_T_FCAT.
  293.   DATA WA_FIELDCAT_LVC TYPE LINE OF LVC_T_FCAT.

  294.   CLEAR WA_FIELDCAT_LVC.
  295.   WA_FIELDCAT_LVC-COL_POS = 1.
  296.   WA_FIELDCAT_LVC-KEY = 'X'.
  297.   WA_FIELDCAT_LVC-FIELDNAME = 'TABIX'.
  298.   WA_FIELDCAT_LVC-REPTEXT = 'TABIX'.
  299.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  300.   CLEAR WA_FIELDCAT_LVC.
  301.   WA_FIELDCAT_LVC-COL_POS = 2.
  302.   WA_FIELDCAT_LVC-KEY = 'X'.
  303.   WA_FIELDCAT_LVC-FIELDNAME = 'MAT_NO'.
  304.   WA_FIELDCAT_LVC-REPTEXT = 'Material'.
  305.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  306.   CLEAR WA_FIELDCAT_LVC.
  307.   WA_FIELDCAT_LVC-COL_POS = 3.
  308.   WA_FIELDCAT_LVC-FIELDNAME = 'MAT_NAME'.
  309.   WA_FIELDCAT_LVC-REPTEXT = 'description'.
  310.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  311.   CLEAR WA_FIELDCAT_LVC.
  312.   WA_FIELDCAT_LVC-COL_POS = 4.
  313.   WA_FIELDCAT_LVC-FIELDNAME = 'MEINS'.
  314.   WA_FIELDCAT_LVC-REPTEXT = 'Base Unit of Measure'.
  315.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  316.   CLEAR WA_FIELDCAT_LVC.
  317.   WA_FIELDCAT_LVC-COL_POS = 5.
  318.   WA_FIELDCAT_LVC-FIELDNAME = 'OLD_MAT_NAME'.
  319.   WA_FIELDCAT_LVC-REPTEXT = 'Old material number'.
  320.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  321.   CLEAR WA_FIELDCAT_LVC.
  322.   WA_FIELDCAT_LVC-COL_POS = 6.
  323.   WA_FIELDCAT_LVC-FIELDNAME = 'GROSS_WT'.
  324.   WA_FIELDCAT_LVC-REPTEXT = 'Gross Weight'.
  325.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  326.   CLEAR WA_FIELDCAT_LVC.
  327.   WA_FIELDCAT_LVC-COL_POS = 7.
  328.   WA_FIELDCAT_LVC-FIELDNAME = 'WT_UNIT'.
  329.   WA_FIELDCAT_LVC-REPTEXT = 'Weight unit'.
  330.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  331.   CLEAR WA_FIELDCAT_LVC.
  332.   WA_FIELDCAT_LVC-COL_POS = 8.
  333.   WA_FIELDCAT_LVC-FIELDNAME = 'NTGEW'.
  334.   WA_FIELDCAT_LVC-REPTEXT = 'Net Weight'.
  335.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  336.   CLEAR WA_FIELDCAT_LVC.
  337.   WA_FIELDCAT_LVC-COL_POS = 9.
  338.   WA_FIELDCAT_LVC-FIELDNAME = 'VOLUM'.
  339.   WA_FIELDCAT_LVC-REPTEXT = 'Volume'.
  340.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  341.   CLEAR WA_FIELDCAT_LVC.
  342.   WA_FIELDCAT_LVC-COL_POS = 10.
  343.   WA_FIELDCAT_LVC-FIELDNAME = 'VOLEH'.
  344.   WA_FIELDCAT_LVC-REPTEXT = 'Volume unit'.
  345.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  346.   CLEAR WA_FIELDCAT_LVC.
  347.   WA_FIELDCAT_LVC-COL_POS = 11.
  348.   WA_FIELDCAT_LVC-FIELDNAME = 'GROES'.
  349.   WA_FIELDCAT_LVC-REPTEXT = 'Size/dimensions'.
  350.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  351.   CLEAR WA_FIELDCAT_LVC.
  352.   WA_FIELDCAT_LVC-COL_POS = 12.
  353.   WA_FIELDCAT_LVC-FIELDNAME = 'MESSAGE'.
  354.   WA_FIELDCAT_LVC-REPTEXT = 'MESSAGE'.
  355.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  356.   CLEAR WA_FIELDCAT_LVC.
  357.   WA_FIELDCAT_LVC-COL_POS = 13.
  358.   WA_FIELDCAT_LVC-FIELDNAME = 'SUM'.
  359.   WA_FIELDCAT_LVC-REPTEXT = 'SUM'."只能统计数值类型的字段
  360.   WA_FIELDCAT_LVC-DO_SUM = 'X'.
  361.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  362.   CLEAR WA_FIELDCAT_LVC.
  363.   WA_FIELDCAT_LVC-COL_POS = 14.
  364.   WA_FIELDCAT_LVC-FIELDNAME = 'ICON'.
  365.   WA_FIELDCAT_LVC-REPTEXT = 'ERROR OR SUCCESS'.
  366.   WA_FIELDCAT_LVC-ICON = 'X'.

  367.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.

  368.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  369.    EXPORTING
  370. *   I_INTERFACE_CHECK                 = ' '
  371. *   I_BYPASSING_BUFFER                =
  372. *   I_BUFFER_ACTIVE                   =
  373. *   I_CALLBACK_PROGRAM                = ' '
  374. *   I_CALLBACK_PF_STATUS_SET          = ' '
  375. *   I_CALLBACK_USER_COMMAND           = ' '
  376. *   I_CALLBACK_TOP_OF_PAGE            = ' '
  377. *   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  378. *   I_CALLBACK_HTML_END_OF_LIST       = ' '
  379. *   I_STRUCTURE_NAME                  =
  380. *   I_BACKGROUND_ID                   = ' '
  381. *   I_GRID_TITLE                      =
  382. *   I_GRID_SETTINGS                   =
  383.      IS_LAYOUT_LVC                     = IS_LAYOUT_LVC
  384.      IT_FIELDCAT_LVC                   = IT_FIELDCAT_LVC
  385. *   IT_EXCLUDING                      =
  386. *   IT_SPECIAL_GROUPS_LVC             =
  387.      IT_SORT_LVC                       = IT_SORT_LVC
  388. *   IT_FILTER_LVC                     =
  389. *   IT_HYPERLINK                      =
  390. *   IS_SEL_HIDE                       =
  391. *   I_DEFAULT                         = 'X'
  392. *   I_SAVE                            = ' '
  393. *   IS_VARIANT                        =
  394. *   IT_EVENTS                         =
  395. *   IT_EVENT_EXIT                     =
  396. *   IS_PRINT_LVC                      =
  397. *   IS_REPREP_ID_LVC                  =
  398. *   I_SCREEN_START_COLUMN             = 0
  399. *   I_SCREEN_START_LINE               = 0
  400. *   I_SCREEN_END_COLUMN               = 0
  401. *   I_SCREEN_END_LINE                 = 0
  402. *   I_HTML_HEIGHT_TOP                 =
  403. *   I_HTML_HEIGHT_END                 =
  404. *   IT_ALV_GRAPHICS                   =
  405. *   IT_EXCEPT_QINFO_LVC               =
  406. *   IR_SALV_FULLSCREEN_ADAPTER        =
  407. * IMPORTING
  408. *   E_EXIT_CAUSED_BY_CALLER           =
  409. *   ES_EXIT_CAUSED_BY_USER            =
  410.     TABLES
  411.       T_OUTTAB                          = IT_MESSAGE[]
  412. * EXCEPTIONS
  413. *   PROGRAM_ERROR                     = 1
  414. *   OTHERS                            = 2
  415.             .
  416.   IF SY-SUBRC <> 0.
  417. * Implement suitable error handling here
  418.   ENDIF.

  419. ENDFORM.                    " DIAPLAY_MESSAGE
复制代码


execl测试文件
mm01模板导入文件.zip (7.7 KB, 下载次数: 3, 售价: 5 枚金币)
回复

使用道具 举报

快速回帖

本版积分规则
您需要登录后才可以回帖 登录 | 注册有礼

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