Untitled

  "Penjualan
  wa_data2-desc_id = 'Penjualan'.
  LOOP AT it_mapacct INTO wa_mapacct WHERE mapid = 'A01'.
    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'OG'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-oil = wa_data2-oil + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'PMB'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-pembangkit = wa_data2-pembangkit + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'GA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-gula = wa_data2-gula + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'KP'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-mesin = wa_data2-mesin + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'SDA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-air = wa_data2-air + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'HO'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-ho = wa_data2-ho + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  ENDLOOP.
  APPEND wa_data2 TO it_data2.

  READ TABLE it_data2 ASSIGNING FIELD-SYMBOL(<fs2_penjualan>) INDEX 1.

  "Beban Pokok Penjualan
  CLEAR : wa_data2, wa_acdoca.
  wa_data2-desc_id = 'Beban Pokok Penjualan'.
  LOOP AT it_mapacct INTO wa_mapacct WHERE mapid = 'A02'.
    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'OG'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-oil = wa_data2-oil + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'PMB'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-pembangkit = wa_data2-pembangkit + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'GA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-gula = wa_data2-gula + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'KP'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-mesin = wa_data2-mesin + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'SDA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-air = wa_data2-air + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'HO'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-ho = wa_data2-ho + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  ENDLOOP.
  APPEND wa_data2 TO it_data2.

  "Laba Kotor
  CLEAR : wa_data2.
  wa_data2-desc_id = 'Laba Kotor'.
  READ TABLE it_data2 ASSIGNING FIELD-SYMBOL(<fs2_beban_penjualan>) INDEX 2.
  wa_data2-oil = <fs2_penjualan>-oil - <fs2_beban_penjualan>-oil.
  wa_data2-pembangkit = <fs2_penjualan>-pembangkit - <fs2_beban_penjualan>-pembangkit.
  wa_data2-gula = <fs2_penjualan>-gula - <fs2_beban_penjualan>-gula.
  wa_data2-mesin = <fs2_penjualan>-mesin - <fs2_beban_penjualan>-mesin.
  wa_data2-air = <fs2_penjualan>-air - <fs2_beban_penjualan>-air.
  wa_data2-ho = <fs2_penjualan>-ho - <fs2_beban_penjualan>-ho.
  wa_data2-ho = <fs2_penjualan>-ho - <fs2_beban_penjualan>-ho.
  wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.

  APPEND wa_data2 TO it_data2.

  "Beban Usaha
  CLEAR : wa_data2.
  wa_data2-desc_id = 'Beban Usaha'.
  APPEND wa_data2 TO it_data2.

  "Beban Pemasaran
  CLEAR : wa_data2, wa_acdoca.
  wa_data2-desc_id = '- Beban Pemasaran'.
  LOOP AT it_mapacct INTO wa_mapacct WHERE mapid = 'A03'.
    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'OG'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-oil = wa_data2-oil + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'PMB'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-pembangkit = wa_data2-pembangkit + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'GA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-gula = wa_data2-gula + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'KP'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-mesin = wa_data2-mesin + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'SDA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-air = wa_data2-air + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'HO'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-ho = wa_data2-ho + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  ENDLOOP.
  APPEND wa_data2 TO it_data2.

  "Beban Adm. & Umum
  CLEAR : wa_data2, wa_acdoca.
  wa_data2-desc_id = '- Beban Adm. & Umum'.
  LOOP AT it_mapacct INTO wa_mapacct WHERE mapid = 'A04'.
    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'OG'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-oil = wa_data2-oil + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'PMB'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-pembangkit = wa_data2-pembangkit + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'GA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-gula = wa_data2-gula + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'KP'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-mesin = wa_data2-mesin + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'SDA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-air = wa_data2-air + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'HO'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-ho = wa_data2-ho + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  ENDLOOP.
  APPEND wa_data2 TO it_data2.

  "Jumlah Beban Usaha
  CLEAR wa_data2.
  wa_data2-desc_id = 'Jumlah Beban Usaha'.
  READ TABLE it_data2 ASSIGNING FIELD-SYMBOL(<fs2_beban_mkt>) INDEX 5.
  READ TABLE it_data2 ASSIGNING FIELD-SYMBOL(<fs2_beban_adm>) INDEX 6.

  wa_data2-oil = <fs2_beban_mkt>-oil + <fs2_beban_adm>-oil.
  wa_data2-pembangkit = <fs2_beban_mkt>-pembangkit + <fs2_beban_adm>-pembangkit.
  wa_data2-gula = <fs2_beban_mkt>-gula + <fs2_beban_adm>-gula.
  wa_data2-mesin = <fs2_beban_mkt>-mesin + <fs2_beban_adm>-mesin.
  wa_data2-air = <fs2_beban_mkt>-air + <fs2_beban_adm>-air.
  wa_data2-ho = <fs2_beban_mkt>-ho + <fs2_beban_adm>-ho.

  wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  APPEND wa_data2 TO it_data2.

  "Laba (Rugi) Usaha
  CLEAR wa_data2.
  wa_data2-desc_id = 'Laba (Rugi) Usaha'.
  READ TABLE it_data2 ASSIGNING FIELD-SYMBOL(<fs2_laba_kotor>) INDEX 3.
  READ TABLE it_data2 ASSIGNING FIELD-SYMBOL(<fs2_jml_beban_usaha>) INDEX 7.

  wa_data2-oil = <fs2_laba_kotor>-oil - <fs2_jml_beban_usaha>-oil.
  wa_data2-pembangkit = <fs2_laba_kotor>-pembangkit - <fs2_jml_beban_usaha>-pembangkit.
  wa_data2-gula = <fs2_laba_kotor>-gula - <fs2_jml_beban_usaha>-gula.
  wa_data2-mesin = <fs2_laba_kotor>-mesin - <fs2_jml_beban_usaha>-mesin.
  wa_data2-air = <fs2_laba_kotor>-air - <fs2_jml_beban_usaha>-air.
  wa_data2-ho = <fs2_laba_kotor>-ho - <fs2_jml_beban_usaha>-ho.

  wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  APPEND wa_data2 TO it_data2.

  "Pendapatan (Beban) Lain-Lain
  CLEAR wa_data2.
  wa_data2-desc_id = 'Pendapatan (Beban) Lain-Lain'.
  APPEND wa_data2 TO it_data2.

  "Pendapatan Lainnya
  CLEAR : wa_data2, wa_acdoca.
  wa_data2-desc_id = '- Pendapatan Lainnya'.
  LOOP AT it_mapacct INTO wa_mapacct WHERE mapid = 'A05'.
    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'OG'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-oil = wa_data2-oil + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'PMB'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-pembangkit = wa_data2-pembangkit + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'GA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-gula = wa_data2-gula + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'KP'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-mesin = wa_data2-mesin + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'SDA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-air = wa_data2-air + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'HO'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-ho = wa_data2-ho + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  ENDLOOP.
  APPEND wa_data2 TO it_data2.

  "Beban Lainnya
  CLEAR : wa_data2, wa_acdoca.
  wa_data2-desc_id = '- Beban Lainnya'.
  LOOP AT it_mapacct INTO wa_mapacct WHERE mapid = 'A06'.
    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'OG'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-oil = wa_data2-oil + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'PMB'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-pembangkit = wa_data2-pembangkit + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'GA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-gula = wa_data2-gula + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'KP'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-mesin = wa_data2-mesin + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'SDA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-air = wa_data2-air + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'HO'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-ho = wa_data2-ho + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  ENDLOOP.
  APPEND wa_data2 TO it_data2.

  "Selisih Kurs
  CLEAR : wa_data2, wa_acdoca.
  wa_data2-desc_id = '- Selisih Kurs'.
  LOOP AT it_mapacct INTO wa_mapacct WHERE mapid = 'A07'.
    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'OG'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-oil = wa_data2-oil + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'PMB'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-pembangkit = wa_data2-pembangkit + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'GA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-gula = wa_data2-gula + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'KP'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-mesin = wa_data2-mesin + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'SDA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-air = wa_data2-air + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'HO'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-ho = wa_data2-ho + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  ENDLOOP.
  APPEND wa_data2 TO it_data2.

  "Penghasilan Bunga & Jasa Keuangan
  CLEAR : wa_data2, wa_acdoca.
  wa_data2-desc_id = '- Penghasilan Bunga & Jasa Keuangan'.
  LOOP AT it_mapacct INTO wa_mapacct WHERE mapid = 'A08'.
    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'OG'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-oil = wa_data2-oil + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'PMB'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-pembangkit = wa_data2-pembangkit + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'GA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-gula = wa_data2-gula + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'KP'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-mesin = wa_data2-mesin + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'SDA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-air = wa_data2-air + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'HO'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-ho = wa_data2-ho + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  ENDLOOP.
  APPEND wa_data2 TO it_data2.

  "Beban Bunga & Beban Keuangan Lain
  CLEAR : wa_data2, wa_acdoca.
  wa_data2-desc_id = '- Beban Bunga & Beban Keuangan Lain'.
  LOOP AT it_mapacct INTO wa_mapacct WHERE mapid = 'A09'.
    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'OG'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-oil = wa_data2-oil + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'PMB'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-pembangkit = wa_data2-pembangkit + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'GA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-gula = wa_data2-gula + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'KP'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-mesin = wa_data2-mesin + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'SDA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-air = wa_data2-air + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'HO'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-ho = wa_data2-ho + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  ENDLOOP.
  APPEND wa_data2 TO it_data2.

  "Jumlah Pendapatan (Beban) Lain-Lain
  CLEAR : wa_data2.
  wa_data2-desc_id = 'Jumlah Pendapatan (Beban) Lain-Lain'.
  LOOP AT it_data2 ASSIGNING FIELD-SYMBOL(<fs2_pendapatan_lain>) FROM 10 TO 14.
    wa_data2-oil = <fs2_pendapatan_lain>-oil + wa_data2-oil.
    wa_data2-pembangkit = <fs2_pendapatan_lain>-pembangkit + wa_data2-pembangkit.
    wa_data2-gula = <fs2_pendapatan_lain>-gula + wa_data2-gula.
    wa_data2-mesin = <fs2_pendapatan_lain>-mesin + wa_data2-mesin.
    wa_data2-air = <fs2_pendapatan_lain>-air + wa_data2-air.
    wa_data2-ho = <fs2_pendapatan_lain>-ho + wa_data2-ho.
  ENDLOOP.
  wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  APPEND wa_data2 TO it_data2.

  "Laba (Rugi) Sebelum Pajak
  CLEAR : wa_data2.
  wa_data2-desc_id = 'Laba (Rugi) Sebelum Pajak'.
  READ TABLE it_data2 ASSIGNING FIELD-SYMBOL(<fs2_laba_rugi_usaha>) INDEX 8.
  READ TABLE it_data2 ASSIGNING FIELD-SYMBOL(<fs2_jml_pendapatan_lain>) INDEX 15.

  wa_data2-oil = <fs2_laba_rugi_usaha>-oil + <fs2_jml_pendapatan_lain>-oil.
  wa_data2-pembangkit = <fs2_laba_rugi_usaha>-pembangkit + <fs2_jml_pendapatan_lain>-pembangkit.
  wa_data2-gula = <fs2_laba_rugi_usaha>-gula + <fs2_jml_pendapatan_lain>-gula.
  wa_data2-mesin = <fs2_laba_rugi_usaha>-mesin + <fs2_jml_pendapatan_lain>-mesin.
  wa_data2-air = <fs2_laba_rugi_usaha>-air + <fs2_jml_pendapatan_lain>-air.
  wa_data2-ho = <fs2_laba_rugi_usaha>-ho + <fs2_jml_pendapatan_lain>-ho.

  wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  APPEND wa_data2 TO it_data2.

  "(Beban) / Pendapatan Pajak
  CLEAR wa_data2.
  wa_data2-desc_id = '(Beban) / Pendapatan Pajak'.
  APPEND wa_data2 TO it_data2.

  "Pajak Kini Non Final
  CLEAR : wa_data2, wa_acdoca.
  wa_data2-desc_id = '- Pajak Kini Non Final'.
  LOOP AT it_mapacct INTO wa_mapacct WHERE mapid = 'A10'.
    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'OG'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-oil = wa_data2-oil + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'PMB'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-pembangkit = wa_data2-pembangkit + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'GA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-gula = wa_data2-gula + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'KP'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-mesin = wa_data2-mesin + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'SDA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-air = wa_data2-air + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'HO'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-ho = wa_data2-ho + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  ENDLOOP.
  APPEND wa_data2 TO it_data2.

  "Pajak Tangguhan
  CLEAR : wa_data2, wa_acdoca.
  wa_data2-desc_id = '- Pajak Tangguhan'.
  LOOP AT it_mapacct INTO wa_mapacct WHERE mapid = 'A11'.
    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'OG'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-oil = wa_data2-oil + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'PMB'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-pembangkit = wa_data2-pembangkit + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'GA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-gula = wa_data2-gula + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'KP'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-mesin = wa_data2-mesin + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'SDA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-air = wa_data2-air + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'HO'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-ho = wa_data2-ho + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  ENDLOOP.
  APPEND wa_data2 TO it_data2.

  "Pajak Final
  CLEAR : wa_data2, wa_acdoca.
  wa_data2-desc_id = '- Pajak Final'.
  LOOP AT it_mapacct INTO wa_mapacct WHERE mapid = 'A12'.
    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'OG'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-oil = wa_data2-oil + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'PMB'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-pembangkit = wa_data2-pembangkit + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'GA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-gula = wa_data2-gula + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'KP'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-mesin = wa_data2-mesin + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'SDA'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-air = wa_data2-air + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    LOOP AT it_mapdiv INTO wa_mapdiv WHERE divcode = 'HO'.
      LOOP AT it_acdoca INTO wa_acdoca WHERE ( racct BETWEEN wa_mapacct-racct_from AND wa_mapacct-racct_to ) AND prctr = wa_mapdiv-prctr.
      wa_data2-ho = wa_data2-ho + wa_acdoca-hsl.
      ENDLOOP.
    ENDLOOP.

    wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  ENDLOOP.
  APPEND wa_data2 TO it_data2.

  "Laba (Rugi) Bersih Periode Berjalan
  CLEAR : wa_data2.
  wa_data2-desc_id = 'Laba (Rugi) Bersih Periode Berjalan'.
  LOOP AT it_data2 ASSIGNING FIELD-SYMBOL(<fs2_laba_rugi_bersih>) FROM 16 TO 20.
    wa_data2-oil = <fs2_laba_rugi_bersih>-oil + wa_data2-oil.
    wa_data2-pembangkit = <fs2_laba_rugi_bersih>-pembangkit + wa_data2-pembangkit.
    wa_data2-gula = <fs2_laba_rugi_bersih>-gula + wa_data2-gula.
    wa_data2-mesin = <fs2_laba_rugi_bersih>-mesin + wa_data2-mesin.
    wa_data2-air = <fs2_laba_rugi_bersih>-air + wa_data2-air.
    wa_data2-ho = <fs2_laba_rugi_bersih>-ho + wa_data2-ho.
  ENDLOOP.

  wa_data2-konsolidasi = wa_data2-oil + wa_data2-pembangkit + wa_data2-gula + wa_data2-mesin + wa_data2-air + wa_data2-ho.
  APPEND wa_data2 TO it_data2.