Конфигурация, демонстрирующая некоторые приёмы работы с Табличным Полем, и ActiveX.
Включает:
- классы общего назначения, для организации пользовательского интерфейса: Общие.Форма.Привязка (автор DmitrO), Общие.ПолеВыбораЗначения, Общие.КоллекцияПолейВыбораЗначения, Отчет.РеквизитОтбора, Отчет.КоллекцияРеквизитовОтбора, ТПанельКнопок;
- вспомогательный класс для работы с табличным полем: ТабличноеПолеСНастройками;
- вспомогательные классы для формы списка справочника: ТСправочник.Форма.ДеревоГрупп, ТСправочник.Форма.ПанельКнопок, ТСправочник.Форма.ФормаСписка
- тестовые обработки, и форма списка справочника в двух вариантах;
- описания классов (возможно неполные) в формате *.als.

Форма списка справочника сделана в двух вариантах - стандартный 1Совский, и с использованием ТП. В альтернативной форме для показа дерева групп и панельки с кнопочками используются АктивИксы.
За то, какую форму увидит пользователь, отвечает константа АльтернативныеФормы  (0 или 1).

Общие.ПолеВыбораЗначения: Класс, реализующий функционал выбора значения из справочника по первым буквам наименования.
Т.е., находясь в edit'е, начинаем набирать наименование нужного нам контрагента, и в какой-то момент появляется список контрагентов с таким префиксом. Дальше уже выбираем из этого списка.
Показ списка реализован с помощью слегка модифицированной SvsSvc.FilterValue().
Пример представляет собой маленькую конфигурацию со справочником контрагентов и тестовой обработкой с двумя полями ввода.
Работает как под SQL, так и под DBF.

Отчет.РеквизитОтбора: Класс, предназначеный для использования в отчётах. Наследник от Общие.ПолеВыбораЗначения.


Демка работает под 1С++ 2.0.3.0 и 2.5.0.0 + FormEx. Рассчитана на SQL базу, за исключением класса Общие.ПолеВыбораЗначения - он работает и под DBF.


21.08.2008:
1. Запрос в форме списка справочника переделан в соответствии с индексами таблиц SC.
В классе ТСправочник.Форма.ФормаСписка также приняты меры для попадания ключа порядка в индексы.

2. Выделен класс Общие.ПолеВыбораЗначения.ПоставщикДанных, что позволяет делать хитрые поля ввода для любых данных.

3. Добавлены классы Отчет.МножественныйФильтр и Отчет.КоллекцияМФ для организации множественных фильтров в отчётах.


Брать здесь: http://www.rikcenter.ru/download/Demo_RiK.rar

Да, забыл сказать, что пример сделан для версии 1С++ с FormEx'ом (2.0.3.0).
Для версии 2.5.0.0 надо поправить создание АктивИксов и ТП по рекомендациям trad'а: http://www.1cpp.ru/forum/YaBB.pl?num=1150441349/39#39

Еще он забыл сказать, что это для MSSQL

при вызове контекстного меню

оКонтрагент.НазначитьКонтекст(оТП.ТекущийЭлемент());
{Отчет.обрФормаСпискаСправочникаКонтрагенты.Форма.Модуль(175)}: Поле агрегатного объекта не обнаружено (ТекущийЭлемент)

Хотя метод ТекущийЭлемент() вроде есть

ADirks писал(а) 11. Августа 2006 :: 02:52:


А в новой версии контекстное меню нереализованно вобще?
При вызове меню ничего не происходит

Большая благодарность за пример!

Хотя давно все было реализовал на ТП, но у тебя, Алексей, почерпнул интересных приемов

Век живи - век учись...


P.S. Сорри за имя, просто переклинило.

Mikeware писал(а) 19. Августа 2006 :: 05:45:

Отправил на мыло

Mikeware писал(а) 19. Августа 2006 :: 05:45:


Ну, вы, блин, даете
Как раз в репозитарии и лежит версия 2.0.3 - это так называемый "ночной" релиз или ночная сборка.
Качать с www.1cpp.ru

Дайте, плиз, ссылки на примеры работы с ТП с провайдерами ЖурналРегистрации и ТаблицаЗначений.
Думаю, что пора научиться использовать и ТП
ЗЫ Скуль не предлагать.
ЗЗЫ если понравится, можно и самому какой-нибудь провайдер доделать и сделать с нуля

Спасибо, я и забыл
А для Таблицы значений где есть?
Я смутно помню, что в самом начале у ДмитрО был пример и для ТЗ.
Но вот где искать, не помню.

ЗЫ кстати, ты с изменениями тестов немного ошибся, на тестах ФОрмЕкс тестирование останавливалось, я поправил, проверь, плиз.

Эту ошибку поправил.
ЗЫ тебе отправил ответ на твое письмо.

ADirks писал(а) 10. Августа 2006 :: 05:18:


Скачал конфигурацию...
Запускаю ТестПоляВыбора и получаю

Если оЭтотСпр.ПриОткрытииФормыСписка() = 0 Тогда
{Справочник.Контрагенты.ФормаСписка.ФормаСписка.Модуль(57)}: Поле агрегатного объекта не обнаружено

===========================================================================
ТСправочник::ПриОткрытииФормыСписка()
сзПараметры = Сам.Форма.Параметр;
{классТСправочник@MD(65) }
=========================================================================== 

1С++ v.2.0.3.1

На тойже форме есть кнопка "ТестОткрытияСправочникаТП модально"
на ней тоже выдает ошибку

оОтборы.Добавить("ВыбВидКлиента", "Перечисление", "ВидыКлиентов");
{Отчет.обрФормаСпискаСправочникаКонтрагенты.Форма.Модуль(333)}: класс Общие.XBase: Не удалось выполнить соединение

===========================================================================
Общие.ПолеВыбораЗначения::ИнициализацияЗапросаДБФ()
Модуль.ВыброситьИскл(, "класс Общие.XBase: Не удалось выполнить соединение");
{классОбщие_ПолеВыбораЗначения@MD(51) }
===========================================================================

===========================================================================
Отчет.КоллекцияРеквизитовОтбора::Добавить(Строка Идентификатор=ВыбВидКлиента, Строка ПолноеИмяТипа=Перечисление, Строка Представление=ВидыКлиентов)
Объект = СоздатьОбъект("Отчет.РеквизитОтбора");
{классОтчет_КоллекцияРеквизитовОтбора@MD(29) }
============================================================== 

Понимаю, что нет соединения с базой... А какой должен быть провайдер для DBF? У меня стоит Visual FoxPro Driver. Прямые запросы под DBF работают...

Спасибо.
Сорри за ламерство.

artbear писал(а) 15. Ноября 2006 :: 11:14:

Нет конечно...

Цитата:

Есть
Содержимое папки C:\WINDOWS\system32
20.10.2001  12:00            20 535 vfpodbc.dll

ADirks писал(а) 15. Ноября 2006 :: 12:13:


константа АльтернативныеФормы  была выставлена в 0
честно говоря не совсем понял...  мне собствеено хотелось бы видеть  только выбор а ля 8.0...
это вообще реально под DBF? если да, то что для этого нужно сделать?

Visual FoxPro ODBC Driver
http://download.microsoft.com/download/vfoxodbcdriver/Install/6.1/W9XNT4/EN-US/V...

Блин, а на меню посмотреть -
в главном меню пункт Обработки и там все есть

да, у меня другая, хотя скачивал вроде отсюда

Так урл тот же самый
http://www.1cpp.ru/forumfiles/Attachments/DemoTP_AX.zip

artbear писал(а) 15. Ноября 2006 :: 14:41:


Да... Чудеса да и только. Скачал еще раз и действительно все есть и все что надо работает....
О как!

А что нужно чтоб поле выбора как в 8-ке заработало не всех компах в сети. Компы WinXP и Win98......

miandrew писал(а) 16. Ноября 2006 :: 10:08:

На всех компах надо зарегистрировать svcsvc.dll на каждом копме.
regsvr32 svcsvc.dll

Господа! А вот как бы сделать что бы не только на Справочник.Контрагенты
Причем на одной форме...
Как я понимаю нужно сделать классСправочник_МойСправочник...
А что еще нужно будет?
Как всегда сорри за ламерский вопрос...

Имеется ввиду выбор a la 8.xx

to ADirks
попробовал открыть обработку в тестовой конфигурации поле выбора как в 8-ке
получил ошибку:

---

классТСправочник@MD
Если оЭтотСпр.ПриОткрытииФормыСписка() = 0 Тогда
{Справочник.Контрагенты.ФормаСписка.ФормаСписка.Модуль(57)}: Поле агрегатного объекта не обнаружено
===========================================================================
ТСправочник::ПриОткрытииФормыСписка()
сзПараметры = Сам.Форма.Параметр;
{классТСправочник@MD(72) }
===========================================================================

---

Не могу понять в чем дело. Не подскажет никто?

Господа! И еще один момет с выбром "a la 8.xx"
При выборе элемент справочника выбирается,  но процедура висящая на этом поле ввода не срабатывает...
Нужно же ее куда-то запихнуть...

Сейчас класс Общие.ПолеВыбораЗначения рассчитан только на фильтрацию по наименованию. Какие-то более общие вещи пока не планирую. Просто потому что это мне не нужно, и значит я не сделаю это хорошо. Но в данном конкретном случае надо в запросе все Descr заменить на Code.

Чтобы вызывающая форма могла отрабатывать изменение значения, в форме должна быть процедура ОбработкаВыбораЗначения(...).  Об этом даже в документации написано 

Вести класс (и ветку в репозитарии) для хитрого поля отдельно я просто физически не смогу. А так, когда всё в общей куче, намного проще.

Я по поводу поля выбора и установки первичных фильтров.
Неоднократно говорилось, что неплохо было бы сделать ИспользоватьРодителя(), ИспользоватьВладельца() и т.д.
Так вот, моё предложение:
1. В классе дописать:

Перем Родитель;

//---------------------------------------------------
Процедура ИспользоватьРодителя(ВыбРодитель) Экспорт
	Если ПустоеЗначение(ВыбРодитель)=0 Тогда
		Если ТипЗначенияСтр(ВыбРодитель)="Справочник" Тогда
			Если ВыбРодитель.ЭтоГруппа()=1 Тогда
				Мета = СоздатьОбъект("MetaDataWork");
				Родитель = Мета.ЗначениеВСтрокуБД(ВыбРодитель);
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры // ИспользоватьРодителя 

и в процедуре Инит()
после строк, где устанавливается значения переменной стрУсловие написать:

Если ПустоеЗначение(Родитель)=0 Тогда
		стрУсловие=стрУсловие+"
		|AND Parentid = '"+Родитель+"'";
	КонецЕсли; 

И потом в тесте класса (ну или где там это используется) добавляем реквизит формы с тем же типом справочника для выбора родителя с формулой, например, ПриВыбореРодителя()

//---------------------------------------------------
Процедура ПриВыбореРодителя()
	оПолеВвода_Контрагент.ИспользоватьРодителя(ВРодитель);
	оПолеВвода_Контрагент.Инит(Контекст, "Контрагент", "текстПрефиксКонтрагента", 500);
КонецПроцедуры // ПриВыбореРодителя 

Аналогично можно и для "ИспользоватьВладельца"...

Вроде ж ничего сложного. Или я чего упустил?

Выкладываю свои доделки класса "Общие.ПолеВыбораЗначения". А именно:
 + Метод "ИспользоватьРодителя"
 + Метод "ИспользоватьВладельца"
 + Теперь отрабатывается формула, указанная в ПолеВвода

В архиве также обновленный Тест.

P.S. Критика приветствуется

JohnyDeath писал(а) 20. Ноября 2006 :: 07:44:


Было бы неплохо если бы все это было приделоно к более новой версии класса, той которая выложена вначале и встроена в md...

А ты сам пробовал для ТП новые фичи по быстрому поиску?
Попробуй ради интереса... Мне больше никаких отборов теперь не надо

JohnyDeath писал(а) 20. Ноября 2006 :: 07:44:


Может сразу при ините сделать после
Поле = .ПолучитьАтрибут(Ид);
Если заполнено Поле.СвязанС
ИспользоватьВладельца(.ПолучитьАтрибут(Поле.СвязанС).Значение)

(Кода под рукой нету, потому просто идея)

Артур, это так должно быть или ?
Цитата:

Точнее, в обработке h_ОбщиеКлассы
напиши
Цитата:

Вопрос в следующем

платформа: 1С 025, 1С++ 2.0.3.2 от 15.01.2007, svcsvc.dll 1.0.0.8 от 24.01.2007
база: DBF, справочник Номенклатура - 40000 элементов, Контрагенты - 6000 элементов

классы: Общие.ПоляВыбораЗначения и Общие.ПолеВыбораЗначения из последнего поста artbear скачаны, скопированы и подключены

Имеем следующее:

Процедура ПриОткрытии()
...
оПоляВвода = СоздатьОбъект("Общие.КоллекцияПолейВыбораЗначения");
оПоляВвода.Инит(Контекст, 200);
оПоляВвода.Добавить("ТоварЗначение",,1);
Форма.ТоварЗначение.ВыборГруппы(1);

оПоляВвода.Добавить("ПокупательЗначение",, 1);
Форма.ТоварЗначение.ВыборГруппы(1);
...
КонецПроцедуры


Процедура ПриНажатииКнопкиКлавиатуры(КодКлавиши, Alt, Shift, Ctrl, Символ, ФСО)
	Если оПоляВвода.ПриНажатииКнопкиКлавиатуры(КодКлавиши, Alt, Shift, Ctrl, Символ, ФСО) = 1 Тогда
		Возврат;
	КонецЕсли;
КонецПроцедуры

Процедура ПриНажатииЛевойКнопки(Сост, Лево, Верх)
	оПоляВвода.ПриНажатииЛевойКнопки(Сост, Лево, Верх);
КонецПроцедуры

Процедура ПриОтжатииЛевойКнопки(Сост, Лево, Верх)
	оПоляВвода.ПриОтжатииЛевойКнопки(Сост, Лево, Верх);
КонецПроцедуры


 

То есть тупо скопировал реализацию из конфигурации Демо ТП:

Имеем:
1. На поле выбора значения ПокупательЗначение, при наборе символов поиск происходит нормально (но первый символ пропадает 1 раз 5 проб) - то есть видимо фильтр уже включается по первой букве (а так как включен фильтр по подстроке) - то видимо не успевает

2. НА поле выбора значения ТоварЗначение, символы с клавиатуры не обрабатываются чаще, причем чем быстрее я набираю символы на клавиатуре тем хуже результат

Вопрос:
1. Можно как нибудь сделать нечто - МинимальноеКоличествоСимволовДляВключенияФильтра

2. А почему все  же в классе используется vfpODBC а не OLEDb (или я ошибаюсь)

Залил изменения от alest'а

[+] поставщик данных для хитрого поля выбора отделён от интерфейсной части, так что теперь можно запросы подсовывать какие душа пожелает.

Последний вариант классов по хитрому полю выбора аля v8 добавил в конфу/репозитарий классов 1С++
http://www.1cpp.ru/forum/YaBB.pl?num=1169222935/64#64

sedmin писал(а) 16. Февраля 2007 :: 10:48:


Я брал на предыдущей странице архив DemoTP_AX_artbear.rar, в сообщении Артура, там есть этот каталог.

sedmin писал(а) 16. Февраля 2007 :: 10:48:


Будет каталог Images в каталоге БД - ошибки быть не должно. Ошибка вываливается, ибо не находит ни файла, ни каталога для установки пиктограммы.

Господа!
Скачал я этот пример, запустил на DBF-базе, и в центре пустого табличного поля на обрФормаСпискаСправочникаКонтрагенты увидел нечто наподобие Tooltip с текстом:"State 42000, native 200, message ]Microsoft][ODBCVisual FoxPro Driver]Syntax error.".
Что сие значит? Откуда ошибка?

artbear писал(а) 22. Апреля 2007 :: 07:27:

А нафига тогда было драйвер FoxPro прицеплять?

Господа, возник вопрос по поводу ТП на форме списка справочника. Все вроде заработало, но.. при попытке вывода числовых полей (например в  Контрагнет.МаксмимальныйСрокКредита, ТМЦ.МинОстаток) вылетает ошибка "Error converting varchar to numeric".
Колонки добавляються на ТП нормально, если искомое поле заменить в тексте запроса на пустое или на явное цифровое значение (типа: 5 as  МинОстаток,10 as  МаксОстаток), то ТП их отображает нормально.
Причем типизация в тексте запроса ни через метаимена ($Число, $Строка) ни через (cast-convert) не помогает в этом случае, как и не помогает явное указание типизации поля поставщика...
Кто нибудь сталкивался с таким?



     

У нас два сервака, один для SQL второй терминальный с 1С, после разворачивания базы не удалось открыть справочник "Контрагенты", вот такая ошибка: http://photofile.ru/users/vks0/95187057/100785423/full_image/
как нибудь это можно обойти?

Если разворачивать на одной машине - все нормально

Доброго всем времени суток.
Я добавил в табличное поле альтернативной формы справочника шапку, что бы при входе в группу в верхних строках отображались открытые папки, как в стандартной форме.
Но возникла проблема.
Теперь при раскрытии группы курсор не всегда позиционируется на первой строке. Причем это зависит от направления сортировки в колонке Код или Наименование.
Нашел выход: посылать нажатие клавиши "Home", но этот выход мне как-то не нравится. Может быть есть другой путь.
И еще, при открытии формы не появляется панель кнопок, при наведении мыши кнопки проявляются, и если, например максимизировать окно, то панель тоже появляется. В чем может быть проблема?
Использую icpp 3.0.1.19
Исходную конфигурацию брал здесь: rikcenter.ru/download/Demo_RiK.rar
Что бы вопрос был более понятен, во вложении архив с конфой.
Все изменения и дополнения отмечены коментариями.

в конфигурации из топика
в "Отчет.обрФормаСпискаСправочникаКонтрагенты"
в строке 222

Процедура ОбновитьАкивИксы()
	оПривязки.ОбработкаОжидания("ОбновитьАкивикы", 0);
... 

очепятка в "ОбработкаОжидания"