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 <mailto:[EMAIL PROTECTED]>  
        To: RBASE-L Mailing List <mailto:[email protected]>  
        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

Reply via email to