Cancelling changes via a Quick Designer Procedure

[Aci Polajnar]

Hi Robert!

As we know, every GET statement in PowerHouse changes record status to
NEW, UNCHANGED and UNDELETED so you should read an record from your
file which never exists


procedure designer CANC
  begin
  GET <your file> VIA <key> USING 'Tralala' OPTIONAL
  info = "*I* Update of Product Record " + truncate(t-product) + "
cancelled."
  push find
  end

You should check the record status before and make GET statement
conditional if you want.

Best regards!

Robert Mills wrote:
> 
> 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.

-- 
                  _\\///_
                 (' o-o ')
_______________ooOo_( )_oOoo_____________________________________

Aci Polajnar                  Tel   : +386(0)3 4274174
IS Consultant                 Fax   : +386(0)3 4274198
Razvojni Center Celje         e-mail: acip@rcc-irc.si
3000 Celje, Slovenia          URL   : http://www.rcc-irc.si  
_______________oooO____Oooo______________________________________
              (   )    (   )
               \ (      ) /
                \_)    (_/