xuan ze ping mu



*&---------------------------------------------------------------------*
*& 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