Subversion Repositories wimsdev

!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