Index: EWORDS2.mac.rou
===================================================================
diff -u -r61747 -r69431
--- EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 61747)
+++ EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 69431)
@@ -1,3 +1,4 @@
+#include Prod.Product
 EWORDS2 ;E'WMS Opbouw van een Consolidatie order [ 01/27/2003  9:34 AM ]
  ;
 BLDCONS(KLNr,MarkRef,CONSNr,VerzW,VerzDat,DOutTime,VerzZ,LevAdr,ChkBeletDone) 
@@ -36,9 +37,12 @@
  ..Set:$P(OLRec,D,3)>0&(BOQty<1) BOQty="" ; Picking
  ..Set:$P(OLRec,D,3)<0&(BOQty>-1) BOQty="" ; Terugname
  ..Set BOLwk=$P(@MarkRef@("A",ORDNr,OLUNr),D,4)
- ..Set OLCnt=OLCnt+1,ManOpsl=$$OPSLMAN^PRODUKT2($P(OLRec,D,2)),MagHandeling=$$MAGHANDEL^PRODUKT2($P(OLRec,D,2))
+ ..Set OLCnt=OLCnt+1
+ ..Set ManOpsl=$$OPSLMAN^PRODUKT2($P(OLRec,D,2))||($$$ProductGet($P(OLRec,D,2),$$$WerkvloerSubMag)="RVGPLM") ; Revego plaatmateriaal
+ ..Set MagHandeling=$$MAGHANDEL^PRODUKT2($P(OLRec,D,2))
  ..If Qty<0!($P(OLRec,D,14)["Z")!ManOpsl!'MagHandeling Do  ; Terugname, ZONDER picking, opslag manueel, werkvloer of zonder magazijn handeling
  ...Do BLDAOL(KLNr,CONSNr,ORDNr,OLUNr,Qty)
+ ... w "wachten ...",CONSNr r k
  ...Set AutoCons=AutoCons+1 Set:Qty<0 CredCnt=CredCnt+1
  ..Else  Do  ; Doorgeven aan WMS
  ...Do BLDOL(KLNr,CONSNr,ORDNr,OLUNr,Qty,BOQty,BOLwk)
@@ -120,7 +124,7 @@
  Set $P(SubRec,D,2)="A" ; Status = Afgewerkt
  Set $P(SubRec,D,3)=Qty
  If $G(MoederPRNr)'=""&&(MoederPRNr'=PRNr) Set $P(SubRec,D,16)=$G(MoederPRNr)
- Set:$$OPSLZONE^PRODUKT2(PRNr)=9 $P(SubRec,D,4)=Qty ; Werkvloerprodukt
+ Set:($$OPSLZONE^PRODUKT2(PRNr)=9)||($$$PRGet($$$WerkvloerSubMag)="RVGPLM") $P(SubRec,D,4)=Qty ; Werkvloerprodukt
  Set ^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SubOLNr)=SubRec
  Quit