ВоркингТейбл ... или а-ля РабочийСтол …
Разработка - Работа с интерфейсом
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Для автоматической загрузки «цепляется» к процедуре 1С типа «ПриНачалеРаботыСистемы».
Вызов меню «Настройка» осуществляется через правую клавишу мыши. Кнопки «Панели» устанавливаются через конфигуратор.
Хотелось штатными средствами сделать «а-ля Рабочий стол» а именно:
- "Картинка" во весь экран ... (надоедает "пустое" поле 1С ...)
- "на форме" кнопки часто используемых и тестируемых ВНЕШНИХ (по отношению к 1С) обработок ...
... всЁ остальное прекрасно делают панели самой 1С ...
Поэтому предлагается рассматривать данную обработку не как повторение идей "РабочийСтол-ВиндоУса" а кАК создание "Доски Информации" для пользователей 1С ...
... для вЕрсии "Организация" - как идея - хорошо прикрутить:
- дни рождения сотрудников
- телефонный спрАвочник
- ссылки на сайт организации
добавочно:
- календарь
- часы
- ссылки на сайты
- погода
- ...
отсюда "вытекает" её основное преимущество - централизованное использование на всех ПК пользователей 1С ...
... ЗА дополнения, конструктивную критику, сообщения о замеченных неточностях или ошибках - буду благодарен ...
Желающих продолжить работу над данным проектом прошу присоединяться.
с Уважением Шёпот теней …
… вОт …
Вступайте в нашу телеграмм-группу Инфостарт
См. также
Рабочее место Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Ценообразование, анализ цен Бухгалтер Пользователь 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)
Расширение для работы с номенклатурой: отображение остатков, цен, изображений, аналитики по каждой позиции, подбор товаров в документы через корзину и оптимизация интерфейса.
17284 руб.
26.04.2016 688218 1574 669
WEB-интеграция Рабочее место Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Пользователь 1С:Предприятие 8 1С:Бухгалтерия 2.0 1С:Бухгалтерия 3.0 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 10 1С:Управление торговлей 11 1С:Розница 2 1С:Розница 3.0 Оптовая торговля, дистрибуция, логистика Россия Управленческий учет Платные (руб)
Программный продукт "Управление доставками в 1С" позволяет обмениваться с личным кабинетом Boxberry, СДЭК, Энергия, Почта России, DPD, ПЭК, Grastin, Деловые Линии, КСЕ, Dalli, ЯндексДоставка. Упрощает создание заявок и резервирование заказов прямо в интерфейсе 1С
24400 руб.
10.03.2016 76202 321 100
Зарплата Производство готовой продукции (работ, услуг) Учет рабочего времени Рабочее место Аналитик Пользователь Руководитель проекта 1С:Предприятие 8 1С:Управление торговлей 10 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Торговля и склад 7.7 Бытовые услуги, сервис Оптовая торговля, дистрибуция, логистика Электротехника и микроэлектроника Управленческий учет Платные (руб)
Модуль или расширение «Сервисный центр для 1С» позволяет принимать в ремонт оборудование (компьютеры, бытовая техника и т.п.), оформлять заявки инженеров на посещение клиентов и вести начисление заработной платы для сотрудников. Позволяет наладить автоматизированный учет в сервисном центре на уже существующей базе.
15500 руб.
01.11.2012 108910 137 1
Производство готовой продукции (работ, услуг) Рабочее место Пользователь Руководитель проекта 1С:Предприятие 8 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Автомобили, автосервисы Управленческий учет Платные (руб)
Модуль «Автосервис» для 1С — это профессиональный инструмент для автоматизации станций технического обслуживания. Решение позволяет вести полный цикл работ: от быстрой записи клиента и планирования постов до расчета заработной платы исполнителей. Поддерживает работу нескольких филиалов в одной базе без ограничений по лицензиям пользователей, интегрируется с типовыми конфигурациями 1С (например, Управление Торговлей 11, УНФ, Бухгалтерия, КА, ERP) для учета товаров и услуг.
18900 руб.
09.03.2016 53454 136 1
Работа с интерфейсом Анализ учета Мониторинг 1С:Предприятие 8 1С 8.3 1C:Бухгалтерия 1С:Бухгалтерия 3.0 1С:ERP Управление предприятием 2 1С:Управление холдингом 1С:Зарплата и Управление Персоналом 3.x 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 11 Платные (руб)
Создайте свой функциональный интерфейс в любой конфигурации 1С с помощью расширения Infostart Dashboard. Настраивайте панели виджетов с метриками, индикаторами и показателями на начальном экране. Узнайте возможность внедрения подсистемы у себя в конфигурации с помощью бесплатной обработки "Анализ внедрения подсистемы 1С Infostart Dashboard"!
31720 руб.
27.03.2025 92411 69 44
Производство готовой продукции (работ, услуг) Рабочее место Пользователь 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Автомобили, автосервисы Россия Управленческий учет Платные (руб)
Расширение, добавляющее в конфигурации 1С:УТ 11.5, КА 2.5 и ERP 2.5 автомобили, марки, модели, нормо-часы. Предусмотрена запись на ремонт, документ заказ наряд, вывод ведомости по заказ нарядам, вывод выработки мастеров.
14640 руб.
29.07.2021 24982 56 22
Оптовая торговля Рабочее место Создание на основании Бухгалтер Пользователь 1С:Предприятие 8 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Бухгалтерский учет Платные (руб)
Полнофункциональное расширение для формирования и ведения учета перевозочных документов всех видов (ТН, ТТН, ЭТрН). Печать документов или отправка через ЭПД (Электронный перевозочный документооборот). Поддержка регистрации нескольких перевозок на одну финансовую реализацию (в виде УПД, например), а также одной перевозки на основании нескольких финансовых реализаций. Формирование всех сопроводительных документов из одной отгрузки. Формирование реестра грузосопроводительных документов, доверенности менеджеров для указания ответственных лиц (руководитель, главный бухгалтер, кладовщик) организации для пользователей ИБ. Гибкая настройка функциональности под потребности организации.
3399 руб.
18.04.2017 57741 289 45
Рабочее место Оптовая торговля Розничная торговля Пользователь 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)
Данная обработка - удобный инструмент в 1С для менеджеров по продажам для повседневной работы с клиентами. Позволяет упростить весь цикл работы с клиентом: первичная консультация по наличию товара, быстрое оформление нового заказа, контроль исполнения заказов. Обработка будет особенно актуальна для компаний, работающих, в основном, с юридическими лицами.
18300 руб.
08.11.2016 67965 56 24
... совершенной разные подходы к организации "рабочего стола" ...
... "здесь" - попытка за счЁт штатных средств ...
... вОт ...
... большая картинка, 9 маленьких картинок и формаНастройки ...
... сейчас попробую ...
.. вОт ...
(5) теперь получше :)
Попробовал :((( жесть вообще ничего не понятно как добавлять и что можно что нельзя.На каких конфах будет работать. Я пробовал на конфе примеры 8.1 там нету например РегистрыСведений.КонтактнаяИнформация.
Я так понял можно добавлять только внешние отчеты обработки причем в фиксированные места на РС т.е. я программист должен через конфигуратор все делать.
Зачем в архиве читальщик XML? (просто для примера)
если честно пока правдо смотреть не на что... таже история что и с читальщиком XML видимо 9 кнопок достаточно и код соответствующий.
Я помоему вам писал ну должно быть чтонить уникальное что есть только в сабже иначе лучше его удалить чтобы люди на него не тратили время
Плюс поставил мне не жалко, но обработка
НиОчЁМ... вОт... ;)
... кто ЖЖЖ спорит ...
... для меня это разные вещи ... и Я не люблю "пАнели" .. но "+" вАм пОставил ... мнеНЕжалко ...
... вОт ...
1. хотелось штатными средствами сделать а-ля ... т.е. какая-нибудь "Картинка" во весь экран ... (надоедать "пустое" поле 1С ...)
2. кнопки часто используемых и тестируемых обработок ...
... всЁ остальное прерасно делают панели самой 1С ...
... вОт ...
... ширина символов-то разная...
... ))) ...
... вОт ...
обязательно:
1. дни рождения сотрудников (не для ЗУП)
2. телефонный спрАвочник
3. ссылки на сайт организации
добавочно:
3. календарь
4. часы
5. ссылки на сайты
6. погода
7. ...
... чЕм и зАймусь на дОсуге ...
... вОт ...
... вся "ценная" идея описана в "описание" - 1. картинка. 2. используемые обработки на столе (путь - всегда под рукой) ...
Шепот , а ведь правда .
В свойствах формы два флажка РазрешитьПеретаскивание и РазрешитьНачалоПеретаскивания. Есть четыре (кажется) события на перетаскивание.
Может и получится.
Раз люди просют - может попробуешь ?
.. ВОТ ...
Шепот , а ведь правда .
В свойствах формы два флажка РазрешитьПеретаскивание и РазрешитьНачалоПеретаскивания. Есть четыре (кажется) события на перетаскивание.
Может и получится.
Раз люди просют - может попробуешь ?
так реализовано же перетаскивание в приводимой в качестве примера обработке :)
чужие лавры не дают покоя )
Файл не найден ... Проверьте путь и имя файла ...
{Форма.ФормаНастроек(64)}: Поле объекта не обнаружено (ФизическоеЛицо)
ЭлементыФормы.поле_Картинка.Картинка = БиблиотекаКартинок.ФизическоеЛицо;
еще и глюков полно...
количество ярлыков ограничено...
бред полный... минус
... про "БиблиотекаКартинок.ФизическоеЛицо;" - и сОвсем всЁ понятно ...
...
(18) ... ну ВЫ это .. рЕализУёте а я посмОтрю ...
идея:
хотелось штатными средствами сделать «а-ля» а именно:
1. "Картинка" во весь экран ... (надоедаеть "пустое" поле 1С ...)
2. «на форме» кнопки часто используемых и тестируемых ВНЕШНИХ (по отношению к 1С)обработок ...
... всЁ остальное прекрасно делают панели самой 1С ...
.... основное слово : "ШТАТНЫМИ СРЕДСТВАМИ" ...
... ВОТ ...
Вот код формы обработки, чтоб работало нужно у формы добавить событие "При открытии" и потом скопировать весь этот код и вставить в форму:
========================= начало ===========================
Перем ПеремещаемаяКартинка;
/////////// Обработчики событий формы /////////////////////
Процедура ПолеПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
// перемещаем картинку
ПеремещаемаяКартинка.Лево = Элемент.Лево+5;
ПеремещаемаяКартинка.Верх = Элемент.Верх+5;
УдалитьВокругКартинки();
НарисоватьВокругКартинки();
КонецПроцедуры
Процедура КартинкаНажатие(Элемент)
Предупреждение("Вы нажали ярлык!");
КонецПроцедуры
Процедура КартинкаНачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
ПеремещаемаяКартинка = Элемент;
НарисоватьВокругКартинки();
КонецПроцедуры
Процедура КартинкаОкончаниеПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
УдалитьВокругКартинки();
КонецПроцедуры
////////// Вспом. процедуры ////////////////////////////
Процедура НарисоватьВокругКартинки()
х = ПеремещаемаяКартинка.Лево-5;
у = ПеремещаемаяКартинка.Верх-5;
НП("К1", х - 50, у - 50); НП("К2", х , у - 50); НП("К3", х + 50, у - 50);
НП("К4", х - 50, у ); НП("К5", х + 50, у );
НП("К6", х - 50, у + 50); НП("К7", х , у + 50); НП("К8", х + 50, у + 50);
КонецПроцедуры
// процедура НарисоватьПоле(Имя, х, у)
Процедура НП(Имя, х, у)
Если х>0 И у>0 И х < (Ширина - 48) И у < (Высота - 73) Тогда
Картинка = ЭлементыФормы.Добавить(Тип("ПолеКартинки"), Имя);
Картинка.Лево = х;
Картинка.Верх = у;
Картинка.Ширина = 50;
Картинка.Высота = 50;
//Картинка.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная);
Картинка.РазрешитьПеретаскивание = Истина;
Картинка.ПрозрачныйФон = Истина;
Действие = Новый Действие("ПолеПроверкаПеретаскивания");
Картинка.УстановитьДействие("ПроверкаПеретаскивания", Действие);
КонецЕсли;
КонецПроцедуры
Процедура УдалитьВокругКартинки()
Для к= 1 По 8 Цикл
Картинка = ЭлементыФормы.Найти("К" + к);
Если Не Картинка = Неопределено Тогда
ЭлементыФормы.Удалить(Картинка);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура Перерисовать()
Картинка = ЭлементыФормы.Добавить(Тип("ПолеКартинки"), "Картинка1");
Картинка.Лево = 8+5;
Картинка.Верх = 33+5;
Картинка.Ширина = 40;
Картинка.Высота = 40;
//Картинка.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная);
Картинка.РазрешитьНачалоПеретаскивания = Истина;
Картинка.Картинка = БиблиотекаКартинок.ДокументОбъект;
Картинка.Гиперссылка = Истина;
Действие = Новый Действие("КартинкаНачалоПеретаскивания");
Картинка.УстановитьДействие("НачалоПеретаскивания", Действие);
Действие = Новый Действие("КартинкаОкончаниеПеретаскивания");
Картинка.УстановитьДействие("ОкончаниеПеретаскивания", Действие);
Действие = Новый Действие("КартинкаНажатие");
Картинка.УстановитьДействие("Нажатие", Действие);
Картинка = ЭлементыФормы.Добавить(Тип("ПолеКартинки"), "Картинка2");
Картинка.Лево = 8+5+50;
Картинка.Верх = 33+5+100;
Картинка.Ширина = 40;
Картинка.Высота = 40;
//Картинка.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная);
Картинка.РазрешитьНачалоПеретаскивания = Истина;
Картинка.Картинка = БиблиотекаКартинок.ГеографическаяСхема;
Картинка.Гиперссылка = Истина;
Действие = Новый Действие("КартинкаНачалоПеретаскивания");
Картинка.УстановитьДействие("НачалоПеретаскивания", Действие);
Действие = Новый Действие("КартинкаОкончаниеПеретаскивания");
Картинка.УстановитьДействие("ОкончаниеПеретаскивания", Действие);
Действие = Новый Действие("КартинкаНажатие");
Картинка.УстановитьДействие("Нажатие", Действие);
КонецПроцедуры
Процедура ПриОткрытии()
Перерисовать();
КонецПроцедуры
========================= начало ===========================
... моЁ мнение: зАчем ...? зачем слепо и тупо дЕлать как у виндоУоса ... ?
п.с. ... я воооообще не помню когда я последний раз двигал "ярлыки" ...
спАсибо ! пОздравляю ! и "+" за идЕю ...
... вОт ...
как зачем двигать??? потому что это удобно, у меня например часть ярлыков в одном углу, а часть в другом, сгруппированы так сказать по какому-то признаку
... БОЛЬШЕмненийБОЛЬШЕидейБОЛЬШИЙвыбор ...
штатными срЕдствами двигать не получится - получится только на букву "г" или "ж" ... опЯть же нАйдутся товарищЬчи и всЁ "о" ...
... вОттАкмнеДумается ...
.... я сдЕлал то, что мне нУжно было ... мне нрАвится и мне удОбно .... (см. описание, после слов "идея:" ...
... кому-то понравится и хОрОшО ...
... ВОТ ...
лично у меня 12 ... а пользуюсь 3 -4 ... и ЭТО на столе виндоУоса ...
здесь - задача совершенно другая - что я и написал в "Описании" ...
при всех НЕдостатках сравнения с "общеПрнятымРабочимСтолом" - у этой обработки есть дополнительные преимущества, например: всЁ что описано в "Дополнительных идеях" ... + можно прицепить дополнительную информацию не обходимую в работе бухгалтеров, различного рода новости, обЪявления, справочники и т.д. и т.п.
...
п.с. пока констатируется только "формальные" признаки похожести/НЕпохожести на "РабочийСтолВиндуса" ... Лично меня "похожесть" и не волнует - она, обработка, должны выполнять мною ЗАдумАнное ...
ЕЁ главное достоинство - облегчить мне жизнь, жизнь моего предприятия разве НЕ этим озабочены всЕ наши рАзработки ...(сделал пробную версию "Организация" - пока замечаний нЕт - потому, что пользователи не ассоциируют ЭТО с "РабочимСтолом" - это скорее "Доска Информации") -
...
если данная разработка поможет ещЁ ком-нибудь - буду рад ... или натолкнЁт кого-нибудь на дополнения или новые идеи - вОООбще отлично ....
... ВОТ ...
Процедура ПолеКартинки1НачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
Действие = Новый Действие("ПроверкаПеретаскивания");
Элементыформы.ПолеКартинки1.УстановитьДействие("ПроверкаПеретаскивания",Действие);
Картинка = Элементыформы.Добавить(Тип("ПолеКартинки"),"ПолеКартинкиЛево");
// Картинка лево
Картинка.Лево = Элемент.Лево - Элемент.Ширина;
Картинка.Верх = Элемент.Верх;
Картинка.Ширина = Элемент.Ширина;
Картинка.Высота = Элемент.Высота;
Картинка.УстановитьДействие("ПроверкаПеретаскивания",Действие);
Картинка.РазрешитьНачалоПеретаскивания = Истина;
Картинка.РазрешитьПеретаскивание = Истина;
// Картинка верх
Картинка = Элементыформы.Добавить(Тип("ПолеКартинки"),"ПолеКартинкиВерх");
Картинка.Лево = Элемент.Лево;
Картинка.Верх = Элемент.Верх-Элемент.Высота;
Картинка.Ширина = Элемент.Ширина;
Картинка.Высота = Элемент.Высота;
Картинка.РазрешитьНачалоПеретаскивания = Истина;
Картинка.РазрешитьПеретаскивание = Истина;
Картинка.УстановитьДействие("ПроверкаПеретаскивания",Действие);
// Картинка низ
Картинка = Элементыформы.Добавить(Тип("ПолеКартинки"),"ПолеКартинкиНиз");
Картинка.Лево = Элемент.Лево;
Картинка.Верх = Элемент.Верх + Элемент.Высота;
Картинка.Ширина = Элемент.Ширина;
Картинка.Высота = Элемент.Высота;
Картинка.РазрешитьНачалоПеретаскивания = Истина;
Картинка.РазрешитьПеретаскивание = Истина;
Картинка.УстановитьДействие("ПроверкаПеретаскивания",Действие);
// Картинка право
Картинка = Элементыформы.Добавить(Тип("ПолеКартинки"),"ПолеКартинкиПраво");
Картинка.Лево = Элемент.Лево + Элемент.Ширина;
Картинка.Верх = Элемент.Верх;
Картинка.Ширина = Элемент.Ширина;
Картинка.Высота = Элемент.Высота;
Картинка.РазрешитьНачалоПеретаскивания = Истина;
Картинка.РазрешитьПеретаскивание = Истина;
Картинка.УстановитьДействие("ПроверкаПеретаскивания",Действие);
КонецПроцедуры
Процедура ПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
Если Элемент.Имя <> "ПолеКартинки1" Тогда
ЭлементыФормы.ПолеКартинки1.Лево = Элемент.Лево;
ЭлементыФормы.ПолеКартинки1.Верх = Элемент.Верх;
ЭлементыФормы.ПолеКартинки1.Высота = Элемент.Высота;
ЭлементыФормы.ПолеКартинки1.Ширина = Элемент.Ширина;
УдалитьКартинки();
ПолеКартинки1НачалоПеретаскивания(ЭлементыФормы.ПолеКартинки1, Неопределено,Ложь );
КонецЕсли;
КонецПроцедуры
Процедура УдалитьКартинки()
Элементыформы.Удалить(ЭлементыФормы["ПолеКартинкиЛево"]);
Элементыформы.Удалить(ЭлементыФормы["ПолеКартинкиПраво"]);
Элементыформы.Удалить(ЭлементыФормы["ПолеКартинкиВерх"]);
Элементыформы.Удалить(ЭлементыФормы["ПолеКартинкиНиз"]);
КонецПроцедуры
Процедура ПолеКартинки1ОкончаниеПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
УдалитьКартинки();
КонецПроцедуры
Вы можете заказать платную консультацию или разработку у автора. Будет создан приватный заказ на «Бирже заказов» для автора.
№ 21893
Создание 21.08.09 14:05
Обновление 22.08.09 11:43
Просмотры 18881
Загрузки 117
Рейтинг
17
Комментарии 64
Код открыт Не указано
Рубрики Работа с интерфейсом Рабочее место
Кому Разработчик
Тип файла Внешняя обработка (ert,epf)
Платформа 1С:Предприятие 8
Конфигурация 1C:Бухгалтерия
Операционная система Не имеет значения
Страна Не имеет значения
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Абонемент ($m)