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


相关文章推荐

72xuan装修设计软件 3.0.3

  • 2011年02月16日 11:03
  • 7.59MB
  • 下载

移植ucosII到STM32F103ZE(一)

http://blog.sina.com.cn/s/blog_abd39cc70101cl5w.html 一、开发环境: 1.         开发环境:     keil ...

72xuan装修设计软件

  • 2011年04月19日 08:11
  • 8.09MB
  • 下载

stm32 F103ZE 中定时器的总结

stm32 定时器的分类 ********************************************************** 1.分有: 一、高级定时器   高级定时器中一共有2...

MU敏工挂机脚本

  • 2011年11月24日 15:00
  • 2MB
  • 下载

MU专用登陆器源代码

  • 2006年02月23日 09:05
  • 614KB
  • 下载

基于STM32F103ZE芯片的RT-thread 操作系统移植

本人之前从事嵌入式软件开发(主要使用STM32,C8051,NXP片子)将近5年,最近由于工作变动开始搞LINUX应用层软件开发(多了点算法),为了使自己不把这为数不多的兴趣爱好丢了,开始写点文章,主...

Verilog学习笔记4:关于5M40ZE64C4N接地的问题

已经入夜了,还是把这篇日志写下为好。从下午开始,一直调试5M40ZE64C4N,始终不能下载,试了很多种办法,也不行。在网上查了很多资料,但没有一个能够说清楚。马上就要放弃的时候,找到原因了。把它写下...

华为mu739来电唤不醒问题调试记录

问题描述:      在我的系统中,目前modem通过外部中断可以唤醒AP。当AP进入睡眠的时候,如果modem收到incoming call或者incoming sms或者其他网络事件,modem...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:xuan ze ping mu
举报原因:
原因补充:

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