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 |