Impossible to delete structured Steps

[Luis J. Lobo]

The followingVBScript code (and similar ones I've tried) doesn't work:

Code: [Select]

option explicit

!INC Local Scripts.EAConstants-VBScript

sub main
      dim pSteps as EA.Collection
      dim pStep as EA.Scenario
      dim TheUseCase as EA.Element
      dim pScenario as EA.Scenario
      dim strNameStep
      dim strFound
      dim bFound
      dim bError
      dim i
      
      set TheUseCase = Repository.GetTreeSelectedObject
      set pScenario = TheUseCase.Scenarios.GetAt(0)
      set pSteps = pScenario.Steps
      pSteps.Refresh()
      strFound = "Step 3"
      bFound = false
      i = 0
      while (not bError and i < pSteps.Count and not bFound)
            set pStep = pScenario.Steps.GetAt(i)
            strNameStep = pStep.Name
            if strFound = strNameStep then
                  pSteps.Delete(i)
                  pSteps.Refresh()
                  bFound = true
            end if
            i = i + 1
      wend                                          
end sub

main

Although this is an script, I've tested it in C# add-in mode and doesn't work.

Any idea?

Thanks in advance,

Luis

[Geert Bellekens]

Luis,

Have you tried to add a pScenario.Update() statement in between?

Geert

[Luis J. Lobo]

Yes, before and after the "pSteps.Refresh()" statement, and the step is not deleted anyway.

[Geert Bellekens]

In that case there's a good chance it is a plain and simple bug.
I think I've seen things like that in the past as well.

Geert

[Luis J. Lobo]

Thanks, Geert.

Reported to sparx.