Index: DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml
===================================================================
diff -u
--- DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(revision 0)
+++ DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidLosseComponentenInBulkBepaler.cls.xml	(revision 55523)
@@ -0,0 +1,141 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidLosseComponentenInBulkBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.MaatwerkCalcAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LosseComponentFactory">
+<Type>DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MaatwerkCalcAPI:DOM.PM.MaatwerkCalcAPI="",LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..MaatwerkCalcAPI = $$$Inject(MaatwerkCalcAPI, ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI())
+	Set ..LosseComponentFactory = $$$Inject(LosseComponentFactory, ##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestelEenheidLosseComponentenInBulk">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel  = ..MaakLosseComponent(Kenmerken)
+	#dim Rol As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = LadeOnderdeel.GeefRol()
+	
+	Quit ..GeefBestelEenheidVoorRol(Kenmerken, Rol)
+]]></Implementation>
+</Method>
+
+<Method name="MaakLosseComponent">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(Kenmerken)
+	#dim LosseComponent As DOM.PM.Maatwerk.Lade.enu.LosseComponent = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New().Convert(Kenmerken.ProductieWijze)
+	
+	Quit ..LosseComponentFactory.MaakLosseComponent(HalffabItemsBoom, Kenmerken, LosseComponent)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestelEenheidVoorRol">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Rol:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim BestelEenheid As TECH.Integer = 0
+	
+	If (Rol = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()) {
+		Set BestelEenheid = ..GeefBestelEenheidVoorZijkant(Kenmerken)
+	} ElseIf (Rol = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()) {
+		Set BestelEenheid = ..GeefBestelEenheidVoorRug(Kenmerken)
+	} ElseIf (Rol = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()) {
+		Set BestelEenheid = ..GeefBestelEenheidVoorFront(Kenmerken)
+	}
+	
+	Quit BestelEenheid
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestelEenheidVoorZijkant">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim BestelEenheid As TECH.Integer
+	
+	If (Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()) {
+		Set BestelEenheid = 24
+	} ElseIf (Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()) {
+		Set BestelEenheid = 16
+	} ElseIf ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K()) || 
+		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()) || 
+		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F())) {
+		Set BestelEenheid = 8
+	} Else {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("LadeHoogte " _ Kenmerken.LadeHoogte _ " voor berekening BestelEenheidVoorZijkant niet gevonden. ")
+	}
+	
+	Quit BestelEenheid
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestelEenheidVoorRug">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim BestelEenheid As TECH.Integer
+	
+	If (Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()) {
+		Set BestelEenheid = 24
+	} ElseIf ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()) ||
+		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K())) {
+		Set BestelEenheid = 16
+	} ElseIf ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()) || 
+		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F())) {
+		Set BestelEenheid = 8
+	} Else {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("LadeHoogte " _ Kenmerken.LadeHoogte _ " voor berekening BestelEenheidVoorRug niet gevonden. ")
+	}
+	
+	Quit BestelEenheid
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestelEenheidVoorFront">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim BestelEenheid As TECH.Integer
+	
+	If ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()) ||
+		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M())) {
+		Set BestelEenheid = 20
+	} ElseIf ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K()) || 
+		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C())) {
+		Set BestelEenheid = 10
+	} Else {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("LadeHoogte " _ Kenmerken.LadeHoogte _ " voor berekening BestelEenheidVoorZijkant niet gevonden. ")
+	}
+	
+	Quit BestelEenheid
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>