Показать страницу История страницы Ссылки сюда Переименовать страницу Свернуть / развернуть всё ====== Примеры заполнения шапки сертификата ====== ===== Заполнение даты/номера заявки по комментарию ===== <1c> Если Найти(Ссылка.Комментарий, "Накладная создана на основании Заказа")>0 Тогда ОбъектСертификата.Документы.Очистить(); НовСтрТД = ОбъектСертификата.Документы.Добавить(); НовСтрТД.Тип = Справочники.АСП_ТипыДокументов.DOC16; НовСтрТД.Связь = Справочники.АСП_ТипыСвязейДокументов.REF6; Поз1 = Найти(Ссылка.Комментарий, "№"); Поз2 = Найти(Ссылка.Комментарий, " от "); Поз3 = Найти(Ссылка.Комментарий, " 0:00:00"); НовСтрТД.Номер = Сред(Ссылка.Комментарий, Поз1+1, Поз2-Поз1-1); НовСтрТД.Дата = Дата(Сред(Ссылка.Комментарий, Поз2+4, Поз3-Поз2-4+8)); КонецЕсли; </1c> ===== Вариант розничной продажи ===== Порядок изменений:\\ - Добавить элементы в справочник **АСП_ВидыДокументов1С**: ^ Наименование ^ Вид документа ^ Тип операции ^ Код операции ^ | Реализация | РеализацияТоваровУслуг| Исходящий | | | Производство | РеализацияТоваровУслуг| Производственный | STEP1 | | Отгрузка | РеализацияТоваровУслуг| Исходящий | STEP2 | <1c> Процедура ДействияПослеПроведенияВетСертификата(Объект, Движения) Экспорт ... Если Объект.ВидДокумента.ТипСертификата = Перечисления.АСП_ТипВетСертификата.СинхронизацияОстатков Тогда Для каждого ТекТовар из Объект.Товары цикл Запрос = АСП_Функции.ПолучитьЗапросПоОстаткамДинамики(Объект.Организация, ТекТовар.Номенклатура, ТекТовар.Категория, Объект.ВидДокумента); Запрос.УстановитьПараметр("Остатки", ПараметрыСеанса.АСП_СкладскиеЗаписи.Получить()); Запрос.УстановитьПараметр("ГУИДПроизводителя", ""); Запись = АСП_Функции.ПолучитьЗапись(ТекТовар.Производитель, 1); Запрос.УстановитьПараметр("ГУИДПроизводителя", Запись.ГУИД); Запрос.УстановитьПараметр("ДатаВыработки", ТекТовар.ДатаВыработки); Запрос.УстановитьПараметр("КодПартии", ТекТовар.КодПартии); Таб = Запрос.Выполнить().Выгрузить(); Рез = Таб[0].КоличествоОстаток - ТекТовар.Количество; ТекТовар.Количество = Рез; ТекТовар.ДатаВыработки = Таб[0].ДатаВыработки; ТекТовар.ДатаПросрочки = Таб[0].ДатаПросрочки; КонецЦикла; Объект.Записать(); КонецЕсли; КонецПроцедуры </1c> Toggle WYSIWYG editor Links InterWiki wpwpfrwpdewpeswpplwpjpwpmetadokurfcmanamazonamazon.deamazon.ukpaypalphpfnskypegoogle.degousercalltotelthis Link target Link Type A page in this wiki An interwiki link An email address An link to an external page Other Link Name Type Automatic title Custom title Use an image as title Link name OKCancel Media or file Image or document file Caption / link text Image propertiesDimensions Width (px) Height (px) Alignment Default Left Center Right Linking Default Direct No link Link only Caching Default Recache Nocache OKCancel