Are you using a Novell or Windows server and which version?


>Hi All,
>
>I'm using Craig Berntson's key generation routine:
>
>

>
>LPARAMETERS tcIDType, tnNumToGet
>
>LOCAL llNotUsed, lnArea, lnRetVal
>
>llNotUsed = .F.
>llCanLock = .F.
>lnArea = SELECT()
>
>IF !USED( "idcount" )
>	USE idcount IN 0
>	llNotUsed = .T.
>ENDIF
>SELECT idcount
>SET ORDER TO TAG table
>
>*** Lock the entire table
>DO WHILE !FLOCK()
>ENDDO
>	
>SEEK UPPER( tcIDType )
>
>IF FOUND()
>	
>	*** If we find the record then return this value
>	lnRetVal = idcount.id
>	REPLACE id WITH lnRetVal + IIF( EMPTY( tnNumToGet ), 1, tnNumToGet )
>	
>ELSE
>
>	*** Record not found do create one
>	INSERT INTO idcount ( id, table, tdesc ) VALUES ( 2, tcIDType )
>	lnRetVal = 1
>
>ENDIF
>
>FLUSH
>UNLOCK
>
>IF llNotUsed
>	USE IN idCount
>ENDIF
>
>SELECT( lnArea )
>
>RETURN lnRetVal
>
>

>
>Unfortunately, I'm getting duplicates as a result. They're really wierd as they're in batches, for instance I might get keys 316202,316203,316204,316205 for records 100-103 and then 316202,316203,316204,316205 for 104-107 and then the next key generated is 316206 and everything is synchronised again. Any help is appreciated.
>
>Regards
>
>Paul