; AUTHOR                : Wim VERMEULEN 
 ; LOCATION              : VAN HOECKE N.V.
 ; LAST MODIFIED         : 08/08/2005
 ;
 ; Data(base) to fill the TemplateKader Objects (KadObj).
 ; Each KadObj corresponds to a Res.PI.TemplateKader object.
 ; The routines below are called from the KDTEMPLATES.MAC routine, where KadObj-object and its PIItem are created.
 ; 
 ; NOTE: Labels have the following structure:
 ; ----
 ;          "T" + KlantID + "xx" + PITemplateKader.ItemID
 ;          
 
 
 ;       Klant: TULP KEUKENGROEP                 nr.  2523   (KLNr gewijzigd op 08/08/2005 door WimV)
 ;       =============================================================================================
T2523xxB1L1(KadObj)          ; B1L1    ; bovenkastdeur links, greep onder
 ;Do FillKDPropts(.KadObj,$G(Toepas),$G(OphangP),,,,,,"KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-(67+192),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 ;Do FillKDBoring(.KadObj,XAndCode,YAndCode,Diam,BoringType,BoorDiepte,GlasDiam,ZPos,CodeBKey)
 Quit
 
T2523xxB1R1(KadObj)          ; B1R1    ; bovenkastdeur rechts, greep onder
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj, 8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,     67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,(67+192),-40,5,"ON",-1)
 Quit
 
T2523xxB1L1SLASH1(KadObj)    ; B1L1/1  ; bovenkastdeur links, greep onder, tot 300mm
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-(67+160),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 Quit
 
T2523xxB1R1SLASH1(KadObj)    ; B1R1/1  ; bovenkastdeur rechts, greep onder, tot 300mm
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,     67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,(67+160),-40,5,"ON",-1)
 Quit
 
T2523xxb12xMINB11010L(KadObj)       ; b12x-B11010L  ; kastdeur links, greep onder
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-80",-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+80",-40,5,"ON",-1)
 Quit
 
T2523xxb12xMINB11010R(KadObj)       ; b12x-B11010R  ; kastdeur rechts, greep onder
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-80",-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+80",-40,5,"ON",-1)
 Quit
 ;=====================================================================================================================  
 
T2523xxB1L5(KadObj)          ; B1L5    ; onderkastdeur links, greep boven
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-(67+192),40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,40,5,"ON",-1)
 Quit
 
T2523xxB1R5(KadObj)          ; B1R5    ; onderkastdeur rechts, greep boven
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,     67 ,40,5,"ON",-1)
 Do FillKDBoring(.KadObj,(67+192),40,5,"ON",-1)
 Quit
 
T2523xxB1L5SLASH1(KadObj)    ; B1L5/1  ; onderkastdeur links, greep boven, tot 300mm
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-(67+160),40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,40,5,"ON",-1)
 Quit
 
T2523xxB1R5SLASH1(KadObj)    ; B1R5/1  ; onderkastdeur rechts, greep boven, tot 300mm
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,     67 ,40,5,"ON",-1)
 Do FillKDBoring(.KadObj,(67+160),40,5,"ON",-1)
 Quit
 ;=====================================================================================================================  
 
T2523xxB2L1(KadObj)          ; B2L1    ; kastdeur links draaiend
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-"_(86+272)_";5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-(67+192),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 Quit
 
T2523xxB2R1(KadObj)          ; B2R1    ; kastdeur rechts draaiend
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-"_(86+272)_";5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,     67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,(67+192),-40,5,"ON",-1)
 Quit
 
T2523xxB2L1SLASH1(KadObj)    ; B2L1/1  ; kastdeur links draaiend, tot 300mm
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-"_(86+272)_";5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-(67+160),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 Quit
 
T2523xxB2R1SLASH1(KadObj)    ; B2R1/1  ; kastdeur rechts draaiend, tot 300mm
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-"_(86+272)_";5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,     67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,(67+160),-40,5,"ON",-1)
 Quit
 ;=====================================================================================================================  
 
T2523xxB3L1(KadObj)          ; B3L1    ; kastdeur links draaiend
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-"_(86+416)_";5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-(67+192),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 Quit
 
T2523xxB3R1(KadObj)          ; B3R1    ; kastdeur rechts draaiend
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-"_(86+416)_";5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,     67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,(67+192),-40,5,"ON",-1)
 Quit
 
T2523xxB3L1SLASH1(KadObj)    ; B3L1/1  ; kastdeur links draaiend, tot 300mm
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-"_(86+416)_";5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-(67+160),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 Quit
 
T2523xxB3R1SLASH1(KadObj)    ; B3R1/1  ; kastdeur rechts draaiend, tot 300mm
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-"_(86+416)_";5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,     67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,(67+160),-40,5,"ON",-1)
 Quit
 ;=====================================================================================================================  
 
T2523xxB4L1(KadObj)          ; B4L1    ; kastdeur links draaiend
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-"_(86+560)_";5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-(67+192),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 Quit
 
T2523xxB4R1(KadObj)          ; B4R1    ; kastdeur rechts draaiend
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-"_(86+560)_";5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,     67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,(67+192),-40,5,"ON",-1)
 Quit
 
T2523xxB4L1SLASH1(KadObj)    ; B4L1/1  ; kastdeur links draaiend, tot 300mm
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-"_(86+560)_";5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-(67+160),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 Quit
 
T2523xxB4R1SLASH1(KadObj)    ; B4R1/1  ; kastdeur rechts draaiend, tot 300mm
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-"_(86+560)_";5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,     67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,(67+160),-40,5,"ON",-1)
 Quit
 ;=====================================================================================================================  
 
T2523xxB4R3(KadObj)          ; B4R3    ; kastdeur rechts draaiend
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-"_(86+560)_";5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,40,"c-96",5,"ON",-1)
 Do FillKDBoring(.KadObj,40,"c+96",5,"ON",-1)
 Quit
 ;=====================================================================================================================  
 
T2523xxB8L5(KadObj)          ; B8L5    ; front deur links, greep boven, scharnier omlaag
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","214;5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-(67+192),40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,40,5,"ON",-1)
 Quit
 
T2523xxB8R5(KadObj)          ; B8R5    ; front deur rechts, greep boven, scharnier omlaag
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","214;5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,     67 ,40,5,"ON",-1)
 Do FillKDBoring(.KadObj,(67+192),40,5,"ON",-1)
 Quit
 
T2523xxB8L5SLASH1(KadObj)    ; B8L5/1    ; front deur links, greep boven, scharnier omlaag, tot 300mm
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","214;5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-(67+160),40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,40,5,"ON",-1)
 Quit
 
T2523xxB8R5SLASH1(KadObj)    ; B8R5/1    ; front deur rechts, greep boven, scharnier omlaag, tot 300mm
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","214;5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,     67 ,40,5,"ON",-1)
 Do FillKDBoring(.KadObj,(67+160),40,5,"ON",-1)
 Quit
 ;=====================================================================================================================  
 
T2523xxS1L1(KadObj)          ; S1L1    ; linkerdeur, smal profiel, knop onder
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-70;0")
 Do FillKDBoring(.KadObj,-8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-50,"5+7","ON",-1)
 Quit
 
T2523xxS1L3(KadObj)          ; S1L3    ; linkerdeur, smal profiel, knop midden
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-70;0")
 Do FillKDBoring(.KadObj,-8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,"c","5+7","ON",-1)
 Quit
 
T2523xxS1L5(KadObj)          ; S1L5    ; linkerdeur, smal profiel, knop boven
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-70;0")
 Do FillKDBoring(.KadObj,-8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,50,"5+7","ON",-1)
 Quit
 
T2523xxS1L0(KadObj)          ; S1L0    ; linkerdeur, smal profiel, zonder knop
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-70;0")
 Do FillKDBoring(.KadObj,-8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Quit
 
T2523xxS1R1(KadObj)          ; S1R1    ; rechterdeur, smal profiel, knop onder
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-70;0")
 Do FillKDBoring(.KadObj,8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-50,"5+7","ON",-1)
 Quit
 
T2523xxS1R3(KadObj)          ; S1R3    ; rechterdeur, smal profiel, knop midden
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-70;0")
 Do FillKDBoring(.KadObj,8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,"c","5+7","ON",-1)
 Quit
 
T2523xxS1R5(KadObj)          ; S1R5    ; rechterdeur, smal profiel, knop boven
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-70;0")
 Do FillKDBoring(.KadObj,8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,50,"5+7","ON",-1)
 Quit
 
T2523xxS1R0(KadObj)          ; S1R0    ; rechterdeur, smal profiel, zonder knop
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-70;0")
 Do FillKDBoring(.KadObj,8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-70,5,"ON",1,,,"R")
 Quit
 ;=====================================================================================================================  
 
T2523xxS2L1(KadObj)          ; S2L1    ; linkerdeur, smal profiel, knop onder
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+288)_";0\-70;0")
 Do FillKDBoring(.KadObj,-8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-50,"5+7","ON",-1)
 Quit
 
T2523xxS2L3(KadObj)          ; S2L3    ; linkerdeur, smal profiel, knop midden
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+288)_";0\-70;0")
 Do FillKDBoring(.KadObj,-8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,"c","5+7","ON",-1)
 Quit
 
T2523xxS2L5(KadObj)          ; S2L5    ; linkerdeur, smal profiel, knop boven
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+288)_";0\-70;0")
 Do FillKDBoring(.KadObj,-8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,50,"5+7","ON",-1)
 Quit
 
T2523xxS2L0(KadObj)          ; S2L0    ; linkerdeur, smal profiel, zonder knop
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+288)_";0\-70;0")
 Do FillKDBoring(.KadObj,-8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Quit
 
T2523xxS2R1(KadObj)          ; S2R1    ; rechterdeur, smal profiel, knop onder
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+288)_";0\-70;0")
 Do FillKDBoring(.KadObj,8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-50,"5+7","ON",-1)
 Quit
 
T2523xxS2R3(KadObj)          ; S2R3    ; rechterdeur, smal profiel, knop midden
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+288)_";0\-70;0")
 Do FillKDBoring(.KadObj,8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,"c","5+7","ON",-1)
 Quit
 
T2523xxS2R5(KadObj)          ; S2R5    ; rechterdeur, smal profiel, knop boven
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+288)_";0\-70;0")
 Do FillKDBoring(.KadObj,8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,50,"5+7","ON",-1)
 Quit
 
T2523xxS2R0(KadObj)          ; S2R0    ; rechterdeur, smal profiel, zonder knop
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+288)_";0\-70;0")
 Do FillKDBoring(.KadObj,8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-70,5,"ON",1,,,"R")
 Quit
 ;=====================================================================================================================  
 
T2523xxS3L1(KadObj)          ; S3L1    ; linkerdeur, smal profiel, knop onder
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+432)_";0\-70;0")
 Do FillKDBoring(.KadObj,-8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-50,"5+7","ON",-1)
 Quit
 
T2523xxS3L0(KadObj)          ; S3L0    ; linkerdeur, smal profiel, zonder knop
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+432)_";0\-70;0")
 Do FillKDBoring(.KadObj,-8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Quit
 
T2523xxS3R1(KadObj)          ; S3R1    ; rechterdeur, smal profiel, knop onder
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+432)_";0\-70;0")
 Do FillKDBoring(.KadObj,8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-50,"5+7","ON",-1)
 Quit
 
T2523xxS3R0(KadObj)          ; S3R0    ; rechterdeur, smal profiel, zonder knop
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+432)_";0\-70;0")
 Do FillKDBoring(.KadObj,8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-70,5,"ON",1,,,"R")
 Quit
 ;=====================================================================================================================  
 
T2523xxS4L1(KadObj)          ; S4L1    ; linkerdeur, smal profiel, knop onder
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+576)_";0\-70;0")
 Do FillKDBoring(.KadObj,-8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-50,"5+7","ON",-1)
 Quit
 
T2523xxS4L0(KadObj)          ; S4L0    ; linkerdeur, smal profiel, zonder knop
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+576)_";0\-70;0")
 Do FillKDBoring(.KadObj,-8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Quit
 
T2523xxS4R1(KadObj)          ; S4R1    ; rechterdeur, smal profiel, knop onder
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+576)_";0\-70;0")
 Do FillKDBoring(.KadObj,8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-50,"5+7","ON",-1)
 Quit
 
T2523xxS4R0(KadObj)          ; S4R0    ; rechterdeur, smal profiel, zonder knop
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-"_(70+576)_";0\-70;0")
 Do FillKDBoring(.KadObj,8, 70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-70,5,"ON",1,,,"R")
 Quit
 ;=====================================================================================================================  
 
T2523xxB5MIN2(KadObj)        ; B5-2    ; klapdeur tot 600mm, breed prof, 1 steun rechts
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 ;Do FillKDBeslag(.KadObj,"KH","???","100;25;R")
 Do FillKDBoring(.KadObj, 86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-96",-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+96",-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj,-25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,132,-3,"ON",0)
 Quit
 
T2523xxB5MIN2SLASH1(KadObj)  ; B5-2/1  ; klapdeur tot 300mm, breed prof, 1 steun rechts
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 ;Do FillKDBeslag(.KadObj,"KH","???","100;25;R")
 Do FillKDBoring(.KadObj, 86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-80",-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+80",-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj,-25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,132,-3,"ON",0)
 Quit
 
T2523xxB5MINB(KadObj)        ; B5-B    ; klapdeur vanaf 800mm, breed prof, 2 steunen
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 ;Do FillKDBeslag(.KadObj,"KH","???","100;25;L\100;25;R")
 Do FillKDBoring(.KadObj, 86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,      67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj, (67+192),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,-(67+192),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj, 25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj, 25,132,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,132,-3,"ON",0)
 Quit
 
T2523xxB5MINC(KadObj)        ; B5-C    ; klapdeur vanaf 1000mm, breed prof, 3 scharn.
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\c;5\-86;5")
 ;Do FillKDBeslag(.KadObj,"KH","???","100;25;L\100;25;R")
 Do FillKDBoring(.KadObj, 86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,      67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj, (67+192),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,-(67+192),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj, 25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj, 25,132,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,132,-3,"ON",0)
 Quit
 
T2523xxB5MIND(KadObj)        ; B5-D    ; klapdeur vanaf 1000mm, breed prof, 4 scharn.
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\s2:172;5\s2:172;5\-86;5")
 ;Do FillKDBeslag(.KadObj,"KH","???","100;25;L\100;25;R")
 Do FillKDBoring(.KadObj, 86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,      67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj, (67+192),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,-(67+192),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj, 25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj, 25,132,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,132,-3,"ON",0)
 Quit
 
 
 ;=====================================================================================================================  
 
T2523xxS5MIN2(KadObj)        ; S5-2    ; klapdeur tot 600mm, smal prof, 1 steun rechts
 Do FillKDPropts(.KadObj,"KLS","B","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-70;0")
 ;Do FillKDBeslag(.KadObj,"KH","???","100;-5;L")
 Do FillKDBoring(.KadObj, 70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c",-8,"5+7","ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj,"Im",100,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Im",117,-3,"IN",0,,5)
 ; Uitleg/Omschrijving van de interne boringen : zie volgend "T2523xxS5MINB" / "S5-B" 
 Quit
 
T2523xxS5MINB(KadObj)        ; S5-B    ; klapdeur vanaf 800mm, smal prof, 2 steunen
 Do FillKDPropts(.KadObj,"KLS","B","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\-70;0")
 ;Do FillKDBeslag(.KadObj,"KH","???","100;-5;L\100;-5;R")
 Do FillKDBoring(.KadObj, 70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 50,-8,"5+7","ON",-1)
 Do FillKDBoring(.KadObj,-50,-8,"5+7","ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj,"Ip",100,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Ip",117,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Im",100,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Im",117,-3,"IN",0,,5)
 ; "Im+0" = KadObj.ProfType.Breedte + 0 , vertrekkende van de rechtse kant (i.e. KadObj.Breedte - ...)
 ; ander vb. "Ip-7" = KadObj.ProfType.Breedte - 7 , vertrekkende van de linkse kant
 ; ZPos: het nulpunt van de Z-as ligt onderaan het profiel, i.e. rug/achterzijde: z=0
 Quit
 
T2523xxS5MINC(KadObj)        ; S5-C    ; klapdeur vanaf 1000mm, smal prof, 3 scharn.
 Do FillKDPropts(.KadObj,"KLS","B","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\c;0\-70;0")
 ;Do FillKDBeslag(.KadObj,"KH","???","100;-5;L\100;-5;R")
 Do FillKDBoring(.KadObj, 70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 50,-8,"5+7","ON",-1)
 Do FillKDBoring(.KadObj,-50,-8,"5+7","ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj,"Ip",100,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Ip",117,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Im",100,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Im",117,-3,"IN",0,,5)
 ; "Im+0" = KadObj.ProfType.Breedte + 0 , vertrekkende van de rechtse kant (i.e. KadObj.Breedte - ...)
 ; ander vb. "Ip-7" = KadObj.ProfType.Breedte - 7 , vertrekkende van de linkse kant
 ; ZPos: het nulpunt van de Z-as ligt onderaan het profiel, i.e. rug/achterzijde: z=0
 Quit
 
T2523xxS5MIND(KadObj)        ; S5-D    ; klapdeur vanaf 1000mm, smal prof, 4 scharn.
 Do FillKDPropts(.KadObj,"KLS","B","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","70;0\s2:140;0\s2:140;0\-70;0")
 ;Do FillKDBeslag(.KadObj,"KH","???","100;-5;L\100;-5;R")
 Do FillKDBoring(.KadObj, 70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 50,-8,"5+7","ON",-1)
 Do FillKDBoring(.KadObj,-50,-8,"5+7","ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj,"Ip",100,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Ip",117,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Im",100,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Im",117,-3,"IN",0,,5)
 ; "Im+0" = KadObj.ProfType.Breedte + 0 , vertrekkende van de rechtse kant (i.e. KadObj.Breedte - ...)
 ; ander vb. "Ip-7" = KadObj.ProfType.Breedte - 7 , vertrekkende van de linkse kant
 ; ZPos: het nulpunt van de Z-as ligt onderaan het profiel, i.e. rug/achterzijde: z=0
 Quit
 
 ;=====================================================================================================================  
 
T2523xxB6MIN6(KadObj)        ; B6-6    ; LadeFront met 1 greep, tot 600mm
 Do FillKDPropts(.KadObj,"LF","O","PBG-EV",140,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"LB","TANDZ","o-69;28;L\o-69;28;R")
 Do FillKDBoring(.KadObj, 8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-96",40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+96",40,5,"ON",-1)
 Quit
 
T2523xxB6MIN6SLASH1(KadObj)  ; B6-6/1  ; LadeFront met 1 greep, tot 300mm
 Do FillKDPropts(.KadObj,"LF","O","PBG-EV",140,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"LB","TANDZ","o-69;28;L\o-69;28;R")
 Do FillKDBoring(.KadObj, 8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-80",40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+80",40,5,"ON",-1)
 Quit
 
T2523xxB6MINB(KadObj)        ; B6-B    ; LadeFront met 2 grepen, vanaf 800mm
 Do FillKDPropts(.KadObj,"LF","O","PBG-EV",140,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"LB","TANDZ","o-69;28;L\o-69;28;R")
 Do FillKDBoring(.KadObj, 8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-70,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,      67 ,40,5,"ON",-1)
 Do FillKDBoring(.KadObj, (67+192),40,5,"ON",-1)
 Do FillKDBoring(.KadObj,-(67+192),40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,40,5,"ON",-1)
 Quit
 ;=====================================================================================================================  
 
T2523xxB7MIN6(KadObj)        ; B7-6    ; LadeFront Hoog met 1 greep, tot 600mm
 Do FillKDPropts(.KadObj,"LF","O","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"LB","TANDRH","o-69;28;L\o-69;28;R")
 Do FillKDBoring(.KadObj, 8, 69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 8,-69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8, 69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-96",40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c96",40,5,"ON",-1)
 Quit
 
T2523xxB7MIN6SLASH1(KadObj)  ; B7-6/1  ; LadeFront Hoog met 1 greep, tot 300mm
 Do FillKDPropts(.KadObj,"LF","O","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"LB","TANDRH","o-69;28;L\o-69;28;R")
 Do FillKDBoring(.KadObj, 8, 69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 8,-69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8, 69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-80",40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+80",40,5,"ON",-1)
 Quit
 
T2523xxB7MINB(KadObj)        ; B7-B    ; LadeFront Hoog met 2 grepen, vanaf 800mm
 Do FillKDPropts(.KadObj,"LF","O","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"LB","TANDRH","o-69;28;L\o-69;28;R")
 Do FillKDBoring(.KadObj, 8, 69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 8,-69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8, 69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,      67 ,40,5,"ON",-1)
 Do FillKDBoring(.KadObj, (67+192),40,5,"ON",-1)
 Do FillKDBoring(.KadObj,-(67+192),40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,40,5,"ON",-1)
 Quit
 ;=====================================================================================================================  
 
T2523xxB0MIN6(KadObj)        ; B0-6    ; LadeFront Hoog met 1 greep, tot 600mm
 Do FillKDPropts(.KadObj,"LF","O","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"LB","TANDRH","o-69;28;L\o-69;28;R")
 Do FillKDBoring(.KadObj, 8, 69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 8,-69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8, 69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-96",40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+96",40,5,"ON",-1)
 Quit
 
T2523xxB0MIN6SLASH1(KadObj)  ; B0-6/1  ; LadeFront Hoog met 1 greep, tot 300mm
 Do FillKDPropts(.KadObj,"LF","O","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"LB","TANDRH","o-69;28;L\o-69;28;R")
 Do FillKDBoring(.KadObj, 8, 69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 8,-69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8, 69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-80",40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+80",40,5,"ON",-1)
 Quit
 
T2523xxB0MINB(KadObj)        ; B0-B    ; LadeFront Hoog met 2 grepen, vanaf 800mm
 Do FillKDPropts(.KadObj,"LF","O","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"LB","TANDRH","o-69;28;L\o-69;28;R")
 Do FillKDBoring(.KadObj, 8, 69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 8,-69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8, 69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-69,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,      67 ,40,5,"ON",-1)
 Do FillKDBoring(.KadObj, (67+192),40,5,"ON",-1)
 Do FillKDBoring(.KadObj,-(67+192),40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,40,5,"ON",-1)
 Quit
T2523xxB9MIN0(KadObj)        ; B9-0    ; Vaste Blende boven
 Do FillKDPropts(.KadObj,"LF","O","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBoring(.KadObj, 8,"c",5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,"c",5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 28,52,-3,"ON",0)
 Do FillKDBoring(.KadObj, 28,(52+32),-3,"ON",0)
 Do FillKDBoring(.KadObj,-28,52,-3,"ON",0)
 Do FillKDBoring(.KadObj,-28,(52+32),-3,"ON",0)
 Quit
 ;=====================================================================================================================  
 
T2523xxBAR3(KadObj)          ; BAR3    ; Kastdeur DDVKH rechts draaiend
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",2046,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\"_(86+625)_";5\-"_(86+625)_";5\-86;5")
 Do FillKDBoring(.KadObj,86, 8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 40, 555.5,5,"ON",-1)
 Do FillKDBoring(.KadObj, 40,-555.5,5,"ON",-1)
 Quit
 
T2523xxBAL3(KadObj)          ; BAL3    ; Kastdeur DDVKH links draaiend
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",2046,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\"_(86+625)_";5\-"_(86+625)_";5\-86;5")
 Do FillKDBoring(.KadObj,-86, 8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-40, 555.5,5,"ON",-1)
 Do FillKDBoring(.KadObj,-40,-555.5,5,"ON",-1)
 Quit
 
T2523xxBBB(KadObj)        ; BBB    ; Front BZLD kast, vanaf 800mm
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",428,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBoring(.KadObj, 8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,      67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj, (67+192),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,-(67+192),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj, 28.5,210,-3,"ON",0)
 Do FillKDBoring(.KadObj, 28.5,274,-3,"ON",0)
 Do FillKDBoring(.KadObj, 28.5,306,-3,"ON",0)
 Do FillKDBoring(.KadObj, 38.5,210,-3,"ON",0)
 Do FillKDBoring(.KadObj, 38.5,274,-3,"ON",0)
 Do FillKDBoring(.KadObj, 38.5,306,-3,"ON",0)
 Do FillKDBoring(.KadObj,-28.5,210,-3,"ON",0)
 Do FillKDBoring(.KadObj,-28.5,274,-3,"ON",0)
 Do FillKDBoring(.KadObj,-28.5,306,-3,"ON",0)
 Do FillKDBoring(.KadObj,-38.5,210,-3,"ON",0)
 Do FillKDBoring(.KadObj,-38.5,274,-3,"ON",0)
 Do FillKDBoring(.KadObj,-38.5,306,-3,"ON",0)
 Quit
 
T2523xxBB2(KadObj)        ; BB2    ; Front BZLD kast, 600mm
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",428,594,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBoring(.KadObj, 8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-96",-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+96",-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj, 28.5,210,-3,"ON",0)
 Do FillKDBoring(.KadObj, 28.5,274,-3,"ON",0)
 Do FillKDBoring(.KadObj, 28.5,306,-3,"ON",0)
 Do FillKDBoring(.KadObj, 38.5,210,-3,"ON",0)
 Do FillKDBoring(.KadObj, 38.5,274,-3,"ON",0)
 Do FillKDBoring(.KadObj, 38.5,306,-3,"ON",0)
 Do FillKDBoring(.KadObj,-28.5,210,-3,"ON",0)
 Do FillKDBoring(.KadObj,-28.5,274,-3,"ON",0)
 Do FillKDBoring(.KadObj,-28.5,306,-3,"ON",0)
 Do FillKDBoring(.KadObj,-38.5,210,-3,"ON",0)
 Do FillKDBoring(.KadObj,-38.5,274,-3,"ON",0)
 Do FillKDBoring(.KadObj,-38.5,306,-3,"ON",0)
 Quit
 ;=====================================================================================================================  
 
T2523xxB124MIND21011(KadObj)        ; B124-D21011    ; Klapdeur vanaf 950mm, breed prof, 2 steunen
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj, 86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-64",-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+64",-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj, 32.5,164,-3,"ON",0)
 Do FillKDBoring(.KadObj, 32.5,196,-3,"ON",0)
 Do FillKDBoring(.KadObj,-32.5,164,-3,"ON",0)
 Do FillKDBoring(.KadObj,-32.5,196,-3,"ON",0)
 Quit
 
T2523xxB12ZMIND21011(KadObj)        ; B12Z-D21011    ; Klapdeur vanaf 950mm, breed prof, 2 steunen
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj, 86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-240",-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+240",-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj, 32.5,164,-3,"ON",0)
 Do FillKDBoring(.KadObj, 32.5,196,-3,"ON",0)
 Do FillKDBoring(.KadObj,-32.5,164,-3,"ON",0)
 Do FillKDBoring(.KadObj,-32.5,196,-3,"ON",0)
 Quit
 
T2523xxB124MIND21010(KadObj)        ; B124-D21010    ; Klapdeur tot 900mm, breed prof, 2 steunen
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj, 86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-64",-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+64",-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj, 25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj, 25,132,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,132,-3,"ON",0)
 Quit
 
T2523xxB12ZMIND21010(KadObj)        ; B12Z-D21010    ; Klapdeur vanaf 650mm, breed prof, 2 steunen
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj, 86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-240",-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+240",-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj, 25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj, 25,132,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,132,-3,"ON",0)
 Quit
 
T2523xxD21010x2Z(KadObj)            ; D21010x2Z    ; Klapdeur vanaf 650mm, breed prof, 2 steunen
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj, 86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-240",-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+240",-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj, 25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj, 25,132,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,132,-3,"ON",0)
 Quit
 
T2523xxB2B4MIND21010(KadObj)        ; B2B4-D21010    ; Klapdeur tot 900mm, breed prof, 2 steunen
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj, 86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,      67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj, (67+128),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,-(67+128),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj, 25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj, 25,132,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,100,-3,"ON",0)
 Do FillKDBoring(.KadObj,-25,132,-3,"ON",0)
 Quit
 
T2523xxB2B4MIND21011(KadObj)        ; B2B4-D21011    ; Klapdeur vanaf 950mm, breed prof, 2 steunen
 Do FillKDPropts(.KadObj,"KLS","B","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj, 86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,      67 ,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj, (67+128),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,-(67+128),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj, 32.5,164,-3,"ON",0)
 Do FillKDBoring(.KadObj, 32.5,196,-3,"ON",0)
 Do FillKDBoring(.KadObj,-32.5,164,-3,"ON",0)
 Do FillKDBoring(.KadObj,-32.5,196,-3,"ON",0)
 Quit
 
T2523xxB12ZMIND50010(KadObj)        ; B12Z-D50010    ; Klapdeur vanaf 650mm
 Do FillKDPropts(.KadObj,"LF","B","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 ; Boringen ter vervananging van de scharnieren
 Do FillKDBoring(.KadObj,   70 ,10,3.2,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,  102 ,10,3.2,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-16",10,3.2,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c+16",10,3.2,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, -102 ,10,3.2,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,  -70 ,10,3.2,"ON",1,,,"R")
 ; Stootbuffers
 Do FillKDBoring(.KadObj, 10,86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-10,86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 86,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-86,-8,5,"ON",1,,,"R")
 ; Greep
 Do FillKDBoring(.KadObj,"c-240",-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+240",-40,5,"ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj, 27,-27,-3.5,"ON",0,,,,"!")   ; CncID="!" : niet automatisch frezen
 Do FillKDBoring(.KadObj, 27,-52,-3.5,"ON",0)
 Do FillKDBoring(.KadObj,-27,-27,-3.5,"ON",0,,,,"!")   ; CncID="!" : niet automatisch frezen
 Do FillKDBoring(.KadObj,-27,-52,-3.5,"ON",0)
 Quit
 ;=====================================================================================================================  
 
T2523xxB2F4MINF11010(KadObj)        ; B2F4-F11010    ; Front korflade met 2 grepen, vanaf 650mm
 Do FillKDPropts(.KadObj,"LF","O","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"LB","TANDRH","o-65;28;L\o-65;28;R")
 Do FillKDBoring(.KadObj, 8, 50,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 8,-65,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8, 50,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-65,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,      67 ,40,5,"ON",-1)
 Do FillKDBoring(.KadObj, (67+128),40,5,"ON",-1)
 Do FillKDBoring(.KadObj,-(67+128),40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,40,5,"ON",-1)
 Quit
 
T2523xxB16ZMINF11010(KadObj)        ; B16Z-F11010    ; Front korflade met 1 greep, vanaf 650mm
 Do FillKDPropts(.KadObj,"LF","O","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"LB","TANDRH","o-65;28;L\o-65;28;R")
 Do FillKDBoring(.KadObj, 8, 50,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 8,-65,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8, 50,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-65,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-240",40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+240",40,5,"ON",-1)
 Quit
 
T2523xxF11010x6Z(KadObj)            ; F11010x6Z      ; Front korflade met 1 greep, vanaf 650mm
 Do FillKDPropts(.KadObj,"LF","O","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"LB","TANDRH","o-65;28;L\o-65;28;R")
 Do FillKDBoring(.KadObj, 8, 50,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj, 8,-65,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8, 50,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-65,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c-240",40,5,"ON",-1)
 Do FillKDBoring(.KadObj,"c+240",40,5,"ON",-1)
 Quit
 
T2523xxB114MINB11010L(KadObj)       ; B114-B11010L   ; Kastdeur links, greep onder
 Do FillKDPropts(.KadObj,"KD","L","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-(67+128),-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,     -67 ,-40,5,"ON",-1)
 Quit
 
T2523xxB114MINB11010R(KadObj)       ; B114-B11010R   ; Kastdeur rechts, greep onder
 Do FillKDPropts(.KadObj,"KD","R","PBG-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMS","86;5\-86;5")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,67+128,-40,5,"ON",-1)
 Do FillKDBoring(.KadObj,    67,-40,5,"ON",-1)
 Quit
 ;=====================================================================================================================  
 
T2523xxS110MINB11010L(KadObj)       ; S110-B11010L   ; Linkerdeur, smal profiel, knop onder
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\-86;0")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-50,"5+7","ON",-1)
 Quit
 
T2523xxS130MINB11010L(KadObj)       ; S130-B11010L   ; Linkerdeur, smal profiel, knop midden
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\-86;0")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,"c","5+7","ON",-1)
 Quit
 
T2523xxS150MINB11010L(KadObj)       ; S150-B11010L   ; Linkerdeur, smal profiel, knop boven
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\-86;0")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,50,"5+7","ON",-1)
 Quit
 
T2523xxS100MINB11010L(KadObj)       ; S100-B11010L   ; Linkerdeur, smal profiel, zonder knop
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\-86;0")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Quit
 
T2523xxS110MINB11010R(KadObj)       ; S110-B11010R   ; Rechterdeur, smal profiel, knop onder
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\-86;0")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-50,"5+7","ON",-1)
 Quit
 
T2523xxS130MINB11010R(KadObj)       ; S130-B11010R   ; Rechterdeur, smal profiel, knop midden
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\-86;0")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,"c","5+7","ON",-1)
 Quit
 
T2523xxS150MINB11010R(KadObj)       ; S150-B11010R   ; Rechterdeur, smal profiel, knop boven
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\-86;0")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,50,"5+7","ON",-1)
 Quit
 
T2523xxS100MINB11010R(KadObj)       ; S100-B11010R   ; Rechterdeur, smal profiel, zonder knop
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\-86;0")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Quit
 ;=====================================================================================================================  
 
T2523xxS110MINC11010L(KadObj)       ; S110-C11010L   ; Linkerdeur, smal profiel, knop onder
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\c;0\-86;0")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-50,"5+7","ON",-1)
 Quit
 
T2523xxS130MINC11010L(KadObj)       ; S130-C11010L   ; Linkerdeur, smal profiel, knop midden
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\c;0\-86;0")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,"c","5+7","ON",-1)
 Quit
 
T2523xxS150MINC11010L(KadObj)       ; S150-C11010L   ; Linkerdeur, smal profiel, knop boven
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\c;0\-86;0")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,50,"5+7","ON",-1)
 Quit
 
T2523xxS100MINC11010L(KadObj)       ; S100-C11010L   ; Linkerdeur, smal profiel, zonder knop
 Do FillKDPropts(.KadObj,"KD","L","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\c;0\-86;0")
 Do FillKDBoring(.KadObj,-8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-8,-86,5,"ON",1,,,"R")
 Quit
 
T2523xxS110MINC11010R(KadObj)       ; S110-C11010R   ; Rechterdeur, smal profiel, knop onder
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\c;0\-86;0")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-50,"5+7","ON",-1)
 Quit
 
T2523xxS130MINC11010R(KadObj)       ; S130-C11010R   ; Rechterdeur, smal profiel, knop midden
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\c;0\-86;0")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,"c","5+7","ON",-1)
 Quit
 
T2523xxS150MINC11010R(KadObj)       ; S150-C11010R   ; Rechterdeur, smal profiel, knop boven
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\c;0\-86;0")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,50,"5+7","ON",-1)
 Quit
 
T2523xxS100MINC11010R(KadObj)       ; S100-C11010R   ; Rechterdeur, smal profiel, zonder knop
 Do FillKDPropts(.KadObj,"KD","R","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\c;0\-86;0")
 Do FillKDBoring(.KadObj,8, 86,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,8,-86,5,"ON",1,,,"R")
 Quit
 ;=====================================================================================================================  
 
T2523xxS120MIND11010(KadObj)        ; S120-D11010    ; Klapdeur tot 600mm, smal prof, 1 steun rechts
 Do FillKDPropts(.KadObj,"KLS","B","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\-86;0")
 Do FillKDBoring(.KadObj, 70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c",-8,"5+7","ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj,"Im",100,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Im",117,-3,"IN",0,,5)
 ; Uitleg/Omschrijving van de interne boringen : zie volgend "T2523xxS5MINB" / "S5-B" 
 Quit
 
T2523xxS120MIND21010(KadObj)        ; S120-D21010    ; Klapdeur tot 900mm, smal prof, 2 steunen
 Do FillKDPropts(.KadObj,"KLS","B","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\-86;0")
 ;Do FillKDBeslag(.KadObj,"KH","???","100;-5;L\100;-5;R")
 Do FillKDBoring(.KadObj, 70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c",-8,"5+7","ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj,"Ip",100,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Ip",117,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Im",100,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Im",117,-3,"IN",0,,5)
 ; Uitleg/Omschrijving van de interne boringen : zie volgend "T2523xxS5MINB" / "S5-B" 
 Quit
 
T2523xxS120MIND21011(KadObj)        ; S120-D21011    ; Klapdeur vanaf 900mm, smal prof, 2 steunen
 Do FillKDPropts(.KadObj,"KLS","B","PSV-EV",,,"NY","HARD","KV","K","ExtendFT^Prod.GADef.KaderDeur.TemplGeneral")
 Do FillKDBeslag(.KadObj,"S","BLUMK","86;0\-86;0")
 ;Do FillKDBeslag(.KadObj,"KH","???","100;-5;L\100;-5;R")
 Do FillKDBoring(.KadObj, 70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,-70,-8,5,"ON",1,,,"R")
 Do FillKDBoring(.KadObj,"c",-8,"5+7","ON",-1)
 ; (punt)Boringen voor Klapdeur Steun;  kunnen ook opgenomen worden in BESLAG
 Do FillKDBoring(.KadObj,"Ip",171.5,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Ip",188.5,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Im",171.5,-3,"IN",0,,5)
 Do FillKDBoring(.KadObj,"Im",188.5,-3,"IN",0,,5)
 ; Uitleg/Omschrijving van de interne boringen : zie volgend "T2523xxS5MINB" / "S5-B" 
 Quit
 
 ;=====================================================================================================================  
 
 
 
 
 ;       Klant: XXXXXXXXXXXXXXXX                 nr.  XXXX
 ;       =============================================================================================
 
 
 
 ;       =============================================================================================
 ;       End of Data
 ;       Redirection of "Fill..."-routines to KDTEMPLATES.MAC
 ;       =============================================================================================
 
FillKDBeslag(KadObj,BeslagKey,BeslagTypeID,lstPosities)
 ; KadObj passed by Reference!
         ; <lstPosities> has the following structure  ("[]" means OPTIONAL) :
 ;     "LPos[@RLPos];AfRand[;PosKey1]\LPos2[@RLPos2];[AfRand2][;PosKey2]\LPos3[@RLPos3];[AfRand3][;PosKey3]"
 ;     - if PosKey_I is omitted, it is automatically calculated by  "Beslag.Posities.Count()+1"
 ;     - if AfRand is omitted, it is reused from previous "Beslag.Positie"
 Do FillKDBeslag^Prod.GADef.KaderDeur.Templates(.KadObj,.BeslagKey,.BeslagTypeID,.lstPosities)
 Quit
 
FillKDBoring(KadObj,XAndCode,YAndCode,Diam,BoringType,BoorDiepte,GlasDiam,ZPos,CodeBKey,CncID)
 ; KadObj passed by Reference!
 Do FillKDBoring^Prod.GADef.KaderDeur.Templates(.KadObj,.XAndCode,.YAndCode,.Diam,.BoringType,.BoorDiepte,.GlasDiam,.ZPos,.CodeBKey,.CncID)
 Quit
 
FillKDPropts(KadObj,ToepasID,OphangPID,ProfielTypeID,Hoogte,Breedte,VullingID,VullingExtras,Gemonteerd,Verpakking,TemplateRoutine)
 ; KadObj passed by Reference!
 Do FillKDPropts^Prod.GADef.KaderDeur.Templates(.KadObj,.ToepasID,.OphangPID,.ProfielTypeID,.Hoogte,.Breedte,.VullingID,.VullingExtras,.Gemonteerd,.Verpakking,.TemplateRoutine)
 Quit