Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r33663 -r33666
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33663)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33666)
@@ -164,6 +164,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefParent">
+<FormalSpec>WinkelkarID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.Parent</ReturnType>
+<Implementation><![CDATA[
+	#dim WinkelkarParent As APPS.EC.Winkelkar.Parent = ##class(APPS.EC.Winkelkar.Parent).%New()
+	#dim Query As %String = "SELECT ID FROM  APPS_VKP_impl.Offerte WHERE WinkelkarID = ?"
+	#dim OfferteID As %String = ##class(TECH.Context).Instance().GeefQueryAPI().GeefIDVanEnigeOptioneleRecord(Query, $LB(WinkelkarID))
+	If (OfferteID '=""){
+		Set WinkelkarParent.ID = OfferteID
+		Set WinkelkarParent.Type = ##class(APPS.EC.Winkelkar.enu.ParentType).WebshopOfferte()
+	}
+	Quit WinkelkarParent
+]]></Implementation>
+</Method>
+
 <Method name="OpenWinkelkar">
 <FormalSpec>WinkelkarID:%String</FormalSpec>
 <ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>