Subversion Repositories wimsdev

Rev

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_