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($S(blnIsSpoelbak:"Spoelbaklade",1:"Sifonlade"),Taal,"L")_$S(blnDemo:" - DEMO", 1:"")) Write "" Write "
",! Write $c(9)_"
",! Write $c(9) If '(0) Goto %csp00001 ;{ 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,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,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)_"",! 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,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)_"

"_(..WebTextValue("SPZKKeuze",Taal,"L"))_":
	",! 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)_"",! 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)_"",! Write $c(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,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_" "_(ZKLi)_" "_($S($L(SPBR):..WebTextValue("Spoelbak",Taal,"L")_":"_SPBR, 1:" "))_" "_(ZKRe)_" " Write "" Write " "_(..WebTextValue("BinnenmaatCorpus",Taal,"L")_": "_IB_" mm")_" ",! 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)_"",! 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)_"",! Write !,$c(9,9,9,9,9) // Open instance of ResultSet for runtime mode of DISPLAY. Set qrySPZK = ##class(%ResultSet).%New("Prod.GAMeta.BT.TBSPZijkant"_":"_"ExtentSort") Set qrySPZK.RuntimeMode=2 Set %sc = qrySPZK.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9,9,9,9) Set SPZKRowCnt=0 %csp00003 If '(qrySPZK.Next()) Goto %csp00002 ;{ Set SPZKRowCnt=SPZKRowCnt+1 Write !,$c(9,9,9,9,9) Set idSPZK=qrySPZK.Data("ItemCode") Set lbFilterDC=qrySPZK.Data("FilterDC") Set sOptAttrib="" If ($LF(lbShowSPZK,idSPZK)=0)||($LF(lbFilterDC,tmpDC)=0) Do . Set idSPZK="" ; Do not show this item Else If (idSPZK?1(1"M")) Do ; &&(DCM'="I") . Set sOptAttrib="style=""display:none; visibility:hidden;"" disabled" . Set:(blnHideZKOpMaat) idSPZK="" ; Do not show this item Else If (tmpDC="I")||(idSPZK'?1(1"SA")) Do . ; Add Item Else Do . Set idSPZK="" ; Do not show this item Write !,!,$c(9,9,9,9) If '(($L(idSPZK))) Goto %csp00004 ;{ Write !,$c(9,9,9,9,9) Set SPZKRowCnt=SPZKRowCnt+1 Set RowStyle=$S((SPZKRowCnt#2):"clsMRowEven", 1:"clsMRowOdd")_$S(SPZKRowCnt>1:" clsMRowLastX", 1:"") Set iOms=##class(Prod.GAMeta.BT.TBSPZijkant).TaalAfhOmsClass("",idSPZK,Taal,idSPZK,,tmpDC) Set iSPBR=blTBox.CalcBreedteSpoelbak(idSPZK,IB,AftrekLP,DC) Set iZKLi=$J((IB-iSPBR)/2,0,0) Set iSPBR=IB-(2*iZKLi) Kill tmpRq Merge tmpRq=%request.Data Kill tmpRq("SPZK") Set tmpRq("SPZK",1)=idSPZK Set iHref="?"_..CQueryString(.tmpRq) 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)_"",! Write $c(9,9,9,9) %csp00004 ;} Write !,$c(9,9,9,9) Goto %csp00003 %csp00002 ;} Write !,$c(9,9)_"",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9,9)_"",! Write $c(9,9)_" ",! Write $c(9,9)_" "_(..WebTextValue("SPZKType",Taal,"L"))_" "_(..WebTextValue("Spoelbak",Taal,"L"))_" * "_(..WebTextValue("SPZijstukken",Taal,"L"))_" ** " Write "" Write (iOms) Write "" Write " "_(iSPBR)_" mm "_(iZKLi)_" mm   ",! Write $c(9,9)_"   ",! Write $c(9,9,9)_"
",! Write $c(9,9,9,9)_"  (*) "_(..WebTextValue("SPZKOpmerking1",Taal,"O"))_" ",! Write $c(9,9,9,9)_"  (**) "_(..WebTextValue("SPZKOpmerking2",Taal,"O")),! Write $c(9,9,9)_"
",! Write $c(9,9,9,9)_""_(..WebTextValue("Opmerkingen",Taal,"L"))_": ",! Write $c(9,9,9,9)_(..WebTextValue("SPZKInbegrepen",Taal,"O")),! Write $c(9,9,9)_"

",! Write " ",! 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,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,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"

"_(..WebTextValue("SPZKKeuze",Taal,"L"))_":
	",! 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)_"",! 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)_"",! Write $c(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,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_" "_(ZKLi)_" "_($S($L(SPBR):..WebTextValue("Spoelbak",Taal,"L")_":"_SPBR, 1:" "))_" "_(ZKRe)_" " Write "" Write " "_(..WebTextValue("BinnenmaatCorpus",Taal,"L")_": "_IB_" mm")_" ",! Write $c(9,9,9)_"

",! Goto %csp00005 ;} %csp00001 ;{ Write !,!,"",! Write " ",! Write " ",! Write " ",! Write " ",! Write "

",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" " If '($G(blnIsDblSifon)) Goto %csp00006 ;{ Write " ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" " %csp00006 ;} Write " ",! Write $c(9)_" ",! Write " "_$c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" " If '($G(blnIsDblSifon)) Goto %csp00007 ;{ Write " ",! Write " "_$c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write " "_$c(9)_" " %csp00007 ;} Write " ",! Write " "_$c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" " If '($G(blnIsDblSifon)) Goto %csp00008 ;{ Write " ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" " %csp00008 ;} Write !,$c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" " If '($G(blnIsDblSifon)) Goto %csp00009 ;{ Write !,$c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" " %csp00009 ;} Write !,$c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" " If '($G(blnIsDblSifon)) Goto %csp00010 ;{ Write !,$c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" " %csp00010 ;} Write " ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" " If '($G(blnIsDblSifon)) Goto %csp00011 ;{ Write !,$c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" " %csp00011 ;} Write " ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write $c(9)_" ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " "_$c(9)_"                                                                                                                                                 "_(IB)_" ",! Write " "_$c(9)_"

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

" Write !,..InsertHiddenFields(""),! 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)_" ",! 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)_" ",! 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 '((blnIsSpoelbak)) Goto %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,9)_" ",! Write $c(9,9)_" ",! Write $c(9,9)_" ",! Write $c(9,9) Goto %csp00013 ;} %csp00012 ;{ Write !,$c(9,9)_" ",! Write $c(9,9)_" ",! Write $c(9,9)_" ",! Write $c(9,9,9) If '((blnDiepeSifonMag)) Goto %csp00014 ;{ Write !,$c(9,9)_" ",! Write $c(9,9)_" ",! Write $c(9,9)_" ",! Write $c(9,9,9) %csp00014 ;} Write !,$c(9,9) %csp00013 ;} Write " ",! Write $c(9,9)_"   " Write "" Write !,$c(9,9)_" " Write "" Write (..WebTextValue("SPZKSmall",Taal,"L"))_"",! Write $c(9,9)_" " Write "" Write !,$c(9,9)_" " Write "" Write !,$c(9,9)_" " Write "" Write (..WebTextValue("SPZKLarge",Taal,"L"))_"",! Write $c(9,9)_" " Write "" Write !,$c(9,9)_" " Write "" Write " ",! Write $c(9,9)_" " Write "" Write (..WebTextValue("SPZKSpec",Taal,"L"))_"",! Write $c(9,9)_" " Write "" Write !,$c(9,9)_" " Write "" Write !,$c(9,9)_" " Write "" Write (..WebTextValue("SY186",Taal,"L"))_"",! Write $c(9,9)_" " Write "" Write !,$c(9,9)_" " Write "" Write !,$c(9,9)_" " Write "" Write (..WebTextValue("SY250",Taal,"L"))_"",! Write $c(9,9)_" " Write "" Write !,$c(9,9)_"
	",! Write $c(9,9)_" " Write "" Write (..WebTextValue("SPZKSym",Taal,"L"))_"
"_(..WebTextValue("edtLinks_"_$S(blnIsSpoelbak:"SP",1:"SY"),Taal,"L"))_"	" Write "" Write " mm
"_(..WebTextValue("edtOpen1_"_$S(blnIsSpoelbak:"SP",1:"SY"),Taal,"L"))_"	" Write "" Write " mm
"_(..WebTextValue("edtMidden_"_$S(blnIsSpoelbak:"SP",1:"SY"),Taal,"L"))_"	" Write "" Write " mm
"_(..WebTextValue("edtOpen2_"_$S(blnIsSpoelbak:"SP",1:"SY"),Taal,"L"))_"	" Write "" Write " mm
"_(..WebTextValue("edtRechts_"_$S(blnIsSpoelbak:"SP",1:"SY"),Taal,"L"))_"	" Write "" Write " mm
"_(..WebTextValue("edtTotaal",Taal,"L"))_"	" Write "" Write " mm

",! Write $c(9)_" "_$c(9)_" ",! Write $c(9)_" "_$c(9) If '(blnIsSpoelbak) Goto %csp00015 ;{ Write !,$c(9)_" "_$c(9) Goto %csp00016 ;} %csp00015 ;{ Write " ",! Write $c(9)_" "_$c(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,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"

",! Write $c(9,9,9)_" "_(..WebTextValue("Sifon_MeerInfo",Taal,"L")),! Write $c(9,9,9)_"

",! Write $c(9,9) %csp00016 ;} Write " ",! Write $c(9)_" "_$c(9)_" ",! Write " "_$c(9)_" " Write "

" Write !,$c(9),! Write $c(9) %csp00005 ;} Write !,$c(9),! Write $c(9)_"
",! Write $c(9) If '((blnDemo)) Goto %csp00017 ;{ Write !,$c(9,9) Write "" Write (..WebTextValue("Sluiten",Taal,"L")) Write "" Write !,$c(9) Goto %csp00018 ;} %csp00017 ;{ Write !,$c(9,9) Write "" Write ("OK"_..WebTextValue("",Taal,"L")) Write "" Write "   " Write "" Write (..WebTextValue("Annuleren",Taal,"L")) Write "" Write !,$c(9) %csp00018 ;} Write !,$c(9)_"",! 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)_"",! Write $c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9),! Write $c(9) Write "" Write !,$c(9),! Write "" Write !,!,"" ]]> 1 code %Boolean " Write !,! Do ..Include("PRGACNTs.INC") 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_"""]="""_$TR($$$GetVertalingJS(%i,%tl,%tt),$C(13,10),"")_""";"_$C(13,10) #define jsVTLAddValRepl(%i,%tl,%tt) $C(9)_"jsArVTL["""_%i_"#"_%tl_"-"_%tt_"""]="""_$$$Replace($$$GetVertalingJS(%i,%tl,%tt),"~","")_""";"_$C(13,10) #define jsVTLVar(%i,%tl,%tt) $C(9)_"var "_%i_"="""_$TR($$$GetVertalingJS(%i,%tl,%tt),$C(13,10),"")_""";"_$C(13,10) #define jsVTLAddVtl(%i,%tl,%tt,%vtl) $C(9)_"jsArVTL["""_%i_"#"_%tl_"-"_%tt_"""]="""_%vtl_""";"_$C(13,10) #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")) Set sDomVERW=$LG(lbDomLU,1) Set sDomKLNr=$LG(lbDomLU,2) Set Taal=$$SesDataFromRq^cspBasis.Library("Taal",,$$$TaalDfl) Set blnDemo=(''$G(%request.Data("DEMO",1))) Set DC=$G(%request.Data("DC",1),"S") Set LT=$G(%request.Data("LCODE",1),"MS2") Set LD=$G(%request.Data("LD",1),500) If '(LD>0) Set LD = 500 New SPZK,IB,CB,WD,MTIB,OPVLLI,OPVLRE,SPBR,blTBox,imgSPZK,reqTotal Set blTBox=##class(BL.PR.GA.TandemBox).%New() Set KLAS = blTBox.KLASFromLC(LT) Set SPZK=$G(%request.Data("SPZK",1)) If blnDemo Do . Set:(SPZK="") SPZK="B" . Set IB="" . Set CB=900 . Set WD=16 . Set MTIB="" Else Do . Set SPZK=$G(%request.Data("SPZK",1)) . Set:$P(SPZK,";",2)=$P(SPZK,";",3) $P(SPZK,";",2)="",$P(SPZK,";",3)="" ; indien LI & RE gelijk maten op leegzetten zodat herberekening geforceerd wordt. . Set IB=$G(%request.Data("IB",1)) . Set CB=$G(%request.Data("CB",1)) . Set WD=$G(%request.Data("WD",1)) . Set MTIB=$G(%request.Data("MTIB",1),"") Set:('$IsValidNum(MTIB)) MTIB=blTBox.DFLMinTolerantie(WD) Set OPVLLI=0 ; $G(%request.Data("OPVLLI",1)) Set OPVLRE=0 ; $G(%request.Data("OPVLRE",1)) ;Set AftrekLP=$G(%request.Data("AftrekLP",1)) Set AftrekLP=0 ; $S(..cboKlasse.SelectedGetKey()="SP":"", 1:0) ; "" = Default AftrekLadeProf (75) Set:(IB'>0) IB=blTBox.CalcBreedteIntern(CB,+WD,OPVLLI,OPVLRE,MTIB) Set SPBR=blTBox.CalcBreedteSpoelbak(SPZK,IB,AftrekLP,DC) ;Set sc=##class(BL.PR.GA.TandemBox).CalcSPBreedtesOpMaat(IB,.SPZLI,.SPBR,.SPZRE,AftrekLP) ; Set blnHideZKOpMaat=1 Set tmpDC=$S(DC="I":"I", DC="A":"A", 1:"S") Set lbShowSPZK=..GetSPZijkantList(tmpDC,LT) Set imgSPZK=$S(SPZK?1(1"S".E):"S", SPZK?1(1"B".E):"B", 1:SPZK) /* If SPBR>0 Do . Set ZKLi=$J((IB-SPBR)/2,0,0) . Set ZKRe=ZKLi . Set SPBR=IB-ZKLi-ZKRe . Set imgSpoelbak="media/SPZK_"_imgSPZK_"_"_Taal_".jpg" . Set pctLi=$S(imgSPZK="S":20, 1:25) . Set pctRe=$S(imgSPZK="S":20, 1:25) Else Do . Set SPZK="" . Set SPBR="" . Set ZKLi="" . Set ZKRe="" . Set imgSpoelbak="media/SPZK_Blank.jpg" . Set pctLi=20 . Set pctRe=20 Set pctMid=100-pctLi-pctRe */ Set blnIsSpoelbak=(KLAS'["SY") Set blnIsDblSifon = (KLAS["SY2") set blnDiepeSifonMag = ( $E(LT)="M" ) & ( LD '< 350 ) Set BreedteSifon = 119 ; Set tblSifonHoogte = 70 ; px Hoogte gebruikte om hoogte sifon aan te duiden.. Set reqTotal = IB Set tblFactor = 0.2 Write "