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

03.11.11

Разработка - Разработка внешних компонент

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

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

Наименование Файл Версия Размер
Ссылка на скачивание
.txt 0,03Kb
2276
.txt 0,03Kb 2276 Скачать бесплатно
-
.txt 29,04Kb
1294
.txt 29,04Kb 1294 Скачать бесплатно
Тест77
.zip 657,27Kb
600
.zip 657,27Kb 600 Скачать бесплатно
Тест81
.zip 681,43Kb
536
.zip 681,43Kb 536 Скачать бесплатно

Работа с 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, добавлен "Рабочий стол". Скачивать по ссылке в публикации


См. также

SALE! 10%

Загрузка номенклатуры из Excel в УТ11, КА 2, ERP 2, Розница 2. Дополнительные реквизиты и сведения, характеристики, картинки, цены, остатки

Загрузка и выгрузка в Excel Розничная торговля Логистика, склад и ТМЦ Ценообразование, анализ цен Прайсы Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Управленческий учет Платные (руб)

Загрузка из файлов xls, xlsx, ods, csv, mxl в УТ11, КА 2, ERP 2, Розница 2. Задействованы все возможности конфигурации - заполнение реквизитов номенклатуры, дополнительных реквизитов и сведений, характеристики, доп.реквизиты и сведения характеристик. Дополнительные обработки для расширения возможностей.

10560 9504 руб.

29.10.2014    210162    620    524    

439

Загрузка номенклатуры c картинками (несколько потоков одновременно) и сопутствующими данными в базу и любые документы из yml, xls, xlsx, xlsm, ods, ots, csv для УТ 10.3, УТ 11 (все), БП 3, КА 2, ERP 2, УНФ 1.6/3.0, Розница 2

Загрузка и выгрузка в Excel Логистика, склад и ТМЦ Ценообразование, анализ цен Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Платные (руб)

Эволюция не стоит на месте - новая удобная версия функциональной обработки для Вашего бизнеса! Что же Вы получаете? Удобный и интуитивно понятный интерфейс с 3-мя этапами работы. 2 режима - автоматический и ручной. Чтение XLSX, XLSM, CSV, XML/YML форматов без офиса, на любом сервере! Визуальное связывание колонок файла и реквизитов простым перетаскиванием колонок. Создание или обновление номенклатуры с иерархией, характеристик, доп. реквизитов, упаковок, загрузка практически неограниченного количества картинок на одну номенклатуру (с возможностью загрузки в несколько потоков одновременно), с хранением в томах или в базе. Загрузка номенклатуры поставщиков или поиск по их данным номенклатуры. Загрузка доп. реквизитов в характеристики. Загрузка штрихкодов с генерацией новых. Создание элементов справочников и ПВХ "на лету" для выбранных реквизитов. (Обновление от 11.12.2023, версия 9.5 - 9.9)

13200 руб.

20.11.2015    150714    367    375    

501

Маркетплейсный загрузчик для 12-ти маркетплейсов в "БП 3", "УТ 11", "КА 2", ERP, УНФ

Загрузка и выгрузка в Excel Маркетплейсы Платформа 1С v8.3 Бухгалтерский учет 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Бухгалтерский учет Управленческий учет Платные (руб)

Реальный помощник, с помощью которого Вы сделаете необходимые документы для Wildberries, OZON, ЯндексМаркет, Мегамаркет, Aliexpress, "Детский мир", Казань-Экспресс, "Леруа Мерлен", ЭНФАНТА (Акушерство), ЛаМода, Летуаль, "Твой дом" в документы "Отчет комиссионера (агента) о продажах" и другие, может работать в "Бухгалтерия 3", "Бухгалтерия 3 КОРП", УТ 11, УНФ, КА 2, ERP. Возможность подключить любые маркетплейсы. Анализ продаж ОЗОН. 30 дней БЕСПЛАТНОГО пользования!

1800 руб.

12.08.2021    31893    226    63    

117

SALE! 20%

Загрузка документов и номенклатуры из Excel в 1С "одним нажатием": УПД, ТОРГ-12, отчеты маркетплейсов, заказы, счета, прайсы

Загрузка и выгрузка в Excel Оптовая торговля Платформа 1С v8.3 Управляемые формы Платформа 1C v8.2 Конфигурации 1cv8 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная обработка для загрузки документов из Excel в 1С. Не требует указания параметров (номера колонок, номер первой строки таблицы и т.д.) и предварительной настройки. Просто выбираете файл Excel, документ 1С и нажимаете кнопку "Загрузить". Обработка сама находит таблицу в файле Excel, необходимые для загрузки данные в ней (номенклатура, количество, НДС, цена, сумма) и загружает ее в 1С. Вместе с номенклатурой может найти контрагента, номер и дату документа, штрих-коды, серии ГТД, страну и т.д. Распознает документы ЛЮБОЙ ФОРМЫ (УПД, ТОРГ-12, заказ, отчет комиссионера и т.д.). Не требует MS Office. Для поиска таблиц используются методы эвристического поиска. Загружает только то, что нужно, т.е. пропускает повторы шапки таблицы, заголовки, промежуточные итоги, подписи и т.д. Содержит модуль работы с электронной почтой и api-загрузчик отчетов о продажах маркетплейсов.

5000 4000 руб.

09.11.2016    214922    925    886    

939

Загрузка данных отчета о реализации товаров из Excel файла СберМегаМаркет

Загрузка и выгрузка в Excel Маркетплейсы Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Загрузка данных отчета о реализации товаров из сервиса СберМегаМаркет для конфигурации: Бухгалтерия предприятия, редакция 3.0; Управление торговлей, редакция 11 и Управление нашей фирмой, редакция 3.0 в документ "Отчет комиссионера (агента) о продажах".

4800 руб.

07.06.2022    15076    79    0    

60

SALE! 30%

Распознавание и загрузка сканов в 1С "одним нажатием": УПД, ТОРГ-12, накладные, счета, номенклатура, заказы и т.д.

Загрузка и выгрузка в Excel Документооборот и делопроизводство (СЭД) Учет документов Распознавание документов и образов Управляемые формы 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление холдингом 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная программа для распознавания ЛЮБЫХ СКАНОВ ИЛИ ФОТО ТОВАРНЫХ ДОКУМЕНТОВ в 1С. Не требует указания параметров и предварительной настройки. Просто выбираете файл (PDF, JPG, DOC, XLS, HTML и т.д.) выбираете документ 1С и нажимаете кнопку "Распознать и загрузить".

6000 5520 руб.

04.06.2019    101372    296    173    

312
Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
94. Abadonna 3958 13.11.09 10:45 Сейчас в теме
(92) Отследить на статус панели, где начинается CAP НЕВОЗМОЖНО, это не отдельные окошки с хэндлом. Невозможно, кстати, и в 8.1 отловить конкретную кнопку, нет ни у одной заголовка а класс окна везде один и тот же V8FormElement
95. Abadonna 3958 13.11.09 10:47 Сейчас в теме
+(94) Ну поставь везде, например, L=250 да и всех дел! Чуток обрежет в крайнем случае текст Состояние("бла-бла")
93. Abadonna 3958 13.11.09 10:27 Сейчас в теме
Поставь везде передперед SetStatusBarGauge
Попытка
StatusBarGaugePosition(100) // при установке в 100 обязательно разрушится
Исключение
КонецПопытки
100. pavlo 13.11.09 11:11 Сейчас в теме
(93) не понял, что даст попытка, он то нормально сработал, а потом упал с ошибкой после уже...
Ааа ты про разрушение в начале процедуры, перед новым созданием, понял ок... можно и так. сенкс
96. pavlo 13.11.09 10:57 Сейчас в теме
ну обрезанные кривые прогрессы это уже не айс, в формекс как то добавляют часы и т.д. со сдвигом, не ужто сами все перерисовывают и выводят :)
97. Abadonna 3958 13.11.09 10:59 Сейчас в теме
(96) Формекс работает с библиотеками самой 1С, это совсем другой принцип ВК и ее уровень
98. Abadonna 3958 13.11.09 11:01 Сейчас в теме
+(97) Обрезанного прогресса как раз и не будет по (95), он может порезать текст состояния (а на фиг он ваще нужен, если есть индикация?)
99. pavlo 13.11.09 11:08 Сейчас в теме
(98) ну тогда и размер бы самой панельки сделать, чтобы можно было выставить ;)
101. Abadonna 3958 13.11.09 11:16 Сейчас в теме
(99) Уговорил, черт красноречивый :D
Перезакачивай, четвертый параметр (по умолчанию=0) - ширина прогресс-бара. Если ноль, ширина=150, иначе - указанная
102. pavlo 13.11.09 11:18 Сейчас в теме
прикольно теперь, раз 5 нажал сформировать отчет все показывается нормально, но потом 1с раз и улетела причем без отладки :( просто слетела нафиг и так постоянно!
103. pavlo 13.11.09 11:25 Сейчас в теме
заметил ровно 5 раз можно сформировтаь отчет, причем закрыл или не закрыл не важно. как только в 6 раз жмешь сформировть 1с пока :)
104. Abadonna 3958 13.11.09 11:30 Сейчас в теме
(103) Спасибо за тестирование. Сделал ошибку из-за невнимательности, разрушал не основного владельца прогресс-бара.
Исправил, раз 10 прерывание сделал - все ОК.
P.S. И не надо теперь перед началом установки разрушать (ставить в 100).
Он теперь сам обязательно разрушит старый по SetStatusBarGauge
105. pavlo 13.11.09 11:37 Сейчас в теме
да чего не по тестить, что поможет в работе :)
правда чую скоро лимит на скачивание отсюда у меня кончится :)
106. Abadonna 3958 13.11.09 11:38 Сейчас в теме
(105) Ну тогда придется мне тебе кидать по мылу :D
107. pavlo 13.11.09 11:47 Сейчас в теме
а аськи у тебя нет? а то мы уже сокро 10 страниц поста здесь сделаем :)
108. Abadonna 3958 13.11.09 11:49 Сейчас в теме
109. 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 3958 18.11.09 14:05 Сейчас в теме
Ни фига не понял... :cry:
Вот отреботка твоего кода, никаких "таблиц с примером"...
Прикрепленные файлы:
111. pavlo 19.11.09 07:02 Сейчас в теме
хотел все в асе объяснить, но тебя там нет чего то :)
112. Abadonna 3958 22.11.09 16:44 Сейчас в теме
1.9.7.3 Подправлены баги при записи XLS-файлов. Новые бантики
113. Abadonna 3958 25.11.09 08:27 Сейчас в теме
114. Lapitskiy 1057 01.12.09 18:39 Сейчас в теме
115. Abadonna 3958 02.12.09 09:02 Сейчас в теме
1.9.7.5
По просьбе http://infostart.ru/public/59436/forum/topic/28936/message/330549/#message330549 (4,5)
добавлены методы:
StayOnTop() - сделать главное окно 1С всегда поверх всех окон
Примечание:
в связке с MainNoMinimize() юзвери никак от окна избавиться не смогут, только закрыть ;)
PlayBeep(Частота, Длительность: целые) - пискнуть системным динамиком
Частота, Длительность - необязательные, по умолчанию 440 Гц (Ля) и 1000 - одна секунда.
Примечание: проверить не смог, динамика нема ;)

116. Abadonna 3958 02.12.09 09:45 Сейчас в теме
+(115) Кушнир по моей просьбе проверил PlayBeep - пищит ;)
118. Abadonna 3958 25.12.09 17:16 Сейчас в теме
начал дорабатывать под 8.2.
Прикрепленные файлы:
119. Душелов 4013 25.12.09 17:20 Сейчас в теме
(118) Давай, давай... :D

Кстати, не смотрел spy++ или оным текущее положение окон 8.2 (тонкий клиент, веб пока опускаем) ?

С вебом, думаю, будет проще.
124. Abadonna 3958 25.12.09 19:31 Сейчас в теме
(119)
Кстати, не смотрел spy++ или оным текущее положение окон 8.2 (тонкий клиент, веб пока опускаем) ?

Нашел подложечку, куда можно компоненты всадить ;)
Мудро тупым методом:
function EnumChildMain(wnd: hwnd; LParam: LParam): bool; stdcall;
var b: array[0..100] of char;
var hexwnd:string;
begin
hexwnd:=IntToHex(wnd,8);
GetClassName(wnd,@b,100);
Form1.Memo1.Lines.Add(hexwnd+' '+StrPas(b));
ShowMessage(hexwnd);
PB:=TProgressBar.CreateParented(wnd);
PB.UpdateControlState;
PB.Left:=10;
PB.Top:=40;
PB.Width:=200;
PB.Height:=20;
PB.Visible:=true;
PB.Enabled:=true;
PB.Position:=60;
end;
Показать

Тупо жмем кнопочку на ShowMessage(hexwnd) и смотрим, когда же он, родной видимо появится на форме 8.2 ;)
125. Abadonna 3958 26.12.09 05:24 Сейчас в теме
120. Душелов 4013 25.12.09 17:20 Сейчас в теме
Да и не правильно ты все делаешь! Надо каждую фичу отдельной разработкой выкладывать! А ты все в одно лепишь! :evil:
121. vip 25.12.09 18:10 Сейчас в теме
122. Abadonna 3958 25.12.09 18:19 Сейчас в теме
(120) я просто положу потом под названием Суперуниверс :D
отдельно
123. Душелов 4013 25.12.09 19:04 Сейчас в теме
(122) И получишь свои заслуженные 12,5 плюсов :)))
134. artbear 1448 20.02.10 21:41 Сейчас в теме
(126) А чего блогами не пользуешься? самое-то для показа обновлений
135. Abadonna 3958 20.02.10 21:43 Сейчас в теме
(134) Вообще-то они у меня как раз в форуме и лежат, даже с примером кода.
http://infostart.ru/public/59436/forum/topic/28936/
136. artbear 1448 20.02.10 21:48 Сейчас в теме
(135) Блог сразу показывается, чуть ниже самой публикации, не нужно никуда дополнительно заходить.
137. Abadonna 3958 20.02.10 21:51 Сейчас в теме
(136) Попробую. Только мне она уже наскучила, вряд ли я еще чего там приделаю, просто неинтересно уже :(
138. пользователь 20.02.10 22:24
Сообщение было скрыто модератором.
...
127. V_Nikitin 04.02.10 20:35 Сейчас в теме
Неверно загрузилось поле типа дата из Excel.
128. Abadonna 3958 17.02.10 03:35 Сейчас в теме
(127) Вообще-то она даты специально не определяет, а просто возвращает форматированной строкой.
См. на рис, что у меня получилось
Прикрепленные файлы:
140. Борода 03.03.10 23:20 Сейчас в теме
(128) а нет ли возможности подменить формат дат на форме в 77 на американский (мм.дд.гг) ?
141. Abadonna 3958 04.03.10 10:04 Сейчас в теме
(140) Не понял вопроса... Формат дат на форме - что имеется в виду?
При выборе даты в поле ввода?
142. Борода 04.03.10 11:52 Сейчас в теме
(141) да, имеется ввиду реквизит диалога типа дата. При установке региональных параметров "Английский (США)" формат даты в диалоге остаётся "дд.мм.гг", а хотелось бы чтобы он понимал системные настройки и переходил в режим "мм.дд.гг". Ну или хотябы мог быть переведён в такой режим программно.
143. Abadonna 3958 04.03.10 11:56 Сейчас в теме
(142) Посмотрю, но ничего не обещаю ;)
221. Abadonna 3958 21.08.10 12:32 Сейчас в теме
Версия 1.9.9.15 (после 12:45 Москвы 21.09.10), новый метод:
SetButtonCaptionEx(ЗаголовокКнопки1С,ЦветФонОт,ЦветФонДо,ЦветРамки,ЦветШрифта)
Для более явного выделения кнопки (рамка вокруг)
Дополнительный параметр ЦветРамки - целое
//-- бардовая рамка (128)
L.SetButtonCaptionEx("Закрыть",8684799,255,128,65021);
Не применять для форм, открываемых модально!!!
//-- синяя рамка  (15966336)    
L.SetButtonCaptionEx("С&формировать",16245453,7950848,15966336,0);

Прикрепленные файлы:
129. Abadonna 3958 20.02.10 21:21 Сейчас в теме
Примутил "Арчибальдовидные" окошки ;) На фиг, сам не знаю. Вдруг кому-нибудь понравится.
Примечание: это не картинка на форму наложена. Варианты градиента могут быть любые.
Прикрепленные файлы:
130. Abadonna 3958 20.02.10 21:23 Сейчас в теме
+(129) Если кто-нибудь скажет, что оно надо - выложу свежую версию :D
132. larisab 160 20.02.10 21:37 Сейчас в теме
(130) Выкладывай "арчибальдовидную" версию, увековечь!
131. artbear 1448 20.02.10 21:36 Сейчас в теме
(0) Сабж точно умеет получать содержимое окна сообщений 8-ки ?
133. Abadonna 3958 20.02.10 21:41 Сейчас в теме
(131) Может, но методом советских отолярингологов.
Программно фокус на окно, программно выделить всё, программно копировать.
И есть метод получения текста из буфера.
139. Abadonna 3958 26.02.10 13:19 Сейчас в теме
144. Борода 10.03.10 19:41 Сейчас в теме
Set1CMaxPriority() - лучше сделать Set1CPriority(N)
CaptureWindow() - сворачивать в панель окон 1С
145. Борода 12.03.10 12:44 Сейчас в теме
Иногда странно как-то прогресс SetStatusBarGauge цепляется внизу (см. картинку) + не учитывает наличие доп полей типа время и раскладка клавиатуры.
Добавьте "для продвинутых" GetPID1C() пл3 :)
А скоро ли появятся обещанные кнопочки на родных тулбарах ? :oops:
Прикрепленные файлы:
146. Abadonna 3958 13.03.10 10:12 Сейчас в теме
(145)
1.SetStatusBarGauge(ЦветСтарт,ЦветФиниш,Лево,Ширина:целые) – установить индикатор прогресса на статус-панели 1С (там, где выводится Состояние(«бла-бла»), в правой части панели). Значение процента прогресса выводится посередине индикатора.
ЦветСтарт,ЦветФиниш - необязательные, по умолчанию от белого до темно-серого, цвет полоски индикатора
Лево - необязательный, если ноль - встроенное, иначе указанное - левая граница бара на статус панели
Ширина - необязательный, если ноль - встроенное (150), иначе указанное - ширина бара на статус панели.
Используй параметр Лево. Автоматом наличие панелей не определяется
2. Кнопки уже есть (давно)
http://infostart.ru/public/59436/forum/topic/28936/?PAGEN_1=5
пост 50

147. Abadonna 3958 13.03.10 10:34 Сейчас в теме
(145)
Добавьте "для продвинутых" GetPID1C() пл3

1.9.9.2
GetThreadPID(Что:число): целое.
Что - необязательный, по умолчанию 0.
Если 0 - возвращает ИД процесса (PID), иначе ИД нити (ThreadID)
Пример:
Сообщить("PID = "+L.GetThreadPID());
Сообщить("ThreadID = "+L.GetThreadPID(1));
148. Abadonna 3958 13.03.10 15:14 Сейчас в теме
1.9.9.3 Для удобства работы с главным окном добавил метод
GetMainRect(Что:строка):число
Что - необязательный, по умолчанию "L"
Что="L" - абсолютная Х-координата верхнего-левого угла окна 1С
Что="T" - абсолютная Y-координата верхнего-левого угла окна 1С
Что="W" - ширина в пикселях окна 1С
Что="H" - высота в пикселях окна 1С

149. Abadonna 3958 22.03.10 06:58 Сейчас в теме
150. Spartan 365 29.03.10 14:00 Сейчас в теме
Классная штука, спасибо! Скачал посмотреть, а тут вдруг потребовалось удалять файлы без возможности восстановления - так что сразу и внедрил! :D
153. Abadonna 3958 24.04.10 19:31 Сейчас в теме
Версия 1.9.9.6
Метод
RunAndWait(КоманднаяСтрока:строка, ПараметрыЗапуска:строка, ОконныйРежим:целое) - запустить внешнее приложение и подождать его выполнения.
КоманднаяСтрока - строка для запуска приложения
ПараметрыЗапуска - строка стартовых параметров, необязательный, по умолчанию без параметров
ОконныйРежим: целое 0-10 (стандарные режимы окна Windows), необязательный, по умолчанию 1 - показать окно в обычном режиме (SW_SHOWNORMAL)
Кроме того, основные:
0 - не показывать окно (SW_HIDE)
2- минимизировать окно (SW_SHOWMINIMIZED)
3- максимизировать окно (SW_SHOWMAXIMIZED)
Для чего? Например, надо запустить программу, которая что-то там сделает (посчитает) и поместит результат в определенный файл. После RunAndWait можно будет считать этот файл.
Пример:
L.RunAndWait("C:\Program Files\Total Commander\Plugins\exe\AkelPad.exe");  
// следующий оператор отработает только после закрытия блокнота (AkelPad)
Сообщить("Закрыл, гаденыш? Молодец!");  

Добавлены методы для работы с картинками XLS-файлов:
XLSPictCount() - возвращает количество картинок в xls-файле
Примечание: считаются картинки во всех листах открытого файла
XLSSavePicture(ПорядковыйНомерКартинки:число,ИмяФайлаДляЗаписи) -
считать картинку с указанным номером и сохранить её в указанный файл. Возвращает строку размеров записанной картинки вида Ширина х Высота
Примечания:
Отсчет картинок от 1 до Счетчик
Номер картинки в файле - это не как они видятся в файле, а в порядке их добавления туда
Пример:
L.ReadXLS("c:\MiracleV8_TestBase77\Картинки.xls");// открыли файл    
Для А=1 По L.XLSPictCount() Цикл // цикл по всем картинкам файла
   ИмяФайла=Строка(А)+".bmp";	
   Сообщить(L.XLSSavePicture(А,КаталогИБ()+ИмяФайла));
КонецЦикла;

P.S. Навеяно http://infostart.ru/public/69412/ , но извратов поменьше ;)
154. maxtomsk 157 25.04.10 17:26 Сейчас в теме
Подскажите пожалуйста, такая ошибка:
при чтении из экселя ячейки где стоит не значение, а формула, результатом которой получается значение не целое, то он вываливается в исключение при чтении:
L.ReadCell(Лист,Стр,Столб);
AddIn.MiracleClass: '97.43' is not a valid integer value
причем он правильно считывает значение, но почему-то ждет что оно должно быть целое....
как с этим бороться?
155. Abadonna 3958 25.04.10 17:35 Сейчас в теме
156. Abadonna 3958 25.04.10 18:43 Сейчас в теме
Версия 1.9.9.7
Подправлен глючок (154) для ячеек с формулами xls-файлов
157. Abadonna 3958 25.04.10 20:10 Сейчас в теме
Поленился сразу дописать.
Новый метод:
GetTraffic() - возвращает строку с разделителями вида:
00-22-15-D3-D3-BC;NVIDIA nForce Networking Controller - Kaspersky Anti-Virus NDIS Miniport;13058897;5995229
MAC-адрес; Имя сетевого интерфейса; Всего принято байт; Всего отправлено байт
(за время сеанса Windows)
158. andy_zhav 197 05.05.10 16:08 Сейчас в теме
А есть что-то вроде лицензионного соглашения? Можно использовать в комерческих целях?
159. Abadonna 3958 05.05.10 16:10 Сейчас в теме
(158)В каких хочешь - в таких и используй.
Поздновато уже ей цену и соглашения объявлять
160. Арчибальд 2706 05.05.10 16:11 Сейчас в теме
(158) И так используют все кому не лень :D
Ежели человек приличный - то с указанием копирайта.
161. Abadonna 3958 05.05.10 16:17 Сейчас в теме
(160)
то с указанием копирайта.

И это необязательно ;) Копирайт в библиотеку зашит
P.S а вот ресхакер применять не желательно ;)
162. Арчибальд 2706 05.05.10 16:22 Сейчас в теме
(161) Ага. И, в случае чего, ты его найти сможешь...
Я ж про то, чтобы не искать ;)
ресхакер
Это что? :o
163. Abadonna 3958 06.05.10 00:07 Сейчас в теме
(162)Ну, блин, Арчи... от тебя не ожидал :(
http://www.izone.ru/sys/utilities/resource-hacker-download.htm
P.S."Дома" можешь поставить А. Рытов - не возражаю :D
164. andy_zhav 197 06.05.10 08:10 Сейчас в теме
А если прийдут злые, жутко умные дядьки из обэпа, которые разбираются с лицензировании и спросят: а что это у вас за такое тут стоит? У 1Ски такого нету. Где лицензионное соглашение? Есть клиенты, которые придираются к каждой мелочи и к каждой дллке. Иностранные компании, в частности.

P.S. Например, во всех линуксах есть лицензионное соглашение, несмотря на открытый исходный код - требование закона.
165. vip 06.05.10 08:58 Сейчас в теме
(164) Ответишь дядькам, что технология создания внешних компонент для 1С является абсолютно штатной и рекомендована фирмой 1С для расширения функционала программы.
166. Арчибальд 2706 06.05.10 09:04 Сейчас в теме
(164) +(165) И копирайт Абадонны на свой замени, как в 163 посте сказано :D
167. andy_zhav 197 06.05.10 10:21 Сейчас в теме
(166) Вот точно тада будет нарушение авторских прав.
168. Abadonna 3958 06.05.10 10:23 Сейчас в теме
(167)Вообще-то в хелпе написано
© А. Кучер (aka Abadonna), 2009, Красноярск (http://infostart.ru/profile/1329/)
Программа распространяется бесплатно, на условиях «как есть», за возможный вред, нанесенный программой, автор ответственности не несет

Чего еще дядькам надо? Если они захотят, то и до ФИО докопаются - где лицензия? :D
P.S Для иностранных будет "free... as is..."
169. пользователь 02.06.10 02:40
Сообщение было скрыто модератором.
...
170. Altair777 644 25.06.10 16:53 Сейчас в теме
Огромное спасибо за простые методы работы с Excel :!:
171. Abadonna 3958 26.06.10 06:22 Сейчас в теме
(170) Вот так всегда! Делаешь для бантиков, а тебя за какой-то паршивый ёксель благодарят :D :D :D
172. anig99 2843 26.06.10 13:39 Сейчас в теме
(171) Ага...бантики меня заинтересовали (: Мне как раз часики нужны (: и информ окно пригодится (:
173. Abadonna 3958 26.06.10 13:50 Сейчас в теме
(172) Смех-смехом, а один клиент просто плакал, что трудно разобраться, где какая база бух 7.7 (до фига их у них и заголовки везде стандартные). После установки в каждое окно своей иконки, они просто счастливы стали.
Правда, таких мерзких напихали :cry: :D
174. anig99 2843 26.06.10 17:55 Сейчас в теме
(173) у меня ещё со старой версии миракла базы имеют разные значки и логотип...
Тоже задумался о различии баз...как раз думал о добавлении логотипа вместо серого фона, а потом случайно наткнулся на овчарочку
175. anig99 2843 28.06.10 09:37 Сейчас в теме
(173) Надо поменять цвет линий в табличных частях - очень бледный - пользователи жалаются. Реально с miracle это сделать?
176. Altair777 644 29.06.10 10:40 Сейчас в теме
(171) А вот с "бантиками" я еще не разбирался. Очень хотелось бы увидеть полноценную тестовую базу со всеми бантиками ;)
177. KeyMaster 89 09.07.10 15:31 Сейчас в теме
Да, со всеми "бантиками" было бы очень здорово!
179. Abadonna 3958 09.07.10 22:40 Сейчас в теме
(177)
А вот с "бантиками" я еще не разбирался. Очень хотелось бы увидеть полноценную тестовую базу со всеми бантиками

А КАКУЮ именно базу? А то я тут от 7.7 до 8.2 бедный тружусь :(
7.7 скорее?
(178) Фиг его знает, может я там уже типы поменял, надо вспоминать.
Как только совсем делать нечего станет - напишу полноценный хелп. Жаль только, что из форума из 6 страниц пропало 5, там и примеры кода были...:(
180. KeyMaster 89 12.07.10 08:52 Сейчас в теме
239. Altair777 644 26.08.10 11:12 Сейчас в теме
(179)
А КАКУЮ именно базу? А то я тут от 7.7 до 8.2 бедный тружусь
7.7 скорее?

Да, 7.7. В 8-ке своих бантиков хватает :D
178. KeyMaster 89 09.07.10 16:00 Сейчас в теме
Да, заметил еще, что в отдельном файле с описанием нет функции SetMDIPicture, а в "readme.txt" из тестовой базы - есть. Хотелось бы полное описание всех возможностей.
И еще:
L.SetGifAnimator(10, 10, Путь+"Bird-06.gif");
выдает ошибку: "ошибка при вызове метода... Типы не совпадают (0)".
Подскажите в чем дело, пожалуйста.
181. Abadonna 3958 12.07.10 10:39 Сейчас в теме
(178) Посмотрел наконец-то, почему
L.SetGifAnimator(10, 10, Путь+"Bird-06.gif");
выдает ошибку: "ошибка при вызове метода... Типы не совпадают (0)".

Я там в описаловке наврал: сначала файл, потом точки надо.
Т.е. надо L.SetGifAnimator(Путь+"Bird-06.gif",10,10);
а вообще их можно совсем не задавать [L.SetGifAnimator(Путь+"Bird-06.gif");], тогда к краешку прижмется сама (по умолчанию там 5 и 32 - как раз под формочку 8.1 заточено)
Короче, фиг его уж знает почему, для GifAnimator я сделал всё наоборот, чем на AviAnimator :cry:
182. KeyMaster 89 12.07.10 15:22 Сейчас в теме
183. alsoftik 6 13.07.10 07:37 Сейчас в теме
Спасибо, все прекрасно работает! Вот бы еще расширить функции по работе со звуком (видео), например пауза, продолжение, чтение позиции, установка позиции, чтобы можно было на основании данной компоненты сделать полноценный медиа проигрыватель. А так супер!
184. Abadonna 3958 13.07.10 15:00 Сейчас в теме
(183) Спасибо за спасибо ;)
чтобы можно было на основании данной компоненты сделать полноценный медиа проигрыватель

Честно говоря, звук и видео я больше ради баловства воткнул, ибо как раз являюсь противником пихания в 1С всего-всего... Один фиг внешний плейер всегда будет лучше.
Но, вообще-то, проблем расширить функционал работы со звуком и видео особых нет
185. alsoftik 6 14.07.10 05:45 Сейчас в теме
(184)
По поводу внешнего плеера я согласен, что он будет лучше, есть конечно и визуальные activex компоненты (wmp), но мне не особо нравиться как они работают в терминальном режиме, да и видео не всегда нужно, нужна простая не визуальная компонента, которая сможет проигрывать, останавливать, продолжать с указанного места проигрывать аудио файл, а незатейливый интерфейс можно и самой 1С состряпать.
189. maxpiter 147 09.08.10 14:47 Сейчас в теме
(184) в качестве плюшки.
Сильно сложно наваять подобное? пусть грубое, но хоть чуток похожее :)
Сам пробовал, но все время никак да и разбираться со звуком и видео надо.

http://www.youtube.com/watch?v=qC6N03rOuSk
190. Abadonna 3958 09.08.10 14:58 Сейчас в теме
(189) Ну не знаю... Не озадачивался никогда. А на фига в 1С? Для приколу просто?

191. maxpiter 147 09.08.10 15:00 Сейчас в теме
(190) конечно для приколу :)
ну и на винде до сих пор такой проги не видел.
Есть либо навароченые слишком либо ну совсем не такое.
А так, 1С vs IPHone ;)
192. Abadonna 3958 09.08.10 15:02 Сейчас в теме
(191) :D во всяком случае, скоро не обещаю
186. Yurus 27 23.07.10 10:14 Сейчас в теме
Добрый день, есть проблема с регистрацией miracle.dll 1.9.9.7 в Win2000, хотя права админовские (на XP проблем нет). Расположение dll (на сервере или локально) роли не играет. При попытке воспользоваться Vkloader выдает: "файловая ошибка". Возможно ли проверить и исправить или что-нибудь порекомендовать?
187. Борода 23.07.10 17:12 Сейчас в теме
замечания по создаваемым кнопкам в тулбаре (всё для 77):
1. При наведении мышкой на кнопку подсказка всплывает не регулярно, со специфическим голубым фоном и фиксированной ширины (не весь текст показывает либо много пустого места).
2. При наведении мышкой на кнопку в строку состояния пишется бред из подсознания 1С типа "Справочник", "SrtReplace,СтрЗаменить", "Коллекции не поддерживаются" и т.д. При переоткрытии формы текст меняется.
3. Иногда при попытке создать кнопку начинает сыпать ошибку "Bits index out of range" и кнопок при этом не видно. Помогает перезаход в програму.
4. Нельзя ли сделать так, чтобы при наведении на кнопку она становилась выпуклой (как стандартные кнопки).
Заранее спасибо.
Прикрепленные файлы:
188. Abadonna 3958 06.08.10 23:06 Сейчас в теме
Версия 1.9.9.11.
По просьбе, новый метод для установки jpeg/jpg картинок на форму 1С 7.7 (отчет, обработка, справочник, документ...) с возможностью пропорционального масштабирования и откликом на двойной клик на картинке.
Метод:
L.SetJpgPicture(ПолноеИмяФайла:строка,Масштаб:число,Лево,Верх:целые);
Масштаб - возможно дробное, больше, равно или меньше 1.
Если Масштаб меньше 1 - картинка увеличивается, если больше - уменьшается
Лево,Верх - необязательные, по умолчанию 5, расположение верхнего/левого угла картинки относительно верхнего/левого угла клиентской части формы.
Двойной клик по картинке генерирует внешнее событие, которое может быть обработано процедурой ОбработкаВнешнегоСобытия(Источник,Событие,Данные),
где Источник: строка "MiracleV8", Событие: строка "PictureDblClick", даные: строка полного имени файла картинки.
Примечание: на форму можно установить неограниченное количество картинок, каждая картинка "помнит" свой файл.
Возвращает строку вида ШиринахВысота - новые размеры установленной картинки
Пример:
Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)
	Если Событие="PictureDblClick" Тогда       	
		Сообщить("ВНЕШНЕЕ СОБЫТИЕ: Двойной клик по картинке. Файл:  "+Данные,"i");
	КонецЕсли;
КонецПроцедуры     

Процедура Сформировать()                                                                          
	// с маштабом 1:1.5, лево по умолчанию - 5 пикс., верх  по умолчанию 5 пикс.
        L.SetJpgPicture("c:\MiracleV8_TestBase77\ExtForms\Роза.jpeg",1.5);       
	// с маштабом 1:1.3, сдвинуто влево на 180 пикселей, верх  по умолчанию 5 пикс.
	L.SetJpgPicture("c:\MiracleV8_TestBase77\ExtForms\Цветы.jpeg",1.3,180);
КонецПроцедуры
Показать

Примечание: если в ОбработкаВнешнегоСобытия поставить
ЗапуститьПриложение(Данные), у меня, например, картинка открывается для просмотра в программе просмотра факсов и изображений
Добавлен симпатичный календарик из Дельфи с возможностью получения выбранной даты через ОбработкаВнешнегоСобытия
Метод L.SetCalendar(Лево,Верх:целые);
Лево, Верх - необязательные, по умолчанию 5.
Примечание: для 8.1 Верх ставить не меньше 30, иначе прячется под верхней панелью.
Генерит событие Источник="MiracleV8", Событие="CalendarChange", Данные - выбранная дата.
Примечание: технология получение отклика (обработки событий компонент Дельфи)
изложена в http://infostart.ru/public/73902/


Прикрепленные файлы:
Altair777; +1 Ответить
Оставьте свое сообщение