Белькин Сергей

263
Рейтинг

Belkin_Sergey
Сергей Белькин



  •   Регистрация: 28.12.2007 (16 лет назад)

  •   Был(а) на сайте: 16.04.2024

Подписчики 8
Группы

Профессиональный разработчик

Рейтинг 263

Визуализация и интерактивное изменение дерева значений.
+73 –

Инструменты и обработки Для всех Платформа 1С v8.3 Конфигурации 1cv8 Windows Абонемент ($m) Внешняя обработка (ert,epf) Инструментарий разработчика

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

1 стартмани

01.08.2014    25613    118    Belkin_Sergey    27       

73

Просмотр файлов Excel, Word, Adobe pdf и других файлов непосредственно в 1С.
+11 –

Инструменты и обработки Для всех Платформа 1С v8.3 Конфигурации 1cv8 Windows Абонемент ($m) Внешняя обработка (ert,epf) Загрузка и выгрузка в Excel

Обработка для предварительного просмотра файлов, используемых в документообороте на предприятиях, непосредственно в 1С.

1 стартмани

25.07.2014    23325    141    Belkin_Sergey    11       

11

Очистка кэша 1С из 1С
+179 –

Статья Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Бесплатно (free) Нет файла Инструменты администратора БД

Очистка кэша 1С из 1С. Простенькая доработка конфигурации для автоматической чистки пользовательского кэша.

26.03.2012    53036    Belkin_Sergey    96       

179
Смотреть все

Комментарии

Dev › Подключение по OLE › #6 27.07.16 6:31
(5) Boneman, нет. параллельно могу зайти под любым пользователем в базу.
Dev › Подключение по OLE › #3 26.07.16 15:28
(2) ipoloskov,
Пытаюсь войди под другим пользователем.
Информация об ошибке вообще не информативна.
Dev › Подключение по OLE › #1 26.07.16 14:49
Здравствуйте.
Может кто сталкивался.
Подключаюсь по OLE к локальной базе данных. База лежит в общей папке в сети.

Код
СтрокаПодключения = "File="""+СокрЛП(ПутьКБазеДанных)+""";Usr="""+СокрЛП(ИмяПользователя)+""";Pwd = """ + СокрЛП(ПарольПользователя) + """;";
   
   База = Новый COMОбъект("V82.Application");
   Попытка 
      База.Connect(СтрокаПодключения);
   Исключение
      Сообщить("Ошибка подключения к базе данных" + Символы.ПС + ИнформацияОбОшибке());
      Возврат;
   КонецПопытки;
   
   
   Сообщить("Подключение успешно!");


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

Это так и задумано?
Dev › Визуализация и интерактивное изменение дерева значений. › #18 12.08.14 14:13
(17) gubanoff,
Там важно создать дерево значений, где будет только 1 главная строка, которая будет родителем для всех остальных строк.
Если вы пытаетесь визуализировать справочник, то предлагаю первой строкой ввести название справочника.
т.е. надо сделать так:
-Номенклатура
---Материалы
------Товары
---Готовая продукция
Dev › Визуализация и интерактивное изменение дерева значений. › #16 08.08.14 12:02
(14) BigB, гораздо.
Какую в типовой нашел, такую и использовал :-)
Dev › Визуализация и интерактивное изменение дерева значений. › #11 07.08.14 10:31
(9) mip128, перенес эти процедуры из общего модуля в модуль объекта обработки (для тех, кто собирается качать). Вышлите мне в личку свой e-mail, я вам отправлю обновленную версию.
Dev › Визуализация и интерактивное изменение дерева значений. › #10 07.08.14 10:14
(9) mip128, Вставьте в общий модуль ОбщегоНазначения функцию

Код
// Преобразует шестнадцатиричное число в десятичное
// 
// Параметры:
//   Источник - строка с шестнадцатиричным числом
//
// Возвращаемое значение:
//   Число - десятичное число
//
Функция ШестнадцатиричноеВДесятичное(Источник) Экспорт
   
   Результат = 0;
   
   Для Поз = 1 По СтрДлина(Источник) Цикл
      ТекКод = КодСимвола(Источник, Поз);
      
      Если ТекКод >= КодСимвола("0") И ТекКод <= КодСимвола("9") Тогда
         ТекКод = ТекКод - КодСимвола("0");
      ИначеЕсли ТекКод >= КодСимвола("a") И ТекКод <= КодСимвола("f") Тогда
         ТекКод = ТекКод +10 - КодСимвола("a");
      ИначеЕсли ТекКод >= КодСимвола("A") И ТекКод <= КодСимвола("F") Тогда
         ТекКод = ТекКод +10 - КодСимвола("A");
      КонецЕсли;
      
      Результат = Результат * 16 + ТекКод;
      
   КонецЦикла;
   
   Возврат Результат;
   
КонецФункции // ШестнадцатиричноеВДесятичное()


Если в нем нет функции ДесятичноеВШестнадцатиричное(), то вставьте ее тоже.

Код
// Преобразует десятичное число в шестнадцатиричное
// 
// Параметры:
//   Источник - число (десятичное) от 0 до 255
//
// Возвращаемое значение:
//   Строка - десятичное число
//
Функция ДесятичноеВШестнадцатиричное(Источник) Экспорт
   
   ШестнадцатиричныеСимволы = "0123456789ABCDEF";
   
   Если Источник < 0 Тогда
      Возврат "00";
   КонецЕсли;
   Если Источник > 255 Тогда
      Возврат "FF";
   КонецЕсли;
   
   ПервыйСимвол   = Цел(Источник / 16) + 1;
   ВторойСимвол   = Источник % 16;
   
   Возврат Сред(ШестнадцатиричныеСимволы, ПервыйСимвол, 1) + Сред(ШестнадцатиричныеСимволы, ВторойСимвол, 1);
   
КонецФункции // ДесятичноеВШестнадцатиричное()


Вообще эти процедуры в типовых должны быть.
Dev › Просмотр файлов Excel, Word, Adobe pdf и других файлов непосредственно в 1С. › #2 06.08.14 12:27
(1) нормальный такой, эх вы меня поймали. Я просто хотел чтобы ее 4 раза скачали ;-)
А если серьезно, я думаю ваш комментарий совсем не со зла написан, а чтобы заработать 0,4$m? Ведь, как вы можете судить о качестве и уникальности кода, если вы ее не скачивали?

А вообще, я думаю, что на этом сайте сидят не одни лишь опытные и любознательные программисты 1С, есть и те, кому лень зайти в публикацию автора, которого я указал в описании, потом погуглить, найти как пересохранять офисные документы в pdf и написать свою обработку...
Dev › Визуализация и интерактивное изменение дерева значений. › #7 06.08.14 10:52
(5) chmv, все зависит от вашей фантазии :-)
Как вариант, штатное расписание, о чем писалось выше, или структура подчиненности документов.
Dev › Визуализация и интерактивное изменение дерева значений. › #3 06.08.14 8:13
(1) нормальный такой, "как оно связывается с объектами 1С" - никак не связывается, просто парсится html