gistfile1.txt

Function GetZeroRateVATRateList() Export
	
	Query = New Query;
	Query.Text =
	"SELECT
	|	VATRates.Ref AS Ref
	|FROM
	|	Catalog.VATRates AS VATRates
	|WHERE
	|	VATRates.Rate = 0";
	
	Table = Query.Execute().Unload();
	
	ZeroVATRateList = New ValueList;
	For Each Row In Table Do
		ZeroVATRateList.Add(Row.Ref);
	EndDo; 
	
	Return ZeroVATRateList;
		
EndFunction