Это старая версия документа.
Примеры заполнения шапки сертификата
Заполнение даты/номера заявки по комментарию
Если Найти(Ссылка.Комментарий, "Накладная создана на основании Заказа")>0 Тогда
ОбъектСертификата.Документы.Очистить();
НовСтрТД = ОбъектСертификата.Документы.Добавить();
НовСтрТД.Тип = Справочники.АСП_ТипыДокументов.DOC16;
НовСтрТД.Связь = Справочники.АСП_ТипыСвязейДокументов.REF6;
Поз1 = Найти(Ссылка.Комментарий, "№");
Поз2 = Найти(Ссылка.Комментарий, " от ");
Поз3 = Найти(Ссылка.Комментарий, " 0:00:00");
НовСтрТД.Номер = Сред(Ссылка.Комментарий, Поз1+1, Поз2-Поз1-1);
НовСтрТД.Дата = Дата(Сред(Ссылка.Комментарий, Поз2+4, Поз3-Поз2-4+8));
КонецЕсли;
Вариант розничной продажи
Порядок изменений:
- Добавить элементы в справочник АСП_ВидыДокументов1С:
Наименование Вид документа Тип операции Код операции Реализация РеализацияТоваровУслуг Исходящий Производство РеализацияТоваровУслуг Производственный STEP1 Отгрузка РеализацияТоваровУслуг Исходящий STEP2
Процедура ДействияПослеПроведенияВетСертификата(Объект, Движения) Экспорт
...
Если Объект.ВидДокумента.ТипСертификата = Перечисления.АСП_ТипВетСертификата.СинхронизацияОстатков Тогда
Для каждого ТекТовар из Объект.Товары цикл
Запрос = АСП_Функции.ПолучитьЗапросПоОстаткамДинамики(Объект.Организация, ТекТовар.Номенклатура, ТекТовар.Категория, Объект.ВидДокумента);
Запрос.УстановитьПараметр("Остатки", ПараметрыСеанса.АСП_СкладскиеЗаписи.Получить());
Запрос.УстановитьПараметр("ГУИДПроизводителя", "");
Запись = АСП_Функции.ПолучитьЗапись(ТекТовар.Производитель, 1);
Запрос.УстановитьПараметр("ГУИДПроизводителя", Запись.ГУИД);
Запрос.УстановитьПараметр("ДатаВыработки", ТекТовар.ДатаВыработки);
Запрос.УстановитьПараметр("КодПартии", ТекТовар.КодПартии);
Таб = Запрос.Выполнить().Выгрузить();
Рез = Таб[0].КоличествоОстаток - ТекТовар.Количество;
ТекТовар.Количество = Рез;
ТекТовар.ДатаВыработки = Таб[0].ДатаВыработки;
ТекТовар.ДатаПросрочки = Таб[0].ДатаПросрочки;
КонецЦикла;
Объект.Записать();
КонецЕсли;
КонецПроцедуры