vhLib.Macro %RegisteredObject Prod.GADef.KaderDeur %ListOfObjects array 1 %Boolean 0 1 %ListOfDataTypes 1 GADefKaderdeur:Prod.GADef.KaderDeur 1 1 %Status 1 ProfielPlaats:Prod.GADef.enu.ProfielPlaats %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.ALUFrees.KADConversie.dto.KADBeslagItem" 0 { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Fouten bij KADBeslagPerProfielVerdeler : "_##class(TECH.ListUtils).ListToPieces(..ErrorLijst,"; "))) } } Quit ..GeefKadBeslagDtoLijstOpProfiel(ProfielPlaats) ]]> ProfielPlaats:Prod.GADef.enu.ProfielPlaats 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.ALUFrees.KADConversie.dto.KADBeslagItem" KadBeslagDto:APPS.Halux.PPS.ALUFrees.KADConversie.dto.KADBeslagItem,ProfielPlaats:Prod.GADef.enu.ProfielPlaats 1 Loopt alle beslag/beslagposities af en voegt de beslagitem (dto-objecten) toe aan de lijst volgens ProfielPlaats. Voor Profielplaats : zie KadBeslagConvertor.BerekenProfielPlaatsVanBeslag() 1 Uitleg over het bepalen van de ProfielPlaats van het beslag : Bij ScharnierBeslag is poskey numeriek, de Toepassing van Kaderdeur bepaalt op welk profiel dit beslag geplaatst wordt; Aventos HF : scharnieren op "profiel boven" Bvb. AventosBeslag (key "HK") heeft een poskey="L" (profiel links) en poskey"R" (profiel rechts) KadBeslag:Prod.GADef.emKadBeslag,KadBeslagKey:%String,BeslagPositieKey:%String 1 %String