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 \