Index: APPS/PM/Maatwerk/TBX/Frees/Generator.cls.xml =================================================================== diff -u -r45825 -r45826 --- APPS/PM/Maatwerk/TBX/Frees/Generator.cls.xml (.../Generator.cls.xml) (revision 45825) +++ APPS/PM/Maatwerk/TBX/Frees/Generator.cls.xml (.../Generator.cls.xml) (revision 45826) @@ -84,8 +84,8 @@ #dim FileSuffix As %String = "" - If (FreesUitsparingen && TandemBox.%Extends("DOM.PM.TBXProduct.TBXLadeMetUitsparing")) - { + If (FreesUitsparingen && TandemBox.%Extends("DOM.PM.TBXProduct.TBXLadeMetUitsparing")) { + #dim Uitsparingen As %ListOfObjects = TandemBox.GeefUitsparingen() Set TemplateNameMpr = "DUBBELE_SIFON.mpr" ; Template is compatible met EnkeleSifon :-) @@ -95,34 +95,28 @@ Set Variabelen("SBreed1") = UitsparingLinks.GeefBreedteInBodem() Set Variabelen("SDiep") = UitsparingLinks.GeefDiepteInBodem() Set Variabelen("SifonX") = UitsparingLinks.GeefAfstandTotBodemRechts() - If (Uitsparingen.Count() = 2) - { + If (Uitsparingen.Count() = 2) { #dim UitsparingRechts As DOM.PM.TBXProduct.TBXUitsparing = Uitsparingen.GetAt(2) Set Variabelen("IsDubbel") = 1 Set Variabelen("SBreed2") = UitsparingRechts.GeefBreedteInBodem() Set Variabelen("Sifon2X") = UitsparingRechts.GeefAfstandTotBodemRechts() } - If ##class(TECH.StringUtils).Equals(UitsparingLinks.GeefUitsparingType(), ##class(DOM.PM.enu.TBXUitsparingType).SifonType2(), ##class(DOM.PM.enu.TBXUitsparingType).SpoelbakType2()) - { + If ##class(TECH.StringUtils).Equals(UitsparingLinks.GeefUitsparingType(), ##class(DOM.PM.enu.TBXUitsparingType).SifonType2(), ##class(DOM.PM.enu.TBXUitsparingType).SpoelbakType2()) { Set Variabelen("CorrSp") = 0.8 - If (UitsparingLinks.GeefTussenrugMateriaal() = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()) - { + If (UitsparingLinks.GeefTussenrugMateriaal() = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()) { Set Variabelen("CorrSp") = Variabelen("CorrSp") + 3 // extra uitsparing nodig bij houten ruggen } Set FileSuffix = FileSuffix_"-Recht" } - Else - { + Else { Set Variabelen("CorrSi") = -0.7 Set Variabelen("Radius") = UitsparingLinks.GeefRadius() - If (Variabelen("SDiep") = 250) - { + If (Variabelen("SDiep") = 250) { Set Variabelen("DiepTol") = -0.7 } - Else - { + Else { Set Variabelen("DiepTol") = 0.8 }