Index: vhDeploy/CSC/Deploy20111003x1126.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20111003x1126.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20111003x1126.cls.xml	(revision 2248)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20111003x1126">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("UPDATE DOM_PM_Maatwerk_Calc_Kost_impl.KostenPlaatsWaardeInfo SET KostenPlaatsID = 'TBZAAG' WHERE KostenPlaatsID = 'TBZaag'")
+	Do ResultSet.Execute()
+	
+	Do ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostenPlaatsWaardeInfo).%New("TBZAAG",".01391264233","Planning","","").%Save()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/common/ProductieService.cls.xml
===================================================================
diff -u -r2129 -r2248
--- APPS/Halux/common/ProductieService.cls.xml	(.../ProductieService.cls.xml)	(revision 2129)
+++ APPS/Halux/common/ProductieService.cls.xml	(.../ProductieService.cls.xml)	(revision 2248)
@@ -17,14 +17,17 @@
 	Set Verpakking = TBXLade.GeefVerpakking()
 	If ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen()))
 	{
-		If (Toelevering.GeefOrder().GeefKlantNr() = 1239)
+		If ($IsObject(Toelevering.GeefOrder()))
 		{
-			Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Plus()
+			If (Toelevering.GeefOrder().GeefKlantNr() = 1239)
+			{
+				Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Plus()
+			}
+			ElseIf ($Find(..#KastKlanten,";"_Toelevering.GeefOrder().GeefKlantNr()_";"))
+			{
+				Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()
+			}
 		}
-		ElseIf ($Find(..#KastKlanten,";"_Toelevering.GeefOrder().GeefKlantNr()_";"))
-		{
-			Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()
-		}
 		Else
 		{
 			Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet()