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("TOEP","K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"Toepassing","K","*") Set BSVal("AFM","K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"Afmetingen","K","1") 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 BSVal("TEKST" ,"O")=BSVal("SLT","O") Set BSVal("PRODGAMMA" ,"K")=BSVal("PRT","K") Set BSVal("GRPSLEUTEL" ,"K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"GroepSleutel","K","1") Set BSVal("WEBSITES" ,"K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"WebSites","","*") Set BSVal("ZONETOEP" ,"K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"ZoneToepassing","K","*") Set BSVal("MEUBELTOEP" ,"K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"MeubelToepassing","K","*") Set BSVal("PHOOGTE" ,"K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"ProductHoogte","K","1") Set BSVal("PBREEDTE" ,"K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"ProductBreedte","K","1") Set BSVal("PDIEPTE" ,"K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"ProductDiepte","K","1") Set BSVal("LBREEDTEMIN","K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"LadeBreedteMin","K","1") Set BSVal("LBREEDTEMAX","K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"LadeBreedteMax","K","1") ;Set tmpVal=$LG(lbData,$I(iCol)) Set BreedteSpeling=tmpVal Set BSVal("KLRFILTER" ,"K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"KleurFilter","K","*") Set BSVal("LADEFAMILIE","K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"LadeFamilie","K","*") Set BSVal("LADETYPE" ,"K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"LadeType","","*") Set BSVal("GENERATIETYPE","K")=..DataDefValueList(Taal,GroepID,$G(ArPR(i,1)),"GeneratieType","","1") 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 CntToep=$LL(BSVal("TOEP","K")) Set CntBOW=$LL(BSVal("BOW","K")) Set CntBOWExtra=CntBOW+$LL(BSVal("AFM","K")) Set CntDynS=$LL(BSVal("DYN","K")) Set lblDynSpace=$G(MetaArray("DynSpace","VTL"),"DynS-L") ; URL's ' Set BSVal("FOTO","LB")=..ReplaceURLPath(..DataDefValueURL(Taal,GroepID,$G(ArPR(i,1)),"InfoSleutel",$S($G(blnImgLarge,0):"LI",1:"LB"))) Set BSVal("FOTO","LI")=..FitImage(..ReplaceURLPath(..DataDefValueURL(Taal,GroepID,$G(ArPR(i,1)),"InfoSleutel","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 %csp00050 ;{ Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9)_"",! %csp00050 ;} 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)_"
",! Write $c(9,9,9,9) If '($L($G(BSVal("FOTO","LB")))) Goto %csp00013 ;{ Write !,$c(9,9,9,9,9) If '($L($G(BSVal("FOTO","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)_"		",! 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 %csp00017 ;{ Write "

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

" %csp00017 ;} Write !,$c(9,9,9,9,9,9) If '($L($LG(BSVal("TEKST","O"),1))) Goto %csp00018 ;{ Write " "_(($LG(BSVal("TEKST","O"),1)))_"
" %csp00018 ;} Write !,$c(9,9,9,9,9,9,9),! Write $c(9,9,9,9,9,9) If '($L($LG(BSVal("PRODGAMMA","K"),1))) Goto %csp00019 ;{ Write "
"_("ProductGamma")_": "_(($LG(BSVal("PRODGAMMA","K"),1)))_"
" %csp00019 ;} Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9)_"Dit product past in:
    ",! Write $c(9,9,9,9,9,9) For iLadeFam=1:1:($LL(BSVal("LADEFAMILIE","K"))) { Write !,$c(9,9,9,9,9,9,9)_"
  • "_($LI(BSVal("LADEFAMILIE","K"),iLadeFam))_"
    • ",! Write $c(9,9,9,9,9,9) } Write !,$c(9,9,9,9,9,9) If '(($LL(BSVal("LADETYPE","K"))>0)) Goto %csp00020 ;{ Write !,$c(9,9,9,9,9,9,9)_"
  • " For iLadeType=1:1:($LL(BSVal("LADETYPE","K"))) { Write ($S(iLadeType>1:", ", 1:"")_$LI(BSVal("LADETYPE","K"),iLadeType)) } Write "
    • ",! Write $c(9,9,9,9,9,9) %csp00020 ;} Write !,$c(9,9,9,9,9,9,9) If '($L($LG(BSVal("LBREEDTEMIN","K"),1))) Goto %csp00021 ;{ Write "
  • "_("Ladebreedte")_": "_(($LG(BSVal("LBREEDTEMIN","K"),1))_$S($LG(BSVal("LBREEDTEMAX","K"),1)>$LG(BSVal("LBREEDTEMIN","K"),1):" - "_($LG(BSVal("LBREEDTEMAX","K"),1)), 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),! Write $c(9,9,9,9,9,9,9) If '($L($LG(BSVal("PHOOGTE","K"),1))) Goto %csp00023 ;{ Write "
  • "_("Product hoogte")_": "_(($LG(BSVal("PHOOGTE","K"),1)))_"
    • " %csp00023 ;} Write !,$c(9,9,9,9,9,9,9) If '($LL(BSVal("KLRFILTER","K"))) Goto %csp00024 ;{ Write "
  • "_("Ladekleur")_": " For iKlrFilter=1:1:($LL(BSVal("KLRFILTER","K"))) { Write ($S(iKlrFilter>1:", ", 1:"")_$LI(BSVal("KLRFILTER","K"),iKlrFilter)) } Write "
    • " %csp00024 ;} Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9),! Write !,$c(9,9,9,9,9,9,9) If '(CntBOW>0) Goto %csp00025 ;{ 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) %csp00025 ;} Write !,$c(9,9,9,9,9,9),! Write $c(9,9,9)_"
",! Write $c(9,9,9) Write "
" Write !,$c(9,9,9,9,9,9)_"

" Write "" Write ""_($G(MetaArray("Groepsleutel","VTL"),"Groepsleutel"))_":" Write "" Write " "_(($LG(BSVal("GRPSLEUTEL","K"),1)))_"

",! Write $c(9,9),! Write $c(9,9,9,9,9,9) If '($L($LG(BSVal("GENERATIETYPE","K"),1))) Goto %csp00026 ;{ Write "
"_($G(MetaArray("GeneratieType","VTL"),"GeneratieType"))_": "_(($LG(BSVal("GENERATIETYPE","K"),1)))_"
" %csp00026 ;} Write !,$c(9,9,9,9,9,9) If '(0 && $L($LG(BSVal("GRPSLEUTEL","K"),1))) Goto %csp00027 ;{ Write "
"_($G(MetaArray("Groepsleutel","VTL"),"Groepsleutel"))_": "_(($LG(BSVal("GRPSLEUTEL","K"),1)))_"
" %csp00027 ;} Write !,!,$c(9,9,9,9,9,9,9) If '((($LL(BSVal("LADEFAMILIE","K"))+$LL(BSVal("LADETYPE","K"))) )) Goto %csp00028 ;{ Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9)_""_("LadeFamilie + LadeType")_":
    ",! Write $c(9,9,9,9,9,9) For iLadeFam=1:1:($LL(BSVal("LADEFAMILIE","K"))) { Write !,$c(9,9,9,9,9,9,9)_"
  • "_($LI(BSVal("LADEFAMILIE","K"),iLadeFam))_"
    • ",! Write $c(9,9,9,9,9,9) } Write !,$c(9,9,9,9,9,9,9)_"
  • " For iLadeType=1:1:($LL(BSVal("LADETYPE","K"))) { Write ($S(iLadeType>1:", ", 1:"")_$LI(BSVal("LADETYPE","K"),iLadeType)) } Write "
    • ",! Write $c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9,9) %csp00028 ;} Write !,!,$c(9,9,9,9,9,9) If '($L($LG(BSVal("LBREEDTEMIN","K"),1))) Goto %csp00029 ;{ Write "
"_("Ladebreedte (min-max)")_": "_(($LG(BSVal("LBREEDTEMIN","K"),1)))_" - "_(($LG(BSVal("LBREEDTEMAX","K"),1)))_"
" %csp00029 ;} Write !,$c(9,9,9,9,9,9) If '($L($LG(BSVal("PHOOGTE","K"),1)_$LG(BSVal("PBREEDTE","K"),1)_$LG(BSVal("PDIEPTE","K"),1))) Goto %csp00030 ;{ Write ""_("Product afm.")_":  H:"_(($LG(BSVal("PHOOGTE","K"),1)))_" x B:"_(($LG(BSVal("PBREEDTE","K"),1)))_" x D:"_(($LG(BSVal("PDIEPTE","K"),1)))_"
" %csp00030 ;} Write !,!,$c(9,9,9,9,9,9,9) If '(($LL(BSVal("WEBSITES","K"))>0)) Goto %csp00031 ;{ Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9)_""_($G(MetaArray("WebSites","VTL"),"WebSites"))_":
    ",! Write $c(9,9,9,9,9,9) For iWebsite=1:1:($LL(BSVal("WEBSITES","K"))) { Write !,$c(9,9,9,9,9,9,9)_"
  • "_($LI(BSVal("WEBSITES","K"),iWebsite))_"
    • ",! 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) %csp00031 ;} Write !,$c(9,9,9,9,9,9,9) If '(($LL(BSVal("MEUBELTOEP","K"))>0)) Goto %csp00032 ;{ Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9)_""_($G(MetaArray("MeubelToepassing","VTL"),"MeubelToepassingen"))_":
    ",! Write $c(9,9,9,9,9,9) For iMeubelToep=1:1:($LL(BSVal("MEUBELTOEP","K"))) { Write !,$c(9,9,9,9,9,9,9)_"
  • "_($LI(BSVal("MEUBELTOEP","K"),iMeubelToep))_"
    • ",! 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) %csp00032 ;} Write !,$c(9,9,9,9,9,9,9) If '(($LL(BSVal("ZONETOEP","K"))>0)) Goto %csp00033 ;{ Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9)_""_($G(MetaArray("ZoneToepassing","VTL"),"ZoneToepassingen"))_":
    ",! Write $c(9,9,9,9,9,9) For iZoneToep=1:1:($LL(BSVal("ZONETOEP","K"))) { Write !,$c(9,9,9,9,9,9,9)_"
  • "_($LI(BSVal("ZONETOEP","K"),iZoneToep))_"
    • ",! 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) %csp00033 ;} Write !,$c(9,9,9,9,9,9,9),! Write $c(9,9,9,9,9,9,9) If '((CntToep>0)) Goto %csp00034 ;{ Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9)_""_($G(MetaArray("Toepassing","VTL"),"TOEP-L"))_": (OLD)
    ",! Write $c(9,9,9,9,9,9) For iToep=1:1:(CntToep) { Write !,$c(9,9,9,9,9,9,9)_"
  • "_($LI(BSVal("TOEP","K"),iToep))_"
    • ",! 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) %csp00034 ;} Write !,!,$c(9,9,9,9,9,9,9) If '(CntVRSExtra>0) Goto %csp00035 ;{ Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9)_""_($G(MetaArray("Vereist","VTL"),"VRS-L"))_": (OLD)
    ",! Write $c(9,9,9,9,9,9,9) If '($LL(BSVal("BRD","K"))) Goto %csp00036 ;{ Write "
  • "_($G(MetaArray("Breedte","VTL"),"BRD-L"))_": "_($LI(BSVal("BRD","K"),1))_"
    • " %csp00036 ;} Write !,$c(9,9,9,9,9,9,9) If '($LL(BSVal("DPT","K"))) Goto %csp00037 ;{ Write "
  • "_($G(MetaArray("Diepte","VTL"),"DPT-L"))_": "_($$LCVTSimple^vhLib(BSVal("DPT","K")," / "))_"
    • " %csp00037 ;} 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) %csp00035 ;} Write !,!,$c(9,9,9,9,9,9) If '(1 && $L($LG(BSVal("AFM","K"),1))) Goto %csp00038 ;{ Write "
"_($G(MetaArray("Afmetingen","VTL"),"AFM-L"))_": (Old) "_(($LG(BSVal("AFM","K"),1)))_"
" %csp00038 ;} Write !,!,$c(9,9,9) Write "
" Write !,$c(9),! Write !,$c(9,9,9,9,9,9,9),! Write $c(9,9,9,9,9)_"
",! Write $c(9,9)_"		" Write "" Write "",! Write $c(9,9,9)_"",! Write $c(9,9) %csp00040 If '(..LoopArray(.tmpAr,.j)) Goto %csp00039 ;{ Write !,$c(9,9,9) ; Loop through products with same Basis Set UnID=ArPR(i,j) Set PRNr=$S(##class(BL.Kenm.ProdMulti).AllowsMultiple(GroepID):##class(BL.Kenm.ProdMulti).GetCommonID(UnID), 1:UnID) If PRNr?4.7N Do . ;Set PRLB=..GetKortTekstEnPrijs(UnID) . Set D="\",U=";",Q="K" . Set NoSa="" . Set CKortTxt=$E(##class(Prod.Product).GetPropViaNr(PRNr,"KortTekst"),4,11) . Set CPrijs=$S($G(blnLandKeuze)=1:"", 1:$$ConsumentenPrijs^ORGALUX(PRNr,LandCode,NoSa)) ; LandCode = "DEALER", "BE" of "NL" Kill XTVal Set XTVal("WDD","K")=..DataDefValueList(Taal,GroepID,UnID,"WandDikte","K","*","-") Set XTVal("KLR","K")=..DataDefValueList(Taal,GroepID,UnID,"Kleur","K","*") Write !,$c(9,9,9) If '($LL(XTVal("WDD","K"))) Goto %csp00041 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00041 ;} Write !,$c(9,9,9) If '($LL(XTVal("KLR","K"))) Goto %csp00042 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00042 ;} 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 %csp00047 ;{ Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9) %csp00047 ;} Write !,$c(9,9) Goto %csp00040 %csp00039 ;} 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 %csp00048 ;{ Write !,$c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9) Goto %csp00049 ;} %csp00048 ;{ Write !,$c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9) %csp00049 ;} 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 %csp00043 ;{ Write (CKortTxt) Goto %csp00044 ;} %csp00043 ;{ Write " " %csp00044 ;} Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) If '($G(CPrijs)>0) Goto %csp00045 ;{ Write (CPrijs)_" EUR" Goto %csp00046 ;} %csp00045 ;{ Write " " %csp00046 ;} 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 1 code value cache %String c:\cachesys\csp\olprodcat\ProductList.csp /csp/olprodcat/ProductList.csp 0 62185,48020