ALSO:

>FUNCTION logit(tckey, tctranstype)

Change this to:

FUNCTION logit()

>set library to home() + "FoxTools.FLL"

What do you need foxtools for?

> IF ! INLIST(UPPER(tctranstype),"I","D","U")
> MESSAGEBOX("Invalid Transaction Type Specified")
> RETURN(.F.)
> ENDIF

Take this out... you no longer need to pass anything to this function.


BOb