vhLib.Macro 0 %CSP.Page text/xml /csp/dev1/PRGAProduct.csp 0 1 code 0 %Status 0 "_DItem.Get("Oms")_" ("_DItem.Code_") : "_$S(DItem.MetaItem.Code="KST":"MatKost="_$$$LCVT(DItem.CalcMat()), 1:"PRNr="""_DItem.Get("PRNr")_""""_$S(0:" Kenm="_$$$LCVT(DItem.Get("Kenm")),1:"")) . Set msg=msg_$$$CRLF_"> "_$$LCVT^vhLib(tmpLB) d WL^vhDBG(msg) Quit opgBuildColumnData #define LBDeleteAt(%lb,%i) $LI(%lb,1,%i-1)_$LI(%lb,%i+1,-1) New MParam,MetaI,i Set MetaI=DItem.MetaItem Set tmpLB="" Set PKey="" For Set MParam=MetaI.Parameters.GetNext(.PKey) Quit:(PKey="") Do:(MParam.KolomNr>0) . Set $LI(tmpLB,MParam.KolomNr)=DItem.Get(PKey) For i=$LL(tmpLB):-1:1 Set:('$LD(tmpLB,i)) tmpLB=$$$LBDeleteAt(tmpLB,i) ; Lege ListItems verwijderen Quit opgXMLtoGlobal New Key,CStream Set Key=$$%J^vhRtn1_"TBX" Set CStream=##class(%GlobalCharacterStream).%New() Do PR.XMLWrite(CStream,Taal,"GAF;GAO","Format GAProduct.xsl") d WL^vhDBG("WBrKey :"_Key_" "_" op "_$G(ComputerName,$ZUTIL(110))_" / "_$G(NameSpace,$ZUTIL(67,6,$J))) Do txoXMLToGlobal(Key,0) Do CStream.%Close() Quit txoXMLToGlobal(Key,CheckDigits) Quit:(Key="") Kill ^wvXML("GA.PR",Key) Set ^wvXML("GA.PR",Key,"I")=CheckDigits_"\"_"\"_$J Set ^wvXML("GA.PR",Key,"S")=CStream.Read(CStream.Size) Quit ]]> 1 %Boolean 1