Query unionRow(par As %Integer) As %Query(ROWSPEC = "f1:%String,f2:%Integer")
{
}

ClassMethod unionRowExecute(ByRef qHandle As %Binary, par As %Integer) As %Status
{
	k ^||Result
	if par= 1  {
		f i= 23 : 1 : 32  {
			if i>= 23 ,i<= 24  {s str="SE"}
			elseif i>= 25 ,i<= 28  {s str="Q"}
			elseif i>= 29  {s str="WC"}
			s ^||Result($Increment(^||Result))=$LB(str,i)
		}
	}
	if par= 2  {
		f i= 27 : 1 : 32  {
			s ^||Result($Increment(^||Result))=$LB("WC",i)
		}
	}
	s %ROWCOUNT = $s(par= 1 : 10 , 1 : 6 )
	s qHandle=""
	Quit $$$OK
}

ClassMethod unionRowClose(ByRef qHandle As %Binary) As %Status [ PlaceAfter = NewQuery1Execute ]
{
	k ^||Result
	Quit $$$OK
}

ClassMethod unionRowFetch(ByRef qHandle As %Binary, ByRef Row As %List, ByRef AtEnd As %Integer =  0 ) As %Status [ PlaceAfter = NewQuery1Execute ]
{
	s qHandle=$O(^||Result(qHandle))
	if (qHandle)="" {
		s AtEnd =  1 
		s Row = ""
	}
	else {s Row = $G(^||Result(qHandle))}
	Quit $$$OK
}

<table orient="col" group="record" width="6in" class="table4" altcolor="#DFDFFF">
<item special="number" width=".45in" style="color: darkblue;">
<caption value="#" />
</item>
<item field="@id" width=".7in" style="border:none;padding-right:4px">
<caption value="Sale ID"/>
</item>
<item field="date" width="1.5in" style="padding-left: 4px;">
<caption value="Date"/>
</item>
<item field='concat("By ",customer," and date=",date)' width="2.65in">
<caption value="Customer"/>
</item>
<item caption="Amount" width=".7in" style="text-align:right;" field="@number" formatNumber='###,###,##0.00;(#)'>
<caption value="Amount"/>
<summary field="subtotal" style="font-weight:bold;text-align:right" formatNumber='###,###,##0.00;(#)'/>
</item>
</table>