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

[动态alv] 创建带有可编辑和着色单元格的动态alv

Twilight发表于 2014-08-28 11:15Twilight 最后回复于 2014-08-28 11:15 [复制链接] 4815 0

程序代码：
  1. TYPE-POOLS : ABAP.
  2. FIELD-SYMBOLS: <LINE> TYPE STANDARD TABLE,
  3.                 <WA>   TYPE ANY.
  4. DATA: DYN_TABLE     TYPE REF TO DATA,
  5.        DYN_LINE      TYPE REF TO DATA,
  6.        WA_FIELDCAT   TYPE LVC_S_FCAT,
  7.        IT_FIELDCAT   TYPE LVC_T_FCAT,
  8.        IT_FIELDCAT_1 TYPE LVC_T_FCAT,
  9.        OK_CODE       TYPE SY-UCOMM.
  10. TYPES: BEGIN OF TY_1,
  11.         TIME    TYPE T,
  12.         REMARKS TYPE CHAR50,
  13.        END OF TY_1.
  14. DATA: LV_FLD_1 TYPE TY_1.

  16. START-OF-SELECTION.
  17. * Create dynamic table stricture..
  18.    PERFORM GET_TABLE_STRUCTURE.
  19. *Create dynamic internale table..
  20.    PERFORM CREATE_ITAB_DYNAMICALLY.
  21. * filling the data into dynamic internal table..
  22.    PERFORM GET_DATA.
  23. END-OF-SELECTION.
  24. * display dynamic interal data.
  25.    PERFORM DISPLAY_ALV_REPORT.
  26.    CALL SCREEN 2000.
  27. *&---------------------------------------------------------------------*
  28. *&      Form  get_table_structure
  29. *&---------------------------------------------------------------------*
  30. *       Get structure of an SAP table
  31. *----------------------------------------------------------------------*
  32. FORM GET_TABLE_STRUCTURE.
  33.    DATA : REF_TABLE_DESCR TYPE REF TO CL_ABAP_STRUCTDESCR,
  34.           IT_TABDESCR TYPE ABAP_COMPDESCR_TAB,
  35.           WA_TABDESCR TYPE ABAP_COMPDESCR,
  36.           LV_NO_DAYS  TYPE P,
  37.           LV_DATE     TYPE SY-DATUM,
  38.           LV_DATUM    TYPE SY-DATUM,
  39.           LV_DAY      TYPE TEXT40,
  40.           LV_WEEK_DAY TYPE TEXT10,
  41.           LIN         TYPE SY-TFILL,
  42.           C_REM       TYPE STRING VALUE 'Remarks' .
  43. * fill the data into fieldcatlog of static field
  44.    PERFORM BUILD_FIELDCATALOG USING IT_FIELDCAT.
  45. * Return structure of the table.
  46.    REF_TABLE_DESCR ?= CL_ABAP_TYPEDESCR=>DESCRIBE_BY_DATA( LV_FLD_1 ).
  47.    IT_TABDESCR[] = REF_TABLE_DESCR->COMPONENTS[].

  49. * Get no of days in a month..
  50.    CALL FUNCTION 'HR_E_NUM_OF_DAYS_OF_MONTH'
  51.      EXPORTING
  52.        P_FECHA        = SY-DATUM
  53.      IMPORTING
  54.        NUMBER_OF_DAYS = LV_NO_DAYS.

  56. * get no of lines..
  57.    DESCRIBE TABLE IT_FIELDCAT LINES LIN .

  59.    LV_DATUM            = SY-DATUM.
  60.    LV_DATUM+6(2)       = 1.
  61.    WA_FIELDCAT-COL_POS = LIN.
  62. * fill dynamic field into fields cate..
  63.    DO LV_NO_DAYS TIMES.
  64.      LV_DATE = LV_DATUM  + SY-INDEX - 1.
  65.      CALL FUNCTION 'DATE_TO_DAY'
  66.        EXPORTING
  67.          DATE    = LV_DATE
  68.        IMPORTING
  69.          WEEKDAY = LV_WEEK_DAY.

  71.      CONCATENATE LV_DATE+6(2) ',' LV_WEEK_DAY INTO LV_DAY.

  73.      LOOP AT IT_TABDESCR INTO WA_TABDESCR.
  74.        WA_FIELDCAT-COL_POS   = WA_FIELDCAT-COL_POS + 1   .
  75.        IF SY-TABIX = 1.
  76.          WA_FIELDCAT-FIELDNAME = LV_DATE .
  77.          WA_FIELDCAT-COLTEXT   = LV_DAY.
  78.        ELSE.
  79.          CONCATENATE LV_DATE  '_R'  INTO WA_FIELDCAT-FIELDNAME.
  80.          WA_FIELDCAT-COLTEXT   = C_REM."'Remarks'.
  81.        ENDIF.
  82.        WA_FIELDCAT-INTTYPE   = WA_TABDESCR-TYPE_KIND.
  83.        WA_FIELDCAT-INTLEN    = WA_TABDESCR-LENGTH / 2.
  84.        APPEND  WA_FIELDCAT TO  IT_FIELDCAT.
  85.      ENDLOOP.
  86.    ENDDO.
  87. ENDFORM.                    "get_table_structure

  89. *&---------------------------------------------------------------------*
  90. *&      Form  create_itab_dynamically
  91. *&---------------------------------------------------------------------*
  92. *       Create internal table dynamically
  93. *----------------------------------------------------------------------*
  94. FORM CREATE_ITAB_DYNAMICALLY.
  95. * Create dynamic internal table and assign to Field-Symbol
  96.    CLEAR WA_FIELDCAT.
  97. *move fields from IT_FIELDCAT into IT_FIELDCAT_1.
  98.    IT_FIELDCAT_1 = IT_FIELDCAT.
  99. * Use ref table CALENDAR_TYPE and ref field 'COLTAB'
  100.   WA_FIELDCAT-FIELDNAME = 'CELLCOLOR'.
  101.    WA_FIELDCAT-REF_TABLE = 'CALENDAR_TYPE'.
  102.    WA_FIELDCAT-REF_FIELD = 'COLTAB'.
  103.    APPEND WA_FIELDCAT TO IT_FIELDCAT.
  104.    CLEAR WA_FIELDCAT.
  105. * create a table type 'ZCELLSTYL' with field 'CELLSTYLE' of type  LVC_T_STYL
  106.    WA_FIELDCAT-FIELDNAME = 'CELLSTYLE'.
  107.    WA_FIELDCAT-REF_TABLE = 'ZCELLSTYL'.
  108.    WA_FIELDCAT-REF_FIELD = 'CELLSTYLE'.
  109.    APPEND WA_FIELDCAT TO IT_FIELDCAT.
  110. *Create a dynamic table with IT_FIELDCAT.
  111. * and Use IT_FIELDCAT_1 to display ALV.
  112.    CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
  113.      EXPORTING
  114.        IT_FIELDCATALOG = IT_FIELDCAT
  115.      IMPORTING
  116.        EP_TABLE        = DYN_TABLE.
  117.    ASSIGN DYN_TABLE->* TO <LINE>.
  118. * Create dynamic work area and assign to Field Symbol
  119.    CREATE DATA DYN_LINE LIKE LINE OF <LINE> .
  120.    ASSIGN DYN_LINE->* TO <WA> .
  121. ENDFORM.                    "create_itab_dynamically
  122. *&---------------------------------------------------------------------*
  123. *&      Form  get_data
  124. *&---------------------------------------------------------------------*
  125. *       Populate dynamic itab
  126. *----------------------------------------------------------------------*
  127. FORM GET_DATA.
  128.    FIELD-SYMBOLS: <FS_PERNR> TYPE ANY,
  129.                   <FS_FIELD> TYPE ANY,
  130.                   <FS_COLOR> TYPE LVC_T_SCOL,
  131.                   <FS_STYLE> TYPE LVC_T_STYL,
  132.                   <WA_FIELDCAT> TYPE LVC_S_FCAT.
  133.    DATA: IT_CELLCOLOR TYPE LVC_T_SCOL,
  134.          IT_CELLSTYLE TYPE LVC_T_STYL,
  135.          L_DAY_P      TYPE P,
  136.          LV_MOD_DATE  TYPE DATUM,
  137.          C_HOL        TYPE CHAR10 VALUE ' Holiday '.
  138.    ASSIGN COMPONENT 'PERNR' OF STRUCTURE <WA> TO <FS_PERNR>.
  139.     LOOP  AT IT_FIELDCAT ASSIGNING <WA_FIELDCAT> ."WHERE
  140. * adde color to dynamci fields..
  141.      ASSIGN COMPONENT 'CELLCOLOR' OF STRUCTURE <WA> TO <FS_COLOR>.
  142.      IF <WA_FIELDCAT>-INTTYPE  = 'T'.
  143.        PERFORM  MODIFY_CELL_COLOR USING <WA_FIELDCAT>-FIELDNAME
  144.                                   CHANGING IT_CELLCOLOR.
  145.        <FS_COLOR> = IT_CELLCOLOR.
  146.      ELSE.
  147.        IF <WA_FIELDCAT>-FIELDNAME+8(2) = '_R'.
  148.          LV_MOD_DATE = <WA_FIELDCAT>-FIELDNAME+0(8).
  149.          L_DAY_P = LV_MOD_DATE  MOD 7.
  150.          IF L_DAY_P > 1.
  151.            L_DAY_P = L_DAY_P - 1.
  152.          ELSE.
  153.            L_DAY_P = L_DAY_P + 6.
  154.          ENDIF.
  155.          IF L_DAY_P = 6 OR L_DAY_P = 7.
  156.            PERFORM  MODIFY_CELL_COLOR USING <WA_FIELDCAT>-FIELDNAME
  157.                                       CHANGING IT_CELLCOLOR.
  158.            <FS_COLOR> = IT_CELLCOLOR.
  159.            ASSIGN COMPONENT <WA_FIELDCAT>-FIELDNAME OF STRUCTURE <WA> TO <FS_FIELD>.
  160.            <FS_FIELD> = C_HOL."' Holiday '.
  161.          ENDIF.
  162.        ENDIF.
  163.      ENDIF.
  164. *Dynamic editable
  165.      IF <WA_FIELDCAT>-FIELDNAME+0(8)  =  SY-DATUM.
  166.        ASSIGN COMPONENT 'CELLSTYLE' OF STRUCTURE <WA> TO <FS_STYLE>.
  167.        PERFORM EDITABLE_CELL USING <WA_FIELDCAT>-FIELDNAME
  168.                              CHANGING IT_CELLSTYLE.
  169.        <FS_STYLE> = IT_CELLSTYLE.
  170.      ENDIF.
  171.    ENDLOOP.
  172.    APPEND <WA> TO <LINE>.
  173. ENDFORM.                    "get_data

  175. *&---------------------------------------------------------------------*
  176. *&      Form  modify_cell_color
  177. *&---------------------------------------------------------------------*
  178. *      -->P_FIELDNAME   text
  179. *      -->PT_CELLCOLOR  text
  180. *----------------------------------------------------------------------*
  181. FORM MODIFY_CELL_COLOR  USING P_FIELDNAME   TYPE LVC_FNAME
  182.                          CHANGING PT_CELLCOLOR  TYPE TABLE.
  183.    DATA L_CELLCOLOR TYPE LVC_S_SCOL.
  184.    DATA : LV_DATE TYPE DATUM.
  185.    DATA: DAY_P TYPE P.
  186.    CLEAR L_CELLCOLOR.
  187.    IF P_FIELDNAME+8(2) = '_R'.
  188.      LV_DATE =  P_FIELDNAME+8(2).
  189.    ELSE.
  190.      LV_DATE =  P_FIELDNAME.
  191.    ENDIF.
  192.    DAY_P = LV_DATE  MOD 7.
  193.    IF DAY_P > 1.
  194.      DAY_P = DAY_P - 1.
  195.    ELSE.
  196.      DAY_P = DAY_P + 6.
  197.    ENDIF.
  198.    IF DAY_P = 6 OR DAY_P = 7.
  199.      IF P_FIELDNAME+8(2) = '_R'.
  200.        L_CELLCOLOR-COLOR-COL = 7.       " Red.
  201.        L_CELLCOLOR-COLOR-INT = 0.
  202.        L_CELLCOLOR-COLOR-INV = 0.
  203.      ELSE.
  204.        L_CELLCOLOR-COLOR-COL = 7.       " Red.
  205.        L_CELLCOLOR-COLOR-INT = 1.
  206.        L_CELLCOLOR-COLOR-INV = 1.
  207.      ENDIF.
  208.      L_CELLCOLOR-FNAME = P_FIELDNAME.
  209.      APPEND L_CELLCOLOR TO PT_CELLCOLOR.
  210.    ELSE.
  211.      CLEAR L_CELLCOLOR.
  212.    ENDIF.
  213.    IF P_FIELDNAME+0(8) = SY-DATUM.
  214.      L_CELLCOLOR-FNAME = P_FIELDNAME.
  215.      L_CELLCOLOR-COLOR-COL = 3.       " Red.
  216.      L_CELLCOLOR-COLOR-INT = 1.
  217.      L_CELLCOLOR-COLOR-INV = 1.
  218.      APPEND L_CELLCOLOR TO PT_CELLCOLOR.
  219.      CONCATENATE P_FIELDNAME '_R' INTO  L_CELLCOLOR-FNAME .
  220.      L_CELLCOLOR-COLOR-COL = 3.       " Red.
  221.      L_CELLCOLOR-COLOR-INT = 1.
  222.      L_CELLCOLOR-COLOR-INV = 1.
  223.      APPEND L_CELLCOLOR TO PT_CELLCOLOR.
  224.    ENDIF.
  225. ENDFORM.                    " MODIFY_CELL_COLOR

  227. *&---------------------------------------------------------------------*
  228. *&      Form  BUILD_FIELDCATALOG
  229. *&---------------------------------------------------------------------*
  230. *       Build Fieldcatalog for ALV Report, using SAP table structure
  231. *----------------------------------------------------------------------*
  232. FORM BUILD_FIELDCATALOG USING P_IT_FIELDCAT  TYPE LVC_T_FCAT."SLIS_T_FIELDCAT_ALV .
  233. ** ALV Function module to build field catalog from SAP table structure
  234.    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
  235.     EXPORTING
  236. *   I_BUFFER_ACTIVE              =
  237.          I_STRUCTURE_NAME       = 'ZDYNAMIC_ALV_STR'
  238. *   I_CLIENT_NEVER_DISPLAY       = 'X'
  239. *   I_BYPASSING_BUFFER           =
  240. *   I_INTERNAL_TABNAME           =
  241.      CHANGING
  242.          CT_FIELDCAT            = P_IT_FIELDCAT
  243.   EXCEPTIONS
  244.     INCONSISTENT_INTERFACE       = 1
  245.     PROGRAM_ERROR                = 2
  246.     OTHERS                       = 3
  247.              .
  248.    IF SY-SUBRC <> 0.
  249.      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  250.              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  251.    ENDIF.
  252. ENDFORM.                    " BUILD_FIELDCATALOG

  254. *&---------------------------------------------------------------------*
  255. *&      Form  DISPLAY_ALV_REPORT
  256. *&---------------------------------------------------------------------*
  257. *       Display report using ALV grid
  258. *----------------------------------------------------------------------*
  259. FORM DISPLAY_ALV_REPORT.
  260.    DATA :G_GRID_I             TYPE REF TO CL_GUI_ALV_GRID,
  261.          G_CUSTOM_CONTAINER_I TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
  262.          I_CONTAINER          TYPE SCRFNAME VALUE 'ALV',
  263.          GS_LAYOUT            TYPE LVC_S_LAYO.

  265.    CREATE OBJECT G_CUSTOM_CONTAINER_I
  266.      EXPORTING
  267.        CONTAINER_NAME = I_CONTAINER.

  269.    CREATE OBJECT G_GRID_I
  270.      EXPORTING
  271.        I_PARENT = G_CUSTOM_CONTAINER_I.

  273.    GS_LAYOUT-COL_OPT     = 'X'.
  274.    GS_LAYOUT-CWIDTH_OPT  = 'X'.
  275.    GS_LAYOUT-CTAB_FNAME  = 'CELLCOLOR'.
  276.    GS_LAYOUT-STYLEFNAME  = 'CELLSTYLE'."指明显示数据内表中表示样式的字段
  277.    CALL METHOD G_GRID_I->SET_TABLE_FOR_FIRST_DISPLAY
  278.      EXPORTING
  279.        IS_LAYOUT            = GS_LAYOUT
  280. *      IT_TOOLBAR_EXCLUDING = LT_EXCLUDE[]
  281.      CHANGING
  282.        IT_FIELDCATALOG      = IT_FIELDCAT_1
  283.        IT_OUTTAB            = <LINE>.
  284. *For Editable alv...
  285.    CALL METHOD G_GRID_I->SET_READY_FOR_INPUT
  286.      EXPORTING
  287.        I_READY_FOR_INPUT = 1.
  288. ENDFORM.                    " DISPLAY_ALV_REPORT
  289. *&---------------------------------------------------------------------*
  290. *&      Module  USER_COMMAND_2000  INPUT
  291. *&---------------------------------------------------------------------*
  292. *       text
  293. *----------------------------------------------------------------------*
  294. MODULE USER_COMMAND_2000 INPUT.
  295.    CASE OK_CODE.
  296.      WHEN 'BACK'.
  297.        LEAVE TO SCREEN 0.
  298.    ENDCASE.
  299. ENDMODULE.                 " USER_COMMAND_2000  INPUT
  300. *&---------------------------------------------------------------------*
  301. *&      Module  STATUS_2000  OUTPUT
  302. *&---------------------------------------------------------------------*
  303. *       text
  304. *----------------------------------------------------------------------*
  305. MODULE STATUS_2000 OUTPUT.
  306.    SET PF-STATUS 'STATUS_2000'.
  307. *  SET TITLEBAR 'xxx'.
  308. ENDMODULE.                 " STATUS_2000  OUTPUT
  309. *&---------------------------------------------------------------------*
  310. *&      Form  EDITABLE_CELL
  311. *&---------------------------------------------------------------------**      -->P_IT_CELLSTYLE  text
  312. *----------------------------------------------------------------------*
  313. FORM EDITABLE_CELL   USING     P_FIELDNAME    TYPE LVC_FNAME
  314.                       CHANGING  P_IT_CELLSTYLE TYPE LVC_T_STYL.
  315.    DATA : WA_CELLSTYLE TYPE LVC_S_STYL.
  316.    WA_CELLSTYLE-FIELDNAME =  P_FIELDNAME .
  317.    WA_CELLSTYLE-STYLE     = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED.
  318.    INSERT WA_CELLSTYLE INTO TABLE P_IT_CELLSTYLE.
  319. ENDFORM.                    " EDITABLE_CELL
复制代码

PS：
1、SCREEN 2000需创建container（ALV）、ok_code和back退出按钮
2、需了解'CALENDAR_TYPE'、'LVC_S_STYL'和'ZCELLSTYL' 结构
CELLSTYLE.png
程序执行效果：
动态alv.png
动态, 编辑, 着色, 单元格

相关帖子
回复

使用道具 举报

Twilight

管理员

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

Ta最近发表

快速回帖

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

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

GMT+8, 2024-11-21 19:43 , Processed in 0.056023 second(s), 9 queries , Gzip On, Redis On.

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

平台客服 1204767879 无客服码

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