Index: DOM/VKP/Maatwerk/impl/BestelService.cls.xml
===================================================================
diff -u -r55513 -r55514
--- DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 55513)
+++ DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 55514)
@@ -24,17 +24,17 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MaatwerkCalcAPI:DOM.PM.MaatwerkCalcAPI,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory,DoosAfmetingenBepalerFactory:zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepalerFactory</FormalSpec>
+<FormalSpec>MaatwerkCalcAPI:DOM.PM.MaatwerkCalcAPI="",LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory="",DoosAfmetingenBepalerFactory:zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepalerFactory=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..MaatwerkCalcAPI = $$$Implementation(MaatwerkCalcAPI, ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI())
-	set ..LosseComponentFactory = $$$Implementation(LosseComponentFactory, ##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
-	set ..DoosAfmetingenBepalerFactory = $$$Implementation(DoosAfmetingenBepalerFactory, ##class(zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepalerFactory).%New())
+	Set ..MaatwerkCalcAPI = $$$Implementation(MaatwerkCalcAPI, ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI())
+	Set ..LosseComponentFactory = $$$Implementation(LosseComponentFactory, ##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
+	Set ..DoosAfmetingenBepalerFactory = $$$Implementation(DoosAfmetingenBepalerFactory, ##class(zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepalerFactory).%New())
 	
-	quit $$$OK
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -44,28 +44,28 @@
 <Implementation><![CDATA[
 	#dim BestelEenheid As TECH.Integer = 1
 	
-	if (Kenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
+	If (Kenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
 		#dim VerpakkingType As DOM.PM.enu.TAORVerpakkingType.AutoComplete = ##class(DOM.PM.enu.TAORVerpakkingType.AutoComplete).%New()
 		
-		if ((Kenmerken.VerpakkingType = VerpakkingType.LosseComponentenInBulk) && $$$Not(Kenmerken.ProductieWijze = "")) {
+		If ((Kenmerken.VerpakkingType = VerpakkingType.LosseComponentenInBulk) && $$$Not(Kenmerken.ProductieWijze = "")) {
 			#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel  = ..MaakLosseComponent(Kenmerken)
 
-			set ..DoosAfmetingenBepaler = ..DoosAfmetingenBepalerFactory.MaakDoosAfmetingenBepaler(LadeOnderdeel)
-			set BestelEenheid = ..DoosAfmetingenBepaler.GeefMaximaalAantalOnderdelen(LadeOnderdeel)
-		} elseif (Kenmerken.VerpakkingType = VerpakkingType.BulkPerOnderdeelGegroepeerd) {
-			set:(Aantal <= 40) BestelEenheid = 10
+			Set ..DoosAfmetingenBepaler = ..DoosAfmetingenBepalerFactory.MaakDoosAfmetingenBepaler(LadeOnderdeel)
+			Set BestelEenheid = ..DoosAfmetingenBepaler.GeefMaximaalAantalOnderdelen(LadeOnderdeel)
+		} ElseIf (Kenmerken.VerpakkingType = VerpakkingType.BulkPerOnderdeelGegroepeerd) {
+			Set:(Aantal <= 40) BestelEenheid = 10
 		}
 	}
 		
-	quit BestelEenheid
+	Quit BestelEenheid
 ]]></Implementation>
 </Method>
 
 <Method name="ValideerBestelEenheid">
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Aantal:TECH.Integer</FormalSpec>
 <Implementation><![CDATA[
 	#dim BestelEenheid As TECH.Integer = ..GeefBestelEenheid(Kenmerken, Aantal)
-	do:($$$Not(Aantal # BestelEenheid = 0)) ##class(TECH.Exceptions.InvalidInputException).Throw("Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid (Minimum = '" _ BestelEenheid _ "', anders een veelvoud hiervan).")
+	Do:($$$Not(Aantal # BestelEenheid = 0)) ##class(TECH.Exceptions.InvalidInputException).Throw("Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid (Minimum = '" _ BestelEenheid _ "', anders een veelvoud hiervan).")
 ]]></Implementation>
 </Method>
 
@@ -77,7 +77,7 @@
 	#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)
+	Quit ..LosseComponentFactory.MaakLosseComponent(HalffabItemsBoom, Kenmerken, LosseComponent)
 ]]></Implementation>
 </Method>
 </Class>