Index: OBJTimpl/WMSOrder/OphalenGepicktePalletInhoud.cls.xml
===================================================================
diff -u -r67659 -r67765
--- OBJTimpl/WMSOrder/OphalenGepicktePalletInhoud.cls.xml	(.../OphalenGepicktePalletInhoud.cls.xml)	(revision 67659)
+++ OBJTimpl/WMSOrder/OphalenGepicktePalletInhoud.cls.xml	(.../OphalenGepicktePalletInhoud.cls.xml)	(revision 67765)
@@ -36,8 +36,10 @@
 
 <Method name="GeefIterator">
 <FormalSpec>ConsolidatieNr:%String,LPN:%String</FormalSpec>
+<ReturnType>TECH.ResultSetIterator</ReturnType>
 <Implementation><![CDATA[
-	#Dim ResultSet as %ResultSet = ..GeefResultSet(ConsolidatieNr,LPN)
+	#dim ResultSet as %ResultSet
+	Set ResultSet  = ..GeefResultSet(ConsolidatieNr,LPN)
 	Set Iterator=##class(TECH.ResultSetIterator).%New(ResultSet)
 	Quit Iterator
 ]]></Implementation>
@@ -85,6 +87,68 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAllePallettenInOrderViaLPN">
+<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 = ""
+	
+	Set SqlStatement = "select distinct cont.lpn DOELPALLET, loc.FULLNAME TOLOC "
+	_ " from DCEREPORT_OUTBOUNDLINES ol "
+	_ " inner join DCEREPORT_OUTBOUND_ACTUALS oa on oa.OUTBOUNDLINE_OID = ol.OID and oa.OUTBOUNDORDER_OID = ol.OUTBOUNDORDER_OID "
+	_ " inner join DCEREPORT_LOCATIONS loc on loc.OID = oa.TO_LOCATION_OID "
+	_ " inner join DCEREPORT_ITEMS item on item.oid = oa.ITEM_OID "
+	_ " inner join DCEREPORT_OUTBOUNDORDERS oo on oo.OID = ol.OUTBOUNDORDER_OID "
+	_ " inner join DCEREPORT_CONTAINERS cont on cont.OID = oa.CONTAINER_OID "
+	_ " where ol.OUTBOUNDORDER_OID in ( "
+	_ " 	select oo.OID "
+	_ " 	from DCEREPORT_CONTAINERS c "
+	_ " 	inner join DCEREPORT_OUTBOUND_ACTUALS oa on oa.CONTAINER_OID = c.oid "
+	_ " 	inner join DCEREPORT_OUTBOUNDLINES ol on ol.OUTBOUNDORDER_OID = oa.OUTBOUNDORDER_OID and ol.OID = oa.OUTBOUNDLINE_OID "
+	_ " 	inner join DCEREPORT_OUTBOUNDORDERS oo on oo.OID = ol.OUTBOUNDORDER_OID "
+	_ " 	where c.LPN= '"_LPN_"') "		
+    try
+    {
+    	Do rs.Prepare(SqlStatement,,OBJTConnect)
+	    Do rs.Execute()    
+    } catch {
+	    do OBJTConnect.Disconnect()
+	    do ##class(TECH.ExceptionHandler).Rethrow()
+    }
+    Quit ##class(TECH.ResultSetIterator).%New(rs)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOutBoundOrderVoorLPN">
+<FormalSpec>LPN:%String</FormalSpec>
+<ReturnType>%String</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 distinct oo.id CONSNR, oo.Status STATUS"
+	_ " from DCEREPORT_CONTAINERS c "
+	_ " inner join DCEREPORT_OUTBOUND_ACTUALS oa on oa.CONTAINER_OID = c.oid "
+	_ " inner join DCEREPORT_OUTBOUNDLINES ol on ol.OUTBOUNDORDER_OID = oa.OUTBOUNDORDER_OID and ol.OID = oa.OUTBOUNDLINE_OID "
+	_ " inner join DCEREPORT_OUTBOUNDORDERS oo on oo.OID = ol.OUTBOUNDORDER_OID "
+	_ " where c.LPN= '"_LPN_"' "		
+    try
+    {
+    	Do rs.Prepare(SqlStatement,,OBJTConnect)
+	    Do rs.Execute()    
+    } 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>