Need a help on Screen entry

[Pickering, John (NORBORD)]

I like Chris' solution below. It saves the need to change modes as in my
earlier suggestion. Except that I think Quick will create a record in the
secondary file if one doesn't exist which is not what one wants. This could
probably be avoided by adding the following to the preupdate procedure.

if newrecord of old and not deletedrecord of old
  then delete old

Regards,
JWP

> -----Original Message-----
> From:	Chris Sharman [SMTP:Chris.Sharman@ccagroup.co.uk]
> Sent:	Thursday, October 07, 1999 11:02 AM
> To:	kvivek@MACKENZIEFINANCIAL.COM
> Cc:	Chris.Sharman@ccagroup.co.uk; powerh-l@lists.swau.edu
> Subject:	RE: Need a help on Screen entry
> 
> >Effective-Date                      Interest                    Valid
> >--------------------                       -----------
> ---------
> >June 28, 1999                            .333                       Y
> >June 30, 1999                            .332                       N
> >June 30, 1999                            .342                       Y
> 
> >In this screen you can only enter data.  if the user is entered an
> incorrect
> >interest, then he is allowed to enter the effective date again and enter
> the
> >interest,  When a new  interest is entered for an existing effective
> date, the
> >system would turn the first entry as invalid.
> >
> >I have tried so many ways, but no luck yet.
> 
> I'd suggest something like this ...
> 
> file interest primary occurs N
> file interest secondary alias old occurs with interest open 1
>  access via effective-date using effective-date of interest
>  select if (valid="Y")
> 
> ...
> 
> field effective-date lookup on old nowarn
> 
> ...
> 
> procedure preupdate
>  begin
>  for interest
>   if not newrecord of old
>    then let valid of old = "N"
>  end
> 
> _______________________________________________________________________
> Chris.Sharman@CCAgroup.co.uk		http://www.ccastat.demon.co.uk/
> CCA Stationery Ltd, Eastway, Fulwood, Preston, Lancashire, PR2 9WS.
> 
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.