Add Target Config Names

Author: cophilot

CHANGELOG.md

@@ -2,6 +2,12 @@
 
 ---
 
+## [v0.0.14](https://github.com/phil1436/ownobjectscriptextension/tree/0.0.14) (2023-5-9)
+
+-   Configuartion `Create > Service: Add Target Config Names` added
+
+---
+
 ## [v0.0.13](https://github.com/phil1436/ownobjectscriptextension/tree/0.0.13) (2023-5-3)
 
 -   Command `Create New Class` added

README.md

@@ -7,11 +7,11 @@ A [Visual Studio Code](https://code.visualstudio.com/) extension that supplies t
 ---
 
 -   [Features](#features)
-    -   [Create New Class](#create-new-class)
+    -   [Create New Class](#create-new-class-_beta_)
     -   [Add ObjectScript Modifier](#add-objectscript-modifier)
     -   [Add Method Description Template](#add-method-description-template)
     -   [Make Select Statement](#make-select-statement)
-    -   [Translate Embedded Python _BETA_](#translate-embedded-python-_beta_)
+    -   [Translate Embedded Python](#translate-embedded-python-_beta_)
 -   [Requirements](#requirements)
 -   [Installation](#installation)
 -   [Workspace](#workspace)
@@ -24,19 +24,22 @@ A [Visual Studio Code](https://code.visualstudio.com/) extension that supplies t
 -   [Configuration](#configuration)
     -   [Sql](#sql)
     -   [Comment](#comment)
+    -   [Create](#create)
 -   [Bugs](#bugs)
 -   [Release Notes](#release-notes)
 
 ---
 
 ## Features
 
-### `Create New Class`
+### `Create New Class` _BETA_
 
 Creates a new ObjectScript Class, Message, Business Service or Business Operation similar to the InterSystems Studio Wizard. Just execute the command and follow the instructions.
 
 ![DemoCreateNewClass](resources/DemoCreateNewClass.gif)
 
+> This feature is still in beta.
+
 ### `Add ObjectScript Modifier`
 
 This command automatically adds `Set`, `Do` and `Write` to your InterSystems ObjectScript code.
@@ -69,7 +72,7 @@ Translate an ObjectSCript Method to embedded python. Will generate a new method
 
 ![demoTranslateEmbeddedPython](https://github.com/phil1436/ownobjectscriptextension/raw/master/resources/demoTranslateEmbeddedPython.gif)
 
-> **This feature is still in beta.**
+> This feature is still in beta.
 
 ---
 
@@ -103,7 +106,7 @@ This extension will create a directory named _ownobjectscriptextension-workspace
 
 ### Own ObjectScript Create
 
--   `Create New Class`: Creates a new ObjectScript class. See [here](#create-new-class) for more information.
+-   `Create New Class`: Creates a new ObjectScript class. See [here](#create-new-class-beta) for more information.
 
 ### Own ObjectScript Modifier
 
@@ -148,6 +151,7 @@ Go to `File > Preferences > Settings` and than navigate to `Extensions > OwnObje
 ### Create
 
 -   `Ask For Package First`: Set if the extension should ask for the package first (Default: _disabled_).
+-   `Service: Add Target Config Names`: If enabled a property called `TargetConfigNames` will be added to your service, that represent the business partners inside of the production. (Default: _disabled_).
 
 ---
 
@@ -159,9 +163,9 @@ Go to `File > Preferences > Settings` and than navigate to `Extensions > OwnObje
 
 ## [Release Notes](https://github.com/phil1436/ownobjectscriptextension/blob/master/CHANGELOG.md)
 
-### [v0.0.13](https://github.com/phil1436/ownobjectscriptextension/tree/0.0.13)
+### [v0.0.14](https://github.com/phil1436/ownobjectscriptextension/tree/0.0.14)
 
--   Command `Create New Class` added
+-   Configuartion `Create > Service: Add Target Config Names` added
 
 ---
 

extension.js

@@ -693,22 +693,27 @@ function activate(context) {
             // get the code
             switch (kind) {
                 case 'Class':
-                    text = await wizard.createClass(className, packageName);
+                    text = await wizard.createClass(packageName, className);
                     break;
                 case 'Business Service':
                     text = await wizard.createBusinessService(
+                        packageName,
                         className,
-                        packageName
+                        vscode.workspace
+                            .getConfiguration(
+                                'ownobjectscriptextension.create.service'
+                            )
+                            .get('AddTargetConfigNames')
                     );
                     break;
                 case 'Business Operation':
                     text = await wizard.createBusinessOperation(
-                        className,
-                        packageName
+                        packageName,
+                        className
                     );
                     break;
                 case 'Message':
-                    text = await wizard.createMessage(className, packageName);
+                    text = await wizard.createMessage(packageName, className);
                     break;
                 default:
                     vscode.window.showErrorMessage('Something went wrong!');

package-lock.json

@@ -5,7 +5,7 @@
     "author": "Philipp B.",
     "publisher": "Philipp B.",
     "license": "MIT",
-    "version": "0.0.13",
+    "version": "0.0.14",
     "repository": {
         "type": "github",
         "url": "https://github.com/phil1436/ownobjectscriptextension"
@@ -112,6 +112,11 @@
                     "default": false,
                     "markdownDescription": "If enabled the command `Own ObjectScript Create: Create New Class` will first ask for the package name and then for the class name."
                 },
+                "ownobjectscriptextension.create.service.AddTargetConfigNames": {
+                    "type": "boolean",
+                    "default": false,
+                    "markdownDescription": "If enabled the command `Own ObjectScript Create: Create New Class` will add a TargetConfigName property to the service class."
+                },
                 "ownobjectscriptextension.comment.InLineCommentCount": {
                     "type": "number",
                     "default": 5,

package.json

@@ -70,7 +70,11 @@ async function createClass(packageName, className) {
  * @param {string} className The class name
  * @returns {Promise<string>} The class text
  */
-async function createBusinessService(packageName, className) {
+async function createBusinessService(
+    packageName,
+    className,
+    addTargetConfigNames
+) {
     // TODO add types of method parameters dependend of the adapter
     const inboundAdapterSuggestion = [
         'None',
@@ -123,6 +127,17 @@ async function createBusinessService(packageName, className) {
     } else {
         inboundAdapter = 'Parameter ADAPTER = "' + inboundAdapter + '";';
     }
+
+    let onGetConnectionMethod =
+        '/// Return an array of connections for drawing lines on the config diagram\nClassMethod OnGetConnections(Output pArray As %String, pItem As Ens.Config.Item)\n{\n	Do ##super(.pArray,pItem)\n	If pItem.GetModifiedSetting("TargetConfigNames",.tValue) {\n		For i=1:1:$L(tValue,",") { Set tOne=$ZSTRIP($P(tValue,",",i),"<>W")  Continue:""=tOne  Set pArray(tOne)="" }\n	}\n}';
+
+    let targetConfigNamesProperty =
+        '/// Configuration item(s) to which to send file stream messages\nProperty TargetConfigNames As %String(MAXLEN = 1000);\n\nParameter SETTINGS = "TargetConfigNames:Basic:selector?multiSelect=1&context={Ens.ContextSearch/ProductionItems?targets=1&productionName=@productionId}";\n\n';
+
+    let onProcessInputImpl = addTargetConfigNames
+        ? '   #dim tSC As %Status = $$$OK\n   #dim pRequest As Ens.Request\n\n   // TODO\n\n   For iTarget=1:1:$L(..TargetConfigNames, ",") {\n      Set tOneTarget=$ZSTRIP($P(..TargetConfigNames,",",iTarget),"<>W")\n      Continue:""=tOneTarget\n      $$$sysTRACE("Sending message to \'"_tOneTarget_"\'")\n      Set tSC = ..SendRequestAsync(tOneTarget, pRequest)\n   }\n\n   Quit tSC'
+        : '	Quit $$$ERROR($$$NotImplemented)';
+
     let text =
         'Class ' +
         packageName +
@@ -131,8 +146,13 @@ async function createBusinessService(packageName, className) {
         ' Extends Ens.BusinessService' +
         ' \n{ \n\n' +
         inboundAdapter +
+        (addTargetConfigNames ? targetConfigNamesProperty : '') +
         '\n\nMethod OnProcessInput(pInput As %RegisteredObject, Output pOutput As %RegisteredObject) As %Status\n' +
-        '{\n\n	Quit $$$ERROR($$$NotImplemented)\n}\n\n}';
+        '{\n' +
+        onProcessInputImpl +
+        '\n}\n' +
+        (addTargetConfigNames ? onGetConnectionMethod : '') +
+        '\n}';
     return text;
 }