使用ALV表格设计调拨申请打印程序

REPORT ZMMR0004.
TABLES: RESB,RKPF,MAKT,T156T,T001W,T001L,ZTTAF.
TYPE-POOLS: SLIS.
TYPES:BEGIN OF TAB,
  RSNUM LIKE RESB-RSNUM,
  BWART LIKE RESB-BWART,
  MATNR LIKE RESB-MATNR,
  BDMNG LIKE RESB-BDMNG,
  ENMNG LIKE RESB-ENMNG,
  WERKS LIKE RESB-WERKS,
  LGORT LIKE RESB-LGORT,
  XLOEK LIKE RESB-XLOEK,
  RSDAT LIKE RKPF-RSDAT,
  UMWRK LIKE RKPF-UMWRK,
  UMLGO LIKE RKPF-UMLGO,
  USNAM LIKE RKPF-USNAM,
  BLANK TYPE STRING,
  BTEXT LIKE T156T-BTEXT,
  MAKTX LIKE MAKT-MAKTX,
  AFLAG TYPE C,
  CANLQ TYPE RESB-BDMNG,
  SERIAL TYPE RESB-BDMNG,
 END OF TAB.
TYPES:BEGIN OF CONTRLER,
  RSNUM LIKE RESB-RSNUM,
  END OF CONTRLER.


DATA: REF_GRID TYPE REF TO CL_GUI_ALV_GRID. "new
DATA: IT_TAB TYPE TABLE OF ZTTAF WITH HEADER LINE,

      WA_IT_TAB TYPE ZTTAF.
DATA:IT_PRINT TYPE TABLE OF ZTTAF WITH HEADER LINE,
     IT_PRINT2 TYPE ZTTAF_TAB,
     WA_PRINT2 TYPE ZTTAF,
     WA_PRINT TYPE ZTTAF.
DATA:GS_SERIAL TYPE NUM.
DATA:IT_CONTRLER TYPE TABLE OF CONTRLER WITH HEADER LINE.

FIELD-SYMBOLS <FS> TYPE ANY.



CONSTANTS : C_CHECK(1) VALUE 'X'.



DEFINE GET_LTXT.
  MOVE IT_TLINE-TDLINE TO &1.
END-OF-DEFINITION.

*&---------------------------------------------------------------------*
*                        ALV全局定义及设置
*&---------------------------------------------------------------------*
DATA: GT_FIELDCAT   TYPE  SLIS_T_FIELDCAT_ALV WITH HEADER LINE,      "ALV列属性
      GT_LAYOUT     TYPE  SLIS_LAYOUT_ALV,                           "ALV布局设置
      ALV_TITLE     TYPE  LVC_TITLE,                                 "ALV表头
      COLOR_3       TYPE  SLIS_T_SPECIALCOL_ALV WITH HEADER LINE,    "设置单元格颜色的临时内表(黄色)
      COLOR_5       TYPE  SLIS_T_SPECIALCOL_ALV WITH HEADER LINE,    "设置单元格颜色的临时内表(绿色)
      COLOR_6       TYPE  SLIS_T_SPECIALCOL_ALV WITH HEADER LINE,    "设置单元格颜色的临时内表(红色)
      COLOR_7       TYPE  SLIS_T_SPECIALCOL_ALV WITH HEADER LINE.    "设置单元格颜色的临时内表(棕色)