CSP page to config the settings for ProdListXML.csp User vhLib.Macro cache %CSP.Page,cspBasis.ProductSearch 1 code %Status 1 code %Boolean " Write ! #define RemoveAmpFirst(%v) Set:($E(%v,1)="&") $E(%v,1)="" Do ..InitializeCSP() Set optToFile=$G(%request.Data("TOFILE",1),0) Set blnToFile0=(optToFile=0) Set blnToFile1=(optToFile=1) Set optCMT=$G(%request.Data("CMT",1),0) Set blnCMT0=(optCMT=0) Set blnCMT1=(optCMT=1) Set optDynSSvg=$G(%request.Data("DYNSSVG",1),1) Set blnDynSSvg0=(optDynSSvg=0) Set blnDynSSvg1=(optDynSSvg=1) Set optImgHiRes=$G(%request.Data("IMGHIRES",1),1) Set blnImgHiRes0=(optImgHiRes=0) Set blnImgHiRes1=(optImgHiRes=1) Set optShowPRNr=$G(%request.Data("SHOWPRNR",1),0) Set blnShowPRNr0=(optShowPRNr=0) Set blnShowPRNr1=(optShowPRNr=1) Set optLandCode=$G(%request.Data("LandCode",1),"BE") Set blnLandCodeBE=(optLandCode="BE") Set blnLandCodeNL=(optLandCode="NL") Set Diepte=$G(%request.Data("Diepte",1),"50") Set txtQSExtra=$G(%request.Data("txtQSExtra",1),"") Set sExtraKM=$G(%request.Data("ExtraKM",1),0) Set blnExtraKM=(sExtraKM=1) ; QueryString manipulation Set txtQSAll=$G(%request.CgiEnvs("QUERY_STRING")) Set txtQSAll=$$$Replace("&"_txtQSAll,"&ExtraKM"_$S($L(sExtraKM):"="_sExtraKM,1:""),"") $$$RemoveAmpFirst(txtQSAll) Set txtQSSimple=txtQSAll ; Form Submitted Set blnSubmit=$G(%request.Data("btnSubmit",1))="Build" If blnSubmit Do . Set txtQSAll=$$$Replace("&"_txtQSAll,"&btnSubmit=Build","") . $$$RemoveAmpFirst(txtQSAll) Write !,!,"

ORGALUX Producten voor XML/PDF

",! Write "
" Write !,..InsertHiddenFields("ProdListConfig.csp"),! 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)_"",! Write $c(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)_"",! Write $c(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)_"",! Write $c(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)_"",! 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)_"
Parameters:
Output result [xml]",! Write $c(9,9,9,9) Write "" Write " " Write "" Write "To Screen" Write "" Write !,$c(9,9,9,9) Write "" Write " " Write "" Write "To File" Write "" Write !,$c(9,9,9)_"
XML in CData [xml]",! Write $c(9,9,9,9) Write "" Write " " Write "" Write "no" Write "" Write !,$c(9,9,9,9) Write "" Write " " Write "" Write "yes" Write "" Write !,$c(9,9,9)_"
DynSpace icons format [xml]",! Write $c(9,9,9,9) Write "" Write " " Write "" Write ".JPG" Write "" Write !,$c(9,9,9,9) Write "" Write " " Write "" Write ".SVG" Write "" Write !,$c(9,9,9)_"
Product foto's [xml]",! Write $c(9,9,9,9) Write "" Write " " Write "" Write "Klein" Write "" Write !,$c(9,9,9,9) Write "" Write " " Write "" Write "Groot" Write "" Write !,$c(9,9,9)_"
PRNR tonen",! Write $c(9,9,9,9) Write "" Write " " Write "" Write "no" Write "" Write !,$c(9,9,9,9) Write "" Write " " Write "" Write "yes" Write "" Write !,$c(9,9,9)_"
LandCode (prijzen BTW)",! Write $c(9,9,9,9) Write "" Write " " Write "" Write "BE" Write "" Write !,$c(9,9,9,9) Write "" Write " " Write "" Write "NL" Write "" Write !,$c(9,9,9)_"
",! Write $c(9,9,9,9)_"Diepte (cm)",! Write $c(9,9,9)_"",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9)_"
 
",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9)_"
",! Write "
" Write !,"
",! Write "
",! Write ! If '((blnSubmit)) Goto %csp00001 ;{ Write !,$c(9)_"
",! Write $c(9) Write "" Write "
",! Write $c(9) Write "" Write "Show Products" Write "" Write "  ",! Write $c(9) Write "" Write "Get XML" Write "" Write "  ",! Write $c(9) If '((blnExtraKM=0)) Goto %csp00002 ;{ Write "  " Write "" Write "Extra kenmerken" Write "" %csp00002 ;} Write !,$c(9)_"
",! Write $c(9)_"
",! Write $c(9)_"
",! Write $c(9) Write "
" Write !,$c(9,9)_"

Extra kenmerken filteren

",! Write $c(9,9)_"",! Write $c(9,9,9) If '((blnExtraKM)) Goto %csp00003 ;{ 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) %csp00005 If '(KenmerkList.Next()) Goto %csp00004 ;{ Write !,$c(9,9,9) Set KenmI=KenmerkList.GetDataByName("Kenmerk") Kill ArKM If ("Sleutel;Vereist;BOWeten;InfoSleutel,ProdMulti")'[KenmI Do ..PrepareKenmerkValues(GroepID,KenmI,Taal,.ArKM) Set i="" Write !,$c(9,9) If '($L($G(ArKM))) Goto %csp00006 ;{ 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) %csp00006 ;} Write !,$c(9) Goto %csp00005 %csp00004 ;} 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,9) %csp00003 ;} Write !,$c(9,9)_"
"_(ArKM)_":",! Write $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9)_"
" Write "" Write "",! Write $c(9,9,9,9,9)_"

",! Write $c(9,9,9,9,9,9) Write "" Write "Als een criterium niet van toepassing is op een product, dan dit product toch opnemen in de lijst ?",! Write $c(9,9,9,9,9)_"

",! Write $c(9,9,9,9)_"
",! Write $c(9,9)_"

Extra:
",! Write $c(9,9) Write "" Write "

",! Write $c(9,9)_"

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

",! Write $c(9) Write "
" Write $c(9),! Write $c(9)_"
",! Write $c(9)_"
",! Goto %csp00009 ;} %csp00001 ;{ Write ! %csp00009 ;} Write !,$c(9) Set %response.TraceDump=($G(%request.Data("DBG",1))'="" && $G(%request.Data("DBG",1))'="0") Write !,!,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,$c(9)_"ORGALUX Product List - config",! 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 ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 code %Boolean 1 code %Boolean c:\cachesys\csp\olprodcat\ProdListConfig.csp /csp/olprodcat/ProdListConfig.csp 61265,38172