Cancelling changes via a Quick Designer Procedure

[Jones Allen (Van)]

I haven't tried this, but it might work.  Check for alteredrecord and if
true, push find, then push find again unconditionally.  The idea is that if
nothing is changed, only one push is done.  If one of the files is altered,
then two push find's will "repeat the action" as requested.  Put your info
message last with the "now" keyword so it remains on the screen after all is
completed.

procedure designer CANC
  begin
  if alteredrecord of file1 &
  or alteredrecord of file2 ... (as many files as you have that could be
altered)
  then push find
  push find
  info = "*I* Update of Product Record " + truncate(t-product) + "
cancelled." now
  end

Good Luck!

-----Original Message-----
From: Robert Mills [mailto:robert.mills@windsong-services.co.uk]
Sent: Tuesday, May 29, 2001 10:15 AM
To: 'PowerHouse List'
Subject: Cancelling changes via a Quick Designer Procedure


Sorry about the lack of subject on the original posting. My main client has
just been upgraded to Outlook 2000 and the layout is very different.

-----Original Message-----
From: Robert Mills 
Sent: 29 May 2001 18:00
To: 'PowerHouse List'
Subject: 


Hi all,

The following key statements and procedure appear in a Quick screen. If the
user has NOT changed any of the displayed fields then it works OK. If they
have changed any filed then a 'Data has been changed but not updated. Repeat
the action if this is ok.' message is displayed. How do I get the same
function key to perform the requested action?

key 5 label "Cancel Change" action designer CANC
key 5 label " " data disable

procedure designer CANC
  begin
  info = "*I* Update of Product Record " + truncate(t-product) + "
cancelled."
  push find
  end

regards,
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
|Robert W.Mills (Systems Development Manager) |
|Windsong Services, St. Mary Cray, ENGLAND    |
|Tel  : +44 (0)1689 870622 x3005              |
|Fax  : +44 (0)1689 899026                    |
|Email: Robert.Mills@windsong-services.co.uk  |
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+



= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
http://lists.swau.edu/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.