Steve You would have to add spaces between the names to match your choose and I think you have to be using a fixed font. That's why I suggested the listview in a form. Buddy
________________________________ From: [email protected] on behalf of Steve Breen Sent: Sun 11/23/2008 12:10 PM To: RBASE-L Mailing List Subject: [RBASE-L] - RE: Formatting Issue Can you do a justification on a var message like this ? set var vmsg = ('CUSTOMER# ' & 'CONTACT ' & 'EXT ' & 'MOBILE ' & 'HOME ' & 'A ' & 'ORDER ') To to match this ? LJS(CUSTNUB2, 10)) & (LJS(CC_contact, 20)) & (LJS(CC_OfficeExt, 3)) & (RJS(CC_Mobile1, 12)) + & (RJS(CC_HomePhone, 14)) & ' ' & (CC_ActiveStatus) & ' ' & (CTXT(CC_CallOrder)) + ), CC_ID from CustContacts where CustNub2 = .this_Custnub2 + Steve ________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Walker, Buddy Sent: Sunday, November 23, 2008 9:02 AM To: RBASE-L Mailing List Subject: [RBASE-L] - RE: Formatting Issue Steve Try adding FORMATTED to the end of the CHOOSE WHERE CustNub2 = .this_Custnub2 + TITLE .vmsg FORMATTED You could also using a form with listview. Buddy From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Steve Breen Sent: Sunday, November 23, 2008 7:18 AM To: RBASE-L Mailing List Subject: [RBASE-L] - Formatting Issue I am getting the following output and it is not formatting the way that I need it to under the headers. Is there any way of fixing this ? Thanks Steve CUSTOMER# CONTACT EXT MOBILE HOME A ORDER <NEW> <VIEW OR EDIT ALL> MT0001M FRANK MUSTO 314-239-7097 Y 1 MT0001M DEB KREIENDER Y 2 MT0001M BOB NORRIS Y 3 ? This is the code I am using: -- contedit.rmd -- Add / View Customer Approval Contacts -- Assumes Customer Number being Edited is This_CustNub2 -- Code Section 1 - note - SB 10-30-08 set var microrim_menu_pos int = 0 label LOOP cls clear var VCONTACTN set var vmsg = ('CUSTOMER# ' & 'CONTACT ' & ' EXT ' & 'MOBILE ' & ' HOME ' & ' A ' & ' 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, 10)) & (LJS(CC_contact, 20)) & (LJS(CC_OfficeExt, 3)) & (RJS(CC_Mobile1, 12)) + & (RJS(CC_HomePhone, 14)) & ' ' & (CC_ActiveStatus) & ' ' & (CTXT(CC_CallOrder)) + ), CC_ID from CustContacts where CustNub2 = .this_Custnub2 + at 1 1 foot title .vmsg if (lastkey(0)) = '[esc]' then goto FINISH endif set var VCONTACTN int switch VCONTACTN case 0 enter using custcont break case -1 edit using custcon2 where custnub2 = .this_custnub2 order by CC_CallOrder endsw goto LOOP label FINISH clear var microrim_menu_pos return
