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

To use this function, SerialNumber, you have to create the table, and an index on the field Sequence.

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

Of course, you have to use this in a more complicated expression, as I explained in a previous e-mail.

For example, and for simplicity:

replace DocNumber with "2004-" + padl(SerialNumber("Sequence_1"), 6, "0")

But first, get the function SerialNumber to work.

>

>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 .