xuan ze ping mu

转载 2015年08月26日 16:25:53

*&---------------------------------------------------------------------*
*& DEFINE SCREENS
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-S10.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 03(10) TEXT-S11 FOR FIELD RD_YDYY.
SELECTION-SCREEN POSITION 01.
PARAMETERS RD_YDYY RADIOBUTTON GROUP RB DEFAULT 'X' USER-COMMAND RBK.  "一单一议
SELECTION-SCREEN COMMENT 18(10) TEXT-S12 FOR FIELD RD_YZJJ.
SELECTION-SCREEN POSITION 16.
PARAMETERS RD_YZJJ RADIOBUTTON GROUP RB.                               "以质计价
SELECTION-SCREEN COMMENT 33(10) TEXT-S13 FOR FIELD RD_JDDD.
SELECTION-SCREEN POSITION 31.
PARAMETERS RD_JDDD RADIOBUTTON GROUP RB.                               "借贷项订单
SELECTION-SCREEN COMMENT 48(10) TEXT-S14 FOR FIELD RD_YKJJ.
SELECTION-SCREEN POSITION 46.
PARAMETERS RD_YKJJ RADIOBUTTON GROUP RB.                               "元/卡计价
SELECTION-SCREEN COMMENT 63(10) TEXT-S15 FOR FIELD RD_YFDD.
SELECTION-SCREEN POSITION 61.
PARAMETERS RD_YFDD RADIOBUTTON GROUP RB.                               "运费订单
SELECTION-SCREEN COMMENT 78(10) TEXT-S04 FOR FIELD RD_THDD.
SELECTION-SCREEN POSITION 76.
PARAMETERS RD_THDD RADIOBUTTON GROUP RB.                               "退货订单
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK BL1.
SELECTION-SCREEN BEGIN OF BLOCK BL3 WITH FRAME TITLE TEXT-S17.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 03(10) TEXT-S18 FOR FIELD CK_CSKD MODIF ID M08.
SELECTION-SCREEN POSITION 01.
PARAMETERS CK_CSKD AS CHECKBOX MODIF ID M08.                           "超水扣吨
SELECTION-SCREEN COMMENT 18(10) TEXT-S23 FOR FIELD CK_KHZJ MODIF ID M08.
SELECTION-SCREEN POSITION 16.
PARAMETERS CK_KHZJ AS CHECKBOX MODIF ID M08.                           "客户质检
SELECTION-SCREEN COMMENT 33(10) TEXT-S19 FOR FIELD CK_JQPJ MODIF ID M09.
SELECTION-SCREEN POSITION 31.
PARAMETERS CK_JQPJ AS CHECKBOX MODIF ID M09.                           "加权平均
SELECTION-SCREEN COMMENT 48(10) TEXT-S24 FOR FIELD CK_YSDF MODIF ID M12.
SELECTION-SCREEN POSITION 46.
PARAMETERS CK_YSDF AS CHECKBOX MODIF ID M12.                           "以送达方定价
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK BL3.
SELECTION-SCREEN BEGIN OF BLOCK BL2 WITH FRAME TITLE TEXT-S01.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(10) TEXT-S07 FOR FIELD P_VKORG MODIF ID M00.
SELECTION-SCREEN POSITION 33.
PARAMETERS P_VKORG TYPE VBRK-VKORG MODIF ID M00 DEFAULT '1040'.
SELECTION-SCREEN COMMENT 52(30) GV_VTEX1 MODIF ID M00.
SELECTION-SCREEN END OF LINE.
SELECT-OPTIONS S_LGORT FOR GS_SD_B-LGORT NO INTERVALS MODIF ID M00.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(10) TEXT-S09 FOR FIELD P_VBELN MODIF ID M01.
SELECTION-SCREEN POSITION 33.
PARAMETERS P_VBELN TYPE VBAK-VBELN MATCHCODE OBJECT VMVA MODIF ID M01.
SELECTION-SCREEN COMMENT 52(30) GV_BEZE1 MODIF ID M01.
SELECTION-SCREEN END OF LINE.
SELECT-OPTIONS S_KUNAG FOR GS_SD_B-KUNAG NO INTERVALS MODIF ID M02.
SELECT-OPTIONS S_MATNR FOR GS_SD_B-MATNR NO INTERVALS MODIF ID M03.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(10) TEXT-S05 FOR FIELD P_VSART MODIF ID M05.
SELECTION-SCREEN POSITION 33.
PARAMETERS P_VSART TYPE VBKD-VSART MODIF ID M05.
SELECTION-SCREEN COMMENT 52(30) GV_BEZE2 MODIF ID M05.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(10) TEXT-S06 FOR FIELD P_KONDA MODIF ID M06.
SELECTION-SCREEN POSITION 33.
PARAMETERS P_KONDA TYPE VBRK-KONDA MODIF ID M06.
SELECTION-SCREEN COMMENT 52(30) GV_VTEX3 MODIF ID M06.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(10) GV_DDTXT FOR FIELD S_VBELN MODIF ID M10.
SELECTION-SCREEN POSITION 30.
SELECT-OPTIONS S_VBELN FOR GS_SD_B-VBELV NO INTERVALS MODIF ID M10.
SELECTION-SCREEN COMMENT 62(30) GV_BEZEX MODIF ID M10.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(10) TEXT-S22 FOR FIELD S_CHARG MODIF ID M11.
SELECTION-SCREEN POSITION 30.
SELECT-OPTIONS S_CHARG FOR GS_SD_B-CHARG MODIF ID M11.
SELECTION-SCREEN END OF LINE.
SELECT-OPTIONS S_FKDAT FOR GS_SD_A-WADAT NO-EXTENSION MODIF ID M07.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(10) TEXT-S20 FOR FIELD P_FKDAT MODIF ID M13.
SELECTION-SCREEN POSITION 33.
PARAMETERS P_FKDAT TYPE VBRK-FKDAT DEFAULT SY-DATUM MODIF ID M13.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK BL2.



FORM FRM_SET_SCREEN.
  IF RD_THDD IS NOT INITIAL.
    GV_DDTXT = TEXT-S21.
  ELSE.
    GV_DDTXT = TEXT-S16.
  ENDIF.
  LOOP AT SCREEN.
    IF SCREEN-NAME EQ 'GV_DDTXT'.
      SCREEN-INTENSIFIED = '1'.
    ENDIF.
    IF ( SCREEN-NAME CP 'P_*'
    OR   SCREEN-NAME CP 'S_*' )
    AND  SCREEN-NAME NE 'P_PLTYP'
    AND  SCREEN-NAME NE 'P_FKDAT'
    AND  SCREEN-NAME NS 'VBELN'
    AND  SCREEN-NAME NS 'CHARG'.
      SCREEN-REQUIRED = '2'.
    ENDIF.
    IF SCREEN-NAME CP 'GV_*'.
      SCREEN-INTENSIFIED = '1'.
    ENDIF.
    CASE ABAP_TRUE.
*     一单一议
      WHEN RD_YDYY.
        IF SCREEN-GROUP1 EQ 'M02'
        OR SCREEN-GROUP1 EQ 'M03'
        OR SCREEN-GROUP1 EQ 'M04'
        OR SCREEN-GROUP1 EQ 'M05'
        OR SCREEN-GROUP1 EQ 'M06'
        OR SCREEN-GROUP1 EQ 'M12'
        OR SCREEN-GROUP1 EQ 'M09'.
          SCREEN-ACTIVE = '0'.
        ENDIF.
*     以质计价
      WHEN RD_YZJJ.
        IF SCREEN-GROUP1 EQ 'M01'.
          SCREEN-ACTIVE = '0'.
        ENDIF.
*     借贷项订单
      WHEN RD_JDDD.
        IF SCREEN-GROUP1 EQ 'M01'
        OR SCREEN-GROUP1 EQ 'M03'
        OR SCREEN-GROUP1 EQ 'M04'
        OR SCREEN-GROUP1 EQ 'M05'
        OR SCREEN-GROUP1 EQ 'M06'
        OR SCREEN-GROUP1 EQ 'M08'
        OR SCREEN-GROUP1 EQ 'M09'
        OR SCREEN-GROUP1 EQ 'M10'
        OR SCREEN-GROUP1 EQ 'M11'
        OR SCREEN-GROUP1 EQ 'M12'.
          SCREEN-ACTIVE = '0'.
        ENDIF.
*     元/卡计价
      WHEN RD_YKJJ.
        IF SCREEN-GROUP1 EQ 'M01'
        OR SCREEN-GROUP1 EQ 'M06'
        OR SCREEN-GROUP1 EQ 'M10'.
          SCREEN-ACTIVE = '0'.
        ENDIF.
*     运费订单
      WHEN RD_YFDD.
        IF SCREEN-GROUP1 EQ 'M01'
        OR SCREEN-GROUP1 EQ 'M03'
        OR SCREEN-GROUP1 EQ 'M04'
        OR SCREEN-GROUP1 EQ 'M05'
        OR SCREEN-GROUP1 EQ 'M06'
        OR SCREEN-GROUP1 EQ 'M08'
        OR SCREEN-GROUP1 EQ 'M09'
        OR SCREEN-GROUP1 EQ 'M10'
        OR SCREEN-GROUP1 EQ 'M11'
        OR SCREEN-GROUP1 EQ 'M12'.
          SCREEN-ACTIVE = '0'.
        ENDIF.
*     退货订单
      WHEN RD_THDD.
        IF SCREEN-GROUP1 EQ 'M01'
        OR SCREEN-GROUP1 EQ 'M03'
        OR SCREEN-GROUP1 EQ 'M04'
        OR SCREEN-GROUP1 EQ 'M05'
        OR SCREEN-GROUP1 EQ 'M06'
        OR SCREEN-GROUP1 EQ 'M08'
        OR SCREEN-GROUP1 EQ 'M09'
        OR SCREEN-GROUP1 EQ 'M11'
        OR SCREEN-GROUP1 EQ 'M12'.
          SCREEN-ACTIVE = '0'.
        ENDIF.
      WHEN OTHERS.
    ENDCASE.
    CASE SY-TCODE.
      WHEN CNS_TCODE_0156.
        IF SCREEN-GROUP1 EQ 'M08'
        OR SCREEN-GROUP1 EQ 'M09'
        OR SCREEN-GROUP1 EQ 'M12'.
          SCREEN-ACTIVE = '0'.
        ENDIF.
      WHEN CNS_TCODE_0156A.
        IF SCREEN-GROUP1 EQ 'M13'.
          SCREEN-ACTIVE = '0'.
        ENDIF.
      WHEN OTHERS.
    ENDCASE.
    MODIFY SCREEN.
  ENDLOOP.
ENDFORM.                    " FRM_SET_SCREEN


http://www.cnblogs.com/xuanhun/archive/2012/04/08/2437670.html

http://www.cnblogs.com/xuanhun/archive/2012/04/08/2437670.html 首次面对题目所示的需求的时候,头脑中没有任何概念,于是搜索,所有...
  • kopolwu
  • kopolwu
  • 2012年04月09日 11:44
  • 461

MU

DescriptionSuppose there are the symbols M, I, and U which can be combined to produce strings of sym...
  • Heu_Ice_Fire
  • Heu_Ice_Fire
  • 2013年08月15日 23:02
  • 445

ButterKnife配置与使用

ButterKnife是我很欣赏的国外大神JakeWharton的作品,是一个专注于Android系统的View注入框架,可以减少大量的findViewById以及setOnClickListener...
  • zoky_ze
  • zoky_ze
  • 2017年03月07日 15:49
  • 142

奇迹Mu分析 - 各种主流BT功能实现

一、瞬移 这个功能需要分2个步骤 1、发送移动包 2、修正本地画面同步
  • yoie01
  • yoie01
  • 2014年09月30日 13:54
  • 1685

奇迹Mu分析 - 魔盒刷钱实现

前端时间流传的,通过跨级接取魔盒任务,
  • yoie01
  • yoie01
  • 2014年09月30日 14:19
  • 1125

STM32F103ZE和STM32F207ZG的芯片区别

前段时间以红牛开发板为主,在其上成功移植了.NET Micro Framework(请参见我以前写的系列移植文章:链接),最近开始在ST下一代Cortex-M3芯片STM32F207的平台上移植.NE...
  • yefanqiu
  • yefanqiu
  • 2010年10月26日 17:33
  • 5111

不用WinRar将网络空间上的文件打包下载

Response.Buffer = TrueResponse.ClearDim Co,Temp,T,x,i,fsoBrowse,theFolder,TheSubFolders,FilePath,s,P...
  • liuhao2046xp
  • liuhao2046xp
  • 2005年12月17日 12:16
  • 614

奇迹窗口源代码

奇迹窗口源代码
  • mynote
  • mynote
  • 2005年05月19日 21:56
  • 2156

IOS开发之查看网络链接是否可用 - 2

//判断是否联网 - (BOOL) connectedToNetwork {    structsockaddr_in zeroAddress;     bzero(&zeroAddress...
  • Li_Huifeng
  • Li_Huifeng
  • 2013年06月26日 15:03
  • 2223

奇迹Mu分析 - 封包协议

至于游戏的具体名字我就不详细说了,懂得自然懂。废话不多直接开始 1、游戏的主协议 所谓...
  • yoie01
  • yoie01
  • 2014年07月17日 09:40
  • 2771
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:xuan ze ping mu
举报原因:
原因补充:

(最多只允许输入30个字)