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_
14298 guerimand 3
!let land_exists=yes
5252 bpr 4
!if $r_ isitemof 5
9598 guerimand 5
  !distribute items $wims_read_parm into r_,date_,option_
5252 bpr 6
  !goto $r_
7
!endif
8
!if $r_ isitemof 6
9
  !distribute items $wims_read_parm into r_,parm_hour,parm_min
10
  !goto $r_
11
!endif
12
 
13
!distribute items $wims_read_parm into r_,parm_day,parm_month,parm_year
8142 guerimand 14
  !let jyear=!char 1 to 4 of $jour_begin
15
  !let jmonth=!char 5 to 6 of $jour_begin
16
  !let jday=!char 7 to 8 of $jour_begin
5252 bpr 17
 
2241 bpr 18
!goto $r_
2199 bpr 19
:1
5252 bpr 20
!formselect $parm_year from $creyear to $expyear
21
!formselect $parm_month from 1 to 12 prompt $months
22
!formselect $parm_day from 1 to 31
2199 bpr 23
!exit
24
 
25
:3
5252 bpr 26
!formselect $parm_year from $creyear to $expyear
27
!formselect $parm_month from 1 to 12 prompt $months
28
!formselect $parm_day list 0,$v prompt ---,$v
5247 bpr 29
!exit
2199 bpr 30
 
31
:4
5252 bpr 32
!formselect $parm_year list 0,$v1 prompt ---,$v1
33
!formselect $parm_month from 0 to 12 prompt ---,$months
34
!formselect $parm_day list 0,$v prompt ---,$v
2241 bpr 35
!exit
36
 
37
:5
38
!let day=!char 7 to 8 of $date_
39
!let month=!char 5 to 6 of $date_
40
!let year=!char 1 to 4 of $date_
9598 guerimand 41
!if withyear isin $option_  
2241 bpr 42
 $year/$month/$day
43
!else 
44
 $month/$day
45
!endif
5247 bpr 46
!exit
47
 
48
:6
5252 bpr 49
!formselect $parm_hour list 08,09,10,11,12,13,14,15,16,17,18,19,20
50
!formselect $parm_min list 00,05,10,15,20,25,30,35,40,45,50,55
5247 bpr 51
!exit