(no subject)

[Robert Mills]

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  |
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+