Rev 12947 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 12947 | guerimand | 1 | |
| 232 | bpr | 2 | sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
| 3912 | bpr | 3 | !bound numshowsheet between integer 1 and $sheetcnt default 1 |
| 2064 | bpr | 4 | !set shs_title= |
| 232 | bpr | 5 | nbexototal=0 |
| 6 | !for j = 1 to $sheetcnt |
||
| 7 | nbexo$j=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$j |
||
| 8 | nbexototal=$[$nbexototal + $(nbexo$j)] |
||
| 1089 | bpr | 9 | t_=!record $j of wimshome/log/classes/$wims_class/sheets/.sheets |
| 2064 | bpr | 10 | !distribute line $t_ into a_,bidon,ti_ |
| 1089 | bpr | 11 | a_=!char 1 of $a_ |
| 12 | activ=!append item $a_ to $activ |
||
| 12488 | bpr | 13 | shs_title=!append line $ti_ to $shs_title |
| 232 | bpr | 14 | !next |
| 2064 | bpr | 15 | shs_title=!replace internal , by , in $shs_title |
| 16 | shs_title=!lines2items $shs_title |
||
| 17 | |||
| 18 | !set activlist=!positionof item 0 in $activ |
||
| 19 | !set listtot=!makelist x for x = 1 to $sheetcnt |
||
| 20 | !set activlist=!listcomplement $activlist in $listtot |
||
| 21 | !set activlist_cnt=!itemcnt $activlist |
||
| 22 |