Чибидин Андрей

331
Рейтинг

andrewbc
Андрей Чибидин



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

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

Друзья
  • Дмитрий Малышев
  • Александр Шипков
  • Евгений Комиссаров
  • Гордей Голиков
  • Андрей Волин
Подписчики 8
Группы

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

Партнер IS-WP

Рейтинг 331

Подключение двух и более COMConnector'ов (COM-соединений) к различным релизам сервера 1С:Предприятие 8.3 на одном компьютере
+26 –

Статья Системный администратор Программист Платформа 1С v8.3 Россия Windows Бесплатно (free) Нет файла Сервера

В публикации рассматривается вопрос о создании двух и более одновременно работающих COM-соединений к различным релизам сервера 1С:Предприятие 8.3 на одном компьютере. Разрабатывалось, тестировалось и работает под платформами 1С 8.3. Но, насколько я углубился в тему, этот алгоритм должен работать и под 8.1, и под 8.2 и в комбинациях.

04.06.2022    6692    andrewbc    2       

26

Обслуживание базы данных на PostgreSQL
+30 –

Инструменты и обработки Системный администратор Программист Платформа 1С v8.3 Россия PostgreSQL Абонемент ($m) Конфигурация (md, cf) Администрирование СУБД

Предысторией создания данного продукта был перевод одного из своих клиентов на PostgreSQL. Серверная платформа не позволяла установить там pgAdmin. А скриптами и планировщиками пользоваться неудобно. Поэтому пришла идея реализовать обслуживание баз данных PostgreSQL средствами 1С.

1 стартмани

27.05.2020    14779    27    andrewbc    11       

30

Запись текста в кодировке UTF-8 без BOM из 1с 8.2
+15 –

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

Как-то хочется из 8.2 записать в кодировке "UTF-8 без BOM" любым из менее затратных способов.

26.05.2012    48653    andrewbc    37       

15

Свертка ИБ 7.7 Оперативный учет
+139 –

Инструменты и обработки Системный администратор Программист Оперативный учет 7.7 1С:Торговля и склад 7.7 Россия Абонемент ($m) Конфигурация (md, cf) Свертка базы

Свертка базы 7.7 Оперативный учет - удаление документов и движений регистров на дату, перенос остатков.

1 стартмани

28.12.2009    42665    2040    andrewbc    180       

139

Конструктор запроса для 7.7
+41 –

Инструменты и обработки Программист Оперативный учет 7.7 Конфигурации 1cv7 Россия Абонемент ($m) Внешняя обработка (ert,epf) Инструментарий разработчика

Визуальный конструктор запроса для платформы 7.7 по справочникам, документам и регистрам. Запрос по справоникам и документам может выполняться на любой компоненте, а по регистрам - на компоненте "Оперативный учет".

1 стартмани

26.12.2009    17061    1025    andrewbc    21       

41

Конструктор запроса для 7.7
+52 –1

Инструменты и обработки Программист Оперативный учет 7.7 Конфигурации 1cv7 Windows Абонемент ($m) Внешняя обработка (ert,epf) Инструментарий разработчика

Visual quest - это обработка под 1с v7.7 компоненту "Оперативный учет" для визуального построения запросов по справочникам, документам и регистрам. Новая версия. Изменен в главную очередь способ работы с условиями. Пока тянет только на "бэту". Поэтому хотелось бы больше комментариев. В архиве "FormEx" - библиотека, которая использовалась при написании и отладке, "vq1", "vq2" - обработки по версиям.

1 стартмани

03.11.2009    19570    587    andrewbc    56       

51

Монитор пользователей для 7.7
+16 –

Инструменты и обработки Системный администратор Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 Россия Бесплатно (free) Конфигурация (md, cf) Инструменты администратора БД

Данная конфигурация является примером использования обработок «История работы пользователей» и «Монитор пользователей», созданных мною для охоты на юзеров-трудоголиков, скрывающихся от администратора и не желающих выходить из 1С, когда это нужно опять-таки администратору.

13.03.2009    16179    588    andrewbc    16       

16

Движения регистров с фильтром
+13 –

Отчеты и формы Для всех Оперативный учет 7.7 1С:Торговля и склад 7.7 Windows Бесплатно (free) Внешняя обработка (ert,epf) Анализ учета

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

11.09.2007    13707    545    andrewbc    3       

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

Комментарии

Dev › свернуть таблицу значений содержащей строковое поле › #20 05.06.22 6:50
(13) Да уж...
Dev › свернуть таблицу значений содержащей строковое поле › #19 05.06.22 6:40
(14) Это можно решить через СКД:
Прописываем предопределенную процедуру в модуле отчета.
В строке "ВнешнийНаборДанных = Новый Структура("Таблица", Таблица);" передаем нашу таблицу.
Код
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
     
    СтандартнаяОбработка = Ложь;
   
   ВнешнийНаборДанных = Новый Структура("Таблица", Таблица);
     
   НастройкиКомпоновки = КомпоновщикНастроек.ПолучитьНастройки();
     
   КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
   МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, НастройкиКомпоновки);
     
   ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
   ПроцессорКомпоновки.Инициализировать(МакетКомпоновки, ВнешнийНаборДанных);
     
   ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
   ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
       ПроцессорВывода.Вывести(ПроцессорКомпоновки);
         
КонецПроцедуры

Естественно, что это способ годится только для вывода отчета.

Прикрепленные файлы:

Изображение1.jpg
Изображение2.jpg
Изображение3.jpg
Dev › свернуть таблицу значений содержащей строковое поле › #18 05.06.22 4:45
(4) Если использовать СтрСоединить, то можно так:
Код
таблицаРезультата = таблицаИсходная.Скопировать();
таблицаРезультата.Свернуть("Контрагент", "Итог, Итог2");
таблицаРезультата.Колонки.Добавить("Договор", Новый ОписаниеТипов("Строка"));
таблицаИсходная.Индексы.Добавить("Контрагент"); // Не обязательно, это для ускорения поиска, если таблица большая
Для каждого строкаРезультата Из таблицаРезультата Цикл
   массивДоговоров = Новый Массив;
   Для каждого строкаИсходная Из таблицаИсходная.НайтиСтроки(Новый Структура("Контрагент", строкаРезультата.Контрагент)) Цикл
      массивДоговоров.Добавить(строкаИсходная.Договор);
   КонецЦикла;
   строкаРезультата.Договор = СтрСоединить(массивДоговоров, ",");
КонецЦикла;

или
Код
таблица.Сортировать("Контрагент");
массивСтрокДляУдаления = Новый Массив;
контрагент = Неопределено;
строкаКонтрагента = Неопределено; // Это нужно для синтакс-контроля, код отрабатывает без этой строки
Для каждого строка Из таблица Цикл
   Если контрагент <> строка.Контрагент Тогда
      Если контрагент <> Неопределено Тогда
         строкаКонтрагента.Договор = СтрСоединить(массивДоговоров, ",");
      КонецЕсли;
      контрагент = строка.Контрагент;
      строкаКонтрагента = строка;
      массивДоговоров = Новый Массив;
   Иначе
      строкаКонтрагента.Итог = строкаКонтрагента.Итог+строка.Итог;
      строкаКонтрагента.Итог2 = строкаКонтрагента.Итог2+строка.Итог2;
      массивСтрокДляУдаления.Добавить(строка);
   КонецЕсли;
   массивДоговоров.Добавить(строка.Договор);
КонецЦикла;
Если контрагент <> Неопределено Тогда
   строкаКонтрагента.Договор = СтрСоединить(массивДоговоров, ",");
КонецЕсли;
Для каждого строка Из массивСтрокДляУдаления Цикл
   таблица.Удалить(строка);
КонецЦикла;

Но СтрСоединить можно использовать только начиная с релиза 8.3.6.1977 или писать свою функцию. Считаю, что в данном алгоритме это избыточная функция.
Dev › свернуть таблицу значений содержащей строковое поле › #17 05.06.22 4:12
(3) а вот этот "шедевр" проще реализовать так:
Код
таблица.Сортировать("Контрагент");
массивСтрокДляУдаления = Новый Массив;
контрагент = Неопределено;
Для каждого строка Из таблица Цикл
   Если контрагент <> строка.Контрагент Тогда
      контрагент = строка.Контрагент;
      строкаКонтрагента = строка;
   Иначе
      строкаКонтрагента.Договор = строкаКонтрагента.Договор+?(строкаКонтрагента.Договор = "", "", ",")+строка.Договор;
      строкаКонтрагента.Итог = строкаКонтрагента.Итог+строка.Итог;
      строкаКонтрагента.Итог2 = строкаКонтрагента.Итог2+строка.Итог2;
      массивСтрокДляУдаления.Добавить(строка);
   КонецЕсли;
КонецЦикла;
Для каждого строка Из массивСтрокДляУдаления Цикл
   таблица.Удалить(строка);
КонецЦикла;
Dev › свернуть таблицу значений содержащей строковое поле › #16 05.06.22 3:54
Код
таблицаРезультата = таблицаИсходная.Скопировать();
таблицаРезультата.Свернуть("Контрагент", "Итог, Итог2");
таблицаРезультата.Колонки.Добавить("Договор", Новый ОписаниеТипов("Строка"));
таблицаИсходная.Индексы.Добавить("Контрагент"); // Не обязательно, это для ускорения поиска, если таблица большая
Для каждого строкаРезультата Из таблицаРезультата Цикл
   Для каждого строкаИсходная Из таблицаИсходная.НайтиСтроки(Новый Структура("Контрагент", строкаРезультата.Контрагент)) Цикл
      строкаРезультата.Договор = строкаРезультата.Договор+?(строкаРезультата.Договор = "", "", ",")+строкаИсходная.Договор;
   КонецЦикла;
КонецЦикла;
// в результате 2 таблицы:
// таблицаИсходная - начальная таблица
// таблицаРезультата - свернутая таблица
Admin › [Шпаргалка] Несколько версий сервера 1С на одном сервере (компьютер) › #29 04.06.22 1:36
Коротко и ясно
Публикации › Подключение двух и более COMConnector'ов (COM-соединений) к различным релизам сервера 1С:Предприятие 8.3 на одном компьютере › #0 03.06.22 15:50
В публикации рассматривается вопрос о создании двух и более одновременно работающих COM-соединений к различным релизам сервера 1С:Предприятие 8.3 на одном компьютере. Разрабатывалось, тестировалось и работает под платформами 1С 8.3. Но, насколько я углубился в тему, этот алгоритм должен работать и под 8.1, и под 8.2 и в комбинациях.
DB › Изменение product key для ms sql server 2019 › #8 14.05.21 8:56
(7) Спасибо за советы. Но ничего не помогает. Попробую сегодня ночью полностью снести и переустановить sql с новым ключом. Может, поможет... ))
DB › Изменение product key для ms sql server 2019 › #6 14.05.21 8:30
(5) Да, и службу сначала перезапускал, потом физически сервер.
DB › Изменение product key для ms sql server 2019 › #4 14.05.21 8:20
(3) Да, спасибо. Но эти операции были проделаны и завершены успешно. Только ProductKey показывает "старый" ключ. А "новый" якобы принят, но нигде не зафиксирован и не отображается. В этом и стостоял вопрос.