Index: APPS/Halux/Machine/OpdeelZaag/impl/DimensieBepaler.cls.xml =================================================================== diff -u -r32198 -r34875 --- APPS/Halux/Machine/OpdeelZaag/impl/DimensieBepaler.cls.xml (.../DimensieBepaler.cls.xml) (revision 32198) +++ APPS/Halux/Machine/OpdeelZaag/impl/DimensieBepaler.cls.xml (.../DimensieBepaler.cls.xml) (revision 34875) @@ -48,8 +48,15 @@ Set ..Dimensie.Breedte = ..Dimensie.Breedte + $select(Bodem.GeefConcept()=##class(DOM.PM.enu.TAORConcept).Baliko():0,1:Overmaat) if Bodem.GeefConcept()=##class(DOM.PM.enu.TAORConcept).Valinge() { - set ..Dimensie.Lengte = ..Dimensie.Lengte + 5 - set ..Dimensie.Lengte = ..Dimensie.Lengte + $select(##class(APPS.Halux.Machine.BodemSlicing).GeefUitlijning(BodemPlaat.GeefDimensies())="P":2,$$$true:0) + #dim Uitlijning As APPS.Halux.Machine.BodemSlicing.enu.Uitlijning = ##class(APPS.Halux.Machine.BodemSlicing).GeefUitlijning(BodemPlaat.GeefDimensies()) + #dim IsParallelleUitlijning As %Boolean = (Uitlijning = ##class(APPS.Halux.Machine.BodemSlicing.enu.Uitlijning).Parallel()) + #dim IsStemasCBeschikbaar As %Boolean = $$$True + + If (IsStemasCBeschikbaar) { + set ..Dimensie.Lengte = ..Dimensie.Lengte + 5 + set ..Dimensie.Lengte = ..Dimensie.Lengte + $select(IsParallelleUitlijning:2,$$$true:0) + } + set ..Dimensie.Lengte = ..Dimensie.Lengte + ( (BodemPlaat.GeefAantalDelen() - 1) * (##class(APPS.Halux.Machine.BodemSlicing).GeefBreedteZaagsnede() + ##class(APPS.Halux.Machine.BodemSlicing).GeefProfileringVerlies()) ) } ]]>