	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.0

Sum in a SELECT

Asked by jaymz69 in FoxPro Database

I have the query going through locations. I can get the total of each line $ but I want at the end of each location to have the sum before the next location is rowed out. or is it an Excel automation?

loc item qty cost
1 x 2 5.00
1 y 10 250
1 z 1 100
Total 256.00
2 z 1000 8500
Total 8500
3 x 10 500
3 d 5 235

View the Solution FREE for 30 Days

         
           
             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:

           
           
             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 *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

           
         

20091021-EE-VQP-81 - Hierarchy / EE_QW_4_20070622

Hall of Fame

1. pcelba411,301
2. Olaf_Dos...304,061
3. tusharkan...145,557
4. CaptainCy...135,934
5. JF077,648
6. jrbbldr48,970
7. ramrom23,200
8. mikegagnon12,400
9. imaginecorp8,860
10. wcsoctu7,000
11. rrjegan174,750
12. CarlWarner4,728
13. tcsaddul94,300
14. mlmcc3,500
15. angelIII3,300
16. vadimrapp13,200
17. reb732,900
18. AndrewJen2,600
19. cjohnsen22,500
20. cyrusjoud...2,230
21. IainMacb2,200
22. leew2,000
22. SRigney2,000
22. acperkins2,000
22. GrahamSkan2,000
22. DaveHowe2,000
22. itsmeandn...2,000
22. nobus2,000
22. SidFishes2,000
22. boag20002,000
22. kelvinsparks2,000
22. jodymcivor2,000
22. jimpen2,000
22. taliesin1...2,000
22. 2PiFL2,000
22. lacrewga2,000
22. Frosty5552,000
22. newbieal2,000
22. cdbeste2,000
22. dborger2,000
22. ProdOps2,000
22. MightySW2,000
22. vikingtech...2,000

1. CarlWarner1,870,976
2. CaptainCy...1,095,659
3. pcelba411,301
4. Olaf_Dos...340,651
5. ramrom306,647
6. tusharkan...275,802
7. fcaranda...182,017
8. mikegagnon132,988
9. suhashegde132,440
10. cbasoz121,875
11. EdRauh110,294
12. JF098,898
13. tmedley87,946
14. jrbbldr82,602
15. Nestorio72,433
16. samopal65,948
17. q2eddie49,131
18. zlatev42,855
19. slink940,320
20. DeepDan40,069
21. komandur37,101
22. mrorph34,250
23. theSliver32,443
24. HUGHCB30,654
25. louy328,753

Sum in a SELECT

Asked by jaymz69 in FoxPro Database

About this solution