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

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

Twilight发表于 2014-02-11 11:30Twilight 最后回复于 2014-02-11 11:30 [复制链接] 3269 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.

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

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

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

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

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

  120.       PERFORM BDC_TRANSACTION USING 'MM01'.
  121.     ENDIF.
  122.     IT_MESSAGE-SUM = 1."用来统计成功和错误的条数
  123.     APPEND IT_MESSAGE.
  124.     CLEAR IT_MESSAGE.
  125.     CLEAR IT_GETDATA.
  126.   ENDLOOP.

  128.   PERFORM DIAPLAY_MESSAGE.

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

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

  186.   IF IT_GETDATA[] IS INITIAL.
  187.     MESSAGE S001(00) WITH '文件中没有数据'(001).
  188.     LEAVE LIST-PROCESSING.
  189.   ENDIF.
  190. ENDFORM.                    "GET_DATA
  191. *&---------------------------------------------------------------------*
  192. *&      Form  CHECK_VALUE
  193. *&---------------------------------------------------------------------*
  194. *       text
  195. *----------------------------------------------------------------------*
  196. *  -->  p1        text
  197. *  <--  p2        text
  198. *----------------------------------------------------------------------*
  199. FORM CHECK_VALUE .
  200.   TABLES:T006,MARA."不写into 必须用tables申明一下
  201.   DATA:L_MESSAGE TYPE STRING.
  202.   DATA:MEINS_OUTPUT,VOLEH_OUTPUT.

  204.   CLEAR:L_MESSAGE.

  206.   SELECT SINGLE *
  207.     FROM MARA
  208.     WHERE MATNR = IT_GETDATA-MAT_NO.
  209.   IF SY-SUBRC EQ 0.
  210.     L_MESSAGE = '此物料已经创建'.
  211.     IT_MESSAGE-ICON = ICON_LED_RED.
  212.   ENDIF.
  213.   IT_MESSAGE-MESSAGE = L_MESSAGE.

  215. ENDFORM.                    " CHECK_VALUE
  216. *&---------------------------------------------------------------------*
  217. *&      Form  BDC_INPUT
  218. *&---------------------------------------------------------------------*
  219. FORM BDC_INPUT .

  221. ENDFORM.                    " BDC_INPUT

  223. *----------------------------------------------------------------------*
  224. *        Start new screen                                              *
  225. *----------------------------------------------------------------------*
  226. FORM BDC_DYNPRO USING PROGRAM DYNPRO.
  227.   CLEAR BDCDATA.
  228.   BDCDATA-PROGRAM  = PROGRAM.
  229.   BDCDATA-DYNPRO   = DYNPRO.
  230.   BDCDATA-DYNBEGIN = 'X'.
  231.   APPEND BDCDATA.
  232. ENDFORM.                    "BDC_DYNPRO

  234. *----------------------------------------------------------------------*
  235. *        Insert field                                                  *
  236. *----------------------------------------------------------------------*
  237. FORM BDC_FIELD USING FNAM FVAL.
  238.   CLEAR BDCDATA.
  239.   BDCDATA-FNAM = FNAM.
  240.   BDCDATA-FVAL = FVAL.
  241.   APPEND BDCDATA.
  242. ENDFORM.                    "BDC_FIELD
  243. *&---------------------------------------------------------------------*
  244. *&      Form  BDC_TRANSACTION
  245. *&---------------------------------------------------------------------*
  246. *       text
  247. *----------------------------------------------------------------------*
  248. *      -->P_0471   text
  249. *----------------------------------------------------------------------*
  250. FORM BDC_TRANSACTION  USING    VALUE(TCODE).
  251.   DATA: L_MSTRING TYPE STRING.
  252.   TABLES:T100.
  253.   CALL TRANSACTION TCODE USING BDCDATA
  254.                    MODE   CTUMODE
  255.                    UPDATE CUPDATE
  256.                    MESSAGES INTO MESSTAB.
  257.   LOOP AT MESSTAB.
  258.     SELECT SINGLE * FROM T100 WHERE SPRSL = MESSTAB-MSGSPRA
  259.                               AND   ARBGB = MESSTAB-MSGID
  260.                               AND   MSGNR = MESSTAB-MSGNR.
  261.     IF SY-SUBRC = 0.
  262.       L_MSTRING = T100-TEXT.
  263.       IF L_MSTRING CS '&1'.
  264.         REPLACE '&1' WITH MESSTAB-MSGV1 INTO L_MSTRING.
  265.         REPLACE '&2' WITH MESSTAB-MSGV2 INTO L_MSTRING.
  266.         REPLACE '&3' WITH MESSTAB-MSGV3 INTO L_MSTRING.
  267.         REPLACE '&4' WITH MESSTAB-MSGV4 INTO L_MSTRING.
  268.       ELSE.
  269.         REPLACE '&' WITH MESSTAB-MSGV1 INTO L_MSTRING.
  270.         REPLACE '&' WITH MESSTAB-MSGV2 INTO L_MSTRING.
  271.         REPLACE '&' WITH MESSTAB-MSGV3 INTO L_MSTRING.
  272.         REPLACE '&' WITH MESSTAB-MSGV4 INTO L_MSTRING.
  273.       ENDIF.
  274.       CONDENSE L_MSTRING.
  275.       IT_MESSAGE-MESSAGE = L_MSTRING.

  277.       IF MESSTAB-MSGTYP = 'S'.

  279. *successful updation...................................................*

  281.         IT_MESSAGE-ICON = ICON_LED_GREEN.
  282.       ELSE.

  284. *invalid entry..not updated............................................*

  286.         IT_MESSAGE-ICON = ICON_LED_RED.
  287.       ENDIF.
  288.     ENDIF.
  289.   ENDLOOP.
  290. ENDFORM.                    " BDC_TRANSACTION
  291. *&---------------------------------------------------------------------*
  292. *&      Form  DIAPLAY_MESSAGE
  293. *&---------------------------------------------------------------------*
  294. *       text
  295. *----------------------------------------------------------------------*
  296. *  -->  p1        text
  297. *  <--  p2        text
  298. *----------------------------------------------------------------------*
  299. FORM DIAPLAY_MESSAGE .
  300. *分类汇总 需要do_sum配合
  301.   DATA IT_SORT_LVC TYPE LVC_T_SORT.
  302.   DATA WA_SORT_LVC TYPE LVC_S_SORT.
  303.   CLEAR WA_SORT_LVC.
  304.   WA_SORT_LVC-SPOS = 1.
  305.   WA_SORT_LVC-FIELDNAME = 'ICON'.
  306.   WA_SORT_LVC-UP = 'X'.
  307.   WA_SORT_LVC-SUBTOT = 'X'.
  308.   APPEND WA_SORT_LVC TO IT_SORT_LVC.

  310.   DATA IS_LAYOUT_LVC TYPE LVC_S_LAYO.
  311.   CLEAR IS_LAYOUT_LVC.
  312.   IS_LAYOUT_LVC-ZEBRA = 'X'.
  313.   IS_LAYOUT_LVC-CWIDTH_OPT = 'X'.

  315.   DATA IT_FIELDCAT_LVC TYPE LVC_T_FCAT.
  316.   DATA WA_FIELDCAT_LVC TYPE LINE OF LVC_T_FCAT.

  318.   CLEAR WA_FIELDCAT_LVC.
  319.   WA_FIELDCAT_LVC-COL_POS = 1.
  320.   WA_FIELDCAT_LVC-KEY = 'X'.
  321.   WA_FIELDCAT_LVC-FIELDNAME = 'TABIX'.
  322.   WA_FIELDCAT_LVC-REPTEXT = 'TABIX'.
  323.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  324.   CLEAR WA_FIELDCAT_LVC.
  325.   WA_FIELDCAT_LVC-COL_POS = 2.
  326.   WA_FIELDCAT_LVC-KEY = 'X'.
  327.   WA_FIELDCAT_LVC-FIELDNAME = 'MAT_NO'.
  328.   WA_FIELDCAT_LVC-REPTEXT = 'Material'.
  329.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  330.   CLEAR WA_FIELDCAT_LVC.
  331.   WA_FIELDCAT_LVC-COL_POS = 3.
  332.   WA_FIELDCAT_LVC-FIELDNAME = 'MAT_NAME'.
  333.   WA_FIELDCAT_LVC-REPTEXT = 'description'.
  334.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  335.   CLEAR WA_FIELDCAT_LVC.
  336.   WA_FIELDCAT_LVC-COL_POS = 4.
  337.   WA_FIELDCAT_LVC-FIELDNAME = 'MEINS'.
  338.   WA_FIELDCAT_LVC-REPTEXT = 'Base Unit of Measure'.
  339.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  340.   CLEAR WA_FIELDCAT_LVC.
  341.   WA_FIELDCAT_LVC-COL_POS = 5.
  342.   WA_FIELDCAT_LVC-FIELDNAME = 'OLD_MAT_NAME'.
  343.   WA_FIELDCAT_LVC-REPTEXT = 'Old material number'.
  344.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  345.   CLEAR WA_FIELDCAT_LVC.
  346.   WA_FIELDCAT_LVC-COL_POS = 6.
  347.   WA_FIELDCAT_LVC-FIELDNAME = 'GROSS_WT'.
  348.   WA_FIELDCAT_LVC-REPTEXT = 'Gross Weight'.
  349.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  350.   CLEAR WA_FIELDCAT_LVC.
  351.   WA_FIELDCAT_LVC-COL_POS = 7.
  352.   WA_FIELDCAT_LVC-FIELDNAME = 'WT_UNIT'.
  353.   WA_FIELDCAT_LVC-REPTEXT = 'Weight unit'.
  354.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  355.   CLEAR WA_FIELDCAT_LVC.
  356.   WA_FIELDCAT_LVC-COL_POS = 8.
  357.   WA_FIELDCAT_LVC-FIELDNAME = 'NTGEW'.
  358.   WA_FIELDCAT_LVC-REPTEXT = 'Net Weight'.
  359.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  360.   CLEAR WA_FIELDCAT_LVC.
  361.   WA_FIELDCAT_LVC-COL_POS = 9.
  362.   WA_FIELDCAT_LVC-FIELDNAME = 'VOLUM'.
  363.   WA_FIELDCAT_LVC-REPTEXT = 'Volume'.
  364.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  365.   CLEAR WA_FIELDCAT_LVC.
  366.   WA_FIELDCAT_LVC-COL_POS = 10.
  367.   WA_FIELDCAT_LVC-FIELDNAME = 'VOLEH'.
  368.   WA_FIELDCAT_LVC-REPTEXT = 'Volume unit'.
  369.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  370.   CLEAR WA_FIELDCAT_LVC.
  371.   WA_FIELDCAT_LVC-COL_POS = 11.
  372.   WA_FIELDCAT_LVC-FIELDNAME = 'GROES'.
  373.   WA_FIELDCAT_LVC-REPTEXT = 'Size/dimensions'.
  374.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  375.   CLEAR WA_FIELDCAT_LVC.
  376.   WA_FIELDCAT_LVC-COL_POS = 12.
  377.   WA_FIELDCAT_LVC-FIELDNAME = 'MESSAGE'.
  378.   WA_FIELDCAT_LVC-REPTEXT = 'MESSAGE'.
  379.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  380.   CLEAR WA_FIELDCAT_LVC.
  381.   WA_FIELDCAT_LVC-COL_POS = 13.
  382.   WA_FIELDCAT_LVC-FIELDNAME = 'SUM'.
  383.   WA_FIELDCAT_LVC-REPTEXT = 'SUM'."只能统计数值类型的字段
  384.   WA_FIELDCAT_LVC-DO_SUM = 'X'.
  385.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.
  386.   CLEAR WA_FIELDCAT_LVC.
  387.   WA_FIELDCAT_LVC-COL_POS = 14.
  388.   WA_FIELDCAT_LVC-FIELDNAME = 'ICON'.
  389.   WA_FIELDCAT_LVC-REPTEXT = 'ERROR OR SUCCESS'.
  390.   WA_FIELDCAT_LVC-ICON = 'X'.

  392.   APPEND WA_FIELDCAT_LVC TO IT_FIELDCAT_LVC.

  394.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  395.    EXPORTING
  396. *   I_INTERFACE_CHECK                 = ' '
  397. *   I_BYPASSING_BUFFER                =
  398. *   I_BUFFER_ACTIVE                   =
  399. *   I_CALLBACK_PROGRAM                = ' '
  400. *   I_CALLBACK_PF_STATUS_SET          = ' '
  401. *   I_CALLBACK_USER_COMMAND           = ' '
  402. *   I_CALLBACK_TOP_OF_PAGE            = ' '
  403. *   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  404. *   I_CALLBACK_HTML_END_OF_LIST       = ' '
  405. *   I_STRUCTURE_NAME                  =
  406. *   I_BACKGROUND_ID                   = ' '
  407. *   I_GRID_TITLE                      =
  408. *   I_GRID_SETTINGS                   =
  409.      IS_LAYOUT_LVC                     = IS_LAYOUT_LVC
  410.      IT_FIELDCAT_LVC                   = IT_FIELDCAT_LVC
  411. *   IT_EXCLUDING                      =
  412. *   IT_SPECIAL_GROUPS_LVC             =
  413.      IT_SORT_LVC                       = IT_SORT_LVC
  414. *   IT_FILTER_LVC                     =
  415. *   IT_HYPERLINK                      =
  416. *   IS_SEL_HIDE                       =
  417. *   I_DEFAULT                         = 'X'
  418. *   I_SAVE                            = ' '
  419. *   IS_VARIANT                        =
  420. *   IT_EVENTS                         =
  421. *   IT_EVENT_EXIT                     =
  422. *   IS_PRINT_LVC                      =
  423. *   IS_REPREP_ID_LVC                  =
  424. *   I_SCREEN_START_COLUMN             = 0
  425. *   I_SCREEN_START_LINE               = 0
  426. *   I_SCREEN_END_COLUMN               = 0
  427. *   I_SCREEN_END_LINE                 = 0
  428. *   I_HTML_HEIGHT_TOP                 =
  429. *   I_HTML_HEIGHT_END                 =
  430. *   IT_ALV_GRAPHICS                   =
  431. *   IT_EXCEPT_QINFO_LVC               =
  432. *   IR_SALV_FULLSCREEN_ADAPTER        =
  433. * IMPORTING
  434. *   E_EXIT_CAUSED_BY_CALLER           =
  435. *   ES_EXIT_CAUSED_BY_USER            =
  436.     TABLES
  437.       T_OUTTAB                          = IT_MESSAGE[]
  438. * EXCEPTIONS
  439. *   PROGRAM_ERROR                     = 1
  440. *   OTHERS                            = 2
  441.             .
  442.   IF SY-SUBRC <> 0.
  443. * Implement suitable error handling here
  444.   ENDIF.

  446. ENDFORM.                    " DIAPLAY_MESSAGE
复制代码


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

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 839 主题
  2. 964 帖子
  3. 10796 积分
收听TA 发消息

Ta最近发表

快速回帖

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

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

GMT+8, 2024-4-23 20:23 , Processed in 0.048306 second(s), 11 queries , Gzip On, Redis On.

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

平台客服 1204767879 无客服码

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