Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - rmvanderlinden

Pages: [1] 2
1
Geert,
The Archimate_ before the type did the trick.

2
How is this done?
I used .StereoType (ApplicationComponent) and .StereoTypeEx (Archimate3::ApplicationComponent). It has however no effect.
A code snippet:

                    Set e = EARepos.GetElementByGuid(.GUID)
                    If e Is Nothing Then
                        Select Case sp
                            Case eSubPackage.ApplicationType: spn = .tagApplicationType
                            Case eSubPackage.BusinessUnit:    spn = .tagBusinessUnit
                            Case eSubPackage.Platform:        spn = .tagPlatform
                            Case Else:                        spn = ""
                        End Select
                        If (spn <> "") Then
                            Set pk = Me.getPackage(Path & spn)
                            Set e = pk.Elements.AddNew(.Name, .StereoType)
                        Else
                            Set e = p.Elements.AddNew(.Name, .StereoType)
                        End If
                    End If
                    ' Optionaly set elements if they have a value. They are not (yet) supported by the Collection tab
                    If .Alias <> "" Then e.Alias = .Alias
                    If .Phase <> "" Then e.Phase = .Phase
                    If .Status <> "" Then e.Status = .Status
                    If .FQStereoType <> "" Then
                        e.StereotypeEx = .FQStereoType
                    Else
                        If .StereoType <> "" Then e.StereoType = .StereoType
                    End If
                    If .Version <> "" Then e.Version = .Version
                    If .Notes <> "" Then e.Notes = .Notes


3
No diagrams are involved. The script is within Excel, it reads the rows and, if necessary, creates the root/view/package structure and puts elements in it (together with notes, tags, etc.). Like the picture. The <ApplicationComponent> has the TOGAF stereotype. I want it to be an Archimate3 stereotype.

4
I have a script that adds elements (ApplicationComponent). In the beginning it has the Archimate3 perspective, but now it uses TOGAF.
How can I force to use the Archimate3?

5
Thank you for the reply and direction. I got it working  :)

6
Hi,


From the root I am able to create a view and from the view a package. Now I have multiple root packages, and I am unable to walk through the root package to check their names. If the desired root package is not found, I want to create it.
Question is How to do this?
BTW: I do not want to rely on selecting the right package in EA, but navigate to it myself.

My code below. Path can be "MyModel/MyView/MyPackage"

Public Function getPackage(ByVal Path As String) As Package
    Dim EAPath() As String
    Dim Elements As EA.Collection
    Dim Package As EA.Package
    Dim subPackage As EA.Package
    Dim ID As Integer
    Dim pID As Integer
    Dim i As Integer
    Dim pFound As Boolean
   
    EAPath = Split(Path, "/")
    '
    If EARepos Is Nothing Then
        Set EARepos = Me.getCurrentRepository(True)
    End If
    '
    ' Find the root package
    '
    Set Package = EARepos.GetTreeSelectedPackage()
    pID = Package.ParentID
    Do While pID > 0
        Set Package = EARepos.GetPackageByID(pID)
        pID = Package.ParentID
    Loop
    ID = Package.PackageID
    Set Package = EARepos.GetPackageByID(ID)
    If Package.name <> EAPath(0) Then
        MsgBox "Unable to locate root package '" & EAPath(0) & "'"
        Set getPackage = Nothing
    Else
        '
        ' Create/navigate to Path
        '
        For i = LBound(EAPath) + 1 To UBound(EAPath)
            pFound = False
            For Each subPackage In Package.Packages
                If subPackage.name = EAPath(i) Then
                    ID = subPackage.PackageID
                    Set Package = EARepos.GetPackageByID(ID)
                    pFound = True
                    Exit For
                End If
            Next
            If Not pFound Then
                Set subPackage = Package.Packages.AddNew(EAPath(i), "")
                Call subPackage.Update
                Set Package = subPackage
            End If
        Next
        Set getPackage = Package
    End If
End Function

7
I wanted to view the config file of PCS in where the database connections are stored. I searched the registry and all the local files for my database alias. The C:\Program Files (x86)\Sparx Systems\Pro Cloud Server\Service\SSProCloud.config does not contain the information. I only can find the information via the ProCloud Config Client.
I need the configuration file in order to edit it remotely, while the Pro Cloud Config Client in my case cannot be remotely used. May be it is encrypted, but all my Sparx file timestamps are not updated.
So my question is: how and where is the database manager information stored?

8
In fact, our repository was even much bigger, but we removed all the components that we do not own. Also we restricted the model to our domain only. We have a landscape with more than 150 applications and the most of are integrated with each other. We mainly use BPNM, ArchiMate, UML. We make use of a library to reuse components/artifacts (avoiding duplication). Decreasing the size is a main topic (It should be nice if we could transfer to an eap(x) file again) but we will stick to 1 repository.
Nevertheless it should be nice when also big repositories could be transferred or Natively imported/exported without freeze/crash.

9
Eap(x) is no solution. The repository is too big (1461MB) and exceeds the maximum size of the model. There is no EA running on the MS SQL server (and also I have no admin rights on the server), so transfer or native import directly is no option. I shall have to perform my action on the local network itself. It is a pitty that EA freezes during the process and that there is no manner to view the progress if EA has been frozen and there is no log available why EA stops. Only the eventlog shows that there was an error, but it give no information why.
Anyway, thank you for the tips. :)

10
Bugs and Issues / Native XML import (project transfer) non responsive
« on: June 08, 2020, 01:32:24 am »
I work from home and have a VPN connection to work. I want to transfer my work repository (Postgres) to another work repository (MS SQL). When I did at work site (without VPN) it took about 6/7 hours to transfer. Now I am working at home, the project transfer fails. So I did a Native XML export from my Postgres to my local laptop. This takes about 20 minutes (1,4 Gb). When I do a Native import to my MS SQL it fails (after waiting > 9 hours). I did it about 8 times, but all fail. Reason unknown. There is not log available. Also, and maybe the biggest pain point is that when the transfer/export begins, the screen freezes and is not updated anymore. The task manager always indicates that EA is not responding. I have no clue if the transfer is busy or stopped. Most of the times EA (15.1 and also 15.2 beta) just quit without any notification. The only clue I have is the Ethernet Status which give me an indication that bytes are send/received.
So, is there a place where I can watch the progress, see the log why it stopped or failed, can unfreeze EA. Any help, hints or cases look like this are welcome.

11
I am migrating 2 version controlled repositories to 1 version controlled repository. With Version Control I used export/import model branch. This worked fine. Both repositories are now in 1 repository.
 
But... when opening and comparing diagrams the imported diagram is different. Elements have another position and beautified connectors are gone/straitened. :-[

Is there a way to overcome this?

Brgds René

12
Bugs and Issues / HTML hyperlink button image problem in v13
« on: August 07, 2017, 08:57:18 pm »
In v12 we had a default hyperlink icon (button like) which has been changed into class diagram icon (not really button like). May be this was on purpose in version 13, so I looked for an alternative. There seems not to be a default configuration item for this so I changed the appearance of the icon. Unfortunately the description text disappears then  :(. So I entered an extra text (double work) behind my changed icon. When I export this to HTML, my chosen icon is replace by the default class diagram icon again  :'(.
I assume this is a bug.

13
In v12 I use HTML generation and I get an button like icon for each hyperlink. In v13 I get a non-button like diagram icon. This is not intuitive.
Is there a way to change the hyperlink icon for HTML generation?
By the way: changing the icon in EA with appearance should be an option, but... the text disappears, and... after HTML generation the default icon is displayed again

14
You need to reproduce that issue with the current build (V13). Makes no sense to report a bug for V12. However, such a bug has not been reported here AFAIR.

q.
This issue also happens in EA v13.

15
I never looked at that, but true: if I make a copy of a single element, it gets created/modified the date of the copy operation. Well, ok. Then, when I make a copy of a package, the Modified Date is preserved and the Creation Date is that of the copy operation. That results in packages/elements where the Modification Date is older than the creation date. Absurd. But I'm used to EAUI.

q.
Did you also notice that the modified date is not really preserved (also in the past, but different)?

Pages: [1] 2