#Include BL.EC.Common
 
	$$$blSession
	Set Status=%blSession.LogInUser("Paul Verhulst","PV1234CW","00",,,,.Result)
	Set Result= %blSession.SetKlant(1000)
	$$$blWebShop
	Set Criteria=##class(BL.EC.pxCriteriaSet).%New()
	Set Result=%blWebShop.Get(322)
	//Do DumpObject^%apiOBJ(Result)
	
	Do Result.Lijnen.Execute()
	
	Set CC=Result.Lijnen.GetColumnCount()
	
	
	For  Quit:('Result.Lijnen.Next())  Do
	. //w Key,!
	. For Loop=1:1:CC Do
	..  w Result.Lijnen.Data(Result.Lijnen.GetColumnName(Loop))_$C(9)
	. w !!