Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
23 reyssat 1 
!!! fichier de re-initialisation !!!
2 
 
3 
    !if $exo=1
4 
      !if $etape=3
5 
        !if $propsrepList=$empty
6 
          propsrepList=$rpmat
7 
        !endif
8 
        !if $indicList_obj=$empty
9 
          indicList_obj=$rindic
10 
        !endif
11 
        rpmat=
12 
        rindic=
13 
      !endif
14 
 
15 
      !if $indicList_obj!=$empty
16 
        !for i=1 to $obsnb
17 
	  dinc=!trim $(indicList_obj[$i;])
18 
          dinc=!char 2 of $(indicList_obj[$i;])
19 
          !if $dinc=0
20 
            indicList_obj=!replace line number $i by (0,$ $) in $indicList_obj
21 
          !endif
22 
        !next i
23 
        Lnb=!linecnt $indicList_obj
24 
        !if $Lnb<$obsnb
25 
          !for i=1 to $[$obsnb-$Lnb]
26 
            !append line (0,$ $) to $indicList_obj
27 
          !next i
28 
        !endif
29 
      !endif
30 
    !endif
31 
 
32 
    !if $exo=2
33 
      !if $etape=4
34 
        !if $foncsrepList=$empty
35 
	  foncsrepList=$rfmat
36 
	!endif
37 
	!if $indicList_fonc=$empty
38 
          indicList_fonc=$rindic
39 
	!endif
40 
      !endif
41 
 
42 
      !if $indicList_fonc!=$empty
43 
        !for i=1 to $obsnb
44 
          !for j=1 to $foncsnb
45 
	    hlp=!trim $(indicList_fonc[$i;$j])
46 
            hlp=!char 2 of $hlp
47 
            !if $hlp=0
48 
              hlp=!replace item number $j by (0,$ $) in $(indicList_fonc[$i;])
49 
	      indicList_fonc=!replace line number $i by $hlp in $indicList_fonc
50 
	    !endif
51 
          !next j
52 
          Lnb=!itemcnt $(indicList_fonc[$i;])
53 
          !if $Lnb<$foncsnb
54 
            !for j=1 to $[$foncsnb-$Lnb]
55 
              hlp=!append item (0,$ $) to $(indicList_fonc[$i;])
56 
            !next j
57 
	    indicList_fonc=!replace line number $i by $hlp in $indicList_fonc
58 
          !endif
59 
        !next i
60 
      !endif
61 
    !endif
62 
 
63 
    !if $exo=3
64 
      !if $indicList_obj!=$empty
65 
        !for i=1 to $obsnb
66 
	  dinc=!trim $(indicList_obj[$i;])
67 
          dinc=!char 2 of $dinc
68 
          !if $dinc=0
69 
            indicList_obj=!replace line number $i by (0,$ $) in $indicList_obj
70 
          !endif
71 
        !next i
72 
        Lnb=!linecnt $indicList_obj
73 
        !if $Lnb<$obsnb
74 
          !for i=1 to $[$obsnb-$Lnb]
75 
            !append line (0,$ $) to $indicList_obj
76 
          !next i
77 
        !endif
78 
      !endif
79 
 
80 
      !if $indicList_fonc!=$empty
81 
        !for i=1 to $obsnb
82 
          !for j=1 to $foncsnb
83 
	    hlp=!trim $(indicList_fonc[$i;$j])
84 
            hlp=!char 2 to -2 of $hlp
85 
            !if $(hlp[1])=0
86 
              hlp=0,$ $
87 
	      hlp=!replace item number $j by ($hlp) in $(indicList_fonc[$i;])
88 
	      indicList_fonc=!replace line number $i by $hlp in $indicList_fonc
89 
	    !endif
90 
          !next j
91 
          Lnb=!itemcnt $(indicList_fonc[$i;])
92 
          !if $Lnb<$foncsnb
93 
            !for j=1 to $[$foncsnb-$Lnb]
94 
              hlp=!append item (0,$ $) to $(indicList_fonc[$i;])
95 
            !next j
96 
	    indicList_fonc=!replace line number $i by $hlp in $indicList_fonc
97 
          !endif
98 
        !next i
99 
      !endif
100 
    !endif
101 
 
102 
  !endif