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
