Rev 15859 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
15859 | guerimand | 1 | !! this file search if exists dependancies or individualisation of sheet with technical variable |
2 | !! if a number is in wims_read_parm it will search only in this sheet if not search in all sheet |
||
3 | !! output : |
||
4 | !! sheet_dependancy : list of number of sheet with active dependancies |
||
5 | !! sheet_indivtechvar : list of number of sheet with individualisation of sheet with technical variable |
||
6 | |||
7 | nbsh_=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
||
8 | list_=$wims_read_parm |
||
9 | !bound list_ between 1 and $nbsh_ default $empty |
||
10 | !if $list_=$empty |
||
11 | list_=!values v for v=1 to $nbsh_ |
||
12 | !endif |
||
13 | !reset sheet_dependancy sheet_indivtechvar |
||
14 | !for k_ in $list_ |
||
15 | data_=!record $k_ of wimshome/log/classes/$wims_class/sheets/.sheets |
||
16 | data_=!line 10 of $data_ |
||
17 | !if $data_!=$empty and $data_!=0 |
||
18 | sheet_indivtechvar=!append item $k_ to $sheet_indivtechvar |
||
19 | !endif |
||
20 | nbexo_=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$k_ |
||
21 | j_=1 |
||
22 | t_=$empty |
||
23 | !while $j_<=$nbexo_ and $t_=$empty |
||
24 | data_=!record $j_ of wimshome/log/classes/$wims_class/sheets/.sheet$k_ |
||
25 | t_=!line 7 of $data_ |
||
26 | !increase j_ |
||
27 | !endwhile |
||
15861 | guerimand | 28 | !if $t_!=$empty |
15859 | guerimand | 29 | sheet_dependancy=!append item $k_ to $sheet_dependancy |
30 | !endif |
||
15861 | guerimand | 31 | !next k_ |