User cache %CSP.Page,cspBasis.ProductMenu,cspBasis.ProductSearchCommon 1 code %Status 1 code %Boolean " Write !,(..HyperEventBody()) Write !,"",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9,9) Set i="" Write !,$c(9) %csp00003 If '(..LoopArray(.MenuArray,.i)) Goto %csp00002 ;{ Write !,$c(9,9)_"",! Write $c(9,9)_"",! Write $c(9) Goto %csp00003 %csp00002 ;} Write !,$c(9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9,9) Set i="" Write !,$c(9) %csp00005 If '(..LoopArray(.MenuArray,.i)) Goto %csp00004 ;{ Write !,$c(9,9) Set ImgURL=##class(Res.VertalingLink).GetLinkVertaling("PK",$G(MenuArray(i)),"LB",Taal,,"WWW") Write !,$c(9,9)_"",! Write $c(9,9)_"",! Write $c(9) Goto %csp00005 %csp00004 ;} Write !,$c(9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write "
" Write "" Write ""_(i)_"" Write "" Write "" Write "" Write "" Write "" Write "
" Write "" Write "",! Write $c(9,9,9) Write "" Write "" Write "" Write "",! Write $c(9,9,9) Merge tmpRqData2=%request.Data Do ##class(cspBasis.ProductMenu).ShowSearchArraySet(.tmpRqData2,"1") Set sQS=..CQueryString(.tmpRqData2) Set SearchURL="Productmenu.csp"_$S($L(sQS):"?"_sQS, 1:"") Kill tmpRqData2 Write !,$c(9,9,9) Write "" Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9) Write "" Write "" Write "" Write "
" Write "" Write "
",! Write !,$c(9) Set i="" Write ! %csp00007 If '(..LoopArray(.MenuArray,.i)) Goto %csp00006 ;{ Write !,"
" Write "..." Write "
" Write ! Goto %csp00007 %csp00006 ;} Write !,!,"" Write !,! If '(blnShowSearch) Goto %csp00008 ;{ 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 "
",! Write $c(9,9,9) Write "" Write (..WebTextValue("CriteriaSelecteren",Taal,"L"))_":" 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) %csp00010 If '(KenmerkList.Next()) Goto %csp00009 ;{ 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 %csp00011 ;{ 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) %csp00011 ;} Write !,$c(9) Goto %csp00010 %csp00009 ;} 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,9) If '((KenmI="Breedte")) Goto %csp00014 ;{ Write !,$c(9,9,9,9,9)_"" Write "" Write " OF: " Write "" Write " cm" Write "" Write "",! Write $c(9,9,9,9,9) %csp00014 ;} Write !,$c(9,9,9,9)_"
",! Write $c(9,9,9,9,9) Write "" Write "",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_(..WebTextValue("CriteriumNVT",Taal,"L")),! 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 "" 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,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"
",! 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 $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9)_"
",! Write $c(9,9)_"
",! Write "
" Write ! %csp00008 ;} Write !,!,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,$c(9)_"ORGALUX : "_(..WebTextValue("ProdMenuTitel",Taal,"L"))_"",! Write $c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,!,$c(9) Write "" Write !,$c(9) Write "" Write !,! Write $C(9)_"" Write !,! If '(blnShowSearch) Goto %csp00001 ;{ Write !,$c(9) Write "" Write !,!,$c(9) Write "" Write !,$c(9) Write "" Write ! %csp00001 ;} Write !,(..HyperEventHead()) Write !,"" ]]> 1 code %Boolean " Write !,! Merge tmpRqData=%request.Data Do ##class(cspBasis.ProductMenu).InitializeCSP() Set blnShowSearch=(+$G(%request.Data("ShowSearch",1))'=0) ; Boolean (0/1) : al dan niet tonen van het ZoekScherm Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,!,"" ]]> 1 code %Boolean 1 code %Boolean c:\cachesys\csp\olprodcat\ProductMenu.csp /csp/olprodcat/ProductMenu.csp 0 60131,50079