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

旧城等待， 2021-12-05 06:21 459阅读 0赞

\*&---------------------------------------------------------------------\*  
\*& Report  Z\_TEST\_COL\_TO\_ROW\_02  
\*&  
\*&---------------------------------------------------------------------\*  
\*&  
\*&  
\*&---------------------------------------------------------------------\*  
  
REPORT Z\_TEST\_COL\_TO\_ROW\_02.  
TABLES: VTTP,LIPS,LIKP,KNA1 ,VTTK.  
  
DATA: gs\_fcat TYPE lvc\_s\_fcat,  
      gt\_fcat TYPE lvc\_t\_fcat,  
      gs\_layo TYPE lvc\_s\_layo,  
      gs\_grid TYPE lvc\_s\_glay.  
DATA: gt\_event TYPE slis\_t\_event WITH HEADER LINE,  
      gt\_event\_exit TYPE slis\_t\_event\_exit WITH HEADER LINE.  
  
DATA:  ref\_grid TYPE REF TO cl\_gui\_alv\_grid .  
  
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)

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