Index: OBJTimpl/WMSOrder/OphalenGepicktePalletInhoud.cls.xml
===================================================================
diff -u -r67858 -r67931
--- OBJTimpl/WMSOrder/OphalenGepicktePalletInhoud.cls.xml	(.../OphalenGepicktePalletInhoud.cls.xml)	(revision 67858)
+++ OBJTimpl/WMSOrder/OphalenGepicktePalletInhoud.cls.xml	(.../OphalenGepicktePalletInhoud.cls.xml)	(revision 67931)
@@ -158,6 +158,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekLaatsteLocatieVanPallet">
+<FormalSpec>LPN:%String</FormalSpec>
+<ReturnType>TECH.ResultSetIterator</ReturnType>
+<Implementation><![CDATA[
+    Set rs=##class(%ResultSet).%New("%DynamicQueryGW:SQLGW")
+    #dim OBJTConnect as %SQLGatewayConnection = ..GeefSQLConnectie()
+	#dim Status as %String = ""
+	#Dim SqlStatement as %String = ""
+	#dim ConsolidatieNummer as %String = ""
+	
+	Set SqlStatement = "select loc.fullname LOCATION from DCEREPORT_LOCATIONS loc "
+	_ " join OBJTREP_INVENTORYTRACE it on it.TO_LOCATION_OID = loc.OID "
+	_ " left join DCEREPORT_CONTAINERS cont on cont.OID = it.TO_CONTAINER_OID "
+	_ " where cont.LPN=? "
+	_ " order by DTSSTART desc "
+    try
+    {
+    	Do rs.Prepare(SqlStatement,,OBJTConnect)
+	    Do rs.Execute(LPN)    
+    } catch {
+	    do OBJTConnect.Disconnect()
+	    do ##class(TECH.ExceptionHandler).Rethrow()
+    }
+    Quit ##class(TECH.ResultSetIterator).%New(rs)
+]]></Implementation>
+</Method>
+
 <Method name="GeefSQLConnectie">
 <Private>1</Private>
 <ReturnType>%SQLGatewayConnection</ReturnType>