Testing of the SearchIndex Prod.Product,BL.Prod %RegisteredObject 0 Do ##class(BL.Prod.SearchTest).TestEC("K","358M55 WA/G") 1 At,Search 1 0 1 ZoekTekst " #define fmtBeginUsage(%TITEL) $C(10,13)_"

"_%TITEL_"

---

" #define fmtEndUsage "

---

" #define fmtEndHtml "" Set strmBody=##class(%GlobalCharacterStream).%New() Do strmBody.Write($$$fmtBeginHtml) Set pxCriteria=##class(BL.Prod.sub.pxSearchCriteria).%New() For Usage="ALL","HALUX","VHISIE_IP","DYNALOG","OV_KS","DO" Do . Do strmBody.Write($$$fmtBeginUsage(Usage)) . Do ..LegeCriteria(.pxCriteria) . Set pxCriteria.At="K" . Do strmBody.Write("") . Do ..TestSearch(pxCriteria,ZoekTekst,Usage,0) . Set pxCriteria.StockType=$LB("N") . Do strmBody.Write("stocktyp=""N""") . ;W !,"stocktyp=""N""",! . Do ..TestSearch(pxCriteria,ZoekTekst,Usage,0) . Do ..LegeCriteria(.pxCriteria) . Set pxCriteria.ProductType=$LB("B") . Do strmBody.Write("Producttype=""B""") . ;W !,"Producttype=""B""",! . Do ..TestSearch(pxCriteria,ZoekTekst,Usage,0) . Do ..LegeCriteria(.pxCriteria) . Set pxCriteria.Active=$LB("N") . Do strmBody.Write("Active=""N""") . ;W !,"Active=""N""",! . Do ..TestSearch(pxCriteria,ZoekTekst,Usage,0) . Do ..LegeCriteria(.pxCriteria) . Set pxCriteria.Active=$LB("B") . Set pxCriteria.VerifyCustomer=11708 . Do strmBody.Write("Actieve producten verkocht aan klant 11708: Bruynzeel Keukens") . ;W !,"Actieve producten verkocht aan klant 11708: Bruynzeel Keukens",! . Do ..TestSearch(pxCriteria,ZoekTekst,Usage,0) . Do ..LegeCriteria(.pxCriteria) . Set pxCriteria.LimitCustomer=1239 . Do strmBody.Write("Producten verkocht aan klant 1239: Keller") . ;W !,"Producten verkocht aan klant 1239: Keller",! . Do ..TestSearch(pxCriteria,ZoekTekst,Usage,0) . Do ..LegeCriteria(.pxCriteria) . Set pxCriteria.LimitSupplier=5005 . Do strmBody.Write("Producten gekocht van levernacier 5005: BLUM") . ;W !,"Producten gekocht van levernacier 5005: BLUM",! . Do ..TestSearch(pxCriteria,ZoekTekst,Usage,0) . Do ..LegeCriteria(.pxCriteria) . Set pxCriteria.CheckCallBack="CF`BL.Prod.SearchBuildIndex`ObjectIsOrgalux" . Do strmBody.Write("Callback: CF`BL.Prod.SearchBuildIndex`ObjectIsOrgalux") . ;W !,"Callback: CF`BL.Prod.SearchBuildIndex`ObjectIsOrgalux",! . Do ..TestSearch(pxCriteria,ZoekTekst,Usage,0) . Do ..LegeCriteria(.pxCriteria) . Do strmBody.Write($$$fmtEndUsage) Set sc=$$SendMiniMail^vhLib("VHisie@vanhoecke.be",$lb("PVE@vanhoecke.be"),"Test zoekroutine",strmBody,1,1) ;c fil ]]> 1 1 pxCriteria:BL.Prod.sub.pxSearchCriteria,tekst:%String,usage:%String,Display:%Boolean=0 0 Zoektekst: "_pxCriteria.SearchTxt_"") ;W "Zoektekst: ",pxCriteria.SearchTxt,! ;Set pxCriteria.CheckCallBack="CF`BL.Prod.SearchBuildIndex`ObjectIsOrgalux" ;Set pxCriteria.CheckCallBack="F`ISORGAL^ORGALUX" Do ##class(BL.Prod.Search).SearchIndex(pxCriteria, .Producten) If Display Do . Set VNR="" For Set VNR=$o(Producten(VNR)) Quit:VNR="" Do . . Set PRNr=Producten(VNR) . . Write PRNr,$J($P($G(^KPR(PRNr,2)),"\",25),13)," ",$P(^KPR(PRNr,0),"\"),! If $d(strmBody) Do strmBody.Write("Aantal producten: "_$O(Producten(""),-1)_"") ;W "Aantal producten: ",$O(Producten(""),-1),! ]]> 1 tekst,usage 0 " . for i=1:1:Aantal w rs.GetData(i)," " . ;w "
" . w ! ;c fil ;w "export ok!",! ]]> D ##class(BL.Prod.SearchTest).Test123("358M50") 1 Value D ##class(BL.Prod.SearchTest).TestCW("358M50") 1 Value