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 |