Index: EWPAL.mac.rou
===================================================================
diff -u -r65248 -r66860
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 65248)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 66860)
@@ -145,7 +145,10 @@
  Quit
  ;
 ENDCTRL ; Einde nachtelijke stockscan, opgeroepen door S03^EWRECR
- New R,PRNr,PalId,Passed,ORDNr,OLUNr,FysStock,ModTyp,Reden,TestOLU,StockSum,Qty,TempQty
+ New R,PRNr,PalId,Passed,ORDNr,OLUNr,FysStock,ModTyp,Reden,TestOLU,StockSum,Qty,TempQty,blOBJT
+ 
+ Set blOBJT=##class(OBJTimpl.CheckObjectiveFase).%New() ; OBJT
+
  Set PRNr=""
  For  Set PRNr=$O(^EWPAL("D",PRNr)) Quit:PRNr=""  Do
  .If $L(PRNr),$D(^KPR(PRNr))
@@ -184,9 +187,11 @@
  ....If OLUNr Kill:'$D(TestOLU(OLUNr)) ^EWPAL("D",PRNr,PalId,ORDNr,OLUNr)
  ..Set R=^EWPAL("D",PRNr,PalId),$P(R,D,10)="",^EWPAL("D",PRNr,PalId)=R
  .If $D(^EWPAL("D",PRNr)),StockSum,StockSum'=($P(^KPR(PRNr,0),D,14)-$$CORR^EWPAL2(PRNr)) Do DIFFQTY(PRNr,StockSum,$P(^KPR(PRNr,0),D,14)-$$CORR^EWPAL2(PRNr))
+ 
  ; Voor alle producten die niet in EWPAL zitten is de stock=0
  Set PRNr=0,Reden="Corr WMS"
  For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
+ .If ..blOBJT.VoorraadSync(PRNr, "VHBE") Quit ; OBJT : Voorraad wordt beheerd door OBJT
  .Quit:$D(^EWPAL("D",PRNr))>1  Quit:$D(^PRLINK("D",PRNr))
  .Quit:$$OPSLMAN^PRODUKT2(PRNr)
  .Set R=^KPR(PRNr,0),FysStock=$P(R,D,14)
@@ -200,6 +205,7 @@
  ; Gewijzigde produkten met moeders verwerken
  Set PRNr=""
  For  Set PRNr=$O(^EWPAL("M",PRNr)) Quit:PRNr=""  Do
+ .If ..blOBJT.VoorraadSync(PRNr, "VHBE") Quit ; OBJT : Voorraad wordt beheerd door OBJT
  .Set Qty=^EWPAL("M",PRNr)
  .Do MOEDER(PRNr,Qty,Reden,.Mail,"N")
  Kill ^EWPAL("M")
Index: FLOWORD9.mac.rou
===================================================================
diff -u -r62514 -r66860
--- FLOWORD9.mac.rou	(.../FLOWORD9.mac.rou)	(revision 62514)
+++ FLOWORD9.mac.rou	(.../FLOWORD9.mac.rou)	(revision 66860)
@@ -104,13 +104,16 @@
 			Set VerzendWijze=$P($P(VerzendWijze,"`"),";") ;alleen eerste code zonder de dag
 		}
 		Set $P(Status,";",4)=VerzendWijze
+		Set $P(Status,";",5)=CONSNr
 	}
 	Quit Status
+	
 TranslateMag(MagCode)
 	Quit:MagCode="U" "Ugly"
 	Quit:MagCode="O" "Orgalux"
 	Quit:MagCode="A" "T/A"
 	Quit:MagCode="H" "Halux"
+	Quit:MagCode="V" "V.lift"
 	Quit:MagCode?1(1"E",1N) "Auto"
 	Quit:MagCode?1(1"O",1"E",1"U",1"A",1"H")1(1"O",1"E",1"U",1"A",1"H") $S($A($E(MagCode,1))>$A($E(MagCode,2)):$E(MagCode,1)_"+"_$E(MagCode,2),1:$E(MagCode,2)_"+"_$E(MagCode,1))
 	Quit "?"_MagCode
Index: EWORDST.mac.rou
===================================================================
diff -u -r63468 -r66860
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 63468)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 66860)
@@ -468,8 +468,12 @@
  Quit:'CONSNr
  Set R=$G(^ORDW("D",CONSNr))
  Set KLNr=$P(R,D)
+ 
+ If $D(^ORDW("D",CONSNr,"S","V")) Do  Quit:R'=1 ; OBJT  order manueel te verwijderen uit OBJT
+ .Set R=$$^vhTXTPOP("EWORDST","DELOBJT","",$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),$P(^KKL(^KK1(KLNr),0),D,2),$G(^ORDW("D",CONSNr)))
+
  If $L($P(R,D,20)),$P(R,D,20)'="W",$P(R,D,20)'="K" Quit  ; Alleen indien nog niets verwerkt door WMS
- . Set R=$$^vhTXTPOP("EWORDST","NODELBADSTAT","",$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),$P(^KKL(^KK1(KLNr),0),D,2),$P(R,D,20))
+ . Set R=$$^vhTXTPOP("EWORDST","NODELBADSTAT","",$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),$P(^KKL(^KK1(KLNr),0),D,2),$G(^ORDW("D",CONSNr)))
  
  If $G(blnTerugTrekkenVanuitWMS) Do
  . Set R=0 // default false - vraagstelling enkel indien status = "W"
Index: OBJTimpl/WMSOrder/dtoPicklijn.cls.xml
===================================================================
diff -u -r66533 -r66860
--- OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 66533)
+++ OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 66860)
@@ -108,13 +108,15 @@
 <FormalSpec><![CDATA[&C:%String]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- 
+ 	Set OBJTIdentLookupService = ##class(OBJTimpl.PM.OBJTIdentLookupService).%New()
+
 	Set JaarMaand=$$EXTDATE^vhLib.DataTypes(+$P(^ORDW("D",C("CONSNR")),"\",18),"DM")
 	Set ..ConsNr=$E($TR(JaarMaand,"-")_"9999",1,4)_C("CONSNR") ; voor uniciteit op lange termijn wordt YYMM toegevoegd
 	Set ..LijnNr=C("ORDNR")_";"_C("OLNR")
 	;
 	Set ..OrderTekst=$G(C("ORDTEKST"))
-	Set ..ItemId=$$$ProductGet(C("PRNR"),$$$IdentNummer)
+	Set ..ItemId=OBJTIdentLookupService.GeefOBJTIdentNr($$$ProductGet(C("PRNR"),$$$IdentNummer))
+	;Set ..ItemId=$$$ProductGet(C("PRNR"),$$$IdentNummer)
 	Set ..ItemNm=$$$ProductGet(C("PRNR"),$$$KortTekst)
 	Set ..Aantal=C("AANTAL")
 	Set ..OrderlijnTekst=$G(C("OLTEKST"))
Index: EWORDF.mac.rou
===================================================================
diff -u -r66310 -r66860
--- EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 66310)
+++ EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 66860)
@@ -1,6 +1,7 @@
 EWORDF ;E'WMS Order feedback [ 11/29/2003  1:29 PM ]
  Q
 OL(C,IsUgly) ; Feedback van E'WMS/UGLY betreffende het orderpicken van een suborderlijn
+
  Set IsUgly=$G(IsUgly,0)
  ; Opgeroepen door EWRECR     
  ; C wordt opgeroepen via .Local
@@ -218,6 +219,7 @@
 PICKEND(C) ; Feedback van E'WMS betreffende einde orderpicking van een ganse consolidatie
  ; Opgeroepen door EWRECR
  ; C wordt opgeroepen via .Local
+ 
  New CONSNr,ORDNr,OLUNr,CONSRec,ORDStat,OLRec,Status,OLStat,SoftV
  If C("STATUS")'="POK" Do  Quit  ; Terugmelding bij het terugtrekken van een order
  .Do ERROR^EWLOG($T(ORDCANC))
@@ -323,6 +325,9 @@
 OLSTAT2 ;"De status van sommige orderlijnen zijn nog niet afgesloten :"_C("VOLGNR")_";"_C("CONSNR")_";"_C("ORDNR")_";"_OLStat
 NOCONS ;"Consolidatie bestaat niet :"_C("VOLGNR")_";"_C("CONSNR")
 VOORTREK ;"Consolidatie wordt vervroegd omdat een deel reeds gepickt wordt :"_C("VOLGNR")_";"_C("CONSNR")_";"_SoftV
+CLOCAL ;"C local : "_$$ArrayToText^vhLib("C",.C)
 
 
 
+
+