Програмне виділення повного номера картки DocsVision

Частою завданням при розробці рішення на платформі DocsVision є виділення номера. У даній публікації буде продемонстровано, як можна виділити повний номер, разом з префіксами і суфіксами, програмно.

Отже будемо робити скрипт для версії DocsVision 4.1. Це буде додаткова команда Навігатора, яка буде призначена на контекстне меню карток документів. Тобто використовувати зможе натиснути правою кнопкою мишки на картку в Навігаторі і призначити повний номер, не відкриваючи картку.


Скрипт:


Для отримання номера використовуємо об'єкт TOHelperObject.NumeratorObject.


Sub DoEvent (UserSession, CardHost, FolderType, FolderID, SelectionIDs)

Dim sDetails, bFlag
bFlag = True
sDetails = "Номери присвоєні наступним картками:"
"Створюємо об'єкт" Нумератор "
Set oNumerator = CreateObject(“TOHelperObjects.NumeratorObject”)
"Для кожної картки з колекції
For Each sID In SelectionIDs
"Отримуємо картка
Set oCard = UserSession.CardManager.CardData(sID)
"Отримуємо основну секцію
Set oMainRow = oCard.Sections (oCard.Type.Sections.GetByAlias ("MainInfo"). ID). FirstRow
If IsNull(oMainRow.Value(“NumberRef”)) Then
"Якщо номера немає
Set oNumerator.CardData = oCard
Set oNumerator.UserSession = UserSession
sNumID = “”
sFullNum = “”
If oNumerator.GetNewNumber(sNumID, sFullNum) Then
oMainRow.Value(“FullNumber”) = sFullNum
oMainRow.Value(“NumberRef”) = sNumID
sDetails = sDetails + oMainRow.Value(“Name”) + “,”
Else
CardHost.ShowMessage "Команда Навігатора", "Не знайдено нумератор для" "+ oMainRow.Value (" Name ") +" "",, 3
End If
End If
Next
CardHost.ShowMessage "Команда Навігатора", "Номери виділені успішно", sDetails, 4
Set oNumerator = Nothing
End Sub

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*