🚀 go-pugleaf

Ken Chan wrote:
> 

> As mentioned in the TFM, a rowset's canGetRow fires before the master-
> detail link, so you can't rely on the masterRowset link to check the
> detail rows for that parent row. You must apply the constraint yourself:
> 
> ** END HEADER -- do not remove this line
> //
> // Generated on 04/29/98
> //
> class claimprocsDataModule of DATAMODULE
> 
>    this.CLAIMS1 = new QUERY()
>    this.CLAIMS1.parent = this
>    with (this.CLAIMS1)
>       left = 3
>       top = 14
>       sql = 'select * from "CLAIMS.dbf"'
>       active = true
>    endwith
> 
>    with (this.CLAIMS1.rowset)
>       canGetRow = class::CLAIMS1_CANGETROW
> 
>    endwith
> 
>    this.PROCS1 = new QUERY()
>    this.PROCS1.parent = this
>    with (this.PROCS1)
>       left = 11
>       top = 14
>       sql = 'select * from "PROCS.dbf"'
>       active = true
>    endwith
> 
>    with (this.PROCS1.rowset)
> 
>       filter = "TOS = 'X'"
>       indexName = "CLAIMNO"
>       masterRowset = parent.parent.claims1.rowset
>       masterFields = "CLAIMNO"
>    endwith
> 
>    this.rowset = this.claims1.rowset
> 
>    function claims1_canGetRow
>       local lRet, procs
>       try
>         procs = this.parent.parent.procs1.rowset
>         if procs.setRange( this.fields[ "CLAIMNO" ].value )
>           lRet = not procs.endOfSet
>         else
>           lRet = false
>         endif
>       catch ( Exception e )
>         lRet = true
>       endtry
>       return lRet
> 
> endclass
> 
Bad news.  I just got around to testing the above code.  I created the
dmd as above, but when I try to drag the dmd onto a form, it errors out
with 'dbase has encountered an internal error'.   I first tried cutting
and pasting from downloaded message, then thought maybe that was the
problem, so I recreated the whole thing from scratch -- same result.
And I had such high hopes!

Patricia