选择框式选择屏幕设计

 

选择框式屏幕设计；

*======================================================================
*                          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-yycarno MODIF ID m12
                NO-EXTENSION NO INTERVALS
                MATCHCODE OBJECT yhs_ytdricar_carid.

*                s_fprfm FOR marc-fprfm MODIF ID m12
*                NO-EXTENSION NO INTERVALS.
SELECTION-SCREEN END OF BLOCK blk3.

*&服装验货单查询界面LM14
SELECTION-SCREEN BEGIN OF BLOCK blk4 WITH FRAME TITLE text-001.

PARAMETERS:     p_zcjg LIKE t001l-werks MODIF ID m14
                OBLIGATORY MEMORY ID wrk. "机构名称,
SELECT-OPTIONS: s_vbeln FOR likp-vbeln  MODIF ID m14
                 MATCHCODE OBJECT yhs_likp_vbeln,
                s_sptm FOR mean-ean11 MODIF ID m14,
                s_spbm FOR mseg-matnr MODIF ID m14,
                s_kunnr FOR likp-kunnr MODIF ID m14,
                s_bldat FOR likp-bldat MODIF ID m14 OBLIGATORY,
                s_ernam FOR likp-ernam MODIF ID m14
                MATCHCODE OBJECT yhs_yv_adrp_name.
SELECTION-SCREEN END OF BLOCK blk4.

*&采购订单查询界面LM15
SELECTION-SCREEN BEGIN OF BLOCK blk5 WITH FRAME TITLE text-001.

PARAMETERS:    p_cgdd LIKE t001l-werks OBLIGATORY MODIF ID m15
               MEMORY ID wrk.
SELECT-OPTIONS:
                s_cgdh FOR ekpo-ebeln MODIF ID m15
                MATCHCODE OBJECT yhs_ekko_ebeln ,
                s_aedat FOR ekko-aedat MODIF ID m15,
                s_bedat FOR ekko-bedat MODIF ID m15,
                s_cgsp FOR ekpo-matnr MODIF ID m15,
                s_cgtm FOR mean-ean11 MODIF ID m15,
                s_cggys FOR ekko-lifnr MODIF ID m15,
                s_name FOR  ekko-ernam MODIF ID m15
                MATCHCODE OBJECT yhs_yv_adrp_name,
                "MATCHCODE OBJECT yhs_ekko_ernam,
                s_yxcort FOR  ekko-yxcort MODIF ID m15.
"MATCHCODE OBJECT yhs_ekko_yxcort.
*                s_bwart FOR mseg-bwart.

SELECTION-SCREEN END OF BLOCK blk5.
*&配送出库汇总单
SELECTION-SCREEN BEGIN OF BLOCK blk7 WITH FRAME TITLE text-001.

PARAMETERS:      p_perks LIKE ytrp_histran-werks  OBLIGATORY MODIF ID m13
                 MEMORY ID wrk.

SELECT-OPTIONS: "s_pgort FOR lips-lgort MODIF ID m13,
                p_kunnr FOR likp-kunnr  MODIF ID m13,
                s_ydsum FOR ytrp_histran-ydsum MODIF ID m13,
                p_vbeln FOR ytrp_histran-vbeln MODIF ID m13,
                s_carid FOR ytrp_histran-carid MODIF ID m13  " NO-EXTENSION NO INTERVALS OBLIGATORY
                MATCHCODE OBJECT yhs_ytdricar_carid,
*                s_tpcod FOR ytdriveri-tpcod MODIF ID m13
*                NO-EXTENSION NO INTERVALS,
                s_laeda  FOR ytrp_histran-laeda MODIF ID m13  DEFAULT sy-datum OBLIGATORY,
                s_pldat FOR likp-wadat_ist  MODIF ID m13.
SELECTION-SCREEN END OF BLOCK blk7.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN  COMMENT 04(30) text-015 MODIF ID m11.
PARAMETERS: p_chk AS CHECKBOX DEFAULT '' MODIF ID m11 . "是否包含已打印
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 1.
*&按钮
SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN PUSHBUTTON  2(14) t01 USER-COMMAND sta1     "验收入库单
                                                  MODIF ID mxx.
SELECTION-SCREEN PUSHBUTTON 18(14) t02 USER-COMMAND sta2       "验收入库冲销单
                                                   MODIF ID mxx.
SELECTION-SCREEN PUSHBUTTON 34(14) t04 USER-COMMAND sta4      "退货出库单
                                                 MODIF ID mxx.
SELECTION-SCREEN PUSHBUTTON 50(14) t05 USER-COMMAND sta5      "退货出库冲销单                                                  MODIF 
ID mxx.
SELECTION-SCREEN PUSHBUTTON 66(14) t07 USER-COMMAND sta7      "领用冲销单                                                  MODIF 
ID mxx.
SELECTION-SCREEN PUSHBUTTON 82(14) t08 USER-COMMAND sta8      "报损报废单                                                  MODIF 
ID mxx.

SELECTION-SCREEN END OF LINE.
*&start robin changed 20080819 画面修改：
SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON  2(14)  t09 USER-COMMAND sta9      "借用单                                                  MODIF 
ID mxx.
SELECTION-SCREEN PUSHBUTTON  18(14) t10 USER-COMMAND sta10      "移仓单                                                  MODIF 
ID mxx.
*SELECTION-SCREEN PUSHBUTTON  32(14)  t11 USER-COMMAND sta11    "汇总验收单
*                                                 MODIF ID mxx.
SELECTION-SCREEN PUSHBUTTON  34(14)  t12 USER-COMMAND sta12    "配送出库单                                                  MODIF 
ID mxx.
SELECTION-SCREEN PUSHBUTTON  50(14)  t13 USER-COMMAND sta13    "配送出库汇总单                                                  MODIF 
ID mxx.
SELECTION-SCREEN PUSHBUTTON  66(14) t14 USER-COMMAND sta14    "服装验货单                                                  MODIF 
ID mxx.
SELECTION-SCREEN PUSHBUTTON  82(14)  t15 USER-COMMAND sta15      "采购订单                                                  MODIF 
ID mxx.
SELECTION-SCREEN END OF LINE.


SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN PUSHBUTTON  2(14)  t20 USER-COMMAND sta20     "服装划拨出库单                                                 MODIF 
ID mxx.
"SELECTION-SCREEN PUSHBUTTON  2(12) t16 USER-COMMAND sta16      "汇总验收
"   MODIF ID mxx.
SELECTION-SCREEN PUSHBUTTON  18(14)  t17 USER-COMMAND sta17     "生鲜汇总验收单                                                 MODIF 
ID mxx.
SELECTION-SCREEN PUSHBUTTON  34(14)  t19 USER-COMMAND sta19     "生鲜汇总验收冲销单                                                 MODIF 
ID mxx.
SELECTION-SCREEN PUSHBUTTON  50(14) t21 USER-COMMAND sta21    "生鲜汇总退货单                                                  MODIF 
ID mxx.
SELECTION-SCREEN PUSHBUTTON  66(14)  t22 USER-COMMAND sta22      "生鲜汇总退货冲销单                                                  MODIF 
ID mxx.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 1.


SELECTION-SCREEN: BEGIN OF BLOCK bl10.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: p_hzdy MODIF ID m11 TYPE c AS CHECKBOX DEFAULT '' ."是否打印汇总明细单
SELECTION-SCREEN COMMENT 04(20) text-006 MODIF ID m11.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN: END OF BLOCK bl10.



SELECTION-SCREEN BEGIN OF BLOCK blk6 WITH FRAME TITLE text-002.

PARAMETERS:     rb_ysrk MODIF ID bl2 RADIOBUTTON GROUP g1    "验收入库单                         
DEFAULT 'X' USER-COMMAND radio_click,                 rb_ysrkx MODIF 
ID bl2 RADIOBUTTON GROUP g1,  "验收入库冲销单                 rb_pfhx MODIF 
ID bl2 RADIOBUTTON GROUP g1,   "配送出库汇总单                 rb_pfhz MODIF 
ID bl2 RADIOBUTTON GROUP g1,                 rb_thck MODIF 
ID bl2 RADIOBUTTON GROUP g1,   "退货出库单                 rb_thcx MODIF 
ID bl2 RADIOBUTTON GROUP g1,   "退货出库冲销单                 rb_ly   MODIF 
ID bl2 RADIOBUTTON GROUP g1,                 rb_lycx MODIF 
ID bl2 RADIOBUTTON GROUP g1,   "领用冲销单                 rb_bs   MODIF 
ID bl2 RADIOBUTTON GROUP g1,   "报损报废单                 rb_jy   MODIF 
ID bl2 RADIOBUTTON GROUP g1,   "借用单                 rb_yc   MODIF 
ID bl2 RADIOBUTTON GROUP g1,   "移仓单                 rb_fzyh MODIF 
ID bl2 RADIOBUTTON GROUP g1,   "服装验货单                 rb_cgdd MODIF 
ID bl2 RADIOBUTTON GROUP g1,   "采购订单                

" rb_hzys MODIF ID bl2 RADIOBUTTON GROUP g1,                 rb_sxrk MODIF 
ID bl2 RADIOBUTTON GROUP g1,   "生鲜汇总验收单                 rb_rkcx MODIF 
ID bl2 RADIOBUTTON GROUP g1,   "生鲜汇总验收冲销单                 rb_fzhb MODIF 
ID bl2 RADIOBUTTON GROUP g1,   "服装划拨出库单                 rb_sxth MODIF 
ID bl2 RADIOBUTTON GROUP g1,   "生鲜汇总退货单                 rb_sxtcx MODIF 
ID bl2 RADIOBUTTON GROUP g1.   "生鲜汇总退货冲销单

SELECTION-SCREEN END OF BLOCK blk6.