TECH.Error 1 %RegisteredObject,DOM.PM.Maatwerk.Calc.HF.HalffabItemVisitor,DOM.PM.Maatwerk.Calc.Kost.IKostItemVisitor 62195,56015.009472 0 DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie 1 DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie 1 DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom 1 DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem 1 %Integer 1 %Integer 1 %Integer 1 PRNr:%Integer,ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem 1 1 %Status 1 1 1 Item:DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem %Status Item:DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem %Status Item:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem %Status Item:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem,SamengesteldeRol:%String="" %Status HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IsBewerkt:%Boolean=0,SamengesteldeRol:%String="" 1 %String HARDCODED, moet nog correct ingevuld worden Set $P(Rec,"\",11) = "GROEP" //Groep -> HARDCODED, moet nog correct ingevuld worden Set $P(Rec,"\",13) = "Omschrijving van het product" //Oms. -> HARDCODED, moet nog correct ingevuld worden If (SamengesteldeRol '= "") { Set TeZoekenRol = SamengesteldeRol } Else { Set TeZoekenRol = HalffabItem.GeefRol() } &SQL(SELECT Label INTO :Label FROM DOM_PM_impl_DataM.DataMBouwsteenLabelInfo WHERE Rol = :TeZoekenRol AND IsBewerkt = :IsBewerkt) If ('$Data(Label)) $$$ThrowError($$$errGeneralError,"Geen label gevonden voor de opgegeven rol") If (..ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade() && (";PRBDHO;PRBDHZ;PRRUGHS;PRVPCP;PRVPZW;PRVPOD;PRVULSTUK;PRVULPAL" [ Label)) { Set $P(Rec,"\",16) = 1 } // Iets met sorteren en groeperen //Set GroepAndSort=$$kpcGetDispGroepSort(DItem) // Soms uit fabrtekst, anders uit fabrgroep Set $P(Rec,"\",18) = "FabrGroep1" //$P(GroepAndSort,";",1) ; DItem.EvalTemplAuto("FabrGroep") Set $P(Rec,"\",19) = "FabrPrep" //DItem.EvalTemplAuto("FabrPrep") // -> Deze is zeker nodig Set $P(Rec,"\",21) = "FabrGroep2" //$P(GroepAndSort,";",2) Set BSKey = Label_".001" // Als de bouwsteen al bestond moeten we de aantallen verhogen If ($Data(^PRBS("BS",..PRNr,BSKey))) Set $P(Rec,"\",2) = Aantal + $P(^PRBS("BS",..PRNr,BSKey),"\",2) Set ^PRBS("BS",..PRNr,BSKey) = Rec Quit BSKey ]]> Record:%String,BSLPrefix:%String %String Item:DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem %Status Item:DOM.PM.Maatwerk.Calc.Kost.BewerktHalffabKostItem %Status Item:DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem %Status Item:DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem %Status