Index: Prod/GADef/KaderDeur.cls.xml
===================================================================
diff -u -r43068 -r54977
--- Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 43068)
+++ Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 54977)
@@ -49,13 +49,15 @@
"KC" : Klapschaar klapdeur
"KH" : Klapdeur opHanger
"HK" : Aventos HK
+"HKX": Aventos HK-XS
+"HKT": Aventos HK-TOP
"HZ" : Aventos HS
"HL" : Aventos HL
"HFC": Aventos HF scharnier (onderste en bovenste deel)
"HFM": Aventos HF montageplaat (voor bovenste deel)
"HFA": Aventos HF telescopische arm montage (onderste deel)
-!!! Kodes moeten steeds uit 2 letters bestaan (uitz. "S"), maar mogen echter geen "S" bevatten !!!]]>
+!!! Kodes moeten steeds uit 2 of 3 letters bestaan (uitz. "S"), maar mogen echter geen "S" bevatten !!!]]>
Prod.GADef.emKadBeslag
array
@@ -1898,7 +1900,7 @@
Set ToepasID=..Toepassing.ItemID
Set Plaats="FOUT"
- If (ToepasID="KLS")&&(BeslagKey="S") Do ; Standaard scharnier voor KLapdeur
+ If (ToepasID?1(1"KLS",1"AVHKXS"))&&(BeslagKey="S") Do ; Standaard scharnier voor KLapdeur
. If ..OphangPlaats.ItemID="B" Set Plaats="PB"
. ;Else If ..OphangPlaats.ItemID="O" Set Plaats="PO"
. ;Else Set Plaats="PB"
@@ -1926,7 +1928,7 @@
Else If BeslagKey="HFA" Do ; Aventos HF onder - Ophang telescopische arm
. If $G(PosKey)="L" Set Plaats="PL"
. Else If $G(PosKey)="R" Set Plaats="PR"
- Else If BeslagKey?1(1"HK",1"HZ",1"HL") Do ; Aventos HK, HS, HL - Ophangbeslag
+ Else If BeslagKey?1(1"HK",1"HKX",1"HKT",1"HZ",1"HL") Do ; Aventos HK, HS, HL - Ophangbeslag
. If $G(PosKey)="L" Set Plaats="PL"
. Else If $G(PosKey)="R" Set Plaats="PR"
. ;