7.7 Расширяем функционал работы с Таблицей Значений

10.06.09

Разработка - Инструментарий разработчика

Маленький "бантик" для конфигураций 7.7
Позволяет [b]легко и быстро[/b] добавить несколько полезных "фич" при работе с таблицей значений.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
ext_tz.ert .1222694177 37,50Kb 821	821	Скачать (1 SM)	Купить за 1 850 руб.

Это пример того, как можно быстро и легко расширить функционал ваших обработок, которые содержат таблицы значений.
Ничего "сверхестественного" в работе с ТЗ обработка не содержит (банальные "сортировка","удалитьстроку" и тд).

Для работы обработки необходима замечательная внешняя компонента formex. Скачать ее можно на страничке автора www.dorex.ru

Использовать обработку очень просто:
Открываем обработку через Файл-Открыть, галочками отмечаем нужный нам функционал и нажимаем кнопку включить.
После этого на любой Таблице значений нажимаем правую кнопку мыши и пользуемся.
При следующем запуске 1С функционал будет отлючен, для включения повторяем все вышеописанное.

Внимание! Обработка добавляет в глобальный модуль три процедуры, две из которых являются предопределенными (ПриОтжатииПравойКнопки() и ПриНажатииКнопкиКлавиатуры()). По-этому перед первым использованием проконсультируйтесь с Вашим программистом.
Весь добавляемый код можно предварительно просмотреть.

P.S. Если вы используете в своей конфигурации "дополнительные глобальные модули", создаваемые с помощью Formex, то обработка работать не будет.

+52 –

См. также

Консоль запросов

Инструментарий разработчика Системный администратор Программист Платформа 1С v7.7 1C77 Абонемент ($m)

Консоль запросов к базе SQL, не требующая внешних компонент

10 стартмани

29.04.2015 22462 57 Gvozdod 8

Openconf upd. 2014

Инструментарий разработчика Системный администратор Программист Платформа 1С v7.7 OpenConf Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 1C77 Россия Бесплатно (free)

Обновленная сборка OpenConf Light Pack.

27.04.2014 59890 446 unichkin 50

StartManager 1.4 - Развитие альтернативного стартера

Инструментарий разработчика Системный администратор Программист Платформа 1С v7.7 Платформа 1С v8.3 Абонемент ($m)

Очередная редакция альтернативного стартера, являющегося продолжением StartManager 1.3. Спасибо всем, кто присылал свои замечания и пожелания, и тем, кто перечислял финансы на поддержку проекта. С учетом накопленного опыта, стартер был достаточно сильно переработан в плане архитектуры. В основном сделан упор на масштабируемость, для способности программы быстро адаптироваться к расширению предъявляемых требований (т.к. довольно часто просят добавить ту или иную хотелку). Было пересмотрено внешнее оформление, переработан существующий и добавлен новый функционал. В общем можно сказать, что стартер эволюционировал, по сравнению с предыдущей редакцией. Однако пока не всё реализовано, что планировалось, поэтому еще есть куда развиваться в плане функциональности.

1 стартмани

23.04.2014 169025 1889 Alexoniq 1603

499

Tray Informer

Инструментарий разработчика Программист Платформа 1С v7.7 Платформа 1С v8.3 Россия Абонемент ($m)

Согласитесь, что окно стандартное сообщений в 1С иногда приносит больше неудобств, чем пользы. И тем более разные "Предупредить"... Что с этим окном только не делают! Его отцепают от формы, делают маленьким, умудряются спрятать за границы экрана. А потом звонят программистам с претензией, что документ почему-то не проводится, отя ничего и не пишет. У вас такого не было? А вот у нас было и не раз )))

1 стартмани

04.09.2013 33516 61 O-Planet 78

Изменение структуры баз 1С 7.7 без долгой реструктуризации. Часть 1. Справочники

Инструментарий разработчика Программист Платформа 1С v7.7 1C77 Абонемент ($m)

На днях встретил вопрос на форуме про возможность внесения изменений в конфигурацию без долгого сохранения в рабочей базе большого объема. Вот решил поделиться опытом, как это делал я. База у нас была объемом порядка 120 Гб. К базе обращался сайт в режиме 24/7, поэтому важно было быстро сохранять изменения и желательно без последующего монопольного запуска для восстановления индексов и процедур и без отключения пользователей от базы. Это первая часть статьи и посвящена она справочникам. С одной стороны - это самый простой объект, с другой стороны, именно про справочник спрашивалось на форуме. Если статья будет востребована, то я напишу аналогичные про документы, регистры и может еще что.

1 стартмани

13.08.2013 21989 Reptile 5

Работа с файлами MS WORD из 1C

Инструментарий разработчика Программист Платформа 1С v7.7 1C77 Абонемент ($m)

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

1 стартмани

14.07.2013 27785 56 adamx 11

v7.7 1CDialogControls: Инструмент в помощь разработчику на 7.7.

Инструментарий разработчика Программист Платформа 1С v7.7 1C77 Абонемент ($m)

Давным давно, когда я еще плотно писал на 7.7 работа с формами была мучительной и неудобной. Приходилось каждый элемент выкладывать, выравнивать на форме ручками, прописывать код в модуле. Иногда при разработке очередной формы приходила в голову мысль: "а где-то я уже похожее делал..." и начинался мучительный поиск подходящего кода в своих запасах........

1 стартмани

21.02.2013 18427 36 MarSeN 14

[Разработчику] Любая таблица значений в OLAP

Инструментарий разработчика Программист Платформа 1С v7.7 1C77 Абонемент ($m)

Анализируем различные данные в 1С, используя OLAP-технологии со всеми прелестями. Т.е. наглядное отображение данных, быстрые расчеты, горизонтальные и вертикальные группировки любой вложенности, удобная фильтрация, Drag'n'Drop и ещё много приятных вещей от MS. Обработка на входе принимает практически любую таблицу значений (ТЗ в которой колонкам указаны типы значений, строка, число и т.п.), на выходе имеем на форме 1С сводную таблицу и график по этой ТЗ, с которой работаем, как и в Excel со сводной таблицей и диаграммой. Взял за основу разработку «OLAP Анализ счёта» ( http://infostart.ru/public/14964/ ) от JohnyDeath и переделал под любую ТЗ. Опционально используется «Прогресс бар для 1С 77» (http://infostart.ru/public/14061/ ) от Gmix.

1 стартмани

21.12.2012 36459 51 venger 7

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. CheBurator 2695 29.09.08 19:30 Сейчас в теме

порадовал флажок "эрегировать" и менюшка "по возврастанию"..
кто на кого эрегирует и куда врастает?
;-)

2. Noy 1079 29.09.08 22:16 Сейчас в теме

(1) а, пусть так и будет :)
спасибо за оценку.

3. sergeevn1 30.09.08 06:11 Сейчас в теме

Если на форме несколько таблиц значений, то приходится сначала выбирать таблицу левой кнопкой, чтобы на ней заработала правая

4. Noy 1079 30.09.08 09:06 Сейчас в теме

(3) Да, специально так сделал. ТЗ должна быть активна.

5. andrewalexk 30.09.08 11:18 Сейчас в теме

:)
Кулибин..
РедакторТЗ.ert видел хоть?

6. Noy 1079 30.09.08 11:44 Сейчас в теме

(5) Это разные вещи. Все равно что я выложу маленькую конфу для учета семейного бюджета, а ты мне про УПП начнешь рассказывать.
К тому же в описании четко написано "Это пример того..."

З.Ы. не все умею классы добавлять - а это работает без внедрения вообще.

7. vasilykushnir 63 30.09.08 12:02 Сейчас в теме

> P.S. Если вы используете в своей конфигурации "дополнительные глобальные модули", создаваемые с помощью Formex, то обработка работать не будет.

А че ж так?... Уже хотел опробовать.... А доп модулей у меня немеряно...

8. Noy 1079 30.09.08 12:07 Сейчас в теме

(7) Или я не до конца разобрался с методами Формекса по работе с глобальным модулем, или там всего-то пара методов - но определить загружен ли "мой" глобальный модуль или нет я не смог. Прикручивать сюда еще одну ВК показалось лишним.

В принципе можешь закоментировать в ПриОткрытии строку с доступностью и все заработает, только посмотри предопределенные процедуры...

9. Abadonna 3969 30.09.08 12:23 Сейчас в теме

(8) ПриОтжатииПравойКнопки() и ПриНажатииКнопкиКлавиатуры() работают и в локальном контексте, т.е. необязательно их в ГМ помещать, можно прямо в модуль обработки

10. Noy 1079 30.09.08 12:32 Сейчас в теме

(9) Так и планировал сразу - добавлять в модуль формы тех обработок/документов где это надо, а не в ГМ. Но для этого надо TurboMD, а Formex не дополняет локальные модули (или я плохо смотрел).

Повторюсь - это пример реализации. Взять код из этой обработки, чуть-чуть подправить (убрать "ТекущийКонтекст") и добавить в нужные формы сможет любой, даже самый начинающий программист.
Чего и хотелось достичь.

11. Abadonna 3969 30.09.08 14:36 Сейчас в теме

Не поленился проверить что будет, если одна и та же процедура прописана в основном и дополнительном ГМ. Например,
Процедура ПриНажатииЛевойКнопки(Конт,Состоян,КоординатаПоГоризонтали,КоординатаПоВертикали,ФСО);
Получается так: сначала выполняется в основном глобальном модуле и тут же следом в ДопГМ.

12. Noy 1079 30.09.08 14:58 Сейчас в теме

(11) хм... я чего-то решил, что будет ошибка при компиляции и даже не проверил. ну так даже лучше!

13. АЛьФ 30.09.08 15:35 Сейчас в теме

Вот проверять им не лень, а документацию по компоненте прочитать лень:

Порядок поиска процедуры по имени:
Процедура <РусскоеИмяПроцедуры>
Процедура <АнглийскоеИмяПроцедуры>
Функция <РусскоеИмяПроцедуры>
Функция <АнглийскоеИмяПроцедуры>

Порядок вызова
Первоначально предопределенная процедура ищется в модуле активной формы.
Если процедура присутствует в модуле формы, то она вызывается. В противном случае процедура ищется во всех загруженных глобальных модулях, в порядке их загрузки, начиная с основного глобального модуля.
Вызов дополнительных предопределенных процедур сквозной. Т.е. не останавливается после первой найденной процедуры, а идет дальше, через локальный контекст, основной глобальный модуль и все дополнительный глобальные модули.

14. Abadonna 3969 30.09.08 15:39 Сейчас в теме

(13) АЛьФ, конечно же лень почитать ;))))))))))

15. Abadonna 3969 30.09.08 15:42 Сейчас в теме

+(14) Проверял-то я ровно минуту, а прочитать и вникнуть - минуты 3 надо :))))

16. Noy 1079 30.09.08 17:57 Сейчас в теме

(13) даа... а я и не прочитал и не проверил. Точнее читал, но запамятовал. Буду исправляться.

P.S. Интересно - почему так происходит: чем больше "монстров-профессионалов" (в хорошем смысле этого слова и с глубоким уважением к выше высказавшимся) прокоментируют обработку, тем медленнее растет рейтинг???

17. Abadonna 3969 30.09.08 18:03 Сейчас в теме

(16) Ну Альфовский можешь в уме на 10 как минимум помножить ;)

18. Noy 1079 30.09.08 18:06 Сейчас в теме

(17) Уже заметил!
(13) Спасибо!!! Действительно приятно.

19. vasilykushnir 63 01.10.08 09:04 Сейчас в теме

(13) Альф, ну же знаешь, что русский читает инструкцию только тогда, когда точно уверен, что сломал все, что можно было сломать. (:-).
(16) Абадонна прав - Плюсики Альфа и ЧеБурашки дорогого стоят. Их отметки означают, что приблуда стОящая и можно качать спокойно.

20. Noy 1079 01.10.08 10:19 Сейчас в теме

(19)+ ЧеБурашке вообще отдельное спасибо - всегда один из первых просмотрит, и почти всегда оставит комментарий.

21. Abadonna 3969 02.10.08 07:27 Сейчас в теме

А локальном контексте (модуле обработки) можно сделать так

Код
Процедура ПриНажатииКнопкиКлавиатуры(код, альт, шифт, ФСО) ФормаРасш = СоздатьОбъект("РасширениеФормы"); Атр=ФормаРасш.ПолучитьАтрибут(Форма.АктивныйЭлемент()); Если ПустоеЗначение(Атр)=1 Тогда Возврат; КонецЕсли; Если ТипЗначенияСтр(Атр.Значение)="ТаблицаЗначений" Тогда Если Код=46 Тогда // клавиша DEL Атр.Значение.УдалитьСтроку(); КонецЕсли; // и т.д. и т.п. КонецЕсли; ФормаРасш=""; КонецПроцедуры Процедура ПриОтжатииЛевойКнопки(сост, х, у,ФСО) ФормаРасш = СоздатьОбъект("РасширениеФормы"); Атр=ФормаРасш.ПолучитьАтрибутПоКоординатам( х, у); Если ПустоеЗначение(Атр)=1 Тогда Возврат; КонецЕсли; Если ТипЗначенияСтр(Атр.Значение)="ТаблицаЗначений" Тогда // чего-нибудь делаем с ТЗ ОбработкаСтроки(); Инверсия(); КонецЕсли; ФормаРасш=""; КонецПроцедуры Показать полностью

Код

Процедура ПриНажатииКнопкиКлавиатуры(код, альт, шифт, ФСО)
   ФормаРасш = СоздатьОбъект("РасширениеФормы"); 
   Атр=ФормаРасш.ПолучитьАтрибут(Форма.АктивныйЭлемент());
   Если ПустоеЗначение(Атр)=1 Тогда Возврат; КонецЕсли;     
   Если  ТипЗначенияСтр(Атр.Значение)="ТаблицаЗначений" Тогда
      Если Код=46 Тогда  // клавиша DEL  
         Атр.Значение.УдалитьСтроку();
      КонецЕсли; // и т.д. и т.п.      
   КонецЕсли;   
   ФормаРасш="";
КонецПроцедуры

Процедура ПриОтжатииЛевойКнопки(сост, х, у,ФСО)  
   ФормаРасш = СоздатьОбъект("РасширениеФормы");
   Атр=ФормаРасш.ПолучитьАтрибутПоКоординатам( х, у); 
   Если ПустоеЗначение(Атр)=1 Тогда Возврат; КонецЕсли;
   Если  ТипЗначенияСтр(Атр.Значение)="ТаблицаЗначений" Тогда
      // чего-нибудь делаем с ТЗ
      ОбработкаСтроки();
      Инверсия();    
   КонецЕсли;   
   ФормаРасш="";
КонецПроцедуры

Показать полностью

22. strah4 02.10.08 11:37 Сейчас в теме

Удобно. Единственное что, куда более насущна возможность включать-выключать расширение из своего модуля обращением к процедуре глобального. Будет время прикручу обязательно. Спасибо большое!!! Тема очень мне нужная:)

23. Noy 1079 03.10.08 09:16 Сейчас в теме

(22) Если будешь прикручивать - то делай не на всю конфигурацию, как у меня в примере, а на отдельные объекты и для каждого пользователя. Проверку сделай например через ПолныйТипОбъекта(). Ну и справочник с полями Пользователь, Форма, Сортировка (да/Нет), Удаление, Изменение и тд
Имхо, так будет гораздо удобнее.

24. ge_ni 306 03.10.08 18:37 Сейчас в теме

Помогите!!! Не работает и не ругается! Растраска строк задействована! ПриОткрытии работает! Библиотеки зарегистрированы правильно и

26. Noy 1079 05.10.08 13:42 Сейчас в теме

(24) Напиши подробнее - что значит "не работает" и какая версия Formex?
(25) 1. Ну это в принципе только пример, действий с ТЗ еще можно вагон прикрутить: добавление и сдвиг колонок и строк, отбор по значению, "свернуть", редактирование параметров колонок, использвание del (смотри комменнтарий 21), печать, сохранение настроек ширины и положения колонок в профиль и тд.
2. Не предусмотрел :) - надо было проверку поставить на ТипЗначенияСтр(ТекущийКонтекст).
Спасибо за комментарий.

29. ge_ni 306 08.10.08 00:25 Сейчас в теме

(24) FormEx 2.0.5.83 beta. Учитывая прикрученное к библиотеке описание все режимы должны поддерживаться. Регистрирую по 33labовски.

Функция ЗагрузитьВК(стрИмяФайлаВК)
Если ЗагрузитьВнешнююКомпоненту(_КаталогВнешнихКомпонент+стрИмяФайлаВК)=1 Тогда Возврат 1; КонецЕсли;
СообщитьОбОшибкеЗагрузкиВК(стрИмяФайлаВК);
Возврат 0;
КонецФункции

Функция ИнициализацияВнешнихКомпонент()
Состояние("Загрузка внешних компонент...");

Если ЗагрузитьВК("1cpp.dll" )=0 Тогда Возврат 0; КонецЕсли;
Если ЗагрузитьВК("FormEx.dll" )=0 Тогда Возврат 0; КонецЕсли;
Если ЗагрузитьВК("DialMail.dll")=0 Тогда Возврат 0; КонецЕсли;
Если ЗагрузитьВК("V7Plus.dll" )=0 Тогда Возврат 0; КонецЕсли;
Если ЗагрузитьВК("RWidjets.dll")=0 Тогда Возврат 0; КонецЕсли;
Если ЗагрузитьВК("UsersDef.dll")=0 Тогда Возврат 0; КонецЕсли;
Если ЗагрузитьВК("VTools.dll" )=0 Тогда Возврат 0; КонецЕсли;

Чего ей не хватает?!
Использую ряд классов
и от 33lab и самописных. То что мне нужно, работает! А тут засада!

Процедура ПриДвиженииМыши(конт, сост, х, у)
Состояние(" х = " + х + " у = " + у + " сост = " + сост); //Не работает, даже не перехватывает
КонецПроцедуры

Процедура ПриНажатииПравойКнопки(конт, сост, х, у)
Сообщить("Нажата правая кнопка мыши."); //Не работает
КонецПроцедуры

Может флаг какой выставил?! ... или библиотеки мешают друг другу

30. Noy 1079 08.10.08 09:35 Сейчас в теме

(29) Судя по всему с компонентой все ОК.
В первую очередь проверь состояние Сервис.ПерехватКлавиатуры()=? и Сервис.ПерехватМыши()=? - оба значения должны быть равны 1.

По поводу "мешают друг другу" - врядли, вот только я не работал с RWidjets и очень давно смотрел VTools. Можешь попробовать их отключить.

33. ge_ni 306 16.10.08 19:41 Сейчас в теме

(30) Спасибо!!! Действительно Перехват мыши в 0!!! был Не доглядел. Еще раз спасибо

31. Abadonna 3969 08.10.08 09:47 Сейчас в теме

(29)
Функция ЗагрузитьВК(стрИмяФайлаВК)
Если ЗагрузитьВнешнююКомпоненту(_КаталогВнешнихКомпонент+стрИмяФайлаВК)=1 Тогда Возврат 1; КонецЕсли;
________________________________________________________________
Да уж!..; А написать просто:
Возврат ЗагрузитьВнешнююКомпоненту(_КаталогВнешнихКомпонент+стрИмяФайлаВК);
??????? :))))))

32. ge_ni 306 16.10.08 19:39 Сейчас в теме

(31)Ну ладно уж!)) Текст-то не мой..., а исправлять вломы

25. maloi_a 04.10.08 08:49 Сейчас в теме

Замечания:
1. Основные действия с ТЗ есть, а вставки строки нет, кроме того не работает с пустой таблицей.
У меня надо было добавлять строку, я исправил - работает.
2. Выходит ошибка, если кликнуть мышкой вне открытого окна или в окне сообщений:
{Глобальный модуль(92)}: Значение не представляет агрегатный объект (Форма)
ФормаРасш.УстановитьФорму(ТекущийКонтекст.Форма);

27. maloi_a 06.10.08 15:24 Сейчас в теме

Исправил ошибку (25) п. 2 следующим образом:
...
|Процедура ПриОтжатииПравойКнопки(ТекущийКонтекст,Сост,х,у,ФСО)
| ФормаРасш=СоздатьОбъект(""РасширениеФормы"");
| Сообщить(ТекущийКонтекст);
| Если ТекущийКонтекст<>""ГрупповойКонтекст"" Тогда Возврат; КонецЕсли;
| ФормаРасш.УстановитьФорму(ТекущийКонтекст.Форма);
| Атр=ФормаРасш.ПолучитьАтрибутПоКоординатам(х,у);
| Если ТипЗначенияСтр(атр)=""АтрибутФормы"" Тогда
| Если ТипЗначенияСтр(Атр.Значение)=""ТаблицаЗначений"" Тогда
| Если Атр.Идентификатор=ТекущийКонтекст.Форма.АктивныйЭлемент() тогда
| ПравыйКликНаТЗ(ТекущийКонтекст,Атр.Значение);
| КонецЕсли;
| КонецЕсли;
| КонецЕсли;
|КонецПроцедуры
|
|";

ТекстГМОбработкаКлавы="
|
|Процедура ПриНажатииКнопкиКлавиатуры(ТекущийКонтекст,Код,Алт,Шифт,Контрол,Символ,ФСО)
| Сообщить(Код);
| Если Код=93 Тогда
| ФСО=0;
| ФормаРасш=СоздатьОбъект(""РасширениеФормы"");
| Сообщить(ТекущийКонтекст);
| Если ТекущийКонтекст<>""ГрупповойКонтекст"" Тогда Возврат; КонецЕсли;
| ФормаРасш.УстановитьФорму(ТекущийКонтекст.Форма);
| Атр=ФормаРасш.ПолучитьАтрибут(ТекущийКонтекст.Форма.АктивныйЭлемент());
| Если ТипЗначенияСтр(атр)=""АтрибутФормы"" Тогда
| Если ТипЗначенияСтр(Атр.Значение)=""ТаблицаЗначений"" Тогда
| ПравыйКликНаТЗ(ТекущийКонтекст,Атр.Значение);
| КонецЕсли;
| КонецЕсли;
| КонецЕсли;
|КонецПроцедуры
|";

После этого выявил следующую закономерность - мышиная и клавиатурная процедуры работают не всегда
синхронно, а именно:
1. Фокус на окне обработки - обе говорят "Групповой контекст".
2. Если Фокус перенести с активного окна обработки хоть мышью, хоть клавиатурой,
процедуры работают по-разному: клавиатурная - групповой контекст, мышиная - пусто.
3. Фокус на окне сообщений - обе говорят пусто.
4. Если Фокус перенести с окна сообщений, процедуры работают одинаково
хоть в окне обработки, хоть вне окна.
Вопрос к разработчикам?

28. Noy 1079 06.10.08 15:59 Сейчас в теме

(27) Клава и мышь и не должны синхронно работать - как пример: выдели мышкой файл на рабочем столе, потом убери мышь например на кнопку пуск и нажми на клаве кнопку "контекстное меню". Тоесть клава "подвязывается" к активному элементу, а мышь к координатам, где произошло событие.

В принципе можно добавить проверок и немного "выровнять" работу обработки.