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_)\