Index: APPS/Verpakking/DoosService.cls.xml
===================================================================
diff -u -r68511 -r68512
--- APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 68511)
+++ APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 68512)
@@ -54,27 +54,29 @@
 <Method name="GeefDoos">
 <FormalSpec><![CDATA[ProductGroep:%String,ReceptNaam:%String,MachineID:APPS.Verpakking.enu.MachineID,Aantal:%Integer,&Params:%String,Prioriteit:%String="Simulatie"]]></FormalSpec>
 <Implementation><![CDATA[
-	#dim MachineTechnologie As APPS.Verpakking.enu.MachineTechnologie = ..GeefMachineTechnologie(MachineID)
-	#dim Doos As APPS.Verpakking.Doos = ..DoosFactory.MaakDoos(ProductGroep, ReceptNaam)
-	Do ..DoosAanvuller.VulAanBasisInformatieDoos(.Doos, .Params, ProductGroep, Prioriteit, MachineTechnologie)
-	Do ..Optimizer.Optimize(.Doos, ProductGroep)
-	
-	#dim SnijRequest As WS.APPS.Verpakking.SnijDoosRequest = ..SnijRequestMaker.MaakSnijRequest(Doos, MachineTechnologie, MachineID, Prioriteit, Aantal)
-	Do ..LogXmlObject(SnijRequest, "GeefDoos OUT")
+	If $$$Not(MachineID = ##class(APPS.Verpakking.enu.MachineID).VH()) {
+		#dim MachineTechnologie As APPS.Verpakking.enu.MachineTechnologie = ..GeefMachineTechnologie(MachineID)
+		#dim Doos As APPS.Verpakking.Doos = ..DoosFactory.MaakDoos(ProductGroep, ReceptNaam)
+		Do ..DoosAanvuller.VulAanBasisInformatieDoos(.Doos, .Params, ProductGroep, Prioriteit, MachineTechnologie)
+		Do ..Optimizer.Optimize(.Doos, ProductGroep)
 		
-	#dim SnijResponse As WS.APPS.Verpakking.SnijDoosResponse = ..SnijDoosService.SnijDoos(SnijRequest)
-	Do ..LogXmlObject(SnijResponse, "GeefDoos IN")
-	
-	//Is Onderstaande nodig?
-	/*
-	If (..HeeftTBXLosseOnderdelendoos(.Params) && $$$Not(ProductGroep = "TBX") && $$$Not(ReceptNaam= "V1 LosseOnderdelen")) {
-		Set BasisDoos = ..DoosFactory.MaakBasisDoos("TBX", "V1 LosseOnderdelen", MachineTechnologie)
-		Set AangevuldeDoos = ..DoosAanvuller.VulAanBasisInformatieDoos(BasisDoos, .Params, ProductGroep, Prioriteit, MachineTechnologie)
-		Set GeoptimaliseerdeDoos = ..Optimizer.Optimize(BasisDoos, ProductGroep)
-		Set SnijRequest = ..MaakSnijRequest(GeoptimaliseerdeDoos, MachineTechnologie, MachineID, Prioriteit, Aantal)
-		;Do ..SnijDoosService.SnijDoos(SnijRequest)
+		#dim SnijRequest As WS.APPS.Verpakking.SnijDoosRequest = ..SnijRequestMaker.MaakSnijRequest(Doos, MachineTechnologie, MachineID, Prioriteit, Aantal)
+		Do ..LogXmlObject(SnijRequest, "GeefDoos OUT")
+			
+		#dim SnijResponse As WS.APPS.Verpakking.SnijDoosResponse = ..SnijDoosService.SnijDoos(SnijRequest)
+		Do ..LogXmlObject(SnijResponse, "GeefDoos IN")
+		
+		//Is Onderstaande nodig?
+		/*
+		If (..HeeftTBXLosseOnderdelendoos(.Params) && $$$Not(ProductGroep = "TBX") && $$$Not(ReceptNaam= "V1 LosseOnderdelen")) {
+			Set BasisDoos = ..DoosFactory.MaakBasisDoos("TBX", "V1 LosseOnderdelen", MachineTechnologie)
+			Set AangevuldeDoos = ..DoosAanvuller.VulAanBasisInformatieDoos(BasisDoos, .Params, ProductGroep, Prioriteit, MachineTechnologie)
+			Set GeoptimaliseerdeDoos = ..Optimizer.Optimize(BasisDoos, ProductGroep)
+			Set SnijRequest = ..MaakSnijRequest(GeoptimaliseerdeDoos, MachineTechnologie, MachineID, Prioriteit, Aantal)
+			;Do ..SnijDoosService.SnijDoos(SnijRequest)
+		}
+		*/
 	}
-	*/
 ]]></Implementation>
 </Method>