Subversion Repositories wimsdev

Rev

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