freenet
Вася Котов

Интересные возможности объектов ТабличныйДокумент и ПостроительЗапроса, которые позволяют загружать данные из Excel без установки Excel

Пример:
https://bitbucket.org/ayvas/workspace/snippets/yXEkBz

Код

&НаКлиенте Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); ДиалогВыбораФайла.Показать(Новый ОписаниеОповещения("ОбработкаВыбораФайлов", ЭтаФорма)); КонецПроцедуры &НаКлиенте Процедура ОбработкаВыбораФайлов(СписокФайлов, ДополнительныеПараметры) Экспорт ПутьКФайлу = СписокФайлов[0]; КонецПроцедуры // () &НаСервере Функция ПрочитатьТабличныйДокумент(ТабличныйДокументИсточник) КоличествоСтолбцов = ТабличныйДокументИсточник.ШиринаТаблицы; Если КоличествоСтолбцов = 0 Тогда В В Возврат Новый ТаблицаЗначений; КонецЕсли; ТабличныйДокумент = Новый ТабличныйДокумент; Для НомерСтолбца = 1 По КоличествоСтолбцов Цикл В В ТабличныйДокумент.Область(1, НомерСтолбца, 1, НомерСтолбца).Текст = "Номер_" + Формат(НомерСтолбца,"ЧГ=0"); КонецЦикла; ТабличныйДокумент.Вывести(ТабличныйДокументИсточник); Построитель = Новый ПостроительЗапроса; Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличныйДокумент.Область()); Построитель.Выполнить(); ТаблицаЗначенийРезультат = Построитель.Результат.Выгрузить(); Возврат ТаблицаЗначенийРезультат; КонецФункции &НаКлиенте Процедура ЗаполнитьИзФайла(Команда) ЗаполнитьИзФайлаНаСервере(); КонецПроцедуры &НаСервере Процедура ЗаполнитьИзФайлаНаСервере() ТабличныйДокументДанные.Прочитать(ПутьКФайлу); КонецПроцедуры &НаКлиенте Процедура ПолучитьДанные(Команда) ПолучитьДанныеНаСервере(); КонецПроцедуры &НаСервере Процедура ПолучитьДанныеНаСервере() Данные = ПрочитатьТабличныйДокумент(ТабличныйДокументДанные); КонецПроцедуры

https://www.youtube.com/watch?v=GMXw7kuJX1k

Разработка в 1С Платформе под управлением Mac OS https://www.youtube.com/watch?v=ZRUoH2xGXlA

Совместная работа разработчиков. Используем стороннюю программу на примере KDiff3, для сравнения и объединения конфигураций, внешних обработок и отчетов. https://www.youtube.com/watch?v=ipFLmwQMzpQ

1. Грузим image mssql из docker hub
2. Запускаем контейнер mssql
3. Устанавливаем на вновь развернутый сервер базу 1С УТ Демо https://www.youtube.com/watch?v=Vp3X3AlbC8c

Скрипт и файл logcfg.xml: https://bitbucket.org/ayvas/workspace/snippets/Arx7a6/1 https://www.youtube.com/watch?v=ojUh23mlEas

#1С, #Разработка, #Программирование, #SQL
SQL. Пример создания Временные таблицы

Код: https://bitbucket.org/snippets/ayvas/KrkKAn
--примерВ В создания временной таблицы
cre ateВ В В В table #t(name nvarchar(100), date datetime2)

ins ert into #t

sel ect 'test name', GETDATE()

sele ct * fr om #t

dr opВ В В В table #t https://www.youtube.com/watch?v=9izbCbNYpNo

1. Подключение к БД SQL через ADO
2. Выборка полученных данных
3. Использование прямого запроса для создания внешнего источника данных

Сервер SQL имеет отличный от 1С формат даты, поэтому используем это:
format(dateadd(YYYY, -2000, place._Period), 'dd.MM.yyyy hh:mm:ss') ASВ В _Period

Обратное преобразование даты, для передачи параметра в запрос:
DECLARE *datetime datetime2(0) = dateadd(YYYY, 2000, '31.12.2018 12:32:03');

Шаблон: https://bitbucket.org/snippets/ayvas/8np994/sql-ado

Функция ДанныеADO() Экспорт

strConnect = "DRIVER={SQL Server Native Client 11.0};SERVER=;UID=;PWD=;DATABASE=;Trusted_Connection=yes;LANGUAGE=русский";

Connect = Новый COMОбъект("ADODB.Connection");
Попытка
В В Connect.Open(strConnect);
Исключение
В В ОписаниеОшибки = "ошибка подключения "+ОписаниеОшибки();
В В Возврат ОписаниеОшибки;
КонецПопытки;

ТекстЗапроса = "";
В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В
Попытка
В В RS = Connect.Execute(ТекстЗапроса);
Исключение
В В Возврат "Ошибка запроса : "+ОписаниеОшибки();
КонецПопытки;

Данные = ТЗ();

Пока НЕ RS.EOF Цикл
В В
В В СтрокаДанных = Данные.Добавить();
В В Для каждого Колонка Из Данные.Колонки Цикл
В В В В СтрокаДанных[Колонка.Имя] = СокрЛП(RS.Fields(Колонка.Имя).value)
В В КонецЦикла;
В В
В В RS.MoveNext();
В В
КонецЦикла;
В В В В
В В В В Возврат Данные;
В В
КонецФункции // ()

Функция ТЗ()

ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("_Period", Новый ОписаниеТипов("Дата", , ,
В В В В В В В В В В Новый КвалификаторыДаты(ЧастиДаты.ДатаВремя)));
ТЗ.Колонки.Добавить("os", Новый ОписаниеТипов("Строка", ,
В В В В В В В В В В Новый КвалификаторыСтроки(100, ДопустимаяДлина.Переменная)));

Возврат ТЗ;

КонецФункции; https://www.youtube.com/watch?v=L1Q-KlNIShA

Использование регулярных выражений для форматирования текста запроса 1С https://www.youtube.com/watch?v=3gwDyD_mhuE

Хочу вынести на общий суд свое приложение. Сегодня закончил разрабатывать и опубликовал новый будильник "Alarm clock X" под Андроид. Сильно не пинайте ))
https://play.google.com/store/apps/details?id=ru.ayvas.AlarmClockX

1С Предприятие. Разработка простого HTTP сервиса(REST). Настройка отладчика

Установка сервера Apache и публикация 1С Предприятие: https://youtu.be/EClcHSh7hO4 https://www.youtube.com/watch?v=cUtco7ynRsQ