&НаСервере

Процедура ЗаписатьСервер()

 

 пСеанс = ВнешниеИсточникиДанных.ВнешнийSQL.ПолучитьОбщиеПараметрыСоединения();

 

 Если НЕ пСеанс.СУБД = "MSSQLServer" Тогда

  Возврат;

 КонецЕсли;

 

 ЗапросSQL = ?(Объект.Ссылка.Пустая(), ПолучитьЗапросДобавления(), ПолучитьЗапросОбновления());

 

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

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

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

 

 //учетка и пароль уже в строке подключения

 //иначе их необходимо добавить в строку

 Попытка

  Connection.Open(СокрЛП(пСеанс.СтрокаСоединения));

  Command.ActiveConnection   = Connection;

  Command.CommandText = ЗапросSQL;

  RecordSet = Command.Execute();

 Исключение

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

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





КонецПроцедуры // ЗаписатьСервер()





&НаСервере

Функция ПолучитьЗапросОбновления()

 

 мДанные = Объект.Ссылка.Метаданные();

 СтрокаПоля = "";

 СтрокаДанные = "";

 

 ДанныеОбъект = Объект.Ссылка.ПолучитьОбъект();

 

 Для Каждого мПоле Из мДанные.Поля Цикл

  Если Объект[мПоле.Имя] = ДанныеОбъект[мПоле.Имя] Тогда

   Продолжить;

  КонецЕсли;

  СтрокаДанные = СтрокаДанные + ?(ПустаяСтрока(СтрокаДанные), " SET ", ", ") + мПоле.Имя + "= '" + Объект[мПоле.Имя] + "'";

 КонецЦикла;

 

 //делаем UDPDATE по id, поскольку оно у нас ключевое

 ЗапросSQL = "UPDATE " + мДанные.ИмяВИсточникеДанных + СтрокаДанные + "WHERE (id = '" + ДанныеОбъект.id + "')";

 

 Возврат ЗапросSQL; 

 

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





&НаСервере

Функция ПолучитьЗапросДобавления()

 

 мДанные = Объект.Ссылка.Метаданные();

 СтрокаПоля = "";

 СтрокаДанные = "";

 

 Для Каждого мПоле Из мДанные.Поля Цикл

  СтрокаПоля = СтрокаПоля + ?(ПустаяСтрока(СтрокаПоля), " (", ", ") + мПоле.Имя;

  СтрокаДанные = СтрокаДанные + ?(ПустаяСтрока(СтрокаДанные), " VALUES (", ", ") + "'" + Объект[мПоле.Имя] + "'";

 КонецЦикла;

 

 СтрокаПоля = СтрокаПоля + ")";

 СтрокаДанные = СтрокаДанные + ")";

 ЗапросSQL = "INSERT INTO " + мДанные.ИмяВИсточникеДанных + СтрокаПоля + СтрокаДанные;

 

 Возврат ЗапросSQL; 

 

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





&НаКлиенте

Процедура ЗаписатьДанные(Команда)

 

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

 //делаем оповещение для списка, поскольку он автоматически не обновляется

 Оповестить("ОбновитьВнешнийИсточникДанных");

 

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

 &НаКлиенте

Процедура Добавить(Команда)





 ОткрытьФорму("ВнешнийИсточникДанных.ВнешнийSQL.Таблица.dbo_assortment.ФормаОбъекта");

 

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





&НаКлиенте

Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)

 

 Если ИмяСобытия = "ОбновитьВнешнийИсточникДанных" Тогда

  Элементы.Список.Обновить();

 КонецЕсли;

 

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

ПереместитьФайл(<ИмяФайлаИсточника>, <ИмяФайлаПриемника>)
Параметры:
<ИмяФайлаИсточника> (обязательный) - Полное имя файла-источника (полное исходное имя файла).
<ИмяФайлаПриемника> (обязательный) - Полное имя файла-приемника (полное новое имя файла).
Описание: Выполняет перемещение (переименование) указанного файла.
Доступность: Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение, мобильное приложение(клиент), мобильное приложение(сервер).
Примечание: Допускается использование схем http, https и ftp для адресации файлов. При использовании этих схем в адресах необходимо указывать прямые слеши '/', а не обратные '\'.
Для работы метода на веб-клиенте необходимо предварительно подключить расширение работы с файлами.
На веб-клиенте метод работает только с локальными файлами.
Пример:

Код 1C v 8.2 УП

 ПереместитьФайл("C:\Temp\Order.htm", "C:\My Documents\Order.htm");    

Код 1C v 8.х

 Если НайтиФайлы("C:\est.txt") <> Неопределено Тогда 

    ПереместитьФайл("C:\est.txt", "C:\estnew.txt"); 

    Сообщить("Файл перемещен."); 

Иначе 

    Сообщить("Действие не выполнено. Файл в источнике не найден."); 

КонецЕсли;   

Код 1C v 7.x

 ФС.ПереименоватьФайл("transinvcust.dbf", "st.dbf"); 

Используя shell

Код 1C v 7.x

 WshShell=СоздатьОбъект("WScript.Shell");

КодВозвр=WshShell.Run("RENAME C:\folder\test.txt test1.txt");

Через команду системы

Код 1C v 7.x

 КомандаСистемы("ren c:\A.txt B.txt"); 

---

Каталог

Код 1C v 8.х

 objFSO = Новый COMОбъект("Scripting.FileSystemObject"); 

objFolder = objFSO.GetFolder("C:\_1"); 

objFolder.Name = "_21";   

Известно:
ИмяДокумента (Тип Строка)
УникальныйИдентификатор искомого документа в базе-источнике (тип Строка)
COMСоединение установлено.

Код 1C v 8.х

 МД=ВнешняяБаза.XMLTypeOf(ВнешняяБаза.Документы[ИмяДокумента].ПустаяСсылка());

Попытка

	тСсылка=ВнешняяБаза.XMLValue(ВнешняяБаза.FromXMLType(МД),ЭтотУникальныйИдентификатор);

Исключение

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

	возврат;

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

тОбъект=тСсылка.ПолучитьОбъект();

ЗаписьXML=ВнешняяБаза.NewObject(“ЗаписьXML”);

ЗаписьXML.УстановитьСтроку();

ВнешняяБаза.WriteXML(ЗаписьXML,тОбъект);

тСтрXML=ЗаписьXML.Закрыть();   

Для перечислений:
ИмяПеречисления (Тип Строка)
ИмяЗначенияПеречисления (Тип Строка)
COMСоединение установлено.

Код 1C v 8.х

 МД=ВнешняяБаза.XMLTypeOf(ВнешняяБаза.Перечисления[ИмяПеречисления].ПустаяСсылка());

Попытка

	тСсылка=ВнешняяБаза.XMLValue(ВнешняяБаза.FromXMLType(МД),ИмяЗначенияПеречисления);

Исключение

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

	возврат;

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

в переменной тСсылка – лежит Ссылка на объект (тип COMОбъект)

Подключимся и загрузим из файла Excel данные в таблицу значений 1С. Сделать теперь это очень просто.
1. В конфигурации добавляет новый объект метаданных типа "Внешние источники данных" и назовем его просто "Excel".


2. На закладке "Данные" созданного объекта "Excel" добавляем новую таблицу. При этом появится окно мастера добавления таблицы внешнего источника.
Выбираем первый пункт "Вручную", т.к. лично у меня второй пункт "Выбрать из списка таблиц внешнего источника данных" работает нестабильно.



Если Вы все же хотите попробовать добавить таблицу через второй пункт, то в качестве строки соединения в появившемся окне указываем:
Driver={Microsoft Excel Driver (*.xls)};DBQ=C:\Documents and Settings\Admin\Мои документы\finance3.xls; DriverID=790
В этой строке укажите путь к своему файлу. Имя пользователя и пароль я не указывал.
Отмечу, что путь к файлу и строка соединения в дальнейшем не запоминается и нужны эти параметры единожды, чтобы создать автоматически описание полей таблицы источника.
Если соединение прошло нормально, то должен отобразиться список таблиц источника. Флажком можно выбрать нужную таблицу и ее поля.
3. Даем имя новой таблице "Данные". Переходим на вкладку таблицы "Данные". В поле "Имя в источнике данных" указываем имя листа в файле Excel и добавляем в конце знак "$". В моем случае это "Данные$". В табличной части "Поля" добавляем поля и редактируем их тип.


У каждого поля в свойствах должно быть задано как минимум "Имя" и "Имя в источнике данных".
4. Создаем процедуру в которой пишем подключение к источнику и запрос:

Код 1C v 8.х

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

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

	"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.Таблица.Данные КАК Данные";

	

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

Вот и все!
Источник: passion-programmer

---

Параметры соединения для файла Excel выглядят вот так:

Файлы XLSX (версия Office 2007 и выше)
Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=D:\ФайлExcel.xlsx;

Файлы XLS (ранее)
Driver={Microsoft Excel Driver (*.xls)}; DriverID=790; DBQ=D:\ФайлExcel.xls;

В 1С:Предприятии реализован механизм поддержки операций перетаскивания. С его помощью возможно осуществлять перенос данных между разными элементами управления. Например, можно переносить элементы списка справочника из одной группы в другую, переносить данные из табличного поля в поле табличного документа или перенести список выделенных файлов из проводника MS Windows в какой-либо элемент управления.

Операции перетаскивания поддерживают следующие элементы управления:
* табличное поле;
* поле табличного документа;
* поле календаря;
* поле картинки.

При операциях перетаскивания используются следующие понятия:
* источник данных - элемент управления из которого можно перетаскивать данные;
* <приемник данных - элемент управления в который можно перетаскивать данные.

Существует возможность разрешать или запрещать элементам управления предоставлять или принимать данные, т.е. быть источником или приемником данных. Для этого у элементов управления существуют следующие свойства: “Разрешить начало перетаскивания” – разрешает элементу управления предоставлять данные и “Разрешить перетаскивание” – разрешает элементу управления принимать данные. Эти свойства можно устанавливать из палитры свойств или из встроенного языка.

Последовательность событий при перетаскивании
При нажатии кнопки мыши на выделенной области элемента управления (это может быть строка, группа строк табличного поля, область поля табличного документа, дата календаря или картинка) у элемента управления – источника данных вызывается обработчик события НачалоПеретаскивания. В качестве параметров данного события передаются объект типа “ПараметрыПеретаскивания” и “СтандартнаяОбработка”. Параметр ПараметрыПеретаскивания имеет следующие свойства:

* Значение - содержит перетаскиваемое значение, например, для табличного поля это может быть ссылка на объект, для табличного документа – область табличного документа, для календаря – дата. Можно присвоить этому свойству свое значение (например, какую-нибудь структуру), тогда это значение будет являться перетаскиваемым объектом.
* Действие – указывает действие перетаскивания и является значением типа ДействиеПеретаскивания (Копирование, Перемещение, Выбор или Отмена).
* ДопустимыеДействия – указывает допустимые действия перетаскивания и является значением типа ДопустимыеДействияПеретаскивания ( Копирование, Перемещение, КопированиеИПеремещение, HеОбрабатывать). При помощи этого свойства можно указать какие операции возможны с данными источника данных (например, только копирование).

Параметр СтандартнаяОбработка позволяет разрешить или запретить стандартную обработку операции перетаскивания из данного элемента управления. Для события НачалоПеретаскивания стандартной обработкой является начало перетаскивания данных.

Далее, у элемента управления – приемника данных вызывается обработчик события ПроверкаПеретаскивания . Данный обработчик вызывается всякий раз, когда курсор попадает на новый объект в элементе управления – приемнике данных (например, в новую ячейку табличного поля или поля табличного документа, при попадании в новую дату в поле календаря). Набор параметров данного события зависит от элемента управления – приемника данных, но первые два параметра у всех одинаковы. Это объект типа ПараметрыПеретаскивания и СтандартнаяОбработка. Остальные параметры описывают объект под курсором. Для табличного поля это Строка и Колонка, для поля табличного документа – Область, для календаря – Дата, а для поля картинки дополнительных параметров нет. При обработке данного события можно управлять видом курсора, т.е. например указывать что перетаскивание в данный элемент управления запрещено или возможно только копирование. Для этого необходимо установить необходимое действие в свойстве Действие параметра ПараметрыПеретаскивания. Необходимо учитывать, что устанавливаемое действие перетаскивания должно быть разрешенным, т.е. не вступать в противоречие с значением свойства ДопустимыеДействия. Например, действие Копирование не вступает в противоречие со значением допустимых действий КопированиеИПеремещение, а значение Перемещение вступает в противоречие со значением допустимых действий Копирование. Параметр СтандартнаяОбработка используется для указания возможности стандартной обработки элементом управления данного события. Стандартная обработка перетаскивания зависит от типа элемента управления:

* Для табличного поля проверяется возможность вставки значения, т.е. проверяется тип значения, и если он совпадает с типом отображаемых данных, то производятся стандартные действия. Стандартные действия для иерархических динамических списков – перемещение в группу, для табличных полей, отображающих наборы записей или табличные части изменение порядка строк и копирование.
* Для поля табличного документа – проверка возможности вставить передаваемое значение.
* Для поля картинки и календаря стандартной обработки нет.

При отпускании клавиши мыши в элементе управления – приемнике данных вызывается обработчик события Перетаскивание. Набор параметров этого события тот же, что и у события ПроверкаПеретаскивания. Параметр СтандартнаяОбработка позволяет разрешить или запретить стандартную обработку события элементом управления. Стандартные действия перетаскивания описаны выше.

Затем в элементе управления – источнике данных вызывается обработчик события ОкончаниеПеретаскивания. При обработке этого события элемент управления – приемник данных может, например, удалить перемещенные данные или очистить какие – либо переменные.

Что делать, если не выполняется процедура "Перетаскивание"?
1. У элемента формы "Приемника" должно быть установлено свойство "Разрешить перетаскивание"
2. В процедуре ПроверкаПеретаскивания можно установить СтандартнаяОбработка в ложь (СтандартнаяОбработка = Ложь);