User cache %CSP.Page,cspBasis.GAProdTBox 1 code lbErrTypes cache 1 code %Status 1 code %Boolean " Write !,$c(9)_"
",! Write $c(9) Write "" Write (..WebTextValue("StdLade",Taal,"L")) Write "" Write "
",! Write $c(9)_"
",! Write $c(9)_"

",! Write $c(9,9)_(..WebTextValue("StdLadeKlikken",Taal,"O")),! Write $c(9)_"

",! Write $c(9)_"

",! Write $c(9,9)_(""_..WebTextValue("Ladediepte",Taal,"L")_": 500mm"_"   - "_..WebTextValue("Blumotion",Taal,"L")_": integriert"_"   - "_..WebTextValue("Wanddikte",Taal,"L")_": 19mm"),! 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,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,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,9)_"",! Write !,$c(9,9)_"",! Write $c(9) If '($D(arStdL)#10=1) Goto %csp00001 ;{ Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9) %csp00001 ;} Write !,$c(9,9),! Write $c(9,9) Set lbSortDef=$LB("N\ZR","M\ZR","B\ER","D\BD","D\DR","D\ER","M/Z\ZR","B/Z\ER","D/Z\BD","D/Z\DR","D/Z\ER") Kill arSorted Set iXtra=$LL(lbSortDef) Set LTBX="" For Set LTBX=$O(arStdL(LTBX)) Quit:(LTBX="") Do . Set sPos=$LF(lbSortDef,LTBX) . If sPos>0 Set arSorted(sPos)=LTBX . Else Set arSorted($INCREMENT(iXtra))=LTBX ; If not in list, append to array ;d WL^vhDBG("arSorted:"_$$ArrayToText^vhLib("arSorted")) Kill arDK Set arDK(30)="" Set arDK(50)="" Set arDK(65)="" Set iLTBX="" Write !,!,"" Write ! %csp00003 If '(..LoopArray(.arSorted,.iLTBX)) Goto %csp00002 ;{ Write !,$c(9,9) Set LTBX=arSorted(iLTBX) Set LT=$P(LTBX,"\",1) Set BX=$P(LTBX,"\",2) Kill tmpAr Merge tmpAr=arStdL(LTBX) Set ImgCode=##class(BL.PR.GA.TandemBox).ImageCodeFromLC(LT,BX) Set CB="" 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)_"",! Goto %csp00003 %csp00002 ;} Write !,$c(9)_"
"_(..WebTextValue("Ladetype",Taal,"L"))_""_(..WebTextValue("Breedte",Taal,"L"))_""_(..WebTextValue("Draagkracht",Taal,"L"))_" 
"_($$REPLACE^vhRtn1(arStdL,$C(13,10),"
"))_"
",! Write $c(9,9,9,9) Write "" Write (LT_" - "_..WebTextValue("BX_"_BX,Taal,"L")) 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,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9) %csp00005 If '(..LoopArray(.tmpAr,.CB)) Goto %csp00004 ;{ Write !,$c(9,9,9,9,9) Kill pdlMDRow Set DK="" For Set DK=$O(arDK(DK)) Quit:(DK="") Do . Set pdlMDRow(DK)="" . Set AttribTD="" . Quit:('$D(tmpAr(CB,DK))) ; Else ... . Set pdlMDRow(DK)=..QuoteJS($G(tmpAr(CB,DK,"KOL",1))) . Set $P(pdlMDRow(DK),"`",2)="$$QTY$$" . ;Set AttribTD=$S($G(tmpAr(CB,DK,"SEL")):"class=""clsRowActive""", 1:"") Set DK="" Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) %csp00007 If '(..LoopArray(.arDK,.DK)) Goto %csp00006 ;{ Write !,$c(9,9,9,9,9,9,9) If '($L(pdlMDRow(DK))) Goto %csp00008 ;{ Write !,$c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9) Goto %csp00009 ;} %csp00008 ;{ Write !,$c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9) %csp00009 ;} Write !,$c(9,9,9,9,9,9) Goto %csp00007 %csp00006 ;} Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9) Goto %csp00005 %csp00004 ;} Write !,$c(9,9,9,9)_"
"_(CB)_" mm" Write "" Write (DK)_" kg" Write "" Write " 
",! Write $c(9,9,9)_"
",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9)_"
" Write "" Write "
",! Write $c(9)_"
",! Write $c(9) Write "" Write (..WebTextValue("Sluiten",Taal,"L")) Write "" Write !,$c(9)_"
",! 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 "_(..WebTextValue("StdLade",Taal,"L"))_"",! 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 ! #define TaalDfl $S(sDomVERW="HEIN":"D", sDomVERW="LMC":"F", sDomVERW="SFS":"D", 1:"N") Set %session.AppTimeout = 905 s:('$D(ClientIP)) ClientIP="192.168.1.97" // URL --> domain / sDomVERW / sDomKLNr Set sDomain=$$GetURLDomain^cspBasis.Library Set sDomCVT=$$TBXDomainCVT^cspBasis.Library(sDomain) Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(sDomCVT,$LB("VERW","KLNR")) ; $$TBXDomainLU^cspBasis.Library(sDomCVT,$LB("VERW","KLNR")) Set sDomVERW=$LG(lbDomLU,1) Set sDomKLNr=$LG(lbDomLU,2) Set Taal=$$SesDataFromRq^cspBasis.Library("Taal",,$$$TaalDfl) ;Set KLNr=$$SesDataFromRq^cspBasis.Library("KLNR",,"") ;Set VERW=$$SesDataFromRq^cspBasis.Library("VERW",,"") New arInits,arStdL Set KleurKeuze=$G(%request.Data("klr",1)) Set MData=$G(%request.Data("data",1)) ;d WL^vhDBG("klnr:"_KLNr_" kleur:"_KleurKeuze_" mdata:"_MData) Do ..FullDataFromPDLs(.arInits, , KleurKeuze, MData) ;d WL^vhDBG($$ArrayToText^vhLib("arInits")) Set KLNrStdL=sDomKLNr Do StdLadeArray^cspBasis.GAProdTBox.tmpDev(KLNrStdL,.arStdL) ;d WL^vhDBG($$ArrayToText^vhLib("arStdL")) Write !,! #define GetVertalingJS(%i,%tl,%tt) ##class(Res.Vertaling).GetVertalingPlus("TBW",%i,%tt,%tl,,1) #define jsVTLAddVal(%i,%tl,%tt) $C(9)_"jsArVTL["""_%i_"#"_%tl_"-"_%tt_"""]="""_$$$GetVertalingJS(%i,%tl,%tt)_""";"_$C(13,10) ; Vertalingen voor teksten ingevuld/aangepast via JavaScript. Write "