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
