Subversion Repositories wimsdev

!bound step within 0,1 default 0

$(type)tot=!recordcnt wimshome/log/classes/$wims_class/$(type)/.$(type)index

!if $step=0

  !if NaN isin $[$($type)/10] or $($type)<1 or $($type)>$($(type)tot)

    error=bad$(type)number $($type) NaN isin $[$($type)/10] or $($type)<1 or $($type)>$($(type)tot)

    !exit

  !endif

  s$(type)=$($type)

  sh=!record $(s$(type)) of wimshome/log/classes/$wims_class/$(type)/.$(type)index

  !distribute lines $sh into dir,param,title,desc,status,wksheet,autosheet

  !reset update

  !exit

!endif

!if $step=1

  !if $update!=$empty

    job=deldoc

    step=0

    !changeto $job.proc

  !else

    desc=!singlespace $desc

    desc=!char 1 to $desc_limit of $desc

    title=!singlespace $title

    title=!char 1 to $title_limit of $title

    !bound wksheet between -1 and $nbsheet default 0

    !bound status within 0,1 default 0

    sh=!record $(s$type) of wimshome/log/classes/$wims_class/$(type)/.$(type)index

    !distribute lines $sh into dir,param,b,b,b,b,autosheet

    newsh=$dir\

$param\

$title\

$desc\

$status\

$wksheet\

$autosheet

    !read proc/updatefield.proc wimshome/log/classes/$wims_class/$(type)/.$(type)index\

$(s$type)\

$empty\

$newsh

    message=$name_savemodif

  !endif

!endif