====== 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