Subversion Repositories wimsdev

Rev

Rev 17333 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17333 Rev 17469
Line 20... Line 20...
20 
  !if $lt_!=$empty
 20 
  !if $lt_!=$empty
21 
    listvalues=!append item $lt_ to $listvalues
 21 
    listvalues=!append item $lt_ to $listvalues
22 
  !endif
 22 
  !endif
23 
!next k_
 23 
!next k_
24 
listvalues=!listuniq $listvalues
 24 
listvalues=!listuniq $listvalues
- 
 
 25 
!if $listvalues=$empty
- 
 
 26 
  !exit
- 
 
 27 
!endif
25 
!! calculate compatible technical variable
 28 
!! calculate compatible technical variable
26 
nb_=!recordcnt wimshome/log/classes/$wims_class/.techvar
 29 
nb_=!recordcnt wimshome/log/classes/$wims_class/.techvar
27 
t_=!itemcnt $listvalues
 30 
t_=!itemcnt $listvalues
28 
!for k_=1 to $nb_
 31 
!for k_=1 to $nb_
29 
  dt_=!record $k_ of wimshome/log/classes/$wims_class/.techvar
 32 
  dt_=!record $k_ of wimshome/log/classes/$wims_class/.techvar
Line 33... Line 36...
33 
  t3_=!itemcnt $val_
 36 
  t3_=!itemcnt $val_
34 
  !if $t2_=$t_ and $t3_=$t2_
 37 
  !if $t2_=$t_ and $t3_=$t2_
35 
    listcompatibletechvar=!append item $name_ to $listcompatibletechvar
 38 
    listcompatibletechvar=!append item $name_ to $listcompatibletechvar
36 
  !endif
 39 
  !endif
37 
!next k_
 40 
!next k_
- 
 
 41 
!if $indivtechvar!=$empty
- 
 
 42 
  !reset t2_,t3_
- 
 
 43 
  t2_=!positionof item $indivtechvar in $tv_listlocalcode
- 
 
 44 
  t3_=!item $t2_ of $tv_listlocalname
- 
 
 45 
  !if $t2_!=$empty and $t3_ isitemof $listcompatibletechvar
- 
 
 46 
    !reset listvalues listcompatibletechvar
- 
 
 47 
  !endif
- 
 
 48 
!endif
38 
!exit
 49 
!exit
39 
 
 50 
 
40 
:clean
 51 
:clean
41 
!! ---- process to clean sheet
52 
!! ---- process to clean sheet
42 
data_=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
 53 
data_=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets