User cache %CSP.Page,cspBasis.ProductSearch 1 code %Status 1 code %Boolean " Write !,(..HyperEventBody()) Write !,"
" Write !,"",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write "
" Write "" Write "
",! Write $c(9,9,9) Write "
" Write ($ZCVT(..WebTextValue("Zoekscherm",Taal,"L"),"U")) Write "
" Write !,$c(9,9)_"
",! Write $c(9,9)_"",! Write $c(9,9,9) // Open instance of ResultSet for runtime mode of DISPLAY. Set KenmerkList = ##class(%ResultSet).%New("Prod.Kenmerk.MetaDefinitie"_":"_"LijstPerGroep") Set KenmerkList.RuntimeMode=2 Set %sc = KenmerkList.Execute((GroepID)) If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9) %csp00002 If '(KenmerkList.Next()) Goto %csp00001 ;{ Write !,$c(9,9,9) Set KenmI=KenmerkList.GetDataByName("Kenmerk") Kill ArKM If "Sleutel;Vereist;BOWeten;InfoSleutel"'[KenmI Do ..PrepareKenmerkValues(GroepID,KenmI,Taal,.ArKM) Set i="" Write !,$c(9,9) If '($L($G(ArKM))) Goto %csp00003 ;{ Write !,$c(9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9) %csp00003 ;} Write !,$c(9) Goto %csp00002 %csp00001 ;} Write !,$c(9,9,9)_"",! Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"
"_(ArKM)_":",! Write $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9)_"
" Write "" Write "",! Write $c(9,9,9,9,9)_"

",! Write $c(9,9,9,9,9,9) Write "" Write "Als een criterium niet van toepassing is op een product, dan dit product toch opnemen in de lijst ?",! Write $c(9,9,9,9,9)_"

",! Write $c(9,9,9,9)_"
",! Write $c(9,9)_"
",! Write $c(9,9) Do ##class(Prod.Kenmerk.DataIndex).SPAlle(GroepID,"ArAllPR") Set TotN=..PRZoekAantal(GroepID,"") Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"
" Write "
" Write (..WebTextValue("Resultaat",Taal,"L"))_":" Write "
" Write "		" Write "" Write "
",! Write $c(9,9,9,9,9)_""_(..WebTextValue("MetBeperk",Taal,"L"))_":
",! Write $c(9,9,9,9,9)_""_(..WebTextValue("TotaalAantal",Taal,"L"))_":",! Write $c(9,9,9,9)_"		",! Write $c(9,9,9,9,9)_"" Write "" Write (TotN) Write "" Write " "_(..WebTextValue("Product?en",Taal,"L"))_"
",! Write $c(9,9,9,9,9)_"" Write "" Write (TotN) Write "" Write " "_(..WebTextValue("Product?en",Taal,"L"))_"",! Write $c(9,9,9,9)_"
" Write "" Write "" Write "" Write "
",! Write $c(9,9)_"
",! Write "
" Write !,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,!,$c(9) Write "" Write !,!,$c(9)_"Produktinformatie Zoekscherm",! Write $c(9) Write "" Write !,$c(9) Write "" Write !,!,$c(9) Write "" Write !,$c(9) Write "" Write !,!,$c(9) Write "" Write !,(..HyperEventHead()) Write !,"" ]]> 1 code %Boolean " Write !,! Merge tmpRqData=%request.Data Do ..InitializeCSP() Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,!,"" ]]> 1 code %Boolean 1 code %Boolean iso-8859-1 text/html c:\cachesys\csp\olprodcat\ProductSearchSA.csp /csp/olprodcat/ProductSearchSA.csp 0 60131,50079