Hi everybody,

Could you please help me to quickly format these?

scan
*  lcPhones = m.lcPhones + iif(empty(m.lcPhones), '', chr(13)) + ;
 *   trim(Phone) 
   do case
        case empty(Type) or alltrim(Type) = 'Home'
             lcHome = m.lcHome + iif(empty(m.lcHome),"", chr(13)) + trim(Phone)
        case 'E-mail' $ type
             lcEmail = m.lcEmail + iif(empty(m.lcEmail),"", chr(13)) + trim(Phone) + " " + strtran(Type,'E-mail','')
         case alltrim(Type) = 'Office'
             lcOffice = m.lcOffice +  iif(empty(m.lcOffice),"", chr(13)) + trim(Phone)
		case alltrim(Type) = 'Cellular'
             lcCellular = m.lcCellular +  iif(empty(m.lcCellular),"", chr(13)) + trim(Phone)
        otherwise
             lcOther = m.lcOther +  iif(empty(m.lcOther),"", chr(13)) + trim(Phone) + " " + Type
             
    endcase       
endscan
lcPhones = ?

My problem is to concatenate these fields now in one line. I can not simply use + because I may have chr(13) in one (or many) of the fields.

Would you please help me to code this?

Thanks a lot in advance.