Subversion Repositories wimsdev

Rev

Rev 15763 | Rev 15910 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
15763 guerimand 1
!! job to make/save individualisation of sheet with a technical variable.
2
 
3
nb=!positionof item $indivtechvar in $tv_listcode
4
don=!line $nb of $tv_listtechvar
5
!distribute item $don into name,classid,number
6
don=!record $number of wimshome/log/classes/$classid/.techvar
7
listval=!line 2 of $don
8
nb_val=!itemcnt $listval
9
 
10
!if $save_indiv!=$empty
11
!! save data in .sheet$sheet
12
  recdata=!record 0 of wimshome/log/classes/$wims_class/sheets/.sheet$sheet 
13
  !writefile wimshome/sessions/$wims_session/.sheettmp $recdata
14
  !for i=1 to $exocnt
15
    recdata=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$sheet
16
    indiv$i=!listintersect $(indiv$i) and $listval
17
    recdata=!replace internal line number 11 by $(indiv$i) in $recdata\
18
$empty\
19
$empty\
20
$empty\
21
$empty\
22
$empty\
23
$empty\
24
$empty\
25
$empty\
26
$empty\
27
$empty
15789 guerimand 28
    recdata=!line 1 to 11 of $recdata
15763 guerimand 29
    !appendfile wimshome/sessions/$wims_session/.sheettmp :$recdata
30
  !next i
31
  !reset save_indiv
32
  !sh rm -f $wims_home/log/classes/$wims_class/sheets/.sheet$sheet;\
33
      mv $wims_home/sessions/$wims_session/.sheettmp $wims_home/log/classes/$wims_class/sheets/.sheet$sheet;
34
!endif