Subversion Repositories wimsdev

Rev

Rev 12330 | Rev 12339 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12330 Rev 12338
Line 1... Line -...
1 
 
 - 
 
2 
!bound step within 0,1 default 0
 1 
!bound step within 0,1 default 0
3 
 
 2 
 
- 
 
 3 
$(type)tot=!recordcnt wimshome/log/classes/$wims_class/$(type)/.$(type)index
4 
!if $step=0
 4 
!if $step=0
5 
  !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot
 5 
  !if NaN isin $[$($type)/10] or $($type)<1 or $($type)>$($(type)tot)
6 
    error=baddocnumber
 6 
    error=bad$(type)number $($type) NaN isin $[$($type)/10] or $($type)<1 or $($type)>$($(type)tot)
7 
    !exit
 7 
    !exit
8 
  !endif
 8 
  !endif
9 
  sdoc=$doc
 9 
  s$(type)=$($type)
10 
  sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex
 10 
  sh=!record $(s$(type)) of wimshome/log/classes/$wims_class/$(type)/.$(type)index
11 
  !distribute lines $sh into dir,param,title,desc,status,wksheet,autosheet
 11 
  !distribute lines $sh into dir,param,title,desc,status,wksheet,autosheet
12 
  !reset update
 12 
  !reset update
13 
  !exit
 13 
  !exit
14 
!endif
 14 
!endif
15 
 
 15 
 
Line 23... Line 23...
23 
    desc=!char 1 to $desc_limit of $desc
 23 
    desc=!char 1 to $desc_limit of $desc
24 
    title=!singlespace $title
 24 
    title=!singlespace $title
25 
    title=!char 1 to $title_limit of $title
 25 
    title=!char 1 to $title_limit of $title
26 
    !bound wksheet between 0 and $nbsheet default 0
 26 
    !bound wksheet between 0 and $nbsheet default 0
27 
    !bound status within 0,1 default 0
 27 
    !bound status within 0,1 default 0
28 
    sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex
 28 
    sh=!record $($type) of wimshome/log/classes/$wims_class/$(type)/.$(type)index
29 
    !distribute lines $sh into dir,param,b,b,b,b,autosheet
 29 
    !distribute lines $sh into dir,param,b,b,b,b,autosheet
30 
    newsh=$dir\
 30 
    newsh=$dir\
31 
$param\
 31 
$param\
32 
$title\
 32 
$title\
33 
$desc\
 33 
$desc\
34 
$status\
 34 
$status\
35 
$wksheet\
 35 
$wksheet\
36 
$autosheet
 36 
$autosheet
37 
    !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\
 37 
    !read proc/updatefield.proc wimshome/log/classes/$wims_class/$(type)/.$(type)index\
38 
$sdoc\
 38 
$(s$type)\
39 
$empty\
 39 
$empty\
40 
$newsh
 40 
$newsh
41 
    message=$name_savemodif
 41 
    message=$name_savemodif
42 
  !endif
 42 
  !endif
43 
!endif
 43 
!endif