Семерка ПослеЗаписи

9 г. назад

#0 Hans
27.08.2015 08:47:07

Как грамотно организовать событие ПослеЗаписи документа на семерке? Нужно после записи нового создавать элемент справочника с сылкой на документ.
#1 andrewks
27.08.2015 08:54:23

в ПриЗаписи делай
#2 Hans
27.08.2015 08:55:26

Если новый документа там, насколько я понял, ссылка еще пустая.
#3 MIK
27.08.2015 09:09:16

Надо переопределять кнопки ОК, Записать
#4 andrewks
27.08.2015 09:09:58

а документ проводится? может, в проведении лучше сделать?

#5 andrewks

27.08.2015 09:14:14

вот, например, кусок из типовой:

Процедура ОбработкаПроведения(ВидыДвижений)
	                   
	Если Договор.Выбран()=0 Тогда
		// в этом случае подставим по умолчанию предопределенного контрагента
		СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты");
		НаимКонтрагента = "Розничная продажа";
		Если СпрКонтрагенты.НайтиПоНаименованию(НаимКонтрагента,0,1) = 0 Тогда
			// создаем юрлицо
			СпрЮрЛица = СоздатьОбъект("Справочник.ЮрЛица");
			СпрЮрЛица.Новый();
			СпрЮрЛица.Наименование     = НаимКонтрагента;
			СпрЮрЛица.ПолнНаименование = НаимКонтрагента;
			Попытка
			    СпрЮрЛица.Записать();
			Исключение   
				глНеПроводить(Контекст,ОписаниеОшибки());Возврат;
			КонецПопытки;         
			
			// создаем контрагента
			СпрКонтрагенты.Новый();
			СпрКонтрагенты.Наименование = НаимКонтрагента;
			СпрКонтрагенты.ЮрФизЛицо    = СпрЮрЛица.ТекущийЭлемент();
			Попытка
				СпрКонтрагенты.Записать();
			Исключение   
				глНеПроводить(Контекст,ОписаниеОшибки());Возврат;
			КонецПопытки;

Ответы: (6)

#6 Hans

27.08.2015 09:15:28

27.08.2015 09:16:18 отредактировано Hans

(5) Да, уже нашел тоже пример в какой то конфе. Сделал по аналогии:

Если Выбран() = 0 Тогда
		
		СтатусВозврата(0);
		
		НачатьТранзакцию();

		Попытка
			Записать();
	
		Исключение
			ОтменитьТранзакцию();
			Сообщить("Запись заказа наряда: " + ОписаниеОшибки(), "!");
			Возврат;
	
		КонецПопытки;
		
		Диспетчеризация = СоздатьОбъект("Справочник.Диспетчеризация");
		Диспетчеризация.Новый();
		Диспетчеризация.Заказнаряд = ТекущийДокумент();
		Диспетчеризация.Записать(); 
		
		ЗафиксироватьТранзакцию();
		
	КонецЕсли;

Все это засунул в ПриЗаписи