accéder à la publication Sylvain Guilbaud · Sept 20, 2023 Le code du Business Service : Class EP.service.replication Extends Ens.BusinessService { Property Adapter As Ens.InboundAdapter; Parameter ADAPTER = "Ens.InboundAdapter"; Property TargetConfigNames As %String(MAXLEN = 1000); Property sync As %Boolean [ InitialExpression = 1 ]; Parameter SETTINGS = "sync:Advanced,TargetConfigNames:Basic:selector?multiSelect=1&context={Ens.ContextSearch/ProductionItems?targets=1&productionName=@productionId}"; Method OnProcessInput(pInput As %RegisteredObject, Output pResponse As Ens.StringResponse) As %Status { set tSC = $$$OK for iTarget=1:1:$L(..TargetConfigNames, ",") { set tOneTarget=$ZStrip($P(..TargetConfigNames,",",iTarget),"<>W") Continue:""=tOneTarget $$$TRACE("The target '"_tOneTarget_"' will be called "_$SELECT(..sync=1:"synchronously",..sync=0:"synchronously")) if ..sync { set tSC1=..SendRequestSync(tOneTarget,pInput,.pResponse) Set:$$$ISERR(tSC1) tSC=$$$ADDSC(tSC,tSC1) } else { set tSC1=..SendRequestAsync(tOneTarget,pInput) Set:$$$ISERR(tSC1) tSC=$$$ADDSC(tSC,tSC1) } } return tSC } /// Return an array of connections for drawing lines on the config diagram ClassMethod OnGetConnections(Output pArray As %String, pItem As Ens.Config.Item) { Do ##super(.pArray,pItem) If pItem.GetModifiedSetting("TargetConfigNames",.tValue) { For i=1:1:$L(tValue,",") { Set tOne=$ZStrip($P(tValue,",",i),"<>W") Continue:""=tOne Set pArray(tOne)="" } } } }
accéder à la publication Sylvain Guilbaud · Sept 20, 2023 Pour illustrer avec un exemple concret, j'ai développé un flux qui devrait t'aider à réaliser ce que tu veux : Trace avec appel asynchrone : Trace avec appel synchrone : Avec la réponse qui remonte bien jusqu'au Business Service :
accéder à la publication Sylvain Guilbaud · Sept 20, 2023 Bonjour @Julia Pertin, si j'ai bien compris ton besoin, pour régler ton problème qui consiste à éviter de récupérer plusieurs fois le même flux json, ton Business Service doit servir uniquement à appeler un Business Process, qui lui va se charger de récupérer le flux json pour le passer à une Business Operation. Dans le cas où ton Business Service appelle le Business Process de manière synchrone, il attendra bien la réponse avant de s'exécuter à nouveau.Dans le cas contraire, c'est à dire si le Business Process est appelé de manière asynchrone, le Business Service fera un nouvel appel à chaque atteinte du temps prévu par le paramètre "INTERVALLE ENTRE APPELS".
accéder à la publication Sylvain Guilbaud · Sept 15, 2023 Réponse de @Dmitry Maslennikov Pour quelques versions déjà, Caché et IRIS prennent déjà en charge OAuth2 dès le départ. Regardez la documentation. Cela dépend de votre architecture, vous pouvez utiliser cette méthode ou utiliser n'importe quel fournisseur d'identité externe comme keycloack. Et je pense qu'IAM peut également vous aider.
accéder à la publication Sylvain Guilbaud · Sept 15, 2023 Réponse de @Rob Tweed Nous avons deux produits Open Source qui prendront en charge les JWT pour vous de la manière correspondant à ce que vous demandez (c'est-à-dire les services REST avec IRIS) : - QEWD, si vous souhaitez tout implémenter en back-end dans Node.js / JavaScript - mgweb-server si vous souhaitez utiliser la logique ObjectScript pour votre logique back-end Pour QEWD et IRIS, voir : https://github.com/robtweed/qewd-starter-kit-iris-networked En particulier pour les services REST, voir : https://github.com/robtweed/qewd-starter-kit-iris-networked/blob/master/... et plus précisément cette section: https://github.com/robtweed/qewd-starter-kit-iris-networked/blob/master/... Pour le serveur mgweb, voir : https://github.com/robtweed/mgweb-server spécifiquement utilisé avec IRIS : https://github.com/robtweed/mgweb-server/blob/master/IRIS.md et dans ce document, cette section sur les JWT : https://github.com/robtweed/mgweb-server/blob/master/IRIS.md#using-json-... Rob
accéder à la publication Sylvain Guilbaud · Sept 13, 2023 Hâte de voir quels sont les gagnants des prix InterSystems 😀
accéder à la publication Sylvain Guilbaud · Sept 13, 2023 Je t'en prie, mon cher @Robert Cemper ; merci à toi de continuer de publier et d'aider la communauté à un rythme aussi soutenu.
accéder à la publication Sylvain Guilbaud · Sept 12, 2023 @Luis Angel Pérez Ramos propose une autre solution, hors Embedded Python : Eh bien, si votre instance IRIS ne prend pas en charge Embedded Python, vous pouvez procéder comme suit (si vous utilisez un serveur Linux) : Installez une application comme ImageMagick sur votre serveur À partir de votre opération commerciale, utilisez la fonction $ZF(-100) pour exécuter sur le serveur la commande magique permettant de convertir le PDG en JPG, quelque chose comme : $ZF(-100,"","magick","\usr\image.pdf","\usr\image.jpg") Peut-être que cela prend un certain temps, vous pouvez attendre la fin de l'exécution ou simplement créer un service métier pour obtenir tous les nouveaux fichiers PDF.
accéder à la publication Sylvain Guilbaud · Sept 12, 2023 Dans ce cas, @Ben Spead propose d'installer Python sur le serveur avec la bibliothèque que l'on souhaitez utiliser et d'appeler le script Python via $zf(-100). Plus tard, lorsque d'une mise à niveau de l'environnement, il sera possible de passer directement à l’utilisation de Embedded Python.
accéder à la publication Sylvain Guilbaud · Sept 12, 2023 Malheureusement, l'environnement de @Gilberto Alves n'est pas prêt à utiliser Embedded Python.
accéder à la publication Sylvain Guilbaud · Sept 12, 2023 @Ben Spead a donné une première réponse en proposant d'utiliser Embedded Python : Cela ressemble à un exemple classique d'exploitation de Python intégré dans IRIS pour utiliser le très grand nombre de bibliothèques Python qui font à peu près n'importe quoi :) Voici un article que j'ai trouvé lors d'une recherche rapide sur Google sur la façon de procéder en Python : https://www.geeksforgeeks.org/convert-pdf-to-image-using-python/ Vous pouvez simplement exploiter les capacités Python d'InterSystems IRIS pour utiliser la façon dont ce problème a été résolu en Python !
accéder à la publication Sylvain Guilbaud · Sept 12, 2023 Oui, le GRANT on SCHEMA ou GRANT on * simplifie clairement la chose 😀Cela fait partie du standard SQL mais on n'y pense pas d'emblée.
accéder à la publication Sylvain Guilbaud · Sept 12, 2023 Cela fonctionne aussi pour tous les objets d'un namespace : GRANT SELECT ON * TO ROLE|USER
accéder à la publication Sylvain Guilbaud · Sept 11, 2023 @Alexander Koblov vient de me donner la solution.La commande GRANT ... ON SCHEMA ... répond parfaitement au besoin. GRANT SELECT ON SCHEMA data TO ROLE|USER Et ce qui est cool, c'est que dès que votre utilisateur a reçu un GRANT sur un schéma, lorsque vous modifiez ensuite l'utilisateur dans le portail de gestion de la sécurité, vous pouvez voir dans l'onglet Tables SQL toutes les tables apparaître au fur et à mesure de leur création.
accéder à la publication Sylvain Guilbaud · Sept 11, 2023 Bonjour @Franck Hanotin en utilisant un paramètre, tu peux utiliser le même code sur plusieurs globales : Class dc.axiell { Query data(globalName As %String) As %Query(ROWSPEC = "key1:%String,key2:%String,key3:%String,key4:%String,key5:%String,key6:%String,datavalue:%String") [ SqlProc ] { } ClassMethod dataExecute(ByRef qHandle As %Binary, globalName As %String) As %Status { Set qHandle("node") = globalName Quit $$$OK } ClassMethod dataFetch(ByRef qHandle As %Binary, ByRef Row As %List, ByRef AtEnd As %Boolean) As %Status [ PlaceAfter = dataExecute ] { Set sc = $$$OK Set qHandle("node") = $Query(@qHandle("node"), 1, data) If qHandle("node") = "" Set Row = "", AtEnd = $$$YES Quit $$$OK ; feeds the key x fields based on the subscripts of the global For i=1:1:$QLength(qHandle("node")) Set $List(Row, i) = $QSubscript(qHandle("node"), i) If i < 6 { ; if we do not have 6 subscripts, we feed the rest with an empty string For j = i+1:1:6 Set $List(Row, j) = "" } Set $List(Row, 7) = data, AtEnd = $$$NO Quit sc } ClassMethod dataClose(ByRef qHandle As %Binary) As %Status [ PlaceAfter = dataExecute ] { Kill qHandle Quit $$$OK } /// just for some test data ClassMethod set() As %Status { set sc = $$$OK kill ^AFO s ^AFO("Site","Ville")="66722,3743" s ^AFO("Site","Ville","111BB","OBT")=",MMM,XXX," s ^AFO("Site","Ville","111OW","OBT")=",XXX,MMM," s ^AFO("Site","Ville","AANVRBIBS","zzz") = "1^^1" s ^AFO("Site","Ville","AANVRBIBS","zzz","*","dut") = "*afhalen waar gevonden" s ^AFO("Site","Ville","AANVRBIBS","zzz","*","eng") = "*Pickup where found" s ^AFO("Site","Ville","AANVRBIBS","zzz","*","fre") = "*Lieu où trouvé" kill ^AAA s ^AAA(1,2)="66722,3743" s ^AAA(1,2,"3","4") =",MMM,XXX," s ^AAA(1,2,"4","5") =",XXX,MMM," s ^AAA(1,2,3,4) = "1^^1" s ^AAA(1,2,3,4,"*","dut") = "*afhalen waar gevonden" s ^AAA(1,2,3,4,"*","eng") = "*Pickup where found" s ^AAA(1,2,3,4,"*","fre") = "*Lieu où trouvé" kill ^BBB s ^BBB("en") ="Hello" s ^BBB("en","sub") ="World" s ^BBB(1,2,3) ="BBB" s ^BBB(1,2,3,4) = "BBB^^BBB" kill ^CCC s ^CCC("fr") ="Bonjour" s ^CCC("fr","sub") ="la Communauté" s ^CCC(1,2,3,"QUATRE","CINQ","SIX") ="6" s ^CCC(1,2,3,4,"5","6") ="6" s ^CCC("UN","DEUX","TROIS") ="3" return sc } } IRISAPP>:sql SQL Command Line Shell ---------------------------------------------------- The command prefix is currently set to: <<nothing>>. Enter <command>, 'q' to quit, '?' for help. [SQL]IRISAPP>>select * from dc.axiell_data('^AFO') 34. select * from dc.axiell_data('^AFO') key1 key2 key3 key4 key5 key6 datavalue Site Ville 66722,3743 Site Ville 111BB OBT ,MMM,XXX, Site Ville 111OW OBT ,XXX,MMM, Site Ville AANVRBIBS zzz 1^^1 Site Ville AANVRBIBS zzz * dut *afhalen waar gevonden Site Ville AANVRBIBS zzz * eng *Pickup where found Site Ville AANVRBIBS zzz * fre *Lieu où trouvé 7 Rows(s) Affected statement prepare time(s)/globals/cmds/disk: 0.0003s/4/139/0ms execute time(s)/globals/cmds/disk: 0.0023s/11/3,294/0ms query class: %sqlcq.IRISAPP.cls59 --------------------------------------------------------------------------- [SQL]IRISAPP>>select * from dc.axiell_data('^AAA') 35. select * from dc.axiell_data('^AAA') key1 key2 key3 key4 key5 key6 datavalue 1 2 66722,3743 1 2 3 4 1^^1 1 2 3 4 * dut *afhalen waar gevonden 1 2 3 4 * eng *Pickup where found 1 2 3 4 * fre *Lieu où trouvé 1 2 4 5 ,XXX,MMM, 6 Rows(s) Affected statement prepare time(s)/globals/cmds/disk: 0.0002s/4/139/0ms execute time(s)/globals/cmds/disk: 0.0014s/10/3,099/0ms query class: %sqlcq.IRISAPP.cls59 --------------------------------------------------------------------------- [SQL]IRISAPP>>select * from dc.axiell_data('^BBB') 36. select * from dc.axiell_data('^BBB') key1 key2 key3 key4 key5 key6 datavalue 1 2 3 BBB 1 2 3 4 BBB^^BBB en Hello en sub World 4 Rows(s) Affected statement prepare time(s)/globals/cmds/disk: 0.0003s/4/139/0ms execute time(s)/globals/cmds/disk: 0.0045s/8/2,702/0ms query class: %sqlcq.IRISAPP.cls59 --------------------------------------------------------------------------- [SQL]IRISAPP>>select * from dc.axiell_data('^CCC') 37. select * from dc.axiell_data('^CCC') key1 key2 key3 key4 key5 key6 datavalue 1 2 3 4 5 6 6 1 2 3 QUATRE CINQ SIX 6 UN DEUX TROIS 3 fr Bonjour fr sub la Communauté 5 Rows(s) Affected statement prepare time(s)/globals/cmds/disk: 0.0002s/4/139/0ms execute time(s)/globals/cmds/disk: 0.0018s/9/2,899/0ms query class: %sqlcq.IRISAPP.cls59 --------------------------------------------------------------------------- [SQL]IRISAPP>>q IRISAPP>
accéder à la publication Sylvain Guilbaud · Sept 8, 2023 Bonjour Franck,une autre façon consiste à définir un mapping utilisant le SQLStorage (comme nous avions commence à l'explorer ensemble). Même si Lorenzo t'a déjà donné la solution avec $Query, à toute fin utile pour d'autres cas, je t'invite à consulter les articles de @Brendan Bannon The Art of Mapping Globals to Classes 1 of 3 mappingexample1.zip The Art of Mapping Globals to Classes (2 of 3) mapping.example2.zip The Art of Mapping Globals to Classes (3 of 3) MappingExample3.zip The Art of Mapping Globals to Classes (4 of 3) The Art of Mapping Globals to Classes (5 of 3 avec tous les exemples ici
accéder à la publication Sylvain Guilbaud · Sept 4, 2023 Bonjour @yurimarx Marx, et aujourd'hui, vous pouvez ajouter à cette liste : Embedded Python Adaptive Analytics (AtScale) System Alerting and Monitoring (SAM) InterSystems Kubernetes Operator (IKO) Améliorations SQL sur les performances et les capacités (Global Iterator, Columnar Storage, Adaptive Parallel Execution, LOAD DATA, etc.) Améliorations du noyau (Mirroring, etc.) Améliorations sur la sécurité etc. (cf. release notes)
accéder à la publication Sylvain Guilbaud · Sept 4, 2023 Et cette diapositive date de plus de 2 ans...
accéder à la publication Sylvain Guilbaud · Sept 4, 2023 Bonjour @Yuri Marx, en le tout premier sujet, je mettrai en tête de liste : 0. meilleures performances Cela peut paraître évident, mais IRIS est **vraiment** plus rapide que Caché.
accéder à la publication Sylvain Guilbaud · Août 31, 2023 Le moyen le plus simple de toujours rester dans le siècle en cours est : $ZDATEH("26/05/23",4,,6) Il suffit d'utiliser yearopt = 6 pour obtenir toutes les dates qui n'ont que 2 chiffres dans le siècle courant. w $zdt($ZDATEH("26/05/23",4,,6),3) 2023-05-26 w $zdt($ZDATEH("26/05/1923",4,,6),3) 1923-05-26