Steve,

 

I would use select command to compute the values you are looking for the
compute command to slower than using select into.

I set the var since using the set var but these will be removed and the
select into or the compute would replace these.

I would as a practice set the var type like set var vcnt integer = null
before the select into.  Then in the set var vmsg you use the CTXT to
convert the non text values to text.

 


I'm make some adjustment so your code below!

--start of code

--select count(pon) into vcnt indicator from attinv_master_cust

--select sum(camount) into vsum from attinv_charge_desc

 

set var vcnt integer = 20

set var vsum currency = 300.00

set var vbilldate date = 2/2/2008

 

SET VAR vcrlf = ((CHAR(10)) + (CHAR(13)))

 

CLEAR VAR vmsg

 

SET VAR vmsg = ('Total Breakdowns 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

--end of code

 

Have a great day!

 

Best Regards,

 

 

Oma Cox

O.C. Services Inc.

P.O. Box 5485

Brandon, MS 39047

 

662.820.7599

601.992.6785

 

www.ocservicesinc.com

 

  _____  

From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Steve Breen
Sent: Monday, March 10, 2008 7:18 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Dialog box output

 

Can anyone look at this please and advise me.

 

Can not get a response in dialog box.

 

Checked and variables are generating fine.

 

 

 

COMPUTE vcnt AS COUNT pon FROM attinv_master_cust
COMPUTE vsum AS SUM camount FROM attinv_charge_desc

 

SET VAR vcrlf = ((CHAR(13)) + (CHAR(10)))

 

CLEAR VAR vmsg

 

SET VAR vmsg = ('Total Breakdowns for Billing Date = ' & .vcnt + '"' +
.vcrlf)
SET VAR vmsg = (.vmsg + 'Total Amount Billed For Billing Date = ' & .vsum +
'"' + .vcrlf)
SET VAR vmsg = (.vmsg + 'Date Billed = ' & .vbilldate + '"' + .vcrlf)
PAUSE 2 USING .vmsg

 

Thanks

 

 

Stephen Breen

CDI Services, Inc.

Road Support Division

 

Reply via email to