Различия

Здесь показаны различия между двумя версиями данной страницы.

--- отрывки:для_умного_гашения [2019/03/25 12:06]
kotik создано
+++ отрывки:для_умного_гашения [2019/03/25 12:08]
asp
@@ Строка 1: / Строка 1: @@
 ======= Для умного гашения =======
+===== Заполнение даты/номера заявки по комментарию =====
+<1c>
+Процедура ДействияПослеПроведенияВетСертификата(Объект, Движения) Экспорт
+    ...
+	Если Найти(Ссылка.Комментарий, "Накладная создана на основании Заказа")>0 Тогда
+		ОбъектСертификата.Документы.Очистить();
+		НовСтрТД = ОбъектСертификата.Документы.Добавить();
+		НовСтрТД.Тип = Справочники.АСП_ТипыДокументов.DOC16;
+		НовСтрТД.Связь = Справочники.АСП_ТипыСвязейДокументов.REF6;
+		Поз1 = Найти(Ссылка.Комментарий, "№");
+		Поз2 = Найти(Ссылка.Комментарий, " от ");
+		Поз3 = Найти(Ссылка.Комментарий, " 0:00:00");
+		НовСтрТД.Номер = Сред(Ссылка.Комментарий, Поз1+1, Поз2-Поз1-1);
+		НовСтрТД.Дата = Дата(Сред(Ссылка.Комментарий, Поз2+4, Поз3-Поз2-4+8));
+	КонецЕсли;
+КонецПроцедуры
+</1c>