**************************定义控件***********************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
SELECT-OPTIONS  bukrs FOR iloa-bukrs  . "公司代码
SELECT-OPTIONS  swerk FOR iloa-swerk OBLIGATORY . "工厂
SELECT-OPTIONS  pspel FOR aufk-pspel  . "WBS元素
SELECT-OPTIONS  aufnr FOR aufk-aufnr  . "工单号
SELECT-OPTIONS  ernam FOR aufk-ernam  . "工单创建人
SELECT-OPTIONS  auart FOR aufk-auart  . "工单类型
SELECT-OPTIONS  erdat FOR aufk-erdat  . "工单创建时间
SELECT-OPTIONS  ilart FOR afih-ilart  . "专业
SELECT-OPTIONS  banfn FOR eban-banfn  . "采购申请
SELECT-OPTIONS  bsart_n FOR eban-bsart  . "凭证类型
SELECT-OPTIONS  ebeln FOR ekpo-ebeln  . "采购订单
SELECT-OPTIONS  bsart_o FOR ekko-bsart  . "凭证类型
SELECT-OPTIONS  lifnr FOR ekko-lifnr  . "供应商
SELECT-OPTIONS  mblnr FOR mseg-mblnr  . "物料凭证
SELECT-OPTIONS  budat FOR mkpf-budat  . "过账日期
PARAMETERS  p_gd AS CHECKBOX USER-COMMAND   cu_ck.
SELECTION-SCREEN END OF BLOCK b1.

**ADD BY WANGSP AT 2016-08-23
TABLES:sscrfields,smp_dyntxt.
DATA:expand_all TYPE c.
SELECTION-SCREEN:FUNCTION KEY 1.
PARAMETERS: p_new  TYPE c AS CHECKBOX DEFAULT 'X' MODIF ID new,
            p_time TYPE c AS CHECKBOX DEFAULT 'X' MODIF ID new.