-Музыка

 -Подписка по e-mail

 

 -Поиск по дневнику

Поиск сообщений в fixin

 -Сообщества

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 12.12.2002
Записей: 4343
Комментариев: 24598
Написано: 35607


Мучал отборы в 1С 80

Четверг, 04 Августа 2005 г. 17:28 + в цитатник

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

Функция ОтборСохранить(Отбор) Экспорт
Рез=Новый ТаблицаЗначений();
Рез.Колонки.Добавить("ВидСравнения");
Рез.Колонки.Добавить("Значение");
Рез.Колонки.Добавить("ЗначениеПо");
Рез.Колонки.Добавить("ЗначениеС");
Рез.Колонки.Добавить("Имя");
Рез.Колонки.Добавить("Использование");
Рез.Колонки.Добавить("Представление");
Рез.Колонки.Добавить("ПутьКДанным");
Рез.Колонки.Добавить("ТипЗначения"); //рид онли
Для Каждого Эл Из Отбор Цикл
Стр=Рез.Добавить();
Стр.ВидСравнения=Эл.ВидСравнения;
Стр.Значение=Эл.Значение;
Стр.ЗначениеПо=Эл.ЗначениеПо;
Стр.ЗначениеС=Эл.ЗначениеС;
Стр.Имя=Эл.Имя;
Стр.Использование=Эл.Использование;
Стр.Представление=Эл.Представление;
Стр.ПутьКДанным=Эл.ПутьКДанным;
Стр.ТипЗначения=Эл.ТипЗначения;
КонецЦикла;
Возврат Рез;

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

Функция ОтборВосстановить(Отбор, Рез) Экспорт
Для Каждого Стр Из Рез Цикл
Эл=Отбор[Стр.Имя];
Эл.ВидСравнения=Стр.ВидСравнения;
Эл.Значение=Стр.Значение;
Эл.ЗначениеПо=Стр.ЗначениеПо;
Эл.ЗначениеС=Стр.ЗначениеС;
Эл.Использование=Стр.Использование;
Эл.Представление=Стр.Представление;
КонецЦикла
КонецФункции
Рубрики: 

 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку