Index: APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml
===================================================================
diff -u
--- APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(revision 0)
+++ APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(revision 40987)
@@ -0,0 +1,134 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="WinkelkarSender">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GroepID">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vhisie4Winkelkar">
+<Type>WS.Vhisie4.Winkelkar.dto.Winkelkar</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>WinkelkarSender:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..WinkelkarSender = $$$Inject(WinkelkarSender, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>Winkelkar:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ..Vhisie4Winkelkar = ##class(WS.Vhisie4.Winkelkar.dto.Winkelkar).%New()
+	Set ..Vhisie4Winkelkar.Id = $REPLACE($horolog,",","")
+	Set ..Vhisie4Winkelkar.KlantId = Klant.GeefID()
+	Set ..Vhisie4Winkelkar.Referentie = "Blum OPC " _Winkelkar.userName _" " _$ZDATE($HOROLOG)
+	Set ..Vhisie4Winkelkar.CommissieReferentie = ""
+	
+	if Winkelkar.transferMode = "cumulated" {
+		do ..ProcessCumulated(Winkelkar.shoppingCart.directories)
+	} elseif Winkelkar.transferMode = "bpe" {
+		do ..ProcessDirectories(Winkelkar.shoppingCart.directories)
+	} else {
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Blum OPC - Transfermode "_Winkelkar.transferMode_ " niet ondersteund !"))	
+	}
+	
+	#dim Response As WS.Vhisie4.WinkelkarExport.SendResponse = ..WinkelkarSender.Send(..Vhisie4Winkelkar)
+	If (Response.Winkelkar.Status '= "Geslaagd") {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Blum OPC - Er is een fout opgetreden bij het bewaren van de winkelkar voor gebruiker " _Winkelkar.userName _"!")
+		Set Exception.ExtraInfo = Response.Winkelkar.Foutmelding.Read()
+		do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+	Quit Response.Winkelkar.IntractoId
+]]></Implementation>
+</Method>
+
+<Method name="ProcessCumulated">
+<FormalSpec>Directories:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set DirectoryIterator = ##class(TECH.ListIterator).%New(Directories)
+	While (DirectoryIterator.HasNext()) {
+		#dim Directory As Directory = DirectoryIterator.Next()
+		Do ..ProcessCumulatedDirectory(Directory)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ProcessCumulatedDirectory">
+<FormalSpec>Directory:APPS.Blum.OnlineProductConfigurator.dto.Directory</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set SubDirectoryIterator = ##class(TECH.ListIterator).%New(Directory.subDirectories)
+	while SubDirectoryIterator.HasNext() {
+		#dim SubDirectory As APPS.Blum.OnlineProductConfigurator.dto.Directory = SubDirectoryIterator.Next()
+		set IdentNrIterator = ##class(TECH.ListIterator).%New(SubDirectory.identnumbers)
+		While (IdentNrIterator.HasNext()) {
+			#dim IdentNumber As APPS.Blum.OnlineProductConfigurator.dto.IdentNumber = IdentNrIterator.Next()
+			do ..VoegToeProductLijn(IdentNumber.identnumber,IdentNumber.amount,"")
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ProcessDirectories">
+<FormalSpec>Directories:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set DirectoryIterator = ##class(TECH.ListIterator).%New(Directories)
+	While (DirectoryIterator.HasNext()) {
+		#dim Directory As Directory = DirectoryIterator.Next()
+		Do ..ProcessDirectory(Directory)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ProcessDirectory">
+<FormalSpec>Directory:APPS.Blum.OnlineProductConfigurator.dto.Directory</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..ProcessDirectories(Directory.subDirectories)
+	Set UnitIterator = ##class(TECH.ListIterator).%New(Directory.functionalUnits)
+	While (UnitIterator.HasNext()) {
+		#dim FunctionalUnit As APPS.Blum.OnlineProductConfigurator.dto.FunctionalUnit = UnitIterator.Next()
+		set ..GroepID = ..GroepID + 1
+		#dim Groep As %String = ##class(TECH.StringUtils).AlignRight(..GroepID,0,3)_"."_FunctionalUnit.name
+		Set IdentNrIterator = ##class(TECH.ListIterator).%New(FunctionalUnit.identnumbers)
+		While (IdentNrIterator.HasNext()) {
+			#dim IdentNumber As APPS.Blum.OnlineProductConfigurator.dto.IdentNumber = IdentNrIterator.Next()
+			do ..VoegToeProductLijn(IdentNumber.identnumber,FunctionalUnit.amount*IdentNumber.amount,Groep)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeProductLijn">
+<FormalSpec>IdentNr:%String,Aantal:%Integer,Referentie:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Vhisie4ProductLijn = ##class(WS.Vhisie4.Winkelkar.dto.ProductLijn).%New()
+	Set Vhisie4ProductLijn.Aantal = Aantal
+	Set Vhisie4ProductLijn.ProductId = IdentNr
+	Do ..Vhisie4Winkelkar.Lijnen.Insert(Vhisie4ProductLijn)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml
===================================================================
diff -u -r40982 -r40987
--- APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 40982)
+++ APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 40987)
@@ -13,15 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Vhisie4WinkelkarConverteerder">
+<Type>APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KlantBepaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler,FlowOfferteConverteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder</FormalSpec>
+<FormalSpec>KlantBepaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler,FlowOfferteConverteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder,Vhisie4WinkelkarConverteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..KlantBepaler = $$$Inject(KlantBepaler, ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New())
 	Set ..FlowOfferteConverteerder = $$$Inject(FlowOfferteConverteerder, ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder).%New())
+	Set ..Vhisie4WinkelkarConverteerder = $$$Inject(Vhisie4WinkelkarConverteerder, ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New())
 
 	quit $$$OK
 ]]></Implementation>
@@ -39,14 +45,17 @@
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Webshop</ReturnType>
 <Implementation><![CDATA[
 	#dim Klant As APPS.Blum.OnlineProductConfigurator.dto.Klant = ..KlantBepaler.GeefKlant(UserCart)
-	
-	#dim OfferteHoofding As Flow.Offerte.Hoofding = ..FlowOfferteConverteerder.Converteer(UserCart,Klant.Klant,Klant.Toegang.GeefID())
-	Do OfferteHoofding.Save()
-	
 	Set Webshop = ##class(APPS.Blum.OnlineProductConfigurator.dto.Webshop).%New()
-	Set Webshop.ID = OfferteHoofding.GeefID()
 	Set Webshop.Taal = Klant.Toegang.Taal.BasisTaalID()
-		
+	
+	if Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie3() {
+		#dim OfferteHoofding As Flow.Offerte.Hoofding = ..FlowOfferteConverteerder.Converteer(UserCart,Klant.Klant,Klant.Toegang.GeefID())
+		Do OfferteHoofding.Save()
+		Set Webshop.ID = OfferteHoofding.GeefID()
+	} else {
+		;Set Webshop.ID = ..Vhisie4WinkelkarConverteerder.Converteer(UserCart, Klant.Klant)		
+	}	
+	
 	Quit Webshop
 ]]></Implementation>
 </Method>