Subversion Repositories wimsdev

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
5252 bpr 1
!! some variable are global as expyear, creyear,months, v, v1
2
!distribute items $wims_read_parm into r_
3
!if $r_ isitemof 5
9598 guerimand 4
  !distribute items $wims_read_parm into r_,date_,option_
5252 bpr 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
10706 bpr 11
!if $r_ iswordof 1 3
12
  !if NaN isin $expyear
13
    !set expyear=!char 1 to 4 of $wims_now
14
  !endif
15
  !if NaN isin $creyear
16
    !set creyear=!char 1 to 4 of $wims_now
17
  !endif
18
!endif
8142 guerimand 19
!distribute items $wims_read_parm into r_,parm_day,parm_month,parm_year,parm_dday,parm_dmonth,parm_dyear
20
!let $parm_day=$[$($parm_day)]
21
!let $parm_month=$[$($parm_month)]
22
!let $parm_year=$[$($parm_year)]
5252 bpr 23
 
2241 bpr 24
!goto $r_
2199 bpr 25
:1
5252 bpr 26
!formselect $parm_day from 1 to 31
27
!formselect $parm_month from 1 to 12 prompt $months
28
!formselect $parm_year from $creyear to $expyear
2199 bpr 29
!exit
30
 
31
:3
5252 bpr 32
!formselect $parm_day list 0,$v prompt ---,$v
33
!formselect $parm_month from 1 to 12 prompt $months
34
!formselect $parm_year from $creyear to $expyear
2199 bpr 35
!exit
36
 
37
:4
5252 bpr 38
!formselect $parm_day list 0,$v prompt ---,$v
39
!formselect $parm_month from 0 to 12 prompt ---,$months
10706 bpr 40
!formselect $parm_year list 0,$v1 prompt ---,$v1
2241 bpr 41
!exit
42
 
43
:5
44
!let day=!char 7 to 8 of $date_
45
!let month=!char 5 to 6 of $date_
46
!let year=!char 1 to 4 of $date_
9598 guerimand 47
!if withyear isin $option_
2241 bpr 48
 $day/$month/$year
9598 guerimand 49
!else
2241 bpr 50
 $day/$month
51
!endif
5247 bpr 52
!exit
53
 
54
:6
5252 bpr 55
!formselect $parm_hour list 08,09,10,11,12,13,14,15,16,17,18,19,20
56
!formselect $parm_min list 00,05,10,15,20,25,30,35,40,45,50,55
5247 bpr 57
!exit