Index: zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml =================================================================== diff -u -r29591 -r29817 --- zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml (.../FlatpackV1Service.cls.xml) (revision 29591) +++ zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml (.../FlatpackV1Service.cls.xml) (revision 29817) @@ -53,7 +53,7 @@ #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() + Set SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler).%New() Quit SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,StapelbareBreedte, DraagPlaat) ]]> @@ -86,9 +86,9 @@ Set StapelbareBreedteBepaler = ##class(zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%New() #dim StapelbareBreedte As %Numeric = StapelbareBreedteBepaler.GeefStapelbareBreedte(AfmetingLangsteOnderdeel,AfmetingBreedsteOnderdeel) - #dim NettoAfgewerkteBodemBreedte As %Numeric = "..." ; Lade.GeefDiepteInMM() - AftrekBodem ; dit moet je uit de lade-info halen, of rechtstreeks uit de bodem-builder + #dim NettoAfgewerkteBodemBreedte As %Numeric = "..." ; Lade.GeefDiepteInMM() - AftrekBodem ; dit moet je uit de lade-info halen, of rechtstreeks uit de bodem-builder - Set SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.SlicedBodemBepaler).%New() + Set SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler).%New() Do SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,StapelbareBreedte) #dim MaxBreedteZichtkantSlice As %Numeric = SlicedBodemBepaler.MaxBreedteZichtkantSlice #dim AantalSlices As %Numeric = SlicedBodemBepaler.AantalSlices