not that I'm aware of, sorry.
----- Original Message -----
From: Steve Breen
To: RBASE-L Mailing List
Sent: Wednesday, November 05, 2008 8:47 AM
Subject: [RBASE-L] - Re: I missed something and an't trace thru any ideas?
Rach,
Messed up and forgot CC_Id asa you can see below.
Next question here is can you add a help menu display on something like this
??
Thanks
Steve
cls
clear var vContactn
set var vmsg = ('CUSTOMER# ' & 'CONTACT ' & 'EXT ' & 'MOBILE ' & 'HOME ' & '
ORDER' )
choose vContactn from #values for +
'<NEW>', 0 from custcontacts where count = 1 +
union all sel '<VIEW OR EDIT ALL>', -1 from custcontacts where count = 1 +
union all sel +
( +
(LJS(CUSTNUB2, 12)) & (LJS(CC_contact, 20)) & (lJS(CC_OfficeExt, 3)) &
(LJS(CC_Mobile1, 12)) +
& (RJS(CC_HomePhone, 14))& ' ' & (CTXT(CC_CallOrder)) +
), CC_ID from CustContacts where CustNub2 = .this_Custnub2 +
at 1 1 foot title .vmsg
------------------------------------------------------------------------------
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Rachael Malberg
Sent: Wednesday, November 05, 2008 9:11 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: I missed something and an't trace thru any ideas?
Hey Steve, looking at your choose syntax, you've got three select statements
from the same table with unions but no parent/child relationship and ' at 2 2
foot ' I don't believe is a valid choose option. How 'bout letting us know
what are you trying to do and we'll see if this cat can be skinned another
way...
~Rach
----- Original Message -----
From: Steve Breen
To: RBASE-L Mailing List
Sent: Tuesday, November 04, 2008 8:02 PM
Subject: [RBASE-L] - I missed something and an't trace thru any ideas?
Thanks for any help.
set var vmsg = 'Cust #:'
set var vmsg = (.vmsg & .this_POn & 'Contacts - Call In Order Listed -
ENTER to Zoom, ESC to Return')
choose VCONTACTN from #values for +
'<NEW>', 0 from CustContacts where count = 1 +
union all sel '<VIEW OR EDIT ALL>', -1 from CustContacts where count = 1 +
union all sel +
( +
( (LJS(CC_contact, 30)) +
& (lJS(CC_OfficeExt, 5)) & (LJS(CC_Mobile1, 12)) +
& (RJS(CC_HomePhone, 14)) ) from CustContacts +
where custnub2 = .This_Custnub2 at 2 2 foot title .vmsg
Steve