go to post Eduard Lebedyuk · Jul 26, 2016 Your error: <INVALID 0REF>zSrvGetData+2 Points to the line; set item = ..%GetComponentById("Item").value And means that the result of this call: ..%GetComponentById("Item") Is not an object, so you can't access a property "value".
go to post Eduard Lebedyuk · Jul 26, 2016 You can define a property of %Stream.Object class and store %Stream.FileBinary/%Stream.FileCharacter there.
go to post Eduard Lebedyuk · Jul 25, 2016 Why not use %Stream.FileBinary and %Stream.FileCharacter? It would store the file outside of the database.
go to post Eduard Lebedyuk · Jul 25, 2016 I removed InvalidGet method and object access to the property stopped working. Class Utils.GlobalProp Extends %Persistent { Parameter InvalidGLVN = "^Utils.GlobalPropP"; Property Invalid As %String [ SqlComputeCode = {set {*} = ##class(Utils.GlobalProp).InvalidStatic()}, SqlComputed, Transient ]; ClassMethod InvalidStatic() As %String { Return $Get(@..#InvalidGLVN) } Method InvalidSet(val As %String) As %Status { Set @..#InvalidGLVN = val Return $$$OK } /// Do ##class(Utils.GlobalProp).Test() ClassMethod Test() { Do ..%KillExtent() Set obj = ..%New() Write "Invalid old: " _ obj.Invalid,! Set obj.Invalid = $Random(100) Write "Invalid new: " _ obj.Invalid,! Do obj.%Save() Kill obj &sql(SELECT Invalid INTO :invalid FROM Utils.GlobalProp WHERE Id = 1) Write "SQLCODE: " _ SQLCODE,! Write "Invalid sql: " _ invalid,! } Outputs: Invalid old: Invalid new: SQLCODE: 0 Invalid sql: 65 Related Int code: zInvalidCompute(%id) New %tException,%val set %val = "" try { set %val = ##class(Utils.GlobalProp).InvalidStatic() } catch %tException { throw %tException } Quit %val zInvalidGet() public { If i%Invalid = "" { Set ..Invalid=..InvalidCompute($listget(i%"%%OID")) } Quit i%Invalid } zInvalidSQLCompute() // Compute code for field Invalid set %d(2) = ##class(Utils.GlobalProp).InvalidStatic() QUIT Do $System.Status.DisplayError(tStatus) Write ! } Quit } }
go to post Eduard Lebedyuk · Jul 23, 2016 If our SVN repository already is storing discrete .cls files, does Atelier do any conversion when we load from SVN into our server instance?No, except maybe for repository structure. That depends is Atelier + EGit support repository structure you use. For how to use EGit with Atelier check this article.At what point would I see .udl files? I am thinking I would only see that if SVN was storing .xml and each of those would be converted to .udl.There are no .udl files. There are just cls/mac/inc etc files in udl format, meaning they are represented on disk as is and not in the xml format. The extension would be .cls and so on. Here's the sample repository created with Atelier.
go to post Eduard Lebedyuk · Jul 22, 2016 Getter and Setter are object related concepts, SQL does not use them. You can, however specify SqlComputeCode for SELECT access to a property. This example stores and retrieves Invalid property value from ^Utils.GlobalPropP global. Class Utils.GlobalProp Extends %Persistent { Parameter InvalidGLVN = "^Utils.GlobalPropP"; Property Invalid As %String [ SqlComputeCode = {set {*} = ##class(Utils.GlobalProp).InvalidStatic()}, SqlComputed, Transient ]; Method InvalidGet() As %String { Return ..InvalidStatic() } ClassMethod InvalidStatic() As %String { Return $Get(@..#InvalidGLVN) } Method InvalidSet(val As %String) As %Status { Set @..#InvalidGLVN = val Return $$$OK } /// Do ##class(Utils.GlobalProp).Test() ClassMethod Test() { Do ..%KillExtent() Set obj = ..%New() Write "Invalid old: " _ obj.Invalid,! Set obj.Invalid = $Random(100) Write "Invalid new: " _ obj.Invalid,! Do obj.%Save() Kill obj &sql(SELECT Invalid INTO :invalid FROM Utils.GlobalProp WHERE Id = 1) Write "SQLCODE: " _ SQLCODE,! Write "Invalid sql: " _ invalid,! } } Code on GitHub.
go to post Eduard Lebedyuk · Jul 22, 2016 Here's the documentation detailing the process.Or do you have more specific questions?
go to post Eduard Lebedyuk · Jul 21, 2016 I tried a lot of open-sourced/generally available Source Control hooks for Studio/git integration and cache-tort-git offers the best wokflow as you don't need to switch from studio window for ~95% of source control usage cases.
go to post Eduard Lebedyuk · Jul 20, 2016 %ZEN.proxyObject works alright with first empty element in a list. Here's a sample: set json="{""Choices"":["""",10,20,30]}" do ##class(%ZEN.Auxiliary.jsonProvider).%ConvertJSONToObject(json,,.obj) do ##class(%ZEN.Auxiliary.jsonProvider).%ObjectToJSON(obj) { "Choices":["",10,20,30 ] } As for converting persistent objects to/from json, I would recommend first getting an example of json: set obj = ##class(Driver.Entity).%OpenId(id) do ##class(%ZEN.Auxiliary.jsonProvider).%ObjectToJSON(obj) Would output json from object of Driver.Entity class. Then you can modify your json, so it would have the same structure. The important part is that json should contain _class property = Driver.Entity, this way %ConvertJSONToObject knows which class to convert json into.
go to post Eduard Lebedyuk · Jul 20, 2016 You can determine class based on a path by enforcing one standard of internal<->external name conversion. So you have two methods: ClassMethod GetExternalName(InternalName) As %String {} ClassMethod GetInternalName(ExternalName) As %String {} And the value of expressions: Write InternalName=..GetInternalName(..GetExternalName(InternalName)) Write ExternalName=..GetExternalName(..GetInternalName(ExternalName)) Is always 1 for any valid InternalName/ExternalName.
go to post Eduard Lebedyuk · Jul 19, 2016 That's useful. set %Stream=##class(%Stream.TmpCharacter).%New() Is there any particular reason to use % variable here? I think local variable would be enough.
go to post Eduard Lebedyuk · Jul 19, 2016 For every query (which can be a simple SQL query or a custom class query, here’s my post about them and their uses) QueryFunc method gets generated: ClassMethod QueryFunc(Arg1, Arg2) As %SQL.StatementResult which returns a %SQL.StatementResult used to iterate over the query. For example your Display query for LastName.BasicClassQuery class can be called from object context with this code: Set ResultSet=##class(LastName.BasicClassQuery).DisplayFunc() While ResultSet.%Next() { Write ResultSet.Name,! }
go to post Eduard Lebedyuk · Jul 18, 2016 I don't think SPA works with browser back/forward buttons. You need to code back/forward buttons in your application.
go to post Eduard Lebedyuk · Jul 18, 2016 This is not, generally a good idea to insert potentially long and slow code inside of object constructor.Why? %OnNew should contain code which is absolutely required on object initiation regardless of the execution speed. There is no use case for this class to construct an object and not call %Connect, so %Connect should be moved into %OnNew. That way client code needs to make one mandatory call instead of two.
go to post Eduard Lebedyuk · Jul 18, 2016 Why use JSON object instead of a usual signature? Method %Connect(IP = "127.0.0.1", Port = {^%SYS("SSPort")}, Namespace = "%SYS", Username, Password, ClientIP, ClientPort ) As Sample.RemoteProxy { } Also, it can be moved into the %OnNew method.
go to post Eduard Lebedyuk · Jul 18, 2016 Here's working example: Class Sample.XSLTransform [ Abstract ] { ClassMethod test(tData = "<HHSOS><DIAGNOSES><DIAGNOSIS_DATA><DIAGNOSIS_DATA_GUID>3762875</DIAGNOSIS_DATA_GUID><DIAGNOSIS_DATA_GUID>37628752</DIAGNOSIS_DATA_GUID></DIAGNOSIS_DATA><DIAGNOSIS_DATA></DIAGNOSIS_DATA><DIAGNOSIS_DATA></DIAGNOSIS_DATA><DIAGNOSIS_DATA_GUID>37628753</DIAGNOSIS_DATA_GUID></DIAGNOSES></HHSOS>", tSelect = "//DIAGNOSIS_DATA_GUID[1]", tXSL = "ExampleXSL") { set tXML= ##class(%GlobalCharacterStream).%New() do tXML.Write(tData) set tXSL=##class(%Dictionary.CompiledXData).%OpenId($classname() _ "||" _ tXSL ).Data kill tParams set tParams("selectParam") = tSelect set tSC=##class(%XML.XSLT.Transformer).TransformStream(tXML,tXSL,.tOutput,,.tParams) zwrite tSC set tSC=tOutput.OutputToDevice() } XData ExampleXSL { <?xml version="1.0"?> <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"> <xsl:param name="selectParam"/> <xsl:template match="/"> <xsl:copy-of select="$selectParam"/> </xsl:template> </xsl:stylesheet> } } Example: Do ##class(Sample.XSLTransform).test() tSC=1 <?xml version="1.0" encoding="UTF-8"?><DIAGNOSIS_DATA_GUID>3762875</DIAGNOSIS_DATA_GUID><DIAGNOSIS_DATA_GUID>37628753</DIAGNOSIS_DATA_GUID>
go to post Eduard Lebedyuk · Jul 17, 2016 tParams should be an array: set tParms("tExperssion") = tExperssion set tParms("tIndex") = tIndex and this line: <xsl:copy-of select="$tExperssion"/> should maybe be: <xsl:value-of select="$tExperssion"/>
go to post Eduard Lebedyuk · Jul 15, 2016 You can change wildcard programmatically, see this topic. Though I think the better solution would be subclassing and calculating wildcard there.