REPORT z_alv_manual_set_header .
TABLES:afko,afru,afpo,pbim,pbed,makt,mard .
*************ALV
TYPE-POOLS slis.
DATA:l_events TYPE slis_t_event,
gs_layout TYPE slis_layout_alv,
fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
eventcat TYPE slis_t_event WITH HEADER LINE.
DATA:l_variant TYPE TABLE OF disvariant WITH HEADER LINE,
prg LIKE sy-repid.
**************
DATA:bedat LIKE pbed-pdatu,"当月月初
eddat LIKE pbed-pdatu."当月月末
DATA yesterday LIKE sy-datum.
DATA: lcm LIKE makt-matnr, " 冷藏门
ldm LIKE makt-matnr, " 冷冻门
bwm LIKE makt-matnr, "变温门
czhxt LIKE makt-matnr," 初装后箱体
zzhxt LIKE makt-matnr." 总装后箱体
DATA:gmnga_buf LIKE afru-gmnga. "计算当月计划
DATA:BEGIN OF itb_list_fert OCCURS 0, "当天有生产的整机清单
stlbez LIKE afko-stlbez, "物料号
stlal LIKEafko-stlal, "可选BOM
stlan LIKEafko-stlan, "BOM 用途
END OF itb_list_fert.
DATA: maktx LIKE makt-maktx ,
maktx1 LIKE makt-maktx ,
f1 LIKE makt-maktx ,
f2 LIKE makt-maktx ,
f3 LIKE makt-maktx ,
dot VALUE '.',
dot1 VALUE ','.
DATA:BEGIN OF itb_output OCCURS 0,"输出表格
maktx LIKEmakt-maktx, "产品型号
plnmg_f_m LIKE pbed-plnmg, "当月计划
czhxt LIKEmakt-matnr," 初装后箱体
gmnga_lcm LIKEafru-gmnga, "冷藏门 当日完成
gmnga_lcm_lj LIKE afru-gmnga,"冷藏门 累计完成
labst_lcm LIKEmard-labst, "冷藏门 结存
gmnga_ldm LIKEafru-gmnga, "冷冻门 当日完成
gmnga_ldm_lj LIKE afru-gmnga,"冷冻门 累计完成
labst_ldm LIKEmard-labst, "冷冻门 结存
gmnga_bwm LIKEafru-gmnga, "变温门 当日完成
gmnga_bwm_lj LIKE afru-gmnga,"变温门 累计完成