Hi Patrik,

For a better readability of code, switch the Quit command by Return in the portions of your code. where you relay want to return.

For example in this codesnippet in the While:

			W !, "BEGENING OF LOOP FOR: "_rs.articleCode
			IF (rs.article = article)
			{
				SET unitCode = rs.unitCode
				QUIT
			}

This Quit, only exit form While not from Method. Other problem is that the last line with Quit without argument can cause a <FUNCTION> error because doesn't return any value.

If I'm not miss understood, you can add a third parameter to use internally of method to check if the method needs to run or not. For example if the condition to stop is the unitCode is not blank change the signature of method and add the following line in the beginning of method:

A possible version to method is:

ClassMethod workpieceUnit(mainArticle As %String, article As %String, unitCode As %string = "") As %String
{
    Return:(unitCode '= "") unitCode
    
	&SQL(SELECT unit->unitCode INTO :unitCode FROM production_article.composition WHERE mainArticle = :mainArticle AND article = :article)
	
	IF SQLCODE = 0
	{
		W !, "Has Value"
		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()
		{
			W !, "BEGENING OF LOOP FOR: "_rs.articleCode
			IF (rs.article = article)
			{
				SET unitCode = rs.unitCode
				Return unitCode
			}
			
			// CHECK IF WORKPIECE HAS COMPOSITION
			&SQL(SELECT COUNT(*) INTO :composition FROM production_article.composition WHERE mainArticle = :rs.article)
			
			IF (composition > 0)
			{
				W !, "START RECURSIVE"
				DO ..workpieceUnit(rs.article, article)
			}
		}
			
		W !, "END OF LOOP"
		Return unitCode
	}
	
	Return ""
}

Hi Maciej,

You can execute this query to achieve what you want:

SELECT
  Name,
  Super,
  CASE
    WHEN Super [ 'InboundAdapter' THEN 'InboundAdapter'
    ELSE 'OutboundAdapter'
  END "Type"
  FROM
    "%Dictionary".ClassDefinition
  WHERE
    Super LIKE '%InboundAdapter%'
    OR Super LIKE '%OutboundAdapter%'

In the IRIS 2021.1

Hi Kevin,

You can set programatically the value of property AppTimeout of the class %CSP.Session when the user login in the application.

Hi Andy,

The "problem" is that the Fetch is executed on the Namespace thats the zen page reside, and the data global doesn't exists or not mapped. A simple solution change the method to:

Method DataExtractionCurrent(Output tSC As %Status, pInfo As %ZEN.Auxiliary.QueryInfo) As %ResultSet [ ZenMethod ]
{
  New $Namespace
  set $Namespace = "DATAEXTRACTION"    
  
  #Dim result As %ScrollableResultSet = ##Class(%ScrollableResultSet).%New("%DynamicQuery:SQL")
  Set tSC=result.Prepare("SELECT * from FairWarning_Table_Local.Logs")
  Write !, tSC    //  value of 1
  Set tSC = result.Execute()
  Write !, tSC    //  value of 1
  Set tSC = result.%Save() // The class use temp globals that are mapped
  Write !, tSC    //  value of 1
  Return result
}

Bellow a test if your code:

The suggested code:

Regards

Hi @Mary George you can use the WebGateway EventLog to capture more informations about the request did to WebGateway.

See the documentation: https://docs.intersystems.com/iris20201/csp/docbook/DocBook.UI.Page.cls?KEY=GCGI_oper_config#GCGI_config_parms_system_event

Hi @Andrew Neilson 

Wonderful. I see the 20th message.

Hi @Rochdi Badis 

Complementing @David Hockenbroch answer, you need to change the If statement, because we can't compare TimeStamp directly, even in the internal format, because in the comparision they are treated like strings.

Use some one of these methods:

$System.SQL.Functions.DATEDIFF 

##Class(%Library.UTC).Compare

##Class(%Library.UTC)Diff

Hi Evgeny,

You can handle deploy of Production Items and Configurations with the classes of package: Ens.Deployment

More about deployment of productions

Other way you can implement Production Source Control.

Regards.

Hi Rochdi,

The HTTP error 500 indicates that something happened in the server that's cause a error.

I suggest you to do a test using postman or similar REST tool. If the works fine, maybe you can posted the JSON with some problem.

Another suggest, change your code :

 While ('File.AtEnd) {
    s Line=Line_File.Read(1000)_$char(10)
  }
  do Httprequest.EntityBody.Write(Line)

By:
  do Httprequest.EntityBody.CopyFrom(File)

Regards.

Hi Nilson,

Check the credentials (username and password) the error reported was "Access denied".

Hi Harshdeep,

The error invalid of is like a Java NullPointerException  or NullReferenceException of .Net.

Check if intFaceDao or InterfaceDaoa are valid objects. Put these macros in you code e execute a test.

 $$$LOGINFO("Check intFaceDado " _ ..Adapter.intFaceDao)
 $$$LOGINFO("Check DaoInterfaceDado" _ ..Adapter.intFace.DaoInterfaceDao)

After execution, see in the Envent Log the result.

Regards

Hi Prashanth,

You need to create another web application with Authentication Method equal unauthenticated.

Default web application:

Unauthenticated Web Application:

Samples of access:

Regards.

Cristiano José da Silva.

Hi Michel,

Yes, your SELECT statement returns the ID of he class. The ID of the %Dictionary.IndexDefinition class is compounded by parent||Name. The property parent is a reference to the class definition that contains the index.

See:

See the documentation for more information: 

https://docs.intersystems.com/irislatest/csp/documatic/%25CSP.Documatic....

HI @phillip jack,

Like @Eduard Lebedyuk told, the better way is using stored procedures written in COS, but if you want to use only SQL you can try this:

SELECT ID, $LISTGET($LISTGET($LISTGET(Skill)),1) PSKILL, $LISTGET($LISTGET($LISTGET(Skill)),2) OSKILL FROM myclass.DataBase
 

If you change the serial object and add more properties increment the outer $LISTGET last parameter

Regards,

Cristiano José da Silva.