// OldthiefXXX
Перем СерверExcel;

Процедура КнопкаВыполнитьНажатие(Кнопка)
 ФайлХЛС=СерверExcel.Application.Workbooks.Open(ДокументХЛС);
 КонечнаяСтрокаДанных=ФайлХЛС.ActiveSheet.UsedRange.Rows.Count; 
 КоличествоКолонокДанных=ФайлХЛС.ActiveSheet.UsedRange.Columns.Count; 
 Состояние("Загрузка в память данных ведомости...");
 ExcelЛист=ФайлХЛС.ActiveSheet;
 Область = СерверExcel.Range(ExcelЛист.Cells(1,1), ExcelЛист.Cells(КонечнаяСтрокаДанных,КоличествоКолонокДанных));
 МассивДанныхEXEL = Область.Value.Выгрузить();
КонецПроцедуры

Процедура ИнициализацииЕкселя()
Состояние("Происходит инициализация EXCEL...");
Попытка 
 СерверExcel1 = Новый COMОбъект("Excel.Application");
 СерверExcel1.DisplayAlerts = 0;
Исключение       
 ЗапущенExcel = 0;
 Сообщить(ОписаниеОшибки(),"!");
КонецПопытки;
КонецПроцедуры   

 // создаем НаборЗаписей
	НаборД = РегистрыСведений.НашРегистр.СоздатьНаборЗаписей();

	// устанавливаем параметры отбора по полному набору Измерений регистра:
	НаборД.Отбор.Измерение1.Установить(Значение1);
	НаборД.Отбор.Измерение2.Установить(Значение2);
	НаборД.Отбор.Измерение3.Установить(Значение3);

	// Создаем новую строку в этом наборе записей:
	СтрокаДанных = НаборД.Добавить();

	// определяем значения Измерений этой строки:
	СтрокаДанных.Измерение1 = Значение1;
	СтрокаДанных.Измерение2 = Значение2;
	СтрокаДанных.Измерение3 = Значение3;

	// определяем значения Ресурсов
	СтрокаДанных.Ресурс1 = Значение4;
	СтрокаДанных.Ресурс2 = Значение5;

	// определяем значения Реквизитов
	СтрокаДанных.Реквизит1 = Значение6;

	// пример другого варианта присвоения значения, когда, например, внутри цикла нужно указать значение ресурса, перебирая в цикле разные имена ресурсов (ИмяПоля):
	СтрокаДанных[ИмяПоля] = Значение7; // где ИмяПоля - наименование измерения, ресурса или реквизита регистра

	НаборД.Записать();
   

 ОткрытьФорму("Документ.ПриходнаяНакладная.ФормаОбъекта");   

 &НаКлиенте
Процедура ПриходнаяНакладная(Команда)

    СсылкаНаДокумент = СоздатьНовыйДокумент();
    ОткрытьЗначение(СсылкаНаДокумент);

КонецПроцедуры

&НаСервере
Функция СоздатьНовыйДокумент()

   НовыйДокумент = Документы.ПриходнаяНакладная.СоздатьДокумент();
   НовыйДокумент.Номер = "111";
   НовыйДокумент.Дата = ТекущаяДата();
   НовыйДокумент.Записать();

   Возврат НовыйДокумент.Ссылка;

КонецФункции    

 // ЕЩЕ ПРИМЕР:
&НаКлиенте
Процедура СоздатьНовыйДокумент(Команда)
   
        // Вставить содержимое обработчика.
        Если СоздатьНовыйДокументНаСервере() = 0 Тогда
                Сообщить("Не удалось создать новый документ");
        КонецЕсли;

КонецПроцедуры

&НаСервере
Функция СоздатьНовыйДокументНаСервере()
   
        Перем НоваяРасходнаяНакладная;
        Перем СтрокаТЧ;
   
        НоваяРасходнаяНакладная=ДокРасходнаяНакладная.СоздатьДокумент();
   
        //Заполняем реквизиты шапки
        НоваяРасходнаяНакладная.Дата=  ТекущаяДата();
        НоваяРасходнаяНакладная.Фирма =Справочники.Фирмы.ОсновнаяФирма;
        НоваяРасходнаяНакладная.Контрагент=Справочники.Контрагенты.НайтиПоКоду("000000001");
        НоваяРасходнаяНакладная.Склад=Справочники.Склады.ОсновнойСклад;
   
        //Заполняем табличную часть
        СтрокаТЧ=НоваяРасходнаяНакладная.ТЧТовары.Добавить();
        СтрокаТЧ.Товар=Справочники.Номенклатура.НайтиПоКоду("000000002");
        СтрокаТЧ.Цена=СтрокаТЧ.Товар.РозничнаяЦена;
        СтрокаТЧ.Количество= 2;
        СтрокаТЧ.Сумма=СтрокаТЧ.Цена*СтрокаТЧ.Количество;
   
        Попытка
                НоваяРасходнаяНакладная.Записать();
                Возврат 1;
        Исключение
                Возврат 0;
        КонецПопытки;
                                          
КонецФункции   

 
//Создаем документ Выплата, Документ будет создан и показан пользователю, Но НЕ ЗАПИСАН
НовДок = Документы.ЗарплатаКВыплатеОрганизаций.ПолучитьФормуНовогоДокумента(); 
НовДок.Дата=ТекущаяДата();
НовДок.Организация=Организация;
НовДок.ПериодРегистрации=ПериодРегистрации;
НовДок.ответственный= глЗначениеПеременной("глТекущийПользователь");
НовДок.Комментарий="Выплата за "+МесяцСтрока;
НовДок.ЭлементыФормы.Комментарий.Доступность=Ложь; 
Для Каждого ТекущаяСтрока Из ТаблицыЗначений Цикл  // заполним табличную часть документа, из ТаблицыЗначений
НС=НовДок.зарплата.добавить();	
нс.Авторасчет=истина;
нс.Физлицо = ТекущаяСтрока.Физлицо;
нс.ВыплаченностьЗарплаты=Перечисления.ВыплаченностьЗарплаты.НеВыплачено;
нс.сумма=ТекущаяСтрока.Результат; 
КонецЦикла;
НовДок.Открыть(); 

//Для создания и записи документа используется следующий код:
НовДок = Документы.РасходнаяНакладная.СоздатьДокумент();
НовДок.Дата=ТекущаяДата();
НовыйДок.УстановитьНовыйНомер();
НовДок.Организация=Организация;
НовДок.ПериодРегистрации=ПериодРегистрации;
НовДок.ответственный= глЗначениеПеременной("глТекущийПользователь");
НовДок.Комментарий="Выплата за "+МесяцСтрока;
НовДок.ЭлементыФормы.Комментарий.Доступность=Ложь; 
Для Каждого ТекущаяСтрока Из ТаблицыЗначений Цикл  // заполним табличную часть документа, из ТаблицыЗначений
НС=НовДок.зарплата.добавить();	
нс.Авторасчет=истина;
нс.Физлицо = ТекущаяСтрока.Физлицо;
нс.ВыплаченностьЗарплаты=Перечисления.ВыплаченностьЗарплаты.НеВыплачено;
нс.сумма=ТекущаяСтрока.Результат; 
КонецЦикла;
НовДок.Записать();

//Или так:
НовыйДок = Документы.ПеремещениеТоваров.СоздатьДокумент();
НовыйДок.Дата = ПолеВводаДаты;
НовыйДок.УстановитьВремя();
НовыйДок.УстановитьНовыйНомер();
// Формирование табличной части
Для Н=1 По N Цикл
    НоваяСтрока = НовыйДок.Товары.Добавить();
    НоваяСтрока.Номенклатура = СтрокаДанных.Номенклатура;
    // формируются другие реквизиты табличной части
КонецЦикла;
НовыйДок.Записать();
СписокДокументов.Добавить(НовыйДок.Ссылка);