Business Charts¶

목적

XYChart를 활용하여 올해와 작년의 연간 실적을 비교하는 비즈니스 차트 구성

결과 화면

<사진 1> XYChart를 활용한 연간 실적 비교용 비즈니스 차트 예시 화면

주요 단계

1. Initial Data Setting¶

1.1. Global Type, Data Definition¶

"output table list type
TYPES:

  BEGIN OF TY_LIST,

    LGDTX TYPE STRING,                  " Category_name

    VAL01 TYPE P LENGTH 15 DECIMALS 2,  " Jan
    VAL02 TYPE P LENGTH 15 DECIMALS 2,  " Feb
    VAL03 TYPE P LENGTH 15 DECIMALS 2,  " Mar
    VAL04 TYPE P LENGTH 15 DECIMALS 2,  " Apr
    VAL05 TYPE P LENGTH 15 DECIMALS 2,  " May
    VAL06 TYPE P LENGTH 15 DECIMALS 2,  " Jun
    VAL07 TYPE P LENGTH 15 DECIMALS 2,  " Jul
    VAL08 TYPE P LENGTH 15 DECIMALS 2,  " Aug
    VAL09 TYPE P LENGTH 15 DECIMALS 2,  " Sept
    VAL10 TYPE P LENGTH 15 DECIMALS 2,  " Oct
    VAL11 TYPE P LENGTH 15 DECIMALS 2,  " Nov
    VAL12 TYPE P LENGTH 15 DECIMALS 2,  " Dec

    WAERS TYPE WAERS,                   " Currency units

  END OF TY_LIST.

"output XYchart data list type
TYPES:

  BEGIN OF TY_CHART,

    CAT_TEXT TYPE STRING,               " Category.
    VALUE01  TYPE P LENGTH 15 DECIMALS 2,  " This year Performance.
    VALUE02  TYPE P LENGTH 15 DECIMALS 2,  " Last year Performance.
    WAERS    TYPE WAERS,                " Currency units.

  END OF TY_CHART.

"Output Table data.
DATA:
  GT_LIST TYPE TABLE OF TY_LIST.

"Output XYchart data.
DATA:
  GT_CHART TYPE TABLE OF TY_CHART.

1.2. Sample Initial Data Setting¶

DATA : LS_LIST  TYPE TY_LIST,
       LS_CHART LIKE LINE OF GT_CHART,
       LV_NUM   TYPE N LENGTH 2,
       LV_INDEX TYPE SY-INDEX,
       LV_TABIX TYPE SY-TABIX,
       LV_VAL   TYPE P LENGTH 15 DECIMALS 2,
       LV_NAME  TYPE STRING.

FIELD-SYMBOLS <LV_VAL> TYPE TY_LIST-VAL01.

*--------------------------------------------------------------------*

CLEAR: GT_LIST.

*--Set output table data - This / Last Year Actual

"This Year Actual
LS_LIST-LGDTX = 'This Year Actuals'.  " Category_name
LS_LIST-VAL01 = '91415'.              " Jan
LS_LIST-VAL02 = '110350'.             " Feb
LS_LIST-VAL03 = '255022'.             " Mar
LS_LIST-VAL04 = '150104'.             " Apr
LS_LIST-VAL05 = '154186'.             " May
LS_LIST-VAL06 = '215926'.             " Jun
LS_LIST-VAL07 = '215926'.             " Jul
LS_LIST-VAL08 = '141588'.             " Aug
LS_LIST-VAL09 = '213179'.             " Sept
LS_LIST-VAL10 = '182366'.             " Oct
LS_LIST-VAL11 = '235730'.             " Nov
LS_LIST-VAL12 = '404250'.             " Dec
LS_LIST-WAERS = 'USD'.                " Currency units

APPEND LS_LIST TO GT_LIST.
CLEAR LS_LIST.

"Last Year Actual
LS_LIST-LGDTX = 'Last Year Actuals'.  " Category_name
LS_LIST-VAL01 = '279397'.             " Jan
LS_LIST-VAL02 = '239607'.             " Feb
LS_LIST-VAL03 = '350205'.             " Mar
LS_LIST-VAL04 = '257693'.             " Apr
LS_LIST-VAL05 = '240036'.             " May
LS_LIST-VAL06 = '193479'.             " Jun
LS_LIST-VAL07 = '214079'.             " Jul
LS_LIST-VAL08 = '182347'.             " Aug
LS_LIST-VAL09 = '180081'.             " Sept
LS_LIST-VAL10 = '178653'.             " Oct
LS_LIST-VAL11 = '137902'.             " Nov
LS_LIST-VAL12 = '183170'.             " Dec
LS_LIST-WAERS = 'USD'.                " Currency units

APPEND LS_LIST TO GT_LIST.
CLEAR LS_LIST.

*-- Set chart data.
DO 12 TIMES.

  CLEAR: LS_CHART, LV_NUM, LV_NAME.

  LV_NUM = SY-INDEX.

  "Category Setting.
  CASE LV_NUM.
    WHEN '01'. LS_CHART-CAT_TEXT = 'Jan'.
    WHEN '02'. LS_CHART-CAT_TEXT = 'Feb'.
    WHEN '03'. LS_CHART-CAT_TEXT = 'Mar'.
    WHEN '04'. LS_CHART-CAT_TEXT = 'Apr'.
    WHEN '05'. LS_CHART-CAT_TEXT = 'May'.
    WHEN '06'. LS_CHART-CAT_TEXT = 'Jun'.
    WHEN '07'. LS_CHART-CAT_TEXT = 'Jul'.
    WHEN '08'. LS_CHART-CAT_TEXT = 'Aug'.
    WHEN '09'. LS_CHART-CAT_TEXT = 'Sept'.
    WHEN '10'. LS_CHART-CAT_TEXT = 'Oct'.
    WHEN '11'. LS_CHART-CAT_TEXT = 'Nov'.
    WHEN '12'. LS_CHART-CAT_TEXT = 'Dec'.
  ENDCASE.

  "Set chart data from Output Table data.
  LOOP AT GT_LIST INTO LS_LIST.

    CLEAR: LV_TABIX.

    LV_TABIX = SY-TABIX.
    LV_NAME  = 'VAL' && LV_NUM.

    ASSIGN COMPONENT LV_NAME OF STRUCTURE LS_LIST TO <LV_VAL>.
    CHECK <LV_VAL> IS ASSIGNED.

    CASE LV_TABIX.
      WHEN 1.
        LS_CHART-VALUE01 = <LV_VAL>.
      WHEN 2.
        LS_CHART-VALUE02 = <LV_VAL>.
    ENDCASE.

    "Set currency
    LS_CHART-WAERS = LS_LIST-WAERS.

  ENDLOOP.

  APPEND LS_CHART TO GT_CHART.
  CLEAR LS_CHART.

ENDDO.