Index: APPS/Halux/TBX/impl/WerkpostZaagHelper.cls.xml
===================================================================
diff -u -r1073 -r1133
--- APPS/Halux/TBX/impl/WerkpostZaagHelper.cls.xml	(.../WerkpostZaagHelper.cls.xml)	(revision 1073)
+++ APPS/Halux/TBX/impl/WerkpostZaagHelper.cls.xml	(.../WerkpostZaagHelper.cls.xml)	(revision 1133)
@@ -27,13 +27,13 @@
 <FormalSpec><![CDATA[&qHandle:%Binary,L1BatchKey:%String,L2BatchKey:%String,DirectBatchKey:%String]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set %ProdLijnen=##class(%ArrayofObject).%New()
+	Set %ProdLijnen=##class(%ArrayOfObjects).%New()
 	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(L1BatchKey),##class(APPS.Halux.TBX.enu.ProductieLijn).Lijn1())
-	Do %ProdLijnen.SetAt(SyncBatch,SyncBatc.ProductieLijn)
+	Do %ProdLijnen.SetAt(SyncBatch,SyncBatch.ProductieLijn)
 	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(L2BatchKey),##class(APPS.Halux.TBX.enu.ProductieLijn).Lijn2())
-	Do %ProdLijnen.SetAt(SyncBatch,SyncBatc.ProductieLijn)
+	Do %ProdLijnen.SetAt(SyncBatch,SyncBatch.ProductieLijn)
 	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(DirectBatchKey),##class(APPS.Halux.TBX.enu.ProductieLijn).Direct())
-	Do %ProdLijnen.SetAt(SyncBatch,SyncBatc.ProductieLijn)
+	Do %ProdLijnen.SetAt(SyncBatch,SyncBatch.ProductieLijn)
 	
 	Do ##class(WerkpostZaagHelper).CalcBufferLength(%ProdLijnen)
 	Do ##class(WerkpostZaagHelper).MarkChangedBatches(%ProdLijnen)
@@ -79,7 +79,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ZaagOpdracht:APPS.Halux.TBX.ZaagOpdrachten,Device:APPS.Halux.TBX.enu.PrintDevice</FormalSpec>
 <Implementation><![CDATA[
-	Set blPrint=##class(BL.PPS.TBX.DocsV1).Instantiate(1)
+	Set blPrint=##class(BL.PPS.TBX.DocsV1).%New()
 	Do blPrint.Init(ZaagOpdracht.Batch.%Id(), "", Device)
 	
 	Set SequenceNr=ZaagOpdracht.Queue.Sequence
@@ -99,6 +99,7 @@
 </Method>
 
 <Method name="CalcBufferLength">
+<ClassMethod>1</ClassMethod>
 <FormalSpec>ProdLijnen:%ArrayOfObjects</FormalSpec>
 <Implementation><![CDATA[
 		Set rsGezaagd=##class(%ResultSet).%New("APPS.Halux.TBX.impl.WerkpostZaagHelper:qBodemsInBuffer")
@@ -119,6 +120,7 @@
 </Method>
 
 <Method name="MarkChangedBatches">
+<ClassMethod>1</ClassMethod>
 <FormalSpec>ProdLijnen:%ArrayOfObjects</FormalSpec>
 <Implementation><![CDATA[	/* TODO */
 ]]></Implementation>