Index: zTryout/PV/TBXZaag/Test.cls.xml
===================================================================
diff -u
--- zTryout/PV/TBXZaag/Test.cls.xml	(revision 0)
+++ zTryout/PV/TBXZaag/Test.cls.xml	(revision 2478)
@@ -0,0 +1,300 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.PV.TBXZaag.Test">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>1</ClassDefinitionError>
+
+<Method name="test">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).test()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set batch=##class(APPS.Halux.common.impl.BatchImpl).%OpenId(11106)
+	write batch.IsActief()
+]]></Implementation>
+</Method>
+
+<Method name="Build">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).Build()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+ 	/* For BatchID=7:1:8 {
+ 		Set bl=##class(APPS.Halux.PPS.TBXZaag.impl.Builder).%New(BatchID)
+		Do bl.RemoveBatches()
+	}*/
+
+	Set BatchService=##class(APPS.Halux.common.BatchService).%New()
+	Set it=BatchService.GeefActieveBatchIterator()
+	Set IDs=$lb(10653,10652,10651,10650,10649,10648)
+	For I=1:1:$LL(IDs) {
+		Set BatchID=$LI(IDs,I)
+		;Do ..Sequence(BatchID)
+		Set bl=##class(APPS.Halux.PPS.TBXZaag.impl.Builder).%New(BatchID)
+		Do bl.RemoveBatches()
+		Do bl.BuildBatchesFromQueue()
+		}	
+		
+	Set rs=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qActieveBatchLijst")
+	Set sc=rs.Execute() w $$ParseStatus^vhLib(sc)
+	While (rs.Next()){
+		Write rs.Data("BatchKey")
+		Write !
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BuildAll">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).BuildAll()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set BatchService=##class(APPS.Halux.common.BatchService).%New()
+	Set SeqService=##class(APPS.Halux.common.SequentieService).%New()
+	Set itB=BatchService.GeefActieveBatchIterator()
+	While itB.HasNext()
+	{
+		Set Batch=itB.Next()
+		Set BatchID=Batch.GeefBatchID()
+		Set Cnt=SeqService.HeeftSequentie(BatchID)
+		Do ..Sequence(BatchID)
+		w "Build batch ",BatchID," ",Cnt,!
+		Set bl=##class(APPS.Halux.PPS.TBXZaag.impl.Builder).%New(BatchID)
+		Do bl.RemoveBatches()
+		Do bl.BuildBatchesFromQueue()
+		}
+	Set rs=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qActieveBatchLijst")
+	Set sc=rs.Execute() w $$ParseStatus^vhLib(sc)
+	While (rs.Next()){
+		Write rs.Data("BatchKey")
+		Write !
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Sequence">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID</FormalSpec>
+<Implementation><![CDATA[
+	Set blSequencer=##Class(BL.PPS.TBX.Sequencer).Instantiate()
+	Do blSequencer.Init(BatchID,"S")	
+	Do blSequencer.BldLeanV1Sequence(.Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="Stilstand">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).Stilstand()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set bl=##class(APPS.Halux.PPS.TBXZaag.Werkpost).%New()
+	Do bl.RegistreerStilstand("Z1","TEST DEV",33,9422)
+]]></Implementation>
+</Method>
+
+<Method name="SyncBatch">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).SyncBatch()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	;Set BatchID=8728
+	w !
+	s t1=$zh
+	Set rs=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.Helper:qSyncBatch")
+	Set sc=rs.Execute("10651||","10651||TipOn","") w $$ParseStatus^vhLib(sc)
+	While (rs.Next()){
+	 ;Write $G(rs.Data("ID"))
+	 k %d m %d=rs.Data zw %d
+	 ;Write !
+	}
+	s t2=$zh
+	
+	w "elapsed time: ",(t2*1000)-(t1*1000)
+]]></Implementation>
+</Method>
+
+<Method name="PlaatMat">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).PlaatMat()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Werkpost=##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New(##class(APPS.Halux.enu.Werkpost).Zaag1())
+	Set DataSet=Werkpost.GeefPlaatMateriaal("B+R")
+	Do DataSet.XMLExport(,"literal,indent")
+]]></Implementation>
+</Method>
+
+<Method name="StilstandLijst">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).StilstandLijst()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Werkpost=##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New(##class(APPS.Halux.enu.Werkpost).Zaag1())
+	Set DataSet=Werkpost.GeefStilstanden()
+	Do DataSet.XMLExport(,"literal,indent")
+]]></Implementation>
+</Method>
+
+<Method name="Lijst">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).Lijst(11545,"")</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID,SubBatch</FormalSpec>
+<Implementation><![CDATA[
+	;Set BatchID=8728
+	w !
+	s t1=$zh
+	Set rs=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qZaagLijst")
+	Set sc=rs.Execute(BatchID,SubBatch)  w $$ParseStatus^vhLib(sc)
+	While (rs.Next()){
+	 ;Write $G(rs.Data("ID"))
+	 k %d m %d=rs.Data zw %d
+	 ;Write !
+	}
+	s t2=$zh
+	
+	w "elapsed time: ",(t2*1000)-(t1*1000)
+]]></Implementation>
+</Method>
+
+<Method name="GetBatchXML">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).GetBatchXML()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID,SubBatch</FormalSpec>
+<Implementation><![CDATA[
+	;Set BatchID=8728
+	Set bl=##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New("Z1")
+	Set rs=bl.GeefBatchLijst()
+	W rs.WriteXML("","indent,literal","","","","")
+	q
+	While (rs.Next()){
+	 Write rs.Data("ID")
+	 Write !
+	}
+	;method WriteXML(top As %String, diffGram As %Boolean = "", writeSchema As %Boolean = "", namespaces As %XML.Namespaces = "", local As %Boolean, ignoreNull As %Boolean) returns %Status
+]]></Implementation>
+</Method>
+
+<Method name="GetZaagLijstXML">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).GetZaagLijstXML("11548||TipOn")</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchKey,SubBatch</FormalSpec>
+<Implementation><![CDATA[
+	;Set BatchID=8728
+	Set bl=##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New("Z1")
+	Set rs=bl.GeefZaagLijst(BatchKey,"")
+	W rs.WriteXML("","indent,literal","","","","")
+	q
+	While (rs.Next()){
+	 Write rs.Data("ID")
+	 Write !
+	}
+	;method WriteXML(top As %String, diffGram As %Boolean = "", writeSchema As %Boolean = "", namespaces As %XML.Namespaces = "", local As %Boolean, ignoreNull As %Boolean) returns %Status
+]]></Implementation>
+</Method>
+
+<Method name="Test3">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).Test3()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID,SubBatch</FormalSpec>
+<Implementation><![CDATA[
+	Set BatchID=8728
+	Set bl=##class(APPS.Halux.PPS.TBXZaag.Werkpost).%New()
+	Do bl.GeefBufferLengte(.L1,.L2)
+	w L1," ",L2,!
+	;method WriteXML(top As %String, diffGram As %Boolean = "", writeSchema As %Boolean = "", namespaces As %XML.Namespaces = "", local As %Boolean, ignoreNull As %Boolean) returns %Status
+]]></Implementation>
+</Method>
+
+<Method name="Test2">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).Test2()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID,SubBatch</FormalSpec>
+<Implementation><![CDATA[
+	Set IDs=$lb(8717,8718,8728,8732,8733,8741,8744,8745,8746,8747,8748,8749,8750,8751,8752)
+	Set IDs=$lb(8728,8732,8718,8744)
+	Set bl=##class(APPS.Halux.PPS.TBXZaag.Werkpost).%New()
+	For I=1:1:$LL(IDs)
+	{	Set BatchID=$LI(IDs,I), SubBatch=""
+		Set rsZaagList=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.ZaagLijstHelper:qZaagLijstHelper")
+		Set sc=rsZaagList.Execute(BatchID,SubBatch)
+		w !,BatchID," ",$$ParseStatus^vhLib(sc)
+		Set Cnt=0
+		While rsZaagList.Next() 
+		{	
+			Hang 1
+			Set Cnt=Cnt+1
+			Set ZaagID=rsZaagList.Data("ID")
+			w !,"  ",ZaagID
+			IF ((I=$LL(IDs))&&(Cnt<10))||(I<$LL(IDs))
+			{
+				W "Zaag"
+				Do bl.ZetStatus(ZaagID, "F", "L1")
+			}
+			Set ZaagOpdracht=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%OpenId(ZaagID)
+			Set Queue=ZaagOpdracht.Queue
+			If ((I=2)&&(Cnt<10))||(I=1)
+			{
+				Set Queue.WPPers.WPStatus="F"
+				w " Pers F"
+			} 
+			Else
+			{
+				Set Queue.WPPers.WPStatus="W"
+				w " Pers W"
+			}
+			Set sc=Queue.%Save()			
+		}
+	}
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Do ##class(zTryout.PV.TBXZaag.Test).Test4(10653)
+
+]]></Content>
+</UDLText>
+
+<Method name="Test4">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID</FormalSpec>
+<Implementation><![CDATA[
+	Set bl=##class(APPS.Halux.PPS.TBXZaag.Werkpost).%New()
+	Set rsZaagList=##class(%ResultSet).%New(..%ClassName(1)_":qTestHelper")
+	Set sc=rsZaagList.Execute(BatchID) w $$ParseStatus^vhLib(sc)
+	Set Cnt=0
+	While rsZaagList.Next() 
+	{	
+		Set ZaagID=rsZaagList.Data("ID")
+		;w ZaagID
+		Set Cnt=Cnt+1
+		Do bl.PrintLabel(ZaagID,"LA")
+		r "continue...",k
+	}
+	Write "Cnt:",Cnt,!
+]]></Implementation>
+</Method>
+
+<Query name="qTestHelper">
+<Type>%SQLQuery</Type>
+<FormalSpec>BatchID:%Integer</FormalSpec>
+<SqlQuery><![CDATA[	
+	Select ID from APPS_Halux_PPS_TBXZaag.Opdrachten where Batch = :BatchID  order by Queue->Sequence]]></SqlQuery>
+<Parameter name="CONTAINID" value="1"/>
+</Query>
+
+<Method name="Generate">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).Generate()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(zTryout.CSC.Try).SchrijfProduct(675151,700)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 1221 refers to a dead (removed) revision in file `zTryout/ARC/DOM/OV/Order.inc.rou'.
FishEye: No comparison available.  Pass `N' to diff?
Index: zTryout/CSC/Try.cls.xml
===================================================================
diff -u -r2034 -r2478
--- zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 2034)
+++ zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 2478)
@@ -240,19 +240,29 @@
 		}
 		Set Node = $Order(^KPR(ProductID,Node))
 	}
-	
+	; KENMERKEN
 	Set ResultSet = ##class(%ResultSet).%New()
 	Do ResultSet.Prepare("SELECT KenmerkGroep, KenmerkNaam, Waarden FROM Prod_Kenmerk.DataDefinitie WHERE PRNr = ?")
 	Do ResultSet.Execute(ProductID)
 	While (ResultSet.Next())
 	{
 		w "Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("""_ResultSet.Data("KenmerkGroep")_""", """_VerplaatsNaarProductID_""", """_ResultSet.Data("KenmerkNaam")_""", """_$LG(ResultSet.Data("Waarden"),1)_""")",!
 	}
+	; BOUWSTENEN
+	w "Set ^PRBS(""BS"","_VerplaatsNaarProductID_")="""_^PRBS("BS",ProductID)_"""",!
+	Set BSKey=$O(^PRBS("BS",ProductID,""))
+	While (BSKey'="")
+	{
+		w "Set ^PRBS(""BS"","_VerplaatsNaarProductID_","""_BSKey_""")="""_^PRBS("BS",ProductID,BSKey)_"""",!
+		w:$D(^PRBS("BS",ProductID,BSKey,"D")) "Set ^PRBS(""BS"","_VerplaatsNaarProductID_","""_BSKey_""",""D"")="""_^PRBS("BS",ProductID,BSKey,"D")_"""",!
+		Set BSKey=$O(^PRBS("BS",ProductID,BSKey))
+	}
 	
-	
+
 	w !,"*** AFTER ALL TESTS ***",!!
 	w "Kill ^KPR("_VerplaatsNaarProductID_")",!
 	w "Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr("_VerplaatsNaarProductID_")",!
+	w "Do DELOBJ^PRBS("_VerplaatsNaarProductID_")",!
 ]]></Implementation>
 </Method>
 
FishEye: Tag 1221 refers to a dead (removed) revision in file `zTryout/FM/Util/Orders.inc.rou'.
FishEye: No comparison available.  Pass `N' to diff?