TYPES: BEGIN OF ty_mara,

         srno  LIKE adrc-name1, " Storing the total text

         matnr LIKE mara-matnr,  " Material

         ersda LIKE mara-ersda,  " Creation date

         ernam LIKE mara-ernam,  " Created by

         laeda LIKE mara-laeda,  " Last change date

         aenam LIKE mara-aenam,  " Last change by

         vpsta LIKE mara-vpsta,  " Maintenance status

         brgew LIKE mara-brgew,  " Gross weight

         ntgew LIKE mara-ntgew,  " Net weight

         gewei LIKE mara-gewei,  " Weight Unit

       END OF ty_mara.

TYPES: BEGIN OF ty_mara_tmp,

         matnr TYPE matnr, " Material

         ersda TYPE ersda, " Creation date

         ernam TYPE ernam, " Created by

         laeda TYPE laeda, " Last change date

         aenam TYPE aenam, " Last change by

         vpsta TYPE vpsta, " Maintenance status

         brgew TYPE brgew, " Gross weight

         ntgew TYPE ntgew, " Net weight

         gewei TYPE gewei, " Weight Unit

       END OF ty_mara_tmp.

DATA: gt_mara_tmp TYPE STANDARD TABLE OF ty_mara_tmp INITIAL SIZE 0,

      gt_sort2    TYPE STANDARD TABLE OF lvc_s_sort INITIAL SIZE 0,

      gt_mara     TYPE STANDARD TABLE OF ty_mara INITIAL SIZE 0,

      go_grid     TYPE REF TO cl_gui_alv_grid,

      gt_fieldcat TYPE lvc_t_fcat,

      gs_mara_tmp TYPE ty_mara_tmp,

      gs_layout   TYPE lvc_s_layo,

      gs_mara     TYPE ty_mara,

      gs_field    TYPE lvc_s_fcat,

      gs_sort2    TYPE lvc_s_sort.

*Set alv field

DEFINE set_alv_fieldcat.

  gs_field-fieldname = &1.

  gs_field-coltext   = &2.

  gs_field-rollname  = &3.

  gs_field-lzero     = space.

  gs_field-no_zero   = 'X'.

  APPEND gs_field TO gt_fieldcat.

  CLEAR gs_field.

END-OF-DEFINITION.

START-OF-SELECTION.

  PERFORM frm_get_data.

  PERFORM frm_set_field.

END-OF-SELECTION.

  CALL SCREEN 100.

FORM frm_get_data.

* Fetch data

  SELECT  matnr   " Material

          ersda   " Creation date

          ernam   " Created by

          laeda   " Last change date

          aenam   " Last change by

          vpsta   " Maintenance status

          brgew   " Gross weight

          ntgew   " Net weight

          gewei   " Weight Unit

    FROM mara

    INTO TABLE gt_mara_tmp

  UP TO 10 ROWS

    WHERE  brgew NE 0.

  CHECK sy-subrc = 0.

  LOOP AT gt_mara_tmp INTO gs_mara_tmp.

    gs_mara-srno  = '总计：'.

    gs_mara-matnr = gs_mara_tmp-matnr.

    gs_mara-ersda = gs_mara_tmp-ersda.

    gs_mara-ernam = gs_mara_tmp-ernam .

    gs_mara-laeda = gs_mara_tmp-laeda.

    gs_mara-aenam = gs_mara_tmp-aenam.

    gs_mara-vpsta = gs_mara_tmp-vpsta.

    gs_mara-brgew = gs_mara_tmp-brgew.

    gs_mara-ntgew = gs_mara_tmp-ntgew.

    gs_mara-gewei = gs_mara_tmp-gewei.

    APPEND gs_mara TO gt_mara.

  ENDLOOP.

ENDFORM.

FORM frm_set_field.

  gs_sort2-spos = 1.           "Sort Order

  gs_sort2-fieldname = 'SRNO'.

*  gs_sort2-up = 'X'.

  gs_sort2-down = 'X'.

  gs_sort2-subtot = 'X'."Output subtotal

  APPEND gs_sort2 TO gt_sort2.

  gs_layout-no_totline = 'X'.

  gs_field-tech = 'X'.

  gs_field-no_out = 'X'.

  set_alv_fieldcat 'SRNO' '' 'MAKTX' .

  set_alv_fieldcat 'MATNR' '' 'MATNR' .

  set_alv_fieldcat 'ERSDA' '' 'ERSDA' .

  set_alv_fieldcat 'ERNAM' '' 'ERNAM' .

  set_alv_fieldcat 'LAEDA' '' 'LAEDA' .

  set_alv_fieldcat 'AENAM' '' 'AENAM' .

  set_alv_fieldcat 'VPSTA' '' 'VPSTA' .

  gs_field-do_sum = 'X'.

  gs_field-ref_table = 'MARA'.

  gs_field-ref_field = 'BRGEW'.

  set_alv_fieldcat 'BRGEW' '' 'BRGEW' .

  gs_field-do_sum = 'X'.

  gs_field-ref_table = 'MARA'.

  gs_field-ref_field = 'NTGEW'.

  set_alv_fieldcat 'NTGEW' '' 'NTGEW' .

  set_alv_fieldcat 'GEWEI' '' 'GEWEI' .

ENDFORM.

* Calling the screen to display ALV

*&----------------------------------------------------------------*

*&      Module  STATUS_0100  OUTPUT

*&----------------------------------------------------------------*

*       Display ALV report

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

MODULE status_0100 OUTPUT.

  SET PF-STATUS 'STATUS_100'.

  IF go_grid IS INITIAL.

    CREATE OBJECT go_grid

      EXPORTING

        i_parent          = cl_gui_custom_container=>screen0

      EXCEPTIONS

        error_cntl_create = 1

        error_cntl_init   = 2

        error_cntl_link   = 3

        error_dp_create   = 4

        OTHERS            = 5.

    CHECK sy-subrc = 0.

*    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'

*      EXPORTING

*        i_internal_tabname     = 'GT_MARA'

**       i_structure_name       = 'GT_MARA'

*      CHANGING

*        ct_fieldcat            = gt_fieldcat

*      EXCEPTIONS

*        inconsistent_interface = 1

*        program_error          = 2

*        OTHERS                 = 3.

*    IF sy-subrc = 0.

*

*    ENDIF.

    CALL METHOD go_grid->set_table_for_first_display

      EXPORTING

        is_layout                     = gs_layout

      CHANGING

        it_outtab                     = gt_mara[]

        it_fieldcatalog               = gt_fieldcat

        it_sort                       = gt_sort2

      EXCEPTIONS

        invalid_parameter_combination = 1

        program_error                 = 2

        too_many_lines                = 3

        OTHERS                        = 4.

    IF sy-subrc <> 0.

    ENDIF.

    CALL METHOD cl_gui_alv_grid=>set_focus

      EXPORTING

        control           = go_grid

      EXCEPTIONS

        cntl_error        = 1

        cntl_system_error = 2

        OTHERS            = 3.

    IF sy-subrc <> 0.

    ENDIF.

  ENDIF.

ENDMODULE.                 " STATUS_0100  OUTPUT

MODULE exit INPUT.

  LEAVE TO SCREEN 0.

ENDMODULE.