FishEye: Tag 3068 refers to a dead (removed) revision in file `APPS/common/ProductCriteria/ProductCriteriumVisitor.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/common/ProductCriteria/impl/ProductCriteriumVisitor.cls.xml
===================================================================
diff -u
--- APPS/common/ProductCriteria/impl/ProductCriteriumVisitor.cls.xml	(revision 0)
+++ APPS/common/ProductCriteria/impl/ProductCriteriumVisitor.cls.xml	(revision 3068)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.ProductCriteria.impl.ProductCriteriumVisitor">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="VerwerkProductCodeStartMetCrit">
+<Abstract>1</Abstract>
+<FormalSpec>ProductCodeStartMetCriterium:APPS.common.ProductCriteria.impl.ProductCodeStartMetCriterium</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkClassificatieCriterium">
+<Abstract>1</Abstract>
+<FormalSpec>ClassificatieCriterium:APPS.common.ProductCriteria.impl.ClassificatieCriterium</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkOfCriterium">
+<Abstract>1</Abstract>
+<FormalSpec>OfCriterium:APPS.common.ProductCriteria.impl.OfCriterium</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="BeginSamengesteldCriterium">
+<Abstract>1</Abstract>
+<FormalSpec>SamengesteldCriterium:APPS.common.ProductCriteria.impl.SamengesteldCriterium</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="EindeSamengesteldCriterium">
+<Abstract>1</Abstract>
+<FormalSpec>SamengesteldCriterium:APPS.common.ProductCriteria.impl.SamengesteldCriterium</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/common/ProductCriteria/impl/OfCriterium.cls.xml
===================================================================
diff -u
--- APPS/common/ProductCriteria/impl/OfCriterium.cls.xml	(revision 0)
+++ APPS/common/ProductCriteria/impl/OfCriterium.cls.xml	(revision 3068)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.ProductCriteria.impl.OfCriterium">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.ProductCriteria.impl.SamengesteldCriterium</Super>
+
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.common.ProductCriteria.impl.ProductCriteriumVisitor</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(Visitor)
+	Do Visitor.VerwerkOfCriterium(##this)
+	Do ..VisitKindCriteria(Visitor)
+
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>OfCriteriumDefaultData</DefaultData>
+<Data name="OfCriteriumDefaultData">
+<Subscript>"OfCriterium"</Subscript>
+<Value name="1">
+<Value>Criteria</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/common/ProductCriteria/impl/SamengesteldCriterium.cls.xml
===================================================================
diff -u
--- APPS/common/ProductCriteria/impl/SamengesteldCriterium.cls.xml	(revision 0)
+++ APPS/common/ProductCriteria/impl/SamengesteldCriterium.cls.xml	(revision 3068)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.ProductCriteria.impl.SamengesteldCriterium">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.ProductCriteria.impl.ProductCriterium</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Criteria">
+<Type>APPS.common.ProductCriteria.impl.ProductCriterium</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.common.ProductCriteria.impl.ProductCriteriumVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.BeginSamengesteldCriterium(##this)
+]]></Implementation>
+</Method>
+
+<Method name="VisitKindCriteria">
+<FormalSpec>Visitor:APPS.common.ProductCriteria.impl.ProductCriteriumVisitor</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set CriteriaIterator = ..GeefCriteriaIterator()
+	While (CriteriaIterator.HasNext())
+	{
+		Do CriteriaIterator.Next().Accept(Visitor)
+	}
+	Do Visitor.EindeSamengesteldCriterium(##this)
+]]></Implementation>
+</Method>
+
+<Method name="GeefCriteriaIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..Criteria)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeCriteria">
+<FormalSpec>Waarde:APPS.common.ProductCriteria.impl.ProductCriterium</FormalSpec>
+<Implementation><![CDATA[	Do ..Criteria.Insert(Waarde)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>SamengesteldCriteriumDefaultData</DefaultData>
+<Data name="SamengesteldCriteriumDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"SamengesteldCriterium"</Subscript>
+<Value name="1">
+<Value>Criteria</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
FishEye: Tag 3068 refers to a dead (removed) revision in file `APPS/common/ProductCriteria/ProductCodeStartMetCriterium.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 3068 refers to a dead (removed) revision in file `APPS/common/ProductCriteria/ProductCriterium.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/common/ProductCriteria/impl/ProductCriterium.cls.xml
===================================================================
diff -u
--- APPS/common/ProductCriteria/impl/ProductCriterium.cls.xml	(revision 0)
+++ APPS/common/ProductCriteria/impl/ProductCriterium.cls.xml	(revision 3068)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.ProductCriteria.impl.ProductCriterium">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+
+<Method name="Accept">
+<Abstract>1</Abstract>
+<FormalSpec>Visitor:APPS.common.ProductCriteria.impl.ProductCriteriumVisitor</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.commonA2D.ProductCrite695D</DataLocation>
+<DefaultData>ProductCriteriumDefaultData</DefaultData>
+<IdLocation>^APPS.commonA2D.ProductCrite695D</IdLocation>
+<IndexLocation>^APPS.commonA2D.ProductCrite695I</IndexLocation>
+<StreamLocation>^APPS.commonA2D.ProductCrite695S</StreamLocation>
+<Data name="ProductCriteriumDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
FishEye: Tag 3068 refers to a dead (removed) revision in file `APPS/common/ProductCriteria/ClassificatieCriterium.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/common/ProductCriteria/ProductZoekService.cls.xml
===================================================================
diff -u -r3067 -r3068
--- APPS/common/ProductCriteria/ProductZoekService.cls.xml	(.../ProductZoekService.cls.xml)	(revision 3067)
+++ APPS/common/ProductCriteria/ProductZoekService.cls.xml	(.../ProductZoekService.cls.xml)	(revision 3068)
@@ -6,7 +6,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="ZoekProducten">
-<FormalSpec>Criterium:APPS.common.ProductCriteria.ProductCriterium</FormalSpec>
+<FormalSpec>Criterium:APPS.common.ProductCriteria.impl.ProductCriterium</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set ProductIDLijst = ##class(%ListOfDataTypes).%New()
Index: APPS/common/ProductCriteria/impl/ProductCodeStartMetCriterium.cls.xml
===================================================================
diff -u
--- APPS/common/ProductCriteria/impl/ProductCodeStartMetCriterium.cls.xml	(revision 0)
+++ APPS/common/ProductCriteria/impl/ProductCodeStartMetCriterium.cls.xml	(revision 3068)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.ProductCriteria.impl.ProductCodeStartMetCriterium">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.ProductCriteria.impl.ProductCriterium</Super>
+
+<Property name="StartMet">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>StartMet:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..StartMet = StartMet
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefStartMet">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..StartMet
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.common.ProductCriteria.impl.ProductCriteriumVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkProductCodeStartMetCrit(##this)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>ProductCodeStartMetCriteriumDefaultData</DefaultData>
+<Data name="ProductCodeStartMetCriteriumDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"ProductCodeStartMetCriterium"</Subscript>
+<Value name="1">
+<Value>StartMet</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/common/ProductCriteria/impl/ClassificatieCriterium.cls.xml
===================================================================
diff -u
--- APPS/common/ProductCriteria/impl/ClassificatieCriterium.cls.xml	(revision 0)
+++ APPS/common/ProductCriteria/impl/ClassificatieCriterium.cls.xml	(revision 3068)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.ProductCriteria.impl.ClassificatieCriterium">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.ProductCriteria.impl.ProductCriterium</Super>
+
+<Property name="ClassificatieID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ClassificatieID:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ClassificatieID = ClassificatieID
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefClassificatieID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ClassificatieID
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.common.ProductCriteria.impl.ProductCriteriumVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkClassificatieCriterium(##this)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>ClassificatieCriteriumDefaultData</DefaultData>
+<Data name="ClassificatieCriteriumDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"ClassificatieCriterium"</Subscript>
+<Value name="1">
+<Value>ClassificatieID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
FishEye: Tag 3068 refers to a dead (removed) revision in file `APPS/common/ProductCriteria/OfCriterium.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/common/ProductCriteria/TestProductCriteria.cls.xml
===================================================================
diff -u -r3067 -r3068
--- vhUnitTest/APPS/common/ProductCriteria/TestProductCriteria.cls.xml	(.../TestProductCriteria.cls.xml)	(revision 3067)
+++ vhUnitTest/APPS/common/ProductCriteria/TestProductCriteria.cls.xml	(.../TestProductCriteria.cls.xml)	(revision 3068)
@@ -9,7 +9,7 @@
 
 <Method name="TestKorttekstStartMet">
 <Implementation><![CDATA[
-	Set StartMet = ##class(APPS.common.ProductCriteria.ProductCodeStartMetCriterium).%New("OL.VLI")
+	Set StartMet = ##class(APPS.common.ProductCriteria.impl.ProductCodeStartMetCriterium).%New("OL.VLI")
 	Set ProductZoekOpCriteria = ##class(APPS.common.ProductCriteria.impl.ProductZoekOpCriteria).%New()
 	Set Query = ProductZoekOpCriteria.BouwZoekQuery(StartMet)
 	
@@ -29,9 +29,9 @@
 
 <Method name="TestKTStarMetEnClassificatie">
 <Implementation><![CDATA[
-	Set StartMet = ##class(APPS.common.ProductCriteria.ProductCodeStartMetCriterium).%New("AFV")
+	Set StartMet = ##class(APPS.common.ProductCriteria.impl.ProductCodeStartMetCriterium).%New("AFV")
 	Set Classificatie = ##class(APPS.common.ProductCriteria.impl.ClassificatieCriterium).%New(605)
-	Set Of = ##class(APPS.common.ProductCriteria.OfCriterium).%New()
+	Set Of = ##class(APPS.common.ProductCriteria.impl.OfCriterium).%New()
 	Do Of.VoegToeCriteria(StartMet)
 	Do Of.VoegToeCriteria(Classificatie)
 	Set ProductZoekOpCriteria = ##class(APPS.common.ProductCriteria.impl.ProductZoekOpCriteria).%New()
@@ -43,12 +43,12 @@
 
 <Method name="TestKTStarMetEn2Classificaties">
 <Implementation><![CDATA[
-	Set StartMet = ##class(APPS.common.ProductCriteria.ProductCodeStartMetCriterium).%New("AFV")
+	Set StartMet = ##class(APPS.common.ProductCriteria.impl.ProductCodeStartMetCriterium).%New("AFV")
 	Set Classificatie = ##class(APPS.common.ProductCriteria.impl.ClassificatieCriterium).%New(605)
-	Set Of = ##class(APPS.common.ProductCriteria.OfCriterium).%New()
+	Set Of = ##class(APPS.common.ProductCriteria.impl.OfCriterium).%New()
 	Do Of.VoegToeCriteria(StartMet)
 	Do Of.VoegToeCriteria(Classificatie)
-	Set Of2 = ##class(APPS.common.ProductCriteria.OfCriterium).%New()
+	Set Of2 = ##class(APPS.common.ProductCriteria.impl.OfCriterium).%New()
 	Do Of.VoegToeCriteria(Of2)
 	// Eigenlijk kan dit criteria ook direct aan de eerste "of" worden toegevoegd.
 	// Maar bij wijze van test ook een dieper geneste structuur gebruiken.
Index: APPS/common/ProductCriteria/impl/ProductZoekOpCriteria.cls.xml
===================================================================
diff -u -r3067 -r3068
--- APPS/common/ProductCriteria/impl/ProductZoekOpCriteria.cls.xml	(.../ProductZoekOpCriteria.cls.xml)	(revision 3067)
+++ APPS/common/ProductCriteria/impl/ProductZoekOpCriteria.cls.xml	(.../ProductZoekOpCriteria.cls.xml)	(revision 3068)
@@ -2,8 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="APPS.common.ProductCriteria.impl.ProductZoekOpCriteria">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,APPS.common.ProductCriteria.ProductCriteriumVisitor</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Super>%RegisteredObject,APPS.common.ProductCriteria.impl.ProductCriteriumVisitor</Super>
 
 <Property name="DiepteEerstBoomBuilder">
 <Type>TECH.Algo.Boom.DiepteEerstBoomBuilder</Type>
@@ -38,7 +37,7 @@
 </Method>
 
 <Method name="BouwZoekQuery">
-<FormalSpec>Criterium:APPS.common.ProductCriteria.ProductCriterium</FormalSpec>
+<FormalSpec>Criterium:APPS.common.ProductCriteria.impl.ProductCriterium</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Do ..InitQueryBuilderStructuur()
@@ -50,7 +49,7 @@
 </Method>
 
 <Method name="VerwerkProductCodeStartMetCrit">
-<FormalSpec>ProductCodeStartMetCriterium:APPS.common.ProductCriteria.ProductCodeStartMetCriterium</FormalSpec>
+<FormalSpec>ProductCodeStartMetCriterium:APPS.common.ProductCriteria.impl.ProductCodeStartMetCriterium</FormalSpec>
 <Implementation><![CDATA[
 	Set ProductTabel = ##class(TECH.Algo.SQL.QueryEngine.Tabel).%New("Prod.Product")
 	Do ..DefinieerTabelMetProductID("ID",ProductTabel)
@@ -74,18 +73,18 @@
 </Method>
 
 <Method name="VerwerkOfCriterium">
-<FormalSpec>OfCriterium:APPS.common.ProductCriteria.OfCriterium</FormalSpec>
+<FormalSpec>OfCriterium:APPS.common.ProductCriteria.impl.OfCriterium</FormalSpec>
 <Implementation><![CDATA[	Do ..DiepteEerstBoomBuilder.VoegToeKind(##class(TECH.Algo.SQL.QueryEngine.CombinatieConditie).%New(##class(TECH.Algo.SQL.QueryEngine.enu.CombinatieConditieOperator).Of()))
 ]]></Implementation>
 </Method>
 
 <Method name="BeginSamengesteldCriterium">
-<FormalSpec>SamengesteldCriterium:APPS.common.ProductCriteria.SamengesteldCriterium</FormalSpec>
+<FormalSpec>SamengesteldCriterium:APPS.common.ProductCriteria.impl.SamengesteldCriterium</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="EindeSamengesteldCriterium">
-<FormalSpec>SamengesteldCriterium:APPS.common.ProductCriteria.SamengesteldCriterium</FormalSpec>
+<FormalSpec>SamengesteldCriterium:APPS.common.ProductCriteria.impl.SamengesteldCriterium</FormalSpec>
 <Implementation><![CDATA[	Do ..DiepteEerstBoomBuilder.StijgNiveau()
 ]]></Implementation>
 </Method>
FishEye: Tag 3068 refers to a dead (removed) revision in file `APPS/common/ProductCriteria/SamengesteldCriterium.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?