Double Duty Screens

[Terry A. Pickering]

I've done this a couple of ways. 

If you use ACTIONBAR instead of commands, then you can do something like this:

ACTIONMENU LABEL "Enter"  ACTION DESIGNER DES1
ACTIONMENU LABEL "Change" ACTION DESIGNER DES2
ACTIONMENU LABEL "Find"   ACTION DESIGNER DES3
ACTIONMENU LABEL "Delete" ACTION DESIGNER DES4 

Then just push the appropriate commands after you check their security.

PROCEDURE DESIGNER DES1
BEGIN
  IF MATCHUSER("CANDO")
     THEN PUSH ENTRY
  ELSE ERROR "You are not authorized to enter records"
END

etc, etc, etc.

The other way if you don't use ACTIONABAR is to add the code above to the
begining of the appropriate procedure.


Terry Pickering                          CompuGroup, Inc.
pickering@myself.com                     Portland, Oregon USA
www.teleport.com/~compugrp               Cessna 172 & Lancair ES
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.