gifts2017

MiracleV8: Расширенная версия

Опубликовал Аркадий Кучер (Abadonna) в раздел Программирование - Внешние компоненты

Универсальная компонента для 1С 7.7 и 1С 8.x

Работа с xls-файлами на считывание/запись напрямую (не  требует наличия Excel или Open Office), интерактивная иконка окна 1С в трее,

медиа, индикаторы, работа с htm-файлами и веб-ссылками, аниматоры, прогресс-бары, некоторые возможности WinAPI для продвинутых, некоторые полезные функции для администрирования и т.д. (см. файл описания)

MiracleV8_TestBase81.zip - тестовая база 8.1, dll внутри

MiracleV8_TestBase77.zip - тестовая база 7.7, dll внутри

Описание (ReadMe).txt - описание методов

Примечание: обновления dll в четвертом файле с номером актуальной версии

ВНИМАНИЕ: в связи с вопросами кое-кого сообщаю, что внутри тестовых баз лежат самые дремучие версии dll, тестовые базы не обновляются с начала публикации.

Версия 2.1.3.0, добавлен "Рабочий стол". Скачивать по ссылке в публикации


Скачать файлы

Наименование Файл Версия Размер
Ссылка на скачивание 1954
.txt 0,03Kb
07.02.11
1954
.txt 0,03Kb Бесплатно
- 1057
.txt 29,04Kb
23.12.09
1057
.txt 29,04Kb Бесплатно
Тест77 325
.zip 657,27Kb
23.08.10
325
.zip 657,27Kb Бесплатно
Тест81 324
.zip 681,43Kb
23.08.10
324
.zip 681,43Kb Бесплатно

См. также

Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.
Подписаться Добавить вознаграждение
Комментарии
1. dushelov (Душелов) 24.10.09 12:46
2. Аркадий Кучер (Abadonna) 24.10.09 12:51
В самом начале ошибся, два раза положил тестовую базу 8.1 :cry:
Исправил
3. Александр Рытов (Арчибальд) 24.10.09 13:10
7. Оракул Айметдинов (jhfrek) 25.10.09 17:12
Работа с эксельными файлами без установки Эксель - это круто!
Да... Abadonna молодец. Супер гений!
8. GSoft. (GSoft) 26.10.09 12:14
(6) очевидное не найдено
видимо оно еще и невероятное :D
9. Александр Венгер (venger) 26.10.09 12:29
Новая ВК всегда лучше, чем новый перенумератор, как по мне;)
gilaa70; Vladal; w-divin; vasilykushnir; anig99; +5 Ответить 1
10. dushelov (Душелов) 26.10.09 13:57
(9) А я вот, лично, сейчас болею за "рабочие столы".
Вот за чем будущее!
11. Аркадий Кучер (Abadonna) 26.10.09 13:58
(10) А я всё больше за столик в приличном ресторане :D
12. Александр Рытов (Арчибальд) 26.10.09 14:18
13. Александр Зубцов (iov) 26.10.09 14:24
(10) 1С выполняемая как рабочий стол? или рабочий стол в 1С (1С аля explorer)? А когда будет?
14. Александр Венгер (venger) 26.10.09 16:47
(13) Их (рабочих столов этих) уже с десяток на ИС, по-моему;-)
15. Александр Венгер (venger) 26.10.09 16:48
(13) +14, они скоро потеснят перенумераторы;-)
chepkin-sm; +1 Ответить
16. Аркадий Кучер (Abadonna) 26.10.09 16:49
Рация НА ТАНКЕ :D
Дядя Вася пошутил в 10
chepkin-sm; +1 Ответить
17. Андрей Кундеренко (mir-inoy) 26.10.09 18:31
18. Александр Зубцов (iov) 26.10.09 18:42
нет какие могут быть шутки с рабочими столами? :evil:
тут главное цвет и количество иконок и самое главное ОБОИ!!
без них нельзя!!! :D
(Это шутка если кто не понял)
19. Александр Венгер (venger) 26.10.09 21:45
(18) Да простят меня люди;) Но главное - это иконки на столе:
http://www.infostart.ru/upload/iblock/549/workingtable.jpg

21. Александр Зубцов (iov) 26.10.09 23:19
(19) Не трожъ икону :evil: . Человек всю жизнь творил и работал :!:
(20) В обычной обстановке = на столе - скатерть, обои на стенах (иногда на потолке), иконки - в красном углу... - это до того как кончилась закуска, а пить долго ... потом - как в компе обои на столе иконки на обоях.
22. Poppy (poppy) 26.10.09 23:40
(21) Тут главное дурака в магазин не отправлять, точнее в магазин отправлять недурака. Иначе закуска превратится в еду и иконок на обоях не будет.
23. Александр Зубцов (iov) 26.10.09 23:48
(22) И как разок было...
Я сказал - Пьянству бой! И набил лицо охраннику ресторана (за что пардон и вечный стыд мне).
24. Александр Зубцов (iov) 26.10.09 23:54
(23) ну и на оффтопили мы тут :(
25. Латыпов (RinGo) 27.10.09 06:59
:?: MDIhref(...)/Reporthref(...,...) - внедрить веб-окно по ссылке
... А как убрать?
26. Аркадий Кучер (Abadonna) 27.10.09 07:02
(25) На отчете зачем убирать? Закрыл да и всё...
Если шибко надо - приделаю, проблем ноль
27. Латыпов (RinGo) 27.10.09 07:47
:!: Буду очень признателен!..
28. Аркадий Кучер (Abadonna) 27.10.09 08:12
По просьбе RinGo, версия 1.9.6.5, два метода по разрушению объектов
MDIhre и Reporthref:
FreeMDIHref() - без параметров
FreeReportHref() - без параметров
38. Сергей Кузнецов (gvadeg) 29.10.09 22:17
При нажатии esc объект не разрушается
После отмены запустить статусПрогрессБар не удается.
39. Аркадий Кучер (Abadonna) 30.10.09 03:53
(38) не совсем понял в какой момент нажатие esc?
если во время цикла - он и не должен разрушаться...
разрушается только при закрытии формы или при установке его позиции в 100%
40. Аркадий Кучер (Abadonna) 30.10.09 04:09
+(39) Добавил принудительное разрушение при повторном использовании SetProgressBarEx()
версия 1.9.6.6
41. Артур Аюханов (artbear) 30.10.09 12:45
(40) В заголовке не поменял версию на 1.9.6.6
ЗЗЫ наконец-то я вернулся на ИС, несколько дней был автобан :)
42. Аркадий Кучер (Abadonna) 31.10.09 12:42
В описание добавлены ранее не документированные методы.
актуальная версия 1.9.6.7
43. Аркадий Кучер (Abadonna) 01.11.09 05:56
1.9.6.8 Добавлен контроль "рождаемости/смертности" форм
см. Описание
44. igor_gk (igor_gk) 01.11.09 10:08
(7)
Работа с эксельными файлами без установки Эксель - это круто!

В принципе да, неплохо... Только, если уже есть цель эксцель не ставить вообще, то зачем с ними работать? Полно других более цивильных вариантов.
45. Alexandr (maloi_a) 03.11.09 15:06
Когда стартую 1С:Предприятие из конфигуратора повторно, затем закрываю оба окна, из трея одну иконку не убирает пока не нажмёшь кнопку отображения скрытых значков. Без конфигуратора всё нормально.
46. Аркадий Кучер (Abadonna) 03.11.09 15:08
(45) Я никогда эту кнопку не юзал, даже и не проверял...
47. Аркадий Кучер (Abadonna) 04.11.09 07:09
1.9.6.10 Добавлено всплывающее окно
48. Алексей Шаров (Zep) 05.11.09 14:19
Планируется ли сделать запись xls без установленного ms/open-офиса?
49. Pavlo (pavlo) 06.11.09 06:19
прикольный сайт я смотрю, 2 дня с утра захожу и пытаюсь качнуть компоненту, а она мне превышен лимит скачиваний в сутки, это видать новый подход администрации сайта, не платите денег будем врать что от вас уже все сегодня скачано!
50. Pavlo (pavlo) 06.11.09 06:21
вот если бы умела писать в excel без установленного ms/open-офиса с формулами и т.д. было бы круто :)
51. Аркадий Кучер (Abadonna) 06.11.09 07:52
(48) Вообще-то не так сложно, не стал делать только потому, что 1С и сама в xls пишет
52. Pavlo (pavlo) 06.11.09 07:57
(51) пишет и зависает на больших объемах, а также не умеет формулы и т.д. писать.
53. Аркадий Кучер (Abadonna) 06.11.09 07:59
(52) Ну, посмотрю на выходные...
54. dushelov (Душелов) 06.11.09 08:11
(51) В контексте сервера 1С не пишет в xls ;)
55. Аркадий Кучер (Abadonna) 06.11.09 08:13
(54) Василий, не пугай! :D
В 8-ке я еще не добрался до контекста сервера 1С ;)
56. dushelov (Душелов) 06.11.09 08:20
(55) Ты, кстати, посмотри потом, как твоя миракл там будет "вариться" ;)
А то, думаю, придется тебе на ActiveX переводить ее. Событий добавить...
57. Аркадий Кучер (Abadonna) 06.11.09 08:25
(56) Посмотрю, но она, в общем, и так ActiveX, от ТСВК используется практически только Init-Done для того чтобы сработало ЗагрузитьВнешнююКомпоненту
58. Pavlo (pavlo) 06.11.09 08:59
(56) любишь ты все таки АктивХ :D
кто бы кубик еще из ТЗ написал на АктивХ хотябы ;)
59. dushelov (Душелов) 06.11.09 09:39
(58) АХ - это возможность использования визуальных компонент в 1С + работает в контексте сервера + подписка на событие компоненты из 1С.
Без всяких там "обработок внешних событий".

Кубик - это не интересно... Таких уже полно разработок.
60. Евгений Мартыненков (JohnyDeath) 06.11.09 09:50
61. Евгений Мартыненков (JohnyDeath) 06.11.09 09:50
(59) на самом деле очень интересно. Толкового кубика я так и не увидел (
62. Аркадий Кучер (Abadonna) 06.11.09 09:51
(60) Обсуждение AX (ActiveX) переносим в форум ;)
А то мне письма валятся
63. Pavlo (pavlo) 06.11.09 10:39
(59) >Кубик - это не интересно... Таких уже полно разработок.
Если бы были реально те которые удовлетворяли бы потребностям, не говорил бы :)
64. Pavlo (pavlo) 06.11.09 10:40
(60) Ну а он расшифровки умеет делать? и потом какая то версия была его не умела расшифровки и изрядно кривая была :(
65. Pavlo (pavlo) 06.11.09 10:44
эта разработка мне лично интересна если честно пока только выводить разные новости на рабочий стол 1с :) ну для красоты классная вещь прогресс бар в 1с нижней панели.
Но скачать никак не удается, администрация сайта гонит, 2 дня ничего отсюда не качаю, а мне с утра по раньше говорит уже лимит исчерпан :)
66. Аркадий Кучер (Abadonna) 06.11.09 10:48
(65)> выводить разные новости на рабочий стол 1с
И чего все так любят всё в 1С запихать? ;)
> классная вещь прогресс бар в 1с нижней панели
В 8.1 можно сделать стандартными методами, в 7.7, конечно, фиг.
>Но скачать никак не удается
Оставь мыло - закину, если у так надо
67. Pavlo (pavlo) 06.11.09 11:20
(66) Ну конечно про 7.7. говорю, на счет чего так любят, так суть в том что народ в компании больше всего в ней и работает, отсюда самое точное решение там и выдать то или иное, так как по другому всегда кто то да не в курсе остался. Ну и можно логотип замутить конторы прямо на рабочем столе :) но это вкусности по сути уже :)
мыло: pavlo1c собачара mail.ru
68. Алексей Шаров (Zep) 06.11.09 12:32
(54) именно поэтому и задал вопрос :)
69. Аркадий Кучер (Abadonna) 08.11.09 09:36
1.9.6.12 Добавлена прямая запись в xls-файл (наличия Excel и Open Office не требует)
70. Аркадий Кучер (Abadonna) 08.11.09 17:58
+(69) Ха! Сам не ожидал:
время заполнения xls-матрицы 50000х10 (пятьдесят тыс. строк, 10 столбцов) словом "Тест"
Старт: 08.11.2009 21:51:36
Финиш: 08.11.2009 21:51:58
Старт: 08.11.2009 21:52:09
Финиш: 08.11.2009 21:52:32
Старт: 08.11.2009 21:52:59
Финиш: 08.11.2009 21:53:21
______________________________________
тачка:
Процессор:AMD Athlon™ 64 X2 Dual Core Processor 4600+ частота 2420
Оперативная память, MB: 2146
71. Аркадий Кучер (Abadonna) 09.11.09 10:46
1.9.7.1 Добавлена возможность создания новых форматов xls-ячейки, использование числовых формул
72. Pavlo (pavlo) 10.11.09 13:44
не хорошая штука есть, если журнал открыть на фоне этих часов и не разворачивая журнал на всю область, тоесть открыть видя часы нажать на часы или любую рабочую область то Журнал пропадает бесследно.
однако он видно на панели внизу что открыт и там если только правой кнопкой нажать и сказать развернуть то тогда появляется снова до след клика по "часам" :(
73. Pavlo (pavlo) 10.11.09 13:44
на счет формул нужно попробовать, классно, спасибо!
74. Аркадий Кучер (Abadonna) 10.11.09 13:46
(72) Честно говоря, я на рабочей базе и не проверял, да и часики на MDI просто по приколу повесил...
75. Pavlo (pavlo) 10.11.09 13:53
нет ну я и говорю что это косячит даже на твоей тестовой
76. Pavlo (pavlo) 10.11.09 14:00
я просто задумался кабы это не было с любым текстом который там появляется, я же тыкаю не только на часы но и на любое место всей поверхности рабочей 1с
77. Аркадий Кучер (Abadonna) 10.11.09 14:01
(75) То, что другое окошко сворачивается - это нормально, потому что часы - тоже окошко MDI, при клике выходит на передний план, заставляя
других сернуться. На 8.1 они спокойно сворачиваются и разворачиваются кликом в панели (левым). В 7.7, значит, немного по другому...
Кстати, не полько по часам, а и просто клик по MDI заставляет их свернуться
78. Аркадий Кучер (Abadonna) 10.11.09 14:02
(76) Это закономерные издержки
79. Аркадий Кучер (Abadonna) 10.11.09 14:15
Ты выводи им текст через
SetDesktopAlert(Текст: строка,ВремяПоказа: целое,Прозрачность: целое) - создать всплывающее окошко
Тогда уж не отвертятся, даже если главное окно свернутое будет :D
80. Аркадий Кучер (Abadonna) 11.11.09 06:18
2 support по новому дизайну
И где САМЫЙ ОСНОВНОЙ файл с обновленной версией (номер четыре,1.9.7.1) :?: :!:
P.S. В режиме редактирования он, разумеется, есть
Прикрепленные файлы:
81. Доржи Цыденов (support) 11.11.09 06:32
(80) прекрасно вижу четвертый файл
82. Аркадий Кучер (Abadonna) 11.11.09 06:36
83. Pavlo (pavlo) 13.11.09 08:18
а как вылечить это кто нить знает? ;)
84. Pavlo (pavlo) 13.11.09 08:24
а также скудно описаны параметры у методов :(
SetStatusBarGauge(,) например здесь если какие то параметры меняешь цвет походу меняется заполнения
85. Аркадий Кучер (Abadonna) 13.11.09 09:30
(84)>SetStatusBarGauge(,) например здесь если какие то параметры....
Спецом не стал указывать, чтобы цветом не баловались ;)
А вообще-то это стартовый и финишный цвета индикатора (по умолчанию от белого до серого)
>а как вылечить это кто нить знает?
Настраивал по свой монитор с разрешением 1280x1024, левая граница задана жестко, так, чтобы правый край индикатора приходился вплотную
к индикатору [CAP]/
86. Pavlo (pavlo) 13.11.09 09:38
вот именно а у нас в конторе у половина 15" еще стоят :( с твоим разрешением вообще мало кто у нас есть :(
нужно как-то отслеживать это компонентой иначе становится не пригодной фишка :(
87. Pavlo (pavlo) 13.11.09 09:41
если можешь получить начало позиции [CAP] то можно оставить левую на месте, только прогресс короче сделать!
88. Аркадий Кучер (Abadonna) 13.11.09 09:44
(87) За последние 5 лет НИ ОДНОЙ конторы не встречал, где стоят пятнахи, ей Богу :D. Семнахи - и то уже редкость.
Мне проще добавить еще один парамерт куда помещать Лево, чем все виды разрешений учитывать... Щас прям и добавлю ;)
89. Аркадий Кучер (Abadonna) 13.11.09 09:45
>если можешь получить начало позиции [CAP]
Вот позицию CAP я как раз никак не получал, получал просто правую позицию статус панели, а дальше метод научного тыка ;)
90. Аркадий Кучер (Abadonna) 13.11.09 10:07
2 pavlo: скачай, номер версии менять не стал.
SetStatusBarGauge(ЦветСтарт, ЦветФиниш, Лево: целые)
ЦветСтарт, ЦветФиниш, Лево - необязательные, по умролчанию
ЦветСтарт- белый, ЦветФиниш- серый, Лево - 0
Если Лево не ноль - тогда заданное значение, иначе - встроенное
Добавил метод ScreenParam() - возвращает разрешение экрана, вида
Ширина x Высота - строка (разделитель англ "x")
91. Pavlo (pavlo) 13.11.09 10:23
запускаешь обработку выдает скажем 25% и тут ошибка, бар остается - ну да ладно.
исправляешь ошибку и запускаешь обработку снова, поле бара с процентами которое осталось белеет на простую полоску белую и все, больше бар не пашет вовсе, пока 1С не перезапустишь :(
92. Pavlo (pavlo) 13.11.09 10:25
(91) ну так жутко не удобно, из-за одно отчета перебрать все варианты этого значения под экран :( а в новых постоянно это делать (не важно как, что через глобальник, что просто в отчете) но из-за мааленькой рюшечки имхо тяжко!
93. Аркадий Кучер (Abadonna) 13.11.09 10:27
Поставь везде передперед SetStatusBarGauge
Попытка
StatusBarGaugePosition(100) // при установке в 100 обязательно разрушится
Исключение
КонецПопытки
94. Аркадий Кучер (Abadonna) 13.11.09 10:45
(92) Отследить на статус панели, где начинается CAP НЕВОЗМОЖНО, это не отдельные окошки с хэндлом. Невозможно, кстати, и в 8.1 отловить конкретную кнопку, нет ни у одной заголовка а класс окна везде один и тот же V8FormElement
95. Аркадий Кучер (Abadonna) 13.11.09 10:47
+(94) Ну поставь везде, например, L=250 да и всех дел! Чуток обрежет в крайнем случае текст Состояние("бла-бла")
96. Pavlo (pavlo) 13.11.09 10:57
ну обрезанные кривые прогрессы это уже не айс, в формекс как то добавляют часы и т.д. со сдвигом, не ужто сами все перерисовывают и выводят :)
97. Аркадий Кучер (Abadonna) 13.11.09 10:59
(96) Формекс работает с библиотеками самой 1С, это совсем другой принцип ВК и ее уровень
98. Аркадий Кучер (Abadonna) 13.11.09 11:01
+(97) Обрезанного прогресса как раз и не будет по (95), он может порезать текст состояния (а на фиг он ваще нужен, если есть индикация?)
99. Pavlo (pavlo) 13.11.09 11:08
(98) ну тогда и размер бы самой панельки сделать, чтобы можно было выставить ;)
100. Pavlo (pavlo) 13.11.09 11:11
(93) не понял, что даст попытка, он то нормально сработал, а потом упал с ошибкой после уже...
Ааа ты про разрушение в начале процедуры, перед новым созданием, понял ок... можно и так. сенкс
101. Аркадий Кучер (Abadonna) 13.11.09 11:16
(99) Уговорил, черт красноречивый :D
Перезакачивай, четвертый параметр (по умолчанию=0) - ширина прогресс-бара. Если ноль, ширина=150, иначе - указанная
102. Pavlo (pavlo) 13.11.09 11:18
прикольно теперь, раз 5 нажал сформировать отчет все показывается нормально, но потом 1с раз и улетела причем без отладки :( просто слетела нафиг и так постоянно!
103. Pavlo (pavlo) 13.11.09 11:25
заметил ровно 5 раз можно сформировтаь отчет, причем закрыл или не закрыл не важно. как только в 6 раз жмешь сформировть 1с пока :)
104. Аркадий Кучер (Abadonna) 13.11.09 11:30
(103) Спасибо за тестирование. Сделал ошибку из-за невнимательности, разрушал не основного владельца прогресс-бара.
Исправил, раз 10 прерывание сделал - все ОК.
P.S. И не надо теперь перед началом установки разрушать (ставить в 100).
Он теперь сам обязательно разрушит старый по SetStatusBarGauge
105. Pavlo (pavlo) 13.11.09 11:37
да чего не по тестить, что поможет в работе :)
правда чую скоро лимит на скачивание отсюда у меня кончится :)
106. Аркадий Кучер (Abadonna) 13.11.09 11:38
(105) Ну тогда придется мне тебе кидать по мылу :D
107. Pavlo (pavlo) 13.11.09 11:47
а аськи у тебя нет? а то мы уже сокро 10 страниц поста здесь сделаем :)
108. Аркадий Кучер (Abadonna) 13.11.09 11:49
109. Pavlo (pavlo) 17.11.09 13:52
Ексель=СоздатьОбъект("AddIn.MiracleClass");
Ексель.NewXLS(ИмяФайла);
//Шапка
индекс=Ексель.XLSAddFormat("Arial Cyr",10,1,0);
Ексель.CellSetString(1,1,"Товар",индекс);
Ексель.CellSetString(1,2,"Цена,руб",индекс);
Ексель.CellSetString(1,3,"Есть",индекс);
Ексель.CellSetString(1,4,"В пути",индекс);
Ексель.CellSetString(1,5,"Заказ",индекс);
Ексель.XLSWrite(); // зафиксировали (записали файл)

В итоге, вниз добавляет таблицу с примером, которую я не прошу добавлять :)
p.s. Опечатка в методе XLSDelFomat(Индекс) вместо XLSDelFo"R"mat(Индекс) ;)
110. Аркадий Кучер (Abadonna) 18.11.09 14:05
Ни фига не понял... :cry:
Вот отреботка твоего кода, никаких "таблиц с примером"...
Прикрепленные файлы:
111. Pavlo (pavlo) 19.11.09 07:02
хотел все в асе объяснить, но тебя там нет чего то :)
112. Аркадий Кучер (Abadonna) 22.11.09 16:44
1.9.7.3 Подправлены баги при записи XLS-файлов. Новые бантики