ZFI19135循环显示科目方向和差异字段颜色

LOOP AT IT_KMYE.
IF IT_KMYE-SAPQMYE > 0.
IT_KMYE-SAPFX = ‘借方’.
ELSEIF IT_KMYE-SAPQMYE < 0.
IT_KMYE-SAPFX = ‘贷方’.

•    it_kmye-sapqmye = it_kmye-sapqmye * -1.
  

  ELSE.
  IT_KMYE-SAPFX = ‘平’.
  ENDIF.

  IF IT_KMYE-SAPFX = ‘借方’.
  IT_KMYE-CY = IT_KMYE-SAPQMYE - IT_KMYE-GKQMYE.
  ELSE.
  IT_KMYE-CY = IT_KMYE-SAPQMYE + IT_KMYE-GKQMYE.
  ENDIF.

  IF IT_KMYE-CY = 0
  AND NOT ( IT_KMYE-HKONT IS INITIAL AND IT_KMYE-GKKMBH IS NOT INITIAL )
  AND NOT ( IT_KMYE-HKONT IS NOT INITIAL AND IT_KMYE-GKKMBH IS INITIAL ).
  LS_CELLCOLOR-FNAME = ‘CY’ .
  LS_CELLCOLOR-COLOR-COL = ‘5’ .
  LS_CELLCOLOR-COLOR-INT = ‘1’ .
  LS_CELLCOLOR-COLOR-INV = ‘1’ .
  APPEND LS_CELLCOLOR TO IT_KMYE-CELLCOLORS . "绿色
  ELSE.
  LS_CELLCOLOR-FNAME = ‘CY’ .
  LS_CELLCOLOR-COLOR-COL = ‘6’ .
  LS_CELLCOLOR-COLOR-INT = ‘1’ .
  LS_CELLCOLOR-COLOR-INV = ‘1’ .
  APPEND LS_CELLCOLOR TO IT_KMYE-CELLCOLORS . "红色
  ENDIF.

  MODIFY IT_KMYE.
  L_SAPKM = IT_KMYE-HKONT.
  L_GKKM = IT_KMYE-GKKMBH.
  CLEAR:L_SAPSUM,L_GKSUM.
  ENDLOOP.