Entre-temps, j'ai trouvé une meilleure solution, activez l'authentification OS level : 

ensuite dans le "%Service.Console":

Lorsque je fais cela sur mon installation irissession instance_name ne nécessite plus de mot de passe et la session est démarrée avec le compte windows actuellement connecté.  Cela implique toutefois logiquement de créer un utilisateur IRIS avec le même nom que le compte de connection Windows utilisé.  Dans mon cas, ce compte avait déjà été créé.

en faisant:

Write $Username

Vous pourrez vérifier quel est le compte qui a ouvert la session.
Si cette solution peut fonctionner dans votre environnement, c'est probablement la meilleure et plus sécurisée.

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.