XPaFieldGet()
 Get the fields from the database into an Array
------------------------------------------------------------------------------

   Function:   XPaFieldGet()

               A simple though very handy function.
               See source code below for wat it does.

   Syntax:     XPaFieldGet() --> aFields

   Arguments:  None.

   Returns:    Array with current record Field's data.

   Usage:      Here's the source code:
               Function XPaFieldGet()
               Local i,x := Array(fcount())
               For i := 1 to fcount()
                   x[i] := FieldGet(i)
               next
               Return (x)
               //For/Next used for speed vs aEval()..