Subversion Repositories wimsdev

Rev

Rev 15789 | Rev 15916 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15789 Rev 15910
Line 1... Line 1...
1 
!! job to make/save individualisation of sheet with a technical variable.
 1 
!! job to make/save individualisation of sheet with a technical variable.
2 
 
 2 
 
- 
 
 3 
!if $activesheet=0
3 
nb=!positionof item $indivtechvar in $tv_listcode
 4 
  nb=!positionof item $indivtechvar in $tv_listcode
4 
don=!line $nb of $tv_listtechvar
 5 
  don=!line $nb of $tv_listtechvar
5 
!distribute item $don into name,classid,number
 6 
  !distribute item $don into name,classid,number
6 
don=!record $number of wimshome/log/classes/$classid/.techvar
 7 
  don=!record $number of wimshome/log/classes/$classid/.techvar
7 
listval=!line 2 of $don
 8 
  listval=!line 2 of $don
- 
 
 9 
!else
- 
 
 10 
  listval=!record $sheet of wimshome/log/classes/$wims_class/sheets/.vars
- 
 
 11 
  listval=!word 3 to -1 of $listval
- 
 
 12 
  listval=!words2items $listval
- 
 
 13 
!endif
8 
nb_val=!itemcnt $listval
 14 
nb_val=!itemcnt $listval
- 
 
 15 
list_require=!values 10*v for v=0 to $require_limit
9 
 
 16 
 
10 
!if $save_indiv!=$empty
 17 
!if $save_indiv!=$empty and $activesheet=0
11 
!! save data in .sheet$sheet
 18 
!! save data in .sheet$sheet
12 
  recdata=!record 0 of wimshome/log/classes/$wims_class/sheets/.sheet$sheet
19 
  recdata=!record 0 of wimshome/log/classes/$wims_class/sheets/.sheet$sheet
13 
  !writefile wimshome/sessions/$wims_session/.sheettmp $recdata
 20 
  !writefile wimshome/sessions/$wims_session/.sheettmp $recdata
- 
 
 21 
  num=0
14 
  !for i=1 to $exocnt
 22 
  !for i=1 to $exocnt
15 
    recdata=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$sheet
 23 
    recdata=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$sheet
16 
    indiv$i=!listintersect $(indiv$i) and $listval
 24 
    indiv$i=!listintersect $(indiv$i) and $listval
17 
    recdata=!replace internal line number 11 by $(indiv$i) in $recdata\
 25 
    recdata=!replace line number 11 by $(indiv$i) in $recdata\
18 
$empty\
 26 
$empty\
19 
$empty\
 27 
$empty\
20 
$empty\
 28 
$empty\
21 
$empty\
 29 
$empty\
22 
$empty\
 30 
$empty\
23 
$empty\
 31 
$empty\
24 
$empty\
 32 
$empty\
25 
$empty\
 33 
$empty\
26 
$empty\
 34 
$empty\
27 
$empty
 35 
$empty
- 
 
 36 
    !! save require and weight in fonction of techvar values
- 
 
 37 
    oldrequire=!line 3 of $recdata
- 
 
 38 
    oldweight=!line 4 of $recdata
- 
 
 39 
    defaultr=!row 1 of $oldrequire
- 
 
 40 
    defaultw=!row 1 of $oldrequire
- 
 
 41 
    req=$defaultr
- 
 
 42 
    wei=$defaultw
- 
 
 43 
    !for k=1 to $nb_val
- 
 
 44 
      !increase num
- 
 
 45 
      !bound require$num within $list_require default $defaultr
- 
 
 46 
      !if $(require$num)!=$defaultr
- 
 
 47 
        req=$req;$(listval[$k]),$(require$num)
- 
 
 48 
      !endif
- 
 
 49 
      !bound weight$num between $min_weight and $max_weight default $defaultw
- 
 
 50 
      !if $(weight$num)!=$defaultw
- 
 
 51 
        wei=$wei;$(listval[$k]),$(weight$num)
- 
 
 52 
      !endif
- 
 
 53 
    !next k
- 
 
 54 
    recdata=!replace line number 3 by $req in $recdata
- 
 
 55 
    recdata=!replace line number 4 by $wei in $recdata
28 
    recdata=!line 1 to 11 of $recdata
 56 
    recdata=!line 1 to 11 of $recdata
29 
    !appendfile wimshome/sessions/$wims_session/.sheettmp :$recdata
 57 
    !appendfile wimshome/sessions/$wims_session/.sheettmp :$recdata
30 
  !next i
 58 
  !next i
31 
  !reset save_indiv
 59 
  !reset save_indiv
32 
  !sh rm -f $wims_home/log/classes/$wims_class/sheets/.sheet$sheet;\
 60 
  !sh rm -f $wims_home/log/classes/$wims_class/sheets/.sheet$sheet;\