Ohataさん
IRIS 2023.1.2を使っていますのでどこかで修正されたのかしれませんが、下記のようなOnAfterSave(内容はあまり気になさらずに...)でimportを実行してみたら下記のように保存されていました。
settings.jsonのusernameを書き換えれば、保存されるユーザ名も連動して変わりました。
USER>zw ^IWA
^IWA=6
^IWA(1)="SuperUser"
^IWA(2)="SuperUser"
^IWA(3)="_SYSTEM"
^IWA(4)="_SYSTEM"
^IWA(5)="SuperUser"
^IWA(6)="SuperUser
Method OnAfterSave(InternalName As %String, Object As %RegisteredObject = {$$$NULLOREF}) As %Status
{
if ..Debug Write "Method 'OnAfterSave' InternalName:"_InternalName_" Object: "_Object,!
//DBへの保存は成功させたいのでOKを返す
If '..IsInitialized Quit $$$OK
//default projectは保存しない
If $E(InternalName,1,$L($$$DEFAULTPRJNAME))=$$$DEFAULTPRJNAME {
Write $$$MSGNODEFAULTPRJ,!
Quit $$$OK
}
Set path=..LocalWorkspaceRoot_..GetExtraPath()
Set ..ExternalName=##class(%ZScc.Utils).ExportSingleItem(InternalName,path,..Debug)
Set ^IWA($INCREMENT(^IWA))=$USERNAME
Set ^IWA($INCREMENT(^IWA))=..Username
Quit $$$OK
}
- コメントを投稿するにはログインしてください