Rev 10189 | Rev 11798 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 10189 | Rev 11784 | ||
---|---|---|---|
Line 22... | Line 22... | ||
22 | !if yes isin $date_exist |
22 | !if yes isin $date_exist |
23 | jdesc=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.work |
23 | jdesc=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.work |
24 | jday=!char 7 to 8 of $filename |
24 | jday=!char 7 to 8 of $filename |
25 | jmonth=!char 5 to 6 of $filename |
25 | jmonth=!char 5 to 6 of $filename |
26 | jyear=!char 1 to 4 of $filename |
26 | jyear=!char 1 to 4 of $filename |
- | 27 | jdate=!char 1 to 8 of $filename |
|
27 | nbredevoir=!itemcnt $date_todo |
28 | nbredevoir=!itemcnt $date_todo |
28 | !if $nbredevoir>0 |
29 | !if $nbredevoir>0 |
29 | !for i=1 to $nbredevoir |
30 | !for i=1 to $nbredevoir |
30 | ddesc$i=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.todo$i |
31 | ddesc$i=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.todo$i |
31 | tmp=!item $i of $date_todo |
32 | tmp=!item $i of $date_todo |
32 | dday$i=!char 7 to 8 of $tmp |
33 | dday$i=!char 7 to 8 of $tmp |
33 | dmonth$i=!char 5 to 6 of $tmp |
34 | dmonth$i=!char 5 to 6 of $tmp |
34 | dyear$i=!char 1 to 4 of $tmp |
35 | dyear$i=!char 1 to 4 of $tmp |
- | 36 | ddate$i=!char 1 to 8 of $tmp |
|
35 | !next i |
37 | !next i |
36 | !endif |
38 | !endif |
37 | s_nbdevoir=$nbredevoir |
39 | s_nbdevoir=$nbredevoir |
38 | old_date=$filename |
40 | old_date=$filename |
39 | !endif |
41 | !endif |
40 | !reset filename |
42 | !reset filename |
41 | !endif |
43 | !endif |
42 | !exit |
44 | !exit |
43 | !endif |
45 | !endif |
44 | 46 | ||
- | 47 | jyear=!char 1 to 4 of $jdate |
|
- | 48 | jmonth=!char 5 to 6 of $jdate |
|
- | 49 | jday=!char 7 to 8 of $jdate |
|
45 | jmonth=!char 2,3 of $[abs(floor($jmonth))+100] |
50 | jmonth=!char 2,3 of $[abs(floor($jmonth))+100] |
46 | jday=!char 2,3 of $[abs(floor($jday))+100] |
51 | jday=!char 2,3 of $[abs(floor($jday))+100] |
47 | jyear=!char -4 to -1 of $[abs(floor($jyear))+100000] |
52 | jyear=!char -4 to -1 of $[abs(floor($jyear))+100000] |
48 | !if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \ |
53 | !if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \ |
49 | and N notin $jmonth$jday$jyear |
54 | and N notin $jmonth$jday$jyear |
Line 63... | Line 68... | ||
63 | !endif |
68 | !endif |
64 | 69 | ||
65 | ltjdevoir=$empty |
70 | ltjdevoir=$empty |
66 | !if $s_nbdevoir>0 |
71 | !if $s_nbdevoir>0 |
67 | !for i=1 to $s_nbdevoir |
72 | !for i=1 to $s_nbdevoir |
- | 73 | dyear$i=!char 1 to 4 of $(ddate$i) |
|
- | 74 | dmonth$i=!char 5 to 6 of $(ddate$i) |
|
- | 75 | dday$i=!char 7 to 8 of $(ddate$i) |
|
68 | dmonth=!char 2,3 of $[abs(floor($(dmonth$i)))+100] |
76 | dmonth=!char 2,3 of $[abs(floor($(dmonth$i)))+100] |
69 | dday=!char 2,3 of $[abs(floor($(dday$i)))+100] |
77 | dday=!char 2,3 of $[abs(floor($(dday$i)))+100] |
70 | dyear=!char -4 to -1 of $[abs(floor($(dyear$i)))+100000] |
78 | dyear=!char -4 to -1 of $[abs(floor($(dyear$i)))+100000] |
71 | !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \ |
79 | !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \ |
72 | and $dyear$dmonth$dday>$jour \ |
80 | and $dyear$dmonth$dday>$jour \ |