ABAP资产负债表作业

REPORT z_zycc010 MESSAGE-ID z_zycc001.

TABLES: faglflext.
DATA: BEGIN OF gwa_faglflext,
        racct  LIKE faglflext-racct, "科目
        drcrk  LIKE faglflext-drcrk, "借方/贷方标识
        ryear  TYPE faglflext-ryear,
        rbukrs TYPE faglflext-rbukrs,
        prctr  TYPE faglflext-prctr,
        rpmax  TYPE faglflext-rpmax,
        hslvt  LIKE faglflext-hslvt,
        hsl01  LIKE faglflext-hsl01, "本币金额
        hsl02  LIKE faglflext-hsl02,
        hsl03  LIKE faglflext-hsl03,
        hsl04  LIKE faglflext-hsl04,
        hsl05  LIKE faglflext-hsl05,
        hsl06  LIKE faglflext-hsl06,
        hsl07  LIKE faglflext-hsl07,
        hsl08  LIKE faglflext-hsl08,
        hsl09  LIKE faglflext-hsl09,
        hsl10  LIKE faglflext-hsl10,
        hsl11  LIKE faglflext-hsl11,
        hsl12  LIKE faglflext-hsl12,
        hsl13  LIKE faglflext-hsl13,
        hsl14  LIKE faglflext-hsl14,
        hsl15  LIKE faglflext-hsl15,
        hsl16  LIKE faglflext-hsl16,
      END OF gwa_faglflext.
DATA: gt_faglflext LIKE STANDARD TABLE OF gwa_faglflext.

DATA:BEGIN OF gs_alv,
       hxmmc1 TYPE string,
       hch1   TYPE string,
       qmye1  TYPE faglflext-tsl16,
       ncye1  TYPE faglflext-tsl16,
       hxmmc2 TYPE string,
       hch2   TYPE string,
       qmye2  TYPE faglflext-tsl16,
       ncye2  TYPE faglflext-tsl16,
     END OF gs_alv,
     gt_alv LIKE TABLE OF gs_alv.

DATA:  g_bzdw TYPE string,
       g_kjqj TYPE string.

* Define ALV attribute
DATA:go_grid     TYPE REF TO cl_gui_alv_grid.
*DATA:gs_layout   TYPE lvc_s_layo,
*     gt_fieldcat TYPE lvc_t_fcat,
*     gs_variant  TYPE disvariant,
*     gs_fieldcat LIKE LINE OF gt_fieldcat,
*     gt_exclude  TYPE slis_t_extab,
*     gv_repid    TYPE syrepid.
*&------------------------------------------------------------------*
*&                     SELECT SCREEN
*&------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS:p_rbukrs TYPE faglflext-rbukrs OBLIGATORY.   "公司代码
SELECT-OPTIONS s_prctr FOR faglflext-prctr.
PARAMETERS:p_ryear TYPE faglflext-ryear OBLIGATORY,
           p_rpmax TYPE faglflext-rpmax OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.

FIELD-SYMBOLS <fs>.
DATA: g_index TYPE i.
DATA: g_tot LIKE faglflext-hsl16.
DATA: g_tot2 LIKE faglflext-hsl16.
DATA:g_hsl LIKE faglflext-hsl16.
DATA: num TYPE i.
num = p_rpmax.
RANGES:lrr_racct FOR faglflext-racct.

START-OF-SELECTION.

  PERFORM frm_get_header.
  PERFORM getdata.
  PERFORM frm_get_data.
  PERFORM frm_display.

FORM getdata.

  SELECT
    ryear
    prctr
    racct
    rbukrs