ABAP-ALV1111

*&---------------------------------------------------------------------*
*& Report  ZALV1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZALV1 MESSAGE-ID ZLSH.


INCLUDE ZHQ_01_14TOP.
INCLUDE ZHQ_01_14FORM.



START-OF-SELECTION.
  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE GT_CUSTOMER
    FROM ZCUSTOMER.

DATA I TYPE I VALUE 1.

    LOOP AT GT_CUSTOMER INTO GS_CUSTOMER.
        IF GS_CUSTOMER-ZSEX = 'M'.
            GS_CUSTOMER-ICON = ICON_GREEN_LIGHT.
        ELSE.
            GS_CUSTOMER-ICON = ICON_RED_LIGHT.
        ENDIF.

        GS_CUSTOMER-PRICE = I.

        MODIFY GT_CUSTOMER FROM GS_CUSTOMER.

        I = I + 1.

    ENDLOOP.



END-OF-SELECTION.

  IF GT_CUSTOMER IS NOT INITIAL.
      PERFORM BUILD_ALV.
  ELSE.
    MESSAGE S000 WITH '数据表为空' DISPLAY LIKE 'E'.
  ENDIF.

*&---------------------------------------------------------------------*
*&  包含                ZHQ_01_14TOP
*&---------------------------------------------------------------------*
TABLES ZCUSTOMER.


TYPES:BEGIN OF CUSTOMER,
    ZCUSTOMERID   TYPE ZCUSTOMERID,
    ZCOMPANYNAME  TYPE ZCOMPANYNAME,
    ZCREATEDATE   TYPE ZCREATEDATE,
    ZSCOPE        TYPE ZSCOPE,
    ZUSERID       TYPE ZUSERID,
    ZSEX          TYPE ZSEX,
END OF CUSTOMER.

TYPES:BEGIN OF GTY_CUSTOMER.
  INCLUDE TYPE CUSTOMER.
  TYPES:ICON  TYPE C LENGTH 4,
        CHECK TYPE C LENGTH 1,
        PRICE TYPE I,
        BOX TYPE C LENGTH 1,
END OF GTY_CUSTOMER.




DATA GT_CUSTOMER TYPE TABLE OF GTY_CUSTOMER.
DATA GS_CUSTOMER TYPE GTY_CUSTOMER.

DATA GS_LAYOUT TYPE SLIS_LAYOUT_ALV.

GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
GS_LAYOUT-ZEBRA = 'X'.
GS_LAYOUT-KEY_HOTSPOT = 'X'.
GS_LAYOUT-BOX_FIELDNAME = 'BOX'.
GS_LAYOUT-WINDOW_TITLEBAR = '客户应收账款报表'.
GS_LAYOUT-CONFIRMATION_PROMPT = 'X'.

DEFINE %%APPEND_FIELDCAT.

  CLEAR GS_FIELDCAT.
  GS_FIELDCAT-COL_POS   = &1.
  GS_FIELDCAT-FIELDNAME = &2.
  GS_FIELDCAT-OUTPUTLEN = &3.
  GS_FIELDCAT-SELTEXT_M = &4.


  CASE &2.
    WHEN 'ZCUSTOMERID'.
      GS_FIELDCAT-KEY = 'X'.

    WHEN 'CHECK'.
        GS_FIELDCAT-CHECKBOX = 'X'.
    WHEN 'PRICE'.
        GS_FIELDCAT-JUST = 'L'.
        GS_FIELDCAT-DO_SUM = 'X'.
        GS_FIELDCAT-HOTSPOT = 'X'.
    WHEN OTHERS.
  ENDCASE.



  APPEND GS_FIELDCAT TO GT_FIELDCAT.

END-OF-DEFINITION.

*&---------------------------------------------------------------------*
*&  包含                ZHQ_01_14FORM
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  BUILD_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM BUILD_ALV .


  DATA GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
  DATA GS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

  %%APPEND_FIELDCAT:  '1' 'ZCUSTOMERID'   '10' '客户编号' ,
                      '2' 'ZCOMPANYNAME'  '30' '客户名称' ,
                      '3' 'ZCREATEDATE'   '10' '建档日期' ,
                      '4' 'ICON'          '10' '当前状态' ,
                      '5' 'CHECK'         '10' '选择' ,
                      '6' 'PRICE'         '10' '单价' .

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*     I_INTERFACE_CHECK                 = ' '
*     I_BYPASSING_BUFFER                = ' '
*     I_BUFFER_ACTIVE                   = ' '
*     I_CALLBACK_PROGRAM                = ' '
*     I_CALLBACK_PF_STATUS_SET          = ' '
*     I_CALLBACK_USER_COMMAND           = ' '
*     I_CALLBACK_TOP_OF_PAGE            = ' '
*     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*     I_CALLBACK_HTML_END_OF_LIST       = ' '
*     I_STRUCTURE_NAME                  =
*     I_BACKGROUND_ID                   = ' '
*     I_GRID_TITLE                      = ''
*     I_GRID_SETTINGS                   =
      IS_LAYOUT                         = GS_LAYOUT
      IT_FIELDCAT                       = GT_FIELDCAT
*     IT_EXCLUDING                      =
*     IT_SPECIAL_GROUPS                 =
*     IT_SORT                           =
*     IT_FILTER                         =
*     IS_SEL_HIDE                       =
*     I_DEFAULT                         = 'X'
*     I_SAVE                            = ' '
*     IS_VARIANT                        =
*     IT_EVENTS                         =
*     IT_EVENT_EXIT                     =
*     IS_PRINT                          =
*     IS_REPREP_ID                      =
*     I_SCREEN_START_COLUMN             = 0
*     I_SCREEN_START_LINE               = 0
*     I_SCREEN_END_COLUMN               = 0
*     I_SCREEN_END_LINE                 = 0
*     I_HTML_HEIGHT_TOP                 = 0
*     I_HTML_HEIGHT_END                 = 0
*     IT_ALV_GRAPHICS                   =
*     IT_HYPERLINK                      =
*     IT_ADD_FIELDCAT                   =
*     IT_EXCEPT_QINFO                   =
*     IR_SALV_FULLSCREEN_ADAPTER        =
*   IMPORTING
*     E_EXIT_CAUSED_BY_CALLER           =
*     ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = GT_CUSTOMER
   EXCEPTIONS
     PROGRAM_ERROR                     = 1
     OTHERS                            = 2
            .
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.


ENDFORM.                    " BUILD_ALV