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