Cancelling changes via a Quick Designer Procedure

[Robert Mills]

Thanks to all those who responded both ON and OFF (you know who you are)
list.

As requested (by JWP) I'm posting the solution that I have gone with. It
looked the easiest and was the most understandable to whoever came next.

regards,
Robert

Procedure Designer CANC
  Begin
 
  If AlteredRecord of PRODUCT-NO-MSTR
    Then Begin
      Get PRODUCT-NO-MSTR Via COMPANY-PRODUCT Using "non existent product"
Optional
      End
 
  Information = "*I* Product " + Truncate(t-PROD-CODE) + " update has been
cancelled."
 
  Push Find
 
  End

-----Original Message-----
From: Aci Polajnar [mailto:Aci.Polajnar@rcc-irc.si]
Sent: 30 May 2001 06:32
To: Robert Mills; 'PowerHouse List'
Subject: Re: Cancelling changes via a Quick Designer Procedure


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______________________________________
              (   )    (   )
               \ (      ) /
                \_)    (_/