BL.Prod,vhLib.Macro,Prod.Product 1 %RegisteredObject 0 1000 %String 1 %String 1 1 At BL.Prod.sub.pxSearchCriteria 0 { for ctr=1:1:$ll(lbPRNRs) { Set PRNr = $lg($lg(lbPRNRs,ctr),1) if ($$$UCase($$$PRGet($$$OmschrijvingN1))["ORGA" ) && ( $E($$$PRGet($$$KortTekst),1,2) '= "OL" ) { if $$$PRGet($$$StockType) & $$$Not($data(..arExcluded(IdentNr))) { Set ..arProblems("I",$listbuild(KortTekst,IdentNr)) = lbPRNRs } } } } } ]]> %Status ") // IorK can ook "E" zijn van excludes Set IorK = "" For Set IorK = $order(..arProblems(IorK),-1) Quit:IorK="" Do . Set Index = "" . For Set Index = $order(..arProblems(IorK,Index)) Quit:Index="" Do . . Set ctrLines = $increment(ctrLines) . . Set Info = $list(Index,1)_"" . . . For ctrList = 1 : 1 : $listlength(Data) Do . . . . Set PRNr = $list($list(Data,ctrList)) . . . . Set PRInfo = PRInfo _ "" . . . . Set PRInfo = PRInfo _ "" . . . . Set PRInfo = PRInfo _ "" . . . . Set PRInfo = PRInfo _ "" . . . . Set PRInfo = PRInfo _ "" . . . . Set PRInfo = PRInfo _ "" . . . Set Color = "#A8E880" . . . Do Body.Write( "" _ PRInfo) . . Else Do . . . Set Color = "#E8A0A9" . . . If IorK = "E" Set Color = "#FF6600" . . . Do Body.Write( "") . Do Body.Write("") do Body.Write("

" _ $list(Index,2) . . Set Data = ..arProblems(IorK,Index) . . If $listlength(Data) Do . . . Set PRInfo = "	"_" #"_$listlength(Data)_"
	"_$$$PRGet($$$KortTekst)_"	"_$$$PRGet($$$IdentNummer)_"	"_$list($list($list(Data,ctrList),2),$$$ClassParameter("BL.Prod.Search:pOrigine"))_"	"_$$$PRGet($$$LinkType)_"
"_IorK _ "	"_ Info _ "
"_IorK _ "	" _ Info _ "

") set From = $$$SystemMail("DYNAPLUG CONTROLE") Do SendMiniMail^vhLib.Mail(From,lbTo,Subject,Body,$get(BodyIsStream,0),blnHTML) Quit $$$OK ]]> lbPRNRs:%List,IorK:%String,InputValue:%String 1 Set ..arProblems(IorK,InputValue) = lbPRNRs quit ]]> 1 KortTekst %List