"Вот такой код получился. Осталось только Склад заполнить.<br><pre> <br> Перем НовыйСчет;<br> Перем СтрокаТЧ;<br> <br> НовыйСчет = Документы.СчетНаОплатуПокупателю.СоздатьДокумент();<br> <br> //Заполняем реквизиты шапки<br> НовыйСчет.Дата = ЭтаФорма.ДатаДок;<br> НовыйСчет.Организация = Справочники.Организации.НайтиПоКоду("000000001");<br> НовыйСчет.ВалютаДокумента = Справочники.Валюты.НайтиПоКоду(643);<br> НовыйСчет.Контрагент = СтрокаИзБазаИмпорта.Контрагент;<br> НовыйСчет.ДоговорКонтрагента = СтрокаИзБазаИмпорта.Договор;<br> НовыйСчет.СуммаВключаетНДС = Ложь; <br> НовыйСчет.УчитыватьНДС = Истина;<br> <br> // Выполняем общие действия для всех документов при изменении организации<br> ЗаполнениеДокументов.ПриИзмененииЗначенияОрганизации(НовыйСчет, глЗначениеПеременной("глТекущийПользователь"));<br> // Надо установить банковский счет, если он принадлежит организации другого юр.лица или не заполнен<br> УправлениеДенежнымиСредствами.УстановитьБанковскийСчет(НовыйСчет.СтруктурнаяЕдиница, НовыйСчет.Организация, НовыйСчет.мВалютаРегламентированногоУчета);<br> Если ЗначениеЗаполнено(НовыйСчет.СтруктурнаяЕдиница) Тогда<br> НовыйСчет.ОрганизацияПолучатель = НовыйСчет.СтруктурнаяЕдиница.Владелец;<br> Иначе<br> НовыйСчет.ОрганизацияПолучатель = НовыйСчет.Организация;<br> КонецЕсли;<br> <br> //Заполняем табличную часть<br> Отбор = Новый Структура();<br> Отбор.Вставить("НомСЧФ", СтрокаИзБазаИмпорта.НомСЧФ);<br> Строки = БазаМеток.НайтиСтроки(Отбор);<br> Для Каждого СтрокаИзБазаМеток Из Строки Цикл<br> СтрокаТЧ = НовыйСчет.Услуги.Добавить();<br> СтрокаТЧ.Номенклатура = СтрокаИзБазаМеток.Наименование;<br> СтрокаТЧ.Содержание = СтрокаИзБазаМеток.Наименование.НаименованиеПолное + " " +СтрокаИзБазаМеток.Единица;<br> СтрокаТЧ.Цена = СтрокаИзБазаМеток.Цена;<br> СтрокаТЧ.Количество = СтрокаИзБазаМеток.Колво;<br> СтрокаТЧ.Сумма = СтрокаИзБазаМеток.Стоимость;<br> СтНДС = ПредопределенноеЗначение("Перечисление.СтавкиНДС.НДС" + СтрокаИзБазаМеток.НДС);<br> СтрокаТЧ.СтавкаНДС = СтНДС;<br> СтрокаТЧ.СуммаНДС = СтрокаИзБазаМеток.СуммаНДС;<br> КонецЦикла; <br> Попытка<br> НовыйСчет.Записать();<br> НоваяСтрока = ТаблСчетов.Добавить();<br> НоваяСтрока.Счет = НовыйСчет.Ссылка;<br> НоваяСтрока.Контрагент = СтрокаИзБазаИмпорта.Контрагент;<br> НоваяСтрока.Договор = СтрокаИзБазаИмпорта.Договор;<br>// НовыйСчет.Открыть();<br> Возврат 1;<br> Исключение<br> Возврат 0;<br> КонецПопытки;</pre>"