Index: HADOPV.mac.rou
===================================================================
diff -u -r2711 -r3123
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 2711)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 3123)
@@ -61,7 +61,7 @@
  New GenType
  Set GenType=$$GENTYP^HAD(PRNr)
  If PRNr="" Do NOSUB Quit
- If ($P(GenType,"\")'?1(1"KAD",1"PRF")),$$HasHalfFabr^PRBS(PRNr) Do  Quit
+ If $$HeeftHalfFabr(PRNr) Do  Quit
  .Do RAADPL^PRLINK(PRNr,,FabKey)
  .Set DispMode="OP"
  .Do REFRESH
@@ -272,7 +272,7 @@
  Quit:'PRNr "Onbekend"_D_1
  Set GenType=$$GENTYP^HAD(PRNr)
  Set Stat="",IsBold=0
- If ($P(GenType,"\")'?1(1"KAD",1"PRF")),$$HasHalfFabr^PRBS(PRNr) Do  ; Heeft halffabrikaten
+ If $$HeeftHalfFabr(PRNr) Do  ; Heeft halffabrikaten
  .Set Stat=Stat_$$STATONE(FabKey,"A") ;Qty te klein in Mag
  .Set Stat=Stat_$$STATONE(FabKey,"F",,,1,.IsBold) ;Qty te klein in Mag
  .Set Stat=Stat_$$STATONE(FabKey,"P",,,1,.IsBold) ;Qty te klein in Mag
@@ -379,7 +379,7 @@
  Set OpmTyp=$P($G(^HADPR(PRNr,"O",1)),D,1)
  Set Montage="DV"
  Set GenType=$$GENTYP^HAD(PRNr)
- Quit:($P(GenType,"\")'?1(1"KAD",1"PRF"))&&$$HasHalfFabr^PRBS(PRNr)  ; Heeft halffabrikaten, Tandembox, Grepen op maat, producten op maat
+ Quit:$$HeeftHalfFabr(PRNr)  ; Heeft halffabrikaten, Tandembox, Grepen op maat, producten op maat
  If $P(GNode,D,8)?1.N,$P(GNode,D,9)?1.N Do  ; Kaderdeur
  .Set Montage=$S($P(GNode,D,11)["K":"KM",1:"KZ")
  ;Quit:$L(Vul)  ; Met vulling, verwijderd 05-04-02 PV
@@ -687,7 +687,7 @@
  . Set Reden=$P(RecO,D,13)
  . Set BldQty=$P(RecO,D,7)
  . Set GenType=$$GENTYP^HAD(PRNr)
- . If ($P(GenType,"\")'?1(1"KAD",1"PRF")),$$HasHalfFabr^PRBS(PRNr) Do  ; Heeft halffabrikaten
+ . If $$HeeftHalfFabr(PRNr) Do  ; Heeft halffabrikaten
  .. If Node="A" Do  ; Activering/Reservering
  ...  Set NewQty=$$MARKPR(FabKey,Node,NewQty,BldQty,Time) ; eerst markeren dan status
  ...  Do ONERES^MRPRES(CRef,FabKey,PRNr,BldQty,"FPWT",.Status)
@@ -976,4 +976,10 @@
 	 }
 	 Do:LD("SELECT")'=OldSelect ENABLE^vhLIST(.LD,LD("SELECT"))
  }
- Quit
\ No newline at end of file
+ Quit
+ 
+HeeftHalfFabr(PRNr)
+ Quit:'PRNr 0
+ New GenType
+ Set GenType=$$GENTYP^HAD(PRNr)
+ Quit ($P(GenType,"\")'?1(1"KAD",1"PRF",1"GLA"))&&$$HasHalfFabr^PRBS(PRNr)
\ No newline at end of file