Subversion Repositories wimsdev

Rev

Rev 12555 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
7290 bpr 1 
!!
5204 guerimand 2 
!! update a field of an exo of a sheet
3 
!!
4 
!! needed information :
5 
!! sheet : num of modify sheet
6 
!! exo : num of exo modifiy in the sheet
7290 bpr 7 
!! update_field : is the number of the field to be modified.
5204 guerimand 8 
!! update_content : new content of the line
15763 guerimand 9 
number_field=11
23 reyssat 10 
ecnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
11 
!for e=1 to $ecnt
12555 bpr 12 
  exo_$e=!record $e of wimshome/log/classes/$wims_class/sheets/.sheet$sheet
13 
  exo_$e=!line 1 to $number_field of $(exo_$e)\
23 reyssat 14 
\
15 
\
16 
\
17 
\
18 
\
19 
\
20 
\
21 
\
4530 bpr 22 
\
12316 bpr 23 
\
15763 guerimand 24 
\
23 reyssat 25 
 
26 
!next e
27 
!if $update_field>=0
12555 bpr 28 
  !if $update_field>0
29 
    tmp=!linecnt $(exo_$exo)
30 
    !if $update_field > $tmp
31 
      !for tmp2 = 1 to $[$update_field-$tmp]
32 
        exo_$exo=!append line $ $ to $(exo_$exo)
33 
      !next
34 
    !endif
35 
    exo_$exo=!replace line number $update_field by $update_content in $(exo_$exo)
36 
  !else
37 
    exo_$exo=$update_content
4863 bpr 38 
  !endif
23 reyssat 39 
!endif
40 
!writefile wimshome/log/classes/$wims_class/sheets/.sheet$sheet
41 
!for e=1 to $ecnt
12555 bpr 42 
  !if $e!=$exo or $update_field>=0
43 
    ef=!line 1 to $number_field of $(exo_$e)
44 
    !appendfile wimshome/log/classes/$wims_class/sheets/.sheet$sheet :$ef
45 
  !endif
23 reyssat 46 
!next e