Техподдержка. Что еще может потребоваться? Что еще мы можем поймать изнутри 1С?

[Злоп]

ибо IsNumeric(Nothing) дает Ложь

[MWW_Ruza]

Ага, так это место проскакивает, теперь следующая ошибка, по dll из NET...

[MWW_Ruza]

Эта библиотека по идее в System32 должна лежать.
Система если что, Windows-7 32 бита...

[Злоп]

Версия 1.0.0.14 2024-10-07
- особенности обработки списка накопителей

[MWW_Ruza]

Ага. То, что я правил по твоей инструкции в предыдущей версии - теперь работает "из коробки"

А с дллкой, все то-же самое. Судя по всему - он путь к ней не находит. При клике на любой другой, открывается каталог, где она лежит, и позиционируется на нее. А эта, и в списке без пути, и при клике на ней открывается каталог "Документы" текущего пользователя (естественно, ее там нет).

[Злоп]

ну дык предполагается, что в колонке "полное имя" будет полное имя...
А откуда грузится DLL, которая без полного пути - хз.
а порядок поиска системой в каталогах - навскидку не помню - когда просто ЗагрузитьВнешнююКомпоненту("чтото.dll")

[Злоп]

Версия 1.0.0.15 2024-10-08
- уточнение обработки клика по таблице ВК

[Arbuz]

Версия 1.0.0.15 2024-10-08

У меня вроде норм.

[Злоп]

У меня вроде норм.

подшаманил скрытие показа путей и прочего? там где <..>

[Злоп]

Версия 1.0.0.16 2024-10-08
- расширил обработку клика по таблице ВК, проверяется наличие файла по пути "полное имя", если файл отсутсвует, то тупо считаем что задано только имя файла и тогда
   //{--- инфо: порядок загрузки ВК -------------------------------------------
   // Инициализация внешней компоненты может осуществлятся
   // с помощью метода ЗагрузитьВнешнююКомпоненту(<ИмяФайлаКомпоненты>)",
   // где <ИмяФайлаКомпоненты> - имя файла внешней компоненты
   // Если не указан пусть поиска, файл компоненты ищется последовательно
   // - в каталоге пользователя,
   // - в каталоге информационной базы,
   // - в каталоге c исполняемым файлом 1С:Предприятия   
   //
   // Если не найдена ВК по ТаблицаВК.ПутьФайла
   // тогда считаем, что ПутьФайла - просто имя файла без полного пути
   // и будем искать файл ВК по перечню путей возможной загрузки
   //}--- инфо: порядок загрузки ВК -------------------------------------------

Сделано чтобы спозиционироваться на ВК если ситуация как @MWW_Ruza когда ВК в таблице ВК указана без пути (как это получается - хз).

Возможно и доделка не покажет файл, значит он грузится вообще хз откуда
 

[MWW_Ruza]

Да, обработка клика по ТЗ работает, выводит месагу.



Но при наажатии "Сформитовать" все равно та-же ошибка.

PS Сереж, я не придираюсь   Мне по большому счету олна и не нужна особо, просто хочу тебе помочь по мере возможности довести это до стабильно-работающего на любых системах продукта
Че-то править в VB скриптах - я особо не умею, синтаксис мне не знаком и "отладчиком" туда просто так не попасть... Но, тестирование - без проблем. В любое время, мне не сложно

[Злоп]

@MWW_Ruza, проверь 16 версию - покажет ли файл mscoree.dll при клике.
Скорее всего нет, скорее всего эта библиотека подгружается не напрямую загрузкой ВК, а уже паровозом из какой-то другой ВК, поэтому и не показывается.

[Злоп]

Да, обработка клика по ТЗ работает, выводит месагу.



Но при наажатии "Сформитовать" все равно та-же ошибка.

PS Сереж, я не придираюсь   Мне по большому счету олна и не нужна особо, просто хочу тебе помочь по мере возможности довести это до стабильно-работающего продукта

да я не в претензиях, все равно делать нечего, крупные работы не могу делать ввиду таймингов малых свободных, вот и занимаюсь украшательствами.

сейчас еще прилеплю кусочек...

[MWW_Ruza]

Сереж, мне не с руки разбираться в VB скриптах, что там и почему не рабоает, но есть универсальное средство в 1С - "Попытка Исключение КонецПопытки;" )
Вот:



   Попытка
      Результат    = МетаИнфо.ПолучитьВерсиюФайла(ПутьФайла,"FileVersion");
   Исключение
      Результат   = "";   
   КонецПопытки;   
   Результат = СтрЗаменить(Результат,",",".");
   Результат = "Версия: "+СтрЗаменить(Результат," ","");
   
   Попытка
      Результат2   = МетаИнфо.ПолучитьВерсиюФайла(ПутьФайла,"CompanyName");   
   Исключение
      Результат2   = "";   
   КонецПопытки;   
   
   Буф = ", Издатель: " + Результат2 ;
   Буф = СтрЗаменить(Буф,РазделительСтрок," "); // для единого стиля вывода
   Результат = Результат+Буф;
   
   Попытка
      Результат3   = МетаИнфо.ПолучитьВерсиюФайла(ПутьФайла,"ProductName");   
   Исключение
      Результат3   = "";   
   КонецПопытки;   
   
   Буф = ", Имя: "+ Результат3;

Я конечно понимаю, что это не совсем правильно, но, я хоть увидел, что должно "на выходе" нарисоваться

[Злоп]

Версия 1.0.0.17 2024-10-08
- добавил поиск загруженной dll в каталогах виндов: SYSWOW64, SYSTEM32, SYSTEM ну и как последний довод королей КаталогВременныхФайлов() и временный каталог виндов. Если не найдено по этим путям, смотреть дальше не имеет смысла, мало ли где может быть...