Why is this record being saved?

[Howard Wolowitz]

----- Original Message ----- 
From: "Barry Wiseman" <barry at gensoftdes.com>
To: "filePro list" <filepro-list at lists.celestial.com>
Sent: Tuesday, March 21, 2006 12:46 PM
Subject: Re: Why is this record being saved?


>>
>>
>>> I have the following code fragment:
>>>
>>> 100  @KEY$::input popup yn "Update cost (y/n) ? ":
>>> 101  :yn ne "Y":end:
>>> 102  ::popup update -,"A2":
>>> 103  :@sk eq "BRKY":clearp; end:
>>> 104  ::clearp; gosub updcost; goto exit:
>>>

...

You're going to hate this idea but it will work.

Use fpcopy to make a copy of the file you are on, without the data but with 
the screens and formats
@key$ time lookup a free record on the dummy file and use copy to copy the 
current record into the free one

Do the popup update on the other file.

If the user hits break then delete the dummy record and end.
If the user save the record then copyin the looked up record, delete the 
dummy record and end.

I would never have suggested such a kluge but you were hysterical.

Howie