Index: zTryout/PRA/ReceptietijdstipVanuitPrHist.cls.xml
===================================================================
diff -u
--- zTryout/PRA/ReceptietijdstipVanuitPrHist.cls.xml	(revision 0)
+++ zTryout/PRA/ReceptietijdstipVanuitPrHist.cls.xml	(revision 50100)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PRA.ReceptietijdstipVanuitPrHist">
+<Super>%RegisteredObject</Super>
+
+<Method name="ZoekReceptieTijdstip">
+<Description>
+Do ##class(zTryout.PRA.ReceptietijdstipVanuitPrHist).ZoekReceptieTijdstip()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+		Set PRNr = 1666114
+		Set DragerCode = "TBX03789"
+		Set ReceptieTijdstip = ""
+		
+		set BewegingVolgNr = ""
+		For { 
+			set BewegingVolgNr = $order(^PRHIST(PRNr,BewegingVolgNr),-1) 
+			quit:""=BewegingVolgNr
+			if ($Piece(^PRHIST(PRNr,BewegingVolgNr),"\",4) = "I") {
+				set PalletBinnenBewegingVolgNr = ""
+				for {
+					set PalletBinnenBewegingVolgNr = $order(^PRHIST(PRNr,BewegingVolgNr,PalletBinnenBewegingVolgNr),-1)
+					quit:(""=PalletBinnenBewegingVolgNr)
+					if ($Piece( ^PRHIST(PRNr,BewegingVolgNr,PalletBinnenBewegingVolgNr), "\", 1 ) = DragerCode) {
+						Set ReceptieTijdstip = $Piece( ^PRHIST(PRNr,BewegingVolgNr,PalletBinnenBewegingVolgNr), "\", 3 )
+					}
+				}
+			}
+		}
+		
+		Write ReceptieTijdstip, !
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>