New post
AllAccepted answers
Kurro Lopez · May 21, 2019

Ok, it was due server port. Now it is connected with the server, but ObjectScript VSCode extension is disabled. Now, I'm not able to compile :(

All previous configuration for ObjectScript VSCode extension was working, and the configuration still in folder configuration and workspace configuration.

Edited: If I disable Serenji, ObjectScript VSCode begin to work

Kurro Lopez · May 21, 2019

Hi George,

I'm trying to configure Serenji in server and client. In workspace configuration I've got the following code:

"settings": {
        "objectscript.conn.host": "1.1.1.1",
        "objectscript.conn.label": "DEV",
        "objectscript.conn.password": "<myPassword>",
        "objectscript.conn.version": 2,
        "objectscript.conn.active": true,
        "objectscript.autoCompile": true,
        "objectscript.autoPreviewXML": true,
        "serenji.servers": {
            "1.1.1.1":{
                "host": "1.1.1.1",
                "port":43221,
                "username":"_SYSTEM",
                "password": "<myPassword>"
            }
        }
    }

I've replaced IpServer and myPassword for security.

In server I've installed as is explained in https://georgejames.com/files-cgi/doc/serenji/3.0.2/GettingStarted.html

Now, my question is... How to sync the code? I'm not see any menu item or something to do it, maybe I'm not using correctly.

Best regards.

Edited: I've created the worspace and it is trying to connect, but I have the following error:

 
[trace] stat /
[error] Timed out connecting to Serenji Service at 1.1.1.1:43221 (1.1.1.1)
 

 (Real IP is changed)

The server hasn't any firewall that is blocking it. Any idea?

Kurro Lopez · May 10, 2019

Well, next time I need to read the documentation in depth.

There is a base method to check if a class extends of other one

set obj = ##class(MyLibrary.ChildClass01).%New()

## this retrieves 1
w obj.%Extends("MyLibrary.ParentClass")

## this retrieves 0
w obj.%Extends("MyLibrary.ParentClassFake")

This has been a "Rubber duck", this is a sample of guide-book of rubber duck. wink

More info Clase %Library.SystemBase

Best regards,

Francisco López

Kurro Lopez · May 3, 2019

Hi,

Try the following code. It only works if the class parent is Ens.DataTransformDTL

// Create a query to get only my class (in MyClass and sub folders)

set query="SELECT ID FROM %Dictionary.ClassDefinition WHERE ID LIKE 'MyClass.%' AND super='Ens.DataTransformDTL'"

set tStatement = ##class(%SQL.Statement).%New() 

set qStatus=tStatement.%Prepare(query)

set tResult = tStatement.%Execute()

while tResult.%Next() {

   set dtlName = tResult.%Get("ID")

   set classObject = $CLASSMETHOD(dtlName ,"%New")
   
   write !,"DTL: "_dtlName
   write !,"Source type: "_classObject.GetSourceType()
   write !,"Target type: "_classObject.GetTargetType()
   write !

}

Remember: It works only if the class inherits from Ens.DataTransformDTL , if you know which class is the one that inherits the DTL you want to examine, change the name of the value of 'Super' in the previous query

Best regards,

Francisco Lopez