Функция НеделяГодаПоISO8601(Знач Дата, Год=Неопределено) Экспорт

    Если ДеньНедели(НачалоГода(Дата)) <= 4 тогда //если первая неделя года начинается до четверга, т.е. в ней есть четверг

        //значит год начинается с первой недели

        Год = Год(Дата);

        Неделя = НеделяГода(Дата);

        Возврат Неделя;

    Иначе

        //год начинается с последней недели прошлого года

        Неделя = НеделяГода(Дата)-1;

        

        Если Неделя = 0 тогда //если это до первой недели года

            Неделя = НеделяГодаПоISO8601(НачалоГода(Дата)-1, Год); //значит это последняя неделя прошлого года

        Иначе

            Год = Год(Дата);

        КонецЕсли;

    КонецЕсли;

    

    Возврат Неделя;

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



// Более короткий вариант:

Функция НеделяГода_ISO8601(Дата)       

    Корректировочная = НеделяГода(Дата(Год(Дата),1,4)) - 1;

    Результат = НеделяГода(Дата) - Корректировочная;

    Результат = ?(Результат = 0, НеделяГода_ISO8601(ДобавитьМесяц(КонецГода(Дата), -12)), Результат);    

    Возврат Результат;          

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

 

// "ПутьКФайлу" - строка. Полное имя файла в формате 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();

        Объект = Неопределено;

    КонецПопытки;



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

 Процедура ОпределитьСписокРецензентовПередСозданиемЗадач(ТочкаМаршрутаБизнесПроцесса, ФормируемыеЗадачи, СтандартнаяОбработка)



    НоваяЗадача = Задачи.Задача.СоздатьЗадачу();

    НоваяЗадача.БизнесПроцесс = ЭтотОбъект.Ссылка;

    НоваяЗадача.ТочкаМаршрута = БизнесПроцессы.Согласование.ТочкиМаршрута.ОпределитьСписокРецензентов;

    НоваяЗадача.Дата = ТекущаяДата();

    НоваяЗадача.Наименование = БизнесПроцессы.Согласование.ТочкиМаршрута.ОпределитьСписокРецензентов.Наименован

ие;

    НоваяЗадача.Сотрудник = ПараметрыСеанса.ТекущийИсполнитель;



    ФормируемыеЗадачи.Добавить(НоваяЗадача);

    СтандартнаяОбработка = Ложь;



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

 Процедура НаСогласованиеПриСозданииЗадач(ТочкаМаршрутаБизнесПроцесса, ФормируемыеЗадачи, Отказ)



    Для Каждого Элемент Из Рецензии Цикл



        НоваяЗадача = Задачи.Задача.СоздатьЗадачу();

        НоваяЗадача.БизнесПроцесс = ЭтотОбъект.Ссылка;

        НоваяЗадача.ТочкаМаршрута = БизнесПроцессы.Согласование.ТочкиМаршрута.НаСогласование;

        НоваяЗадача.Дата = ТекущаяДата();

        НоваяЗадача.Наименование = БизнесПроцессы.Согласование.ТочкиМаршрута.НаСогласование.Наименование;



        НоваяЗадача.Сотрудник = Элемент.Рецензент;

        НоваяЗадача.РольИсполнителя = Элемент.РольИсполнителя;

        НоваяЗадача.Подразделение = Элемент.Подразделение;



        ФормируемыеЗадачи.Добавить(НоваяЗадача);

        НоваяЗадача.Записать();

        Элемент.Задача = НоваяЗадача.Ссылка;



    КонецЦикла;



    Записать();



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

 //Выгрузка кадровых данных

Процедура ВыгрузимИзЗУП() Экспорт  	

	Обработина = Обработки.УниверсальныйОбменДаннымиXML.Создать();

	Обработина.РежимОбмена = "Выгрузка";	

	Обработина.ДатаНачала	 = НачалоДня(ДобавитьМесяц(ТекущаяДата(),-1));

	Обработина.ДатаОкончания   = КонецМесяца(ТекущаяДата());

	Обработина.ИмяФайлаОбмена  = "D:\ZUP_BUH_EXCH\Upload.xml";

	Обработина.ИмяФайлаПравилОбмена  = "D:\ZUP_BUH_EXCH\Zup-Buh.xml";

	Обработина.ЗагрузитьПравилаОбмена();

	Обработина.ВыполнитьВыгрузку();	

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

 Процедура ЗагрузкаВБУХ() Экспорт	

	Обработина  = Обработки.УниверсальныйОбменДаннымиXML.Создать();

	Обработина.ИмяФайлаОбмена = "D:\ZUP_BUH_EXCH\Upload.xml";

	Обработина.РежимОбмена	 = "Загрузка";

	Обработина.ОптимизированнаяЗаписьОбъектов = Истина;

	Обработина.ЗаписыватьРегистрыНаборамиЗаписей = Истина;

	Обработина.ЗаписыватьВИнформационнуюБазуТолькоИзмененныеОбъекты = Истина;

	Обработина.ЗагружатьДанныеВРежимеОбмена = Истина;

	Обработина.ВыполнитьЗагрузку();	

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

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



    Попытка



        //Объект = Получить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();

        Объект = Неопределено;

    КонецПопытки;



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

 Функция глОткрытьФайл(Маска="") Экспорт  

   Перем ИмяФайла,ИмяКаталога;

   Маска_="Файлы "+Маска+"|*."+Маска;  

   Если СокрЛП(Маска)="" Тогда

      Маска_="Все файлы |*.*"  

   КонецЕсли;

   Если ФС.ВыбратьФайл(0,ИмяФайла,ИмяКаталога,"Открыть файл",Маска_)=1 Тогда

      Возврат ИмяКаталога+ИмяФайла;   //полное имя открытого файла    

   Иначе

      Возврат "";

   КонецЕсли;

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



Функция ReadExcel(ИмяФайла,Лист=1) Экспорт

   Попытка

      E=СоздатьОбъект("Excel.Application");

   Исключение

      Предупреждение("Excel на компьютере не установлен!");

      Возврат ПолучитьПустоеЗначение();

   КонецПопытки;  

   E.Workbooks.Open(Сокрлп(ИмяФайла));

   Строк=E.Sheets(Лист).Cells.SpecialCells(11).Row;    // строка последней ячейки

   Столбцов=E.Sheets(Лист).Cells.SpecialCells(11).Column; // столбец последней ячейки  

   фТЗ=СоздатьОбъект("ТаблицаЗначений");

   Для А=1 По Столбцов Цикл

      фТЗ.НоваяКолонка();

   КонецЦикла;

   Для Стр=1 По Строк Цикл

      Состояние("Обработано "+Строка(Стр)+" строк из "+Строка(Строк));

      фТЗ.НоваяСтрока(Стр);

      Для Столб=1 По Столбцов Цикл

         фТЗ.УстановитьЗначение(Стр,Столб,СокрЛП(E.Sheets(Лист).Cells(Стр,Столб).Value));

      КонецЦикла;

   КонецЦикла;

   E.Workbooks.Close();  

   Возврат фТЗ;

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



Процедура Сформировать()      

   ИмяФайла=глОткрытьФайл("xls");

   Если СокрЛП(ИмяФайла)="" Тогда Возврат; КонецЕсли;

   ТЗ.Загрузить(ReadExcel(ИмяФайла,1)); // ТЗ - таблица значений на форме    

   // ну а дальше смотрим визуально, что с ней дальше делать

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

 ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); 

ДиалогОткрытияФайла.Выбрать(); 



Файл = Новый Файл(ДиалогОткрытияФайла.ПолноеИмяФайла); 

Текст = "Файл: " + Файл.Имя; 

Текст = Текст + Символы.ПС + "Расширение: " + Файл.Расширение; 

Текст = Текст + Символы.ПС + "Полное имя: " + Файл.ПолноеИмя; 

Текст = Текст + Символы.ПС + "Путь: " + Файл.Путь; 

Текст = Текст + Символы.ПС + "Размер: " + Файл.Размер() + " байт"; 

Текст = Текст + ?(Файл.ПолучитьНевидимость(), Символы.ПС + "Невидимый. ", ""); 

Текст = Текст + ?(Файл.ПолучитьТолькоЧтение(), Символы.ПС + "Только чтение.", ""); 

Текст = Текст + Символы.ПС + "Последнее изменение: " + Файл.ПолучитьВремяИзменения(); 

Сообщить(Текст);   

 Сообщить("ИНФОРМАЦИЯ О ОТКРЫТОМ ФАЙЛЕ!","I");

Сообщить("Путь к открытому файлу - " + папк + файл);

ИмяВыбрФайла=папк+файл;

ФС.АтрибутыФайла(ИмяВыбрФайла, A, B, C, D, E, F);

сообщить("Размер Файла - "+A);

сообщить("Количество записей - "+НомС + " , Количество полей - "+КолП ,"!");

сообщить("Время Создания - " + C);

сообщить("Время Последннго Доступа - " + D);

сообщить("Время Последней Записи - " + E);

сообщить("Расширенное Имя Файла - "+ F);

 Функция ПолучитьДатуФайла(Знач ИмяФайла) Экспорт

	

	Файл = Новый Файл(ИмяФайла);

	Возврат Файл.ПолучитьВремяИзменения();

	 

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

 Сообщить(appExcel.WorkSheets(1).UsedRange.Row);   

 LastRow=ExcelApp.Cells(1,1).SpecialCells(11).Row;   

 Сообщить(appExcel.WorkSheets(1).UsedRange.Columns);   

 LastCol=ExcelApp.Cells(1,1).SpecialCells(11).Columns;   

 	БИ=СоздатьОбъект("БухгалтерскиеИтоги");

БИ.ИспользоватьСубконто("ЦенныеБумаги",ЦБ,2);

БИ.ИспользоватьСубконто("ПартииЦБ");

БИ.ВыполнитьЗапрос(,ТекущийДокумент(),"58.6"); 



Если Константа.МетодОпределенияСебестоимости =   Перечисление.МетодыОпределенияСебестоимости.ФИФО Тогда

	БИ.ВыбратьСубконто(2,,,,,,0);

Иначе

	БИ.ВыбратьСубконто(2,,,,,,1);

КонецЕсли; 



Кол=Количество; 

Пока БИ.ПолучитьСубконто(2)=1 Цикл

	Сум=БИ.СКД(1);

	Ост=БИ.СКД(3);

	Если Ост<=Кол Тогда

		// списываем весь остаток по партии

		СумСпис=Сум;

		КолСпис=Ост; 

	ИначеЕсли Ост>Кол Тогда 

		// списываем требуемое количество 

		ЦенаСпис=Сум/Ост;

		КолСпис=Кол;

		СумСпис=Окр(КолСпис*ЦенаСпис,2); 

	Иначе     

		Продолжить;

	КонецЕсли;  



	Операция.НоваяПроводка();

	Операция.Дебет.Счет=Сч91_2;

	Операция.Кредит.Счет=Сч58_6;

	Операция.Кредит.ЦенныеБумаги=ЦБ;

	Операция.Кредит.ПартииЦБ=БИ.Субконто(2);  

	Операция.Сумма=СумСпис;

	Операция.Количество=КолСпис; 

	Кол=Кол-КолСпис; 

	Если Кол=0 Тогда

		Прервать;

	КонецЕсли;

КонецЦикла;



Если Кол>0 Тогда

	Сообщить("Остаток меньше нуля");

	НеПроводитьДокумент();

КонецЕсли; 

 

// Функция выделяет из имени файла его расширение

//

// Параметры

//  ИмяФайла     – Строка, содержащая имя файла, неважно с именем каталога или без.

//

// Возвращаемое значение:

//   Строка – расширение файла.

//

Функция ПолучитьРасширениеФайла(ИмяФайла) Экспорт



	ПозицияПоследнейТочки = 0;

	РасширениеФайла = ИмяФайла;



	Пока 1 = 1 Цикл

	

		ПозицияПоследнейТочки = Найти(РасширениеФайла, ".");



		Если ПозицияПоследнейТочки = 0 Тогда



			Прервать;



		Иначе



			РасширениеФайла = Сред(РасширениеФайла, ПозицияПоследнейТочки + 1)



		КонецЕсли;



	КонецЦикла;



	Возврат ?(РасширениеФайла = ИмяФайла, "", РасширениеФайла);



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