Prod.Product,BL.Derde.LevSpecifiek %RegisteredObject %Decimal %Decimal %String %String %String %String %String %String %String %String %String %String Flow.Toelev.Lijn AXimpl.PM.Kenmerk.Kenmerken DOM.PM.MaatwerkProduct DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken APPS.Halux.Planning.Resource.dto.ResourceLijn vhLib.Logger 1 ProductieOrderLijn:Flow.Toelev.Lijn %Status PRNr ProductieOrderLijn:Flow.Toelev.Lijn 1 1 Resourcegroep:%String,Resource:%String,Activiteit:%String,Productgroep:%String,Selector:%String="",DefaultTijd:%Decimal=66,IsLeading:%Integer=0 0 ;sommige tijden worden bewust op 0 gezet, zoals SPOELBAK/SYFON matten omdat deze door de werkpost van SPOELBAK/SyFON worden gemaakt. { Do ..ResourceLijn.Save() } If (Productgroep = "MVX") { Try { #dim LoggingTekst as %String = $$ObjToText^vhLib(..ResourceLijn) Do ..Logger.Debug("ConvertOneResource", LoggingTekst) } Catch { Do ..Logger.Debug("ConvertOneResource", "ResourceLijn gemaakt voor MVX met ToelevNr '" _ ..ResourceLijn.ToeleveringNr _ "', Resourcegroep '" _ ..ResourceLijn.Resourcegroep _ "', Resource '" _ ..ResourceLijn.Resource _ "'") } } If (..ResourceLijn.Resourcegroep = "MAT") { Try { #dim LoggingMatTekst as %String = $$ObjToText^vhLib(..ResourceLijn) Do ..Logger.Debug("ConvertOneResourceMat", LoggingMatTekst) } Catch { } } Do ##class(APPS.Halux.Planning.Resource.impl.GebruikLogger).LogGebruik(..ResourceLijn) ]]> ToepassingCode:%String 1 DefaultTijd 20:1,1:2) } If AantalSneden { Set BSKey="" } Else { Set BSKey=$O(^PRBS("BS",..PRNr,BSKey)) } } Quit AantalSneden ]]>