User cache %CSP.Page,cspBasis.ProductList 1 code lbErrTypes cache 1 code %Status 1 code %Boolean " Write !,$c(9)_"
",! Write $c(9) Write "" Write (..WebTextValueTB("OLProdSelectie",Taal,"L")) Write "" Write "
",! Write $c(9)_"
",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"
   
U kunt kiezen uit verschillende ORGALUX-producten. Maak uw keuze uit onderstaande tabel:
 
",! Write $c(9,9,9,9)_"",! 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)_"",! 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) Set blnShowPRNr=(''$G(%request.Data("SHOWPRNR",1))) Set CntProd=0 Set (i,j)="" For Set i=$O(ArPR(i)) Quit:(i="") Do . For Set j=$O(ArPR(i,j)) Quit:(j="") Set:($G(ArPR(i,j))'="") CntProd=CntProd+1 Set PrevHeadNDX="" Set jj=0 Set i="" Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! %csp00004 If '(..LoopArray(.ArPR,.i)) Goto %csp00003 ;{ 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 %csp00005 ;{ Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! Write $c(9) %csp00005 ;} Write !,$c(9)_"",! Write $c(9) If '($L($G(BSVal("DYN","K")))) Goto %csp00006 ;{ Write !,$c(9,9)_"",! Write $c(9) Goto %csp00007 ;} %csp00006 ;{ Write !,$c(9,9)_"",! Write $c(9) %csp00007 ;} 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 %csp00026 ;{ Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! %csp00026 ;} Write ! Goto %csp00004 %csp00003 ;} Write !,!,$c(9,9,9,9)_"
",! Write $c(9,9,9) Write "
" Write !,$c(9,9,9) If '(CntProd>0) Goto %csp00001 ;{ Write !,$c(9,9,9,9)_(CntProd_" "_$ZCVT(..WebTextValue($S(CntProd=1:"Product",1:"Producten"),Taal,"L"),"L")),! Write $c(9,9,9) Goto %csp00002 ;} %csp00001 ;{ Write !,$c(9,9,9,9)_(..WebTextValue("Geen producten gevonden",Taal,"L")),! Write $c(9,9,9,9)_($S(1:"
"_$$ArrayToText^vhLib("tmpRqData")_"
", 1:"")),! Write $c(9,9,9) %csp00002 ;} Write !,$c(9,9,9)_"

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

",! Write $c(9,9,9) Write "" 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 "" Write "" 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 %csp00012 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00012 ;} Write !,$c(9,9,9)_"
",! Write $c(9,9,9,9) If '($L($G(BSVal("SLT","LB")))) Goto %csp00008 ;{ Write !,$c(9,9,9,9,9) If '($L($G(BSVal("SLT","LI")))) Goto %csp00009 ;{ 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 %csp00010 ;} %csp00009 ;{ Write !,$c(9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9) %csp00010 ;} Write !,$c(9,9,9,9) Goto %csp00011 ;} %csp00008 ;{ Write !,$c(9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9) %csp00011 ;} 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 %csp00013 ;{ Write "

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

" %csp00013 ;} Write !,$c(9,9,9,9,9,9) If '($L($LG(BSVal("SLT","O"),1))) Goto %csp00014 ;{ Write " "_(($LG(BSVal("SLT","O"),1)))_"
" %csp00014 ;} Write !,$c(9,9,9,9,9,9,9) If '(CntVRSExtra>0) Goto %csp00015 ;{ 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 %csp00016 ;{ Write "
  • "_($G(MetaArray("Breedte","VTL"),"BRD-L"))_": "_($LI(BSVal("BRD","K"),1))_"
    • " %csp00016 ;} Write !,$c(9,9,9,9,9,9,9) If '($LL(BSVal("DPT","K"))) Goto %csp00017 ;{ Write "
  • "_($G(MetaArray("Diepte","VTL"),"DPT-L"))_": "_($$LCVTSimple^vhLib(BSVal("DPT","K")," / "))_"
    • " %csp00017 ;} 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) %csp00015 ;} Write !,$c(9,9,9,9,9,9,9) If '(CntBOW>0) Goto %csp00018 ;{ 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) %csp00018 ;} Write !,$c(9,9,9,9,9)_"
",! Write $c(9,9)_"		" Write "" Write "",! Write $c(9,9,9)_"",! Write $c(9,9) %csp00020 If '(..LoopArray(.tmpAr,.j)) Goto %csp00019 ;{ 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=..EindGebruikersPrijs($LG(PRLB,2),LandCode) . Set MuntOL="EUR" 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 %csp00021 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00021 ;} Write !,$c(9,9,9) If '($LL(XTVal("KLR","K"))) Goto %csp00022 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00022 ;} Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write "" Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) If '($L($O(tmpAr(j)))) Goto %csp00025 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00025 ;} Write !,$c(9,9) Goto %csp00020 %csp00019 ;} 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 "" Write !,$c(9,9,9,9,9)_"",! 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 %csp00023 ;{ Write "" Write (CKortTxt) Write "" Goto %csp00024 ;} %csp00023 ;{ Write " " %csp00024 ;} Write !,$c(9,9,9,9,9)_" 
",! Write $c(9,9)_"
",! Write $c(9,9,9)_"
",! Write $c(9)_"
",! Write $c(9) Write "" Write (..WebTextValueTB("Sluiten",Taal,"L")) Write "" Write !,$c(9)_"
",! Write !,$c(9) ; Close MetaObjects New k,tmpOref Set k="" For Set k=$O(MetaArray(k)) Quit:(k="") Set tmpOref=MetaArray(k) Do tmpOref.%Close() Kill MetaArray(k) Write !,$c(9) Set %response.TraceDump=($G(%request.Data("DBG",1))'="" && $G(%request.Data("DBG",1))'="0") Write !,$c(9),! Write "" ]]> 1 code %Boolean 1 code %Boolean " Write !,$c(9)_"TandemBox - Dynamic Space",! 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 !,!,! Do ..Include("PRGACNTs.INC") Write !,!,!,!,!,!,!,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,!,"" ]]> 1 code cache %Boolean 1 code Intern, Taal, TextType, lbFlags cache %String c:\cachesys\csp\vhisie\TBX\SelectOLProd.csp /vhisie/TBX/SelectOLProd.csp 0 61446,62728 0