From an edition id (1)

Dim edtid = xxxx

 

Dim sectionname As String

Dim edtpageids As List(Of Integer) = EditorialLogin.Get().GetPageList(edtid)

Dim edtpage As TeraDP.GN4.Schema.Class.pageObj

Dim idx = 0

For Each pageid As Integer In edtpageids

  edtpage = EditorialLogin.Get().PageGet(pageid)

  sectionname = GetObjAttrValue(edtpage.sectionRefAttr, "name")

Next

 

From an edition id (2)

Public Function GetEditionPageList(ByVal editionId As Integer) As List(Of GenericAccessObj)

  Dim login As Common.ILogin = Editorial.EditorialLogin.GetLogin()

  Dim sc As SearchConditions = New SearchConditions(Schema.Class.pageObj.ObjectTypeName())

   sc.SearchNode = New Common.Search.Node.Condition(

      New Common.Search.Node.Attribute(Schema.Class.pageObj.editionRefAttrType(login.Schema)),

      OpCode.Equal,

       editionId)

  Return login.SearchObjs(sc, New ObjLoadDesc(ObjLoadMode.None))

End Function

From the current page

Instead to specify the edition id, get it from the currently opened page.

Dim Edition = Page.GetEditionObj

Dim edtid = Edition.idAttr