1.TYPE-POOL引入ICON；
TYPE-POOLS:SLIS,ICON.
2.定义一个指示灯字段；
FLG TYPE CHAR4,
3.ALV FIELD_SET显示指示灯；
USING ‘FLG’ ” ’15’ ” ” ”,
4.FORM FIELD_SET指示灯传值；
FORM FIELD_SET USING P_FIELDNAME
P_ICON.
GW_FIELDCAT-ICON = P_ICON.
APPEND GW_FIELDCAT TO GT_FIELDCAT.
CLEAR GW_FIELDCAT.
ENDFORM.
5.根据数据处理逻辑，指示灯字段赋值；
WA_ALV-FLG = ICON_LED_GREEN.
一个具体使用实例
*&---------------------------------------------------------------------*
*& Report ZEWM006
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZEWMR007.
TYPE-POOLS:SLIS,ICON.
TABLES:LIKP,SSCRFIELDS.
TYPES:BEGIN OF TY_ALV,
FLG TYPE CHAR4,
SEL TYPE C,
ZTYPE TYPE C,
ZTITLE TYPE CHAR30,
VBELN TYPE LIKP-VBELN,
POSNR TYPE LIPS-POSNR,
VBELV TYPE VBFA-VBELV,
MATNR TYPE LIPS-MATNR,
ARKTX TYPE LIPS-ARKTX,
LFIMG TYPE LIPS-LFIMG,
VRKME TYPE LIPS-VRKME,
LGNUM TYPE LIKP-LGNUM,
LNUMT TYPE T300T-LNUMT,
LGORT TYPE LIPS-LGORT,
LGOBE TYPE T001L-LGOBE,
KUNNR TYPE LIKP-KUNNR,
LIFNR TYPE LIKP-LIFNR,
NAME_K TYPE BUT000-NAME_ORG1, "客户描述
NAME_L TYPE BUT000-NAME_ORG1, "供应商描述
NAME TYPE BUT000-NAME_ORG1, "打印文件表头
NAME_ORG1 TYPE BUT000-NAME_ORG1, "ALV最终输出
END OF TY_ALV,
BEGIN OF TY_LIKP,
ZTITLE TYPE CHAR30,
ZTYPE TYPE CHAR1,
VBELN TYPE LIKP-VBELN,
VBELV TYPE VBFA-VBELV,
LGNUM TYPE LIKP-LGNUM,
LNUMT TYPE T300T-LNUMT,
LGORT TYPE LIPS-LGORT,
LGOBE TYPE T001L-LGOBE,
KUNNR TYPE LIKP-KUNNR,
LIFNR TYPE LIKP-LIFNR,
NAME_K TYPE BUT000-NAME_ORG1,
NAME_L TYPE BUT000-NAME_ORG1,
NAME TYPE BUT000-NAME_ORG1,
END OF TY_LIKP,
BEGIN OF TY_LIPS,
VBELN TYPE LIPS-VBELN,
POSNR TYPE LIPS-POSNR,
MATNR TYPE LIPS-MATNR,
ARKTX TYPE LIPS-ARKTX,
LFIMG TYPE LIPS-LFIMG,
VRKME TYPE LIPS-VRKME,
LGORT TYPE LIPS-LGORT,
END OF TY_LIPS.
DATA:GT_LIKP TYPE TABLE OF TY_LIKP,
WA_LIKP TYPE TY_LIKP,
GT_T300T TYPE TABLE OF T300T,
WA_T300T TYPE T300T,
GT_T001L TYPE TABLE OF T001L,
WA_T001L TYPE T001L,
GT_BUT_K TYPE TABLE OF BUT000,
WA_BUT_K TYPE BUT000,
GT_BUT_L TYPE TABLE OF BUT000,
WA_BUT_L TYPE BUT000,
GT_LIPS TYPE TABLE OF TY_LIPS,
WA_LIPS TYPE TY_LIPS,
GT_ALV TYPE TABLE OF TY_ALV,
WA_ALV TYPE TY_ALV,
WA_DOCID1 TYPE /SCDL/DB_REFDOC-DOCID,
WA_DOCID2 TYPE /SCDL/DB_REFDOC-DOCID,
WA_DOCID3 TYPE /SCDL/DB_REFDOC-DOCID.
DATA: GW_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
G_LAYOUT TYPE SLIS_LAYOUT_ALV,
LS_EVENTS TYPE SLIS_ALV_EVENT,
LT_EVENTS TYPE SLIS_T_EVENT.
SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME.
SELECT-OPTIONS:
S_VBELN FOR LIKP-VBELN OBLIGATORY.
SELECTION-SCREEN END OF BLOCK BK1.
SELECTION-SCREEN BEGIN OF BLOCK BK2 WITH FRAME.
PARAMETERS:R_JHD RADIOBUTTON GROUP AA DEFAULT 'X'.
PARAMETERS:R_ZCD RADIOBUTTON GROUP AA.
SELECTION-SCREEN END OF BLOCK BK2.
INITIALIZATION."(初始化)
AT SELECTION-SCREEN."(屏幕跳出前)
START-OF-SELECTION."(取数据)
IF R_JHD = 'X'."交货单
PERFORM FRM_GETDATA.
ELSE."产成品装车清单
ENDIF.
PERFORM FRM_LAYOUT_BUILD.
PERFORM FRM_FIELD_BUILD.
PERFORM FRM_DATA_OUT.
END-OF-SELECTION."(展示数据)
TOP-OF-PAGE."(普通报表输出页头)
END-OF-PAGE."(普通报表输出页尾)
*-------------------------------------------------------------------------------
*FORM
*-------------------------------------------------------------------------------
FORM FRM_GETDATA.
"取抬头数据
SELECT A~VBELN
B~VBELV
A~LGNUM
A~KUNNR
A~LIFNR
INTO CORRESPONDING FIELDS OF TABLE GT_LIKP
FROM LIKP AS A
LEFT JOIN VBFA AS B ON A~VBELN = B~VBELN
WHERE A~VBELN IN S_VBELN
AND A~LGNUM IN ('HZY','HZC').
IF GT_LIKP IS NOT INITIAL.
"获取行项目数据
SELECT VBELN POSNR MATNR ARKTX LFIMG VRKME
LGORT
INTO CORRESPONDING FIELDS OF TABLE GT_LIPS
FROM LIPS
FOR ALL ENTRIES IN GT_LIKP
WHERE VBELN = GT_LIKP-VBELN.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE GT_T300T
FROM T300T
FOR ALL ENTRIES IN GT_LIKP
WHERE LGNUM = GT_LIKP-LGNUM
AND SPRAS = SY-LANGU.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE GT_T001L
FROM T001L
FOR ALL ENTRIES IN GT_LIPS
WHERE LGORT = GT_LIPS-LGORT.
SELECT PARTNER NAME_ORG1
INTO CORRESPONDING FIELDS OF TABLE GT_BUT_K
FROM BUT000
FOR ALL ENTRIES IN GT_LIKP
WHERE PARTNER = GT_LIKP-KUNNR.
SELECT PARTNER NAME_ORG1
INTO CORRESPONDING FIELDS OF TABLE GT_BUT_L
FROM BUT000
FOR ALL ENTRIES IN GT_LIKP
WHERE PARTNER = GT_LIKP-LIFNR.
ELSE.
MESSAGE '输入的交货单不存在！' TYPE 'S' DISPLAY LIKE 'E'.
LEAVE LIST-PROCESSING.
ENDIF.
"处理抬头数据
LOOP AT GT_LIKP INTO WA_LIKP.
READ TABLE GT_LIPS INTO WA_LIPS WITH KEY VBELN = WA_LIKP-VBELN.
IF SY-SUBRC = 0.
WA_LIKP-LGORT = WA_LIPS-LGORT.
ENDIF.
READ TABLE GT_T001L INTO WA_T001L WITH KEY LGORT = WA_LIKP-LGORT.
IF SY-SUBRC = 0.
WA_LIKP-LGOBE = WA_T001L-LGOBE.
ENDIF.
READ TABLE GT_T300T INTO WA_T300T WITH KEY LGNUM = WA_LIKP-LGNUM.
IF SY-SUBRC = 0 AND WA_T300T-LGNUM NE 'HZY'."原材料仓描述 = 仓库描述+库存地点描述
WA_LIKP-LNUMT = WA_T300T-LNUMT.
ELSEIF SY-SUBRC = 0 AND WA_T300T-LGNUM = 'HZY'.
CONCATENATE WA_T300T-LNUMT WA_LIKP-LGOBE INTO WA_LIKP-LNUMT SEPARATED BY '-'.
ENDIF.
READ TABLE GT_BUT_K INTO WA_BUT_K WITH KEY PARTNER = WA_LIKP-KUNNR.
IF SY-SUBRC = 0.
WA_LIKP-NAME_K = WA_BUT_K-NAME_ORG1.
ENDIF.
READ TABLE GT_BUT_L INTO WA_BUT_L WITH KEY PARTNER = WA_LIKP-LIFNR.
IF SY-SUBRC = 0.
WA_LIKP-NAME_L = WA_BUT_L-NAME_ORG1.
ENDIF.
IF R_JHD = 'X'.
SELECT SINGLE DOCID INTO WA_DOCID1
FROM /SCDL/DB_REFDOC
WHERE REFDOCNO = WA_LIKP-VBELN.
SELECT SINGLE DOCID INTO WA_DOCID2
FROM /SCDL/DB_PROCH_O
WHERE DOCID = WA_DOCID1.
SELECT SINGLE DOCID INTO WA_DOCID3
FROM /SCDL/DB_PROCH_I
WHERE DOCID = WA_DOCID1.
IF WA_DOCID2 IS NOT INITIAL.
WA_LIKP-ZTITLE = '出库交货单'.
WA_LIKP-NAME = WA_LIKP-NAME_K.
WA_LIKP-ZTYPE = 'O'.
ELSEIF WA_DOCID3 IS NOT INITIAL.
WA_LIKP-ZTITLE = '入库交货单'.
WA_LIKP-NAME = WA_LIKP-NAME_L.
WA_LIKP-ZTYPE = 'I'.
ENDIF.
ELSE.
WA_LIKP-ZTITLE = '产成品装车清单'.
ENDIF.
MODIFY GT_LIKP FROM WA_LIKP.
CLEAR:WA_LIKP,WA_T300T,WA_T001L,WA_BUT_K,WA_LIPS,WA_BUT_L,
WA_DOCID1,WA_DOCID2,WA_DOCID3.
ENDLOOP.
LOOP AT GT_LIPS INTO WA_LIPS.
WA_ALV-VBELN = WA_LIPS-VBELN.
WA_ALV-POSNR = WA_LIPS-POSNR.
WA_ALV-MATNR = WA_LIPS-MATNR.
WA_ALV-ARKTX = WA_LIPS-ARKTX.
WA_ALV-LFIMG = WA_LIPS-LFIMG.
WA_ALV-VRKME = WA_LIPS-VRKME.
READ TABLE GT_LIKP INTO WA_LIKP WITH KEY VBELN = WA_ALV-VBELN.
WA_ALV-ZTYPE = WA_LIKP-ZTYPE.
WA_ALV-VBELV = WA_LIKP-VBELV.
WA_ALV-LGNUM = WA_LIKP-LGNUM.
WA_ALV-LGORT = WA_LIKP-LGORT.
WA_ALV-LGOBE = WA_LIKP-LGOBE.
WA_ALV-ZTITLE = WA_LIKP-ZTITLE.
WA_ALV-KUNNR = WA_LIKP-KUNNR.
WA_ALV-LIFNR = WA_LIKP-LIFNR.
WA_ALV-NAME_K = WA_LIKP-NAME_K.
WA_ALV-NAME_L = WA_LIKP-NAME_L.
WA_ALV-NAME = WA_LIKP-NAME.
IF WA_ALV-ZTYPE = 'O'."出库交货单
WA_ALV-LNUMT = WA_LIKP-LNUMT."发货方
WA_ALV-NAME_ORG1 = WA_LIKP-NAME_K."收货方
ELSEIF WA_ALV-ZTYPE = 'I'."入库交货单
WA_ALV-LNUMT = WA_LIKP-NAME_L."发货方
WA_ALV-NAME_ORG1 = WA_LIKP-LNUMT."收货方
ENDIF.
APPEND WA_ALV TO GT_ALV.
CLEAR:WA_LIKP,WA_LIPS,WA_ALV.
ENDLOOP.
SORT GT_ALV BY VBELN POSNR.
ENDFORM.
FORM FRM_LAYOUT_BUILD .
G_LAYOUT-BOX_FIELDNAME = 'SEL'. " 选择模式，在最左端有选择按钮
G_LAYOUT-COLWIDTH_OPTIMIZE = 'X'. " 自动调整列宽
G_LAYOUT-ZEBRA = 'X'. " 表格斑马线
G_LAYOUT-INFO_FIELDNAME = 'CLR'.
LS_EVENTS-FORM = 'DATA_CHANGED_METHOD'.
LS_EVENTS-NAME = 'DATA_CHANGED'.
APPEND LS_EVENTS TO LT_EVENTS.
ENDFORM.
FORM FRM_FIELD_BUILD .
CLEAR GT_FIELDCAT.
PERFORM FIELD_SET:
USING 'FLG' '' '15' '' '' '',
USING 'VBELN' '交货单号' '15' '' '' '',
USING 'POSNR' '行号' '15' '' '' '',
USING 'VBELV' '先前凭证' '15' '' '' '',
USING 'MATNR' '物料编码' '15' '' '' '',
USING 'ARKTX' '物料名称' '15' '' '' '',
USING 'LFIMG' '数量' '15' '' '' '',
USING 'VRKME' '单位' '15' '' '' '',
USING 'LNUMT' '发货方' '15' '' '' '',
USING 'NAME_ORG1' '收货方' '15' '' '' ''.
ENDFORM.
FORM FRM_DATA_OUT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IS_LAYOUT = G_LAYOUT
IT_FIELDCAT = GT_FIELDCAT
I_SAVE = 'A'
I_CALLBACK_PF_STATUS_SET = 'FRM_STATE'
I_CALLBACK_USER_COMMAND = 'FRM_USER_COMMAND'
IT_EVENTS = LT_EVENTS
TABLES
T_OUTTAB = GT_ALV
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.
FORM FRM_STATE USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STANDARD'.
ENDFORM.
FORM FRM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
SELFIELD TYPE SLIS_SELFIELD.
DATA: LR_GRID TYPE REF TO CL_GUI_ALV_GRID.
DATA L_TABIX LIKE SY-TABIX.
* CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
* IMPORTING
* E_GRID = LR_GRID.
* CALL METHOD LR_GRID->CHECK_CHANGED_DATA.
SELFIELD-REFRESH = 'X'.
* SELFIELD-ROW_STABLE = 'X'.
* SELFIELD-COL_STABLE = 'X'.
READ TABLE GT_ALV INTO WA_ALV INDEX SELFIELD-TABINDEX.
CHECK SY-SUBRC = 0.
CASE R_UCOMM.
WHEN 'ZPRINT'.
PERFORM FRM_PRINT.
ENDCASE.
ENDFORM.
FORM FIELD_SET USING P_FIELDNAME
P_SELTEXT_L
P_OUTPUTLEN
P_HOTSPOT
P_CHECKBOX
P_ICON.
GW_FIELDCAT-FIELDNAME = P_FIELDNAME .
GW_FIELDCAT-SELTEXT_L = P_SELTEXT_L .
GW_FIELDCAT-OUTPUTLEN = P_OUTPUTLEN .
GW_FIELDCAT-HOTSPOT = P_HOTSPOT.
GW_FIELDCAT-CHECKBOX = P_CHECKBOX.
GW_FIELDCAT-ICON = P_ICON.
APPEND GW_FIELDCAT TO GT_FIELDCAT.
CLEAR GW_FIELDCAT.
ENDFORM.
FORM FRM_PRINT.
DATA:FM_NAME TYPE RS38L_FNAM,
GT_LIPS_O TYPE TABLE OF ZSEWM002,
WA_LIPS_O TYPE ZSEWM002,
WA_LIKP_O TYPE ZSEWM001,
LS_OUTPUT_OPTIONS TYPE SSFCOMPOP,
LS_CONTROL_PARAMETERS TYPE SSFCTRLOP,
LS_OUTPUT_INFO TYPE SSFCRESCL,
ZLINE TYPE CHAR3,
LS_CHECK TYPE TY_ALV,
LT_CHECK TYPE TABLE OF TY_ALV.
"检查
CLEAR:LT_CHECK,LS_CHECK.
LOOP AT GT_ALV INTO WA_ALV WHERE SEL = 'X'.
LS_CHECK-VBELN = WA_ALV-VBELN.
COLLECT LS_CHECK INTO LT_CHECK.
ENDLOOP.
IF SY-SUBRC <> 0.
MESSAGE '请选择需要打印的数据！' TYPE 'E'.
ENDIF.
IF LINES( LT_CHECK ) > 1.
MESSAGE '不同交货单不能一起打印！' TYPE 'E'.
ENDIF.
LOOP AT GT_ALV INTO WA_ALV WHERE SEL = 'X'.
"READ TABLE GT_ALV INTO WA_ALV WITH KEY SEL = 'X'.
WA_LIKP_O-ZTITLE = WA_ALV-ZTITLE.
WA_LIKP_O-VBELN = WA_ALV-VBELN.
WA_LIKP_O-VBELV = WA_ALV-VBELV.
WA_LIKP_O-LGNUM = WA_ALV-LGNUM.
WA_LIKP_O-LNUMT = WA_ALV-LNUMT.
WA_LIKP_O-LGORT = WA_ALV-LGORT.
WA_LIKP_O-LGOBE = WA_ALV-LGOBE.
WA_LIKP_O-KUNNR = WA_ALV-KUNNR.
WA_LIKP_O-LIFNR = WA_ALV-LIFNR.
WA_LIKP_O-NAME_K = WA_ALV-NAME_K.
WA_LIKP_O-NAME_L = WA_ALV-NAME_L.
WA_LIKP_O-NAME = WA_ALV-NAME_ORG1.
ZLINE = 0.
LOOP AT GT_LIPS INTO WA_LIPS WHERE VBELN = WA_LIKP_O-VBELN.
WA_LIPS_O-ZLINE = ZLINE + 1.
ZLINE = ZLINE + 1.
WA_LIPS_O-VBELN = WA_LIPS-VBELN.
WA_LIPS_O-POSNR = WA_LIPS-POSNR.
WA_LIPS_O-MATNR = WA_LIPS-MATNR.
WA_LIPS_O-ARKTX = WA_LIPS-ARKTX.
WA_LIPS_O-LFIMG = WA_LIPS-LFIMG.
WA_LIPS_O-VRKME = WA_LIPS-VRKME.
WA_LIPS_O-LGORT = WA_LIPS-LGORT.
APPEND WA_LIPS_O TO GT_LIPS_O.
CLEAR:WA_LIPS,WA_LIPS_O.
ENDLOOP.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'ZSFEWM010'
IMPORTING
FM_NAME = FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
LS_OUTPUT_OPTIONS-TDDEST = 'LP01'. "假脱机: 输出设备
LS_OUTPUT_OPTIONS-TDIMMED = 'X'. "立即假脱机打印
LS_OUTPUT_OPTIONS-TDDELETE = 'X'. "立即假脱机删除
"打开假脱机队列
CALL FUNCTION 'SSF_OPEN'
EXPORTING
OUTPUT_OPTIONS = LS_OUTPUT_OPTIONS
CONTROL_PARAMETERS = LS_CONTROL_PARAMETERS
USER_SETTINGS = ''
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
RETURN.
ENDIF.
LS_CONTROL_PARAMETERS-NO_OPEN = 'X'.
LS_CONTROL_PARAMETERS-NO_CLOSE = 'X'.
CALL FUNCTION FM_NAME
EXPORTING
CONTROL_PARAMETERS = LS_CONTROL_PARAMETERS
OUTPUT_OPTIONS = LS_OUTPUT_OPTIONS
USER_SETTINGS = ' '
WA_LIKP_O = WA_LIKP_O
IMPORTING
JOB_OUTPUT_INFO = LS_OUTPUT_INFO
TABLES
GT_LIPS_O = GT_LIPS_O
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4.
"关闭假脱机队列
CALL FUNCTION 'SSF_CLOSE'
IMPORTING
JOB_OUTPUT_INFO = LS_OUTPUT_INFO
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
OTHERS = 4.
WA_ALV-FLG = ICON_LED_GREEN.
MODIFY GT_ALV FROM WA_ALV TRANSPORTING FLG.
CLEAR:WA_ALV, WA_LIKP_O.
ENDLOOP.
ENDFORM.原创文章，作者：ItWorker，如若转载，请注明出处：https://blog.ytso.com/19539.html