To start use SET VAR vcrlf = '(CHAR(10)) + (CHAR(13))' That will make it a string
"Steve Breen" <[email protected]> Sent by: [email protected] 17/11/2010 02:38 p.m. Please respond to [email protected] To [email protected] (RBASE-L Mailing List) cc Subject [RBASE-L] - Can not get message display to work any recommendations Can I get some help here. Trying to get this message to display CLEAR VAR vcnt CLEAR VAR vsum CLEAR VAR vtranscnt CLEAR VAR vtranssum CLEAR VAR vpapercnt CLEAR VAR vpapersum COMPUTE vtranscnt AS COUNT pon FROM attinv_master_cust + WHERE (parentcustid = 164 or parentcustid = 110 or parentcustid = 193) COMPUTE vtranssum AS SUM camount FROM attinv_charge_desc + WHERE (parentcustid = 164 or parentcustid = 110 or parentcustid = 193) COMPUTE vpapercnt AS COUNT pon FROM attinv_master_cust + WHERE (parentcustid NE 164 AND parentcustid NE 110 AND parentcustid = 193) COMPUTE vpapersum AS SUM camount FROM attinv_charge_desc + WHERE (parentcustid NE 164 AND parentcustid NE 110 AND parentcustid = 193) COMPUTE vcnt AS COUNT pon FROM attinv_master_cust COMPUTE vsum AS SUM camount FROM attinv_charge_desc SET VAR vcrlf = ((CHAR(10)) + (CHAR(13))) CLEAR VAR vmsg SET VAR vmsg = ('Total TransAdvantage Invoices for Billing Date = ' &(CTXT(.vtranscnt))+.vcrlf) SET VAR vmsg = (.vmsg + 'Total Amount Billed to TransAdvantage For Billing Date = ' + &(CTXT(.vtranssum))+.vcrlf) SET VAR vmsg = ('Total Other Invoices for Billing Date = ' &(CTXT(.vpapercnt))+ .vcrlf) SET VAR vmsg = (.vmsg + 'Total Other Amount Billed For Billing Date = ' &(CTXT(.vpapersum))+.vcrlf) SET VAR vmsg = ('Total Invoices for Billing Date = ' &(CTXT(.vcnt))+ .vcrlf) SET VAR vmsg = (.vmsg + 'Total Amount Billed For Billing Date = ' &(CTXT(.vsum))+.vcrlf) SET VAR vmsg = (''''+.vmsg + 'Date Billed = ' & (CTXT(.vbilldate)) + .vcrlf+'''') PAUSE 2 USING &vmsg + OPTION MESSAGE_FONT_NAME ARIAL FB|MESSAGE_FONT_SIZE 15|MESSAGE_BOLD OFF Thanks for any help Tony Luck IT / Logistics Manager Tel: +61 7 3866 4902 Fax: +61 7 3857 0031 Mob: +61 420 936 464 Invacare Australia Pty Ltd 6 Armada Place Banyo, QLD 4014 ______________________ ________________________ ____________________________ Invacare's New Generation of Patient Lifters, Compact without Compromising Comfort... Click here
