Index: OBJTimpl/WMSOrder/OphalenPickLijnenConsolidatie.cls.xml
===================================================================
diff -u -r67365 -r67590
--- OBJTimpl/WMSOrder/OphalenPickLijnenConsolidatie.cls.xml	(.../OphalenPickLijnenConsolidatie.cls.xml)	(revision 67365)
+++ OBJTimpl/WMSOrder/OphalenPickLijnenConsolidatie.cls.xml	(.../OphalenPickLijnenConsolidatie.cls.xml)	(revision 67590)
@@ -80,23 +80,25 @@
     Set OBJTConnect=..GeefSQLConnectie()
 	Set Status=""
     
-	Set SqlStatement="select task.DTSSTART PICKINGTIJDSTIP, outboundOrder.id CONSNR, task.oid, employee.Userid USERID, csitq.name BRONPALLET, csitq.oid, op.name LIJNNR, itemqty.VALUE, task.STATUS, task.SUBSTATUS, task.QTY AANTAL"
-	_ " from OBJT_TASK task"
-	_ " left join OBJT_PICKORDER pickorder on task.ORDEROID = pickorder.OID"
-	_ " left join OBJT_ORDERLINK link on link.PARENTCLASSNAME = 'objt.wms.bo.outboundmgt.OutboundOrder' and link.CHILDOID = pickorder.oid"
-	_ " left join OBJT_OUTBOUNDORDER outboundOrder on outboundOrder.oid = link.PARENTOID"
-	_ " left join OBJT_EMPLOYEE employee on employee.oid = task.EMPLOYEEOID"
-	_ " left join OBJT_CONTAINERSTORAGEITEMQTY csitq on csitq.oid = task.CONTAINERSTORAGEITEMQTYOID"
-	_ " left join OBJT_OPERATIONLINK opLink on opLink.CHILDOID = task.REFOID and opLink.PARENTCLASSNAME = 'objt.wms.bo.outboundmgt.OutboundOperation'"
-	_ " left join OBJT_OUTBOUNDOPERATION op on op.oid = opLink.PARENTOID"
-	_ " left join OBJT_OUTBOUNDITEMQTY itemqty on itemqty.OUTBOUNDOPERATIONOID = op.oid"
-	_ " left join OBJT_WAREHOUSELOCATION location on location.oid = task.TARGETLOCATIONOID"
-	_ " where task.CATEGORY = 'PICK'"
-	_ " and outboundOrder.id=?"
-	_ " and task.SUBSTATUS is null"
-	_ " order by outboundOrder.id"
-    
-    
+	Set SqlStatement = "select orders.ID CONSNR,olines.name LIJNNR,olines.QTYTARGET,pa.QTY AANTAL,item.NAME IDENTNR, fromloc.FULLNAME FROMLOC,isnull(fromcont.LPN,fromloc.FULLNAME) BRONPALLET ,toloc.FULLNAME TOLOC,tocont.LPN DOELPALLET"
+	_ " ,iif(pa.STATUS is null,null,isnull(emp.ID,'Kardexoperator')) USERID ,pa.DTSSTART PICKINGTIJDSTIP"
+	_ " ,orders.status,olines.Status orderlstatus,po.STATUS pickostatus,pl.STATUS picklstatus,pa.STATUS pickactstatus, pa.DTSSTOP"
+	_ " from DCEREPORT_OUTBOUNDORDERS orders"
+	_ " inner join DCEREPORT_OUTBOUNDLINES    olines on olines.OUTBOUNDORDER_OID = orders.oid"
+	_ " inner join DCEREPORT_PICKORDERS       po on po.ORDER_OID = orders.OID"
+	_ " inner join DCEREPORT_PICKLINES        pl on pl.ORDER_OID = olines.OUTBOUNDORDER_OID and pl.ORDERLINE_OID = olines.oid and pl.PICKORDER_OID = po.oid "
+	_ " left join DCEREPORT_PICK_ACTUALS      pa on pa.PICKORDER_OID = pl.PICKORDER_OID and pa.PICKLINE_OID = pl.OID"
+	_ " left join DCEREPORT_CONTAINERS        fromcont on fromcont.OID = pa.FROM_CONTAINER_OID"
+	_ " left join DCEREPORT_CONTAINERS        tocont on tocont.OID = pa.TO_CONTAINER_OID"
+	_ " left join DCEREPORT_LOCATIONS         fromloc on fromloc.OID= pa.FROM_LOCATION_OID"
+	_ " left join DCEREPORT_LOCATIONS         toloc on toloc.OID= pa.TO_LOCATION_OID"
+	_ " left join DCEREPORT_ITEMS             item on item.OID = pa.ITEM_OID"
+	_ " left join DCEREPORT_EMPLOYEES         emp on emp.OID = pa.EMPLOYEE_OID"
+	_ " where "
+	_ " orders.Status= 14 and"
+	_ " orders.ID= ? "
+	_ " order by olines.name"
+        
     try
     {
     	Do rs.Prepare(SqlStatement,,OBJTConnect)
Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml
===================================================================
diff -u -r67416 -r67590
--- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 67416)
+++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 67590)
@@ -7,8 +7,9 @@
 en daarna wordt voor de niet doorgegeven producten de voorraad op nul gezet</Description>
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="pxPicking">
-<Type>dtoCorrelatePicking</Type>
+<Property name="rsPicking">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="CheckOBJTFase">
@@ -23,29 +24,37 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="PickLijnenOphaler">
+<Type>OBJTimpl.WMSOrder.OphalenPickLijnenConsolidatie</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
+<FormalSpec>PickLijnenOphaler:OBJTimpl.WMSOrder.OphalenPickLijnenConsolidatie=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ##class(dtoCorrelateVoorraadNiveau).%KillExtent()
 	Set ..CheckOBJTFase=##class(OBJTimpl.CheckObjectiveFase).%New()
+	set ..PickLijnenOphaler = $$$Inject(PickLijnenOphaler,##class(OBJTimpl.WMSOrder.OphalenPickLijnenConsolidatie).%New())
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="Verwerk">
-<Description>
-Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).%New().Verwerk(##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir")_"WMSExchange\ObjtNaarAdmin\"_"OBJT Voorraad TEST1.xml")</Description>
-<FormalSpec>XMLreader:%XML.Reader</FormalSpec>
-<Implementation><![CDATA[	Do ..VerwerkBestand(XMLreader)
-]]></Implementation>
-</Method>
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Volgende code is niet meer bijgewerkt, wegens niet meer gebruikt.
+Method Verwerk(XMLreader As %XML.Reader)
+{
+	Do ..VerwerkBestand(XMLreader)
+}
 
-<Method name="VerwerkBestand">
-<FormalSpec>XMLreader:%XML.Reader</FormalSpec>
-<Implementation><![CDATA[
+Method VerwerkBestand(XMLreader As %XML.Reader)
+{
 	#include %occStatus
 	Do XMLreader.Rewind()
 	Do XMLreader.Correlate("AfmeldenPicking","OBJTimpl.WMSOrder.dtoCorrelatePicking")
@@ -69,31 +78,75 @@
 		}
 	}
 	Do ..VerwerkEinde()
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="VerwerkManueel">
+<Description>
+Do ##class(OBJTimpl.WMSOrder.ImporteerPicking).%New().VerwerkManueel()</Description>
+<Implementation><![CDATA[
+	// er van uitgaande dat er maar één consolidatie in de PickLijst zit
+	
+	#dim ConsolidatieNr as %String 
+	read ConsolidatieNr
+	if ($P(^ORDW("D",$E(ConsolidatieNr,5,10),"S","V"),"\")'="W") || ($P(^ORDW("D",$e(ConsolidatieNr,5,10)),"\",20)="B") {
+		w !,"status niet 'W' of op bon"
+		Quit
+	}
+	#dim PickLijnIterator as TECH.ResultSetIterator = ..PickLijnenOphaler.GeefIterator(ConsolidatieNr)
+	
+	#dim AantalPerOrderLijn as %CacheString
+	K AantalPerOrderLijn
+	While PickLijnIterator.HasNext()
+	{
+		Set ..rsPicking=PickLijnIterator.Next()
+		Set AantalPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")) = $Get(AantalPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")),0) + 1
+	}
+	
+	Set PickLijnIterator = ..PickLijnenOphaler.GeefIterator(ConsolidatieNr)
+	
+	#dim CountPerOrderLijn as %CacheString
+	k CountPerOrderLijn
+	While PickLijnIterator.HasNext()
+	{
+		Set ..rsPicking=PickLijnIterator.Next()
+		Set CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")) = $Get(CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")),0) + 1 
+		#dim Full as %Boolean = (CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")) = AantalPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")))
+		Do ..VerwerkPicking(Full,CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR"))-1)
+	}
+	Do ..VerwerkEinde()
+	W " Status",$P(^ORDW("D",$e(ConsolidatieNr,5,10)),"\",20,21),!
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkWebservice">
 <FormalSpec>PickLijst:OBJTimpl.WMSOrder.dtoAfmeldenPicking</FormalSpec>
 <Implementation><![CDATA[
-	Set it=##class(TECH.ListIterator).%New(PickLijst.PickLijnen)
-	
+	// er van uitgaande dat er maar één consolidatie in de PickLijst zit
+	#dim ConsolidatieNr as %String = PickLijst.PickLijnen.GetAt(1).ConsNr
+	#dim PickLijnIterator as TECH.ResultSetIterator = ..PickLijnenOphaler.GeefIterator(ConsolidatieNr)
 	#dim AantalPerOrderLijn as %CacheString
 	K AantalPerOrderLijn
-	While it.HasNext()
+	While PickLijnIterator.HasNext()
 	{
-		Set ..pxPicking=it.Next()
-		Set AantalPerOrderLijn(..pxPicking.LijnNr) = $Get(AantalPerOrderLijn(..pxPicking.LijnNr),0) + 1 
+		Set ..rsPicking=PickLijnIterator.Next()
+		Do ##class(Tools.Wlip).%New(207).String(..rsPicking.GetDataByName("LIJNNR"))
+		Set AantalPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")) = $Get(AantalPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")),0) + 1
 	}
 	
-	do it.Reset()
+	Set PickLijnIterator = ..PickLijnenOphaler.GeefIterator(ConsolidatieNr)
+	
 	#dim CountPerOrderLijn as %CacheString
 	k CountPerOrderLijn
-	While it.HasNext()
+	While PickLijnIterator.HasNext()
 	{
-		Set ..pxPicking=it.Next()
-		Set CountPerOrderLijn(..pxPicking.LijnNr) = $Get(CountPerOrderLijn(..pxPicking.LijnNr),0) + 1 
-		#dim Full as %Boolean = (CountPerOrderLijn(..pxPicking.LijnNr) = AantalPerOrderLijn(..pxPicking.LijnNr))
-		Do ..VerwerkPicking(Full,CountPerOrderLijn(..pxPicking.LijnNr)-1)
+		Set ..rsPicking=PickLijnIterator.Next()
+		Do ##class(Tools.Wlip).%New(207).String(..rsPicking.GetDataByName("LIJNNR"))
+		Set CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")) = $Get(CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")),0) + 1 
+		#dim Full as %Boolean = (CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")) = AantalPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")))
+		Do ..VerwerkPicking(Full,CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR"))-1)
 	}
 	Do ..VerwerkEinde()
 ]]></Implementation>
@@ -103,33 +156,35 @@
 <FormalSpec>Full:%Boolean,SplitsNummer:%Integer</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	Set ..pxPicking.ConsNr=$E(..pxPicking.ConsNr,5,10) ; YYMM moet erafgehaald worden
+	Set ..CONSNr = $E(..rsPicking.GetDataByName("CONSNR"),5,10) ; YYMM moet erafgehaald worden
 		
 	// Alleen in de eerste fase moet er een etiket afgedrukt worden
+	/*
 	If (..CONSNr="")&&(..pxPicking.ConsNr)&&(..CheckOBJTFase.GeefFase()=1) {
 		Do EXTERN^FLOWBON4(..pxPicking.ConsNr, "KARDEX") ; zo snel mogelijk het label printen
 	}
-	#dim Delimiter as %String = $Select((..pxPicking.LijnNr[";"):";",1:", ")
-	Set ..CONSNr=..pxPicking.ConsNr
+	*/
+	#dim Delimiter as %String = $Select((..rsPicking.GetDataByName("LIJNNR")[";"):";",1:", ")
+	
 	Kill C
 	Set C="C01"
 	Set ..VolgNr=..VolgNr+1
 	Set C("VOLGNR")=..VolgNr
 	Set C("CONSNR")=..CONSNr
-	Set C("ORDNR")=$P(..pxPicking.LijnNr,Delimiter)
- 	Set C("OLNR")=$P(..pxPicking.LijnNr,Delimiter,2)
+	Set C("ORDNR")=$P(..rsPicking.GetDataByName("LIJNNR"),Delimiter)
+ 	Set C("OLNR")=$P(..rsPicking.GetDataByName("LIJNNR"),Delimiter,2)
  	Set C("OLSPLITSNR")=SplitsNummer
 	Set C("SOFTV")="V"
- 	Set C("DELTAUIT")=..pxPicking.Aantal
+ 	Set C("DELTAUIT")=+..rsPicking.GetDataByName("AANTAL")
 
     Set C("FULLPARTIAL")=$Select(Full:"F",1:"P")
     Set C("STATUS")=..GeefStatusPicking() ; afhankelijk of het aantal is behaald
 
     ; Defaults
-    Set C("PALKLID")="OBJT"
- 	Set C("DATUM")=$S(..pxPicking.PickingTijdstip="":$H,1:$zdth(..pxPicking.PickingTijdstip,8))
- 	Set C("SOURCEPALID")=""
- 	Set C("USER")=""
+    Set C("PALKLID")=..rsPicking.GetDataByName("DOELPALLET")
+ 	Set C("DATUM")=$S(..rsPicking.GetDataByName("PICKINGTIJDSTIP")="":$H,1:$zdth(..rsPicking.GetDataByName("PICKINGTIJDSTIP"),8))
+ 	Set C("SOURCEPALID")=..rsPicking.GetDataByName("FROMLOC") _"/"_ ..rsPicking.GetDataByName("BRONPALLET")
+ 	Set C("USER")=..rsPicking.GetDataByName("USERID")
  	Set C("LOCMSTR")=""
 
     Do ##class(vhLib.OldSchool).InitVars()
@@ -154,17 +209,17 @@
 	Do ##class(vhLib.OldSchool).InitVars()
  	Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Pick einde",$$ArrayToText^vhLib("C",.C)) 
 
-    Do PICKEND^EWORDF(.C)
+    ;Do PICKEND^EWORDF(.C)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefStatusPicking">
 <Implementation><![CDATA[
 	; Als het aantal afwijkt van het gevraagd aantal dan PNOK (picking niet OK)
-	#dim Delimiter = $Select((..pxPicking.LijnNr [ ";"):";",1:", ")
-	#dim ORDNr as %String =$P(..pxPicking.LijnNr,Delimiter)
- 	#dim OLNr as %String =$P(..pxPicking.LijnNr,Delimiter,2)\100
- 	#dim SOLNr as %String =$P(..pxPicking.LijnNr,Delimiter,2)#100*100
+	#dim Delimiter = $Select((..rsPicking.GetDataByName("LIJNNR") [ ";"):";",1:", ")
+	#dim ORDNr as %String =$P(..rsPicking.GetDataByName("LIJNNR"),Delimiter)
+ 	#dim OLNr as %String =$P(..rsPicking.GetDataByName("LIJNNR"),Delimiter,2)\100
+ 	#dim SOLNr as %String =$P(..rsPicking.GetDataByName("LIJNNR"),Delimiter,2)#100*100
  	
  	Quit:'ORDNr||'OLNr||'SOLNr "" 
  	#dim Bestaat as %Boolean = $D(^ORDW("D",..CONSNr,"D",ORDNr,OLNr,SOLNr))