项目总结.doc

文档介绍：2009-6-8
PS - 工建- 财务结算规则维护
1、结算规则增强(对tcode CJ12结算规则的增强)
增强点 Function Module “ K_SETTLEMENT_RULE_CALL”
核心代码:
(产生结算规则界面)
DATA: LWA_ADD_PARA TYPE COBR_INFO,
LWA_I_JVINFO TYPE JVINFO.
DATA: LC_XDATASAVE TYPE CHAR1,
LC_XDELIVERY TYPE CHAR1,
LC_XNORULE TYPE CHAR1,
LC_XSAVE TYPE CHAR1.
LWA_ADD_PARA-KOKRS = 'L400'.
LWA_ADD_PARA-BUKRS = 'L40F'.
LWA_ADD_PARA-PRCTR = 'L40F0200'.
LWA_I_JVINFO-PBUKR = 'L40F'.
CALL FUNCTION 'K_SETTLEMENT_RULE_CALL'
EXPORTING
ADD_PARA = LWA_ADD_PARA
APROF = 'ZPS001'
* AVTYP = ' '
* IBUREG = ' '
MODE = 'UPDA'
OBJNR = 'PR00002411'
XFUNCSAVE = 'X' "save
* XREVENUE = ''
* XPLINT = ' '
* IVPRO = ' '
* = ' '
* I_VERSN =
I_JVINFO = LWA_I_JVINFO
* I_FUNC_PREV_OBJECT = ' '
* I_NO_PARAM_AUTH = ' '
* I_FUNC_PREV_NEXT =
* I_CALL_REC = ' '
IMPORTING
* EBUREG =
XDATASAVE = LC_XDATASAVE
XDELIVERY = LC_XDELIVERY
XNORULE = LC_XNORULE
XSAVE = LC_XSAVE
* E_EXIT_CODE =
* EXCEPTIONS
* _UNKNOWN = 1
* INTERNAL_PROBLEMS = 2
* OTHERS = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF LC_XDATASAVE = 'X'.
PERFORM FRM_SAVE.
ENDIF.
IF SY-SUBRC = 0.
ENDIF.
(增强)
ENHANCEMENT 4 ZGJPSEI01. "active version
TYPES:BEGIN OF TYP_TVARVC,
NAME TYPE RVARI_VNAM,
SIGN TYPE TVARV_SIGN,
OPTI TYPE TVARV_OPTI,
LOW TYPE TVARV_VAL,
HIGH TYPE TVARV_VAL,
END OF TYP_TVARVC.
DATA: LIT_TVARVC TYPE STANDARD TABLE OF TYP_TVARVC,
LWA_TVARVC TYPE TYP_TVARVC.
RANGES:LR_TCODE FOR LWA_TVARVC-LOW.
SELECT NAME
SIGN
OPTI
LOW
HIGH
INTO TABLE LIT_TVARVC
FROM TVARVC
WHERE NAME = 'ZGJPSSV01'.
LOOP AT LIT_TVARVC INTO LWA_TVARVC.
LR_TCODE-SIGN = LWA_TVARVC-SIGN.
LR_TCODE-OPTION = LWA_TVARVC-OPTI.
LR_TCODE-LOW = LWA_TVARVC-LOW.
LR_TCODE-HIGH = LWA_TVARVC-HIGH.
APPEND LR_TCODE.
CLEAR LR_TCODE.
ENDLOOP.
IF SY-TCODE IN LR_TCODE.
MESSAGE '不能操作该功能,请与相关财务人员联系!' TYPE 'S'.
EXIT. (注意此用法)
ENDIF.
2、创建系统变量