ALV 含打印 全选 Checkbox，贴在此处方便 下次参考

*&---------------------------------------------------------------------*
*& Report      Z02MMR022
*&
*&---------------------------------------------------------------------*
*  Author: Vince
*  Closeing Date:
*  Description: List of Billing Notification
************************************************************************
*  Ver    Date       Author    Modify Des
************************************************************************
*  1.    2013/03/10 Vince  New Program
************************************************************************
REPORT YTEST999 MESSAGE-ID ZHR01.


**********************************************************************
* TABLES
**********************************************************************


**********************************************************************
* TYPES
**********************************************************************
TYPES:BEGIN OF TP_HEAD,
  EBELN LIKE EKKO-EBELN,"Contract Number
  CONTRNAME TYPE STRING,"Contract Description
  DEPARTMENT TYPE STRING,"Department
  WAERS LIKE EKKO-WAERS,"Currency
  KTWRT LIKE EKKO-KTWRT,"Contract Amount
  KDATB LIKE EKKO-KDATB,"Contract Start Date
  KDATE LIKE EKKO-KDATE,"Contract End Date
  LIFNR LIKE EKKO-LIFNR,"vendor
  NAME1 TYPE CHAR200,"Vendor name
  BAMOUNT LIKE EKKO-KTWRT,"Billing Amount
  END OF TP_HEAD.

TYPES:BEGIN OF TP_OUT,
  CBOX TYPE AQ_MARKBG,
  EBELN LIKE EKPO-EBELN,"Service Order
  EBELP LIKE EKPO-EBELP,"Line Item
  MATKL TYPE CHAR100,"Service Category
  TXZ01 LIKE EKPO-TXZ01,"Short Text
  MBLNR LIKE MKPF-MBLNR,"Service Receipt
  WRBTR LIKE EKBE-WRBTR,"Amount
  BNNUM LIKE Z02MMBNNO-BNNUM,"BN Number
  BNDAT LIKE Z02MMBNNO-BNDAT,"BN Date
  GJAHR LIKE EKBE-GJAHR,
  BOX_NAME ,
  END OF TP_OUT.

**********************************************************************
* DATA
**********************************************************************
DATA: GS_HEAD TYPE TP_HEAD.
DATA: GT_OUT TYPE TABLE OF TP_OUT,
      GS_OUT TYPE TP_OUT.

DATA: GT_PRINT TYPE TABLE OF TP_OUT,
      GS_PRINT TYPE TP_OUT.

DATA: GT_FCAT TYPE  SLIS_T_FIELDCAT_ALV,
      GS_FCAT TYPE LINE OF  SLIS_T_FIELDCAT_ALV,
      GT_SORT TYPE SLIS_T_SORTINFO_ALV,
      GS_SORT TYPE LINE OF SLIS_T_SORTINFO_ALV,
      GS_LAYO TYPE SLIS_LAYOUT_ALV,
      GS_SETTINGS TYPE LVC_S_GLAY.

**********************************************************************
* CONSTANTS
**********************************************************************


**********************************************************************
* SELECTION SCREEN
**********************************************************************
SELECTION-SCREEN BEGIN OF BLOCK BL01 WITH FRAME TITLE TEXT-001.
PARAMETERS:P_BUKRS LIKE EKKO-BUKRS DEFAULT '1000' OBLIGATORY.
PARAMETERS:P_EBELN LIKE EKKO-EBELN OBLIGATORY.
SELECTION-SCREEN END OF BLOCK BL01.

**********************************************************************
* START OF SELECTION
**********************************************************************
START-OF-SELECTION.
  PERFORM FRM_GET_HEAD.
  PERFORM FRM_GET_ITEM.

**********************************************************************
* END OF SELECTION
**********************************************************************
END-OF-SELECTION.
  PERFORM FRM_BUILD_FIELDCAT.
  PERFORM FRM_SET_LAYOUT.
  PERFORM FRM_DISPLAY_ALV.

**********************************************************************
* SUBROUTINES
**********************************************************************
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_HEAD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_GET_HEAD .
  DATA: LT_READ LIKE TABLE OF TLINE WITH HEADER LINE.
  DATA: L_NAME LIKE THEAD-TDNAME.
  DATA: L_ADRNR LIKE LFA1-ADRNR,
        LS_ADRC LIKE ADRC.

  SELECT SINGLE EBELN WAERS KTWRT KDATB KDATE LIFNR
    INTO CORRESPONDING FIELDS OF GS_HEAD
    FROM EKKO
    WHERE EBELN = P_EBELN
      AND BUKRS = P_BUKRS
      AND BSART = 'CCTR'.

  IF SY-SUBRC EQ 0.

    L_NAME = P_EBELN.

    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        ID                      = 'K93'
        LANGUAGE                = SY-LANGU
        NAME                    = L_NAME
        OBJECT                  = 'EKKO'
      TABLES
        LINES                   = LT_READ
      EXCEPTIONS
        ID                      = 1
        LANGUAGE                = 2
        NAME                    = 3
        NOT_FOUND               = 4
        OBJECT                  = 5
        REFERENCE_CHECK         = 6
        WRONG_ACCESS_TO_ARCHIVE = 7
        OTHERS                  = 8.
    IF SY-SUBRC EQ 0.
      LOOP AT  LT_READ.
        CONCATENATE GS_HEAD-CONTRNAME LT_READ-TDLINE INTO GS_HEAD-CONTRNAME.
      ENDLOOP.
    ENDIF.

    SELECT SINGLE ADRNR  INTO L_ADRNR
        FROM LFA1
        WHERE LIFNR = GS_HEAD-LIFNR.

    SELECT SINGLE * INTO LS_ADRC
      FROM ADRC
      WHERE ADDRNUMBER = L_ADRNR.

    CONCATENATE LS_ADRC-NAME1 LS_ADRC-NAME2 INTO GS_HEAD-NAME1.

  ELSE.

    MESSAGE S000(ZHR01) DISPLAY LIKE 'E'.
    STOP.
  ENDIF.

ENDFORM.                    " FRM_GET_HEAD
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_ITEM
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_GET_ITEM .
  DATA: LT_EKPO TYPE TABLE OF EKPO,
        LS_EKPO TYPE EKPO,
        LT_EKBE TYPE TABLE OF EKBE,
        LS_EKBE TYPE EKBE,
        LT_T023T TYPE TABLE OF T023T,
        LS_T023T TYPE T023T,
        LT_EKKO TYPE TABLE OF EKKO,
        LS_EKKO TYPE EKKO,
        L_INDEX TYPE SY-INDEX.

  CLEAR:LT_EKPO,LT_EKBE,LT_T023T,LT_EKKO,L_INDEX.

  SELECT * FROM EKPO INTO TABLE LT_EKPO
    WHERE KONNR = GS_HEAD-EBELN.

  CHECK LT_EKPO IS NOT INITIAL.

  SELECT * FROM EKKO INTO TABLE LT_EKKO
    FOR ALL ENTRIES IN LT_EKPO
    WHERE EBELN = LT_EKPO-EBELN
      AND BSART = 'ZSPO'.

  LOOP AT LT_EKPO INTO LS_EKPO.
    L_INDEX = SY-TABIX.
    READ TABLE LT_EKKO INTO LS_EKKO WITH KEY EBELN = LS_EKPO-EBELN.
    IF SY-SUBRC NE 0.
      DELETE LT_EKPO INDEX L_INDEX.
    ENDIF.
  ENDLOOP.

  CHECK LT_EKPO IS NOT INITIAL.

  SELECT * FROM EKBE INTO TABLE LT_EKBE
    FOR ALL ENTRIES IN LT_EKPO
    WHERE EBELN = LT_EKPO-EBELN
      AND EBELP = LT_EKPO-EBELP
      AND VGABE = '1'.

  SELECT * FROM T023T INTO TABLE LT_T023T
    FOR ALL ENTRIES IN LT_EKPO
    WHERE MATKL = LT_EKPO-MATKL.

  LOOP AT LT_EKBE INTO LS_EKBE.
    GS_OUT-EBELN = LS_EKBE-EBELN.
    GS_OUT-EBELP = LS_EKBE-EBELP.
    READ TABLE LT_EKPO INTO LS_EKPO WITH KEY EBELN = GS_OUT-EBELN EBELP = GS_OUT-EBELP.
    READ TABLE LT_T023T INTO LS_T023T WITH KEY MATKL = LS_EKPO-MATKL.
    GS_OUT-MATKL = LS_T023T-WGBEZ60.
    GS_OUT-TXZ01 = LS_EKPO-TXZ01.
    GS_OUT-MBLNR = LS_EKBE-BELNR.
    GS_OUT-WRBTR = LS_EKBE-WRBTR.
    IF LS_EKBE-SHKZG EQ 'H'.
      GS_OUT-WRBTR = - GS_OUT-WRBTR.
    ENDIF.
    GS_OUT-GJAHR = LS_EKBE-GJAHR.

    SELECT SINGLE BNNUM BNDAT INTO (GS_OUT-BNNUM,GS_OUT-BNDAT)
      FROM Z02MMBNNO
      WHERE MBLNR = GS_OUT-MBLNR
        AND GJAHR = GS_OUT-GJAHR.

    IF GS_OUT-BNNUM IS NOT INITIAL.
      GS_HEAD-BAMOUNT = GS_HEAD-BAMOUNT + GS_OUT-WRBTR.
    ENDIF.

    APPEND GS_OUT TO GT_OUT.

    CLEAR: GS_OUT,LS_EKPO,LS_T023T.

  ENDLOOP.


ENDFORM.                    " FRM_GET_ITEM
*&---------------------------------------------------------------------*
*&      Form  FRM_BUILD_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_BUILD_FIELDCAT .
  CLEAR GS_FCAT.
  GS_FCAT-FIELDNAME = 'CBOX'.
  GS_FCAT-SELTEXT_L = 'Select'.
  GS_FCAT-CHECKBOX = 'X'.
  GS_FCAT-FIX_COLUMN = 'X'.
  GS_FCAT-EDIT = 'X'.
  GS_FCAT-OUTPUTLEN = '5'.
  APPEND GS_FCAT TO GT_FCAT.
  DEFINE APPEND_FCAT.
    CLEAR GS_FCAT.
    GS_FCAT-FIELDNAME = &1.
    GS_FCAT-SELTEXT_L = &2.
    GS_FCAT-NO_OUT =  &3.
    GS_FCAT-NO_ZERO = &4.
    GS_FCAT-OUTPUTLEN = &5.
    APPEND GS_FCAT TO GT_FCAT.
  END-OF-DEFINITION.
  APPEND_FCAT 'EBELN' 'Service Order'(001)  ''  '' '12'.
  APPEND_FCAT 'EBELP' 'Line Item'(002)  ''  '' '6'.
  APPEND_FCAT 'MATKL' 'Service Category'(003)  ''  '' '50'.
  APPEND_FCAT 'TXZ01' 'Short Text'(004)  ''  '' '30'.
  APPEND_FCAT 'MBLNR' 'Service Receipt'(005)  ''  '' '12'.
  APPEND_FCAT 'WRBTR' 'Amount'(006)  ''  '' '13'.
  APPEND_FCAT 'BNNUM' 'BN Number'(007)  ''  '' '20'.
  APPEND_FCAT 'BNDAT' 'BN Date'(008)  ''  '' '12'.

ENDFORM.                    " FRM_BUILD_FIELDCAT
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_SET_LAYOUT .
  GS_LAYO-ZEBRA = 'X'.
*  GS_LAYO-COLWIDTH_OPTIMIZE = 'X'.
  GS_LAYO-BOX_FIELDNAME = 'BOX_NAME'.
ENDFORM.                    " FRM_SET_LAYOUT
*&---------------------------------------------------------------------*
*&      Form  FRM_DISPLAY_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_DISPLAY_ALV .
  GS_SETTINGS-EDT_CLL_CB = 'X'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = SY-REPID
      IS_LAYOUT                = GS_LAYO
      IT_FIELDCAT              = GT_FCAT
      I_GRID_SETTINGS          = GS_SETTINGS
      I_CALLBACK_PF_STATUS_SET = 'FRM_SET_STATUS'
      I_CALLBACK_USER_COMMAND  = 'FRM_USER_COMMAND'
      I_SAVE                   = 'A'
      I_DEFAULT                = 'X'
    TABLES
      T_OUTTAB                 = GT_OUT.
ENDFORM.                    " FRM_DISPLAY_ALV


*&---------------------------------------------------------------------*
*&      Form  frm_USER_COMMAND
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_UCOMM    text
*      -->SELFIELD   text
*----------------------------------------------------------------------*
FORM FRM_USER_COMMAND USING P_UCOMM TYPE SY-UCOMM SELFIELD TYPE SLIS_SELFIELD.
  CASE P_UCOMM.
    WHEN '&SALL'.
      PERFORM FRM_SELECT_ALL USING 'X'.
      SELFIELD-REFRESH = 'X'.
    WHEN '&DESAL'.
      PERFORM FRM_SELECT_ALL USING ' '.
      SELFIELD-REFRESH = 'X'.
    WHEN '&PRINT'.
      PERFORM FRM_PRINT_BN.
    WHEN '&CBN'.
      PERFORM FRM_GENERATE_BN.
      SELFIELD-REFRESH = 'X'.
  ENDCASE.
ENDFORM.                    "user_command

*&---------------------------------------------------------------------*
*&      Form  FRM_SET_STATUS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_EXTAB    text
*----------------------------------------------------------------------*
FORM FRM_SET_STATUS USING P_EXTAB TYPE SLIS_T_EXTAB.
  SET PF-STATUS 'STATUS01'.
ENDFORM.                    "f_status
*&---------------------------------------------------------------------*
*&      Form  FRM_SELECT_ALL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_0737   text
*----------------------------------------------------------------------*
FORM FRM_SELECT_ALL  USING    VALUE(P_X).
  DATA LS_OUT LIKE GS_OUT.

  LOOP AT GT_OUT INTO LS_OUT.
    LS_OUT-CBOX = P_X.
    MODIFY GT_OUT FROM LS_OUT INDEX SY-TABIX.
  ENDLOOP.

ENDFORM.                    " FRM_SELECT_ALL
*&---------------------------------------------------------------------*
*&      Form  FRM_GENERATE_BN
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_GENERATE_BN .
  DATA:L_BN(3) TYPE N.
  DATA:LS_Z02MMBNNO LIKE Z02MMBNNO.
  CLEAR L_BN.
  SELECT MAX( BMSNO ) INTO L_BN FROM Z02MMBNNO WHERE EBELN = P_EBELN.
  LOOP AT GT_OUT INTO GS_OUT WHERE BNNUM = '' AND CBOX = 'X' .
    L_BN = L_BN + 1.
    CONCATENATE 'BN' P_EBELN '-'  L_BN INTO GS_OUT-BNNUM.
    GS_OUT-BNDAT = SY-DATUM.
    GS_HEAD-BAMOUNT = GS_HEAD-BAMOUNT + GS_OUT-WRBTR.
    CLEAR LS_Z02MMBNNO.
    LS_Z02MMBNNO-MBLNR = GS_OUT-MBLNR.
    LS_Z02MMBNNO-GJAHR = GS_OUT-GJAHR.
    LS_Z02MMBNNO-EBELN = P_EBELN.
    LS_Z02MMBNNO-BMSNO = L_BN .
    LS_Z02MMBNNO-BNNUM = GS_OUT-BNNUM.
    LS_Z02MMBNNO-BNDAT = GS_OUT-BNDAT.
    INSERT Z02MMBNNO FROM LS_Z02MMBNNO.
    MODIFY GT_OUT FROM GS_OUT INDEX SY-TABIX.
  ENDLOOP.
ENDFORM.                    " FRM_GENERATE_BN
*&---------------------------------------------------------------------*
*&      Form  FRM_PRINT_BN
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_PRINT_BN .
  DATA: FUNC_MOD_NAME TYPE RS38L_FNAM,                            " 子程序名
        OUTPUT_OPTIONS TYPE SSFCOMPOP,                            " SAP Smart Forms: 智能写作器 (传输) 选项
        IT_JOB_OUTPUT_INFO TYPE SSFCRESCL,
        CONTROL_PARAMETERS TYPE SSFCTRLOP.                        " Smart Forms: 控制结构

  CLEAR GT_PRINT.

  LOOP AT GT_OUT INTO GS_OUT WHERE CBOX = 'X' AND BNNUM NE ''.
    GS_PRINT = GS_OUT.
    APPEND GS_PRINT TO GT_PRINT.
    CLEAR: GS_PRINT,GS_OUT.
  ENDLOOP.

  CHECK GT_PRINT IS NOT INITIAL.

  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      FORMNAME           = 'ZMM_FORM_06'
    IMPORTING
      FM_NAME            = FUNC_MOD_NAME
    EXCEPTIONS
      NO_FORM            = 1
      NO_FUNCTION_MODULE = 2
      OTHERS             = 3.
  OUTPUT_OPTIONS-TDNEWID        = 'X'.
  CONTROL_PARAMETERS-NO_CLOSE   = SPACE.
*  control_parameters-no_open    = 'X'.
  CONTROL_PARAMETERS-PREVIEW    = 'X'.
*  control_parameters-no_dialog  = 'X'.


  CALL FUNCTION FUNC_MOD_NAME
    EXPORTING
      CONTROL_PARAMETERS = CONTROL_PARAMETERS
      OUTPUT_OPTIONS     = OUTPUT_OPTIONS
    EXCEPTIONS
      FORMATTING_ERROR   = 1
      INTERNAL_ERROR     = 2
      SEND_ERROR         = 3
      USER_CANCELED      = 4
      OTHERS             = 5.
  IF SY-SUBRC <> 0.
  ENDIF.

ENDFORM.                    " FRM_PRINT_BN