Index: APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml
===================================================================
diff -u -r41098 -r41099
--- APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41098)
+++ APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41099)
@@ -78,18 +78,26 @@
 	Set ..Klant = Klant
 	Set ..KlantPrijsBepaler = ..VerkoopPrijsAPI.GeefKlantPrijsBepaler(Klant)
 	
-	Set ..Vhisie4Winkelkar = ##class(WS.Vhisie4.Winkelkar.dto.Winkelkar).%New()
-	Set ..Vhisie4Winkelkar.Id = $REPLACE(..DateTimeAPI.CurrentHorolog(),",","")
-	Set ..Vhisie4Winkelkar.KlantId = Klant.GeefID()
-	Set ..Vhisie4Winkelkar.Referentie = "Blum OPC " _Winkelkar.userName _" " _..FormatAPI.FormatDate(..DateTimeAPI.CurrentDate(),"DD/MM/JJ")
-	Set ..Vhisie4Winkelkar.CommissieReferentie = ""
+	Do ..MaakVhisie4Winkelkar(Winkelkar.userName, Klant.GeefID())
 	
 	Do ..VerwerkWinkelkar(Winkelkar)
 	
 	Quit ..VerzendVhisie4Winkelkar(Winkelkar.userName)
 ]]></Implementation>
 </Method>
 
+<Method name="MaakVhisie4Winkelkar">
+<FormalSpec>UserName:%String,KlantID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..Vhisie4Winkelkar = ##class(WS.Vhisie4.Winkelkar.dto.Winkelkar).%New()
+	Set ..Vhisie4Winkelkar.Id = $REPLACE(..DateTimeAPI.CurrentHorolog(),",","")
+	Set ..Vhisie4Winkelkar.KlantId = KlantID
+	Set ..Vhisie4Winkelkar.Referentie = "Blum OPC " _UserName _" " _..FormatAPI.FormatDate(..DateTimeAPI.CurrentDate(),"DD/MM/JJ")
+	Set ..Vhisie4Winkelkar.CommissieReferentie = ""
+]]></Implementation>
+</Method>
+
 <Method name="VerzendVhisie4Winkelkar">
 <FormalSpec>UserName:%String</FormalSpec>
 <Private>1</Private>