Это старая версия документа.


Примеры заполнения шапки сертификата

Если Найти(Ссылка.Комментарий, "Накладная создана на основании Заказа")>0 Тогда
		ОбъектСертификата.Документы.Очистить();
		НовСтрТД = ОбъектСертификата.Документы.Добавить();
		НовСтрТД.Тип = Справочники.АСП_ТипыДокументов.DOC16;
		НовСтрТД.Связь = Справочники.АСП_ТипыСвязейДокументов.REF6;
		Поз1 = Найти(Ссылка.Комментарий, "№");
		Поз2 = Найти(Ссылка.Комментарий, " от ");
		Поз3 = Найти(Ссылка.Комментарий, " 0:00:00");
		НовСтрТД.Номер = Сред(Ссылка.Комментарий, Поз1+1, Поз2-Поз1-1);
		НовСтрТД.Дата = Дата(Сред(Ссылка.Комментарий, Поз2+4, Поз3-Поз2-4+8));
	КонецЕсли;

Порядок изменений:

  1. Добавить элементы в справочник АСП_ВидыДокументов1С:
    Наименование Вид документа Тип операции Код операции
    Реализация на покупателя РеализацияТоваровУслуг Синхронизация остатков
Процедура ДействияПослеПроведенияВетСертификата(Объект, Движения) Экспорт
      ...	
      Если Объект.ВидДокумента.ТипСертификата = Перечисления.АСП_ТипВетСертификата.СинхронизацияОстатков Тогда		                   			
		Для каждого ТекТовар из Объект.Товары цикл			
			Запрос = АСП_Функции.ПолучитьЗапросПоОстаткамДинамики(Объект.Организация, ТекТовар.Номенклатура, ТекТовар.Категория, Объект.ВидДокумента);
			Запрос.УстановитьПараметр("Остатки", ПараметрыСеанса.АСП_СкладскиеЗаписи.Получить());			
		    Запрос.УстановитьПараметр("ГУИДПроизводителя", "");		
		    Запись = АСП_Функции.ПолучитьЗапись(ТекТовар.Производитель, 1);
		    Запрос.УстановитьПараметр("ГУИДПроизводителя", Запись.ГУИД);
			Запрос.УстановитьПараметр("ДатаВыработки", ТекТовар.ДатаВыработки);		
			Запрос.УстановитьПараметр("КодПартии", ТекТовар.КодПартии);
			
			Таб = Запрос.Выполнить().Выгрузить();
			
			Рез = Таб[0].КоличествоОстаток - ТекТовар.Количество;
			ТекТовар.Количество = Рез;
			ТекТовар.ДатаВыработки = Таб[0].ДатаВыработки;
			ТекТовар.ДатаПросрочки = Таб[0].ДатаПросрочки;
		КонецЦикла;		
		Объект.Записать();
	КонецЕсли;
КонецПроцедуры