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 21... Line 21...
21 
 
 21 
 
22 
!if $job2!=save
 22 
!if $job2!=save
23 
 !exit
 23 
 !exit
24 
!endif
 24 
!endif
25 
 
 25 
 
- 
 
 26 
jyear=!char 1 to 4 of $jdate
- 
 
 27 
jmonth=!char 5 to 6 of $jdate
- 
 
 28 
jday=!char 7 to 8 of $jdate
26 
jmonth=!char 2,3 of $[abs(floor($jmonth))+100]
 29 
jmonth=!char 2,3 of $[abs(floor($jmonth))+100]
27 
jday=!char 2,3 of $[abs(floor($jday))+100]
 30 
jday=!char 2,3 of $[abs(floor($jday))+100]
28 
jyear=!char -4 to -1 of $[abs(floor($jyear))+100000]
 31 
jyear=!char -4 to -1 of $[abs(floor($jyear))+100000]
29 
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
 32 
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
30 
	and N notin $jmonth$jday$jyear
 33 
	and N notin $jmonth$jday$jyear
Line 48... Line 51...
48 
 !exit
 51 
 !exit
49 
!endif
 52 
!endif
50 
 
 53 
 
51 
ltjdevoir=$date_todo
 54 
ltjdevoir=$date_todo
52 
!for i=1 to $s_nbdevoir
 55 
!for i=1 to $s_nbdevoir
- 
 
 56 
 dyear$i=!char 1 to 4 of $(ddate$i)
- 
 
 57 
 dmonth$i=!char 5 to 6 of $(ddate$i)
- 
 
 58 
 dday$i=!char 7 to 8 of $(ddate$i)
53 
 dmonth=!char 2,3 of $[abs(floor($(dmonth$i)))+100]
 59 
 dmonth=!char 2,3 of $[abs(floor($(dmonth$i)))+100]
54 
 dday=!char 2,3 of $[abs(floor($(dday$i)))+100]
 60 
 dday=!char 2,3 of $[abs(floor($(dday$i)))+100]
55 
 dyear=!char -4 to -1 of $[abs(floor($(dyear$i)))+100000]
 61 
 dyear=!char -4 to -1 of $[abs(floor($(dyear$i)))+100000]
56 
 !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
 62 
 !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
57 
	and N notin $dmonth$dday$dyear \
 63 
	and N notin $dmonth$dday$dyear \