Subversion Repositories wimsdev

Rev

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 \