Subversion Repositories wimsdev

Rev

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

Rev 5603 Rev 12429
Line 2... Line 2...
2 
!bound comp between 1 and $livret_nbcomp default $empty
 2 
!bound comp between 1 and $livret_nbcomp default $empty
3 
!if $comp=$empty
 3 
!if $comp=$empty
4 
 !reset cf_abandon
 4 
  !reset cf_abandon
5 
 job=addcomp
 5 
  job=addcomp
6 
 !read addcomp.proc
 6 
  !read addcomp.proc
7 
 !exit
 7 
  !exit
8 
!endif
 8 
!endif
9 
 
 9 
 
10 
tmp=!record $comp of $livret_dir/.comps
 10 
tmp=!record $comp of $livret_dir/.comps
11 
!distribute line $tmp into mem_title,mem_nbpalier
 11 
!distribute line $tmp into mem_title,mem_nbpalier
12 
mem_palier=!record $palier of $livret_dir/.comp$comp
 12 
mem_palier=!record $palier of $livret_dir/.comp$comp
13 
!distribute line $mem_palier into mem_palier,bla
 13 
!distribute line $mem_palier into mem_palier,bla
14 
 
 14 
 
15 
!if $cf_set!=$empty
 15 
!if $cf_set!=$empty
16 
 donnees=$empty
 16 
  donnees=$empty
17 
 !for k=1 to $mem_nbpalier
 17 
  !for k=1 to $mem_nbpalier
18 
  d=!record $k of $livret_dir/.comp$comp
 18 
    d=!record $k of $livret_dir/.comp$comp
19 
  !if $k!=$palier
 19 
    !if $k!=$palier
20 
   donnees=!append line :$d to $donnees
 20 
      donnees=!append line :$d to $donnees
21 
  !endif
 21 
    !endif
22 
 !next k
 22 
  !next k
23 
 !writefile $livret_dir/.comp$comp $donnees
 23 
  !writefile $livret_dir/.comp$comp $donnees
24 
 donnees=$empty
 24 
  donnees=$empty
25 
 !for k=1 to $livret_nbcomp
 25 
  !for k=1 to $livret_nbcomp
26 
  d=!record $k of $livret_dir/.comps
 26 
    d=!record $k of $livret_dir/.comps
27 
  !if $k=$comp
 27 
    !if $k=$comp
28 
   d=!replace line number 2 by $[$mem_nbpalier-1] in $d
 28 
      d=!replace line number 2 by $[$mem_nbpalier-1] in $d
29 
  !endif
 29 
    !endif
30 
  donnees=!append line :$d to $donnees
 30 
    donnees=!append line :$d to $donnees
31 
 !next k
 31 
  !next k
32 
 !writefile $livret_dir/.comps $donnees
 32 
  !writefile $livret_dir/.comps $donnees
33 
 job=addcomp
 33 
  job=addcomp
34 
 !reset cf_set
 34 
  !reset cf_set
35 
 !read addcomp.proc
 35 
  !read addcomp.proc
36 
 !read mkindexsheet.proc
 36 
  !read mkindexsheet.proc
37 
!endif
 37 
!endif