&НаКлиенте
Процедура ОсновныеДействияФормыЗагрузитьПриход(Кнопка)     
      Если СоздатьНовыйДокументНаСервере() = 0 Тогда  
            Сообщить("Не удалось создать новый документ поступления товаров и услуг");
        КонецЕсли;
КонецПроцедуры

&НаСервере
Функция СоздатьНовыйДокументНаСервере()
Перем НоваяПриходнаяНакладная;
Перем СтрокаТЧ;
ПрошлыйНомер = ""; 
ТекДок = ""; 
ТЧОбработка= ОбработкаОбъект.Приход;
для каждого НовСтр из ОбработкаОбъект.Приход   цикл
      НДок=Новстр.НомерДокумента;      
           если НДок <> ПрошлыйНомер Тогда 
               Если ТекДок <> "" Тогда 
                     НоваяПриходнаяНакладная.Записать();      
         Конецесли;                           
НоваяПриходнаяНакладная=Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();      
            //Заполняем реквизиты шапки
            НоваяПриходнаяНакладная.Дата=  ДатаПриХода;
            НоваяПриходнаяНакладная.Организация =Справочники.Организации.НайтиПоКоду(1);
            НоваяПриходнаяНакладная.Контрагент=ОбработкаОбъект.Поставщик;
              НоваяПриходнаяНакладная.НомерВходящегоДокумента=НовСтр.НомерДокумента;
            Конецесли;          
            //Заполняем табличную часть            
                 СтрокаТЧ=НоваяПриходнаяНакладная.Товары.Добавить();            
                 СтрокаТЧ.Номенклатура=Новстр.НазваниеТовара;            
                 СтрокаТЧ.Количество=Новстр.Количество;            
               //Попытка      
             //НоваяПриходнаяНакладная.Записать();
            //Возврат 1;
            //Исключение            
               //Возврат 0;
            //КонецПопытки;
            ПрошлыйНомер = НДок; 
конецциклаКонецФункции