Subversion Repositories wimsdev

Rev

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

Rev 5247 Rev 5252
Line -... Line 1...
- 
 
 1 
!! some variable are global as expyear, creyear,months, v, v1
- 
 
 2 
!distribute items $wims_read_parm into r_
- 
 
 3 
!if $r_ isitemof 5
1 
!distribute items $wims_read_parm into r_,date_
4 
  !distribute items $wims_read_parm into r_,date_
- 
 
 5 
  !goto $r_
- 
 
 6 
!endif
- 
 
 7 
!if $r_ isitemof 6
- 
 
 8 
  !distribute items $wims_read_parm into r_,parm_hour,parm_min
- 
 
 9 
  !goto $r_
- 
 
 10 
!endif
- 
 
 11 
 
- 
 
 12 
!distribute items $wims_read_parm into r_,parm_day,parm_month,parm_year
- 
 
 13 
 
2 
!goto $r_
 14 
!goto $r_
3 
:1
 15 
:1
4 
!formselect jyear from $creyear to $expyear
 16 
!formselect $parm_year from $creyear to $expyear
5 
!formselect jmonth from 1 to 12 prompt $months
 17 
!formselect $parm_month from 1 to 12 prompt $months
6 
!formselect jday from 1 to 31
 18 
!formselect $parm_day from 1 to 31
7 
!exit
 - 
 
8 
 
 - 
 
9 
:2
 - 
 
10 
!formselect dyear$i from $creyear to $expyear
 - 
 
11 
!formselect dmonth$i from 1 to 12 prompt $months
 - 
 
12 
!formselect dday$i from 1 to 31
 - 
 
13 
!exit
 - 
 
14 
 
 - 
 
15 
:21
 - 
 
16 
!formselect byear$i from $creyear to $expyear
 - 
 
17 
!formselect bmonth$i from 1 to 12 prompt $months
 - 
 
18 
!formselect bday$i from 1 to 31
 - 
 
19 
!exit
 19 
!exit
20 
 
 20 
 
21 
:3
 21 
:3
22 
!formselect jyear from $creyear to $expyear
 22 
!formselect $parm_year from $creyear to $expyear
23 
!formselect jmonth from 1 to 12 prompt $months
 23 
!formselect $parm_month from 1 to 12 prompt $months
24 
!formselect jday list 0,$v prompt ---,$v
 24 
!formselect $parm_day list 0,$v prompt ---,$v
25 
!exit
 25 
!exit
26 
 
 26 
 
27 
:4
 27 
:4
28 
!formselect jyear2 list 0,$v1 prompt ---,$v1
 28 
!formselect $parm_year list 0,$v1 prompt ---,$v1
29 
!formselect jmonth2 from 0 to 12 prompt ---,$months
 29 
!formselect $parm_month from 0 to 12 prompt ---,$months
30 
!formselect jday2 list 0,$v prompt ---,$v
 30 
!formselect $parm_day list 0,$v prompt ---,$v
31 
!exit
 31 
!exit
32 
 
 32 
 
33 
:5
 33 
:5
34 
!let day=!char 7 to 8 of $date_
 34 
!let day=!char 7 to 8 of $date_
35 
!let month=!char 5 to 6 of $date_
 35 
!let month=!char 5 to 6 of $date_
36 
!let year=!char 1 to 4 of $date_
 36 
!let year=!char 1 to 4 of $date_
Line 40... Line 40...
40 
 $month/$day
 40 
 $month/$day
41 
!endif
 41 
!endif
42 
!exit
 42 
!exit
43 
 
 43 
 
44 
:6
 44 
:6
45 
!formselect bhour$i list 08,09,10,11,12,13,14,15,16,17,18,19,20
 45 
!formselect $parm_hour list 08,09,10,11,12,13,14,15,16,17,18,19,20
46 
!formselect bmin$i list 00,05,10,15,20,25,30,35,40,45,50,55
 - 
 
47 
!exit
 - 
 
48 
 
 - 
 
49 
:7
 - 
 
50 
!formselect ehour$i list 08,09,10,11,12,13,14,15,16,17,18,19,20
 - 
 
51 
!formselect emin$i list 00,05,10,15,20,25,30,35,40,45,50,55
 46 
!formselect $parm_min list 00,05,10,15,20,25,30,35,40,45,50,55
52 
!exit
 47 
!exit