选择框式屏幕设计;
*======================================================================
* SELECTION-SCREEN
*======================================================================
SELECTION-SCREEN BEGIN OF BLOCK bk01 WITH FRAME TITLE text-t01.
SELECTION-SCREEN BEGIN OF LINE .
PARAMETERS: rb_matnr MODIF ID bl3 RADIOBUTTON GROUP gr1 DEFAULT 'X' USER-COMMAND rdbu.
SELECTION-SCREEN COMMENT 4(20) text-010 MODIF ID bl3.
PARAMETERS: rb_ean11 MODIF ID bl3 RADIOBUTTON GROUP gr1.
SELECTION-SCREEN COMMENT 28(20) text-011 MODIF ID bl3.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK bk01.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
*移动类型 _____ 到 ______
PARAMETERS: p_werks LIKE t001l-werks OBLIGATORY MODIF ID m01
MEMORY ID wrk.
SELECT-OPTIONS:
s_lgort FOR t001l-lgort MODIF ID m01,
s_mjahr FOR mseg-mjahr MODIF ID m01
NO-EXTENSION NO INTERVALS DEFAULT sy-datum+0(4),
s_khbm FOR mseg-kunnr MODIF ID m01,
s_ean11 FOR mean-ean11 MODIF ID m01,
s_matnr FOR mseg-matnr MODIF ID m01,
s_usnam FOR mkpf-usnam MODIF ID m01
MATCHCODE OBJECT yhs_yv_adrp_name,
s_mblnr FOR mseg-mblnr MODIF ID m01
MATCHCODE OBJECT yhs_mkpf_mblnr,
p_mblnr FOR mseg-mblnr MODIF ID m01
MATCHCODE OBJECT yhs_mkpf_mblnr,
s_lifnr FOR mseg-lifnr MODIF ID m01,
s_budat FOR mkpf-budat MODIF ID m01 OBLIGATORY ,
s_cputm FOR mkpf-cputm MODIF ID m01,
s_ebeln FOR mseg-ebeln MODIF ID m01,
s_lfbnr FOR mseg-lfbnr MODIF ID m01,
s_bktxt FOR mkpf-bktxt MODIF ID m01,
s_bwart FOR t156t-bwart MODIF ID m01 OBLIGATORY .
SELECTION-SCREEN END OF BLOCK blk1.
*SELECTION-SCREEN SKIP.
*&配送出库单LM12&服装划拨单
SELECTION-SCREEN BEGIN OF BLOCK blk3 WITH FRAME TITLE text-001.
PARAMETERS: p_pcjg LIKE t001l-werks MODIF ID m12
OBLIGATORY MEMORY ID wrk. "机构名称,
SELECT-OPTIONS: s_nadu FOR mseg-mjahr MODIF ID m12
NO-EXTENSION NO INTERVALS DEFAULT sy-datum+0(4),
s_vb_st FOR likp-vbeln MODIF ID m12
MATCHCODE OBJECT yhs_likp_vbeln,
s_prjg FOR mseg-wempf MODIF ID m12
NO-EXTENSION NO INTERVALS,
s_pckw FOR ekpo-reslo MODIF ID m12,
s_pzrq FOR mkpf-bldat MODIF ID m12 OBLIGATORY,
s_pssj FOR mkpf-cputm MODIF ID m12,
s_tm FOR mean-ean11 MODIF ID m12,
s_bm FOR mseg-matnr MODIF ID m12,
s_psdh FOR mseg-mblnr MODIF ID m12
MATCHCODE OBJECT yhs_mkpf_mblnr,
s_user FOR mkpf-usnam MODIF ID m12
MATCHCODE OBJECT yhs_yv_adrp_name,
s_carno FOR likp