Subversion Repositories wimsdev

Rev

Rev 17323 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17323 Rev 17385
Line 11... Line 11...
11 
!distribute line $wims_read_parm into default_,name_,date_
 11 
!distribute line $wims_read_parm into default_,name_,date_
12 
!distribute item $date_ into mdate_,Mdate_
 12 
!distribute item $date_ into mdate_,Mdate_
13 
 
 13 
 
14 
!reset option_ y_ m_ d_
 14 
!reset option_ y_ m_ d_
15 
!if $mdate_!=$empty
 15 
!if $mdate_!=$empty
- 
 
 16 
  !set mdate_=!text select char 0123456789 in $mdate_
16 
  !set y_=!char 1 to 4 of $mdate_
 17 
  !set y_=!char 1 to 4 of $mdate_
17 
  !set m_=!char 5 to 6 of $mdate_
 18 
  !set m_=!char 5 to 6 of $mdate_
18 
  !set d_=!char 7 to 8 of $mdate_
 19 
  !set d_=!char 7 to 8 of $mdate_
19 
  !set option_=$option_ min="$y_-$m_-$d_"
 20 
  !set option_=$option_ min="$y_-$m_-$d_"
20 
  !reset y_ m_ d_
 21 
  !reset y_ m_ d_
21 
!endif
 22 
!endif
22 
!if $Mdate_!=$empty
 23 
!if $Mdate_!=$empty
- 
 
 24 
  !set Mdate_=!text select char 0123456789 in $Mdate_
23 
  !set y_=!char 1 to 4 of $Mdate_
 25 
  !set y_=!char 1 to 4 of $Mdate_
24 
  !set m_=!char 5 to 6 of $Mdate_
 26 
  !set m_=!char 5 to 6 of $Mdate_
25 
  !set d_=!char 7 to 8 of $Mdate_
 27 
  !set d_=!char 7 to 8 of $Mdate_
26 
  !set option_=$option_ max="$y_-$m_-$d_"
 28 
  !set option_=$option_ max="$y_-$m_-$d_"
27 
  !reset y_ m_ d_
 29 
  !reset y_ m_ d_
28 
!endif
 30 
!endif
29 
!if $default_!=$empty
 31 
!if $default_!=$empty
- 
 
 32 
  !set default_=!text select char 0123456789 in $default_
30 
  !set y_=!char 1 to 4 of $default_
 33 
  !set y_=!char 1 to 4 of $default_
31 
  !set m_=!char 5 to 6 of $default_
 34 
  !set m_=!char 5 to 6 of $default_
32 
  !set d_=!char 7 to 8 of $default_
 35 
  !set d_=!char 7 to 8 of $default_
33 
  !set option_=$option_ value="$y_-$m_-$d_"
 36 
  !set option_=$option_ value="$y_-$m_-$d_"
34 
!endif
 37 
!endif