vhLib.Macro %RegisteredObject APPS.Halux.PPS.ALUFrees.KADConversie.MacroBewerkingIDMapping 1 Prod.GADef.emKadBoring 1 Prod.GADef.KaderDeur 1 Prod.GADef.enu.ProfielPlaats KadBoring:Prod.GADef.emKadBoring,GADefKaderdeur:Prod.GADef.KaderDeur,ProfielPlaats:Prod.GADef.enu.ProfielPlaats,MacroBewerkingIDMapping:APPS.Halux.PPS.ALUFrees.KADConversie.MacroBewerkingIDMapping 1 1 %Status 1 Werkstuk:APPS.Halux.PPS.ALUFrees.impl.Optimizer.Werkstuk 1 APPS.Halux.PPS.ALUFrees.dto.Bewerking 1 APPS.Halux.PPS.ALUFrees.dto.Bewerking 1) { Set Diepte=..KadBoring.BoorDiepte } ElseIf (Diameter<5) { Set Diepte=3.8 } Else { Set Diepte=8 } #dim VrijeDiepte As %Decimal = Diepte+0.1 Set Bewerking=##class(APPS.Halux.PPS.ALUFrees.dto.BewerkingBoring).%New(Diameter,Diepte,VrijeDiepte) } Quit Bewerking ]]> 1 %Boolean 1 %Boolean 0) && (..KadBoring.AfschuinDiameter<10) ; Voorlopig geen afschuiningen op diameter > 10 ]]> 1 %Boolean 1 %Boolean 1 %String 1 %String 1 APPS.Halux.PPS.ALUFrees.enu.Zijvlak 13)&&(..KadBoring.BoorDiameter<14) ]]> 1 APPS.Halux.PPS.ALUFrees.enu.Zijvlak 1 %Decimal 1 %Decimal