TANDEMBOX intivo - "_(..WebTextValue("VS_VulstukKleur",Taal,"L"))_"

User cache %CSP.Page,cspBasis.GAProdTBox 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 %Status 1 code %Boolean " Write !," ",! Write " " Write "" Write " "_("TANDEMBOX intivo - "_..WebTextValue("VS_VulstukKleur",Taal,"L"))_" " Write "" Write !,"

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

",! Write " " Write "

" Write !," " Write "

" Write "

" Write "

" Write !," " Write "

" Write "

" Write "

" Write !," " Write "

" Write ($S(KV="ZV":..WebTextValue("VSMat_ZV",Taal,"L",$LB("U")),1:..WebTextValue("VSMat_"_$G(VSM,DisplayVSM),Taal,"L",$LB("U"))_" : "_..WebTextValue("KLV_"_KV,Taal,"L",))) Write "

" Write !," " Write "

" Write !,"

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

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

" Write " ",! Write "

" Write "" Write !,$c(9,9)_" ",! Write $c(9,9)_" ",! Write $c(9,9,9)_"",! Write $c(9,9,9) For ctrVSMat=1:1:($LL(lbVSMat)) { Write !,$c(9,9,9)_" " If '(($L($LG(lbVSMat,ctrVSMat)))) Goto %csp00001 ;{ Write !,$c(9,9,9)_" ",! Write $c(9,9,9)_" ",! Write $c(9,9,9)_" " %csp00001 ;} Write !,$c(9)_" " } Write $c(9,9,9),! Write $c(9)_" ",! Write $c(9,9)_" ",! Write $c(9,9)_"

" Write "

" Write "" Write "

" Write "

" Write "

" Write (..WebTextValue("VSMat_"_$LG(lbVSMat,ctrVSMat),Taal,"L",$LB("U"))) Write "

" Write "

" Write "

" Write "" Write "

" Write "

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

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

" Write !,$c(9,9,9) set idxVSMat=$O(arVSKleur("")) Write !,$c(9,9,9) %csp00003 If '($L(idxVSMat)) Goto %csp00002 ;{ Write !,$c(9,9,9) Set grpVSMat = idxVSMat Set lbVSKleur = arVSKleur(idxVSMat) Set idxVSMat=$O(arVSKleur(idxVSMat)) Set rowVSKleur = 0 Set colVSKleur = 0 Write !,$c(9,9,9,9)_" " Write "

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

" Write !,$c(9,9,9,9,9)_" " For ctrVSKleur=1:1:($LL(lbVSKleur)) { Write !,$c(9,9,9,9,9,9) If '(($L($LG(lbVSKleur,ctrVSKleur)))) Goto %csp00004 ;{ Write !,$c(9,9,9,9,9,9,9) If rowVSKleur > MaxItemsPerRow do . Set colVSKleur = colVSKleur + 1 . Set rowVSKleur = 0 Set rowVSKleur = rowVSKleur + 1 Set idVSKleur = $LG(lbVSKleur,ctrVSKleur) Write !,$c(9,9,9,9,9,9,9) Write "

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

" Write "" Write "

" Write "

" Write (..WebTextValue("KLV_"_idVSKleur,Taal,"L")) Write "

" Write "

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

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

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

" Write !,$c(9,9,9) Goto %csp00003 %csp00002 ;} Write !,$c(9,9,9)_" " Write "

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

",! Write " "_$c(9)_"
",! Write $c(9) Write "" Write ("OK"_..WebTextValue("",Taal,"L")) Write "" Write " " Write "" Write (..WebTextValue("Annuleren",Taal,"L")) Write "" Write !,"",! set %response.TraceDump=($G(%request.Data("DBG",1))'="" && $G(%request.Data("DBG",1))'="0") Write !,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,$c(9)_"TANDEMBOX intivo - "_(..WebTextValue("VS_VulstukKleur",Taal,"L"))_"",! Write $c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9),! Write "" Write !,$c(9),! Write "" ]]> 1 code %Boolean " Write !,! Do ..Include("PRGACNTs.INC") Write !,!,!,!,!,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 code cache %Boolean 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 Taal="N" Set blnDemo=(''$G(%request.Data("DEMO",1))) Set DC = $G(%request.Data("DC",1),"I") Set DS = $G(%request.Data("DS",1),"WI") Set KV = $G(%request.Data("KV",1)) Set DisplayVSM = $G(%request.Data("DisplayVSM",1)) Set MaxItemsPerRow = ( $$$MaxItemsPerRow - 1 ) Set blTBox=##class(BL.PR.GA.TandemBox).%New() Do blTBox.Initialize(DC) ;d WLIP^vhDBG(97,"BTDep") ;d WL^vhDBG($$$ArrayTT3("BTDep",blTBox,"BTDep")) ;d WL^vhDBG($$$CRLF_$$$CRLF_$$$CRLF_$$$ArrayTT3("BTExt",blTBox,"BTExtent")) Set lbrefVSMat = blTBox.BTExtent("TBVulstukMateriaal") Set idxVSMat="" For Set idxVSMat=$O(blTBox.BTExtent("TBVulstukMateriaal","Val",idxVSMat)) Quit:idxVSMat="" Do . Quit:idxVSMat="ZV" . Set VolgNr = $LG(blTBox.BTExtent("TBVulstukMateriaal","Val",idxVSMat),1) . Set:$LF(lbrefVSMat,idxVSMat) $LI(lbVSMat,VolgNr)=idxVSMat for ctr = 1 : 1 : $LL(lbVSMat) do . Set idxVSMat=$LG(lbVSMat,ctr) . If $L(idxVSMat) Do . . Set arVSKleur(idxVSMat) = blTBox.BTDep("TBVulstukMateriaal","TBVulstukKleur",idxVSMat) . . Set amVSKleurItems = $LL(arVSKleur(idxVSMat)) . . If ( amVSKleurItems > $G(maxVSKleurItems) ) Set maxVSKleurItems = amVSKleurItems . If '$L(DisplayVSM) Do . Quit:'$L(KV) . Set DisplayVSM = $S(KV="ZV":"GL8",1:..VSMFromKV(KV)) Else Do . If '$LF(lbrefVSMat,DisplayVSM) Do . . If $L(KV) Do . . . Set DisplayVSM = ..VSMFromKV(KV) . . Else Do . . . Set DisplayVSM="GL8" If '$L(KV) ! (KV="ZV") Do . Set KV="BRO8" . Set DisplayVSM = ..VSMFromKV(KV) If +$G(maxVSKleurItems) > MaxItemsPerRow Set maxVSKleurItems = MaxItemsPerRow ]]> 1 code KV cache %String c:\cachesys\csp\vhisie\TBX\SelectVulstukKleur.csp /vhisie/TBX/SelectVulstukKleur.csp 0 62129,51418 0