&---------------------------------------------------------------------*
*& 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