====== SprEdit() Функція======
Викликає форму редагування елементу довідника
SprEdit(tSpr, [cPID], [lFolder], [cFormDlg], [cGuiField], [lReadOnly])
** Повертане значення ** Character
** Параметри **
| tSpr | ID існуючого елементу довідника (Наприклад : "BAA0001"), або об'єкт класу TSpr |
| cPID | ** Увага : непусте значення цього параметру, означає створення нового елементу**. Вказується ID батьківського вузла (або "0" -якщо елемент верхнього рівня).|
| lFolder | В випадку заведення нового елементу (не пустий cPID) : ** .T. ** - заводимо папку, ** .F. ** - заводимо звичайний елемент.|
| cFormDlg | ** GUI форми **, яка буде використана для відображення форми за допомогою об'єкту класу iSprDlg (якщо не влаштовує налаштування конфігуратора)|
| cGuiField | ** GUI елемента ** форми, на якому потрібно сфокусуватися після відображення діалогу за допомогою об'єкту класу iSprDlg (необов'язковий параметр)|
| lReadOnly | Встановлює режим ** тільки читання ** для діалогу |
** Примітки **
Якщо функція повертає ** ID ** -це означає, що редагування закінчилось з виходом по кнопці ** <Прийняти> ** . Во всіх інших випадках повертається пусте значення.
** Приклад 1 **
If Empty(SprEdit(lcExistID))
MessageBox('Елемент не був відредагований', 16, 'Повідомлення')
else
MessageBox('Елемент успішно відредаговано', 16, 'Повідомлення')
EndIf
** Приклад 2 **
loSpr = CreateObject('tSpr','_OZ')
loSpr.NewPlus(lcExistID)
If Empty(SprEdit(loSpr))
MessageBox('Новий елемент не було збережено', 16, 'Повідомлення')
else
MessageBox('Новий елемент створено за шаблоном та збережено успішно', 16, 'Повідомлення')
EndIf