SAP ALV OO 选择行打印

&---------------------------------------------------------------------*
*& Report  ZSDF001
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZSDF001.
INCLUDE ZSDF001_INC_001.
TABLES:VTTP,LIPS,LIKP,KNA1.
TYPES:BEGIN OF TY_HEADER,
      NAME1 LIKE KNA1-NAME1,"客户名称
      ORT01 LIKE KNA1-ORT01,"城市
      REGIO LIKE KNA1-REGIO,"地区
      STRAS LIKE KNA1-STRAS,"街道
      TELF1 LIKE KUWEV-TELF1,"电话
      VBELN LIKE LIKP-VBELN,"交货单号
      VGBEL LIKE LIPS-VGBEL,"订单号
      BLDAT LIKE LIKP-BLDAT,"日期
      LNUMT LIKE T300T-LNUMT,"仓库
    END OF TY_HEADER.
*单据抬头结束
*单据明细开始
TYPES:BEGIN OF TY_ITEMS,
     GV_NAME  LIKE KNA1-NAME1,"客户名称
     GV_KUNAG LIKE LIKP-KUNAG,"客户编号(售达方）
     GV_MATNR LIKE LIPS-MATNR,"物料编码
     GV_ARKTX LIKE LIPS-ARKTX,"物料描述
     GV_LFIMG LIKE LIPS-LFIMG,"交货数量
    END OF TY_ITEMS.
*单据明细结束
DATA:fm_name TYPE rs38l_fnam.
DATA:itemsname(32) TYPE c.
DATA:headername(32) TYPE c.
DATA:GT_ITEMS TYPE TY_ITEMS OCCURS 0.
DATA:WA_ITEMS TYPE TY_ITEMS.
DATA:lt_prt_temp TYPE TY_ITEMS OCCURS 0.
*DATA:gs_tab type TY_ITEMS,
*     gt_tab type TABLE OF GT_ITEMS.

DATA: alv  TYPE REF TO cl_salv_table.
DATA columns TYPE REF TO cl_salv_columns_table.
DATA column TYPE REF TO cl_salv_column_table.
data lr_selections TYPE REF TO cl_salv_selections.


START-OF-SELECTION.

SELECT-OPTIONS: P_TKNUM FOR VTTP-TKNUM OBLIGATORY.
PERFORM FRM_GET_DATA.
PERFORM INITIALIZE_ALV.
alv->display( ).
*PERFORM Z_ALV_PRINT.
*PERFORM FRM_PRINT_DATA.
END-OF-SELECTION.

FORM FRM_GET_DATA.
    SELECT k~NAME1 L1~KUNAG L2~MATNR L2~ARKTX L2~LFIMG
      FROM VTTP AS V
       INNER  JOIN LIKP AS L1
      ON V~VBELN = L1~VBELN
      INNER  JOIN KNA1 AS K
      ON L1~KUNAG = K~KUNNR
      INNER  JOIN LIPS AS L2
      ON L2~VBELN = L1~VBELN
    INTO (WA_ITEMS-GV_NAME,WA_ITEMS-GV_KUNAG,WA_ITEMS-GV_MATNR,WA_ITEMS-GV_ARKTX,
            WA_ITEMS-GV_LFIMG)
      WHERE V

转载于:https://www.cnblogs.com/eagle-dtq/p/5147461.html