go to post Patrik Spisak · Jun 3 I dont know what Im missing here but its not work at all with $QUERY and @ indirection. Still is undefined even I converted local varaible into process private global. Method setLayout(layout) As %Status { MERGE ^||layout = layout SET node = "" FOR { SET node = $QUERY(@^||layout) QUIT:node="" W node,"",@node,! } QUIT $$$OK } Obviously I was still trying to apply pattern from $ORDER . This one works. SET node = $QUERY(^||layout("")) WHILE (node '= "") { W !, node SET node = $QUERY(@node) }
go to post Patrik Spisak · Jun 1 That approuch I was trying, but I got always an error of undefined so I gave up. ClassMethod test(array) { SET value = "" FOR { SET value = $QUERY(@array) QUIT:value="" W value,"=",@array,! } QUIT } DO ##class(intranet.util.xml).test(.a) <UNDEFINED>test+4^intranet.util.xml.1 *array
go to post Patrik Spisak · May 29 How this one can be turned into recursive? I have no idea how to create programatically to check level deeper and deeper and so on. ClassMethod array2xml(array) As %String { SET subscript = "" FOR { SET subscript = $ORDER(array(subscript)) QUIT:subscript="" SET dataStatus = $DATA(array(subscript)), currentRef = array(subscript) write !, "Subscript=", subscript_", Value=", currentRef_" DataStatus: "_dataStatus IF (dataStatus > 9) { SET a = "" MERGE arr = array(subscript) // More subscripts, go deeperK DO ..array2xml(.arr) } ELSEIF (dataStatus = 1) { // No more subscripts, just a value } } } Problem is that my output start repeating. Here is example array SET array(1) = "1", array(1,1) = "1,1", array(1,1,1) = "1,1,1", array(1,1,2) = "1,1,2", array(1,1,3) = "1,1,3", array(1,1,1,1) = "1,1,1,1", array(2) = "2", array(2,1) = "2,1", array(2,1,1) = "2,1,1" And here are the output Subscript=1 Value=1 DataStatus: 11Subscript=1 Value=1,1 DataStatus: 11Subscript=1 Value=1,1,1 DataStatus: 11Subscript=1 Value=1,1,1,1 DataStatus: 1Subscript=2 Value=1,1,2 DataStatus: 1Subscript=3 Value=1,1,3 DataStatus: 1Subscript=2 Value=2 DataStatus: 11Subscript=1 Value=2,1 DataStatus: 11Subscript=1 Value=2,1,1 DataStatus: 11Subscript=1 Value=1,1,1,1 DataStatus: 1Subscript=2 Value=1,1,2 DataStatus: 1Subscript=3 Value=1,1,3 DataStatus: 1 I think I figgured out by adding KILL array(subscript) right after MERGE arr Subscript=1 Value=1 DataStatus: 11Subscript=1 Value=1,1 DataStatus: 11Subscript=1 Value=1,1,1 DataStatus: 11Subscript=1 Value=1,1,1,1 DataStatus: 1Subscript=2 Value=1,1,2 DataStatus: 1Subscript=3 Value=1,1,3 DataStatus: 1Subscript=2 Value=2 DataStatus: 11Subscript=1 Value=2,1 DataStatus: 11Subscript=1 Value=2,1,1 DataStatus: 1
go to post Patrik Spisak · May 24 I figgured out. UnknowUser does not have privilages to run these files.
go to post Patrik Spisak · Apr 20 I could not compile any class. I've fixed this I removed all IPM and SourceControl classes via management portal, then set SourceControl to nove in my namespace and rebooted IRIS. After reboot I was able to reinstall again IPM and Source Control. Problem was that VS Code does not provide any error. I was getting only Executing Studii Action "Opened Document" on IP:PORT failed. Check the ObjectScript Output channel for details. After I installed Studio I saw problem directly.
go to post Patrik Spisak · Dec 2, 2024 Even I tried to replace %var with hardcoded value, in my case ID I got same result. SQLCODE 100 but from management portal SQLCODE 0 and returned 6 IDs. I created new Index to the table and rebuild indices and now its works. But its weird why I got different result in embedded SQL and management portal.
go to post Patrik Spisak · Nov 7, 2022 Hi, I replaced all QUIT with Return and add conditional check based on third parameter at the begening of the ClassMethod as you suggest. When I tried to run, the output is excatly the same as with QUIT. Function still running even value has been found. This is output from terminal where I added $G(mainArticle),"-",$G(article) from suggestion above. 9430954-9428572 BEGENING OF LOOP FOR: H2652.S 9430954-9428572 START RECURSIVE 9408921-9428572 BEGENING OF LOOP FOR: MQ0605.B 9408921-9428572 END OF LOOP 9430954-9428572 BEGENING OF LOOP FOR: H2641.B 9430954-9428572 BEGENING OF LOOP FOR: M1910.15.40 9430954-9428572 BEGENING OF LOOP FOR: GK6202 9430954-9428572 BEGENING OF LOOP FOR: GK6201.B 9430954-9428572 BEGENING OF LOOP FOR: IX08.0925 9430954-9428572 START RECURSIVE 9408925-9428572 END OF LOOP 9430954-9428572 BEGENING OF LOOP FOR: XQA1.AI12.1425.1020.C 9430954-9428572 START RECURSIVE 9413847-9428572 BEGENING OF LOOP FOR: XAL446.1250.1.AI12.L.A 9413847-9428572 START RECURSIVE 9408591-9428572 BEGENING OF LOOP FOR: AL446.1255 9408591-9428572 END OF LOOP 9413847-9428572 BEGENING OF LOOP FOR: XAL446.1250.1.AI12.R.A 9413847-9428572 START RECURSIVE 9408593-9428572 BEGENING OF LOOP FOR: AL446.1255 9408593-9428572 END OF LOOP 9413847-9428572 BEGENING OF LOOP FOR: AL448.1024 9413847-9428572 BEGENING OF LOOP FOR: XAL447.0970.A 9413847-9428572 START RECURSIVE 9408603-9428572 BEGENING OF LOOP FOR: AL447.0975 9408603-9428572 END OF LOOP 9413847-9428572 BEGENING OF LOOP FOR: H2640.A 9413847-9428572 BEGENING OF LOOP FOR: H2641.C 9413847-9428572 BEGENING OF LOOP FOR: H2650.A 9413847-9428572 BEGENING OF LOOP FOR: H2701.1020 9413847-9428572 BEGENING OF LOOP FOR: XAL465.1110.A0 9413847-9428572 START RECURSIVE 9421986-9428572 Has Value 9413847-9428572 BEGENING OF LOOP FOR: XAL465.1110.A1 9413847-9428572 START RECURSIVE 9421987-9428572 BEGENING OF LOOP FOR: XAL465.1110.A0 9421987-9428572 START RECURSIVE 9421986-9428572 Has Value 9421987-9428572 END OF LOOP 9413847-9428572 BEGENING OF LOOP FOR: XAL465.1110.A2 9413847-9428572 START RECURSIVE 9421990-9428572 BEGENING OF LOOP FOR: XAL465.1110.A0 9421990-9428572 START RECURSIVE 9421986-9428572 Has Value 9421990-9428572 END OF LOOP 9413847-9428572 BEGENING OF LOOP FOR: H2707.R.S 9413847-9428572 START RECURSIVE 9432315-9428572 BEGENING OF LOOP FOR: H2707 9432315-9428572 BEGENING OF LOOP FOR: H2698 9432315-9428572 BEGENING OF LOOP FOR: H2697 9432315-9428572 END OF LOOP 9413847-9428572 BEGENING OF LOOP FOR: H2707.L.S 9413847-9428572 START RECURSIVE 9432316-9428572 BEGENING OF LOOP FOR: H2707 9432316-9428572 BEGENING OF LOOP FOR: H2698 9432316-9428572 BEGENING OF LOOP FOR: H2697 9432316-9428572 END OF LOOP 9413847-9428572 END OF LOOP 9430954-9428572 END OF LOOP // EDIT I was able to QUIT only when I used global variable ClassMethod workpieceUnit(mainArticle As %String, article As %String) As %String { &SQL(SELECT unit->unitCode INTO :unitCode FROM production_article.composition WHERE mainArticle = :mainArticle AND article = :article) IF (SQLCODE = 0) { W !, $G(mainArticle),"-",$G(article)," Has Value" SET ^pasp("unitCode") = unitCode RETURN unitCode } ELSE { SET sql = "SELECT article, unit->unitCode, production_article.composition_sqlArticleCode(article, type) AS articleCode FROM production_article.composition WHERE mainArticle = "_mainArticle_" AND type = 1", rs = ##class(%SQL.Statement).%ExecDirect(,sql) WHILE rs.%Next() { RETURN:$GET(^pasp("unitCode"))'="" ^pasp("unitCode") W !, $G(mainArticle),"-",$G(article)," BEGENING OF LOOP FOR: "_rs.articleCode IF (rs.article = article) { RETURN rs.unitCode } // CHECK IF WORKPIECE HAS COMPOSITION &SQL(SELECT COUNT(*) INTO :composition FROM production_article.composition WHERE mainArticle = :rs.article) IF (composition > 0) { W !, $G(mainArticle),"-",$G(article)," START RECURSIVE" DO ..workpieceUnit(rs.article, article) } } W !, $G(mainArticle),"-",$G(article)," END OF LOOP" RETURN $GET(^pasp("unitCode"),"") KILL ^pasp("unitCode") } RETURN "" }
go to post Patrik Spisak · Apr 7, 2020 I figure out with uggly code in html #($ZCONVERT($$$Text("My Account","webshop","sk"), "O", "UTF8"))#
go to post Patrik Spisak · Feb 18, 2020 like this: https://mega.nz/#!YNUDUQzK!aVkGBhVizEysbox1rEBmGtKhweeRrQst7-M0Ty6sUmU
go to post Patrik Spisak · Feb 17, 2020 Same as before ERROR #6232: Datatype validation failed for tag, PartoNo (ending at line 145 character 16), with value: 10649.OV
go to post Patrik Spisak · Feb 17, 2020 Was not compiled even I have clicked to compile. Anyway still getting erro. Is it possible to turn off datatype validation? Datatype validation failed for tag, PartoNo (ending at line 51 character 20), with value: 5625.1800.L I have tried replace %xsd.short for %String, %GlobalCharacterStream but does not help at all Property PartoNo As %xsd.short(XMLNAME = "PartoNo") [ Required ];
go to post Patrik Spisak · Feb 14, 2020 I have generated classes now by using XML Schema, but still not working Class TruLaser.ProductionPackage Extends (%Persistent, %XML.Adaptor) [ ProcedureBlock ] { Parameter XMLNAME = "ProductionPackage"; Parameter XMLSEQUENCE = 1; Property Barcode As %xsd.int(XMLNAME = "Barcode") [ Required ]; Property DueDate As %String(MAXLEN = "", XMLNAME = "DueDate") [ Required ]; Property BasicMaterial As %xsd.float(XMLNAME = "BasicMaterial") [ Required ]; Property RawMaterial As %String(MAXLEN = "", XMLNAME = "RawMaterial") [ Required ]; Property RawMaterialThicknessUnit As %String(MAXLEN = "", XMLNAME = "RawMaterialThicknessUnit") [ Required ]; Property JobNote As %String(MAXLEN = "", XMLNAME = "JobNote") [ Required ]; Property CreatedBy As %String(MAXLEN = "", XMLNAME = "CreatedBy") [ Required ]; Property ChangedBy As %String(MAXLEN = "", XMLNAME = "ChangedBy") [ Required ]; Property Workplace As TruLaser.Workplace(XMLNAME = "Workplace") [ Required ]; Property ManufacturingOrders As TruLaser.TcBoManufacturingOrder(XMLNAME = "ManufacturingOrders", XMLPROJECTION = "WRAPPED") [ Required ]; Relationship ProductionOrders As TruLaser.ProductionOrder(XMLITEMNAME = "ProductionOrder", XMLNAME = "ProductionOrders", XMLPROJECTION = "COLLECTION") [ Cardinality = many, Inverse = ProductionPackage ]; Relationship Parts As TruLaser.Part(XMLITEMNAME = "Part", XMLNAME = "Parts", XMLPROJECTION = "COLLECTION") [ Cardinality = many, Inverse = ProductionPackage1 ]; Property NcPrograms As TruLaser.NcProgram(XMLNAME = "NcPrograms", XMLPROJECTION = "WRAPPED") [ Required ]; Property RequiredSheets As TruLaser.Sheet(XMLNAME = "RequiredSheets", XMLPROJECTION = "WRAPPED") [ Required ]; Property LaserTechnoTables As TruLaser.LaserTechnoTable(XMLNAME = "LaserTechnoTables", XMLPROJECTION = "WRAPPED") [ Required ]; Relationship UsedLaserTechnoTables As TruLaser.UsedLaserTechnoTable(XMLITEMNAME = "UsedLaserTechnoTable", XMLNAME = "UsedLaserTechnoTables", XMLPROJECTION = "COLLECTION") [ Cardinality = many, Inverse = ProductionPackage2 ]; Property TotalRuntime As %xsd.float(XMLNAME = "TotalRuntime") [ Required ]; Property RawMaterialThickness As %xsd.float(XMLNAME = "RawMaterialThickness") [ Required ]; Property TotalPartCount As %xsd.byte(XMLNAME = "TotalPartCount") [ Required ]; Property TotalSheetCount As %xsd.byte(XMLNAME = "TotalSheetCount") [ Required ]; Property Waste As %xsd.float(XMLNAME = "Waste") [ Required ]; Property JobName As %String(MAXLEN = "", XMLNAME = "JobName", XMLPROJECTION = "ATTRIBUTE"); Class TruLaser.TcBoManufacturingOrder Extends (%Persistent, %XML.Adaptor) [ ProcedureBlock ] { Parameter XMLNAME = "TcBoManufacturingOrder"; Parameter XMLSEQUENCE = 1; Property Barcode As %xsd.int(XMLNAME = "Barcode") [ Required ]; Property ProgramNo As %String(MAXLEN = "", XMLNAME = "ProgramNo") [ Required ]; Property NoOfRuns As %xsd.byte(XMLNAME = "NoOfRuns") [ Required ]; Relationship ProductionOrders As TruLaser.Order(XMLITEMNAME = "Order", XMLNAME = "ProductionOrders", XMLPROJECTION = "COLLECTION") [ Cardinality = many, Inverse = TcBoManufacturingOrder ]; Property ProcessingTimeTotal As %xsd.float(XMLNAME = "ProcessingTimeTotal") [ Required ]; Property ManufacturingOrderNo As %String(MAXLEN = "", XMLNAME = "ManufacturingOrderNo", XMLPROJECTION = "ATTRIBUTE"); } ERROR #5002: Cache error: <CLASS DOES NOT EXIST>XMLImportElements+96^TruLaser.TcBoManufacturingOrder.1 *TruLaser.Order for element ProductionOrders (ending at line 28 character 25) Also im still not able access all values for example : object.LaserTechnoTables.MaxLaserPower
