Information générale
Catégorie:
Codage, syntaxe et commandes
>Here is the complete code:
>
>function kUniqueID
>*-
>lparameters tcTable,tcTag
>*-
>if empty(tcTable) or empty(tcTag)
> *-
> return(int(seconds() *100000 + day(date())))
>endif
>lcTable = tcTable
>lcTag = tcTag
>*-
>if eof(lcTable)
> lnRecNo = 0
>else
> lnRecNo = recno(lcTable)
>endif
>*-
>do while TRUE
> lnID = int(seconds() *100000 + day(date()))
> go top
> if seek(lnID,lcTable,lcTag)
> loop
> else
> exit
> endif
>enddo
>*-
>if !empty(lnRecNo)
> go (lnRecNo) in (lcTable)
>endif
>*-
>return(lnID)
>
>HTH,
>Tom
You don't need GO TOP before SEEK(). :)
Vlad
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement