29, 30, 31 октября
Санкт-Петербург, Невский пр. 100 Концертный зал «Колизей»
8-800-5555-256
Перезвонить мне
«Управление и технологии автоматизации учета на платформе 1С:Предприятие»
Построитель запроса. Табличный документ. Загрузка из Excel
День программиста — профессиональный праздник программистов, отмечаемый в 256-й день года. Число 256 выбрано потому, что это количество различных значений, которые можно выразить с помощью восьмиразрядного байта. Также это максимальная целая степень числа 2, которая не превышает количества дней в году (365).
Популярное
Партнеры и спонсоры
Официальные спонсоры
|
|
Почетные гости
|
Партнер онлайн-трансляции
|
Пример:
&НаКлиенте Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); ДиалогВыбораФайла.Показать(Новый ОписаниеОповещения("ОбработкаВыбораФайлов", ЭтаФорма)); КонецПроцедуры &НаКлиенте Процедура ОбработкаВыбораФайлов(СписокФайлов, ДополнительныеПараметры) Экспорт ПутьКФайлу = СписокФайлов[0]; КонецПроцедуры // () &НаСервере Функция ПрочитатьТабличныйДокумент(ТабличныйДокументИсточник) КоличествоСтолбцов = ТабличныйДокументИсточник.ШиринаТаблицы; Если КоличествоСтолбцов = 0 Тогда В В Возврат Новый ТаблицаЗначений; КонецЕсли; ТабличныйДокумент = Новый ТабличныйДокумент; Для НомерСтолбца = 1 По КоличествоСтолбцов Цикл В В ТабличныйДокумент.Область(1, НомерСтолбца, 1, НомерСтолбца).Текст = "Номер_" + Формат(НомерСтолбца,"ЧГ=0"); КонецЦикла; ТабличныйДокумент.Вывести(ТабличныйДокументИсточник); Построитель = Новый ПостроительЗапроса; Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличныйДокумент.Область()); Построитель.Выполнить(); ТаблицаЗначенийРезультат = Построитель.Результат.Выгрузить(); Возврат ТаблицаЗначенийРезультат; КонецФункции &НаКлиенте Процедура ЗаполнитьИзФайла(Команда) ЗаполнитьИзФайлаНаСервере(); КонецПроцедуры &НаСервере Процедура ЗаполнитьИзФайлаНаСервере() ТабличныйДокументДанные.Прочитать(ПутьКФайлу); КонецПроцедуры &НаКлиенте Процедура ПолучитьДанные(Команда) ПолучитьДанныеНаСервере(); КонецПроцедуры &НаСервере Процедура ПолучитьДанныеНаСервере() Данные = ПрочитатьТабличныйДокумент(ТабличныйДокументДанные); КонецПроцедуры