Добавление записи в BASEDOC

[ALEKS123]

Коллеги! Случайно, кто-нибудь не занет как называется фейс (функция)добавления записи в BASEDOC? Чтобы корректно формировался НОМЕР документа. Т.е. брался следующий из таблицы номеров?
Буду весьма благодарен.

[forsit]

NextNumStr (String) : String
Назначение
Функция увеличивает на 1 числовое значение, представленное строкой Str. Если инкремент сделать не удается (не хватает длины поля), то возвращается строка, заполненная нулями по всей длине поля.
Описание
function NextNumStr (Str : String) : String;
Параметры
Str : String - обрабатываемая строка с номером.
Возвращаемое значение
Функция возвращает модифицированную строку.
Пример 1
NextNumStr ('Скл750#12.01.99.')
Функция выделит первое слева число (непрерывный набор цифр) и добавит к нему 1. После модификации строка будет выглядеть следующим образом:
'Скл751#12.01.99.'
Пример 2
NextNumStr ('999')='000'

[m0p3e]

Есть функция берущая номер из таблицы последних номеров и увеличивающая его на 1. Завтра вышлю. Работает успешно. Уже 2 месяца обкатки. )

[teapot]

,ежели не жалко.

[ALEKS123]

Спасибо, Антон..
Спасибо, Сергей, я верил в тебя

[m0p3e]

Function GetLastNumD(Word): String;
Возвращает следующий свободный номер для документа определенного типа (табла LastNumD) и увеличивает значение в ней на 1.
Параметр word - значение LastNumd.lndtype.
Например:
set BaseDoc.NoDoc := GetLastNumD(101);