Description

Generates previews for object library, imported from GN3.

Syntax

libId

library id

Code

  Public Sub LibraryGeneratePreview(libId As Integer)

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

    Dim liblist As List(Of Integer) = New List(Of Integer)

    If libId = 0 Then

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

      Dim libobjlist As List(Of GenericAccessObj) = login.SearchObjs(sc, New ObjLoadDesc(ObjLoadMode.None, ObjLoadExtra.None))

      If Not IsNothing(libobjlist) Then

        For Each obj In libobjlist

          liblist.Add(obj.Obj.Id)

        Next

      End If

    Else

      liblist.Add(libId)

    End If

    For Each liblistid As Integer In liblist

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

      sc.List = New Common.Search.Node.Condition(New Common.Search.Node.Attribute(Schema.Class.libObjObj.libRefAttrType(login.Schema)), Common.OpCode.Equal, New Common.Search.Node.Integer(liblistid))

      Dim libobjobjlist As List(Of GenericAccessObj) = login.SearchObjs(sc, New ObjLoadDesc(ObjLoadMode.None, ObjLoadExtra.None))

      If Not IsNothing(libobjobjlist) Then

        For Each libobj As GenericAccessObj In libobjobjlist

          OpenDesigner(libobj.Obj.Id, OpenMode.ReadWrite, Nothing)

          ShellWindow.DoEvents()

          Page.PageSave

          Fred.PageClose()

        Next

      End If

    Next

  End Sub