Blame | Last modification | View Log | RSS feed
!set methtit2=ÖØÐ´´úÊýʽ
!set methtit=ÖØÐ´´úÊýʽ
!set methenv=ZZ QQ RR CC
!set methparmtype=parm algexp nocomma nonesting, function
!set methhelp=ͨ¹ý´úÊýÖØÐ´½øÐÐÍÆµ¼. Ö»ÔÊÐíʹÓÃËãÊõµÈ¼ÛÐÔ.
!if $wims_read_parm iswordof form check
!goto $wims_read_parm
!endif
!exit
:form
ÖØÐ´´úÊýʽ
!read deduc/methparm.phtml 1
Ϊ
!read deduc/methparm.phtml 2,20
!set methremark=Ö»ÔÊÐíʹÓÃËãÊõµÈ¼ÛÐÔ.
!exit
:check
!distribute items $methparmobj1 into data,exp
!read deduc/sub/checkzero ($exp)-($methparm2)
!if $out=$empty
error=bad_data
!exit
!endif
!if $out!=yes
error=unjustified
!exit
!endif
methexp=ÖØÐ´ \($exp)
newobject1=$methparm2
oldobject=1
!exit