CalcLPos(GADefProd,%this)
 Quit $Case($E(%this.BoringPlaats,1,2), "PL":%this.YPos, "PR":GADefProd.Hoogte-%this.YPos, "PB":GADefProd.Breedte-%this.XPos, "PO":%this.XPos, :"")
 
CalcRandPos(GADefProd,%this)
 Quit:(%this.BoringType="IN")!(%this.BoringType="EX") %this.BoringType_":"_%this.ZPos
 Quit $Case($E(%this.BoringPlaats,1,2), "PL":%this.XPos, "PR":GADefProd.Breedte-%this.XPos, "PB":%this.YPos, "PO":GADefProd.Hoogte-%this.YPos, :"")
 
CalcHoogtePos(GADefProd,blnOpposite,%this)
 New BT
 Set BT=%this.BoringType
 Set:(blnOpposite) BT=$CASE(BT, "ON":"BO", "EX":"IN", :BT)
 Quit:('GADefProd.ProfType)&("BO;IN"[BT) 0
 Quit $CASE(BT, "ON":0, "BO":GADefProd.ProfType.Dikte, "IN":GADefProd.ProfType.Breedte, "EX":0, 1:0)