vhLib.Macro %RegisteredObject Prod.GADef.KaderDeur 1 %Integer 1 APPS.Halux.PPS.ALUFrees.KADConversie.KADBoringenPerProfielVerdeler 1 APPS.Halux.PPS.ALUFrees.KADConversie.KADBeslagPerProfielVerdeler 1 APPS.Halux.PPS.ALUFrees.KADConversie.MacroBewerkingIDMapping 1 APPS.Halux.PPS.ALUFrees.impl.Optimizer.WerkstukInfo 1 GADefKaderdeur:Prod.GADef.KaderDeur,AantalAluKaders:%Integer=1,WerkstukInfoBasis:APPS.Halux.PPS.ALUFrees.impl.Optimizer.WerkstukInfo="" 1 1 %Status 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.ALUFrees.impl.Optimizer.Werkstuk" WerkstukGroep:APPS.Halux.PPS.ALUFrees.impl.Optimizer.WerkstukGroep N.B.: In de afgeleide klasse " .KADConversie.KADProductConvertorMetValidatie" worden de errors verzameld, i.p.v. de error te rethrowen. 1 1 TO DO : refactoring. ]]> 1 1 TECH.Iterator 1 APPS.Halux.PPS.ALUFrees.impl.Optimizer.WerkstukInfo ProfielPlaats:Prod.GADef.enu.ProfielPlaats,WerkstukInfo:APPS.Halux.PPS.ALUFrees.impl.Optimizer.WerkstukInfo 1 APPS.Halux.PPS.ALUFrees.impl.Optimizer.Werkstuk Loopt alle beslag/beslagposities af en voegt alleen die beslag-objecten toe die overeenkomen met de gegeven ProfielPlaatsVanWerkstuk. Voor Profielplaats : zie KadBeslagConvertor.BerekenProfielPlaatsVanBeslag() Werkstuk:APPS.Halux.PPS.ALUFrees.impl.Optimizer.Werkstuk,ProfielPlaatsVanWerkstuk:Prod.GADef.enu.ProfielPlaats 1 Loopt alle boringen af en voegt alleen die boringen toe die overeenkomen met de gegeven ProfielPlaatsVanWerkstuk. Werkstuk:APPS.Halux.PPS.ALUFrees.impl.Optimizer.Werkstuk,ProfielPlaatsVanWerkstuk:Prod.GADef.enu.ProfielPlaats 1 Werkstuk:APPS.Halux.PPS.ALUFrees.impl.Optimizer.Werkstuk 1 KadBeslag:Prod.GADef.emKadBeslag,KadBeslagKey:%String,BeslagPositieKey:%String,ProfielPlaatsVanWerkstuk:Prod.GADef.enu.ProfielPlaats 1 APPS.Halux.PPS.ALUFrees.KADConversie.KADBeslagConvertor KadBoring:Prod.GADef.emKadBoring,ProfielPlaatsVanWerkstuk:Prod.GADef.enu.ProfielPlaats 1 APPS.Halux.PPS.ALUFrees.KADConversie.KADBoringConvertor 1 APPS.Halux.PPS.ALUFrees.KADConversie.KADHoekVerbinderConvertor Ondersteuning voor LosProfiel en Onderdelen (herstelling); ProfielPlaats:Prod.GADef.enu.ProfielPlaats 1 %Boolean ProfielPlaats:Prod.GADef.enu.ProfielPlaats 1 %Decimal 1 %String