Salut @Julia Pertin ,

Pour créer un un %DynamicObject tu peux utiliser les syntaxes suivantes : 

set obj = {}
; ou
Set obj = ##class(%DynamicObject).%New()

ZEN étant déprécié, j'imagine que la classe %ZEN.proxyObject l'est aussi (je déconseil son utilisation dans un nouveau développement ;-) ).  

Il y a eu des changements dans les dernières versions d'IRIS avec la gestion des streams dans les %DynamicObject, j'ai tenté d'adapter votre code en le simplifiant un peu, mais je n'ai pas vraiment pu le tester:

    Set obj = {}
    Set update = $CLASSMETHOD(classname,"%OpenId",id)
    Set property = $Property(update, propertyName)
    If $Isobject(property), property.%IsA("%Stream.GlobalBinary") {
        Set pnewContent = ##class(%Stream.GlobalCharacter).%New()
        Do property.Rewind()
        While 'property.AtEnd {
            Do pnewContent.Write($zcvt(property.ReadLine(),"O", "UTF8"))
        }
        Do obj.%Set(sqlFieldName, pnewContent, "stream>base64")
    }

La méthode %Set avec comme 3ème argument "stream>64" de set le stream dans le %DynamicObject en le convertissant directement en base64.

L'inverse est aussi possible avec la methode %Get (ex : obj.%Get(sqlFieldName,"stream<base64") ).
J'espère que ça aidera.

Bonjour @Jules Pontois ,

Oui, tout à fait, c'est pas évident à voir.

A ma connaissance, on ne sait pas forcer l'affichage de ses méthodes malheureusement.

Sous VSCode, il faut faire clique droit -> View Other ou shift+ctrl+v (dans le panel avec le de code de la classe) et ça ne fonctionne que si le flag "k" a été utilisé pour compiler:

    k - Keep source.  When this flag is set, source code of
        generated routines will be kept.

donc oui, il est parfois nécessaire de refaire un $SYSTEM.OBJ.Compile(<class>, "brck") sinon nous n'y avons pas accès.

Si quelqu'un à une astuce pour afficher les méthodes générées qu'il n'hésite pas a partager, ça m'interesse aussi 😉

Bonsoir @Jules Pontois 

Oui dans le cas ou une classe hérite de "XXXX.Outils.BS.ComplexMap.FTP" effectivement les méthodes sont générées dans toutes les classes et les appels ##super ne vous arrange pas.

En fait, si on retire le keyword "ForceGenerate" des méthodes "objectgenerator", les méthodes ne seront générées que dans la sous classe direct.  J'ai utilisé ce keyword pour être sûr que ce soit au moins généré dans sa première sous-classe, mais après avoir fait un test sur ma machine, ce n'est visiblement pas nécessaire.  Vous pouvez donc retirer ce keyword de la classe common, cela devrait régler le problème.

Toutefois si dans l'une de vos sous classes vous faites un override de SendRequestSync\SendRequestAsync en se terminant par ##super, la méthode exécutée par le ##super sera celle injectée par la sous classe direct de "AuditCommons".  Ce n'est pas vraiment un problème, car nous pouvons contrôler cela via un "Parameter" ou encore plus simplement avec un Cast, exemple:

Class XXXX.Outils.BS.ComplexMap.Sub Extends XXXX.Outils.BS.ComplexMap.FTP
{

Method SendRequestSync(pTargetDispatchName As %String, pRequest As %Library.Persistent, ByRef pResponse As %Library.Persistent, pTimeout As %Numeric = -1, pDescription As %String = "") As %Status
{
    ; ...
    ; lignes de code spécifiques à cette classe
    ; bla bla
    ; ...
    ; maintenant on délègue à EnsLib.RecordMap.Service.ComplexBatchFTPService sans passer
    ; par la méthode générée dans XXXX.Outils.BS.ComplexMap.FTP
    Quit ##class(EnsLib.RecordMap.Service.ComplexBatchFTPService)##this.SendRequestSync(pTargetDispatchName, pRequest, .pResponse, pTimeout, pDescription)
}

}

Voilà, j'ai tenté d'adapter votre classe common avec du codemode = objectgenerator:

Include Ensemble

Class XXXX.Outils.BS.AuditCommons
{

/// Class of the audit to use for this flow. If the flow use
/// iterative process, for instance a loop to inserted multiple
/// lines in a table, you can use its insertdetails() method to
/// log an error that occured in the loop without poluting
/// the journal.
Property auditClass As %String(MAXLEN = 500) [ InitialExpression = "XXXX.REPORTING.Tables.Commons.Main" ];
/// Name of the flow that will be inserted in the audit.
Property flowName As %String(MAXLEN = 500);
/// Source of the flow that will be inserted in the audit.
Property flowSource As %String(MAXLEN = 500);
/// Target of the flow that will be inserted in the audit.
Property flowTarget As %String(MAXLEN = 500);
/// If true, the message will be sent synchronously.
Property asynchronous As %Boolean;
/// Audit instance of the current session /// XXXX.REPORTING.Tables.Commons.Main;
Property audit As XXXX.REPORTING.Tables.Commons.Main;
Property errMsg As %String(MAXLEN = "");
Parameter auditLogError = 1;
Parameter SETTINGS = "auditClass:flowParameters,flowName:flowParameters,flowSource:flowParameters,flowTarget:flowParameters,asynchronous:flowParameters";
Method SendRequestSync(pTargetDispatchName As %String, pRequest As %Library.Persistent, ByRef pResponse As %Library.Persistent, pTimeout As %Numeric = -1, pDescription As %String = "") As %Status [ CodeMode = objectgenerator, ForceGenerate ]
{
	; Le code ne peut être généré que dans les sous classes
	If %class.Name = "XXXX.Outils.BS.AuditCommons" Quit $$$OK
	Do %code.WriteLine($Char(9) _ "if ..asynchronous quit ..SendRequestAsync(pTargetDispatchName, pRequest, pDescription)")
	Do %code.WriteLine($Char(9) _ "set pResponse = """"")
	Do %code.WriteLine($Char(9) _ "set sc = ..initAudit(pRequest) quit:'sc sc")
	Do %code.WriteLine($Char(9) _ "set req = ..setReq(pRequest, .sc) quit:'sc sc")
	Do %code.WriteLine($Char(9) _ "quit ##super(pTargetDispatchName, req, .pResponse, .pTimeout, pDescription)")
	
	Quit $$$OK
}

Method SendRequestAsync(pTargetDispatchName As %String, pRequest As %Library.Persistent, pDescription As %String = "") As %Status [ CodeMode = objectgenerator, ForceGenerate ]
{
	; Le code ne peut être généré que dans les sous classes
	If %class.Name = "XXXX.Outils.BS.AuditCommons" Quit $$$OK
	Do %code.WriteLine($Char(9) _ "if '..asynchronous quit ..SendRequestSync(pTargetDispatchName, pRequest, .pResponse, .pTimout, pDescription)")
	Do %code.WriteLine($Char(9) _ "set sc = ..initAudit(pRequest) quit:'sc sc")
	Do %code.WriteLine($Char(9) _ "set req = ..setReq(pRequest, .sc) quit:'sc sc")
	Do %code.WriteLine($Char(9) _ "quit ##super(pTargetDispatchName, req, pDescription)")
}

/// Initialize an audit for the current session. You can
/// use the audit instance using the ..audit property.
Method initAudit(req As Ens.Request = "") As %Status
{
    do ..generateSession()
 
    set auditData = {
        "session": (..getSessionId())
        ,"flowName": (..flowName)
        ,"flowSource": (..flowSource)
        ,"flowTarget": (..flowTarget)
        ,"filename": (##class(XXXX.OUTILS.File.FileInfos).getFilename(req))
    }

    set ..audit = $CLASSMETHOD(..auditClass, "initialize", auditData, .sc)

    if 'sc return ..error("<Initialize audit>",, "initAudit", sc).AsStatus()

    if ..errMsg '= "" do ..audit.setError(..errMsg, ..#auditLogError)

    return 1
}

Method setReq(pRequest As %Library.Persistent, Output gsc As %String = 1) As Ens.Request
{
    return pRequest
}

Method generateSession() [ CodeMode = objectgenerator, ForceGenerate ]
{
	; Le code ne peut être généré que dans les sous classes
	If %class.Name = "XXXX.Outils.BS.AuditCommons" Quit $$$OK
    Do %code.WriteLine($Char(9)_"Set (..%SessionId,$$$JobSessionId) = ##class(Ens.MessageHeader).%New().MessageId()")
}

Method getSessionId() As %String [ CodeMode = objectgenerator, ForceGenerate ]
{
	; Le code ne peut être généré que dans les sous classes
	If %class.Name = "XXXX.Outils.BS.AuditCommons" Quit $$$OK
    Do %code.WriteLine($Char(9) _ "Quit ..%SessionId")
}

ClassMethod OnGetConnections(pArray As %String, item As Ens.Config.Item) As %Status
{
    do ##class(XXXX.OUTILS.Admin).linkBsToBp(.pArray, .item)
}

/// Method used as an alias to shorten the code.
ClassMethod error(name As %String, code As %String = "", location As %String = "", data As %String = "") As %Exception.General
{
    return ##class(%Exception.General).%New(name, code, location, data)
}

}

ensuite, pour la classe "XXXX.Outils.BS.ComplexMap.FTP", modifiez juste l'ordre de l'héritage : 

Class XXXX.Outils.BS.ComplexMap.FTP Extends (XXXX.Outils.BS.AuditCommons, EnsLib.RecordMap.Service.ComplexBatchFTPService)
{

}

Après compilation si vous regardez le code de la routine générée pour la classe ComplexMap.FTP (ctrl+maj+v) vous pourrez remarquer que le code des méthodes [ codemode = objectgenerator, ForceGenerate] a bien été inclus:

zSendRequestAsync(pTargetDispatchName,pRequest,pDescription="") public {
	if '..asynchronous quit ..SendRequestSync(pTargetDispatchName, pRequest, .pResponse, .pTimout, pDescription)
	set sc = ..initAudit(pRequest) quit:'sc sc
	set req = ..setReq(pRequest, .sc) quit:'sc sc
	quit ##class(XXXX.Outils.BS.AuditCommons)$this.SendRequestAsync(pTargetDispatchName, req, pDescription)
}
zSendRequestSync(pTargetDispatchName,pRequest,pResponse,pTimeout=-1,pDescription="") public {
	if ..asynchronous quit ..SendRequestAsync(pTargetDispatchName, pRequest, pDescription)
	set pResponse = ""
	set sc = ..initAudit(pRequest) quit:'sc sc
	set req = ..setReq(pRequest, .sc) quit:'sc sc
	quit ##class(XXXX.Outils.BS.AuditCommons)$this.SendRequestSync(pTargetDispatchName, req, .pResponse, .pTimeout, pDescription)
}
zgenerateSession() public {
	Set (..%SessionId,%Ensemble("SessionId")) = ##class(Ens.MessageHeader).%New().MessageId()
}
zgetSessionId() public {
	Quit ..%SessionId }

Logiquement comme la classe common n'hérite plus de Ens.BusinessService, le fait qu'elle soit la classe la plus à gauche dans l'ordre d'héritage ne devrait plus avoir d'influence négative.

Bonjour @Cyril Grosjean ,

Je devrais pouvoir vous fournir quelques informations pouvant vous être utile.

Dans ma boîte, entre d'autres choses, je m'occupe de l'écriture de scripts de deploy pour nos environnements internes.

La solution que je pense la plus simple est d'écrire une classe (ou une routine) qui sera votre script principal pour toutes les actions à effectuer.  

Le tuto que vous avez suivi, n'est pas vraiment adapté.  Il y a quelques années, je l'ai testé par curiosité, mais c'est vraiment pour faire de l'émulation terminal.

Voici un exemple de classe qui se positionne sur un namespace, charge et compile un répertoire:

Class dc.DeployDemo
{

ClassMethod deploy(
	sourceDirectory As %String,
	targetNameSpace As %String)
{
    Set startNameSpace = $Namespace

    Write !, $ZDateTime($Horolog, 3, 1) _ " Start deploy"

    ; L'utilisation du new $namespace permet au système 
    ; de revenir automatiquement sur le namspace d'origine en quittant la méthode
    New $Namespace

    Set $Namespace = targetNameSpace
    
    Write !, $ZDateTime($Horolog, 3, 1) _ " Switch to namespace "_$Namespace

    Write !, $ZDateTime($Horolog, 3, 1) _ " Load and compile directory " _ sourceDirectory

    ; le 4ème argument permet de faire un chargement récursif (inclusion des sous répertoires)
    Set sc = $SYSTEM.OBJ.LoadDir(sourceDirectory, "ck", , 1)

    Set msgStatus = $Select($$$ISERR(sc):$SYSTEM.Status.GetOneErrorText(sc),1:"OK")

    Write !, $ZDateTime($Horolog, 3, 1) _ " Status " _ msgStatus

    Quit
}

}

Préparer ensuite un fichier texte contenant le code à exécuter (pour l'exemple le fichier texte est c:\dev\script.txt): 

Do ##class(dc.DeployDemo).deploy("c:\src\cls","namespace")
Halt

dès que le fichier est prêt, vous pouvez utiliser irissession et y injecter les commandes:

irissession IRIS -U USER < c:\dev\script.txt

Ceci reste qu'un exemple assez basic, n'hésitez pas à me contacter sur Discord, nous pourrons échanger verbalement plus rapidement sur le sujet si vous le souhaitez.

Lorenzo.

Re,

Attention l'utilisation de CDATA doit être : 

        	<![CDATA[<IDBRIEFS>2</IDBRIEFS>
        	<Numero>8</Numero>]]>

Dans ce cas, il faut modifier le type de la property "Contenu" en %Stream.GlobalCharacter:

Class demo.correlate.structure.TableName Extends (%RegisteredObject, %XML.Adaptor)
{

Property Table As %String;
Property Action As %String;
Property CleIris As %String;
Property nIdentifiant As %String;
Property IdIris As %String;
Property Contenu As %Stream.GlobalCharacter;
}

Class demo.correlate.Test
{

/// Do ##class(demo.correlate.Test).Test()
ClassMethod Test()
{
	#dim data As demo.correlate.structure.Data
	#dim tableName As demo.correlate.structure.TableName
	
	Set xmlTest = ##class(%Dictionary.CompiledXData).%OpenId($classname()_"||XMLTest",,.sc).Data
	
	If $$$ISERR(sc) Do $SYSTEM.Status.DisplayError(sc) Quit sc
	
	Set reader=##class(%XML.Reader).%New()
	Do reader.Correlate("data","demo.correlate.structure.Data")
	Set sc = reader.OpenStream(.xmlTest)
	Do reader.Next(.data)
		
	Set key = ""
	Set tableName = data.tablename.GetNext(.key)
	While key '= "" {
		Write !,"+ table: ", tableName.Table
		Write !,"+ Contenu: ", tableName.Contenu.Read()
		Set tableName = data.tablename.GetNext(.key)
	}
	
	Quit $$$OK
}

XData XMLTest
{
<?xml version="1.0" encoding="UTF-8"?>
<data>
    <tablename>
        <Table>Erp.BRIEFS</Table>
        <Action>HAjoute</Action>
        <CleIris>IDBRIEFS</CleIris>
        <nIdentifiant>2</nIdentifiant>
        <IdIris>137</IdIris>
        <Contenu>
        	<![CDATA[<IDBRIEFS>2</IDBRIEFS>
        	<Numero>8</Numero>]]>
        </Contenu>
    </tablename>
    <tablename>
        <Table>Erp.COMMANDES</Table>
        <Action>HAjoute</Action>
        <CleIris>IDCOMMANDES</CleIris>
        <nIdentifiant>5</nIdentifiant>
        <IdIris>138</IdIris>
        <Contenu>
       		<![CDATA[<IDCOMMANDES>5</IDCOMMANDES>
            <CLISId>4399</CLISId>]]>
        </Contenu>
    </tablename>
</data>
}

}

A l'exécution de la méthode test, vous aurez

USER>Do ##class(demo.correlate.Test).Test()
 
+ table: Erp.BRIEFS
+ Contenu:
                        <IDBRIEFS>2</IDBRIEFS>
                                                        <Numero>8</Numero>
                                                                                 
+ table: Erp.COMMANDES
+ Contenu:
                                <IDCOMMANDES>5</IDCOMMANDES>
                                                                        <CLISId>4399</CLISId>

Vous pouvez donc récupérer toutes les occurrences de "Contenu" dans des streams séparés et faire d'autres correlate :)

Re @Julia Pertin ,

Il manque %XML.Adaptor sur replic.msg.XMLStructure, essayez comme ceci : 

Class replic.msg.XMLStructure Extends (%Persistent, %XML.Adaptor)
{
Parameter XMLNAME = "data";
Property tablename As list Of replic.msg.XML(XMLPROJECTION = "ELEMENT");
}

Bonjour @Julia Pertin ,

Voici un exemple avec votre xml: 

La classe de test avec votre XML (par facilité pour je l'ai mis dans un XData): 

Class demo.correlate.Test
{

/// Do ##class(demo.correlate.Test).Test() As %Status
ClassMethod Test()
{
	#dim data As demo.correlate.structure.Data
	#dim tableName As demo.correlate.structure.TableName
	
	Set xmlTest = ##class(%Dictionary.CompiledXData).%OpenId($classname()_"||XMLTest",,.sc).Data
	Quit:$$$ISERR(sc) sc
	
	Set reader=##class(%XML.Reader).%New()
	Do reader.Correlate("data","demo.correlate.structure.Data")
	Set sc = reader.OpenStream(.xmlTest)
	Do reader.Next(.data)
		
	Set key = ""
	Set tableName = data.tablename.GetNext(.key)
	While key '= "" {
		Write !,"+ table ", tableName.Table
		Set tableName = data.tablename.GetNext(.key)
	}
	
	Quit $$$OK
}

XData XMLTest
{
<?xml version="1.0" encoding="UTF-8"?>
<data>
    <tablename>
        <Table>Erp.BRIEFS</Table>
        <Action>HAjoute</Action>
        <CleIris>IDBRIEFS</CleIris>
        <nIdentifiant>2</nIdentifiant>
        <IdIris>137</IdIris>
        <Contenu></Contenu>
    </tablename>
    <tablename>
        <Table>Erp.COMMANDES</Table>
        <Action>HAjoute</Action>
        <CleIris>IDCOMMANDES</CleIris>
        <nIdentifiant>5</nIdentifiant>
        <IdIris>138</IdIris>
        <Contenu></Contenu>
    </tablename>
</data>
}

}

Ensuite les deux classes correspondantes à la structure du xml (Data et TableName):

Class demo.correlate.structure.Data Extends (%RegisteredObject, %XML.Adaptor)
{

Parameter XMLNAME = "data";
Property tablename As list Of demo.correlate.structure.TableName(XMLPROJECTION = "ELEMENT");
}

Class demo.correlate.structure.TableName Extends (%RegisteredObject, %XML.Adaptor)
{

Property Table As %String;
Property Action As %String;
Property CleIris As %String;
Property nIdentifiant As %String;
Property IdIris As %String;
Property Contenu As %String;
}

En exécutant la méthode Test dans le terminal, elle affichera le contenu de property "Table":

USER>Do ##class(demo.correlate.Test).Test()
 
+ table Erp.BRIEFS
+ table Erp.COMMANDES

J'espère que cet exemple vous aidera dans votre developpement.

Bonne journée.

Bonsoir @Jean-Charles Cano ,

Avez-vous déjà essayé avec runw?  Voici un exemple de structure de la commande pour démarrer une classmethod:  

iris runw INSTANCENAME ##class(Package.Class).ClassMethod(\"argument\") NAMESPACE

L'exe iris se trouve dans le sous répertoire bin de l'instance IRIS.

pour démarrer un terminal en ligne de commande utilisez irissession:

irissession INSTANCENAME -U NAMESPACE

# ex:
irissession IRIS -U USER

# il est également possible de démarrer un programme, ex:

irissession IRIS -U %SYS ^%SS