ALV & SMARTFORMS

(一) Realization:

1. ALV connect smartforms layout
2. Choose column
3. Print Button
4. From ekko & ekpo procure data

(二) 流程
不会上图... 留着吧

看代码实现。

*&---------------------------------------------------------------------*
*& Report  ZT_XLI_001
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZT_XLI_001.

TYPE-POOLS : SLIS.

TABLES : EKKO,
  EKPO.

DATA : C_TABIX LIKE SY-TABIX.
DATA : L_FM_NAME(30) TYPE C.

TYPES : BEGIN OF TY_PURNM,
  PURNM TYPE EKKO-EBELN,
  END OF TY_PURNM.
TYPES : BEGIN OF TY_EKKO,
  PUR_NUM  TYPE EKKO-EBELN,
  CRT_DATE TYPE EKKO-AEDAT,
  VEND_NUM TYPE EKKO-LIFNR,
  PAY_KEY  TYPE EKKO-ZTERM,
  END OF TY_EKKO.
TYPES : BEGIN OF TY_EKPO,
  PUR_NO   TYPE EKPO-EBELN,
  MAT_NUM  TYPE EKPO-MATNR,
  PUR_TXT  TYPE EKPO-TXZ01,
  PLT_NUM  TYPE EKPO-WERKS,
  STOR_LOC TYPE EKPO-LGORT,
  END OF TY_EKPO.

TYPES : BEGIN OF TY_DATA,
  SEL      TYPE SEL,
  PUR_NUM  TYPE EKKO-EBELN,
  CRT_DATE TYPE EKKO-AEDAT,
  VEND_NUM TYPE EKKO-LIFNR,
  PAY_KEY  TYPE EKKO-ZTERM,
  MAT_NUM  TYPE EKPO-MATNR,
  PUR_TXT  TYPE EKPO-TXZ01,
  PLT_NUM  TYPE EKPO-WERKS,
  STOR_LOC TYPE EKPO-LGORT,
  END OF TY_DATA.

TYPES : BEGIN OF TY_SELS,
  PUR_NUM  TYPE EKKO-EBELN,
  CRT_DATE TYPE EKKO-AEDAT,
  VEND_NUM TYPE EKKO-LIFNR,
  PAY_KEY  TYPE EKKO-ZTERM,
  MAT_NUM  TYPE EKPO-MATNR,
  PUR_TXT  TYPE EKPO-TXZ01,
  PLT_NUM  TYPE EKPO-WERKS,
  STOR_LOC TYPE EKPO-LGORT,
  END OF TY_SELS.

DATA : IT_PURNM TYPE STANDARD TABLE OF TY_PURNM WITH HEADER LINE.

DATA : WA_EKKO TYPE TY_EKKO.
DATA : IT_EKKO TYPE STANDARD TABLE OF TY_EKKO WITH HEADER LINE.

DATA : WA_EKPO TYPE TY_EKPO.
DATA : IT_EKPO TYPE STANDARD TABLE OF TY_EKPO WITH HEADER LINE.

DATA : WA_DATA TYPE TY_DATA.
DATA : CT_DATA TYPE STANDARD TABLE OF TY_DATA WITH HEADER LINE.
DATA : IT_DATA TYPE STANDARD TABLE OF TY_DATA WITH HEADER LINE.

DATA : WA_SELS TYPE TY_SELS.
DATA : IT_SELS TYPE STANDARD TABLE OF TY_SELS WITH HEADER LINE.

DATA : I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DATA : I_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA : WA_REPID LIKE SY-REPID.


SELECTION-SCREEN BEGIN OF BLOCK BLK1.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) TEXT-A01.
SELECT-OPTIONS : S_PURNUM FOR EKKO-EBELN OBLIGATORY.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK BLK1.


START-OF-SELECTION.
  PERFORM GET_EKKO_EKPO.
  PERFORM GETDATA.
  PERFORM CATALOG.
  PERFORM ALVSHOW.

*&---------------------------------------------------------------------*
*&      Form  GET_EKKO_EKPO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM GET_EKKO_EKPO.
  IF S_PURNUM IS NOT INITIAL.
    SELECT EBELN
      FROM EKKO INTO TABLE IT_PURNM
      WHERE EKKO~EBELN IN S_PURNUM.

    SELECT EBELN AEDAT LIFNR ZTERM
      FROM EKKO INTO TABLE IT_EKKO
      WHERE EKKO~EBELN IN S_PURNUM.
    SELECT EBELN MATNR TXZ01 WERKS LGORT
      FROM EKPO INTO TABLE IT_EKPO
      WHERE EKPO~EBELN IN S_PURNUM.
    DELETE IT_EKPO WHERE MAT_NUM = SPACE.
  ENDIF.
ENDFORM.                    "GET_EKKO_EKPO

*&---------------------------------------------------------------------*
*&      Form  GETDATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM GETDATA.
  LOOP AT IT_EKKO INTO WA_EKKO WHERE PUR_NUM <> SPACE.
    LOOP AT IT_EKPO INTO WA_EKPO WHERE PUR_NO = WA_EKKO-PUR_NUM.
      WA_DATA-PUR_NUM  = WA_EKKO-PUR_NUM.
      WA_DATA-CRT_DATE = WA_EKKO-CRT_DATE.
      WA_DATA-VEND_NUM = WA_EKKO-VEND_NUM.
      WA_DATA-PAY_KEY  = WA_EKKO-PAY_KEY.
      WA_DATA-MAT_NUM  = WA_EKPO-MAT_NUM.
      WA_DATA-PUR_TXT  = WA_EKPO-PUR_TXT.
      WA_DATA-PLT_NUM  = WA_EKPO-PLT_NUM.
      WA_DATA-STOR_LOC = WA_EKPO-STOR_LOC.
      APPEND WA_DATA TO IT_DATA.
    ENDLOOP.
  ENDLOOP.

ENDFORM.                    "GETDATA

*&---------------------------------------------------------------------*
*&      Form  CATALOG
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM CATALOG.
  WA_REPID = SY-REPID.
  CLEAR I_FIELDCAT.

  DEFINE MAC_SET.
    I_FIELDCAT-REF_TABNAME = 'IT_DATA'.
    I_FIELDCAT-FIELDNAME   = &1.
    I_FIELDCAT-SELTEXT_S   = &2.
    I_FIELDCAT-SELTEXT_M   = &2.
    I_FIELDCAT-SELTEXT_S   = &2.
    I_FIELDCAT-COL_POS     = &3.
    I_FIELDCAT-OUTPUTLEN   = &4.
    APPEND I_FIELDCAT.
  END-OF-DEFINITION.
  MAC_SET 'PUR_NUM ' 'Purchase Number' C_TABIX '14'.
  MAC_SET 'CRT_DATE' 'Created Date'    C_TABIX '11'.
  MAC_SET 'VEND_NUM' 'Vendor Number'   C_TABIX '13'.
  MAC_SET 'PAY_KEY ' 'Payment Key'     C_TABIX '10'.
  MAC_SET 'MAT_NUM ' 'Material Number' C_TABIX '14'.
  MAC_SET 'PUR_TXT ' 'Short Text'      C_TABIX '20'.
  MAC_SET 'PLT_NUM ' 'Plant'           C_TABIX '4'.
  MAC_SET 'STOR_LOC' 'Location'        C_TABIX '6'.
*  I_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
  I_LAYOUT-BOX_FIELDNAME = 'SEL'.
ENDFORM.                    "CATALOG

*&---------------------------------------------------------------------*
*&      Form  ALVSHOW
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM ALVSHOW.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PF_STATUS_SET = 'FM_SET_STATUS'
      I_CALLBACK_USER_COMMAND  = 'FM_USER_COMMAND'
      I_CALLBACK_PROGRAM       = WA_REPID
      IS_LAYOUT                = I_LAYOUT
      I_GRID_TITLE             = 'PURCHASE LIST'
      IT_FIELDCAT              = I_FIELDCAT[]
    TABLES
      T_OUTTAB                 = IT_DATA
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
      WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    "ALVSHOW


*&---------------------------------------------------------------------*
*&      Form  FM_SET_STATUS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->EXTAB      text
*----------------------------------------------------------------------*
FORM FM_SET_STATUS USING EXTAB TYPE SLIS_T_EXTAB.
  SET PF-STATUS 'BUTTON' .
ENDFORM.                    "FM_SET_STATUS

*&---------------------------------------------------------------------*
*&      Form  FM_USER_COMMAND
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->R_UCOMM      text
*      -->RS_SELFIELD  text
*----------------------------------------------------------------------*
FORM FM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
      RS_SELFIELD TYPE SLIS_SELFIELD.
  CASE R_UCOMM.
    WHEN 'PRINT'.
      PERFORM FM_BUTTON_PRT.
    WHEN OTHERS.
  ENDCASE.
ENDFORM.                    "FM_USER_COMMAND

*&---------------------------------------------------------------------*
*&      Form  FM_BUTTON_PRT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM FM_BUTTON_PRT.
  LOOP AT IT_DATA INTO WA_DATA.
    IF WA_DATA-SEL = 'X'.
      WA_SELS-PUR_NUM  = WA_DATA-PUR_NUM.
      WA_SELS-CRT_DATE = WA_DATA-CRT_DATE.
      WA_SELS-VEND_NUM = WA_DATA-VEND_NUM.
      WA_SELS-PAY_KEY  = WA_DATA-PAY_KEY .
      WA_SELS-MAT_NUM  = WA_DATA-MAT_NUM .
      WA_SELS-PUR_TXT  = WA_DATA-PUR_TXT .
      WA_SELS-PLT_NUM  = WA_DATA-PLT_NUM .
      WA_SELS-STOR_LOC = WA_DATA-STOR_LOC.
      APPEND WA_SELS TO IT_SELS.
    ENDIF.
  ENDLOOP.
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      FORMNAME           = 'ZXLI_TEST_003'
    IMPORTING
      FM_NAME            = L_FM_NAME
    EXCEPTIONS
      NO_FORM            = 1
      NO_FUNCTION_MODULE = 2
      OTHERS             = 3.
  CALL FUNCTION L_FM_NAME
    TABLES
      IT_DATA = IT_SELS.
*  CLEAR IT_SELS[].
ENDFORM.                    "FM_BUTTON_PRT