Index: PRODUKT2.mac.rou
===================================================================
diff -u -r948 -r1134
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 948)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 1134)
@@ -664,6 +664,13 @@
  Set I=$O(^KPR(PRNr,"I")) Set:$E(I)="I" R=^KPR(PRNr,I)
  Quit $E($G(R),3,4)="OL"
  ;
+ ; Is het orgalux product een product op maat?
+IsOrgaluxOpMaat(PRNr)
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ProductClassificatie = ProductAPI.GeefProductClassificatie(PRNr).GeefClassificatie()
+	Set OrgaluxOpMaatClassificatie = ProductAPI.GeefOrgaluxOpMaatClassificatie()
+	Quit (ProductClassificatie.GeefID() = OrgaluxOpMaatClassificatie.GeefID())
+ ;
  ; Is tandembox
 ISTBX(PRNr) 
  New Is
@@ -781,6 +788,7 @@
  If Warn,'IsCommAkt Do WARN^vhTXTPOP("Product """_$P(^KPR(PRNr,0),D)_""" is commercieel NIET ACTIEF","")
  Do:IsCommAkt=2
  . If 'CheckBeperkt Set IsCommAkt=1 Quit
+ . If $$IsOrgaluxOpMaat(PRNr) Set IsCommAkt=1 Quit
  . If 'KLNr Do  Quit
  . . Set IsCommAkt=0
  . . If Warn Do WARN^vhTXTPOP("Product """_$P(^KPR(PRNr,0),D)_""" is BEPERKT commercieel actief","")