Fieldmark with Actionmenu

[Mike Palandri]

At 01:33 PM 02/17/1999 -0800, Terry Pickering wrote:
>>>> 
The following is a valid command:

ACTIONMENU LABEL "Select" ACTION DESIGNER VADD, FIELDMARK

But, I get a syntax error if I try:

ACTIONMENU LABEL "Select" ACTION FIELDMARK, DESIGNER VADD

What I'm trying to do is select from a cluster the record I want before
running the designer procedure. Another strange thing is if I use this
syntax (note there is no comma between the commands like it says there
needs to be in the manual)

ACTIONMENU LABEL "Select" ACTION DESIGNER VADD MARK

It will prompt for a "from and to" ID-range. I can't use this because the
id numbers are hidden.  And finally, I tried putting a PUSH FIELDMARK as
the first statement in the designer procedure, but it seemed to ignore
it.

Is this one of QUICK's quirks, or what? Seems like it should let you do a
fieldmark prior to running the designer since it lets you do it
afterwards.....





~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Terry Pickering        Consultant Extraordinare
Monday and Friday        Tuesday - Thursday
Portland                 Eugene
(503) 245-7178           (541) 687-3416
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = = = = = = =
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 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.

<<<<
Terry,

I ran into this in the sub system, One way around it is to set a code in
a designer, then push fieldmark.  Since Quick always runs "designer 01"
when you press return while fildmarking a cluster, you can test for your
code in designer 01 and take apprpriate action:

ACTIONMENU LABEL "Dispatch"   DESIGNER DISP  MENUKEY "S" 
ACTIONMENU LABEL "Edit Req"   DESIGNER DTLS  MENUKEY "E" 

PROCEDURE DESIGNER DISP 
BEGIN 
   LET TC-FIELDMARK-CD = "DISPLAY" 
   PUSH FIELDMARK 
END 


PROCEDURE DESIGNER DTLS 
BEGIN 
   LET TC-FIELDMARK-CD = "DETAILS" 
   PUSH FIELDMARK 
END 


[...]

PROCEDURE DESIGNER 01 
BEGIN 
   IF TC-FIELDMARK-CD = "MARKBULK" 
   THEN BEGIN 
	[...]
   END 

   IF TC-FIELDMARK-CD = "DISPLAY" 
   THEN BEGIN 
	[...]
   END 

   IF TC-FIELDMARK-CD = "DETAILS" 
   THEN BEGIN 
	[...]
   END 

   IF TC-FIELDMARK-CD = "EDIT" 
   THEN BEGIN 
	ACCEPT fieldname
   END 
END 



Mike