serial KeyCodesCNTs,TTreeViewExCNTs,PRGACNTs Default %Library.TMFormClass 0 %Library.Boolean 0 %Library.TMForm %Library.String 1 1 %TMButton %TMButton %TMButton %TMComboBox %TMCheckBox %TMCheckBox %TMLabel %TMLabel %TMLabel %TMPanel %TMRadioGroup %TMTreeView %TMEdit %TMEdit %TMEdit %TMEdit %TMMemo %TMLabel %TMLabel %TMLabel %TMSplitter initvalue:%String cache 0 %Status document literal Prod:Prod.GAData.Product,blnShowProduct:%Boolean=0 cache 0 document literal cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal mode:%String cache 0 document literal 1 ImExMode:%String,ImExNode:%String cache 0 %Library.String document literal wordt niet geïmporteerd.") ;Else : Kill ^ResVisual(ImExNode) Merge ^ResVisual(ImExNode)=^ResVisualGAProd(ImExNode) Kill ^ResVisualGAProd(ImExNode) Set Result="De Global ^ResVisualGAProd("_ImExNode_") werd geïmporteerd" Quit ierExport If '$D(^ResVisual(ImExNode)) Do Quit . Do ierMessage("De Global ^ResVisual("_ImExNode_") bevat geen data --> wordt niet geëxporteerd.") ;Else : Kill ^ResVisualGAProd Merge ^ResVisualGAProd(ImExNode)=^ResVisual(ImExNode) Set Result="De Global ^ResVisual("_ImExNode_") werd geëxporteerd" Quit ierMessage(msg) If ($D(MApplication)) Do MApplication.MessageBox(msg,,"Import/Export ResVisual") Quit ]]> initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 9 New iG,iS,iI new RijFmt,RijFmtSel,RijFmtHdr Set iG=$LG(..tvProduct.GetBookmark(ParentNode.ParentNode),..#bmIndex) Set iS=$LG(ParentBookmark,..#bmIndex) Set iI=$O(..arTree(1,iG,iS,"")) Quit:(iI="") Set RijFmtHdr=$S($LG(..arTree("FMT",iG,iS,iI),1)'="":$LI(..arTree("FMT",iG,iS,iI),1)_" HDR", 1:"") Do ..tvProduct.BuildHeaderNode(ParentNode, RijFmtHdr) Set iI="" For Set iI=$O(..arTree(1,iG,iS,iI)) Quit:(iI="") Do . Set RijFmt=$LG(..arTree("FMT",iG,iS,iI),1) . Set RijFmtSel=$S(RijFmt'="":RijFmt_" SEL", 1:"") . ;d ..TTrace(" FFFFFFetchhh: "_$$LCVT^vhLib(..arTree(1,iG,iS,iI))_" ==> "_RijFmt_" "_RijFmtSel) . Do ..tvProduct.BuildNode(ParentNode,$LB("")_..arTree(1,iG,iS,iI), $LB(iI,+$G(..arTree("OREF",iG,iS,iI))), $$$HasSubNd,RijFmt,RijFmtSel) . ;Do ..tvProduct.BuildNode(ParentNode,$LB(+$G(..arTree("OREF",iG,iS,iI)))_..arTree(1,iG,iS,iI), $LB(iI,+$G(..arTree("OREF",iG,iS,iI))), $$$HasSubNd,RijFmt,RijFmtSel) Quit ;----------------------------------------------------------------------------- ofnFetchKostDtl New iG,iS,iI,iK new RijFmt,RijFmtSel,RijFmtHdr Set iG=$LG(..tvProduct.GetBookmark(ParentNode.ParentNode.ParentNode),..#bmIndex) Set iS=$LG(..tvProduct.GetBookmark(ParentNode.ParentNode),..#bmIndex) Set iI=$LG(ParentBookmark,..#bmIndex) Set iK=$O(..arTree(1,iG,iS,iI,"")) Quit:(iK="") ;Set RijFmtHdr=$S($LG(..arTree("FMT",iG,iS,iI,iK),1)'="":$LI(..arTree("FMT",iG,iS,iI,iK),1)_" HDR", 1:"") Set RijFmtHdr="Item_KSTDTL"_" HDR" ;Do:(iI=$O(..arTree(1,iG,iS,""))) ..tvProduct.BuildHeaderNode(ParentNode, RijFmtHdr) Do:(1) ..tvProduct.BuildHeaderNode(ParentNode, RijFmtHdr) Set iK="" For Set iK=$O(..arTree(1,iG,iS,iI,iK)) Quit:(iK="") Do . ;Set RijFmt=$LG(..arTree("FMT",iG,iS,iI,iK),1) . Set RijFmt="Item_KSTDTL" . Set RijFmtSel=$S(RijFmt'="":RijFmt_" SEL", 1:"") . Do ..tvProduct.BuildNode(ParentNode,..arTree(1,iG,iS,iI,iK), $LB(iK), 0,RijFmt,RijFmtSel) Quit ]]> Prod:%Integer cache 0 document literal cache 0 document literal Msg:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0) Templ=##class(Prod.GAData.Template).%OpenId(ID) Set ..txtProductID.Text="" Set ..txtMetaStruct.Text="" Do ..txtTreeData.Clear() Set Prod=Templ.Product Do ..BuildProductTree(Prod) ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal "_$LG(..arTree(1,i,j),1)) .. For Set k=$O(..arTree(1,i,j,k)) Quit:(k="") Do:($L($LG(..arTree(1,i,j,k),5))) ... ;Set arTreeKM(i,j,k)=$LB($LG(..arTree(1,i,j,k),1),"#|#",$LG(..arTree(1,i,j,k),9)) ... ;Set arTreeKM(i,j,k)=$LB($LG(..arTree(1,i,j,k),2),$LG(..arTree(1,i,j,k),5),$LG(..arTree(1,i,j,k),6),$LG(..arTree(1,i,j,k),8)) ... Set tmpLB=..arTree(1,i,j,k) ... Set:($$IsList^vhLib($LG(tmpLB,3))) $LI(tmpLB,3)="" ... Set:($LG(tmpLB,4)="TB") $LI(tmpLB,4)="" ... Set arTreeKM(i,j,k)=tmpLB .. Kill:($D(arTreeKM(i,j))'>1) arTreeKM(i,j) ;Set ..txtTreeData.Text=$$REPLACE^vhRtn1($$ArrayToText^vhLib("arTreeKM"),"""#|#""",$C(13,10)) Set ..txtTreeData.Text=$$kmcTransOutput($$ArrayToText^vhLib("arTreeKM")) kmcTransOutput(sText) Set sText=$$REPLACE^vhRtn1(sText,"""#|#""",$C(13,10)) Set sText=$$REPLACE^vhRtn1(sText,"=(","=") Set sText=$$REPLACE^vhRtn1(sText_$C(13,10),")"_$C(13,10),$C(13,10)) n i,t For i=1:1:$L(sText,$C(13,10)) Do:($P(sText,$C(13,10),i)["=") . Set t=$P(sText,$C(13,10),i) . Set $P(t,"=",1)="" . Set $E(t,1)="" . Set $P(sText,$C(13,10),i)=t Quit $TR(sText, ",.""", ";,") ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal STRING PreColumn 1 2 %Library.CacheSerialState "%Library.TMFormClass" Address Form FlgFocusTV btnRefreshTree btnSelectProduct btnSluiten cboTemplate chkKenmerken chkShowOutputData lblMetaStructTxt lblProductIDTxt lblTemplateCbo pnlTreeData rbgDataTonen tvProduct txtMetaStruct txtProdPrijs txtProductID txtProductOms txtTreeData zzLabel1 zzLabel2 zzLabel3 zzSplitter1