Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
1971 guerimand 1 
!!!### langage independant
2 
!!
23 reyssat 3 
# update_field is number of field to update
4 
# update_content is the new content.
5 
 
6 
scnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
7 
!for s=1 to $scnt
12701 bpr 8 
  sheet_$s=!record $s of wimshome/log/classes/$wims_class/sheets/.sheets
9 
  sheet_$s=!line 1 to 8 of $(sheet_$s)\
23 reyssat 10 
\
11 
\
12 
\
13 
\
14 
\
15 
\
16 
 
17 
!next s
18 
!if $update_field!=0
12701 bpr 19 
  sheet_$sheet=!replace line number $update_field by $update_content in $(sheet_$sheet)
23 reyssat 20 
!else
12701 bpr 21 
  !mexec sheetshift.sh
23 reyssat 22 
!endif
23 
!writefile wimshome/log/classes/$wims_class/sheets/.sheets
24 
!for s=1 to $scnt
12701 bpr 25 
  !if $s!=$sheet or $update_field!=0
26 
    sf=!line 1 to 8 of $(sheet_$s)
27 
    !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$sf
28 
  !endif
23 reyssat 29 
!next s