Index: zTryout/CSC/Try.cls.xml
===================================================================
diff -u -r946 -r995
--- zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 946)
+++ zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 995)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-09 07:51:10">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-08 13:38:51">
 <Class name="zTryout.CSC.Try">
 <ClassType>persistent</ClassType>
 <IncludeCode>%VHMacro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>62131,28320.485504</TimeChanged>
+<TimeChanged>62189,49138.503153</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="Try">
@@ -55,6 +55,93 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Try3">
+<Description>
+Do ##class(zTryout.CSC.Try).Try3()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set PRNr = $Order(^KPR(""))
+	
+	While (PRNr '= "")
+	{
+		Set Product = ProductAPI.GeefProduct(PRNr)
+		
+		Set Criteria=##class(APPS.PM.dto.ZoekCriteria).%New()
+		Set Criteria.SoortProductID=##class(APPS.PM.enu.SoortProductID).Korttekst()	
+		Set Criteria.ProductID = Product.GeefKorttekst()
+		Set ProductService =  ##class(APPS.PM.ProductService).%New()
+		Set ProductenLijst = ProductService.ZoekProducten(Criteria).HerkendeProducten
+		If (ProductenLijst.Count() '= 1)
+		{
+			If (ProductenLijst.Count() = 0) || (ProductenLijst.GetAt(1).MultipleNr = ""){
+				w "KT: "_Product.GeefKorttekst()_", Gevonden: "_ProductenLijst.Count(),!
+				For i=1:1:ProductenLijst.Count()
+				{
+					w "    "_ProductenLijst.GetAt(i).IdentNr_" "_ProductenLijst.GetAt(i).Korttekst,!
+				}
+			}
+		}
+		
+		Set PRNr = $Order(^KPR(PRNr))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Try4">
+<Description>
+Do ##class(zTryout.CSC.Try).Try4()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	&SQL(DELETE FROM PPS.Batch WHERE ID > 9998)
+	d ##class(APPS.Halux.common.impl.BatchImpl).%KillExtent()
+	Set ^PPS.BatchD=9998
+	Set ^APPS.Halux.common7FB.BatchImplD=8861
+	
+	
+	For BatchNr=8862:1:9998
+	{
+		Set Batch = ##class(DS.PPS.TBX.Batch).%OpenId(BatchNr)
+		Set BatchNieuw = ##class(APPS.Halux.common.BatchService).%New().GeefNieuweBatch(##class(%ListOfObjects).%New())
+		If ($IsObject(Batch))
+		{
+			Set ToeleveringIterator = ##class(TECH.ListIterator).%New(Batch.Toeleveringen)
+			Set ToeleveringLijst = ##class(%ListOfObjects).%New()
+			While (ToeleveringIterator.HasNext())
+			{
+				Set ToeleveringOld = ToeleveringIterator.Next().Toelevering
+				w ToeleveringOld,!
+				Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering($Piece(ToeleveringOld,"||",2))
+				If ($IsObject(Toelevering))
+				{
+					Do ToeleveringLijst.Insert(Toelevering)
+				}
+			}
+			Set BatchNieuw = ##class(APPS.Halux.common.BatchService).%New().GeefNieuweBatch(ToeleveringLijst,Batch.Line)
+		}
+		
+		Do BatchNieuw.%Save()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Try5">
+<Description>
+Do ##class(zTryout.CSC.Try).Try5()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set $ZTRAP = "Iets"
+	Set x = y
+	w "in",!
+	Set $ZTRAP = ""
+	w "uit"
+	Quit
+Iets
+	w "exceptie",!
+	Quit
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^zTryout.CSC.TryD</DataLocation>
@@ -71,5 +158,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="3789512981"/>
+<Checksum value="3729925703"/>
 </Export>