Index: EWORDS2.mac.rou
===================================================================
diff -u -r69709 -r70684
--- EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 69709)
+++ EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 70684)
@@ -25,7 +25,6 @@
  Set (OLCnt,AutoCons,CredCnt)=0
  For  Set ORDNr=$O(@MarkRef@("A",ORDNr)) Quit:ORDNr=""  Do
  .Lock +^KOD(KLNr,"F",ORDNr)
- .Quit:$$ReedsDoorgestuurdOrderlijnen(CONSNr,.MarkRef)
  .Kill ^ORDW("AUTO",ORDNr)
  .For  Set OLUNr=$O(@MarkRef@("A",ORDNr,OLUNr)) Quit:OLUNr=""  Do
  ..Set OLNr=^ORD("IU",ORDNr,OLUNr)
@@ -62,17 +61,6 @@
  If Status'=1 Do WARN^vhTXTPOP($$ParseStatus^vhLib(Status),"Fout bij invullen bakken voor aventosproducten")
  Lock -^ORDW("D",CONSNr)
  Quit
-
-/// Geeft True (1) als er minstens 1 van de voor picking gemarkeerde lijnen reeds doorgestuurd was voor picking, en wel in een andere consolidatie/picking.
-ReedsDoorgestuurdOrderlijnen(BehalveCONSNr, MarkRef)
- New ORDNr,OLUNr,ReedsDoorgestuurd
- Set (ORDNr,OLUNr)=""
- Set ReedsDoorgestuurd=0
- For  Set ORDNr=$O(@MarkRef@("A",ORDNr)) Quit:ORDNr=""  Do
- .For  Set OLUNr=$O(@MarkRef@("A",ORDNr,OLUNr)) Quit:OLUNr=""  Do
- ..Set:($G(^ORDW("IO",ORDNr,OLUNr),BehalveCONSNr)'=BehalveCONSNr) ReedsDoorgestuurd=1
- Quit ReedsDoorgestuurd
-
  
 BLDAOL(KLNr,CONSNr,ORDNr,OLUNr,Qty) 
  ; Terugnames, zonder WMS en manueel krijgen onmiddellijk status afgewerkt.
@@ -129,17 +117,19 @@
  
 BLDOL(KLNr,CONSNr,ORDNr,OLUNr,Qty,BOQty,BOLwk) 
  ; Verwerken van een orderlijn met eventuele opslitsing in verschillende kindproducten
- New OLNr,OLRec,PRNr,KPRNr,ManOpsl,ManChk,LinkPRNr
+ New OLNr,OLRec,PRNr,KPRNr,ManOpsl,ManChk,LinkPRNr,AX
  Set OLNr=^ORD("IU",ORDNr,OLUNr) ; Misschien veranderd door BACKORD, daarom terug ophalen
  Set OLRec=^KOD(KLNr,"F",ORDNr,OLNr)
  Set PRNr=$P(OLRec,D,2)
+ Set AX=$P(OLRec,D,55,57) ; Ax :InventtransID, ConfigID, ItemID
  If 'PRNr Do ERROR^EWLOG("NOPROD") Quit
  ;Opbouw OL in ORDW
  Set OLRec=""
  Set $P(OLRec,D,1)=PRNr
  Set $P(OLRec,D,4)=Qty
  Set $P(OLRec,D,6)=BOQty
  Set $P(OLRec,D,7)=$S(BOLwk?5N:BOLwk,1:$$INTDATE^vhLib.DataTypes(BOLwk,"DW"))
+ Set $P(OLRec,D,12)=AX
  Set ^ORDW("D",CONSNr,"D",ORDNr,OLUNr)=OLRec
  Set ^ORDW("IO",ORDNr,OLUNr)=CONSNr
  ;