Index: vhDeploy/JCL/Deploy20120924CopyMakenVanTBXOrder.cls.xml
===================================================================
diff -u -r232 -r248
--- vhDeploy/JCL/Deploy20120924CopyMakenVanTBXOrder.cls.xml	(.../Deploy20120924CopyMakenVanTBXOrder.cls.xml)	(revision 232)
+++ vhDeploy/JCL/Deploy20120924CopyMakenVanTBXOrder.cls.xml	(.../Deploy20120924CopyMakenVanTBXOrder.cls.xml)	(revision 248)
@@ -12,6 +12,9 @@
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	do ##class(WS.TBX.OrderAbstract).%KillExtent()
+	do ##class(WS.TBX.OrderAbstract).%DeleteExtent()
+	
 	merge ^WS.TBX.OrderCopyD = ^WS.TBX.OrderD
 	merge ^WS.TBX.OrderCopyS = ^WS.TBX.OrderS
 	merge ^WS.TBX.OrderCopyI = ^WS.TBX.OrderI
@@ -81,7 +84,10 @@
 	for  { set idxLijn = OrderCopy.Lijnen.Next(idxLijn) quit:idxLijn="" 
 		do Order.Lijnen.SetAt(OrderCopy.Lijnen.GetAt(idxLijn),idxLijn)
 	}
-	write Order.%Save()
+	set sc = Order.%Save()
+	if $$$ISERR(sc) {
+		w Order.mID," failed ",!	
+	}
 ]]></Implementation>
 </Method>
 </Class>