force a FIND?

roger32909@bellsouth.net roger32909@bellsouth.net
Mon, 25 Apr 2005 13:37:13 -0400


OK, Ken, you are right again.
This screen already had a custom path procedure:

PROCEDURE PATH
   BEGIN

...
    IF T-CNUM NE " "
	THEN LET PATH = 1
    ...

So, I removed the extra LET statement and everything still works fine.

Thanks again,
Roger
> 
> From: Ken Langendock <ken.langendock@rogers.com>
> Date: 2005/04/25 Mon AM 10:14:03 EDT
> To: roger32909@bellsouth.net,  Martin McDonough <martin.mcdonough@rosebys.com>
> CC: powerh-l@lists.sowder.com
> Subject: Re: RE: force a FIND?
> 
> Glad to here your success. 
> 
> I could be wrong...:), but I think the LET PATH = 1
> statement does nothing. As soon as you restart the
> PATH procedure... It should reset the Path to 0. 
> 
> Enjoy.
> Ken
> 
>  --- roger32909@bellsouth.net wrote: 
> > Thanks Ken and Martin.
> > 
> > I added this at the end of the designer procedure
> > that calls the subscreen:
> > 
> >    ;Upon return, find record again because it may
> > have been updated;
> >    ;display and recompute remaining (see postfind
> > proc)
> > 
> >     LET T-CNUM = T-CNUM-PASS           ;load a temp
> > with desired key value
> >     LET PATH   = 1	                            ;this
> > PATH finds the record via key using T-CNUM
> >     PUSH FIND
> > 
> > I added this to the POSTFIND procedure:
> > 
> >     LET T-CNUM = " "	                           
> > ;blank it for next (F)ind
> > 
> > And now the screen works as I believe it should: 
> > The updated record is displayed to the user with no
> > intervention.
> > 
> > Roger
> > 
> 
>