persistent 1 %Persistent 0 Bepaal de FSCCode uit de bouwstenen (de laagste waarde) 1 PRNr $P(FSCRes,"`",3) FSCKwalificatie=$P(FSCRes,"`",3),MinimumFSCCode=FSCCode } Quit MinimumFSCCode ]]> w ##class(DOM.PR.FSC).GetFSCOmschrijving(427470,"N") 1 expression PRNr,Taal 1 FSCCode,Taal 1 FSCCode d ##class(DOM.PR.FSC).CodeAndGewicht(1) 1 de eenheid wordt uitgedrukt in gewicht 1 dus telt niet mee ; minimum FSC code Set FSCRes=^RES("PRODUKT","PI","HoutCertificaat","D",FSCCode) Set:MinKwalificatie>$P(FSCRes,"`",3) MinKwalificatie=$P(FSCRes,"`",3),MinimumFSCCode=FSCCode ; Gewicht Set CumulGewicht=CumulGewicht+($P($G(^KPR(PRNr,1)),"\",13)*Aantal) ;Write " kwal:",MinKwalificatie," code:",MinimumFSCCode," gew:",CumulGewicht } ]]> %Library.CacheStorage ^DOM.PR.FSCD FSCDefaultData ^DOM.PR.FSCD ^DOM.PR.FSCI ^DOM.PR.FSCS listnode %%CLASSNAME