Sum in a SELECT

Select irloc, irreason As Adj_Code, irdate As Date, iritem As Item, irdesc As Description, irbin As Bin, ircomt As Comments,;
		irqty As QTY, ircost, iruser As User,;
		CAST(irqty*ircost as N(10,2)) as total_cost;
		FROM itemrech0409;
		WHERE ((irdate)=Date()-1) And (irreason = '02' Or irreason = '25' Or irreason = '16' Or irreason = '38' Or irreason = '39' Or irreason = 'PI');
		Order By irloc, irreason Into Cursor invAdj Readwrite
**********************************************
* Seperate with blanks when new location
**********************************************
*BROWSE
 
	Do While Not Eof()
		lcirloc=irloc
		Count While lcirloc=irloc
		If Not Eof()
			Insert Blank Before
			Skip
		Endif
	Enddo
************************************************
 
	Copy To "c:\InvAdjustments.xls" Type Xl5
	? "Copied to c-drive"
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
* * START *  for Excel Format * * START *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
	oExcel = Createobject("Excel.Application")
	oExcel.Visible = .F.
	oWorkbook = oExcel.Workbooks.Open("C:\InvAdjustments.xls")
	oRange = oExcel.ActiveSheet.Range("A1:K1")
 
	iAlternateColor = 2
	nColor = 2
	Scan
		If irloc = 0
			If iAlternateColor = 2
				nColor = 48
				iAlternateColor = 48
			Else
				nColor = 2
				iAlternateColor = 2
			Endif
		Endif
		oRange = oRange.Offset(1,0)
		oRange2 = oRange.Select
		oExcel.Selection.Interior.ColorIndex = nColor
		oExcel.Selection.Font.Size = 8
 
	Endscan
 
	oRange = oExcel.ActiveSheet.Range("A1:K1").Select
	oExcel.Selection.Font.Bold = .T.
	oExcel.Selection.Font.Underline = 2
	oRange = oExcel.ActiveSheet.Range("A2:K2").Select
	oExcel.ActiveWindow.FreezePanes = .T.
	oExcel.ActiveSheet.Cells.Select
	oExcel.ActiveSheet.Cells.EntireColumn.AutoFit
* Save and quit Excel
	oWorkbook.Save()
	oExcel.Quit
 
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
* * END * 	 Excel Format * * END *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65: