Index: HADSTAT2.mac.rou
===================================================================
diff -u -r70681 -r74827
--- HADSTAT2.mac.rou	(.../HADSTAT2.mac.rou)	(revision 70681)
+++ HADSTAT2.mac.rou	(.../HADSTAT2.mac.rou)	(revision 74827)
@@ -122,6 +122,7 @@
  Set GenRec=$$GENTYP^HAD(PRNr)
  If $L($P(GenRec,D)) Do
  .Set:$P(GenRec,D)="KAD" Montage="KZ"  ; Kaderdeur ongemonteerd
+ .Set:$P(GenRec,D)="RVG" Montage="RV"  ; Revego
  .Set:Montage="KZ"&($P(GNode,D,11)!($P(GNode,D,11)["K")) Montage="KM" ; Kaderdeur gemonteerd
  .Set:$P(GenRec,D)="BAN" Montage="BA" ; Banco
  .Set:$P(GenRec,D)="GLA" Montage="DV" ; Glas
@@ -165,8 +166,9 @@
  Quit
  
 DTLPR(Soort) 
- New VolgNr,Rec,FabKey
+ New VolgNr,Rec,FabKey,IsMES
  Set FabKey=$$FABKEYT^HADOPV(TOENr,TLUNr)
+ Set IsMES=##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMES(PRNr)
  If $P($G(^HADPR("F",FabKey),"\\\1"),"\",4) Do 
  . Kill ^HADPR("F",FabKey) ; Opkuis van oude data bij hergebruik van toeleveringsnummer (round robin)
  . Do MARKDEF^HADOPV(PRNr,TOENr,TLUNr) ; Indien eerste maal default markeringen
@@ -182,6 +184,8 @@
  .Set:($E(Soort)="L") Batch=$E(Soort,1,2)_" " ; Legrabox
  .Set:($E(Soort)="M") Batch=$E(Soort,1,2)_" " ; Merivobox
  .Set:(Soort="VM")||(Soort="PM")||(Soort="GM")||(Soort="BB")||(Soort="MM") Batch=Soort_" "
+ .Set:Soort="RV" Batch="RVG"
+ .Set:IsMES Batch="MES" ; alle lades die in OBJT MES verwerkt worden
  .Set $P(Rec,D,1)=Batch
  .Set:LevWk=ProdWk $P(Rec,D,2)="A"
  .Set $P(Rec,D,3)=PRNr
@@ -195,7 +199,9 @@
  .Set:$E(Soort)="M" Rec="MVX "_$S($E(Soort,2)="X":"V1",1:"Probox,...")
  .Set:$E(Soort,1,2)="MM" Rec="Mat op maat"
  .Set:$E(Soort,1,2)="TA" Rec="TAX"
-  .Set $P(Rec,D,2)=$H
+ .Set:Soort="RV" Rec="Revego"
+ .Set:IsMES Rec="Verwerkt door MES" ; alle lades die in OBJT MES verwerkt worden
+ .Set $P(Rec,D,2)=$H
  .Set $P(Rec,D,3)=$$CALCDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(ProdWk,"W","FD"),"A","-0")
  .Set $P(Rec,D,4)=$$CALCDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(ProdWk,"W","LD"),"A","+0")
  .Set ^HADPR("B",Batch)=Rec