Generate a serial number i.e. the next number in a series.
──────────────────────────────────────────────────────────────────────────────

 Syntax

        H_SerialNumber( cAlias , lError , nRecord , lAlpha , nLength )

 Arguments:

      cAlias  - Alias of table
      lError  - If .T. generate an error message if failed
      nRecord - Record to find
      lAlpha  - If .T., field is alphanumeric.  If .F., field is numeric
      nLength - Return length of value

 Returns:

      The next serial number in the sequence
      "" if the record could not be locked, or the type of the first field
      was not Character or Numeric

 Description:

      Generate a serial number i.e. the next number in a series.

 Examples:



 Header File: H_LIB52.CH

 Source: SERIALNO.PRG

 Author:  Martin Colloby