Index: WS/Halux/AAP/ZoekGebruikersResponse.cls.xml
===================================================================
diff -u
--- WS/Halux/AAP/ZoekGebruikersResponse.cls.xml	(revision 0)
+++ WS/Halux/AAP/ZoekGebruikersResponse.cls.xml	(revision 60089)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.AAP.ZoekGebruikersResponse">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Header">
+<Type>WS.Halux.AAP.ResponseHeader</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Gebruikers">
+<Type>WSimpl.Halux.AAP.dto.Gebruiker</Type>
+<Collection>list</Collection>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+</Class>
+
+
+</Export>
Index: WS/Halux/AAP/GebruikerService.cls.xml
===================================================================
diff -u -r55557 -r60089
--- WS/Halux/AAP/GebruikerService.cls.xml	(.../GebruikerService.cls.xml)	(revision 55557)
+++ WS/Halux/AAP/GebruikerService.cls.xml	(.../GebruikerService.cls.xml)	(revision 60089)
@@ -46,6 +46,14 @@
 <Implementation><![CDATA[	Quit ..GebruikerService.GebruikerAfmelden(GebruikerAfmeldenRequest)
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekGebruikers">
+<FormalSpec>ZoakGebruikersRequest:WS.Halux.AAP.ZoekGebruikersRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ZoekGebruikersResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ..GebruikerService.ZoekGebruikers(ZoakGebruikersRequest)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WS/Halux/AAP/ZoekGebruikersRequest.cls.xml
===================================================================
diff -u
--- WS/Halux/AAP/ZoekGebruikersRequest.cls.xml	(revision 0)
+++ WS/Halux/AAP/ZoekGebruikersRequest.cls.xml	(revision 60089)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.AAP.ZoekGebruikersRequest">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="Header">
+<Type>WS.Halux.AAP.RequestHeader</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="LoginCode">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Initialen">
+<Type>%String</Type>
+</Property>
+
+<Property name="Computernaam">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>ZoekGebruikersRequestState</State>
+<StreamLocation>^WS.Halux.AAP.ZoekGebruik1E18S</StreamLocation>
+<Data name="ZoekGebruikersRequestState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>Header</Value>
+</Value>
+<Value name="2">
+<Value>LoginCode</Value>
+</Value>
+<Value name="3">
+<Value>Initialen</Value>
+</Value>
+<Value name="4">
+<Value>Computernaam</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/AAP/dto/Gebruiker.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/AAP/dto/Gebruiker.cls.xml	(revision 0)
+++ WSimpl/Halux/AAP/dto/Gebruiker.cls.xml	(revision 60089)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.AAP.dto.Gebruiker">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>%String</Type>
+<Default>0</Default>
+</Parameter>
+
+<Property name="LoginCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="Initialen">
+<Type>%String</Type>
+</Property>
+
+<Property name="ComputerNaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="AangemeldSinds">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="LaatsteActiviteit">
+<Type>%TimeStamp</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.GebruikerService.txt
===================================================================
diff -u -r55542 -r60089
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.GebruikerService.txt	(.../WS.Halux.AAP.GebruikerService.txt)	(revision 55542)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.GebruikerService.txt	(.../WS.Halux.AAP.GebruikerService.txt)	(revision 60089)
@@ -81,6 +81,56 @@
                     </s:extension>
                 </s:complexContent>
             </s:complexType>
+            <s:element name="ZoekGebruikers">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element minOccurs="0" name="ZoakGebruikersRequest" type="s0:ZoekGebruikersRequest"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:complexType name="ZoekGebruikersRequest">
+                <s:sequence>
+                    <s:element name="Header" type="s0:RequestHeader"/>
+                    <s:element name="LoginCode" type="s:string"/>
+                    <s:element minOccurs="0" name="Initialen" type="s:string"/>
+                    <s:element name="Computernaam" type="s:string"/>
+                </s:sequence>
+            </s:complexType>
+            <s:element name="ZoekGebruikersResponse">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element name="ZoekGebruikersResult" type="s0:ZoekGebruikersResponse"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:complexType name="ZoekGebruikersResponse">
+                <s:complexContent>
+                    <s:extension base="s0:DataTransferObject">
+                        <s:sequence>
+                            <s:element name="Header" type="s0:ResponseHeader"/>
+                            <s:element maxOccurs="unbounded" minOccurs="0" name="Gebruikers" nillable="true" type="s0:Gebruiker"/>
+                        </s:sequence>
+                    </s:extension>
+                </s:complexContent>
+            </s:complexType>
+            <s:complexType name="ArrayOfGebruikerGebruiker">
+                <s:sequence>
+                    <s:element maxOccurs="unbounded" minOccurs="0" name="Gebruiker" nillable="true" type="s0:Gebruiker"/>
+                </s:sequence>
+            </s:complexType>
+            <s:complexType name="Gebruiker">
+                <s:complexContent>
+                    <s:extension base="s0:DataTransferObject">
+                        <s:sequence>
+                            <s:element minOccurs="0" name="LoginCode" type="s:string"/>
+                            <s:element minOccurs="0" name="Initialen" type="s:string"/>
+                            <s:element minOccurs="0" name="ComputerNaam" type="s:string"/>
+                            <s:element minOccurs="0" name="AangemeldSinds" type="s:dateTime"/>
+                            <s:element minOccurs="0" name="LaatsteActiviteit" type="s:dateTime"/>
+                        </s:sequence>
+                    </s:extension>
+                </s:complexContent>
+            </s:complexType>
         </s:schema>
     </types>
     <message name="GebruikerAanmeldenSoapIn">
@@ -95,6 +145,12 @@
     <message name="GebruikerAfmeldenSoapOut">
         <part name="parameters" element="s0:GebruikerAfmeldenResponse"/>
     </message>
+    <message name="ZoekGebruikersSoapIn">
+        <part name="parameters" element="s0:ZoekGebruikers"/>
+    </message>
+    <message name="ZoekGebruikersSoapOut">
+        <part name="parameters" element="s0:ZoekGebruikersResponse"/>
+    </message>
     <portType name="GebruikerServiceSoap">
         <operation name="GebruikerAanmelden">
             <input message="s0:GebruikerAanmeldenSoapIn"/>
@@ -104,6 +160,10 @@
             <input message="s0:GebruikerAfmeldenSoapIn"/>
             <output message="s0:GebruikerAfmeldenSoapOut"/>
         </operation>
+        <operation name="ZoekGebruikers">
+            <input message="s0:ZoekGebruikersSoapIn"/>
+            <output message="s0:ZoekGebruikersSoapOut"/>
+        </operation>
     </portType>
     <binding name="GebruikerServiceSoap" type="s0:GebruikerServiceSoap">
         <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document"/>
@@ -125,6 +185,15 @@
                 <soap:body use="literal"/>
             </output>
         </operation>
+        <operation name="ZoekGebruikers">
+            <soap:operation soapAction="http://www.vanhoecke.be/Halux/AAP/Gebruiker/WS.Halux.AAP.GebruikerService.ZoekGebruikers" style="document"/>
+            <input>
+                <soap:body use="literal"/>
+            </input>
+            <output>
+                <soap:body use="literal"/>
+            </output>
+        </operation>
     </binding>
     <service name="GebruikerService">
         <port name="GebruikerServiceSoap" binding="s0:GebruikerServiceSoap">
Index: WSimpl/Halux/AAP/GebruikerService.cls.xml
===================================================================
diff -u -r57054 -r60089
--- WSimpl/Halux/AAP/GebruikerService.cls.xml	(.../GebruikerService.cls.xml)	(revision 57054)
+++ WSimpl/Halux/AAP/GebruikerService.cls.xml	(.../GebruikerService.cls.xml)	(revision 60089)
@@ -95,6 +95,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekGebruikers">
+<FormalSpec>ZoekGebruikersRequest:WS.Halux.AAP.ZoekGebruikersRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ZoekGebruikersResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Antwoord = ##class(WS.Halux.AAP.ZoekGebruikersResponse).%New()
+	
+	Try {
+		Do ..HeaderValidator.ValidateHeader(ZoekGebruikersRequest.Header)
+		#dim AanmeldingenIterator As TECH.Iterator = ..AanmeldingRepository.ZoekAlle()
+		While AanmeldingenIterator.HasNext() {
+			Do Antwoord.Gebruikers.Insert(..GebruikerNaarDto(AanmeldingenIterator.Next()))
+		}
+		Set Antwoord.Header.Status = "200"
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Antwoord.Header.Status = Exception.GeefExceptionCode()
+		Set Antwoord.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	Quit Antwoord
+]]></Implementation>
+</Method>
+
 <Method name="ValideerGebruiker">
 <FormalSpec>LoginCode:%String,Initialen:%String</FormalSpec>
 <Private>1</Private>
@@ -113,6 +135,23 @@
 	Quit Resultaat
 ]]></Implementation>
 </Method>
+
+<Method name="GebruikerNaarDto">
+<FormalSpec>Gebruiker:DOM.Halux.AAP.Aanmelding</FormalSpec>
+<Private>1</Private>
+<ReturnType>WSimpl.Halux.AAP.dto.Gebruiker</ReturnType>
+<Implementation><![CDATA[
+	Set GebruikerDto = ##class(WSimpl.Halux.AAP.dto.Gebruiker).%New()
+	
+	Set GebruikerDto.AangemeldSinds = ##class(TECH.DateTime).HorologToTimeStamp(Gebruiker.AangemeldSinds)
+	Set GebruikerDto.ComputerNaam = Gebruiker.ComputerNaam 
+	Set GebruikerDto.Initialen = Gebruiker.Initialen 
+	Set GebruikerDto.LaatsteActiviteit = ##class(TECH.DateTime).HorologToTimeStamp(Gebruiker.LaatsteActiviteit)
+	Set GebruikerDto.LoginCode = Gebruiker.LoginCode
+	
+	Quit GebruikerDto
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60024 -r60089
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60024)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60089)
@@ -234,6 +234,7 @@
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+		Do ##class(vhLib.Logger).%New().Warning("AAP",Exception.GeefOmschrijving())
 	}
 	
 	Set Response.AantalInToelevering = AantalInToelevering
@@ -261,7 +262,6 @@
 		}
 		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringBijwerkenRequest.Toelevering)
 		If DnaCodeIterator.HasNext() {
-			Do DnaCodeIterator.Reset()
 			Do ..DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, ToeleveringBijwerkenRequest.Status, ToeleveringBijwerkenRequest.Toelevering, ,ToeleveringBijwerkenRequest.Header.Initialen)
 			Set Response.Header.Status = "200"
 		} Else {
@@ -272,6 +272,7 @@
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+		Do ##class(vhLib.Logger).%New().Warning("AAP",Exception.GeefOmschrijving())
 	}
 	Quit Response
 ]]></Implementation>
@@ -295,7 +296,6 @@
 		}
 		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(PalletBijwerkenRequest.Pallet)
 		If DnaCodeIterator.HasNext() {
-			Do DnaCodeIterator.Reset()
 			Set Response.Header.Status = "200"
 			Do ..DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, PalletBijwerkenRequest.Status, , PalletBijwerkenRequest.Pallet, PalletBijwerkenRequest.Header.Initialen)
 		} Else {
@@ -306,6 +306,7 @@
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+		Do ##class(vhLib.Logger).%New().Warning("AAP",Exception.GeefOmschrijving())
 	}
 	Quit Response
 ]]></Implementation>