Как получение номер документа без префикса в 1С

Получить номер на печать очень просто, достаточно вызвать процедуру из общего модуля

Для современных конфигураций под управляемые формы работающих на БСП (УТ 11, БП 3, УНФ и т.д. ),  это делается так:

НомерНаПечать = ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(НомерДокумента, Истина, Истина); 

Описание процедуры:

Как получение номер документа без префикса в 1С

Для старых конфигураций, работающих на обычных формах, например УТ 10.3, Бухгалтерия 2.0 эта процедура имеет следующий вид:

Номер = ОбщегоНазначения.ПолучитьНомерНаПечать(СсылкаНаОбъект);

где СсылкаНаОбъект — ДокументСсылка — документ, для которого нужно получить номер

Для Альфа — Авто 5

Номер = дкПолучитьНомерДляПечати(ЭтотОбъект);

где ЭтотОбъект ДокументОбъект или ДокументСсылка — документ, для которого нужно получить номер

Своя функция

// Функция - Возвращает номер без лидирующих нулей
//
// Параметры:
//  Номер	 - Строка - Исходный номер документа
//  Префикс	 - Строка - Префикс, который нужно удалить
//  ДобавитьПрефикс	 - Булево - Добавляет префикс в результат
// 
// Возвращаемое значение:
//  Строка - номер без нулей
//
Функция ПолучитьНомерДляПечати(Номер, Префикс, ДобавитьПрефикс = Ложь)
	НомерДляПечати = СтрЗаменить(Номер,СокрЛП(Префикс),"");
	Пока Лев(НомерДляПечати,1) = "0" Цикл
		НомерДляПечати = Сред(НомерДляПечати,2);
	КонецЦикла;	
	НомерДляПечати = "" + ?(ДобавитьПрефикс,СокрЛП(Префикс), "") +  НомерДляПечати; 
	Возврат НомерДляПечати;
КонецФункции 

 

 

Оставьте комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *