Index: BL/MB/UGLYPicking/OrderReservatie.cls.xml
===================================================================
diff -u -r7693 -r57947
--- BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 7693)
+++ BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 57947)
@@ -385,7 +385,7 @@
 
 <Method name="FPalletsPerProdNr">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ProdNr:%Library.Integer</FormalSpec>
+<FormalSpec>ProdNr:%Library.Integer,ConsolidatiePalletten:%ListOfDataTypes=##class(%ListOfDataTypes).%New()</FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.Status</ReturnType>
@@ -394,19 +394,19 @@
 <Implementation><![CDATA[
  $$$WriteToLog("*** FPalletsPerProdNr ***")
  $$$WriteToLog("- Product: "_ProdNr)
-
- New InsertTime,IsFull,LocID,LocM,QtyPcs,QtyRes,Sectie
+ 
+ New InsertTime,IsFull,LocID,LocM,QtyPcs,QtyRes,Sectie,IsPickbaar
  New LocG,LLocM,LocX,LocY,LocZ,State,Batch,Quality,Owner
  Kill %msg
 
  &sql(DECLARE crPPP CURSOR FOR
- SELECT Inv.insert_time,is_full,Inv.loc_id,Inv.loc_m,qty_pcs,qty_res,sectie,Loc.loc_m,Loc.loc_g,loc_x,loc_y,loc_z,state,batch,quality,owner
- INTO :InsertTime,IsFull,LocID,LocM,QtyPcs,QtyRes,Sectie,LLocM,LocG,LocX,LocY,LocZ,State,Batch,Quality,Owner
- FROM EWMS.Inventory AS Inv,EWMS.Locations AS Loc
- WHERE (Inv.product=:ProdNr) AND (Inv.loc_id=Loc.loc_id) AND (Loc.loc_m>=2) and (Loc.loc_m<=4) AND NOT (Loc.loc_m = 4 AND Loc.loc_g = 2 and Loc.loc_x = 1 and Loc.loc_y = 1)
- ORDER BY loc.loc_m asc,is_full DESC,qty_pcs,Inv.insert_time)
-  ; AND (Loc.loc_m>=2) and (Loc.loc_m<=4) bijgevoegd door PV 14-5
-  ; ORDER BY loc.loc_m asc  bijgevoegd door PV 25-08-08
+  SELECT Inv.insert_time,is_full,Inv.loc_id,Inv.loc_m,qty_pcs,qty_res,sectie,Loc.loc_m,Loc.loc_g,loc.loc_x,loc.loc_y,loc.loc_z,state,inv.batch,quality,owner,Trans.loc_ispickbaar
+ INTO InsertTime,IsFull,LocID,LocM,QtyPcs,QtyRes,Sectie,LLocM,LocG,LocX,LocY,LocZ,State,Batch,Quality,Owner,IsPickbaar
+ FROM EWMS.Inventory Inv
+ JOIN EWMS.Locations Loc ON Inv.loc_id = Loc.loc_id
+ LEFT JOIN EWMS.TransLoc Trans ON Trans.loc_m  = Loc.loc_m AND Trans.loc_g = Loc.loc_g AND Trans.loc_x = Loc.loc_x AND Trans.loc_y = Loc.loc_y
+ WHERE product = :ProdNr AND Inv.loc_m < 5 AND NOT (Loc.loc_m = 4 AND Loc.loc_g = 2 and Loc.loc_x = 1 and Loc.loc_y = 1)
+ ORDER BY Trans.loc_ispickbaar DESC , Inv.Is_Full ASC ,Inv.Insert_Time ASC )
  &sql(OPEN crPPP)
  Quit:((SQLCODE<0) || ($L($G(%msg)))) $$$ERROR($$$GeneralError,%msg)   //ERROR? -> Quit+return status
 
@@ -416,11 +416,16 @@
  New locMagazijn,PLNode,InsertDate
  Kill PalletGroup,PalletGroupCnt
  For  &sql(FETCH crPPP) Quit:(SQLCODE || FatalErr)  Do
+ . Set:IsPickbaar InsertTime="2000-01-01"
  . Quit:(+QtyRes'<+QtyPcs)  //Alles is gereserveerd?->Quit pallet!, Reservatie>AantalAanwezig->Quit
  . Quit:(+QtyPcs'>0)       //Geen Pieces meer->Quit pallet!
  . Set:((SQLCODE<0) || ($L($G(%msg)))) FatalErr=1  //Foutje?
  . Quit:(##class(Prod.Product).GetMagViaOpslagzone(LocM)="CONS")
  . Quit:($D(IDList(LocID)))   //Vermijden van dubbels...
+ . ;JWI hier checken in ConsolidatiePalletten -> quit indien niet.
+ . $$$WriteToLog("filtering " _ LocID)
+ . Quit:(ConsolidatiePalletten.Count() && 'ConsolidatiePalletten.Find(LocID)) // overslaan indien niet in de DnaCodeTabel en DnaCodeTabel matches opleverde
+ . $$$WriteToLog(" behouden")
  . Set IDList(LocID)=""       //Lijst bijhouden van Ids
  . Set locMagazijn=##class(Prod.Product).GetMagViaOpslagzone(LLocM)
  . Set InsertDate=$ZDATEH($E(InsertTime,1,10),3)
@@ -575,9 +580,43 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPallettenVoorConsolidatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ConsolidatieNr:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	New PalletList 
+	Set PalletList = ##class(%ListOfDataTypes).%New()
+	$$$WriteToLog("Ophalen Orders van Consolidatie "_ ConsolidatieNr _ " Klant "_$Piece($Get(^ORDW("D",ConsolidatieNr)),"\",1))
+	; voorlopig alleen KVIK (25868), lege lijst maakt dat we op de oude manier palletten voorstellen.
+	If $$$Not($Piece($Get(^ORDW("D",ConsolidatieNr)),"\",1)=25868) {
+		$$$WriteToLog("Geen Filtering van de palletten op basis van EWPAL en Ordernummer, voorlopig alleen KVIK")
+		Quit PalletList
+	} else {
+		$$$WriteToLog("KVIK : Filtering van de palletten op basis van EWPAL en Ordernummer. ")
+
+	}	
+	Set ConsOrder = ""
+	For  Set ConsOrder=$Order(^ORDW("D",ConsolidatieNr,"D",ConsOrder)) Quit:(ConsOrder="")  Do
+	. $$$WriteToLog("   Order " _ ConsOrder)
+	. w !,"   Order " _ ConsOrder
+	. Set result=##class(%Library.ResultSet).%New("%DynamicQuery:SQL")
+	. Do result.Prepare("SELECT distinct dragerID PalletCode FROM DOM_MAG_impl_DataM.DragerInhoudEnDoel where OrderID = '"_ ConsOrder _"'")
+	. Do result.Execute()
+	. For  Quit:'result.Next()  Do
+	. . $$$WriteToLog("      Pallet " _ result.Get("PalletCode"))
+	. . Do:('PalletList.Find(result.Get("PalletCode"))  ) PalletList.Insert(result.Get("PalletCode"))
+	. Do result.%Close()
+	. Set result=""
+
+	$$$WriteToLog("Aantal palletten volgens EWPAL teruggegeven : " _ PalletList.Count())
+	Quit PalletList
+]]></Implementation>
+</Method>
+
 <Method name="FStartReservePallets">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ConsolidatieNr:%Library.Integer,Magazijn:%Library.String,ProductNr:%Library.String,AantalTePicken:%Library.Integer,AssociatedZeroPalletID:Flow.OrderWMS.PalletReservatie</FormalSpec>
+<FormalSpec>ConsolidatieNr:%Library.Integer,Magazijn:%Library.String,ProductNr:%Library.String,AantalTePicken:%Library.Integer,AssociatedZeroPalletID:Flow.OrderWMS.PalletReservatie,ConsolidatiePalletten:%ListOfDataTypes=##class(%ListOfDataTypes).%New()</FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.String</ReturnType>
@@ -595,11 +634,11 @@
  Set MAXReserveCount=5
 
  For  Quit:(ReserveSuccess || (ReserveCount=MAXReserveCount) || (tmpResult'=""))  Do
- . Set tmpResult=..FPalletsPerProdNr(ProductNr)   //Creatie PalletList met palletten bevattende product (met ProductNr)
+ . Set tmpResult=..FPalletsPerProdNr(ProductNr,ConsolidatiePalletten)   //Creatie PalletList met palletten bevattende product (met ProductNr)
  . If $$$ISERR(tmpResult) Do  Quit
- ..  Set tmpResult=$$ParseStatus^vhLib(tmpResult)
+ . . Set tmpResult=$$ParseStatus^vhLib(tmpResult)
  . Else  Do
- ..  Set tmpResult=""
+ . . Set tmpResult=""  
  . Kill BookedPallets    //BookedPallets: hier komen alle palletten die geboekt moeten worden
  . Set tmpResult=$$EnumReserve(AantalTePicken,.Rest)
  . If $$$ISERR(tmpResult) Do  Quit
@@ -700,6 +739,9 @@
  New ProdLoop,tmpStatus,AantalTePicken,ZeroPalletID,ErrorOccured
  #Define tmpAantalTePicken 1
  #Define tmpZeroPalletID   2
+ ; Bepaal mogelijke palleten via EWPAL, picking producten van de juiste order
+ New ConsolidatiePalletten
+ Set ConsolidatiePalletten = ..GeefPallettenVoorConsolidatie(ConsNr)
 
  Set ProdLoop="", ErrorOccured=0
  For  Set ProdLoop=$O(ZeroPallets(ProdLoop)) Quit:(ProdLoop="")  Do
@@ -709,13 +751,19 @@
  . Set AantalTePicken=$LI(ZeroPallets(ProdLoop),$$$tmpAantalTePicken)
  . Quit:(AantalTePicken=0)
  . Set ZeroPalletID=$LI(ZeroPallets(ProdLoop),$$$tmpZeroPalletID)
- . Set tmpStatus=..FStartReservePallets(ConsNr,Magazijn,ProdLoop,AantalTePicken,ZeroPalletID)
+ . Set tmpStatus=..FStartReservePallets(ConsNr,Magazijn,ProdLoop,AantalTePicken,ZeroPalletID,ConsolidatiePalletten)
  . If tmpStatus'="" Do    //Indien '="" is er een fout opgetreden
- ..  Set ErrorOccured=1
- ..  $$$WriteToLog("ERROR: "_tmpStatus)
- ..  Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,0,tmpStatus)
+ . . $$$WriteToLog("################### reservatie niet gelukt met info uit EWPAL, fallback hier nodig ########################")
+ . . Set tmpStatus=..FStartReservePallets(ConsNr,Magazijn,ProdLoop,AantalTePicken,ZeroPalletID) ; om fallback te activeren, laatste parameter laten defaulten.
+ . . If tmpStatus'="" Do    //Indien '="" is er een fout opgetreden
+ . . .  $$$WriteToLog("################### fallback ook mislukt ########################")
+ . . .  Set ErrorOccured=1
+ . . .  $$$WriteToLog("ERROR: "_tmpStatus)
+ . . .  Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,0,tmpStatus)
+ . . Else  Do
+ . . .  Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,1)   //Reservation=OK
  . Else  Do
- ..  Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,1)   //Reservation=OK
+ . . Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,1)   //Reservation=OK
 
  $$$WriteToLog("ProcessUnFinishedZeroPalletIDs "_$S(ErrorOccured:"failed",1:"success")_".")