User cache %CSP.Page 1 code lbErrTypes cache ",$LB($$$EmailTo),"CSP - Error - "_$ZDT($H,4),"§DFL_HTML§",,1) Set %cspEHandler($$$etPageLoadError,"ACTIONS","ErrPage")=$LB("csp.errorvh","OnPageMinimum") #Else Set %cspEHandler($$$etPageLoadError,"ACTIONS")=$LB("ErrPage") Set %cspEHandler($$$etPageLoadError,"ACTIONS","ErrPage")=$LB("%CSP.Error","OnPage") #EndIf Quit ]]> 1 code MyArr,Index cache %String 1 code %Status 1 code %Boolean " Write !,!,! Do ..OnPageHTML() Write !,!,!,$c(9),! ]]> 1 code %Boolean " Write !,$c(9),! Write !," " #define pg ##class(cspBasis.GAProdTBox) Set WSOrd = ##class(WS.TBX.Order).%OpenId(TBXWebID) Set Taal = WSOrd.Taal Set (VERW , sDomVERW ) = "VHEPN" Set sMode = "COMPLETE" Do PrepareWSOrdVTL^csp.vhisie.TBX.Main.tmpDev ; Vertalingen Labels & Tabel Headers Set WSLn=WSOrd.Lijnen.GetNext("") If WSLn Do . Set dcID=##class(BL.PR.GA.TandemBox).DesignCodeFromDS(WSLn.ItemDS) . Set:(dcID="I") HeaderLogo="I" . Set:($L(WSLn.ItemDS)) DCSuffix=$$$Replace($$$pg.WebTextValue("DC_Suffix_"_dcID,Taal,"L"),"~","") . Set arWSVTL("KLR_DS")=$S($L(WSLn.ItemDS):$$$pg.WebTextValue("DS_"_WSLn.ItemDS,Taal,"L")_DCSuffix, 1:"") . Set arWSVTL("KLR_KL")=$S($L(WSLn.ItemDS):$$$pg.WebTextValue("DS_"_WSLn.ItemDS,Taal,"L"), 1:"") ; arWSVTL("KLR_DS") . ;Set arWSVTL("KLR_KL")=$S($L(WSLn.ItemKL):$$$pg.WebTextValue("KL_"_WSLn.ItemKL_$S(WSLn.ItemKL?1(1"WI",1"BE",1"BA"):"_DS",1:""),Taal,"L"), 1:"") . Set arWSVTL("KLR_KB")=$S($L(WSLn.ItemKB):$$$pg.WebTextValue("KL_"_WSLn.ItemKB_$S(WSLn.ItemKB?1(1"WI",1"BE"):"_KB", 1:""),Taal,"L"), 1:"") . Set arWSVTL("KLR_RK")=$S($L(WSLn.ItemRK):$$$pg.WebTextValue("KL_"_WSLn.ItemRK,Taal,"L"), 1:"") . Set arWSVTL("KLR_KX")=$S($L(WSLn.ItemKX):$$$pg.WebTextValue("KL_"_WSLn.ItemKX,Taal,"L"), 1:"") . Set arWSVTL("KLR_KV")=$S($L(WSLn.ItemKV):$$$pg.WebTextValue("KLV_"_WSLn.ItemKV,Taal,"L"), 1:"") Set arVTL("LBL","LT") =..WebTextValue("Ladetype",Taal,"L") Set arVTL("LBL","CB") =..WebTextValue("Breedte",Taal,"L") Set arVTL("LBL","WD") =..WebTextValue("Wanddikte",Taal,"L") Set arVTL("LBL","LD") =..WebTextValue("Ladediepte",Taal,"L") Set arVTL("LBL","DK") =..WebTextValue("Draagkracht",Taal,"L") Set arVTL("LBL","FB") =..WebTextValue("Frontbevestiging",Taal,"L") ; Set arVTL("LBL","BM") =..WebTextValue("Blumotion",Taal,"L") Set arVTL("LBL","BX") =..WebTextValue("Relingen",Taal,"L")_" / "_..WebTextValue("Boxside",Taal,"L") Set arVTL("LBL","DIV") =..WebTextValue("Diverse",Taal,"L") Set arVTL("LBL","Aant")=..WebTextValue("Aantal",Taal,"L") Set arVTL("TH","LT") =..WebTextValue("LadetypeTH",Taal,"L") Set arVTL("TH","CB") =..WebTextValue("BreedteTH",Taal,"L") Set arVTL("TH","WD") =..WebTextValue("WanddikteTH",Taal,"L") Set arVTL("TH","LD") =..WebTextValue("LadediepteTH",Taal,"L") Set arVTL("TH","DK") =..WebTextValue("DraagkrachtTH",Taal,"L") Set arVTL("TH","FB") =..WebTextValue("FrontbevestigingTH",Taal,"L") ; Set arVTL("TH","BM") =..WebTextValue("BlumotionTH",Taal,"L") Set arVTL("TH","BX") =..WebTextValue("BoxsideTH",Taal,"L") Set arVTL("TH","DIV") =..WebTextValue("DiverseTH",Taal,"L") Set arVTL("TH","Aant")=..WebTextValue("AantalTH",Taal,"L") Write !," "_$c(9),! Write " "_$c(9),! Write " "_$c(9)_"",! Write " ",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9)_" ",! Write " ",! Write $c(9,9)_"",! Write $c(9)_" ",! Write " "_$c(9)_" ",! Write $c(9)_" ",! Write $c(9,9)_" ",! Write $c(9,9)_"",! Write $c(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,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"

" Write " " Write (..WebTextValue("Kleurkeuze",Taal,"L")) Write " " Write "
",! Write $c(9,9)_" " Write " " Write (..WebTextValue("Design",Taal,"L")_"/"_..WebTextValue("Ladezijden",Taal,"L"))_" :" Write " " Write !,!,$c(9,9)_"	",! Write $c(9,9)_" " Write " " Write ($G(arWSVTL("KLR_DS"))) Write " " Write !,!,$c(9,9)_"	",! Write $c(9)_" "_$c(9)_" " Write " " Write ($TR(..WebTextValue("Bodem&Rug",Taal,"L")," ",""))_" :" Write " " Write !,$c(9,9) If '((dcID'="I")) Goto %csp00001 ;{ Write !,$c(9,9)_" " Write " " Write ($S(0:..WebTextValue("Kleur",Taal,"L")_" ", 1:"")_..WebTextValue("Relingen",Taal,"L"))_" :" Write " " Write !,$c(9,9) %csp00001 ;} Write !,$c(9,9) Write " " Write ($S(0:..WebTextValue("Kleur",Taal,"L")_" ", 1:"")_..WebTextValue($S(0:"VerhoogdeZijwand",1:"VullingGlas"),Taal,"L"))_" :" Write " " Write !,$c(9,9)_"	",! Write $c(9,9,9) Write " " Write ($G(arWSVTL("KLR_KB"))) Write " " Write !,$c(9,9)_" " If '((dcID'="I")) Goto %csp00002 ;{ Write !,$c(9,9,9)_" " Write " " Write ($G(arWSVTL("KLR_RK"))) Write " " Write !,$c(9,9)_" " %csp00002 ;} Write !,$c(9,9,9) Write " " Write ($G(arWSVTL("KLR_KV"))) Write " " Write !,$c(9,9)_"
" Write " " Write (..WebTextValue("Maten",Taal,"L")) Write " " Write "

",! 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,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,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,9) If '($G(blnShowAKPrijs)) Goto %csp00003 ;{ Write !,$c(9,9)_" ",! Write $c(9,9) Goto %csp00004 ;} %csp00003 ;{ Write !,$c(9,9)_" ",! Write $c(9,9) %csp00004 ;} Write !,$c(9)_" ",! Write $c(9,9,9,9),! Write $c(9,9,9,9) #define RightSet00(%v) $TR("BA","AB",$Reverse(%v)_"00") Set RowCnt=0 Set lnI="" Kill tmpArLN Merge tmpArLN=arWSVTL("LN") Write !,$c(9,9,9) %csp00006 If '(..LoopArray(.tmpArLN,.lnI)) Goto %csp00005 ;{ Write !,$c(9,9,9,9) Set RowCnt=RowCnt+1 Set i=lnI Set RowStyle=$S((RowCnt#2):"clsMRowEven", 1:"clsMRowOdd")_$S($O(tmpArLN(lnI))="":" clsMRowLastX", 1:"") ; 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,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,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) Goto %csp00006 %csp00005 ;} 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,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,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9,9)_"",! Write $c(9,9,9)_"

"_(arVTL("TH","LT") )_"	"_(arVTL("TH","CB") )_"	"_(arVTL("TH","WD") )_"	"_(arVTL("TH","LD") )_"	"_(arVTL("TH","DK") )_"	"_(arVTL("TH","FB") )_"	"_(arVTL("TH","BX") )_"	"_(arVTL("TH","DIV"))_"	"_(arVTL("TH","Aant"))_"	" Write "" Write (..WebTextValue("PrijsAKPrefix",Taal,"L")) Write "" Write " "_(..WebTextValue("PrijsPerStukTH",Taal,"L"))_"	"_(..WebTextValue($S(WSOrd.TotPrijs>0:"PrijsPerStukTH", 1:"InfoTH"),Taal,"L"))_"
"_(arWSVTL("LN",i,"LT"))_"	"_(arWSVTL("LN",i,"CB"))_"	"_(arWSVTL("LN",i,"WD"))_"	"_(arWSVTL("LN",i,"LD"))_"	"_(arWSVTL("LN",i,"DK"))_"	"_(arWSVTL("LN",i,"FB"))_"	"_(arWSVTL("LN",i,"BX"))_"	"_(arWSVTL("LN",i,"DIV"))_"	"_(arWSVTL("LN",i,"AANT"))_"	"_(arWSVTL("LN",i,"PRIJS"))_"

	"_(..WebTextValue("PrijsTotaal",Taal,"L"))_":	"_(WSOrd.TotAantal)_"		"_($S($G(arWSVTL("TotPrijs"))="":" ",1:arWSVTL("TotPrijs")))_"

",! Write $c(9)_" " Write "" ]]> 1 code cache %Boolean 1 code Intern,Taal,TextType,lbFlags cache %String c:\cachesys\csp\hadev\DynaPlugReportTBXTable.csp /csp/hadev/DynaPlugReportTBXTable.csp 61863,60145