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 !,..InsertHiddenFields(""),! Write !,"

 

",! Write "

 

",! Write "

 

",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write "
",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write "
Spoelbaklade
 
" Write "" Write !," " Write "" Write !," smalle zijkanten" Write "" Write "
" Write "" Write !," " Write "" Write !," brede zijkanten" Write "" Write "
" Write "" Write !," " Write "" Write !," zijkanten op maat" Write "" Write "
    
  
Links" Write "" Write " mm 
Open1" Write "" Write !," mm 
Midden" Write "" Write !," mm 
Open2" Write "" Write !," mm 
Rechts" Write "" Write !," mm 
   
Totaal" Write "" Write !," mmopmerking
",! Write "
" Write $c(9),! 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 "