Index: vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r60370 -r60765
--- vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60370)
+++ vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60765)
@@ -19,6 +19,24 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="ZoekViaKlantnummer">
+<FormalSpec>Klantnummer:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaLadecodeEnRecent">
+<FormalSpec>Ladecode:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaOrdernummer">
+<FormalSpec>Ordernummer:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderDnaCodesVoorBatchId">
 <FormalSpec>BatchId:%String</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r60370 -r60765
--- vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60370)
+++ vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60765)
@@ -113,6 +113,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaKlantnummer">
+<FormalSpec>Klantnummer:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZoekViaKlantnummer",Klantnummer)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaLadecodeEnRecent">
+<FormalSpec>Ladecode:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZoekViaLadecodeEnRecent",Ladecode)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaOrdernummer">
+<FormalSpec>Ordernummer:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZoekViaOrdernummer",Ordernummer)
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaPalletCode">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60610 -r60765
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60610)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60765)
@@ -588,6 +588,84 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaKlantnummer">
+<FormalSpec>ZoekViaKlantnummerRequest:WS.Halux.AAP.ZoekViaKlantnummerRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ZoekViaKlantnummerResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.ZoekViaDnaCodeResponse).%New()
+	
+	Try {		
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaKlantnummer(ZoekViaKlantnummerRequest.Klantnummer)
+		
+		If DnaCodeIterator.HasNext() {
+			Set Response.Header.Status = "200"
+			Set Response.DnaCodes = ..DnaCodeNaarDto(DnaCodeIterator.Next())
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "Geen data gevonden voor Klantnummer '"_ZoekViaKlantnummerRequest.Klantnummer_"'"
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaLadecode">
+<FormalSpec>ZoekViaLadecodeRequest:WS.Halux.AAP.ZoekViaLadecodeRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ZoekViaLadecodeResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.ZoekViaDnaCodeResponse).%New()
+	
+	Try {
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaLadeCodeEnRecent(ZoekViaLadecodeRequest.Ladecode)
+		
+		If DnaCodeIterator.HasNext() {
+			Set Response.Header.Status = "200"
+			Set Response.DnaCodes = ..DnaCodeNaarDto(DnaCodeIterator.Next())
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "Geen data gevonden voor Ladecode '"_ZoekViaLadecodeRequest.Ladecode_"'"
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaOrdernummer">
+<FormalSpec>ZoekViaOrdernummerRequest:WS.Halux.AAP.ZoekViaOrdernummerRequest</FormalSpec>
+<ReturnType>WS.Halux.AAP.ZoekViaOrdernummerResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.ZoekViaDnaCodeResponse).%New()
+	
+	Try {
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaOrdernummer(ZoekViaOrdernummerRequest.Ordernummer)
+		
+		If DnaCodeIterator.HasNext() {
+			Set Response.Header.Status = "200"
+			Set Response.DnaCodes = ..DnaCodeNaarDto(DnaCodeIterator.Next())
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "Geen data gevonden voor Ordernummer '"_ZoekViaOrdernummerRequest.Ordernummer_"'"
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
 <Method name="GeefPalletCodeVanDnaCode">
 <FormalSpec>DnaCode:%String</FormalSpec>
 <Private>1</Private>
Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r60370 -r60765
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60370)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60765)
@@ -110,6 +110,24 @@
 <Implementation><![CDATA[	Do ..VerwijderViaFilter("BatchId = ? and Status = ?",$LB(BatchId, ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()))
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekViaKlantnummer">
+<FormalSpec>Klantnummer:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("KlantNummer = ? and (AanmaakTijdstip > current_date - 90)",$lb(Klantnummer))
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaOrdernummer">
+<FormalSpec>Ordernummer:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("OrderId = ? and (AanmaakTijdstip > current_date - 90)",$lb(Ordernummer))
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaLadecodeEnRecent">
+<FormalSpec>Ladecode:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("LadeCode = ? and (AanmaakTijdstip > current_date - 30)",$lb(Ladecode))
+]]></Implementation>
+</Method>
 </Class>