Имя: Пароль:
1C
 
новый префикс для документа
,
0 rt2000
 
15.01.15
12:04
У документов нету префиксов и есть без префиксов
строчка кода, которая должна установить новый префикс

Об.УстановитьНовыйНомер("РрР");

далее будет процедура в общем модуле, которая либо обнулит префикс, либо задаст как у организации
Процедура ДобавитьПрефиксОрганизации(ДокументОбъект, Префикс) Экспорт

// Если  нет реквизита "Организация" или для нее не задан префикс, то
// используем пустой префикс,
// иначе используем префикс организации.
МетаданныеДокумента = ДокументОбъект.Метаданные();

Если Не ЕстьРеквизитДокумента("Организация", МетаданныеДокумента)
ИЛИ НЕ ЗначениеЗаполнено(ДокументОбъект.Организация.Префикс)  Тогда
     Префикс = "0";
Иначе
                        
     Префикс = ДокументОбъект.Организация.Префикс;
        
КонецЕсли;
Конецпроцедуры
1 deniseek
 
15.01.15
12:05
(0) Спасибо за инфу, познавательно
2 BICO
 
15.01.15
12:16
подробно и все понятно
3 rt2000
 
15.01.15
12:23
Не понял?
А как можно установить новый префикс? Зачем тогда метод УстановитьНовыйНомер()
4 Остап Сулейманович
 
15.01.15
12:24
(0) Прошу уточнить. Чем отличаются термины "нету префиксов" и "есть без префиксов"?
5 Остап Сулейманович
 
15.01.15
12:25
+ (4) Для общего так сказать развития.
6 rt2000
 
15.01.15
12:26
(4) в одном документе есть префикс, а в другом документе нету префикса. Я это имел ввиду.
7 vicof
 
15.01.15
12:32
(3)
Синтаксис:

УстановитьНовыйНомер(<ПрефиксНомера>)
Параметры:

<ПрефиксНомера> (необязательный)

Тип: Строка.
Префикс устанавливаемого номера.
Значение по умолчанию: Пустая строка.
Описание:

Устанавливает новый номер документа для заданного префикса номера.
8 vicof
 
15.01.15
12:33
Получаешь объект, устанавливаешь номер и префикс, записываешь в попытке.
9 rt2000
 
15.01.15
12:36
(8) немного не понял, можешь пример показать
10 vicof
 
15.01.15
12:39
Попытка
Ссылка = Документы.РеализацияТоваровУслуг.НайтиПоНомеру("блабла");
Если Не ссылка.пустая() тогда
Объект = Ссылка.ПолучитьОбъект();
Объект.номер = "блаблабла";
Объект.Записать
КонецЕсли;
Исключение
Сообщить("все пропало");
КонецПопытки
11 vicof
 
15.01.15
12:40
+(10) на коленке писал, в найти по номеру еще дату надо, записать скобочки
обменданными = истина
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн