Rev 1980 | Rev 5204 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
!distribute item $num into sheet,exo
nbsh=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
!if $sheet<1 or $sheet>$nbsh
error=bad_sheet
!exit
!endif
don=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
t=!line 1 of $don
!if $t!=0
error=active_sheet
!exit
!endif
nbexo=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
!if $exo<1 or $exo>$nbexo
error=bad_series
!exit
!endif
update_field=2
update_content=$iniparm
!read update.exo