REPORT Z_TEST_COL_TO_ROW.

TYPE-POOLS: slis.
TABLES: mseg,mkpf.
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_sum ,
        werks LIKE mseg-werks ,
        matnr LIKE mseg-matnr ,
        lgort LIKE mseg-lgort ,
        bwart LIKE mseg-bwart ,
        menge LIKE mseg-menge ,
END OF ty_sum.

DATA : itab TYPE STANDARD TABLE OF ty_sum WITH HEADER LINE .
DATA : hs_sum TYPE HASHED TABLE OF ty_sum WITH UNIQUE KEY werks matnr lgort bwart WITH HEADER LINE .
DATA : itab_sum TYPE STANDARD TABLE OF ty_sum WITH HEADER LINE .
DATA: BEGIN OF itab_out OCCURS 0,
        werks LIKE mseg-werks ,
        matnr LIKE mseg-matnr ,
        lgort LIKE mseg-lgort ,
        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 ,
END OF itab_out.

TYPES: BEGIN OF ty_bwart ,
      bwart LIKE mseg-bwart ,
END OF ty_bwart.

DATA : hs_bwart TYPE HASHED TABLE OF ty_bwart WITH UNIQUE KEY bwart WITH HEADER LINE .
DATA : itab_bwart TYPE STANDARD TABLE OF ty_bwart WITH HEADER LINE .
FIELD-SYMBOLS: <f_fs1> ,
<f_fs2>.
DATA: max_count TYPE i .
SELECT-OPTIONS:
      s_mblnr FOR mseg-mblnr ,
      s_budat FOR mkpf-budat .
PARAMETERS: p_sum AS CHECKBOX .

START-OF-SELECTION.
PERFORM getdata.
PERFORM fixdata.

IF p_sum = 'X'.
    PERFORM outdata.
ELSE.
    PERFORM outdata2.
ENDIF.
*&---------------------------------------------------------------------*
*& Form GETDATA
*&---------------------------------------------------------------------*
FORM getdata.
SELECT werks matnr lgort bwart menge INTO TABLE itab
    FROM mkpf INNER JOIN mseg ON mkpf~mblnr = mseg~mblnr AND
          mkpf~mjahr = mseg~mjahr
    WHERE mkpf~mblnr IN s_mblnr AND
          mkpf~budat IN s_budat .
ENDFORM. " GETDATA
*&---------------------------------------------------------------------*
*& Form FIXDATA
*&---------------------------------------------------------------------*
FORM fixdata.
DATA: index LIKE sy-tabix .
LOOP AT itab.
      hs_sum = itab.
      COLLECT hs_sum.
            hs_bwart = itab-bwart .
      COLLECT hs_bwart.
ENDLOOP.

SORT hs_bwart.
      itab_bwart[] = hs_bwart[].
      itab_sum[] = hs_sum[].
LOOP AT itab_sum.
    itab_out-werks = itab_sum-werks .
    itab_out-matnr = itab_sum-matnr .
    itab_out-lgort = itab_sum-lgort .
READ TABLE itab_bwart WITH KEY bwart = itab_sum-bwart .
index = sy-tabix + 3.
ASSIGN COMPONENT index OF STRUCTURE itab_out TO <f_fs1>.
<f_fs1> = itab_sum-menge.
itab_out-line_sum = itab_sum-menge.
COLLECT itab_out.
CLEAR itab_out.
ENDLOOP.
ENDFORM. " FIXDATA
*&---------------------------------------------------------------------*
*& Form outdata
*&---------------------------------------------------------------------*
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_sum
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM. " outdata
*---------------------------------------------------------------------*
* FORM fieldcat_init *
*---------------------------------------------------------------------*
FORM fieldcat_init .
PERFORM frm_catlg_set USING:
      'WERKS' 'WERKS' 'X' ,
      'MATNR' 'MATNR' 'X' ,
      'LGORT' 'LGORT' 'X' ,
      'BWART' 'BWART' 'X' ,
      'MENGE' 'MENGE' '' .
ENDFORM. "fieldcat_init
*---------------------------------------------------------------------*
* 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.
READ TABLE 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 outdata2.

PERFORM fieldcat_init2 .
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 *

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

FORM fieldcat_init2 .

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

PERFORM frm_catlg_set USING:
      
'WERKS' 'WERKS' 'X' ,
      
'MATNR' 'MATNR' 'X' ,
      
'LGORT' 'LGORT' 'X' .

LOOP AT hs_bwart .

c = c + 1.

CONCATENATE 'MENGE' c INTO txt.

PERFORM frm_catlg_set USING: txt hs_bwart-bwart '' .

ENDLOOP.

PERFORM frm_catlg_set USING: 'LINE_SUM' 'SUM' '' .

ENDFORM. "fieldcat_init

ABAP 内表的行列转换-NEW的更多相关文章

  1. ABAP 内表的行列转换-发货通知单-打印到Excel里-NEW-(以运单号为单位显示ALV然后保存输出)

    *********************************************************************** * Title           : ZSDF003  ...

  2. ABAP 内表的行列转换-发货通知单-打印到Excel里-NEW

    *********************************************************************** * Title           : ZSDF002  ...

  3. ABAP 内表的行列转换-发货通知单-打印到Excel里

    需要传入数据到Excel里的模板如上图所示 ********************** *           设计主要逻辑与原理说明                                 ...

  4. ABAP 内表的行列转换-发货通知单2

    *&---------------------------------------------------------------------* *& Report  Z_TEST_C ...

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

    REPORT Z_TEST_COL_TO_ROW. TYPE-POOLS: slis. TABLES: VTTP,LIPS,LIKP,KNA1 ,VTTK. DATA: gd_fieldcat TYP ...

  6. ABAP 内表的行列转换

    http://www.cnblogs.com/qlp1982/p/3370591.html

  7. ABAP 内表与XML转换

    1需求说明 在系统交互中需要将SAP内表转换为XML文件,发送给其他系统,并且将其他系统返回的XML文件转换为SAP内表. 2创建转换编辑器 事务代码:STRANS 选择简单转换 以图形方式编辑 右键 ...

  8. Abap 内表的语法

    ABAP中的内表相当于其他程序设计语言中的二维数组,存储多行结构相同的数据 不同于二维数组,内表在创建后,列结构与列数是固定不变的,而行数是动态增长的  内表支持循环对每行数据进行操作,也支持整体操作 ...

  9. ABAP内表数据和JSON格式互转

    本程序演示ABAP内表数据如何转为JSON格式,以及JSON数据如何放入内表. 注:json字符串格式如:jsonstr = '[ {flag: "0",message: &quo ...

随机推荐

  1. 再说linux中的rm mv 遍历执行多个文件的操作: find + xagrs

    参考文章: http://cfqtyaogang.blog.163.com/blog/static/218051022011812111342203/, 这篇文章讲得很全面很详细... 包括不好理解的 ...

  2. zoj3811 Untrusted Patrol (dfs)

    2014牡丹江网络赛C题 (第三水的题 The 2014 ACM-ICPC Asia Mudanjiang Regional First Round http://acm.zju.edu.cn/onl ...

  3. 8-Highcharts曲线图之对数直线图

    <!DOCTYPE> <html lang='en'> <head> <title>8-Highcharts曲线图之对数直线图</title> ...

  4. PHP: 手把手编写自己的 MVC 框架实例教程

    1 什么是MVC MVC模式(Model-View-Controller)是软件工程中的一种软件架构模式,把软件系统分为三个基本部分:模型(Model).视图(View)和控制器(Controller ...

  5. Git工作流总结

    引用自:https://github.com/xirong/my-git/blob/master/git-workflow-tutorial.md 说明: 个人在学习Git工作流的过程中,从原有的 S ...

  6. [译]Introducing ASP.NET 5

    原文:http://weblogs.asp.net/scottgu/introducing-asp-net-5 ASP.NET 5预览版发布了, 可以在这下载最新的Visual Studio 2015 ...

  7. 系列文章:老项目的#iPhone6与iPhone6Plus适配#(持续更新中,更新日期2014年10月12日 星期日 )

    本文永久地址为http://www.cnblogs.com/ChenYilong/p/4020399.html ,转载请注明出处. ********************************** ...

  8. 【PHP面向对象(OOP)编程入门教程】1.什么是面向对象?

    面向对象编程(Object Oriented Programming, OOP, 面向对象程序设计)是一种计算机编程架构,OOP的一条基本原则是计算机程序是由单个能够起到子程序作用的单元或对象组合而成 ...

  9. HDU 4927 Series 1(高精度+杨辉三角)

    题目链接:http://acm.hdu.edu.cn/showproblem.php?pid=4927 解题报告:对于n,结果如下: C(0,n-1) *A[n] - C(1,n-1) * A[n-1 ...

  10. python os.path模块常用方法详解:转:http://wangwei007.blog.51cto.com/68019/1104940

    1.os.path.abspath(path) 返回path规范化的绝对路径. >>> os.path.abspath('test.csv') 'C:\\Python25\\test ...