Index: Prod/Product.cls.xml
===================================================================
diff -u -r29059 -r30877
--- Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 29059)
+++ Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 30877)
@@ -1153,6 +1153,7 @@
  If $L(GAProdID) Do
  . Set GENTYP=$P(##class(Prod.Product).GetPropViaNr(PRNr,"GENTYP"),"\",1)   ; Geeft TBX, KAD, BAN, ... terug naargelang het product
  . Set:(GENTYP="DIV") GENTYP=$P(##class(Prod.Product).GetPropViaNr(PRNr,"GENTYP"),"\",2)
+ . Set:($P(##class(Prod.Product).GetPropViaNr(1291819,"GENTYP"),"\",1,2)="TBX\HKS") GENTYP="xxx"   ; Geen XML voor Hoekkasten 
  . If GENTYP?1(1"TBX",1"TLM",1"GRP",1"ASM") Do
  ..  If (Opties'[";GAO") Do  Set Opties=Opties_";GAO"           ;XMLWrite van GAData.Product zeker Omschrijving-opties meegeven
  ..  Set GAProd=##class(Prod.GAData.Product).OpenWithCalc(GAProdID)