Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Retriever.cls.xml
===================================================================
diff -u -r39340 -r39688
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Retriever.cls.xml	(.../Retriever.cls.xml)	(revision 39340)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Retriever.cls.xml	(.../Retriever.cls.xml)	(revision 39688)
@@ -22,23 +22,17 @@
 
 <Method name="ZoekViaKlantId">
 <FormalSpec>KlantId:%String</FormalSpec>
-<ReturnType>%ListOfDataTypes</ReturnType>
+<ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	
-	#dim SqlStatement As TECH.String = "Select distinct Hoofding->ID from Flow_Offerte.LijnProduct a "
-	Set SqlStatement = SqlStatement _ "where Hoofding->Klant->ID = ? "
-	Set SqlStatement = SqlStatement _ "and Hoofding->Status is null "
-	Set SqlStatement = SqlStatement _ "and ( "
-	Set SqlStatement = SqlStatement _ "(select count(*) from Flow_Offerte.LijnProduct b where b.Hoofding->ID = a.Hoofding->ID) > "
-	Set SqlStatement = SqlStatement _ "(select count(*) from Flow_Offerte.LijnProductGA c where c.Hoofding->ID = a.Hoofding->ID)"
-	Set SqlStatement = SqlStatement _ ")"
-	
-	#dim lbParams As %List = $LB(KlantId)
-	#dim ResultSet As TECH.ResultSet =  ..QueryAPI().GetDynamicResultSet(SqlStatement,lbParams)
-	#Dim OfferteIDIterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(ResultSet.GeefLijstVanIDs())
-	set List = ##class(%ListOfObjects).%New()
-	While (OfferteIDIterator.HasNext()) {
-		Do List.Insert(OfferteIDIterator.Next())
+	#dim SqlStatement As TECH.String = ""
+	Set SqlStatement = "SELECT Distinct(Hoofding->ID) FROM Flow_Offerte.LijnProduct WHERE Hoofding->Klant = ? "
+					_ " AND Hoofding->Status is null AND not ( x__ClassName [ 'Flow_Offerte.LijnProductGA' ) "
+	set Query = ##class(TECH.DynamicQuery).%New(SqlStatement,$listbuild($piece(KlantId,"||",2)))
+		
+	#dim ResultSet As TECH.ResultSet =  ..QueryAPI.GetResultSet(Query)
+	set List = ##class(%ListOfDataTypes).%New()
+	while ResultSet.Next() {
+		Do List.Insert(##class(Flow.Offerte.Hoofding).%OpenId(ResultSet.GetData(1)))
 	}	
 	quit List
 ]]></Implementation>
Index: vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Retriever.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Retriever.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Retriever.cls.xml	(revision 39688)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Retriever">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.FlowWinkelkarConverter.Retriever</Super>
+
+<Method name="ZoekViaKlantId">
+<FormalSpec>KlantId:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 39688 refers to a dead (removed) revision in file `vhTest/Fake/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Retriever.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Retriever.cls.xml
===================================================================
diff -u -r39342 -r39688
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Retriever.cls.xml	(.../Retriever.cls.xml)	(revision 39342)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter/Retriever.cls.xml	(.../Retriever.cls.xml)	(revision 39688)
@@ -11,7 +11,7 @@
 
 <Method name="ZoekViaKlantId">
 <FormalSpec>KlantId:%String</FormalSpec>
-<ReturnType>%ListOfDataTypes</ReturnType>
+<ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaKlantId",KlantId)
 ]]></Implementation>
 </Method>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter.cls.xml
===================================================================
diff -u -r39668 -r39688
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter.cls.xml	(.../FlowWinkelkarConverter.cls.xml)	(revision 39668)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/FlowWinkelkarConverter.cls.xml	(.../FlowWinkelkarConverter.cls.xml)	(revision 39688)
@@ -46,7 +46,7 @@
 
 <Method name="Convert">
 <Implementation><![CDATA[
-	#dim KlantIdIterator As TECH.Iterat = ..VerkoopAPI.GeefKlantIDIterator()
+	#dim KlantIdIterator As TECH.Iterator = ..VerkoopAPI.GeefKlantIDIterator()
 	while KlantIdIterator.HasNext() {
 		#dim KlantId As %String = KlantIdIterator.Next()
 		do ..ConvertCustomer(KlantId)	
@@ -57,12 +57,11 @@
 <Method name="ConvertCustomer">
 <FormalSpec>KlantId:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Orders As TECH.ListIterator = ##class(TECH.ListIterator).%New(..Retriever.ZoekViaKlantId(KlantId))
-	#Dim FlowOfferte as Flow.Offerte.Hoofding
-	while Orders.HasNext() {
-		Set FlowOfferte = Orders.Next()
-		If $$$Not(..ExportStatusService.IsWinkelKarSuccesvolGeexporteerd(FlowOfferte.ID)) {	
-			Do ..ExportStatusService.Registreer( ..Sender.Send(..Converter.Convert(FlowOfferte)))
+	Set OfferteIterator = ##class(TECH.ListIterator).%New(..Retriever.ZoekViaKlantId(KlantId))
+	while OfferteIterator.HasNext() {
+		#dim Offerte As Flow.Offerte.Hoofding = OfferteIterator.Next()
+		If $$$Not(..ExportStatusService.IsWinkelKarSuccesvolGeexporteerd(Offerte.ID)) {	
+			Do ..ExportStatusService.Registreer( ..Sender.Send(..Converter.Convert(Offerte)))
 		}
 	}
 ]]></Implementation>