Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/BodemPlaat/SlicedBodemInfo.cls.xml =================================================================== diff -u -r29472 -r29477 --- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/BodemPlaat/SlicedBodemInfo.cls.xml (.../SlicedBodemInfo.cls.xml) (revision 29472) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/BodemPlaat/SlicedBodemInfo.cls.xml (.../SlicedBodemInfo.cls.xml) (revision 29477) @@ -3,6 +3,10 @@ TECH.RegisteredObject + +zTryout.WV.FPV1.DOM.dto.DraagPlaat + + Aantal slices = aantal stukken bodem (dus aantal clickverbindingen + 1) Index: zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml =================================================================== diff -u -r29256 -r29477 --- zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml (.../StapelbareBreedteBepaler.cls.xml) (revision 29256) +++ zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml (.../StapelbareBreedteBepaler.cls.xml) (revision 29477) @@ -38,11 +38,18 @@ AfmetingLangsteOnderdeel:%Numeric,AfmetingBreedsteOnderdeel:%Numeric %Numeric + +AfmetingLangsteOnderdeel:%Numeric,AfmetingBreedsteOnderdeel:%Numeric +zTryout.WV.FPV1.DOM.dto.DraagPlaat + + + DraagPlaat:zTryout.WV.FPV1.DOM.dto.DraagPlaat %Numeric Index: zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml =================================================================== diff -u -r29341 -r29477 --- zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml (.../FlatpackV1Service.cls.xml) (revision 29341) +++ zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml (.../FlatpackV1Service.cls.xml) (revision 29477) @@ -23,10 +23,11 @@ Do OnderdelenAfmetingenBepaler.BepaalOnderdelenAfmetingen(Lade) Set StapelbareBreedteBepaler = ##class(zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%New() - #dim StapelbareBreedte As %Numeric = StapelbareBreedteBepaler.GeefStapelbareBreedte(OnderdelenAfmetingenBepaler.GeefAfmetingLangsteOnderdeel(),OnderdelenAfmetingenBepaler.GeefAfmetingBreedsteOnderdeel()) + #dim DraagPlaat As zTryout.WV.FPV1.DOM.dto.DraagPlaat = StapelbareBreedteBepaler.GeefDraagPlaat(OnderdelenAfmetingenBepaler.GeefAfmetingLangsteOnderdeel(),OnderdelenAfmetingenBepaler.GeefAfmetingBreedsteOnderdeel()) + #dim StapelbareBreedte As %Numeric = StapelbareBreedteBepaler.GeefStapelbareBreedteVoorDraagPlaat(DraagPlaat) Set SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.SlicedBodemBepaler).%New() - Quit SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,StapelbareBreedte) + Quit SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,StapelbareBreedte, DraagPlaat) ]]> Index: zTryout/WV/FPV1/DOM/SlicedBodemBepaler.cls.xml =================================================================== diff -u -r29469 -r29477 --- zTryout/WV/FPV1/DOM/SlicedBodemBepaler.cls.xml (.../SlicedBodemBepaler.cls.xml) (revision 29469) +++ zTryout/WV/FPV1/DOM/SlicedBodemBepaler.cls.xml (.../SlicedBodemBepaler.cls.xml) (revision 29477) @@ -83,7 +83,7 @@ -TotaleNettoBreedteSlicesInMM:%Numeric,MaxToegelatenBreedteInMM:%Numeric +TotaleNettoBreedteSlicesInMM:%Numeric,MaxToegelatenBreedteInMM:%Numeric,DraagPlaat:zTryout.WV.FPV1.DOM.dto.DraagPlaat="" DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo