Страница 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);