Index: APPS/Halux/Opvolging/AStilstandenLijstHelper.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/AStilstandenLijstHelper.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/AStilstandenLijstHelper.cls.xml	(revision 2467)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.Opvolging.AStilstandenLijstHelper">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Stilstanden">
+<Type>%ListOfObjects</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Abstract>1</Abstract>
+<FormalSpec>Werkpost:APPS.Halux.enu.Werkpost</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	/*
+	Do ..VoegtoeStilstand("GGG","OOOO","CCCC")
+	...
+	...
+	*/
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeStilstand">
+<FormalSpec>Groep,RedeOms,RedeCode</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set dto=##class(APPS.Halux.Opvolging.dto.StilstandLijstElement).%New(Groep,RedeOms,.RedeCode)
+	Do ..Stilstanden.Insert(dto)
+]]></Implementation>
+</Method>
+
+<Method name="GeefIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..Stilstanden)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/Opvolging/IStilstanden.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/IStilstanden.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/IStilstanden.cls.xml	(revision 2467)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.Opvolging.IStilstanden">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Registreer">
+<Abstract>1</Abstract>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:%String,Werkpost:APPS.Halux.enu.Werkpost,BatchID:%String,Reden:%String,Duur:%Integer</FormalSpec>
+</Method>
+
+<Query name="qLijst">
+<Type>%Query</Type>
+<FormalSpec>BuildHelper:APPS.Halux.Opvolging.AStilstandenLijstHelper</FormalSpec>
+<SqlProc>1</SqlProc>
+<Parameter name="ROWSPEC" value="Groep:%String,RedeOms:%String, RedeCode:%String"/>
+</Query>
+</Class>
+</Export>
Index: APPS/Halux/Opvolging/dto/StilstandLijstElement.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/dto/StilstandLijstElement.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/dto/StilstandLijstElement.cls.xml	(revision 2467)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.Opvolging.dto.StilstandLijstElement">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Groep">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Omschrijving">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Code">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Groep:%String,Omschrijving:%String,Code:%String=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Groep=Groep
+	Set ..Omschrijving=Omschrijving
+	Set ..Code=$S(Code="":Omschrijving,1:Omschrijving)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefRij">
+<Implementation><![CDATA[	Quit $LB(..Groep,..Omschrijving,..Code)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/Opvolging/impl/Stilstanden.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/impl/Stilstanden.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/impl/Stilstanden.cls.xml	(revision 2467)
@@ -0,0 +1,132 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.Opvolging.impl.Stilstanden">
+<ClassType>persistent</ClassType>
+<IncludeCode>TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent,APPS.Halux.Opvolging.IStilstanden</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ClassName">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN" value="100"/>
+</Property>
+
+<Property name="BatchID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Werkpost">
+<Type>APPS.Halux.enu.Werkpost</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Tijdstip">
+<Type>%TimeStamp</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Reden">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Duur">
+<Type>%Integer</Type>
+<Required>1</Required>
+</Property>
+
+<Method name="Registreer">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:%String,Werkpost:APPS.Halux.enu.Werkpost,BatchID:%String,Reden:%String,Duur:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set Stilstand=..%New()
+	Set Stilstand.ClassName=ClassName
+	Set Stilstand.BatchID=BatchID
+	Set Stilstand.Werkpost=Werkpost	
+	Set Stilstand.Tijdstip=$zdt($H,3)
+	Set Stilstand.Reden=Reden
+	Set Stilstand.Duur=Duur
+	Set sc=Stilstand.%Save()
+	If $$$ISERR(sc)  $$$ThrowErrorStatus($$$errSaveFailed,"Create Stilstand",sc)
+]]></Implementation>
+</Method>
+
+<Method name="qLijstExecute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,BuildHelper:APPS.Halux.Opvolging.AStilstandenLijstHelper]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set %itStilstanden=BuildHelper.GeefIterator()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="qLijstFetch">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,&Row:%List,&AtEnd:%Integer=0]]></FormalSpec>
+<PlaceAfter>qLijstExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If %itStilstanden.HasNext()
+	{
+		Set Row=%itStilstanden.Next().GeefRij()
+	}
+	Else 
+	{
+		Set Row=""
+		Set AtEnd=1
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="qLijstClose">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<PlaceAfter>qLijstExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill %itStilstanden
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux.Opvo927.StilstandenD</DataLocation>
+<DefaultData>StilstandenDefaultData</DefaultData>
+<IdLocation>^APPS.Halux.Opvo927.StilstandenD</IdLocation>
+<IndexLocation>^APPS.Halux.Opvo927.StilstandenI</IndexLocation>
+<StreamLocation>^APPS.Halux.Opvo927.StilstandenS</StreamLocation>
+<Data name="StilstandenDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Duur</Value>
+</Value>
+<Value name="3">
+<Value>Queue</Value>
+</Value>
+<Value name="4">
+<Value>Reden</Value>
+</Value>
+<Value name="5">
+<Value>Tijdstip</Value>
+</Value>
+<Value name="6">
+<Value>Werkpost</Value>
+</Value>
+<Value name="7">
+<Value>BatchID</Value>
+</Value>
+<Value name="8">
+<Value>ClassName</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>