Страница 1 из 1
Добавление записи в BASEDOC
Добавлено: 26 июн 2002, 19:59
ALEKS123
Коллеги! Случайно, кто-нибудь не занет как называется фейс (функция)добавления записи в BASEDOC? Чтобы корректно формировался НОМЕР документа. Т.е. брался следующий из таблицы номеров?
Буду весьма благодарен.
Re: Добавление записи в BASEDOC
Добавлено: 26 июн 2002, 21:24
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'
Re: Добавление записи в BASEDOC
Добавлено: 27 июн 2002, 02:34
m0p3e
Есть функция берущая номер из таблицы последних номеров и увеличивающая его на 1. Завтра вышлю. Работает успешно. Уже 2 месяца обкатки.
)
И мне
Добавлено: 27 июн 2002, 07:58
teapot
,ежели не жалко.
Re:
Добавлено: 27 июн 2002, 11:03
ALEKS123
Спасибо, Антон..
Спасибо, Сергей, я верил в тебя
Вот!
Добавлено: 27 июн 2002, 13:22
m0p3e
Function GetLastNumD(Word): String;
Возвращает следующий свободный номер для документа определенного типа (табла LastNumD) и увеличивает значение в ней на 1.
Параметр word - значение LastNumd.lndtype.
Например:
set BaseDoc.NoDoc := GetLastNumD(101);