User cache %CSP.Page,cspBasis.ProductNavig,cspBasis.ProductSearchCommon 1 code %Status 1 code %Boolean " Write !,(..HyperEventBody()) Write !,"",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write "
",! Write $c(9,9,9) Set urlBrochure=##class(Res.VertalingLink).GetLinkVertaling("PK","Nieuwigheden","LI",Taal,,"WWW") Write !,$c(9,9,9) Write "" Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9) Write "" Write !,$c(9,9,9) Write "" Write !,$c(9,9)_"
",! Write "",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9,9) Set i="" Write !,$c(9) %csp00006 If '(..LoopArray(.MenuArray,.i)) Goto %csp00005 ;{ Write !,$c(9,9)_"",! Write $c(9,9)_"",! Write $c(9) Goto %csp00006 %csp00005 ;} Write !,$c(9,9)_"",! Write $c(9)_"",! Write $c(9)_"",! Write $c(9,9) Set i="" Write !,$c(9) %csp00008 If '(..LoopArray(.MenuArray,.i)) Goto %csp00007 ;{ Write !,$c(9,9)_"",! Write $c(9,9) Set ImgURL=##class(Res.VertalingLink).GetLinkVertaling("PK",$G(MenuArray(i)),"LB",Taal,,"WWW") Write !,$c(9,9)_"",! Write $c(9) Goto %csp00008 %csp00007 ;} Write !,"" 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 $c(9,9,9) Write "" Write "" Write "" Write "
" Write "" Write "
",! Write ! If '('blnShowSearch) Goto %csp00009 ;{ Write !,$c(9) If +$G(%request.Data("DBGCGI",1))'=0 Do . Write !,$C(9)_"
",!
     . Write $$ArrayToText^vhLib("tmpRqCGI")
     . Write !,$C(9)_"
",! Write !,$c(9)_" " Write "" Write ! %csp00009 ;} Write $c(9),! Write ! If '(blnInteractiveCSP) Goto %csp00010 ;{ Write !,$c(9) Set QSNonIActCSP=..CQueryString(.tmpRqData,$LB("Server")) Set URLNonIActCSP="ProductNavig.csp?"_$S($L(QSNonIActCSP):QSNonIActCSP_"&", 1:"")_"Server=0" Write !,$c(9)_"

",! Write $c(9)_" "_$c(9)_(..WebTextValue("NonIActBefore",Taal,"L")) Write "" Write (..WebTextValue("NonIActLink",Taal,"L")) Write "" Write (..WebTextValue("NonIActAfter",Taal,"L")),! Write $c(9)_"

",! %csp00010 ;} Write $c(9),! Write !,$c(9) Set i="" Write ! %csp00012 If '(..LoopArray(.MenuArray,.i)) Goto %csp00011 ;{ Write !,"
" Write "..." Write "
" Write ! Goto %csp00012 %csp00011 ;} Write !,!,"" Write !,! If '(blnShowSearch) Goto %csp00013 ;{ Write !,"
" Write !,"",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! If '(blnInteractiveCSP) Goto %csp00017 ;{ Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Goto %csp00024 ;} %csp00017 ;{ Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! %csp00024 ;} Write !,"
",! Write $c(9,9,9) Kill ArHead Set ArHead(1)=$G(%request.Data("ProductType",1)) Set ArHead(1,1)=$G(%request.Data("SubType",1)) Do ..VertaalMenus("ArHead","ArHeadVTL",Taal,GroepID) Set ProdTypeLB="$LB($LB(""ProductType"","""_ArHead(1)_"""),$LB(""SubType"","""_ArHead(1,1)_"""))" Set KenmI="ProductType" Kill ArKM Set ArKM(1,"IN")=ArHead(1) Set ArKM(1,"VT")=$G(ArHeadVTL(1)) Write !,$c(9,9,9) Write "
" Write !,$c(9,9,9,9)_(ArKM(1,"VT")),! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9) Write "
" Write !,$c(9,9,9) Set KenmI="SubType" Kill ArKM Set ArKM(1,"IN")=ArHead(1,1) Set ArKM(1,"VT")=$G(ArHeadVTL(1,1)) Write !,$c(9,9,9) Write "
" Write !,$c(9,9,9,9)_(ArKM(1,"VT")),! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9) Write "
" Write !,$c(9,9)_"
",! Write $c(9,9) Do ##class(Prod.Kenmerk.DataIndex).SPAlle(GroepID,"ArAllPR") Set TotN=..PRZoekAantal(GroepID,ProdTypeLB) 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) If '(blnInteractiveCSP) Goto %csp00014 ;{ Write !,$c(9,9,9,9,9)_""_(..WebTextValue("MetBeperk",Taal,"L"))_":
",! Write $c(9,9,9) %csp00014 ;} Write !,$c(9,9,9,9,9)_""_(..WebTextValue("TotaalAantal",Taal,"L"))_":",! Write $c(9,9,9,9)_"		",! Write $c(9,9,9) If '(blnInteractiveCSP) Goto %csp00015 ;{ Write !,$c(9,9,9,9,9)_"" Write "" Write (TotN) Write "" Write " "_(..WebTextValue("Product?en",Taal,"L"))_"
",! Write $c(9,9,9) %csp00015 ;} 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 "
",! Write $c(9,9,9) If '(Taal="N") Goto %csp00016 ;{ Write !,$c(9,9,9,9,9) Write "" Write !,$c(9,9,9) %csp00016 ;} Write !,$c(9,9,9,9)_"
",! Write $c(9,9)_"
",! 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) %csp00019 If '(KenmerkList.Next()) Goto %csp00018 ;{ Write !,$c(9,9,9) Set KenmI=KenmerkList.GetDataByName("Kenmerk") Kill ArKM If "ProductType;SubType;Sleutel;Vereist;BOWeten;InfoSleutel"'[KenmI Do ..PrepareKenmerkValues(GroepID,KenmI,Taal,.ArKM,$G(ArHead(1,1))) Set i="" Write !,$c(9,9) If '($L($G(ArKM))) Goto %csp00020 ;{ 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) %csp00020 ;} Write !,$c(9) Goto %csp00019 %csp00018 ;} 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 %csp00023 ;{ Write !,$c(9,9,9,9,9)_"" Write "" Write " OF: " Write "" Write " cm" Write "" Write "",! Write $c(9,9,9,9,9) %csp00023 ;} 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,9) Write "" Write " " Write "" Write !,$c(9,9)_"
",! Write "
" Write ! %csp00013 ;} 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 !,!,$c(9) Write "" Write !,$c(9) Write "" Write !,! Merge BaseQueryData=%request.Data Kill BaseQueryData("ProductType") Kill BaseQueryData("SubType") Do ..ShowSearchArraySet(.BaseQueryData, "1") Write $C(9)_"" Write ! Goto %csp00002 ;} %csp00001 ;{ Write !,$c(9) Write "" Write ! %csp00002 ;} Write !,!,! If '(blnShowSearch) Goto %csp00003 ;{ Write !,$c(9) Write "" Write !,!,$c(9) Write "" Write !," " If '(blnInteractiveCSP) Goto %csp00004 ;{ Write !,$c(9) Write "" Write !," " %csp00004 ;} Write ! %csp00003 ;} Write !,(..HyperEventHead()) Write !,"" ]]> 1 code %Boolean " Write !,! Merge tmpRqCGI=%request.CgiEnvs Merge tmpRqData=%request.Data Set blnShowSearch=(+$G(%request.Data("ShowSearch",1))'=0) ; Boolean (0/1) : al dan niet tonen van het ZoekScherm Set blnInteractiveCSP=(+$G(%request.Data("Server",1),1)'=0) ; Boolean (0/1) : al dan niet interactief met CSP-Server If (blnInteractiveCSP) Do . New UserAgt . Set UserAgt=tmpRqCGI("HTTP_USER_AGENT") . If (UserAgt["Windows")&&(UserAgt["MSIE") ; Client has IE on Windows . Else Set blnInteractiveCSP=0 Do ##class(cspBasis.ProductNavig).InitializeCSP() Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,!,"" ]]> 1 code %Boolean 1 code %Boolean c:\cachesys\csp\olprodcat\ProductNavig.csp /csp/olprodcat/ProductNavig.csp 0 60131,50079