单元格变化颜色

单元格变化颜色

*** 内表 ****

TYPES: BEGIN OF TY_TAB .

TYPES:  MATNR LIKE MAST-MATNR,"BOM物料
        MAKTX  LIKE MAKT-MAKTX,"BOM物料描述
        IDNRK LIKE STPO-IDNRK,"组件物料
        ZMAKTX LIKE MAKT-MAKTX,"组件物料描述
        MATKL LIKE MARA-MATKL,"物料组
        WGBEZ LIKE T023T-WGBEZ,"物料组描述
        ZJCC(40),"组件尺寸
        CGGF(40),"采购规范编码
        MENGE_1 LIKE STPO-MENGE,"组件需求数量
        MEINS LIKE STPO-MEINS,"需求计量单位
        EMENGE LIKE EKPO-MENGE,"采购订单数量
        BPRME LIKE EKPO-BPRME,"采购单位
        DBSL LIKE EKPO-MENGE,"调拨数量
        MENGE_2 LIKE EKPO-MENGE,"差异基本单位数量
        MENGE_3 LIKE EKPO-MENGE,"差异采购单位数量
        BANFN LIKE EBAN-BANFN,"采购申请号
        CELLCOLOR TYPE LVC_T_SCOL.”内表中要定义
TYPES: END OF TY_TAB.

DATA: WA_TAB TYPE TY_TAB.
DATA: GT_TAB TYPE TABLE OF TY_TAB WITH HEADER LINE.
DATA: GT_TAB1 TYPE TABLE OF TY_TAB WITH HEADER LINE.

 

DATA LS_CELLCOLOR TYPE LVC_S_SCOL .

 

IF GT_TAB-MENGE_2 > 0.
      LS_CELLCOLOR-FNAME = 'MENGE_2' .   "字段名
      LS_CELLCOLOR-COLOR-COL = 6.
      LS_CELLCOLOR-COLOR-INT = 1.
      LS_CELLCOLOR-COLOR-INV = 0 .
    ELSE.
      LS_CELLCOLOR-FNAME = 'MENGE_2' .   "字段名
      LS_CELLCOLOR-COLOR-COL = 5.
      LS_CELLCOLOR-COLOR-INT = 1.
      LS_CELLCOLOR-COLOR-INV = 0 .
    ENDIF.

 

APPEND LS_CELLCOLOR TO GT_TAB-CELLCOLOR.

 

行变化颜色

*** 内表 ****


TYPES: BEGIN OF TY_TAB ,
         MATNR_1 LIKE MARA-MATNR,"部件物料号
         LTEXT LIKE CKIT-LTEXT,"部件名称
         ZBJJZ LIKE MARA-NTGEW,"部件净重
*         MATNR_2 LIKE MARA-MATNR,"物料号
         ZWLCZ LIKE MARA-BISMT,"物料材质
         YCLJZ LIKE MARA-BRGEW,"原材料净重
         PJLYL LIKE MARA-BRGEW ,"平均利用率
         ZPJZJ LIKE CKIS-WERTB,"平均价格
         YCLJE LIKE CKIS-WERTB,"金额
         ZBJFL LIKE CKIS-WERTB,"辅料
         ZBJWG LIKE CKIS-WERTB,"外购
         ZPTFJ LIKE CKIS-WERTB,"配套辅机
         ZZWJG LIKE CKIS-WERTB,"外加工
         ZGFXS LIKE CKIS-MENGE,"工费小时
         ZGFJE LIKE CKIS-WERTB,"工费金额
         ZBJZX LIKE CKIS-WERTB,"专项
         ZZZCB LIKE CKIS-WERTB,"制造成本
         ZDWCB LIKE CKIS-WERTB,"单位成本
         COUNT TYPE I,
         BJMH(1),"是否部件末行
         BJSH(1),
         COLOR(4) TYPE C.
TYPES: END OF TY_TAB.

DATA: WA_TAB TYPE TY_TAB.

 

***颜色字段

DATA:   F_COLOR1(4) VALUE 'C400',
        F_COLOR2(4) VALUE 'C500',
        F_COLOR(4).

循环内表直接赋值

IF F_COLOR = F_COLOR1.
          F_COLOR = F_COLOR2.
        ELSE.
          F_COLOR = F_COLOR1.
        ENDIF.

 

 

 

*&---------------------------------------------------------------------*
*&      Module  INIT_ALV100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE INIT_ALV100 OUTPUT.
  DATA: IS_LAYOUT TYPE  LVC_S_LAYO.
  DATA: IS_VARIANT TYPE DISVARIANT.

  PERFORM GET_USER_NAME.

  ZNUMBER = G_NUMBER.
  ZTEXT = G_TEXT .
  ZSPBS = ZSPBS.
*  ZUSER = G_USER.


  PERFORM SET_FIELDCAT.
*  PERFORM SET_SORT.

  IF WA_CUSTOM_CONTAINER100 IS INITIAL.
    CREATE OBJECT WA_CUSTOM_CONTAINER100
      EXPORTING
        CONTAINER_NAME = WA_CONTAINER100.
    CREATE OBJECT ALV_GRID100
      EXPORTING
        I_PARENT = WA_CUSTOM_CONTAINER100.
    CREATE OBJECT EVENT_RECEIVER100.

    PERFORM FRM_EXCLUDE_TB_FUNCTIONS .
*    IS_LAYOUT-ZEBRA = 'X'.
    IS_LAYOUT-CWIDTH_OPT = 'X'.  " 优化列宽
    IS_LAYOUT-COL_OPT = 'X'. "
    IS_LAYOUT-SEL_MODE = 'A'.      "
    IS_VARIANT-REPORT = SY-REPID.
*    IS_LAYOUT-STYLEFNAME = 'CELLSTYLES'.
    IS_LAYOUT-INFO_FNAME = 'COLOR'.

    CALL METHOD ALV_GRID100->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING
        IS_VARIANT           = IS_VARIANT
        I_SAVE               = 'A'
        IT_TOOLBAR_EXCLUDING = GT_EXCLUDE
*       i_structure_name     = 'ZPS_JSJH'
        IS_LAYOUT            = IS_LAYOUT

      CHANGING
*        IT_SORT              = GB_SORT[]
        IT_FIELDCATALOG      = GB_FIELDCAT100[]
        IT_OUTTAB            = GT_ALV[].
  ELSE.
    CALL METHOD ALV_GRID100->REFRESH_TABLE_DISPLAY
      EXPORTING
        I_SOFT_REFRESH = 'X'
      EXCEPTIONS
        FINISHED       = 1
        OTHERS         = 2.
    CALL METHOD ALV_GRID100->SET_SELECTED_ROWS
      EXPORTING
        IT_INDEX_ROWS = LT_ROWS.
  ENDIF.
ENDMODULE.                 " INIT_ALV100  OUTPUT