Subversion Repositories wimsdev

Rev

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

Rev 8311 Rev 15763
Line 1... Line 1...
1 
sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 1 
sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
2 
!bound numshowsheet between integer 1 and $sheetcnt default 1
 2 
!bound numshowsheet between integer 1 and $sheetcnt default 1
3 
tmp=!record $numshowsheet of wimshome/log/classes/$wims_class/sheets/.sheets
 3 
tmp=!record $numshowsheet of wimshome/log/classes/$wims_class/sheets/.sheets
4 
sh_title=!line 3 of $tmp
 4 
sh_title=!line 3 of $tmp
5 
nbexo=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$numshowsheet
 5 
nbexo=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$numshowsheet
- 
 
 6 
!! ----- definition for individual sheet with technical variable
- 
 
 7 
indtechvar=!line 10 of $tmp
- 
 
 8 
!if $indtechvar!=$empty
- 
 
 9 
  !reset list_indiv
- 
 
 10 
  !for k=1 to $nbexo
- 
 
 11 
    tmp=!record $k of wimshome/log/classes/$wims_class/sheets/.sheet$numshowsheet
- 
 
 12 
    tmp=!line 11 of $tmp
- 
 
 13 
    list_indiv=!append line $tmp to $list_indiv
- 
 
 14 
  !next k
- 
 
 15 
!endif
- 
 
 16 
!if / isin $wims_class
- 
 
 17 
  dirtechvar=$wims_superclass
- 
 
 18 
!else
- 
 
 19 
  dirtechvar=$wims_class
- 
 
 20 
!endif
- 
 
 21 
!! ------ end of definition
6 
require=!record 0 of wimshome/log/classes/$wims_class/sheets/.require
 22 
require=!record 0 of wimshome/log/classes/$wims_class/sheets/.require
7 
require=!line $numshowsheet of $require
 23 
require=!line $numshowsheet of $require
8 
usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
 24 
usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist