hi,

i try as under atmyform i get error message"Table has no index order set "

befor a message i can see the result at mytext as 1,not ex.. 0001-04,

local lnSelect
lnSelect = select()
if used("serialnumber")
	select serialnumber
else
	select 0
	use serialnumber
endif
*set order to "sequence"
seek padr(tnSequence, len(sequence))
if not found()
	append blank
	replace sequence with tnSequence, nextnum with 1
*		replace thisform.text1.value with tnSequence, nextnum with 1
endif
local lnReturnValue
if lock()
	lnReturnValue = nextnum
	replace nextnum with nextnum + 1
else
	lnReturnValue = -1
endif
select (lnSelect)
unlock
return lnReturnValue 

thanks .