User cache %CSP.Page,cspBasis.ProductList 1 code %Status 1 code %Boolean " Write !,"",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write "
",! Write $c(9,9,9) Write "" Write "back" Write "" Write "  " Write "" Write "close" Write "" Write !,$c(9,9)_"",! Write $c(9,9,9) If '(Taal="F") Goto %csp00001 ;{ Write !,$c(9,9,9,9)_" ",! Write $c(9,9,9) Goto %csp00002 ;} %csp00001 ;{ Write !,$c(9,9,9,9) /* ; Landkeuze veranderen - Modifier choix de pays ; A href="/PRframe.asp?#(QSwis)#" target="_top" */ Write !,$c(9,9,9,9) If '($G(blnShowLcWIS)) Goto %csp00003 ;{ Write !,$c(9,9,9,9,9) Write "" Write (..WebTextValue("LandKeuzeWijzigen",Taal,"L")) Write "" Write !,$c(9,9,9,9) Goto %csp00004 ;} %csp00003 ;{ Write !,$c(9,9,9,9,9)_(..WebTextValue("LandKeuzeWijzigen",Taal,"L")),! Write $c(9,9,9,9) %csp00004 ;} Write ": ",! Write $c(9,9,9,9) Write "" Write (TagVlagBE) Write "" Write " " Write "" Write "(BE)" Write "" Write "  -  ",! Write $c(9,9,9,9) Write "" Write (TagVlagNL) Write "" Write " " Write "" Write "(NL)" Write "" Write !,$c(9,9,9) %csp00002 ;} Write !,$c(9,9)_"
",! Write !,"",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write !,$c(9) #define GetVertalingJS(%i,%tl,%tt) ##class(Res.Vertaling).GetVertalingPlus("OLW",%i,%tt,%tl,,1) Set blnShowPRNr=(''$G(%request.Data("SHOWPRNR",1))) Set BannerMsg=$$$GetVertalingJS("BannerMsg",Taal,"L") ; ##class(Res.Vertaling).GetVertalingPlus($$$WEBTYPE,Intern,TextType,Taal) Kill ArCntProd Do ##class(cspBasis.ProductSearch).PRLijstSimple(GroepID,"ArCntProd",.tmpRqData) Set CntProd=##class(Prod.Kenmerk.DataIndex).SPCount("ArCntProd") Kill ArCntProd Set PrevHeadNDX="" Set jj=0 Set i="" Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! %csp00009 If '(..LoopArray(.ArPR,.i)) Goto %csp00008 ;{ Write !,$c(9) ; ..DataDefValueList(Taal,GroepID,PRNr,Kenmerk,TextType,ListItems,[ListSep]) ; Voorbereidend werk: Kill BSVal Set BSVal("PRT","K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"ProductType","K","1") Set BSVal("SBT","K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"SubType","K","1") Set BSVal("SLT","O")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"Sleutel","O","1") Set BSVal("BRD","K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"Breedte","K","1") Set BSVal("DPT","K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"Diepte","K","*") Set BSVal("VRS","K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"Vereist","K","*") Set BSVal("BOW","K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"BOWeten","K","*") Set BSVal("DYN","K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"DynSpace","K","*") Set CntVRS=$LL(BSVal("VRS","K")) Set CntVRSExtra=CntVRS+$LL(BSVal("BRD","K"))+$LL(BSVal("DPT","K")) ; Breedte en Diepte vallen onder de vereisten Set CntBOW=$LL(BSVal("BOW","K")) Set CntDynS=$LL(BSVal("DYN","K")) Set lblDynSpace=$G(MetaArray("DynSpace","VTL"),"DynS-L") ; URL's ' Set BSVal("SLT","LB")=..DataDefValueURL(Taal,GroepID,$G(ArPR(i,1)),"Sleutel","LB") Set BSVal("SLT","LI")=..FitImage(..DataDefValueURL(Taal,GroepID,$G(ArPR(i,1)),"Sleutel","LI")) Set BSVal("INF","LI")=..FitImage(..DataDefValueURL(Taal,GroepID,$G(ArPR(i,1)),"InfoSleutel","LI")) Set BSVal("DYN","LB")=..DataDefValueListURL(Taal,GroepID,$G(ArPR(i,1)),"DynSpace","LB","*") Set BSVal("DYN","LI")=..DataDefValueListURL(Taal,GroepID,$G(ArPR(i,1)),"DynSpace","LI","*") ; Hoofding voor de groepering Set ProdGHeader=$S(..UseProdHeader(GroepID,.ArPR,i):$LG(BSVal("SBT","K"),1), 1:"") If $L(ProdGHeader), $L($G(ArPR(i,1,"NDX"))) Do . If ArPR(i,1,"NDX")'=PrevHeadNDX Do .. Set jj=0 .. Set PrevHeadNDX=ArPR(i,1,"NDX") . ;Set ProdGHeader=ArPR(i,1,"NDX")_"."_$INCREMENT(jj)_" "_ProdGHeader ; Sub-array of all products with same Basis Kill tmpAr Merge tmpAr=ArPR(i) Set j="" Write !,$c(9) If '($L(ProdGHeader)) Goto %csp00010 ;{ Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write $c(9) %csp00010 ;} Write !,$c(9)_"",! Write $c(9) If '($L($G(BSVal("DYN","K")))) Goto %csp00011 ;{ Write !,$c(9,9)_"",! Write $c(9) Goto %csp00012 ;} %csp00011 ;{ Write !,$c(9,9)_"",! Write $c(9) %csp00012 ;} Write !,$c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! If '($L($O(ArPR(i)))) Goto %csp00035 ;{ Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! %csp00035 ;} Write ! Goto %csp00009 %csp00008 ;} Write !,"
",! Write $c(9,9,9) Write "
" Write !,$c(9,9,9) If '(CntProd>0) Goto %csp00005 ;{ Write !,$c(9,9,9,9)_(CntProd_" "_$ZCVT(..WebTextValue($S(CntProd=1:"Product",1:"Producten"),Taal,"L"),"L")),! Write $c(9,9,9) Goto %csp00006 ;} %csp00005 ;{ Write !,$c(9,9,9,9)_(..WebTextValue("Geen producten gevonden",Taal,"L")),! Write $c(9,9,9) %csp00006 ;} Write !,$c(9,9,9) If '($L($G(BPLastKM))) Goto %csp00007 ;{ Write !,!,$c(9,9,9,9)_"      "_(BPLastKM_": "),! Write $c(9,9,9,9)_""_($S($L($G(LastKMOtherVal)):$$REPLACE^vhRtn1(LastKMOtherVal," - ","  "), 1:""))_"",! Write $c(9,9,9) %csp00007 ;} Write !,$c(9,9,9)_"

"_(..WebTextValue("ProgWijzigingen",Taal,"L"))_".

",! Write !,!,$c(9,9,9) Write "
" Write !,$c(9,9)_"
",! Write $c(9,9,9) Write "
" Write !,$c(9,9,9,9)_(ProdGHeader),! Write $c(9,9,9) Write "
" Write !,$c(9,9)_"
",! Write $c(9,9,9) For iDynS=1:1:(CntDynS) { Write !,$c(9,9,9,9)_"

" Write "" Write "" Write "" Write "

",! Write $c(9,9,9) } Write !,$c(9,9)_"		",! Write $c(9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) If '($L($G(BSVal("INF","LI")))) Goto %csp00017 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00017 ;} Write !,$c(9,9,9)_"
",! Write $c(9,9,9,9) If '($L($G(BSVal("SLT","LB")))) Goto %csp00013 ;{ Write !,$c(9,9,9,9,9) If '($L($G(BSVal("SLT","LI")))) Goto %csp00014 ;{ Write !,$c(9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9) Goto %csp00015 ;} %csp00014 ;{ Write !,$c(9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9) %csp00015 ;} Write !,$c(9,9,9,9) Goto %csp00016 ;} %csp00013 ;{ Write !,$c(9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9) %csp00016 ;} Write !,$c(9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9) Write "" Write (..WebTextValue("MeerInfoEnFotos",Taal,"L")) Write "" Write !,$c(9,9,9,9,9)_"
",! Write $c(9,9)_"		",! Write $c(9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"
",! Write $c(9,9,9,9,9,9) If '($G(blnShowPRNr,0)) Goto %csp00018 ;{ Write "

[PRNr: "_($G(ArPR(i,1)))_"]

" %csp00018 ;} Write !,$c(9,9,9,9,9,9) If '($L($LG(BSVal("SLT","O"),1))) Goto %csp00019 ;{ Write " "_(($LG(BSVal("SLT","O"),1)))_"
" %csp00019 ;} Write !,$c(9,9,9,9,9,9,9) If '(CntVRSExtra>0) Goto %csp00020 ;{ Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9)_""_($G(MetaArray("Vereist","VTL"),"VRS-L"))_":
    ",! Write $c(9,9,9,9,9,9,9) If '($LL(BSVal("BRD","K"))) Goto %csp00021 ;{ Write "
  • "_($G(MetaArray("Breedte","VTL"),"BRD-L"))_": "_($LI(BSVal("BRD","K"),1))_"
    • " %csp00021 ;} Write !,$c(9,9,9,9,9,9,9) If '($LL(BSVal("DPT","K"))) Goto %csp00022 ;{ Write "
  • "_($G(MetaArray("Diepte","VTL"),"DPT-L"))_": "_($$LCVTSimple^vhLib(BSVal("DPT","K")," / "))_"
    • " %csp00022 ;} Write !,$c(9,9,9,9,9,9) For iVrs=1:1:(CntVRS) { Write !,$c(9,9,9,9,9,9,9)_"
  • "_($LI(BSVal("VRS","K"),iVrs))_"
    • ",! Write $c(9,9,9,9,9,9) } Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9,9) %csp00020 ;} Write !,$c(9,9,9,9,9,9,9) If '(CntBOW>0) Goto %csp00023 ;{ Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9)_""_($G(MetaArray("BOWeten","VTL"),"BOW-L"))_":
    ",! Write $c(9,9,9,9,9,9) For iBow=1:1:(CntBOW) { Write !,$c(9,9,9,9,9,9,9)_"
  • "_($LI(BSVal("BOW","K"),iBow))_"
    • ",! Write $c(9,9,9,9,9,9) } Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9,9) %csp00023 ;} Write !,$c(9,9,9,9,9)_"
",! Write $c(9,9)_"		" Write "" Write "",! Write $c(9,9,9)_"",! Write $c(9,9) %csp00025 If '(..LoopArray(.tmpAr,.j)) Goto %csp00024 ;{ Write !,$c(9,9,9) ; Loop through products with same Basis Set PRNr=ArPR(i,j) If PRNr?4.6N Do . Set PRLB=..GetKortTekstEnPrijs(PRNr) . Set CKortTxt=$E($LG(PRLB,1),4,11) . Set CPrijs=$S($G(blnLandKeuze)=1:"", 1:..EindGebruikersPrijs($LG(PRLB,2),LandCode)) Kill XTVal Set XTVal("WDD","K")=..DataDefValueList(Taal,GroepID,PRNr,"WandDikte","K","*","-") Set XTVal("KLR","K")=..DataDefValueList(Taal,GroepID,PRNr,"Kleur","K","*") Write !,$c(9,9,9) If '($LL(XTVal("WDD","K"))) Goto %csp00026 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00026 ;} Write !,$c(9,9,9) If '($LL(XTVal("KLR","K"))) Goto %csp00027 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00027 ;} Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) If '($L($O(tmpAr(j)))) Goto %csp00032 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00032 ;} Write !,$c(9,9) Goto %csp00025 %csp00024 ;} Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9) If '($G(blnLandKeuze)=1) Goto %csp00033 ;{ Write !,$c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9) Goto %csp00034 ;} %csp00033 ;{ Write !,$c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9) %csp00034 ;} Write !,$c(9,9,9,9)_"",! Write $c(9,9,9)_"
"_($G(MetaArray("WandDikte","VTL"),"WDD-L"))_": "_($LI(XTVal("WDD","K"),1))_"
"_($G(MetaArray("Kleur","VTL"),"KLR-L"))_": "_($LI(XTVal("KLR","K"),1))_"
",! Write $c(9,9,9,9,9,9) If '($L($G(CKortTxt))) Goto %csp00028 ;{ Write (CKortTxt) Goto %csp00029 ;} %csp00028 ;{ Write " " %csp00029 ;} Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) If '($G(CPrijs)>0) Goto %csp00030 ;{ Write (CPrijs)_" EUR" Goto %csp00031 ;} %csp00030 ;{ Write " " %csp00031 ;} Write !,$c(9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9,9)_(..WebTextValue("LandKeuzePrijs",Taal,"L"))_" : ",! Write $c(9,9,9,9,9,9,9) Write "" Write (TagVlagBE) Write "" Write " - " Write "" Write (TagVlagNL) Write "" Write !,$c(9,9,9,9,9,9)_""_(..WebTextValue("PrijsInclBTW"_$S($L(LandCode):"_"_LandCode, 1:""),Taal,"L"))_"
",! Write $c(9,9)_"
",! ; Close MetaObjects ;New k,tmpOref Set k="" For Set k=$O(MetaArray(k)) Quit:(k="") Set MetaArray(k)="" Kill MetaArray Write !,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,$c(9)_"ORGALUX : "_(PageTitle)_"",! 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 !,"" ]]> 1 code %Boolean " Write !,!,!,!,! Set %session.AppTimeout = 300 Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,!,"" ]]> 1 code cache %Boolean c:\cachesys\csp\olprodcat\ProductList.csp /csp/olprodcat/ProductList.csp 0 60291,61975