Subversion Repositories wimsdev

Rev

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

Rev 14105 Rev 14109
Line 10... Line 10...
10 
 
 10 
 
11 
!distribute item $wims_read_parm into type_,num_,target_,source_
 11 
!distribute item $wims_read_parm into type_,num_,target_,source_
12 
!if $type_=sheet
 12 
!if $type_=sheet
13 
  li_=7
 13 
  li_=7
14 
!else
 14 
!else
15 
  li_=3
 15 
  li_=4
16 
!endif
 16 
!endif
17 
ecnt_=!recordcnt wimshome/log/classes/$wims_class/$(type_)s/.$(type_)$num_
 17 
ecnt_=!recordcnt wimshome/log/classes/$wims_class/$(type_)s/.$(type_)$num_
18 
!for e_=1 to $ecnt_
 18 
!for e_=1 to $ecnt_
19 
  field_$e_=!record $e_ of wimshome/log/classes/$wims_class/$(type_)s/.$(type_)$num_
 19 
  field_$e_=!record $e_ of wimshome/log/classes/$wims_class/$(type_)s/.$(type_)$num_
20 
  field_$e_=!line 1 to 10 of $(field_$e_)\
 20 
  field_$e_=!line 1 to 10 of $(field_$e_)\