>Muy buenas noches.
>Muchas gracias de antemano.
>
>Quisiera que me orientaran como hacer una subrutina para grabar el numero de factura que le corresponda segun el correlativo de la tabla, estoy trabajando multiusuario.

Lo más conveniente es guardar los números de secuencia en una tabla aparte, de secuencias. (De paso, yo uso la misma tabla para las claves primarias de las diferentes tablas, claves que no ve el usuario.)

Como el usuario ve el número, sólo se lo debe asignar al momento de guardar el registro; y para mayor seguridad, usar una transacción. Eso, por si el usuario cancela el registro (TableRevert()), o por si hay un problema al guardar - para que no falten números en la secuencia.

He aquí mi versión de esta función.

**********************************************************************
FUNCTION SerialNumber(tcSequence)
	* Get serial number. Used mainly to generate primary keys.
	* The easiest way to achieve this is to call this function from a fields default value.
	* Example: default value for primary key "Client" of table "Client" = SerialNumber("Client")
	* This function accesses table SerialNumber. Fields: Sequence C(30), NextNum I.
	tcSequence = lower(tcSequence)
	local lnSelect
	lnSelect = select()
	if used("serialnumber")
		select serialnumber
	else
		select 0
		use serialnumber
	endif
	set order to "sequence"
	seek padr(tcSequence, len(sequence))
	if not found()
		append blank
		replace sequence with tcSequence, nextnum with 1
	endif
	local lnReturnValue
	if lock()
		lnReturnValue = nextnum
		replace nextnum with nextnum + 1
	else
		lnReturnValue = -1
	endif
	unlock
	select (lnSelect)
	return lnReturnValue
ENDFUNC