ABAP 内表的行列转换-发货通知单-SLIS

REPORT Z_TEST_COL_TO_ROW.

TYPE-POOLS: slis.

TABLES: VTTP,LIPS,LIKP,KNA1 ,VTTK.

DATA: gd_fieldcat TYPE slis_t_fieldcat_alv.

DATA: sla TYPE slis_layout_alv ,

ivariant LIKE disvariant,

i_repid LIKE sy-repid ,

i_excluding TYPE slis_t_extab.

TYPES: BEGIN OF TY_ALL,

TKNUM LIKE VTTK-TKNUM,"运单号

VBELN LIKE LIPS-VBELN,"交货单号

TPLST LIKE VTTK-TPLST ,"装运点

NAME1 LIKE KNA1-NAME1 ,"客户

ERDAT LIKE VTTK-ERDAT ,"创建日期

TDLNR LIKE VTTK-TDLNR ,"物流公司

ROUTE LIKE VTTK-ROUTE ,"线路

DISTZ LIKE VTTK-DISTZ ,"里程

ADD01 LIKE VTTK-ADD01 ,"车主

EXTI1 LIKE VTTK-EXTI1 ,"卸货点

ADD02 LIKE VTTK-ADD02 ,"司机

BFART LIKE VTTK-BFART ,"车厢类型

MATNR LIKE LIPS-MATNR,"物料编码

ARKTX LIKE LIPS-ARKTX,"物料描述

BRGEW LIKE LIPS-BRGEW,"货物单项目毛重

LFIMG LIKE LIPS-LFIMG,"单项目数量

VRKME LIKE LIPS-VRKME ,"单位

GEWEI LIKE LIPS-GEWEI,"重量单位

LGORT LIKE LIPS-LGORT,"库存地点

BEIZHU(30) TYPE C,"备注

END OF TY_ALL.

TYPES:BEGIN OF TY_HEADER,

TKNUM LIKE VTTK-TKNUM,"运单号

VBELN LIKE LIPS-VBELN,"交货单号

NAME1 LIKE KNA1-NAME1 ,"客户

TPLST LIKE VTTK-TPLST ,"装运点

ERDAT LIKE VTTK-ERDAT ,"装运日期

TDLNR LIKE VTTK-TDLNR ,"物流公司

ROUTE LIKE VTTK-ROUTE ,"线路

DISTZ LIKE VTTK-DISTZ ,"里程

ADD01 LIKE VTTK-ADD01 ,"车主

EXTI1 LIKE VTTK-EXTI1 ,"卸货点

ADD02 LIKE VTTK-ADD02 ,"司机

BFART LIKE VTTK-BFART ,"车厢类型

TOTAL_BRGEW LIKE LIPS-BRGEW,"一个交货单的总重量

END OF TY_HEADER.

*单据抬头结束

*单据明细开始

TYPES:BEGIN OF TY_ITEMS,

TKNUM LIKE VTTK-TKNUM,"运单号

VBELN LIKE LIPS-VBELN,"交货单号

NAME1 LIKE KNA1-NAME1 ,"客户

MATNR LIKE LIPS-MATNR,"物料编码

ARKTX LIKE LIPS-ARKTX,"物料描述

BRGEW LIKE LIPS-BRGEW,"单项目毛重

GEWEI LIKE LIPS-GEWEI,"重量单位

LFIMG LIKE LIPS-LFIMG,"单项目数量

VRKME LIKE LIPS-VRKME ,"单位

LGORT LIKE LIPS-LGORT,"库存地点

BEIZHU(30) TYPE C,"备注

END OF TY_ITEMS.

*单据明细结束

DATA:WA_ALL TYPE TY_ALL,

GT_ALL TYPE TY_ALL OCCURS 0.

DATA:WA_HEADER TYPE TY_HEADER,

GT_HEADER TYPE TY_HEADER OCCURS 0 .

DATA:WA_ITEMS TYPE TY_ITEMS,

GT_ITEMS TYPE TY_ITEMS OCCURS 0.

DATA: GT_HEADER_SHOW TYPE TY_HEADER OCCURS 0.

DATA: GT_ITEMS_SHOW TYPE TY_ITEMS OCCURS 0.

*定义传入到smartforms的变量开始

DATA:fm_name TYPE rs38l_fnam.

DATA:itemsname(32) TYPE c.

DATA:headername(32) TYPE c.

*定义传入到smartforms的变量结束

*定义存储ALV向smartforms传入数据的内表开始

DATA:GT_HEADER_TEMP TYPE TY_HEADER OCCURS 0.

DATA:GT_ITEMS_TEMP TYPE TY_ITEMS OCCURS 0.

DATA:GT_ALL_TEMP TYPE TY_ALL OCCURS 0.

*定义存储ALV向smartforms传入数据的内表结束

"控制smartforms参数声明开始

DATA :control_parameters TYPE ssfctrlop.

"控制smartforms参数声明结束

TYPES: BEGIN OF ty_sum ,

MATNR LIKE LIPS-MATNR,"物料编码

ARKTX LIKE LIPS-ARKTX,"物料描述

LFIMG LIKE LIPS-LFIMG,"单项目数量

VRKME LIKE LIPS-VRKME ,"单位

NAME1 LIKE KNA1-NAME1 ,"客户

BRGEW LIKE LIPS-BRGEW,"单项目毛重

END OF ty_sum.

DATA : itab TYPE ty_sum OCCURS 0 ."WITH HEADER LINE ."从数据库中取出的数放入的内表

DATA : hs_sum TYPE HASHED TABLE OF ty_sum WITH UNIQUE KEY MATNR ARKTX VRKME NAME1 WITH HEADER LINE .

DATA : itab_sum TYPE STANDARD TABLE OF ty_sum WITH HEADER LINE .

DATA: BEGIN OF itab_out OCCURS 0,"行列转换后的内表

MATNR LIKE LIPS-MATNR,"物料编码

ARKTX LIKE LIPS-ARKTX,"物料描述

VRKME LIKE LIPS-VRKME ,"单位

menge01 TYPE i ,

menge02 TYPE i ,

menge03 TYPE i ,

menge04 TYPE i ,

menge05 TYPE i ,

menge06 TYPE i ,

menge07 TYPE i ,

menge08 TYPE i ,

menge09 TYPE i ,

menge10 TYPE i ,

menge11 TYPE i ,

menge12 TYPE i ,

menge13 TYPE i ,

menge14 TYPE i ,

menge15 TYPE i ,

menge16 TYPE i ,

menge17 TYPE i ,

menge18 TYPE i ,

menge19 TYPE i ,

menge20 TYPE i ,

menge21 TYPE i ,

menge22 TYPE i ,

menge23 TYPE i ,

menge24 TYPE i ,

menge25 TYPE i ,

menge26 TYPE i ,

line_sum TYPE i ,

BRGEW_sum LIKE LIPS-BRGEW,

END OF itab_out.

TYPES: BEGIN OF ty_col ,

NAME1 LIKE KNA1-NAME1 ,"客户

END OF ty_col.

DATA : hs_col TYPE HASHED TABLE OF ty_col WITH UNIQUE KEY NAME1 WITH HEADER LINE .

DATA : itab_col TYPE STANDARD TABLE OF ty_col WITH HEADER LINE .

FIELD-SYMBOLS: <f_fs1> ,
<f_fs2>
.

DATA: max_count TYPE i .

START-OF-SELECTION.

SELECT-OPTIONS: P_ERDAT FOR VTTK-ERDAT ,
P_TKNUM
FOR VTTK-TKNUM ,
P_TDLNR
FOR VTTK-TDLNR ,
P_TPLST
FOR VTTK-TPLST ,
P_ERNAM
FOR VTTK-ERNAM ,
P_ROUTE
FOR VTTK-ROUTE .

START-OF-SELECTION.

PERFORM getdata.

PERFORM fixdata.

PERFORM outdata.

*&---------------------------------------------------------------------*

*& Form GETDATA

*&---------------------------------------------------------------------*

FORM getdata.

SELECT *

FROM VTTK AS VK
INNER
JOIN VTTP AS VP

ON VK~TKNUM = VP~TKNUM
INNER
JOIN LIPS AS L

ON L~VBELN = VP~VBELN
INNER
JOIN LIKP AS LP

ON LP~VBELN = L~VBELN
INNER
JOIN KNA1 AS K

ON K~KUNNR = LP~KUNAG

INTO CORRESPONDING FIELDS OF TABLE GT_ALL

WHERE

VK

~TKNUM IN P_TKNUM AND (
VK
~ERDAT IN P_ERDAT AND
VK
~TDLNR IN P_TDLNR AND
VK
~TPLST IN P_TPLST AND
VK
~ERNAM IN P_ERNAM AND
VK
~ROUTE IN P_ROUTE ) .

SORT GT_ALL ASCENDING BY TKNUM.

MOVE-CORRESPONDING GT_ALL TO GT_HEADER_SHOW.

MOVE-CORRESPONDING GT_ALL TO GT_ITEMS_SHOW.

DELETE ADJACENT DUPLICATES FROM GT_HEADER_SHOW COMPARING TKNUM .

MOVE-CORRESPONDING GT_ALL TO itab.

ENDFORM. " GETDATA

*&---------------------------------------------------------------------*

*& Form FIXDATA

*&---------------------------------------------------------------------*

FORM fixdata.

DATA: index LIKE sy-tabix .

DATA:wa_itab TYPE ty_sum.

LOOP AT itab INTO wa_itab.
hs_sum
= wa_itab.

COLLECT hs_sum.
hs_col
= wa_itab-NAME1 .

COLLECT hs_col.

ENDLOOP.

SORT hs_col.
itab_col[]
= hs_col[].
itab_sum[]
= hs_sum[].

LOOP AT itab_sum.
itab_out
-MATNR = itab_sum-MATNR .
itab_out
-ARKTX = itab_sum-ARKTX .
itab_out
-VRKME = itab_sum-VRKME .

READ TABLE itab_col WITH KEY NAME1 = itab_sum-NAME1 .

index = sy-tabix + 3."3这个数字代表有几列是固定不变的

ASSIGN COMPONENT index OF STRUCTURE itab_out TO <f_fs1>.
<f_fs1>
= itab_sum-LFIMG.
itab_out
-line_sum = itab_sum-LFIMG.
itab_out
-BRGEW_sum = itab_sum-BRGEW.

COLLECT itab_out.

CLEAR itab_out.

ENDLOOP.

ENDFORM. " FIXDATA

*---------------------------------------------------------------------*

* FORM frm_catlg_set *

*---------------------------------------------------------------------*

FORM frm_catlg_set USING p_field p_text p_key.

DATA: ls_fieldcat TYPE slis_fieldcat_alv.
ls_fieldcat
-fieldname = p_field.
ls_fieldcat
-seltext_l = p_text.
ls_fieldcat
-key = p_key.

IF p_field = 'LINE_SUM'.
ls_fieldcat
-emphasize = 'C700'.

ENDIF.

APPEND ls_fieldcat TO gd_fieldcat .

CLEAR ls_fieldcat .

ENDFORM. "frm_catlg_set

*&--------------------------------------------------------------------*

*& Form user_command

*&--------------------------------------------------------------------*

FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield
TYPE slis_selfield.

DATA:wa_itab TYPE ty_sum.

READ TABLE itab INTO wa_itab INDEX rs_selfield-tabindex.

CASE r_ucomm.

WHEN '&IC1'. "双击

WHEN 'EXIT'.

LEAVE PROGRAM.

ENDCASE.
rs_selfield
-refresh = 'X'. "自动刷新

ENDFORM. "user_com

*---------------------------------------------------------------------*

* FORM outdata2 *

*---------------------------------------------------------------------*

FORM fieldcat_init .

DATA: c(2) TYPE n ,
txt
(20) TYPE c .

PERFORM frm_catlg_set USING:

'MATNR' '物料编码' 'X' ,

'ARKTX' '物料描述' 'X' ,

'VRKME' '单位' 'X' .

LOOP AT hs_col .

c = c + 1.

CONCATENATE 'MENGE' c INTO txt.

PERFORM frm_catlg_set USING: txt hs_col-NAME1 '' .

ENDLOOP.

PERFORM frm_catlg_set USING: 'LINE_SUM' '数量合计' '' .

PERFORM frm_catlg_set USING: 'BRGEW_sum' '毛重' '' .

ENDFORM. "fieldcat_init

FORM outdata.

PERFORM fieldcat_init .
sla
-colwidth_optimize = 'X'.
sla
-zebra = 'X'.
i_repid
= sy-repid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING
i_callback_program
= i_repid
it_fieldcat
= gd_fieldcat[]
i_save
= 'A'
is_variant
= ivariant
is_layout
= sla
it_excluding
= i_excluding
i_callback_user_command
= 'USER_COMMAND'

TABLES
t_outtab
= itab_out

EXCEPTIONS
program_error
= 1

OTHERS = 2.

ENDFORM. " outdata

*---------------------------------------------------------------------*

* FORM fieldcat_init2 *

*---------------------------------------------------------------------*