Index: vhPowerTools/WSimpl/Vhisie4/Winkelkar.cls.xml
===================================================================
diff -u
--- vhPowerTools/WSimpl/Vhisie4/Winkelkar.cls.xml	(revision 0)
+++ vhPowerTools/WSimpl/Vhisie4/Winkelkar.cls.xml	(revision 42715)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.WSimpl.Vhisie4.Winkelkar">
+<Super>%RegisteredObject</Super>
+
+<Property name="UnishopPowerTool">
+<Type>vhPowerTools.APPS.EC.ExterneVerkoopPowerService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vhisie4WinkelkarRepository">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..UnishopPowerTool = ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New()
+	Set ..Vhisie4WinkelkarRepository = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZetOfferteOpNietBesteld">
+<Description>
+Do ##class(vhPowerTools.WSimpl.Vhisie4.Winkelkar).%New().ZetOfferteOpNietBesteld( ??? )
+Deze powertool wijzigt enkel de winkelkar in Caché, en dus niet de Intracto-winkelkar (vhisie4) </Description>
+<FormalSpec>OfferteID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Write !,..Vhisie4WinkelkarRepository.GeefOfferteIDViaID(OfferteID),!
+	;Do ..UnishopPowerTool.ZetOfferteOpNietBesteld( ..Vhisie4WinkelkarRepository.GeefOfferteIDViaID(OfferteID) )
+	
+	// Tijdelijke work-around : In de offerte het OrderID leegmaken en Do ##class(APPS.VKP.OrderIngaveService).%New().MaakOrderVanOfferte(..Vhisie4WinkelkarRepository.GeefOfferteIDViaID(OfferteID)) oproepen.
+	/*
+s of=##class(APPS.VKP.Offerte.impl.OfferteRepository).%New().GeefViaID(169166)  w of,!
+ 
+w of.OrderID  --> 177012
+ 
+d of.ZetOrderID("")
+ 
+d of.Save()
+	*/
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOfferte">
+<Description>
+Do ##class(vhPowerTools.WSimpl.Vhisie4.Winkelkar).%New().VerwijderOfferte( ??? )</Description>
+<FormalSpec>OfferteID:%String</FormalSpec>
+<Implementation><![CDATA[	;Do ..UnishopPowerTool.VerwijderOfferte( ..Vhisie4WinkelkarRepository.GeefOfferteIDViaID(OfferteID) )
+]]></Implementation>
+</Method>
+
+<Method name="MarkeerBesteldeOfferteAlsVerwerkt">
+<Description>
+Do ##class(vhPowerTools.WSimpl.Vhisie4.Winkelkar).%New().MarkeerBesteldeOfferteAlsVerwerkt(OfferteID, GemaakteDataMOrderID)</Description>
+<FormalSpec>OfferteID:%String,GemaakteDataMOrderID:%String="999999"</FormalSpec>
+<Implementation><![CDATA[	;Do ..UnishopPowerTool.MarkeerBesteldeOfferteAlsVerwerkt( ..Vhisie4WinkelkarRepository.GeefOfferteIDViaID(OfferteID), GemaakteDataMOrderID )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>