go to post Eduard Lebedyuk · Feb 20, 2018 It was an error in the example - Data does not exist.I now fixed my example.
go to post Eduard Lebedyuk · Feb 20, 2018 Well, in this case you definitely don't need to read from stream at all. You can save the stream in the database (or file using %Stream.FileCharacter)) and send it to the client later: set stream = ##class(%Stream.GlobalCharacter).%New() set sc = stream.CopyFromAndSave(%request.Content) set oid = stream.%Oid() kill (oid) set stream = ##class(%Stream.GlobalCharacter).%Open(oid) do stream.OutputToDevice() Streams can be class properties too.
go to post Eduard Lebedyuk · Feb 20, 2018 What do you need to do? Many actions can be either performed with streams or there's a workaround.But ultimately yes, if the stream is beyond max string length (3641144 symbols) you'll need to process it chunk by chunk.
go to post Eduard Lebedyuk · Feb 20, 2018 Can you write Sourcedata.Date into a global? What's its value?
go to post Eduard Lebedyuk · Feb 20, 2018 How did you determine that problem happens directly at allocation (setting the property)?
go to post Eduard Lebedyuk · Feb 20, 2018 Try: %request.Content.Data.Read($$$MaxStringLength) If you have json you can cast it into object without reading the stream in user code: Set obj = {}.%FromJSON(%request.Content.Data) Same for XML (you can get it from Stream or even from url).
go to post Eduard Lebedyuk · Feb 20, 2018 catch-scope is not seems to be reached Have you enabled logging? Error occurs on saving incorrect data and not on setting the data. Saving also does not throw an exception, only returns an error status. Also you need to quit something: #dim sc As %Status = $$$OK try { set myClass= ##class(SomeClass).%New() myClass.Date = Sourcedata.Date //Sourcedata send us wrong format to that datefield. set sc = myClass.%Save() // Error occurs on save. } catch ex { set sc = ex.AsStatus() set errMsg = "Error in this method " _ $System.Status.GetOneStatusText(sc) $$$LOGERROR(errMsg) } quit sc On a side note, you're using 3 different naming conventions for variables in your snippet: tHungarianNotationCapitalCaselowercase It would probably be better to decide on one notation.
go to post Eduard Lebedyuk · Feb 20, 2018 I'd recommend developing a REST API and Web application (you can pack it via Cordova, etc.)?Even better, you can write a responsive web application and not bother with packers altogether. Unless you need things like camera/gps... a responsive web site is easier to develop and support.
go to post Eduard Lebedyuk · Feb 19, 2018 Subclass EnsLib.EMail.AlertOperation? It's hardcoded there.
go to post Eduard Lebedyuk · Feb 17, 2018 Object approach: Set sc = ##class(Security.Users).AddRoles("User", "Role1,Role2") Documentation.
go to post Eduard Lebedyuk · Feb 17, 2018 Have you modified Import method in your class to show errors? if $$$ISOK(tStatus) { set tCounter = tCounter + 1 } else { w $System.Status.GetErrorText(tStatus) return} Most likely you're getting an error and import stops.
go to post Eduard Lebedyuk · Feb 15, 2018 All datatypes go through the transformation.The collation is determined in this order:If an index definition includes an explicitly specified collation for a property, the index uses that collation.If an index definition does not include an explicitly specified collation for a property, the index uses the collation explicitly specified in the property definition.If the property definition does not include an explicitly specified collation, then the index uses the collation that is the default for the property data type.If the property data type does not include an explicitly specified collation, then the index uses namespace default collationIf the namespace default collation is not specified, then SQLUPPER is used.Documentation.
go to post Eduard Lebedyuk · Feb 14, 2018 Almost the same: set json = "{""prop"":1}" set obj = {}.$fromJSON(json) write obj.prop Documentation.
go to post Eduard Lebedyuk · Feb 14, 2018 If you're on 2016.2+: set json = "{""prop"":1}" set obj = {}.%FromJSON(json) write obj.prop Documentation.
go to post Eduard Lebedyuk · Feb 13, 2018 The general approach is: XData to ZEN objectsModify object(s)Serialize back into XData. Sample code (SAMPLES namespace): /// This is the Desktop Demonstration page for the Zen demonstration application. Class ZENDemo.AutoDemo Extends %ZEN.Component.page { /// Class name of application this page belongs to. Parameter APPLICATION = "ZENDemo.Application"; /// This XML block defines the contents of this page. XData Contents [ XMLNamespace = "http://www.intersystems.com/zen" ] { <page xmlns="http://www.intersystems.com/zen" title="Zen Desktop Demo"> <tablePane sql="SELECT ID,Name FROM Sample.Person WHERE Name %STARTSWITH ? ORDER BY Name"> <column colName="ID" hidden="0"/> <column colName="Name"/> <parameter value="Z"/> </tablePane> </page> } /// Toggles visibility of the ID column. /// w $System.Status.GetErrorText(##class(ZENDemo.AutoDemo).Modify()) ClassMethod Modify() As %Status { #Dim pSC As %Status = $$$OK #Dim tPage As %ZEN.Component.page #Dim tHidden As %Boolean Set tSC = ..GetPageObject(, .tPage) Quit:$$$ISERR(tSC) tSC Set tHidden = tPage.children.GetAt(1).columns.GetAt(1).hidden Write "Old ID column hidden value: ", tHidden, ! Set tPage.children.GetAt(1).columns.GetAt(1).hidden = 'tHidden Write "New ID column hidden value: ", 'tHidden, ! Set tNewStream = ##class(%Stream.TmpCharacter).%New() Set tSC = ##class(%ZEN.Utils).%ObjectToXML(tNewStream, tPage) Write "New XData: ", 'tHidden, ! Do tNewStream.Rewind() Do tNewStream.OutputToDevice() Do tNewStream.Rewind() Set tSC = ..SavePage(,tNewStream) Do $system.OBJ.Compile($classname()) Quit tSC } ClassMethod GetPageObject(pClassName = {$classname()}, Output pPage As %ZEN.Component.page) As %Status { Set tReader = ##class(%XML.Reader).%New() Set tSC = tReader.OpenStream(##class(%Dictionary.CompiledXData).%OpenId(pClassName _ "||" _ "Contents").Data) If $$$ISERR(tSC) Quit tSC Do tReader.Correlate("page","%ZEN.Component.page") #; there should only be one page defined Do tReader.Next(.pPage,.tSC) Quit:$$$ISERR(tSC) tSC Quit:'$IsObject(pPage) $$$ERROR($$$GeneralError,"No <page> element defined in Contents block.") Quit tSC } ClassMethod SavePage(pClassName = {$classname()}, pStream) As %Status { Set tCDef = ##class(%Dictionary.ClassDefinition).%OpenId(pClassName) If '$IsObject(tCDef) { Set tSC = $$$ERROR($$$GeneralError,"Unable to open class definition: " _ tClass) } #; find XDATA Contents block Set tIndex = tCDef.XDatas.FindObjectId(pClassName _ "||" _ "Contents") If (tIndex '= "") { #; get XDATA as stream Set tStream = tCDef.XDatas.GetAt(tIndex).Data Do tStream.CopyFrom(pStream) } Else { #; create a new XData block !!! } Set tSC = tCDef.%Save() Quit tSC } } Calling: Write $System.Status.GetErrorText(##class(ZENDemo.AutoDemo).Modify()) Toggles visibility of the ID column.
go to post Eduard Lebedyuk · Feb 8, 2018 Okay.Another idea: you can define your session event class, and set it as a session event class for your web application. That way you can track:What pages and partials are requestedHow long does the session lastsHow long does it take to execute the request
go to post Eduard Lebedyuk · Feb 8, 2018 If I do a direct link without using the router it works fineHow fo you test directly? If you're doing it from a terminal, then that terminal process works as your OS user. Ensemble works under another OS user. Check that this user has access to file.
go to post Eduard Lebedyuk · Feb 7, 2018 In what context are you encountering IDKEY?While Primary Key, ID and IDKEY refer to the same concept, there are some nuances:Primary Key - is something that uniquely identifies a row or an object (it's usually a property or several properties)ID is a default name of the Primary Key property (persistent cache classes/tables have ID property by default and it's a Primary Key) IDKEY is an index over Primary Key property (regardless of the actual property name)
go to post Eduard Lebedyuk · Feb 6, 2018 Angular pages are often templates filled with data (via REST) and so it' possible to use that. In the root broker of the application add request tracking (who accessed what and when). OnPreDispatch method works for that purpose. /// This method Gets called prior to dispatch of the request. Put any common code here /// that you want to be executed for EVERY request. If pContinue is set to 0, the /// request will NOT be dispatched according to the UrlMap. If this case it's the /// responsibility of the user to return a response. ClassMethod OnPreDispatch(pUrl As %String, pMethod As %String, ByRef pContinue As %Boolean) As %Status { Quit $$$OK }