Subversion Repositories wimsdev

Rev

Rev 2413 | Rev 14298 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2413 Rev 2559
Line 1... Line 1...
1
!distribute items $wims_read_parm into record,_year,_month,_day
1
!distribute items $wims_read_parm into record,_year,_month,_day
2
 
-
 
-
 
2
!bound record within date,months default $
3
!set months=Ò»ÔÂ,¶þÔÂ,ÈýÔÂ,ËÄÔÂ,ÎåÔÂ,ÁùÔÂ,ÆßÔÂ,°ËÔÂ,¾ÅÔÂ,Ê®ÔÂ,ʮһÔÂ,Ê®¶þÔÂ
3
!set months=Ò»ÔÂ,¶þÔÂ,ÈýÔÂ,ËÄÔÂ,ÎåÔÂ,ÁùÔÂ,ÆßÔÂ,°ËÔÂ,¾ÅÔÂ,Ê®ÔÂ,ʮһÔÂ,Ê®¶þÔÂ
-
 
4
!if $record=$empty
-
 
5
  !exit
-
 
6
!endif
4
 
7
 
5
!goto $record
8
!goto $record
6
 
9
 
7
:date
10
:date
8
!set c_date=!nospace __$_year/$_month/$_day __
11
!set c_date=!nospace __$_year/$_month/$_day __