🚀 go-pugleaf

This is a multi-part message in MIME format.

--------------7ECE156C7BC0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Bowen Moursund wrote:

> Use a rowset.canGetRow event handler.
> 
> Next complaint????
> __
Not that I'm complaining or anything, but...... , the cangetrow event
only 'gets' the first record in the table (and disregards the remaining
700 or so records).  Here's the dmd.  I'm dropping it onto a report in
the report designer.

--------------7ECE156C7BC0
Content-Type: text/plain; charset=us-ascii; name="CLAIMS.dmd"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="CLAIMS.dmd"

** END HEADER -- do not remove this line
//
// Generated on 04/23/98
//
class CLAIMSDataModule of DATAMODULE


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



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


   with (this.PROCS1.rowset)
      indexName = "CLAIMNO"
      masterRowset = parent.parent.claims1.rowset
      masterFields = "CLAIMNO"
   endwith


   with (this.CLAIMS1.rowset)
      canGetRow = class::ROWSET_CANGETROW
		filter = "closed = false"
   endwith

   this.rowset = this.claims1.rowset

   function rowset_canGetRow
		printrow = false
      if this.parent.parent.PROCS1.rowset.fields["TOS"].value = 'X'
   	      printrow = true
    	endif
      return printrow

endclass

--------------7ECE156C7BC0--