Subversion Repositories wimsdev

Rev

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

Rev 9629 Rev 9634
Line 14... Line 14...
14
nbsheet=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
14
nbsheet=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
15
 
15
 
16
 
16
 
17
!read $job.proc
17
!read $job.proc
18
 
18
 
-
 
19
!if $job=prop and $nbsheet>0
-
 
20
listsheetname=$empty
-
 
21
!for k=1 to $nbsheet
-
 
22
 t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
-
 
23
 t=!line 3 of $t
-
 
24
 listsheetname=!append item $k : $t to $listsheetname
-
 
25
!next k