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 __