🚀 go-pugleaf

>Not that I'm complaining or anything, but......

Try it like this:

class CLAIMSDataModule of DATAMODULE

   this.CLAIMS1 = new QUERY()
   this.CLAIMS1.parent = this
   with (this.CLAIMS1)
      sql = 'select * from "claims.dbf"'
      active = true
   endwith

   with (this.CLAIMS1.rowset)
      canGetRow = class::CLAIMS_CANGETROW

   endwith

   this.PROCS1 = new QUERY()
   this.PROCS1.parent = this
   with (this.PROCS1)
      sql = 'select * from "PROCS.DBF"'
      active = true
   endwith

   with (this.PROCS1.rowset)
      canGetRow = class::PROCS_CANGETROW

      indexName = "CLAIMNO"
      masterRowset = parent.parent.claims1.rowset
      masterFields = "CLAIMNO"
   endwith

   this.rowset = this.claims1.rowset

   function Claims_canGetRow
      return not this.fields["CLOSED"].value

   function Procs_canGetRow
      return this.fields["TOS"].value = 'X'

endclass

__
Bowen Moursund (TeamB)
bowenNOSPAM@nerds.com
http://lonestar.texas.net/~moursund/
Try these help resources:
http://forumsearch.borland.com:88
http://www.dejanews.com/home_ps.shtml