Процедура ПриНачалеРаботыСистемы() 

Если Найти(ПараметрЗапуска,"changemail")>0 Тогда 

Форма = Обработки.SaletoMail.ПолучитьФорму(); 

Форма.ОтсылкаПоЗаказу(); 

ЗавершитьРаботуСистемы(Ложь); 

конецЕсли; 

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

 

Процедура ОтсылкаПоЗаказу() 

Профиль = Новый ИнтернетПочтовыйПрофиль; 

Профиль.АдресСервераSMTP = "mail.xxx.ru"; 

Профиль.АдресСервераPOP3 = "mail.xxx.ru"; 

Профиль.ПортSMTP = 25; 

Профиль.ПортPOP3 = 110; 

Профиль.Пользователь = "sale"; 

Профиль.Пароль = "Report"; 

Почта = Новый ИнтернетПочта; 

Почта.Подключиться(Профиль); 

Массив = Новый Массив; Сообщения = Почта.Выбрать(true ,Массив); 

// true для того, что бы очистить обработанные сообщения 

Для КолПисем= 1 По Сообщения.Количество() Цикл 

ТекПисьмо = Сообщения.Получить(КолПисем-1); 

Если (Найти(ТекПисьмо.Отправитель.Адрес,"xxx.ru")>0) and (НРег(ТекПисьмо.Тема)="magicsale") тогда Письмо = Новый ИнтернетПочтовоеСообщение; Письмо.ИмяОтправителя = "sale"; 

Сообщение = Новый ИнтернетПочтовоеСообщение; 

Письмо.Тексты.Добавить("Продажи дня" + ТекущаяДата()); 

Письмо.Получатели.Добавить(""+Сообщения.Получить(КолПисем-1).Отправитель.Адрес); 

// ….. Поскипано 

// ….. Формируем отчет о продажах и сохраняем его во внешний файл , или текст. 

// ….. вкладываем отчет как приатаченный файл или тело сообщения. 

Почта.Послать(Письмо); 

КонецЕсли; 

КонецЦикла; 

Почта.Отключиться(); 

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

   

 Текст = Новый ТекстовыйДокумент;

// перебор элементов справочника

Выборка = Справочники.Клиенты.Выбрать();

Пока Выборка.Следующий() Цикл

  // выводим в файл код и наименование, разделенные 

  // каким-либо разделителем, например, ‘;’

  Текст.ДобавитьСтроку(""+Выборка.Код+";"+Выборка.Наименование);

КонецЦикла;

// запись в текстовый файл

Текст.Записать("C://1.txt");   

 // файл в формате Unicode

Текст = Новый ЗаписьТекста("C://1.txt", КодировкаТекста.UTF8);

// перебор элементов справочника

Выборка = Справочники.Клиенты.Выбрать();

Пока Выборка.Следующий() Цикл

  // выводим в файл код и наименование, разделенные 

  // каким-либо разделителем, например, ‘;’

  Текст.ЗаписатьСтроку(""+Выборка.Код+";"+Выборка.Наименование);

КонецЦикла;

// запись в текстовый файл

Текст.Закрыть();   

 Текст = Новый ТекстовыйДокумент;

// открытие файла

Текст.Прочитать("C://1.txt");

// перебор строк текстового документа

Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл

 // получить строку файла с указанным номером

 Стр = Текст.ПолучитьСтроку(НомерСтроки);

 // «распарсивание» строки

 // ищем позицию символа-разделителя

 Позиция = Найти (Стр, ‘;’);

 // создаем новый элемент справочника

 Спр=Справочники.Клиенты.СоздатьЭлемент();

 // в код записывается подстрока от первого символа до позиции

 // символа-разделителя

 Спр.Код = Сред(Стр,1,Позиция-1); 

 // за символом-резделителем – наименование клиента

 Спр.Наименование = Сред (Стр, Позиция+1);

 Спр.Записать();

КонецЦикла;   

 // файл в формате Unicode

Текст = Новый ЧтениеТекста("C://1.txt", КодировкаТекста.UTF8);

// перебор элементов справочника

Стр="";

// пока строки в файле остались

Пока Стр<>Неопределено Цикл

 // получить очередную строку файла 

 Стр = Текст.ПрочитатьСтроку();

 // «распарсивание» строки

 // ищем позицию символа-разделителя

 Позиция = Найти (Стр, ‘;’);

 // создаем новый элемент справочника

 Спр=Справочники.Клиенты.СоздатьЭлемент();

 // в код записывается подстрока от первого символа до позиции

 // символа-разделителя

 Спр.Код = Число(Сред(Стр,1,Позиция-1)); 

 // за символом-резделителем – наименование клиента

 Спр.Наименование = Сред (Стр, Позиция+1);

 Спр.Записать();

КонецЦикла;   

  // Выгрузка данных в текстовый файл

Текст = Новый ТекстовыйДокумент;

Выборка = Справочники.Номенклатура.Выбрать();

Пока Выборка.Следующий() Цикл

	Стр = СтрЗаменить(Выборка.Наименование, Символ(34), "%квч%");

	Код = Строка(Выборка.Код) + Символ(34);

	Текст.ДобавитьСтроку(Код + Стр);

КонецЦикла;

Текст.Записать("c:\temp\text.txt");



//Загрузка данных из текстового файла. При загрузке ориентируемся на используемый разделитель значений (это кавычка).

//После получения значения делаем обратное преобразование для разделителя (при выгрузке 

//данных кавычку, встречающуюся в выгружаемых строках, заменяли комбинацией символов %квч%)

Текст = Новый ТекстовыйДокумент;

Текст.Прочитать("c:\temp\text.txt");

Для НомерСтроки = 1 По Текст.КоличествоСтрок() Цикл

	Стр = Текст.ПолучитьСтроку(НомерСтроки);

	Позиция = Найти(Стр, Символ(34));

	Код = Сред(Стр, 1, Позиция-1);

	прНаименование = Сред(Стр, Позиция + 1);

	Наименование = СтрЗаменить(прНаименование, "%квч%", Символ(34));

	Сообщить(Код + "–" + Наименование);	

КонецЦикла;	





"В предыдущем примере файл ЗАГРУЖАЛСЯ ПОЛНОСТЬЮ, а в следующем примере ЗАГРУЖАЕТСЯ ПОСТРОЧНО."

"Это позволяет при работе с файлами больших размеров значительно уменьшить время выполнения задачи."

//Запись данных в файл построчно

Путь = "c:\temp\text.txt";

Текст = Новый ЗаписьТекста(Путь, КодировкаТекста.UTF8);

Выборка = Справочники.Номенклатура.Выбрать();

Пока Выборка.Следующий() Цикл

	Текст.ЗаписатьСтроку(Выборка.Наименование);

КонецЦикла;	

Текст.Закрыть();



//Чтение данных из файла построчно

Путь = "c:\temp\text.txt";

Текст = Новый ЧтениеТекста(Путь, КодировкаТекста.UTF8);

Стр = Текст.ПрочитатьСтроку();

Пока Стр <> Неопределено Цикл

	Стр = Текст.ПрочитатьСтроку();

	Сообщить(Стр);

КонецЦикла;   

  //Выгрузка данных в TXT файл

Данные = СоздатьОбъект("Текст");

Данные.КодоваяСтраница(0); // принудительная установка   

НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма

ТЗ.ВыбратьСтроки();

Пока ТЗ.ПолучитьСтроку()=1 Цикл 

 Стр = ""+ТЗ.ЭтоГруппа+";"+ТЗ.Уровень+";"+ ТЗ.КодРодителя+";"+ТЗ.Код+";"+ТЗ.Наименование; // Символ - разделитель полей - ";"

 Данные.ДобавитьСтроку(Стр);

КонецЦикла; 

Данные.Записать("c:\export.txt");

КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

// Рассчитываем продолжительность выполнения алгоритма в секундах

Длительность = Окр((КонВремя-НачВремя)/1000,3);

Сообщить("Время выгрузки в TXT файл: "+Длительность+" с");



//Загрузка, чтение данных из TXT файла:

НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма

Данные = СоздатьОбъект("Текст");

Данные.КодоваяСтраница(0); // принудительная установка  

Данные.Открыть("c:\export.txt");

КолСтр  = Данные.КоличествоСтрок();

 Для н=1 по КолСтр Цикл 

 ТекСтр = Данные.ПолучитьСтроку(н);   

 Состояние("В файле прочитано строк "+н+" из "+КолСтр);

КонецЦикла; 

КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

// Рассчитываем продолжительность выполнения алгоритма в секундах

Длительность = Окр((КонВремя-НачВремя)/1000,3);

Сообщить("Время чтения TXT файла: "+Длительность+" с"); 

  // ПРИМЕР 1

// Запись данных справочника в DBF-файл:

БД = Новый XBase;

// проектируется структура таблицы, т.е. имена и типы полей

БД.Поля.Добавить("Code","N",6,0);	// числовое поле Код

БД.Поля.Добавить("Name","S",30);	// строковое поле Наименование

// создание файла с указанной структурой

БД.СоздатьФайл("C://1.dbf");

Выборка = Справочники.Клиенты.Выбрать();

Пока Выборка.Следующий() Цикл

	// создается новая пустая строка таблицы

	БД.Добавить();

	// заполняем поля новой строки

	БД.Code = Выборка.Код;

	БД.Name = Выборка.Наименование;

КонецЦикла;

// зафиксировать изменения в файле

БД.ЗакрытьФайл();



// Чтение данных из DBF-файла в справочник:

БД = Новый XBase;

БД.ОткрытьФайл("C://1.dbf");

// считываем файл построчно

Пока БД.Следующая() Цикл

	// создаем новый элемент справочника

 Спр=Справочники.Клиенты.СоздатьЭлемент();

 	// переносим в реквизиты данные из текущей строки таблицы

 	Спр.Код = БД.Сode; 

 	Спр.Наименование = БД.Name;

Спр.Записать();

КонецЦикла;

БД.ЗакрытьФайл();   

  // ПРИМЕР 2

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

БД = Новый XBase;

БД.Поля.Добавить("CODE", "S", 5);

БД.Поля.Добавить("NAME", "S", 40);

БД.СоздатьФайл(Путь + "start.dbf", Путь + "index.cdx");

БД.Индексы.Добавить("IDXCODE", "CODE");

ФлИБД = БД.СоздатьИндексныйФайл(Путь + "index.cdx");

БД.АвтоСохранение = Истина;

Выборка = Справочники.Номенклатура.ВыбратьИерархически();

Пока Выборка.Следующий() Цикл

	БД.Добавить();

	БД.CODE = Выборка.Код;

	БД.NAME = Выборка.Наименование;

КонецЦикла;

БД.ЗакрытьФайл();



// Загрузка данных из DBF

БД = Новый XBase;

БД.ОткрытьФайл(Путь + "start.dbf", Путь + "index.cdx"); 

БД.ТекущийИндекс = БД.Индексы.IDXCODE;

Пока БД.Следующая() Цикл

	Сообщить(БД.CODE);

	Сообщить(БД.NAME);

КонецЦикла;	

БД.ЗакрытьФайл();    

  // Выгрузка ТЗ, Таблицы значений в DBF файл  

 НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма

 ДБФ = СоздатьОбъект("XBASE"); 

 ДБФ.ДобавитьПоле("IsGroup","N",1,0);  

 ДБФ.ДобавитьПоле("Level","N",1,0);

 ДБФ.ДобавитьПоле("ParentCode","S",8,0);

 ДБФ.ДобавитьПоле("Code","S",8,0);

 ДБФ.ДобавитьПоле("Descr","S",60,0); 

 ДБФ.КодоваяСтраница(0); // Windows

 ДБФ.СоздатьФайл("c:\export.dbf"); 



 ТЗ.ВыбратьСтроки();

 Пока ТЗ.ПолучитьСтроку()=1 Цикл

  ДБФ.Добавить();  

  ДБФ.IsGroup= ТЗ.ЭтоГруппа;

  ДБФ.Level= ТЗ.Уровень; 

  ДБФ.ParentCode = ТЗ.КодРодителя;

  ДБФ.Code= ТЗ.Код; 

  ДБФ.Descr= СокрЛП(ТЗ.Наименование); 

  ДБФ.Записать(); 

 КонецЦикла;  

 ДБФ.ЗакрытьФайл(); 



 КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

 // Рассчитываем продолжительность выполнения алгоритма в секундах

 Длительность = Окр((КонВремя-НачВремя)/1000,3);

 Сообщить("Время выгрузки в DBF файл: "+Длительность+" с");



 // Загрузка ТЗ, Таблицы значений из DBF файла

  НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма 

  ДБФ = СоздатьОбъект("XBASE"); 

  ДБФ.КодоваяСтраница(0); // Windows

  ДБФ.ОткрытьФайл("c:\export.dbf");  

  Если ДБФ.Открыта()=0 Тогда

   Сообщить("Файл DBF не открыт !","!");

   Возврат;

  КонецЕсли;

  КолСтр  = ДБФ.КоличествоЗаписей();

  н= 0; 

  ДБФ.Первая(); 

  ПризнакГруппы  = ДБФ.IsGroup;

  ТекУровень  = ДБФ.Level; 

  ТекКодРодителя = ДБФ.ParentCode;

  ТекКод  = ДБФ.Code; 

  ТекНаименоване = ДБФ.Descr;  

  н = н+1;

  Состояние("В файле прочитано записей "+н+" из "+КолСтр); 

  Пока ДБФ.Следующая()=1 Цикл

   ПризнакГруппы  = ДБФ.IsGroup;

   ТекУровень  = ДБФ.Level; 

   ТекКодРодителя = ДБФ.ParentCode;

   ТекКод  = ДБФ.Code; 

   ТекНаименоване = ДБФ.Descr;

   н = н+1;

   Состояние("В файле прочитано записей "+н+" из "+КолСтр); 

  КонецЦикла;  

  ДБФ.ЗакрытьФайл(); 

  

  КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

  // Рассчитываем продолжительность выполнения алгоритма в секундах

  Длительность = Окр((КонВремя-НачВремя)/1000,3);

  Сообщить("Время чтения DBF файла: "+Длительность+" с"); 

 Процедура КнопкаВыполнитьНажатие(Кнопка)

    

    Если ПроверкаДат() Тогда 

         Состояние("Запущена выгрузка данных");

         ПолучитьДанныеВТаблице();

         Если чОтчетов<>0 Тогда

                СортироватьТаблицу();

              ВыгрузитьТаблицуВФайл();

              ЗакрытьСистему();

              Состояние("Выгрузка завершена");

         Иначе

              //ЗакрытьСистемуАварийно();

 

         КонецЕсли;

    КонецЕсли;    

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

 Процедура ВыгрузитьТаблицуВФайл()

    

        //1. Open Excel-file 

 

               Если FileOfReports = Неопределено Тогда

            Попытка

                FileOfReports = Новый COMОбъект("Excel.Application");

                MyBook=FileOfReports.WorkBooks.Add(истина); //вместо истина можно вставить имя шаблона

 

                

                FirstSheet=MyBook.Worksheets(1);

                FirstSheet.Name = ОпределитьДату(НачПериода)+"-"+ОпределитьДату(КонПериода);

                FirstSheet.Activate();



                MyBook.SaveAs(КаталогDBF+"ОтчетыПроизводства.xls");

                

            Исключение

                Сообщить("ОШИБКА ЗАПИСИ В EXCEL-ФАЙЛ:"+ОписаниеОшибки());

                Сообщить("Совет: Возможно файл, в который должна быть произведена запись, Вами открыт для просмотра");

                Сообщить("Если это так, то закройте файл и запустите данную обработку повторно!");

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

            

            FileOfReports.Visible = 0;

        Иначе

            FileOfReports.Visible = 0;

            //FileOfReports.Visible = 1;

 

        КонецЕсли;

    

        //2.=========================================================================

        //Состояние("Анализ структуры файла...");

         

        чОтчетов = ТаблицаОтчетов.Количество();

        

        ЭлементыФормы.ИндикаторЗагрузки.МинимальноеЗначение = 0;

        ЭлементыФормы.ИндикаторЗагрузки.МаксимальноеЗначение = чОтчетов;

            

        ЭлементыФормы.Logo.Заголовок = "Выгружаю документы";

        лСчетчикИндикатора = 0;

        

        ВыгрузитьЗаголовокТаблицы(26);

        

        //ВЫГРУЖАЮ ТАБЛИЦУ В ФАЙЛ ПО СТРОКАМ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

        фСтарт=истина; //флаг первого прохода

 

        чОт=2;         //номер первой строки с данными

         

        Пока чОтчетов >= 1 Цикл //Цикл по строкам Таблицы отчетов

 

              чОтчетов = чОтчетов -1;

              СтрокаОтчетов = ТаблицаОтчетов.Получить(чОтчетов);

             Если (СтрокаОтчетов.ДатаВыпуска=ДатаВыпускаПред) 

                И (СтрокаОтчетов.Принадлежность=ПринадлежностьПред)

                И (СтрокаОтчетов.Типоразмер=ТипоразмерПред)

                И (СтрокаОтчетов.ТипОсновы=ТипОсновыПред)

             Тогда

             Иначе

                ДатаВыпускаПред=СтрокаОтчетов.ДатаВыпуска; 

                ПринадлежностьПред=СтрокаОтчетов.Принадлежность;

                ТипоразмерПред=СтрокаОтчетов.Типоразмер;

                ТипОсновыПред=СтрокаОтчетов.ТипОсновы;

                Если фСтарт Тогда

                     фСтарт = ложь; //Уже не первый проход

 

                Иначе     

                     чДо=глСчетчикСтрок;

                     ВыгрузитьСтрокуИтог(чОт,чДо,26);

                КонецЕсли;

                чОт=глСчетчикСтрок;

             КонецЕсли;

             

             ВыгрузитьСтрокуОтчетовВФайл(СтрокаОтчетов,26);

             

             лСчетчикИндикатора = лСчетчикИндикатора + 1;

             ЭлементыФормы.ИндикаторЗагрузки.Значение = лСчетчикИндикатора;

             

             ОбработкаПрерыванияПользователя();

        

        КонецЦикла;

        чДо=глСчетчикСтрок;

        ВыгрузитьСтрокуИтог(чОт,чДо,26);

 

        //КОНЕЦ ВЫГРУЗКИ СТРОК В ФАЙЛ 

 

        Состояние("Данные файла выгружены");               

        //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

        libСообщитьНК1("ИНФО: ШАГ 1 ВЫПОЛНЕН. Данные файла Отчеты.DBF успешно считаны",1);    

        

        //Состояние("Создание сводных таблиц");

 

        ЭлементыФормы.Logo.Заголовок = "Создание сводных таблиц";

        

        //РазделитьОбласти();

 

            //Range("A2").S_elect

 

            //ActiveWindow.FreezePanes = True

 

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"наим","Дата","Наим","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"ЮВ","Дата","Наим,Каркас,Вид","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"В пр(2)","Дата","Наим,Каркас,Основа","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"В пр","Дата","Каркас,Основа","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Основа","Дата","Основа","","кг основы");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Напыление","","Напылен","","кг напылен");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Клей","","Дата","","кг клея");

            

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



Процедура СоздатьТаблицуЛист(стрДанные,стрСводнаяТаблица,стрПоле1,стрПоле2,стрПоле3,стрПоле4);

    

    //Создает сводную таблицу стрСводнаяТаблица с полями (стрПоле4 - поле реквизита) 

     //и размещает ее на одноименном листе

     //Заполняет сводную таблицу данными, взятыми с листа стрДанные

     

    //Поле стрПоле2 может быть полем списка через запятую

   

    //0. Вспомогательный разбор списка значений в стрПоле2 и определение числа значений

 

         лПоля.Очистить(); //сбросим все значения, если таковые весели в памяти

 

         стрПоля=стрПоле2;

         i=1;//число значений в списке

 

         Пока Найти(стрПоля,",")<>0 Цикл

             

              n=Найти(стрПоля,",");

              лПоля.Добавить(Сред(стрПоля,1,n-1));

              стрПоля=Сред(стрПоля,n+1);

              i=i+1;

              

         КонецЦикла;      

         лПоля.Добавить(стрПоля);

         

    //1. Установить диапазон выборки данных

     FirstSheet.Activate();

    дДиапазонДанных=FirstSheet.UsedRange.Address;

    ДиапазонДанных=FirstSheet.Name+"!"+Строка(дДиапазонДанных);    

    

    //2. Создать кэш под сводную таблицу

    //   аргументы не переменные, а текст с именем переменных (crazy)

     

         SourceType = xlDatabase;

         SourceData = ДиапазонДанных;

    

         Cache = MyBook.PivotCaches().Add(SourceType, SourceData);

 

    //для отладки: FileOfReports.Visible = 1;   

           

    //3. Породить из кэша сводную таблицу с именем стрСводнаяТаблица

         TableDestination="";

         TableName=стрСводнаяТаблица;

    

         Cache.CreatePivotTable(TableDestination,TableName);

    

    //4. Определить представление данных в сводной таблице

     //стрПоле1

 

    Если СокрЛП(стрПоле1)<>"" Тогда

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле1).Orientation = 3; //xlRowField=1 то, что указывается справа у таблицы

 

    КонецЕсли;

    

    //стрПоле2

 

    чНомер=0;

    Пока чНомер<i Цикл 

         Если СокрЛП(лПоля[чНомер].Значение)<>"" Тогда

               MyBook.ActiveSheet.PivotTables(TableName).PivotFields(лПоля[чНомер].Значение).Orientation = 1; 

         КонецЕсли;



         чНомер = чНомер + 1;  

    КонецЦикла;      



    //стрПоле3

 

    Если СокрЛП(стрПоле3)<>"" Тогда

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле3).Orientation = 2; //xlColumnField=2 то, что указывается в вепрхней части таблицы

 

    КонецЕсли;

    

    //стрПоле4

 

    Если СокрЛП(стрПоле4)<>"" Тогда

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле4).Orientation = 4; //xlCount=4 data

 

    КонецЕсли;

    

    //5. Скрыть пустые строки в стрПоле2, предварительно проверив, что таковые СУЩЕСТВУЮТ!!!!

    //стрПоле2

 

    чНомер=0;

    Пока чНомер<i Цикл 

         Если СокрЛП(лПоля[чНомер].Значение)<>"" Тогда

              Если IfPivotItemExists(TableName,лПоля[чНомер].Значение,"(пусто)")Тогда

                    MyBook.ActiveSheet.PivotTables(TableName).PivotFields(лПоля[чНомер].Значение).PivotItems("(пусто)").Visible = False;

              КонецЕсли;

         КонецЕсли;

         чНомер = чНомер + 1;  

    КонецЦикла;      

             

    //6. Закрыть вспомогательные панели                                                  

 

        MyBook.ShowPivotTableFieldList = False;

        FileOfReports.CommandBars("PivotTable").Visible = False;

    

    //7. Присвоить активному листу имя, заданное в параметрах процедуры

 

        MyBook.ActiveSheet.Name = стрСводнаяТаблица;

    

    //8. Сохранить файл

 

        MyBook.Save();

    

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



Функция IfPivotItemExists(strTableName,strFieldName,strItemName)

//Проверяет существование позиции поля сводной таблицы со значением strItemName    

 

        nItems = MyBook.ActiveSheet.PivotTables(strTableName).PivotFields(strFieldName).PivotItems().Count;

        i = 1;

        Пока i <= nItems Цикл

            Если strItemName=MyBook.ActiveSheet.PivotTables(strTableName).PivotFields(strFieldName).PivotItems(i).Name Тогда

                 //Искомая позиция strItemName существует:

 

                 //Сообщить("Позиция "+strItemName+" найдена");

 

                 Возврат True;

            КонецЕсли;

            i=i+1; 

        КонецЦикла;

        

        //Сообщить("Позиция "+strItemName+" не найдена");

 

        Возврат False;

        

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

  РабочаяКнига = СоздатьОбъект("Excel.Application");

РабочаяКнига.SheetsInNewWorkbook = 1;

РабочаяКнига.Caption = "Отчет по договорам отгрузки";

NewBook = РабочаяКнига.Workbooks;

List = NewBook.Add;



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

СписокСтолбцов.ДобавитьЗначение("Модель");

СписокСтолбцов.ДобавитьЗначение("Разнорядка");

СписокСтолбцов.ДобавитьЗначение("По договору");

СписокСтолбцов.ДобавитьЗначение("Отгрузили");

СписокСтолбцов.ДобавитьЗначение("Осталось");



//Заполним наименование столбцов: Модель, Разнорядка, Количество

Для Столбец = 1 По СписокСтолбцов.РазмерСписка() Цикл

	Ячейка = РабочаяКнига.Cells(1,Столбец);

	Ячейка.Value = СписокСтолбцов.ПолучитьЗначение(Столбец);

КонецЦикла; 



//Формируем запрос по регистру

//	//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

ТекстЗапроса =

"//{{ЗАПРОС(Сформировать)

|Период с ДатаНач по ДатаКон;

|Разнорядка = Регистр.УчетДоговоров.Разнорядка;

|Модель = Регистр.УчетДоговоров.Модель.Группа;

|Колво = Регистр.УчетДоговоров.Количество;

|Функция КолвоПриход = Приход(Колво);

|Функция КолвоРасход = Расход(Колво);

|Функция КолвоОст = КонОст(Колво);

|Группировка Разнорядка;

|Группировка Модель;

|"//}}ЗАПРОС

;



// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

	Возврат;

КонецЕсли;



НомерСтроки = 1;

Пока Запрос.Группировка("Разнорядка") = 1 Цикл

	Пока Запрос.Группировка("Модель") = 1 Цикл 

		Модель = Запрос.Модель;

		Разнорядка = Запрос.Разнорядка;

		КолПоДоговору = Запрос.КолвоПриход;

		КолОтгрузили = Запрос.КолвоРасход;

		КолОсталось = Запрос.КолвоОст;

		НомерСтроки = НомерСтроки + 1;

		//Организум заполнение ячеек Excel

		Для Ст = 1 По СписокСтолбцов.РазмерСписка() Цикл

			Ячейка = РабочаяКнига.Cells(НомерСтроки,Ст);

			Если Ст = 1 Тогда

				Ячейка.Value = Модель;

			ИначеЕсли Ст = 2 Тогда

				Ячейка.Value = Строка(Разнорядка);

			ИначеЕсли Ст = 3 Тогда

				Ячейка.Value = КолПоДоговору;

			ИначеЕсли Ст = 4 Тогда

				Ячейка.Value = КолОтгрузили;

			ИначеЕсли Ст = 5 Тогда

				Ячейка.Value = КолОсталось;

			КонецЕсли;

		КонецЦикла;	

	КонецЦикла;

КонецЦикла; 

СводнаяТаблица = РабочаяКнига.ActiveSheet.PivotTableWizard;

//Метод СводнаяТаблица.Name возвращает имя сводной таблицы

//Можно задать имя таблицы СводнаяТаблица.Name = "МояТаблица"

СводнаяТаблица.SmallGrid = 0;

//Разворачивает макет сводной таблицы 



//Обращение к ячейкам сводной таблицы возможно по номеру

//Например, СводнаяТаблица.PivotFields(1).Value 

//возвращает значение "Модель"



//Попробуем с другого конца

//1 - Row

//2 - Column

//3 - Page

//4 - Data

СводнаяТаблица.PivotFields(1).Orientation = 1;    //Модель 

СводнаяТаблица.PivotFields(2).Orientation = 3;    //Разнорядка

СводнаяТаблица.PivotFields(3).Orientation = 4;    //По договору

СводнаяТаблица.PivotFields(4).Orientation = 4;    //Отгрузили

СводнаяТаблица.PivotFields(5).Orientation = 4;    //Осталось



//Пройдемся по форме отчета

СводнаяТаблица.Format(1);



//Попробуем закрыть панель инструментов сводной таблицы

РабочаяКнига.CommandBars("PivotTable").Visible = 0;

РабочаяКнига.Visible = 1; 

 Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединение

ИмяФайла = ПолучитьИмяВременногоФайла(".txt");

//строка-образец

//http://export.rbc.ru/free/cb.0/free.fcgi?period=DAILY&tickers=USD&d1=18&m1=01&y1=2009&d2=17&m2=02&y2=2009&lastdays=30&separator=TAB&data_format=BROWSER&header=1

//http://export.rbc.ru/free/cb.5/free.fcgi?period=DAILY&tickers=USDEUR_BASKET&d1=08&m1=07&y1=2009&d2=22&m2=07&y2=2009&lastdays=14&separator=TAB&data_format=BROWSER&header=1

СтрокаСоединения="/free/"+Источник+"/free.fcgi?period=DAILY&tickers="+Валюта1+"&d1="+День1+"&m1="+Месяц1+"&y1="+Год1+"&d2="+День2+"&m2="+Месяц2+"&y2="+Год2+"&separator=%7C&data_format=BROWSER";

СтрокаСоединения=СтрЗаменить(СтрокаСоединения," ","");



Попытка //соединяемся

Соединение.Получить(СтрокаСоединения,ИмяФайла);

Исключение

Сообщить("Невозможно получить курс по адресу http://export.rbc.ru"+СтрокаСоединения);

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



КурсыТекст=Новый ТекстовыйДокумент; //читаем результат запроса

КурсыТекст.Прочитать(ИмяФайла);   

  // еще пример

 Функция ПолучитьКакСтроку(Адресс) 

	соминет = Новый COMОбъект("MSXML2.XMLHTTP");

	соминет.open ("GET", Адресс, Ложь);

	соминет.send();

	Возврат соминет.responseText;

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



Функция ПреобразоватьДату(дат)

	// Медот преобразования даты времен 1Сv7

	//Т=Строка(Дат);

	//Возврат Сред(Т,7,4)+"/"+Сред(Т,4,2)+"/"+Лев(Т,2);

	Возврат Формат(Дат,"ДФ=""гггг/ММ/дд""");

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



Процедура КнопкаЗагрузитьКурсы(Элемент)

	//Список - список валют	

	Для А = 1 по Список.Количество() цикл

		Если Список[а-1].Пометка тогда

			Сообщить("Загружаем курсы для "+Строка(Список[а-1].Значение));

			Код = Строка(Список[а-1].Значение.Код);

			Дат = ПериодС;

			Пока Дат <= ПериодПо цикл

				Стр = ПолучитьКакСтроку("http://cbrates.rbc.ru/tsv/"+Код+"/"+ПреобразоватьДату(Дат)+".tsv");

				Поз = Найти(Стр,Символы.Таб);

				Если Поз = 0 Тогда

					Дат = Дат + 86400;

					Продолжить;

				КонецЕсли;					

				Кратность = Число(СокрЛП(Лев(стр,Поз-1)));

				курс = Число(СокрЛП(Сред(Стр,Поз+1,СтрДлина(Стр)-Поз)));

				Сообщить("Дата="+Строка(Дат)+" Курс="+Строка(курс)+" Кратность="+Строка(Кратность));

				Запись = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи();

				Запись.Период = Дат;

				Запись.Валюта = Список[а-1].Значение.Ссылка;

				Запись.Курс = Курс;

				Запись.Кратность = Кратность;

				Запись.Записать(Истина);

				Дат = Дат + 86400;                   

			КонецЦикла;				

		КонецЕсли;			

	КонецЦикла;		

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

 // Взято с http://www.1c-club.kz     IUnknown

//Небольшая обработка для получения курса валют размещенной на странице Национального Банка РК.

//Внимание: работоспособность данной обработки может быть нарушена, если дизайнеры сайта НБ РК изменят формат страницы с //официальным курсом валюта. Но не большой анализ нового формата и работоспособность обработки будет восстановлена.

// шаблон для отображаемой на форме таблице значения

перем тзПустышка;



//*******************************************

// ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

//

// Параметры:

//  стрНазвание - Строка. Наименование реквизита формы инициюрующей

//                вызов процедуры.

//  чисФлаг     - Число. Флаг станадартной обработки иницации нажатия

//                кнопки выбора значения.

//

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

//  Нет.

//

// Описание:

//  Переопределенная процедура инициирующая при нажатии кнопки

//  выбора значения реквизита формы.

//

процедура ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

    // Если инициировали из реквизита "стрУРЛа"

    если стрНазвание = "стрУРЛа" тогда

        // откроем страницу с введенным URL

        запуститьприложение(стрУРЛа);

    конецесли;

конецпроцедуры



//*******************************************

// кнПолучить()

//

// Параметры:

//  Нет

//

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

//  Нет.

//

// Описание:

//  Процедура получающая курсы валют с URL находящегося в

//  строковом реквизите формы "стрУРЛа". Пытается по указаноому URL

//  получить страницу и распарсить ее.

//

//  ПРЕДУПРЕЖДЕНИЕ:

//  В случае измения формата данных представленных на странице, возможно

//  будет работать не правильно.

//

процедура кнПолучить()

    // сгенирим имя файла для временного хранения содержимого

    // страницы курса валют Национального банка

    стрИмяФайла = каталогпользователя() + "$$$$.###";

    // создадим объект XMLHttpRequest

    олеХМЛ = создатьобъект("Microsoft.XMLHTTP");

    // иницируем его типом запроса и нужным нам URL

    олеХМЛ.Open("GET", стрУРЛа, 0);

    // отправим запрос для обработки серверу

    олеХМЛ.Send();

    // создадим "поток" через ADODDB для работы с данными

    олеАДО = создатьобъект("ADODB.Stream");

    // зададим тип и режим потока

    олеАДО.Mode = 3;

    олеАДО.Type = 1;

    // откроем его

    олеАДО.Open();

    // создадим объект для управления скриптами

    олеШелл = создатьобъект("MSScriptControl.ScriptControl");

    // установим язык сценариев

    олеШелл.Language = "vbscript";

    // добавим созданные объекты

    олеШелл.AddObject("oleADO", олеАДО);

    олеШелл.AddObject("oleXML", олеХМЛ);

    // с помощью скрипта запишем в поток ADO данные из

    // объекта XMLHttpRequest

    // то есть содержимое страницы

    олеШелл.Eval("oleADO.Write(oleXML.ResponseBody)");

    // запишем данные во временный файл

    олеАДО.SaveToFile(стрИмяФайла, 2);

    // закроем данный поток

    олеАДО.Close();

    // для ускорения парсера занесем весь файл в строковую

    // переменую с разделителем строк

    // для этого инициализуруем поток установкой

    // соотвествующим режимом и типом

    олеАДО.Mode= 3;

    олеАДО.Type = 2;

    // так как страница курса валют НБК имеет формат

    // символов UTF-8, то установим соотвествующий набор

    олеАДО.CharSet="UTF-8";

    // откроем поток

    олеАДО.Open();

    // загрузим содержимое нашего файла в поток

    олеАДО.LoadFromFile(стрИмяФайла);

    // обнулим временную строковую переменную

    стрТемп = "";

    // в цикле получим из потока все строки

    пока олеАДО.EOS() = 0 цикл

        // и запишем их во временную переменую, добавив разделитель строк

        стрТемп = стрТемп + олеАДО.ReadText(-2) + разделительстрок;

    конеццикла;

    // закроем поток

    олеАДО.Close();

    // удалим временный файл

    фс.УдалитьФайл(стрИмяФайла);

    // найдем в строке позицию начала блока с данными о курсе

    чисПозиция = найти(стрТемп, "Официальные курсы валют на");

    если чисПозиция = 0 тогда

        // если позиции нет ... то мы имем другую страницу

        // или другой формат страницы...

        предупреждение("Не получилось получить курсы валют");

    иначе

        // создаим временную таблицу значений

        // для более шустрого заполения из-за отстуствия вызова

        // функции перерисовки таблицы при изменении данных

        тзТемп = создатьобъект("ТаблицаЗначений");

        // установим для нее нужный формат

        тзПустышка.Выгрузить(тзТемп);

        // отрежем все лишнее

        стрТемп = сред(стрТемп, чисПозиция);

        // получим дату курса

        дтКурса = дата(стрзаменить(стрполучитьстроку(стрТемп, 2), "/", "."));

        // первая строка с курсом валюты находится на 18 строке от начала

        // после удаления мусора

        чисПозиция = 18;

        // узнаем сколько всего строк в многострочке

        чисКоличествоСтрок = стрколичествострок(стрТемп);

        // получим строку

        стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

        // если в строке есть подстрока ... то значит это наверное очередная валюта

        пока найти(стрТекущая, "input type=""checkbox"" name=""idval""") > 0 цикл

            // добавляем новую строку

            тзТемп.НоваяСтрока();

            // получаем строку со смещением 1 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 1);

            // используя фичу 1С по преобразованию, получим число

            // за сколько единиц валюты имеем курс в тенге

            тзТемп.Количество = число(стрТекущая);

            // путем убирания "мусора" получаем наименование валюты

            тзТемп.Наименование = сокрлп(стрзаменить(стрзаменить(стрТекущая, тзТемп.Количество, ""), "</td>", ""));

            // получаем строку со смещением 2 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 2);

            // убираем html мусор

            стрТекущая = сокрлп(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // получаем код валюты

            тзТемп.Код1 = лев(стрТекущая, 3);

            // получаем код валюты "Тенге"

            тзТемп.Код2 = прав(стрТекущая, 3);

            // получаем строку со смещением 5 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 5);

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

            тзТемп.Курс = число(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // увеличиваем позицию на 17 ...

            чисПозиция = чисПозиция + 17;

            если чисПозиция > чисКоличествоСтрок тогда

                // если позици дальше имеющихся строк

                // то все курсов больше нет

                стрТекущая = "";

            иначе

                // получаем очередную строку для разбора

                стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

            конецесли;

        конеццикла;

        // сформированую таблицу копируем в таблицу на форме

        тзТемп.Выгрузить(тзКурсов);

    конецесли;

конецпроцедуры



//*******************************************

// установим значение реквизита текущим URL по которому можно получить курс валют

стрУРЛа = "http://www.nationalbank.kz/?docid=460&uid=DD54B73C-802C-E8F0-E27EDF82ECF77C1D";

// формируем формат таблицы

тзПустышка = создатьобъект("ТаблицаЗначений");

тзПустышка.НоваяКолонка("Количество", "число", 3, 0, "", 5);

тзПустышка.НоваяКолонка("Наименование", "строка", , , "Наименование", 70);

тзПустышка.НоваяКолонка("Код1", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Код2", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Курс", "число", 7, 2, "Курс", 10);

// копируем получившийся формат в таблицу на форме

тзПустышка.Выгрузить(тзКурсов);

  // Пробуем подключиться

		Профиль = Новый ИнтернетПочтовыйПрофиль;

		// Получение почты нам не нужно, коментируем

		//	Профиль.АдресСервераPOP3 = POP3Сервер;

		Профиль.АдресСервераSMTP = СокрЛП(Константы.SMTPSERVER.Получить()); // айпишник екченжа

		//Если ВремяОжиданияСервера > 0 Тогда

		//	Профиль.ВремяОжидания = ВремяОжиданияСервера;

		//КонецЕсли; 

		Профиль.Пароль           = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());

		Профиль.Пользователь     = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());

		//Профиль.ПортPOP3         = ПортPOP3;

		Профиль.ПортSMTP         = СокрЛП(Константы.SMTPSERVERPORT.Получить());

		

		Профиль.ПарольSMTP       = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());

		Профиль.ПользовательSMTP = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());

		

		//Профиль.ПарольSMTP       = УчетнаяЗапись.Пароль;

		//Профиль.ПользовательSMTP = УчетнаяЗапись.Логин;

		

		ИнтернетПочта = Новый ИнтернетПочта;

		Попытка

			ИнтернетПочта.Подключиться(Профиль);

		Исключение

			Сообщить(ОписаниеОшибки());

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

		

		ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;

		ПочтовоеСообщение.ИмяОтправителя  = "1C-ka";

		ПочтовоеСообщение.Отправитель     = СокрЛП(Отправитель.Email);

		ПочтовоеСообщение.Тема            = Тема;

		

		ПочтовоеСообщение.Получатели.Добавить(СокрЛП(Получатель.Email));

		ПочтовоеСообщение.Тексты.Добавить(ТекстПисьма, ТипТекстаПочтовогоСообщения.ПростойТекст);

		

		Если Не пустаястрока(файл) Тогда

			Данные = Новый ДвоичныеДанные(файл); 

			ПочтовоеСообщение.Вложения.Добавить(Данные,файлн); 	

		конецесли;	

		попытка

			ИнтернетПочта.Послать(ПочтовоеСообщение);

		исключение

			Сообщить(ОписаниеОшибки());

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

 // Пример 1

Сервер="IP-адрес-сайта"; // IP адрес сайта

ПользовательСервера="имя-пользователя-базы-данных"; // имя пользователя базы данных

ПарольСервера="пароль-пользователя-базы-данных"; // пароль пользователя базы данных

БазаСервера="название-SQL-базы-данных";  // название SQL базы данных

Соединение = Новый COMОбъект("ADODB.Connection");

Соединение_param = "driver={MySQL ODBC 5.1 Driver}; server="+СокрЛП(Сервер)+"; uid="+СокрЛП(ПользовательСервера)+"; pwd="+СокрЛП(ПарольСервера)+"; database="+СокрЛП(БазаСервера)+"; STMT=SET CHARACTER SET utf8";

Try

    Соединение.open(Соединение_param);

    СоединениеУстановлено = Истина;

    Сообщить("Соединение установлено");

Except

    ТекстСообщения = ""+ТекущаяДата()+" Connection error: "+ОписаниеОшибки();

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

    СоединениеУстановлено = Ложь;

    return;

EndTry;   

 ]// Пример 2 

Соединение = Новый COMОбъект("ADODB.Connection");

ConnectionString = "driver={SQL Server}; server=; uid=; Pwd=; Database = "; // это для MS SQL строка

Попытка

  Соединение.Open(ConnectionString);

  Сообщить("Соединение осуществлено в "+ТекущаяДата());

Исключение

  Предупреждение("Невозможно установить соединение");  

  Возврат;

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



ТекстЗакпроса = "....................";

НаборЗаписей = Новый COMОбъект("ADODB.RecordSet"); 

НаборЗаписей.ActiveConnection = Соединение;

НаборЗаписей.Open(ТекстЗапроса);



Пока не НаборЗаписей.Eof() Цикл

//  ............код обработки.....................

НаборЗаписей.MoveNext();

КонецЦикла;

НаборЗаписей.Close();

Соединение.Close();

Сообщить("Обработка завершена в "+ТекущаяДата());   

 DB = СоздатьОбъект("ODBCDatabase");

DB.Соединение("DRIVER={MySQL ODBC 5.1 Driver}; SERVER=IP_Супер_мега_сервера; DATABASE=Мега_база; USER=Супер_юзер; PASSWORD=пароль_супер_мега_юзера; OPTION=3;");



RS = СоздатьОбъект("ODBCRecordSet");

RS.SetDatabase(DB);



Если RS.Выполнить("set names cp1251") = 0 Тогда

    Сообщить("Ошибка подключения к MySQL" + РазделительСтрок + RS.ПолучитьОписаниеОшибки());

    СтатусВозврата(0);

    Возврат;

КонецЕсли;

 sql = СоздатьОбъект("ODBCDatabase");

Имя0 = "DragNet";

Фл1 = sql.Соединение("DSN=" + Имя0 + ";");

Если Фл1 = 0 Тогда

Сообщить("Не смогли открыть DSN = " + Имя0);

	Сообщить("Ошибка = " +  sql.ПолучитьОписаниеОшибки() );

Иначе

	sql.УстТолькоЧтение(1);

КонецЕсли;

rc = СоздатьОбъект("ODBCRecordSet");

rc.УстБД(sql);

 //Тестируем установку параметров соединения

клМускул = СоздатьОбъект("ODBCDatabase");

клМускул.СтрокаСоединения = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;

|Port=3306;Database=_1c;User=_1c_user; Password=_1c_pass;

|Option=3;";

Результат = клМускул.СтрокаСоединения;

ПроверитьРавенство(Результат,"Driver={MySQL ODBC 3.51 Driver};Server=localhost;

|Port=3306;Database=_1c;User=_1c_user; Password=_1c_pass;

|Option=3;");