Steve
  Didn't realize you are using 6.5. I was assuming 7.6.
 
  Then you will have to add the spaces  to your vmsg variable.
 
Buddy
 

________________________________

From: [email protected] on behalf of Steve Breen
Sent: Sun 11/23/2008 1:03 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - RE: Formatting Issue




I am working in 6.5++ and have never done a listview in a form.

Not sure where to begin there.

Steve

-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Walker,
Buddy
Sent: Sunday, November 23, 2008 12:52 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - RE: Formatting Issue

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

--- RBASE-L
=======================3D=======================
D=
TO POST A MESSAGE TO ALL MEMBERS:
Send a plain text email to [email protected]

(Don't use any of these words as your Subject:
INTRO, SUBSCRIBE, UNSUBSCRIBE, SEARCH,
REMOVE, SUSPEND, RESUME, DIGEST, RESEND, HELP)
=======================3D=======================
D=
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: INTRO
=======================3D=======================
D=
TO UNSUBSCRIBE:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: UNSUBSCRIBE
=======================3D=======================
D=
TO SEARCH ARCHIVES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: SEARCH-n
(where n is the number of days). In the message body,
place any
text to search for.
=======================3D=======================
D=




Reply via email to