Using an OnCalcField with a query

Question

  // accounts receivable
 qAR.SQL.Clear;
 qAR.SQL.Text := \'Select C.Lastname,C.Firstname,C.Address,C.City,C.State,C.Zip,\' +
                 \'C.Hercell,C.Hiscell,