Процедура ОбработкаПроведения(Отказ, Режим)
 
	Движения.Хозрасчетный.Очистить();
	Движения.Хозрасчетный.Записать();
	Движения.Хозрасчетный.Записывать = Истина;
	Для Каждого ТекСтрокаТовары Из Товары Цикл		
		Запрос = Новый Запрос;       //проверяем сколько осталось на складе1
		Запрос.Текст = "ВЫБРАТЬ
		|	ХозрасчетныйОстатки.КоличествоОстатокДт
		|ИЗ
		|	РегистрБухгалтерии.Хозрасчетный.Остатки КАК ХозрасчетныйОстатки
		|ГДЕ
		|	ХозрасчетныйОстатки.Счет = &Счет
		|	И ХозрасчетныйОстатки.Субконто1 = &Субконто1
		|	И ХозрасчетныйОстатки.Субконто2 = &Субконто2";
		Запрос.УстановитьПараметр("Счет",ПланыСчетов.Хозрасчетный.ТоварыНаСкладах);  //41.1
		Запрос.УстановитьПараметр("Субконто1",ТекСтрокаТовары.Номенклатура);
		Запрос.УстановитьПараметр("Субконто2",Склад1);
		Выборка = Запрос.Выполнить().Выбрать();
		Если Выборка.Следующий() Тогда
			Если Выборка.КоличествоОстатокДт < ТекСтрокаТовары.Количество Тогда
				Сообщить("На складе1 остака: " + СокрЛП(Выборка.КоличествоОстатокДт)); 
				Отказ = Истина;
				Возврат;
			КонецЕсли;   
		Иначе
			Сообщить("нет остатка на складе1"); 
			Отказ = Истина;
			Возврат;
		КонецЕсли;   

		Движение = Движения.Хозрасчетный.Добавить();
		Движение.СчетКт = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;      //Списываем
		Движение.СчетДт = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;      //приходуем
		Движение.Период = Дата;
		Движение.КоличествоКт = ТекСтрокаТовары.Количество;
		Движение.ДатаЗаписи = Дата;
		Движение.Содержание = "Перемещение";
		
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,
                "Номенклатура",ТекСтрокаТовары.Номенклатура);
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,
                "Склады",Склад1);
		
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,
                "Номенклатура",ТекСтрокаТовары.Номенклатура);
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,
                "Склады",Склад2);
		//Или так
		//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Номенклатура;
		//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад1;
		//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Номенклатура;
		//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад2;
	КонецЦикла;

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

 НаборЗаписей = РегистрыНакопления.ОплаченоДней.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(ЭтотОбъект.Ссылка);
Запись = НаборЗаписей.ДобавитьПриход();
Запись.Регистратор = ЭтотОбъект.Ссылка;
Запись.Сотрудник = Строка.сотрудник;
Запись.Год = Перечисления.Года.год2010;
Запись.Дней = Строка.ОплаченоДнейЧасов;
НаборЗаписей.Записать();   

 Процедура ОбработкаПроведения(Отказ, Режим)
	// регистр ТоварыНаСкладах Приход
	Движения.ТоварыНаСкладах.Записывать = Истина;
	Движения.ТоварыНаСкладах.Очистить();
	Для Каждого ТекСтрокаТовары Из Товары Цикл
		Движение = Движения.ТоварыНаСкладах.Добавить();
		Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
		Движение.Период = Дата;
		Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
		Движение.Количество = ТекСтрокаТовары.Количество;
	КонецЦикла;

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

 
// "ПутьКФайлу" - строка. Полное имя файла в формате MSWord.
// "Ссылка" - ДокументСсылка (в моем случае - счет).
Процедура ВыполнитьОбработку() Экспорт

    Попытка
        Объект = ПолучитьCOMОбъект(ПутьКФайлу);
        // Покажем документ. Для красоты.
        Объект.Application.Visible = 1;
        Word = Объект.Application;

        Doc = Объект.Application.Documents(1);
        Doc.Activate();

        // Готовим переменную в которой будет содержимое нашего документа
        // (текст, таблицы и проч).
        Text = Word.S_election;

        // Очистим документ
        // Ctrl-A
        Text.WholeStory();
        // Del
        Text.Delete(1, 1);
        // Двигаемся на 3 строки ниже. Документ пустой, поэтому добавляем
        // строки "Переводами коретки"

        Text.TypeText(Символы.ВК);
        Text.TypeText(Символы.ВК);
        Text.TypeParagraph(); // другой вариант того же действия
        // Выводим текст.
        Text.TypeText("Обычный текст, набранный первую очередь");

        // Курсор в конце строки
        // Эмулируем нажатие Shift+Home - выделяем строку
        Text.HomeKey(, 1);
        // Форматирование выделенной строки
        Text.Font.Bold = 9999998;
        Text.Font.Size = 14;
        Text.Font.Name = "Verdana";

        // Сдвигаем курсор. Сдвинуть курсор по строкам возможно, только,
        // если эти строки уже содержат текст, иначе ничего не произойдет.
        Text.MoveUp(,2);   // вверх на 2 строки
        //Word.S_election.MoveDown(,числострок); // вниз
        //Word.S_election.MoveLeft(,числострок); // влево
        //Word.S_election.MoveRight(,числострок);// вправо

        // Добавление текста. Текст выводится начиная с текщей позиции
        // курсора.
        Text.HomeKey(, 1);
        Text.TypeText("Обычный текст, набранный во вторую очередь");

        Text.MoveDown(,1); // вниз на 2 строки
        Text.EndKey(); // в конец строки
        Text.TypeParagraph(); // и в начало следующей строки

        // Очищаем форматирование
        Text.ClearFormatting();
        // Добавляем таблицу.
        // Получаем текущую позицию курсора
        Position = Text.Range();

        // Параметры: Позиция, число строк, число колонок,
        // последние 2 параметра отвечают за автоподбор высоты и отображение
        // границ таблицы
        Table = Doc.Tables.Add(Position, 1, 6, 1, 2);

        // Устанавливаем ширину колонок
        Table.Columns(1).PreferredWidth=10;
        Table.Columns(2).PreferredWidth=50;
        Table.Columns(3).PreferredWidth=10;
        Table.Columns(4).PreferredWidth=10;
        Table.Columns(5).PreferredWidth=10;
        Table.Columns(6).PreferredWidth=10;

        // Задаем заголовки колонок
        Row1=Table.Rows(1);
        Row1.Cells(1).Range.Text="№ п/п";
        Row1.Cells(2).Range.Text="Наименование";
        Row1.Cells(4).Range.Text="Кол-во";
        Row1.Cells(3).Range.Text="Ед. изм.";
        Row1.Cells(5).Range.Text="Цена,руб.";
        Row1.Cells(6).Range.Text="Сумма,руб.";

        // Построчно выводим содержимое таблицы Товары
        НомерСтроки = 1;
        Для каждого СтрокаТовары Из Ссылка.Товары Цикл
            Row=Table.Rows.Add();
            Row.Cells(1).Range.Text=НомерСтроки;
            // Выравнивание по левому краю
            Row.Cells(1).Range.ParagraphFormat.Alignment = 1;
            // В качестве текста можно передать только значение "простого" формата
            // все агрегатные объекты, переданные как текст, что нормально для платформы 1с
            // вызовут исключение.
            Row.Cells(2).Range.Text=СтрокаТовары.Номенклатура.Наименование
                   +?(ЗначениеЗаполнено(СтрокаТовары.ХарактеристикаНоменклатуры),
                   " ("+СтрокаТовары.ХарактеристикаНоменклатуры+")","");
            Row.Cells(4).Range.Text=Строка(СтрокаТовары.Количество);
            Row.Cells(4).Range.ParagraphFormat.Alignment = 1;
            Row.Cells(3).Range.Text=?(ЗначениеЗаполнено(СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения)
                                  ,СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения.Наименование,"-");
            Row.Cells(3).Range.ParagraphFormat.Alignment = 1;
            Row.Cells(5).Range.Text=Формат(СтрокаТовары.Цена,"ЧДЦ=2");
            Row.Cells(5).Range.ParagraphFormat.Alignment = 1;
            Row.Cells(6).Range.Text=Формат(СтрокаТовары.Сумма,"ЧДЦ=2");
            Row.Cells(6).Range.ParagraphFormat.Alignment = 1;
            НомерСтроки=НомерСтроки+1;
        КонецЦикла;

        // Задаем форматирование первой строки
        // Если сделать это сразу, то все новые строки таблицы будут
        // формироваться с тем же форматом
        Row1.Range.Font.Bold = 9999998;
        Row1.Range.Font.Size = 14;
        Row1.Range.Font.Name = "Verdana";
        Row1.Range.ParagraphFormat.Alignment = 1;

        // Последняя строка...
        Row = Table.Rows.Add();
        Row.Range.Font.Bold = 9999998;
        Row.Cells(1).Range.Text="Итого:";
    Исключение
        Doc.Save();
        Сообщить(ОписаниеОшибки());
        Объект.Application.Quit();
        Объект = Неопределено;
    КонецПопытки;

    Попытка // эта конструкция выдает исключительную ситуацию, но при этом
        // результат все-равно работает))
        // объединяем ячейки в конце таблицы
        Table.cell(НомерСтроки+1, 1).Merge(Table.cell(НомерСтроки+1, 5));
    Исключение
    КонецПопытки;

    Попытка
        Row.Cells(1).Range.ParagraphFormat.Alignment = 3;
        Row.Cells(2).Range.Text=Формат(Ссылка.Товары.Итог("Сумма"), "ЧДЦ=2");
        Row.Cells(2).Range.ParagraphFormat.Alignment = 1;

        Doc.Save();
        Объект.Application.Quit();
        Объект = Неопределено;
    Исключение
        Doc.Save();
        Сообщить(ОписаниеОшибки());
        Объект.Application.Quit();
        Объект = Неопределено;
    КонецПопытки;
КонецПроцедуры    

 Процедура ВыполнитьОбработку() Экспорт

    Попытка

        //Объект = ПолучитьCOMОбъект(ПутьКФайлу);
        Объект = ПолучитьCOMОбъект("C:\Users\NKrylov\Desktop\Тест.docx");
        // Покажем документ.
        Объект.Application.Visible = 1;
        Word = Объект.Application;

        ThisDocument = Word.Documents(1);
        ThisDocument.Activate();

        // Отключим проверку грамматики и вывод информации о грамматических ошибках.
        ThisDocument.GrammarChecked=0;
        ThisDocument.ShowGrammaticalErrors=0;

        // Готовим переменную в которой будет содержимое документа (текст).
        S_election = Word.S_election;

        // Очистим документ
        // Ctrl-A
        S_election.WholeStory();
        // Del
        S_election.Delete(1, 1);

        // Уменьшим междустрочный интервал.
        S_election.ParagraphFormat.LineSpacingRule = 0; // 1 по умолчанию
        S_election.ParagraphFormat.SpaceAfter = 0;      // 10 по умолчанию

        // Разметим документ. Это можно сделать и предварительно в макете
        ThisDocument.Bookmarks.Add("Закладка1", S_election.Range());
        S_election.TypeParagraph();
        S_election.TypeText("34r3 ");
        S_election.HomeKey(, 1);
        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());
        S_election.EndKey();
        S_election.TypeParagraph();
        ThisDocument.Bookmarks.Add("Закладка3", S_election.Range());
        S_election.TypeParagraph();
        ThisDocument.Bookmarks.Add("Закладка4", S_election.Range());
        S_election.EndKey();

        // Так можно работать с текстом только в конкреной области документа - это и будет замена метода Find-Execute.
        ThisDocument.Bookmarks("Закладка3").Range.S_elect();
        S_election = Word.S_election;

        Bookmark = ThisDocument.Bookmarks("Закладка3");
        Table = ThisDocument.Tables.Add(Bookmark.Range(),1,5,1,2);
        Table.Rows(1).Cells(1).Range.Text = 1;
        Table.Rows(1).Cells(2).Range.Text = 2;
        Table.Rows(1).Cells(3).Range.Text = 3;
        Table.Rows(1).Cells(4).Range.Text = 4;
        Table.Rows(1).Cells(5).Range.Text = 5;

        // После вывода таблицы, появится "лишняя строка", удалим ее
        // в результате курсор встанет в область закладки 4
        S_election.MoveDown(, 1);
        S_election.Delete(1, 1);

        // Этот текст будет выведен не с последней позиции курсора, а в активной области.
        // в данном случае - в области закладки 2
        ThisDocument.Bookmarks("Закладка2").Range.S_elect();
        S_election = Word.S_election;
        Text = S_election.Range.Text;
        S_election.TypeText(Text + " sdcsdcs");
        // При выводе текста закладка "сбросилась". Восстановим.
        // "Победить" эту проблему я так и не смог((
        // Хотя на практике, закладка больше и не понадобится.
        // Дважды выводить текст в одну и ту же область - не имеет смысла.
        S_election.HomeKey(, 1);
        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());
        S_election.EndKey();

        // В области закладки 4 сформируем нумерованный список
        ThisDocument.Bookmarks("Закладка4").Range.S_elect();
        S_election = Word.S_election; // активная (выделенная) область будет начинаться
        // от закладки 4)

        // Добавим текст "для опытов"
        // 1
        S_election.TypeText("sdcsdcsdcsdc");
        S_election.TypeParagraph();
        // 2
        S_election.TypeText("sdcsdcsdcsdc");
        S_election.TypeParagraph();
        // 3
        S_election.TypeText("sdcsdcsdcsdc");
        S_election.TypeParagraph();
        // 4
        S_election.TypeText("sdcsdcsdcsdc");
        S_election.TypeParagraph();
        // Выделяем введенный текст
        S_election.MoveUp(,4,1);

        // Настроим шаблон объекта галереи списков
        // Галереи списков бывают несккольких типов, 2 - нумерованные списки
        ListTemplate = Word.ListGalleries(2).ListTemplates(1).ListLevels(1);
        // Формат нумератора списка - точка после символа нумерации
        ListTemplate.NumberFormat = "%1.";
        // стиль нумератора - арабские цифры
        ListTemplate.NumberStyle = 0; // wdListNumberStyleArabic
        // 4 - маленькие латинские буквы.
        // 2 - маленькие римские цифры.
        // 58- меленькие русские буквы.
        // Font = Template.Font; // можно указать форматирование текста списка

        // Применим шаблон к выделенному тексту
 S_election.Range.ListFormat.ApplyListTemplateWithLevel( Word.ListGalleries(2).ListTemplates(1));

        // Перейдем в конец текста
        S_election.EndKey(6);

        // Добавим картинку
        // Параметры: путь к файлу, создавать ссылку на картинку, сохранять с файлом
        Picture = S_election.InlineShapes.AddPicture("C:\Users\NKrylov\Desktop\Новый.bmp", Ложь, Истина);
        // Зададим размер
        Picture.Height = 100;
        Picture.Width  = 150;

        // Чтобы установить обтекание текста, конвертируем рисунок в фигуру
        Shape = Picture.ConvertToShape();
        Shape.WrapFormat.Type = 0; // по контуру...

        ThisDocument.Save();
        //Объект.Application.Quit();
        Объект = Неопределено;
    Исключение
        ThisDocument.Save();
        Сообщить(ОписаниеОшибки());
        //Объект.Application.Quit();
        Объект = Неопределено;
    КонецПопытки;

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

 Отбор = Новый Структура("ТипЦен, Номенклатура");
Отбор.ТипЦен = ТипЦены; // Какой тип цены
Отбор.Номенклатура = Номенклатура; // Для какой номенклатуры
// Цена в регистре сведений до Рабочей даты включительно
Цена = РегистрыСведений.ЦеныНоменклатуры.СрезПоследних( РабочаяДата(), Отбор);   

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

 Процедура ВыполнитьОбработку() Экспорт

    Попытка
        Объект = ПолучитьCOMОбъект(ПутьКФайлу);
        // Покажем документ. Для красоты.
        Объект.Application.Visible = 1;
        Word = Объект.Application;

        Doc = Объект.Application.Documents(1);
        Doc.Activate();

        // Готовим переменную в которой будет содержимое нашего документа
        // (текст, таблицы и проч).
        Text = Word.S_election;

        // Очистим документ
        // Ctrl-A
        Text.WholeStory();
        // Del
        Text.Delete(1, 1);
        // Двигаемся на 3 строки ниже. Документ пустой, поэтому добавляем
        // строки "Переводами коретки"

        Text.TypeText(Символы.ВК);
        Text.TypeText(Символы.ВК);
        Text.TypeParagraph(); // другой вариант того же действия
        // Выводим текст.
        Text.TypeText("Обычный текст, набранный первую очередь");

        // Курсор в конце строки
        // Эмулируем нажатие Shift+Home - выделяем строку
        Text.HomeKey(, 1);
        // Форматирование выделенной строки
        Text.Font.Bold = 9999998;
        Text.Font.Size = 14;
        Text.Font.Name = "Verdana";

        // Сдвигаем курсор. Сдвинуть курсор по строкам возможно, только,
        // если эти строки уже содержат текст, иначе ничего не произойдет.
        Text.MoveUp(,2);   // вверх на 2 строки
        //Word.S_election.MoveDown(,числострок); // вниз
        //Word.S_election.MoveLeft(,числострок); // влево
        //Word.S_election.MoveRight(,числострок);// вправо

        // Добавление текста. Текст выводится начиная с текщей позиции
        // курсора.
        Text.HomeKey(, 1);
        Text.TypeText("Обычный текст, набранный во вторую очередь");

        Text.MoveDown(,1); // вниз на 2 строки
        Text.EndKey(); // в конец строки
        Text.TypeParagraph(); // и в начало следующей строки

        // Очищаем форматирование
        Text.ClearFormatting();
        // Добавляем таблицу.
        // Получаем текущую позицию курсора
        Position = Text.Range();

        // Параметры: Позиция, число строк, число колонок,
        // последние 2 параметра отвечают за автоподбор высоты и отображение
        // границ таблицы
        Table = Doc.Tables.Add(Position, 1, 6, 1, 2);

        // Устанавливаем ширину колонок
        Table.Columns(1).PreferredWidth=10;
        Table.Columns(2).PreferredWidth=50;
        Table.Columns(3).PreferredWidth=10;
        Table.Columns(4).PreferredWidth=10;
        Table.Columns(5).PreferredWidth=10;
        Table.Columns(6).PreferredWidth=10;

        // Задаем заголовки колонок
        Row1=Table.Rows(1);
        Row1.Cells(1).Range.Text="№ п/п";
        Row1.Cells(2).Range.Text="Наименование";
        Row1.Cells(4).Range.Text="Кол-во";
        Row1.Cells(3).Range.Text="Ед. изм.";
        Row1.Cells(5).Range.Text="Цена,руб.";
        Row1.Cells(6).Range.Text="Сумма,руб.";

        // Построчно выводим содержимое таблицы Товары
        НомерСтроки = 1;
        Для каждого СтрокаТовары Из Ссылка.Товары Цикл
            Row=Table.Rows.Add();
            Row.Cells(1).Range.Text=НомерСтроки;
            // Выравнивание по левому краю
            Row.Cells(1).Range.ParagraphFormat.Alignment = 1;
            // В качестве текста можно передать только значение "простого" формата
            // все агрегатные объекты, переданные как текст, что нормально для платформы 1с
            // вызовут исключение.
            Row.Cells(2).Range.Text=СтрокаТовары.Номенклатура.Наименование
                   +?(ЗначениеЗаполнено(СтрокаТовары.ХарактеристикаНоменклатуры),
                   " ("+СтрокаТовары.ХарактеристикаНоменклатуры+")","");
            Row.Cells(4).Range.Text=Строка(СтрокаТовары.Количество);
            Row.Cells(4).Range.ParagraphFormat.Alignment = 1;
            Row.Cells(3).Range.Text=?(ЗначениеЗаполнено(СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения)
                                  ,СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения.Наименование,"-");
            Row.Cells(3).Range.ParagraphFormat.Alignment = 1;
            Row.Cells(5).Range.Text=Формат(СтрокаТовары.Цена,"ЧДЦ=2");
            Row.Cells(5).Range.ParagraphFormat.Alignment = 1;
            Row.Cells(6).Range.Text=Формат(СтрокаТовары.Сумма,"ЧДЦ=2");
            Row.Cells(6).Range.ParagraphFormat.Alignment = 1;
            НомерСтроки=НомерСтроки+1;
        КонецЦикла;

        // Задаем форматирование первой строки
        // Если сделать это сразу, то все новые строки таблицы будут
        // формироваться с тем же форматом
        Row1.Range.Font.Bold = 9999998;
        Row1.Range.Font.Size = 14;
        Row1.Range.Font.Name = "Verdana";
        Row1.Range.ParagraphFormat.Alignment = 1;

        // Последняя строка...
        Row = Table.Rows.Add();
        Row.Range.Font.Bold = 9999998;
        Row.Cells(1).Range.Text="Итого:";
    Исключение
        Doc.Save();
        Сообщить(ОписаниеОшибки());
        Объект.Application.Quit();
        Объект = Неопределено;
    КонецПопытки;

    Попытка // эта конструкция выдает исключительную ситуацию, но при этом
        // результат все-равно работает))
        // объединяем ячейки в конце таблицы
        Table.cell(НомерСтроки+1, 1).Merge(Table.cell(НомерСтроки+1, 5));
    Исключение
    КонецПопытки;

    Попытка
        Row.Cells(1).Range.ParagraphFormat.Alignment = 3;
        Row.Cells(2).Range.Text=Формат(Ссылка.Товары.Итог("Сумма"), "ЧДЦ=2");
        Row.Cells(2).Range.ParagraphFormat.Alignment = 1;

        Doc.Save();
        Объект.Application.Quit();
        Объект = Неопределено;
    Исключение
        Doc.Save();
        Сообщить(ОписаниеОшибки());
        Объект.Application.Quit();
        Объект = Неопределено;
    КонецПопытки;

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