User comments | InterSystems Developer Community

Patrik Spisak · Jun 3, 2025 go to post

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)
	}

Patrik Spisak · Jun 1, 2025 go to post

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

Patrik Spisak · May 29, 2025 go to post

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: 11
Subscript=1 Value=1,1 DataStatus: 11
Subscript=1 Value=1,1,1 DataStatus: 11
Subscript=1 Value=1,1,1,1 DataStatus: 1
Subscript=2 Value=1,1,2 DataStatus: 1
Subscript=3 Value=1,1,3 DataStatus: 1
Subscript=2 Value=2 DataStatus: 11
Subscript=1 Value=2,1 DataStatus: 11
Subscript=1 Value=2,1,1 DataStatus: 11
Subscript=1 Value=1,1,1,1 DataStatus: 1
Subscript=2 Value=1,1,2 DataStatus: 1
Subscript=3 Value=1,1,3 DataStatus: 1

I think I figgured out by adding KILL array(subscript) right after MERGE arr

Patrik Spisak · May 24, 2025 go to post

I figgured out. UnknowUser does not have privilages to run these files.

Patrik Spisak · Apr 20, 2025 go to post

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.

Patrik Spisak · Dec 2, 2024 go to post

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.

Patrik Spisak · Nov 7, 2022 go to post

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.S9430954-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.S9413847-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.S9413847-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(SELECTCOUNT(*) 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""
}

Patrik Spisak · Apr 7, 2020 go to post

I figure out with uggly code in html

#($ZCONVERT($$$Text("My Account","webshop","sk"), "O", "UTF8"))#

Patrik Spisak · Feb 18, 2020 go to post

like this: https://mega.nz/#!YNUDUQzK!aVkGBhVizEysbox1rEBmGtKhweeRrQst7-M0Ty6sUmU

Patrik Spisak · Feb 17, 2020 go to post

Same as before

ERROR #6232: Datatype validation failed for tag, PartoNo (ending at line 145 character 16), with value: 10649.OV

Patrik Spisak · Feb 17, 2020 go to post

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 ];

Patrik Spisak · Feb 14, 2020 go to post

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

User statistics