Subversion Repositories wimsdev

Rev

Rev 15820 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
3892 guerimand 2
!bound numshowsheet between integer 1 and $sheetcnt default 1
23 reyssat 3
tmp=!record $numshowsheet of wimshome/log/classes/$wims_class/sheets/.sheets
4
sh_title=!line 3 of $tmp
5
nbexo=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$numshowsheet
15763 guerimand 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
15831 guerimand 22
require=!getscorerequire sheet=$numshowsheet
23 reyssat 23
usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist