Функция ПолучитьПотокЧтенияСтрок(Файл)

  Попытка

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

    ТекстовыйФайл = Новый Файл(Файл);

    Если ТекстовыйФайл.Существует() = Ложь Тогда

      Сообщить("Файла "+Файл+" не существует!");

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

    КонецЕсли;



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

    // Объект позволяет получать и сохранять текст в файле, 

    // работать со строками

    ПотокЧтенияСтрок = Новый ТекстовыйДокумент();

    ПотокЧтенияСтрок.Прочитать(ТекстовыйФайл);

  Исключение

    Сообщить("Файл не прочитан.", СтатусСообщения.Внимание);

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

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

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



  // Возвращает текст, извлеченный из файла

  Возврат ПотокЧтенияСтрок;



КонецФункции // ПолучитьПотокЧтенияСтрок





// Исходный код функции загрузки строк в табличное поле:



Процедура ЧтениеТХТФайла(Элемент)



  // Проверка на наличие имени файла

  Если ПустаяСтрока(ИмяФайла) Тогда

    Предупреждение("Для запуска обработки необходимо предварительно выбрать файл данных.");

    Возврат;

  КонецЕсли;



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

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



  // Очистить предыдущие значения

  ТаблицаДокумента.Очистить();

  ТаблицаДокумента.Колонки.Очистить();



  // Создать колонки табличного документа

  ТаблицаДокумента.Колонки.Добавить("Номер",,"Номер",5);

  ТаблицаДокумента.Колонки.Добавить("Артикул",,"Артикул",11);

  ТаблицаДокумента.Колонки.Добавить("Номенклатура",,"Номенклатура",25);

  ТаблицаДокумента.Колонки.Добавить("Цена",,"Цена",6);



  // Последовательное чтение строк текстового файла

  КоличествоСтрок = ПотокСтрок.КоличествоСтрок();

  Для Строка = 1 По КоличествоСтрок Цикл



    // Обработка нажатия Ctrl + Break

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



    // Чтение строки из файла тхт / csv

    СтрокаИзФайла = ПотокСтрок.ПолучитьСтроку(Строка);



    // Разбор строки в массив, используя в качествен символа-разделителя "|"

    МассивСтрок = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрокаИзФайла,"|");



    // Добавить данные в табличную часть экранной формы

    Стр=ТаблицаДокумента.Добавить();

    Стр.Номер	 = Строка;

    Стр.Артикул = МассивСтрок[0];

    Стр.Номенклатура = МассивСтрок[1];

    Стр.Цена = МассивСтрок[2];

    // Отобразить информацию о ходе выполнения обработки

    Состояние("Обработка строки файла : "

      + "строка " + Строка + " из " + КоличествоСтрок);



  КонецЦикла;



  // Отобразить результаты загрузки в форме элемента

  ЭлементыФормы.ТаблицаДокумента.Значение = ТаблицаДокумента;

  ЭлементыФормы.ТаблицаДокумента.СоздатьКолонки();



КонецПроцедуры // ЧтениеTXTФайла(Элемент)   

   Договор = ПолучитьМакет("Договор");

// Получить объект из макета.

MSWord = Договор.Получить();



Попытка

	Документ = MSWord.Application.Documents(1);

	Документ.Activate();

	//Определим имена

	Заказчик = "Петр Иванович КакВасТам";

	Исполнитель = "helpf.pro - Помощник по 1С"

	

	// Получить объект, который будем использовать для поиска и замены.

	Замена = Документ.Content.Find;



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

	Замена.Execute("[Заказчик]", Ложь, Истина, Ложь, , , Истина, , Ложь, Заказчик);

	Замена.Execute("[Исполнитель]", Ложь, Истина, Ложь, , , Истина, , Ложь, Исполнитель);

	// Далее аналогично для остальных ключевых конструкций.

	//	...

	// Делаем видимым приложение и активизируем его.

	MSWord.Application.Visible = Истина;

	MSWord.Activate();

Исключение

	// Если произойдет ошибка, выводятся данные об ошибке и объект закрывается.

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

	MSWord.Application.Quit();

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

 Функция InputData(User, Command)



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



    обДанные.Наименование = User + ":" + Command;



    обДанные.Записать();



    Возврат Истина;



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

 ПараметрыСоединения = Новый ПараметрыСоединенияВнешнегоИсточникаДанных; 

	ПараметрыСоединения.СтрокаСоединения= 

	"Driver={Microsoft Excel Driver (*.xls)};DBQ=C:\Documents and Settings\Admin\Мои документы\finance2.xls; DriverID=790"; 

	ВнешниеИсточникиДанных.Excel.УстановитьОбщиеПараметрыСоединения(ПараметрыСоединения); 

	ВнешниеИсточникиДанных.Excel.УстановитьСоединение();

		

	Запрос = Новый Запрос();

	

	Запрос.Текст = "ВЫБРАТЬ

	               |	Данные.date КАК Дата,

	               |	Данные.time КАК Время,

	               |	Данные.account КАК Счет,

	               |	Данные.amount КАК Сумма,

	               |	Данные.currency КАК Валюта,

	               |	Данные.category КАК Категория,

	               |	Данные.parent КАК КатегорияРодитель

	               |ИЗ

	               |	ВнешнийИсточникДанных.Excel.Таблица.Данные КАК Данные";

	

	ТЗ = Запрос.Выполнить().Выгрузить();   

 Процедура СохранитьТаблицуВФайлExcel(Таблица, ПолноеИмяФайла="", ОткрыватьДиалогВыбораФайла=Истина, ВыгружаемыеКолонки="") Экспорт 

	

	Если ПустаяСтрока(ПолноеИмяФайла) ИЛИ ОткрыватьДиалогВыбораФайла Тогда

		Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);

		Диалог.Заголовок		= "Сохранение документа Excel";

		Диалог.Фильтр			= "Документ Excel (*.xls)|*.xls";

		Диалог.Расширение		= "xls";

		Диалог.ПолноеИмяФайла	= ПолноеИмяФайла;

		Диалог.Каталог = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнойКаталогФайлов");	

		Если (Диалог.Выбрать()) И (НЕ ПустаяСтрока(Диалог.ПолноеИмяФайла)) Тогда

			ПолноеИмяФайла = Диалог.ПолноеИмяФайла;

		Иначе 

			Возврат;

		КонецЕсли;

	КонецЕсли;

	

	ФайлНаДиске = Новый Файл(ПолноеИмяФайла);



	Попытка

 		// Загрузка Microsoft Excel

 		Состояние("Выгрузка данных из 1С в Microsoft Excel...");

 		ExcelПриложение = Новый COMОбъект("Excel.Application");

		Книга = ExcelПриложение.WorkBooks.Add();

		Лист = Книга.WorkSheets(1);

	Исключение

 		Сообщить("Ошибка при загрузке Microsoft Excel." 

			+ Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);

 		Возврат;

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

	

	Если ПустаяСтрока(ВыгружаемыеКолонки) Тогда

		ТаблицаВыгрузки = Таблица.Скопировать();

	Иначе

		ТаблицаВыгрузки = Таблица.Скопировать(, ВыгружаемыеКолонки);

	КонецЕсли;

	

	Для Кол = 0 По ТаблицаВыгрузки.Колонки.Количество()-1 Цикл 

		Лист.Cells(1, Кол + 1).Value = ТаблицаВыгрузки.Колонки[Кол].Заголовок;

	КонецЦикла;

			

	Попытка

		

		Для Стр = 0 По ТаблицаВыгрузки.Количество()-1 Цикл

			

			Для Кол = 0 По ТаблицаВыгрузки.Колонки.Количество()-1 Цикл

				

				Если ТипЗнч(ТаблицаВыгрузки[Стр][Кол]) = Тип("Число") Тогда

					// Установним формат для типа Число

					//Лист.Cells(Стр + 2, Кол + 1).NumberFormat = "0,00";

					Лист.Cells(Стр + 2, Кол + 1).Value = ТаблицаВыгрузки[Стр][Кол];

				Иначе 

					// Для всех других типов установим формат "Текстовый"

					//Лист.Cells(Стр + 2, Кол + 1).NumberFormat = "@";

					Лист.Cells(Стр + 2, Кол + 1).Value = Строка(ТаблицаВыгрузки[Стр][Кол]);

				КонецЕсли;

				

			КонецЦикла;

		

		КонецЦикла;

		

		ExcelПриложение.DisplayAlerts = False;

		Книга.SaveAs(ПолноеИмяФайла); 

		ExcelПриложение.ActiveWorkbook.Close();

 		ExcelПриложение.Quit();

		

		Сообщить("Файл выгружен успешно: "  + ПолноеИмяФайла);

		

	Исключение

		

		Сообщить("Ошибка записи данных файла :" + ПолноеИмяФайла);

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

		Попытка

			ExcelПриложение.Quit();

		Исключение

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

		

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

	

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

   

 Файл = "C:\files\demo.mdb" ;

   //СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + "; Extended Properties=""Excel 8.0;HDR=NO;""";

    СтрокаПодключения  =   "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + ";""";

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

    Попытка

        Connection.Open(СтрокаПодключения);

    Исключение

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

        Возврат;

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

        Command = Новый COMОбъект("ADODB.Command");



    Command.ActiveConnection = Connection;

    Command.CommandText = "S_elect * FROM Table1";

    Command.CommandType = 1;

    RecordSet = Новый COMОбъект("ADODB.RecordSet");

    RecordSet = Command.Execute();

    стр ="";

      Пока RecordSet.EOF() = 0 Цикл

            для н=0 по  Recordset.Fields.Count -1 цикл

            стр = стр + " " + Recordset.Fields(н).Value;

         КонецЦикла;

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

             стр ="";

        RecordSet.MoveNext(); 

      КонецЦикла;

   RecordSet.Close();

    Connection.Close();   

 Акцесс = СоздатьОбъект("ADODB.CONNECTION");

Попытка

     СтрокаПодключения="Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";

     Акцесс.Open(СтрокаПодключения);

Исключение

     Сообщить("Все плохо:"+ОписаниеОшибки());

     Возврат;

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

Команда = СоздатьОбъект("ADODB.Command");

Команда.ActiveConnection=Акцесс;

ТекстСелект = "S_elect * FROM tblCustoms";

НаборЗаписей = СоздатьОбъект("ADODB.RecordSet");

Команда.CommandText=ТекстСелект;

Попытка

     НаборЗаписей=Команда.Execute;

Исключение

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

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

Попытка

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

Исключение //нет записей в рекордсете

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

     Возврат;

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

Пока НаборЗаписей.EOF()=0 Цикл

     ИНН = НаборЗаписей.Fields("INN").Value;

     //ну и т.д.

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

КонецЦикла;

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



// Для тех, у кого в базе Акцесс создана рабочая группа (есть файлик mdw), строка подключения будет такая: 

СтрокаПодключения="Driver= Microsoft Access Driver (*.mdb)};systemDB=C:\wg.mdw;Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";

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

//фасВладелец = СтрЗаменить(фасВладелец," ","_"); 

   Спр = СоздатьОбъект("Справочник.ТоварыВПрайсе"); 

   Спр.ИспользоватьВладельца(ФасВладелец); 

   dbe = СоздатьОбъект("dao.DBEngine.36"); 

   wksp = dbe.Workspaces(0); 

   db = 0; 

   Если ФС.СуществуетФайл(КаталогИБ()+"Pric_list.mdb")=0 Тогда               // 

       db = wksp.CreateDataBase(КаталогИБ()+"Pric_list.mdb",";LANGID=0x0419;Cp=1251;Country=0");             //   

       db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             

       |(Rec_ind integer, 

       |Код text,                                                                                                           

       |Артикул text, 

       |Цена integer, 

       |Товар text, 

       |Единица text, 

       |Val text);" 

       ); 

       db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 

   Иначе 

       db= wksp.OpenDataBase(КаталогИБ()+"Pric_list.mdb"); 

       Попытка 

           rs = db.OpenRecordset(Строка(фасВладелец)); 

       Исключение 

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

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

       Если ПустоеЗначение(rs)= 1 Тогда 

           db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             

           |(Rec_ind integer, 

           |Код text, 

           |Артикул text, 

           |Цена integer, 

           |Товар text, 

           |Единица text, 

           |Val text);" 

           ); 

           db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 

       КонецЕсли;     

       db.Execute("Delete * From ["+Строка(фасВладелец)+"];");                                                         

   КонецЕсли;   

   rs = db.OpenRecordset(Строка(фасВладелец)); 

   Y = 1; 

   Спр.ВыбратьЭлементы(); 

   Пока Спр.ПолучитьЭлемент() = 1 Цикл 

       лсЕдиницы = ""; 

       Если Спр.асТовар.апТип=Перечисление.ТипТовара.Услуга Тогда 

           лсЕдиницы = ""; 

       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Весовой Тогда 

           лсЕдиницы = "г"; 

       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Штучный Тогда 

           лсЕдиницы = "шт."; 

       КонецЕсли; 

       Если Спр.ЭтоГруппа() = 0 Тогда 

           rs.AddNew(); 

           rs.Rec_ind = Y; 

           rs.Код= Спр.асТовар.ПолныйКод(); 

           rs.Артикул =  Спр.асТовар.сАртикул; 

           rs.Цена = Спр.чЦена; 

           rs.Товар=Спр.асТовар.сПолнНаименование; 

           rs.Единица =  лсЕдиницы; 

           rs.Val = Спр.асВалюта.Код; 

           rs.Update(); 

           Y=Y+1; 

       КонецЕсли; 

   КонецЦикла; 

   db.Close();   

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

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

 

Процедура ACCESS()

     dbe=CreateObject("DAO.DBEngine.36");

     wksp=dbe.Workspaces(0);

     db=0;

     // в ковычках имя фаила с расширением MDB

     Если ФС.СуществуетФайл(КаталогПользователя()+"sr.mdb")=0 Тогда

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

          db=wksp.CreateDataBase(КаталогПользователя()+"mars_sr.mdb",";LANGID=0x0419;CP=1251;COUNTRY=0");

          // DDL - запрос на создание таблицы

          // описание языка DDL (подмножество SQL) смотрите в хелпе по MS Access

          // не пытайтесь делать это с другими форматами - DDL через DAO поддерживается только для MDB

          //Создадим еще таблицу

          db.Execute("CREATE TABLE   BANKS

          |(REC_IND INTEGER,

          |BANKCODE INTEGER,

          |BANKNAME  TEXT  ,

          |ModifiedFlg BIT,

          |ChangeSeqFlg BIT);"

          );

          // индекс на нужные поля

          db.Execute("CREATE INDEX REC_IND ON BANKS (REC_IND);");

     Иначе

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

          db=wksp.OpenDataBase(КаталогПользователя()+"sr.mdb");

          // и очищаем имеющиеся данные

          db.Execute("DELETE * FROM BANKS;");

    КонецЕсли;

    // rs-это как раз сама таблица, куда мы будем добавлять записи

    rs=db.OpenRecordset("BANKS");

    // добавление записи

    rs.AddNew();

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

    rs.REC_IND            =     "1";

    rs.BANKCODE       =     "34";

    rs.BANKNAME       =    "Инвест";

    rs.ModifiedFlg        =     "1";

    // запомним запись

    rs.Update();

    // и так далее ...

    db.Close();  // закрытие базы данных

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

 // Выбор файла

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

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

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

ДиалогВыбораФайла.МножественныйВыбор = Ложь;

ДиалогВыбораФайла.Заголовок = "Задайте имя файла";

ДиалогВыбораФайла.ПолноеИмяФайла = ПолеИмениФайла;

	

ДиалогВыбораФайла.Фильтр = "Все файлы картинок|*.jpg;*.jpeg;*.gif;*.bmp;*.ico;*.png;*.tif;*.*";

Если НЕ ДиалогВыбораФайла.Выбрать() Тогда

	// Если не выбран файл

	Возврат;

КонецЕсли;

	

ПолеИмениФайла = ДиалогВыбораФайла.ПолноеИмяФайла;

	

// Создаем объект

ФайлКартинка = Новый COMОбъект("WIA.ImageFile");

ФайлКартинка.LoadFile(ПолеИмениФайла);



Сообщить("Расширение файла: " + ФайлКартинка.FileExtension);

Сообщить("Высота: " + ФайлКартинка.Height);

Сообщить("Ширина: " + ФайлКартинка.Width);

Сообщить("Размер: " + Окр(ФайлКартинка.FileData.Count / 1024, 2) + " Кб");

   

 	ПутьПодключения = "c:\";

	СтрокаПодключения 	= "Driver={Microsoft Text Driver (*.txt; *.csv)};"; 

	СтрокаПодключения 	= СтрокаПодключения + "Dbq=" + ПутьПодключения + ";"; 

	СтрокаПодключения 	= СтрокаПодключения + "Uid=" + "Extensions=txt" + ";"; 

	

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

	Conn.ConnectionString = СтрокаПодключения; 

	Conn.Open();

	

	

	rst = Новый COMОбъект("ADODB.Recordset"); 

	

	Попытка

		rst.Open("S_elect * from file#txt", Conn); 

		

				

		Пока rst.EOF() = 0 Цикл

			

			textstr="";



			Для iCount = 0 По rst.Fields.Count-1 Цикл

				

				textstr =  textstr   + "|" + rst.Fields(iCount).Value;

							

			КонецЦикла;

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

             rst.MoveNext();	

		КонецЦикла;

	Исключение

		rst.Close();

		Conn.Close();

		

		Предупреждение(ОписаниеОшибки());

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

 S_elect count(*), поля_индекса

FROM AccumRgTn19455

GROUP BY поля_индекса

HAVING count(*)>1   

 Т.е. должно быть:

Запрос = Новый Запрос(

"ВЫБРАТЬ РАЗЛИЧНЫЕ

| Основные.ФизЛицо,

. . . . .   

 S_elect COUNT(*) Counter, <перечисление всех полей соответствующего индекса> from <имя таблицы>

GROUP BY <перечисление всех полей соответствующего индекса>

HAVING Counter > 1   

 S_elect count(*), _Document140_IDRRef, _KeyField

from _Document140_VT1385

group by _Document140_IDRRef, _KeyField

having count(*) > 1   

 S_elect *

from _Document140_VT1385

where _Document140_IDRRef = id1 and _KeyField = key1 or _Document140_IDRRef = id2 and _KeyField = key2 or ...   

 S_elect max(_KeyField)

from _Document140_VT1385

where _Document140_IDRRef = id1   

 update _Document140_VT1385

set _KeyField = keymax + 1

where _Document140_IDRRef = id1 and _LineNo1386 = lineno1   

 delete from _Document140_VT1385

where _Document140_IDRRef = id1 and _LineNo1386 = lineno1   

 S_elect distinct *

into #tmp1

from _Document140_VT1385

where _Document140_IDRRef = id1 and _KeyField = key1



delete from _Document140_VT1385

where _Document140_IDRRef = id1 and _KeyField = key1



I_nsert into _Document140_VT1385

S_elect #tmp1



D_rop table #tmp1   

 S_elect COUNT(*) AS Expr2, _IDRRef AS Expr1, _Description

FROM _Reference8_

GROUP BY _IDRRef, _Description

HAVING (COUNT(*) > 1)   

 ВЫБРАТЬ Справочник.Ссылка

ИЗ Справочник.Справочник КАК Справочник

СГРУППИРОВАТЬ ПО Справочник.Ссылка

ИМЕЮЩИЕ КОЛИЧЕСТВО(*) > 1