Index: Prod/GADef/KaderDeur.cls.xml
===================================================================
diff -u -r29437 -r38163
--- Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 29437)
+++ Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 38163)
@@ -831,7 +831,7 @@
 <Implementation><![CDATA[
  ;ClassMethod : Prod.GADef.Kaderdeur -> ObjectViaParam
  ;Parameters : ProfAfw,Hoogte,Breedte,Beslag,QtyBeslag,QtyGlasBoor,QtyProfO,QtyProfB,QtyProfR,QtyProfL,Vulling,VullingExtra,IsGemonteerd,Verpakking,ProfPrijs,VulPrijs
- New caObj,TabelProfType,TabelProfAfw,TabelVul,TabelVulExtra,TabelToepas,TabelBeslag
+ New caObj,TabelProfType,TabelProfAfw,TabelVul,TabelVulExtra,TabelToepas,TabelOphang,TabelBeslag
  Set caObj=%this
  Set TabelProfType=##class(Res.PI.Definitie).IDViaNaam("ProfType")
  ;Kill ^Dump("NewViaParam")
@@ -877,7 +877,7 @@
  Quit
 
 fvpBoringen(caObj,QtyBoring,BorPlaats)
- New I,BorDType,BorOne,BorDiam,BorType
+ New I,J,BorDType,BorOne,BorDiam,BorType,BorQty
  For I=1:1:$L(QtyBoring,";") Do
  .Set BorOne=$P(QtyBoring,";",I)
  .Quit:BorOne=""