Index: zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml =================================================================== diff -u -r29307 -r29341 --- zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml (.../FlatpackV1Service.cls.xml) (revision 29307) +++ zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml (.../FlatpackV1Service.cls.xml) (revision 29341) @@ -15,9 +15,9 @@ ]]> - + NettoAfgewerkteBodemBreedte:%Numeric,Lade:DOM.PM.Maatwerk.LadeInfo.Lade -%Numeric +DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo Index: zTryout/WV/FPV1/DOM/SlicedBodemBepaler.cls.xml =================================================================== diff -u -r29123 -r29341 --- zTryout/WV/FPV1/DOM/SlicedBodemBepaler.cls.xml (.../SlicedBodemBepaler.cls.xml) (revision 29123) +++ zTryout/WV/FPV1/DOM/SlicedBodemBepaler.cls.xml (.../SlicedBodemBepaler.cls.xml) (revision 29341) @@ -84,6 +84,7 @@ TotaleNettoBreedteSlicesInMM:%Numeric,MaxToegelatenBreedteInMM:%Numeric +DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo Voorlopig de public properties opvragen. - Quit ; "" + Set SlicedBodemInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo).%New() + Set SlicedBodemInfo.AantalSlices = ..AantalSlices + Set SlicedBodemInfo.Overmaat = ..Overmaat + Set SlicedBodemInfo.NettoBreedteZichtkantSlice = ..NettoBreedteZichtkantSlice + Set SlicedBodemInfo.TotaalNodigeBreedte = ..TotaalNodigeBreedte + Quit SlicedBodemInfo ]]>