ALV指示灯

DATA: BEGIN OF gs_out,
        matnr  LIKE lips-matnr,
        lfimg  LIKE lips-lfimg,
        vgbel  LIKE lips-vgbel,
        vgpos  TYPE c LENGTH 6,
        kwmeng LIKE vbap-kwmeng,   "订单数量
        light(4),
      END OF gs_out .

DATA: gt_out LIKE TABLE OF gs_out .

LOOP AT gt_vbap INTO gs_vbap .
  gs_out-matnr = gs_vbap-matnr.
  gs_out-vgbel = gs_vbap-vbeln.
  gs_out-vgpos = gs_vbap-posnr.
  gs_out-kwmeng  = gs_vbap-kwmeng.
  CLEAR ls_lips  .
  READ TABLE lt_lips INTO ls_lips  WITH KEY vgbel  = gs_vbap-vbeln
                                            vgpos =  gs_vbap-posnr
                                   BINARY SEARCH .
  IF sy-subrc EQ 0 .
    gs_out-lfimg  = ls_lips-lfimg.
  ENDIF .
  if gs_out-lfimg <> gs_out-kwmeng .
   gs_out-light = '@0A@' .
   else .
     gs_out-light = '@08@'.
  endif .
  APPEND gs_out TO gt_out .
  CLEAR gs_out .

ENDLOOP .