k Maxim

45
Рейтинг

maxis33



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

  •   Был(а) на сайте: сегодня в 11:13

Друзья
  • Дмитрий Петров
Подписчики 2

Группы

Карта покупателя SILVER

IE 2021 Участник

IE2022 Участник

Участник конференции "Анализ & Управление в ИТ-проектах 2024"

Рейтинг 45

Монитор пользователей 7.7 + выгонялка для SQL баз

Инструменты и обработки Системный администратор Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m) Архив с данными Инструменты администратора БД

Монитор пользователей для 1С 7.7 SQL баз. - Показывает все соединения с базой SQL(1С, Enterprise Manager, QA) - Позволяет удаленно выгонять пользователей посредством утилиты pskill.exe (работает жестко, ничего не спрашивая, но иногда необходимо). - Позволяет видеть, кто активно использует ресурсы БД (по нажатию обновить :) * необходима загруженная 1cpp, работает только на SQL версии, для завершения сеанса пользователей необходимо обладать правами администратора на удаленном компьютере.

1 стартмани

16.09.2011    21149    87    maxis33    17       

11

Решение проблем с неуникальными записями при переводе 1С 7.7 на SQL

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

Иногда во время перевода DBF базы на SQL возникает ошибка связанная с наличием в таблицах нескольких записей с одинаковым идентификатором DOCID или ID. Загрузка вылетает с ошибкой, так как SQL сервер не может создать уникальный индекс. Приложенный скрипт помогает бороться с этой проблемой.

1 стартмани

25.05.2010    31440    57    maxis33    16       

12

Комментарии

DevОтладка в Infostart Toolkit#19 18.08.23 15:53
Кстати про "ИТК".
После установки Infostart Toolkit перестал работать один из древних отчетов, еще портированных с 7.7. Оказалось, что в отчете использовалась переменная "итк", и добавление в системе общего модуля с таким же названием сделало отчет неработоспособным.
Переменную пришлось переименовать, но случай интересный..
DevДокументооборот 3.0 написать скрипт#2 19.07.23 15:39
Не знаю как в 3.0, а в ДО 2.1 в схеме комплексного процесса вставлял выполнение кода, где после выполнения задачи "Указать причину отказа" текст введенный в этой задаче записывался в доп. реквизит договора.
Кстати, посмотрите как можно получать и устанавливать значения дополнительных реквизитов.

Код
ВнутреннийДокумент = Процесс.Предметы[0].Предмет;

Запрос = Новый Запрос;

//Поиск текста отказа 

Запрос.Текст = "ВЫБРАТЬ
|   ЗадачаИсполнителя.Ссылка КАК Ссылка,
|   ЗадачаИсполнителя.РезультатВыполнения КАК РезультатВыполнения
|ИЗ
|   Задача.ЗадачаИсполнителя КАК ЗадачаИсполнителя
|ГДЕ
|   ЗадачаИсполнителя.Предметы.Предмет = &Предмет
|   И ЗадачаИсполнителя.Выполнена
|   И ЗадачаИсполнителя.Наименование like ""Указать причину отказа%""";
Запрос.УстановитьПараметр("Предмет", ВнутреннийДокумент);

Результат = Запрос.Выполнить();            
КомментарийДействияВДиадоке = "";            

Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл 
   КомментарийДействияВДиадоке = Выборка.РезультатВыполнения;
КонецЦикла;


СтатусДиадок = СокрЛП(УправлениеСвойствами.ЗначениеСвойства(ВнутреннийДокумент, "СтатусДиадок"));

Если СтатусДиадок = "Требуется подпись" ИЛИ СтатусДиадок =  "Требуется подпись. Требуется подписать извещение" Тогда
   
   ТаблицаСвойствИЗначений = Новый ТаблицаЗначений;
   ТаблицаСвойствИЗначений.Колонки.Добавить("Свойство");
   ТаблицаСвойствИЗначений.Колонки.Добавить("Значение");
   
   НовСвойство = ТаблицаСвойствИЗначений.Добавить();
   НовСвойство.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоРеквизиту("Имя","ОписаниеДействияВДиадоке");
   НовСвойство.Значение = "ПередатьПоМаршрутуОтказа";
   
   НовСвойство = ТаблицаСвойствИЗначений.Добавить();
   НовСвойство.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоРеквизиту("Имя","КомментарийДействияВДиадоке");
   НовСвойство.Значение = КомментарийДействияВДиадоке;
   УправлениеСвойствами.ЗаписатьСвойстваУОбъекта(ВнутреннийДокумент,ТаблицаСвойствИЗначений);
   
КонецЕсли;
Публикации100+ готовых доработок модуля Контур.Диадока в одном месте с примерами#45 10.06.23 14:11
(44) спасибо за ответ!
Наш процесс согласования проходит в 1С:Документооборот, и через модуль интеграции (в БП) регламентным заданием на сайт Диадок отправляется задача подписантам, т.к. само подписание происходит на сайте.
Вариант подписания с комментарием мы рассматривали, но подписанием занимаются руководители, которые могут не обратить на комментарий внимания. И в общем списке нет комментария.
Так что очень ждем этой возможности, заранее спасибо!
Публикации100+ готовых доработок модуля Контур.Диадока в одном месте с примерами#43 25.05.23 10:19
Всем привет,
Может кто знает, как передать в Диадок необходимость отказать в подписании?

Есть хорошая процедура, которая умеет:
Код
 //Режим исполнения: ПередатьНаСогласование / ПередатьНаПодпись / ПередатьПоМаршруту / Согласование / ОтказВСогласовании
ОсновнойМодуль.ЭДО_ОтправитьMessagePatchToPostДляВыбранныхСтрокСпискаДокументов(ТаблицаДокументов, ПараметрыMessagePatchToPost);

А вот что-то типа "ПередатьНаОтказВЗапросеПодписи" не умеет..
"ОтказВЗапросеПодписи" - не подходит...

Нужно чтобы подписанту на сайте прилетела задача "Отказать", и кнопка "Подписать" была недоступна.
Публикации100+ готовых доработок модуля Контур.Диадока в одном месте с примерами#12 21.04.23 17:56
(10) а можно писать на api если купил Универсальный модуль, или нужно дополниельно оплачивать api?
DevОтборы в отчётах. Нюансы работы компоновщика настроек.#25 12.01.23 15:36
(10)
Цитата
Парам = Новый Структура;
Парам.Вставить("КлючВарианта", "Основной");
Парам.Вставить("КлючНазначенияИспользования", "РасшифровкаИз");

НоваяФорма = ПолучитьФорму("Отчет.НекийОтчет.Форма", Парам, ЭтаФорма);

//Передаём в новую форму период отчета (так, чтобы отображался пользователю)
НоваяФорма.Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы.Найти(
НоваяФорма.Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(
Новый ПараметрКомпоновкиДанных("ПериодОтчета")).ИдентификаторПользовательскойНастройки).Значение
= ЭтаФорма.Отчет.КомпоновщикНастроек.ПолучитьНастройки().ПараметрыДанных
.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ПериодОтчета")).Значение;

НоваяФорма.Открыть();
НоваяФорма.СкомпоноватьРезультат(РежимКомпоновкиРезультата.Авто);
Спасибо вам, добрый человек! Как раз искал это решение.
НовостиКонференция INFOSTART EVENT 2022 завершилась. Рассказываем, как все прошло#205 12.10.22 10:55
Все было супер!
Отличное место, питание, залы (хотя не всегда влезали), атмосфера, интересные доклады, наличие докладов 1Сников (Фогель, Грибанов, Онянов), Спортмастер лаб как всегда в тему!
DevОшибка исключение (0x800a03ec)#20 20.10.21 13:36
Тоже с таким столкнулся, та же ошибка:
Эксель английский

=IF(RC[1]=1;1;2) - выдает ошибку
=SUM(RC[1]) - работает...

перепробовал присваивать:

Formulal
FormulaR1C1
FormulaLocal
FormulaR1C1Local

причем на некоторых машинах на клиенте некоторые варианты срабатывают..
а на сервере вообще отказывается.. куда копать? не понимаю, почему некоторые функции работают Sum, sin, а некоторые (if, sumif) - нет.. а если печатать в эксель файл, а не через COM - работает..
НовостиДесятая конференция Infostart Event 2021: мы это сделали!#297 13.05.21 11:30
Очень понравилось!
Плюсы
1. В большинстве своем интересные доклады, известные в 1с кругах личности
2. Разноплановость докладов
3. Скрасило мероприятие стенд Спортмастер Лаб
4. Интересный раздаточный материал

Из того, что можно было бы изменить:
1. На части докладов не хватало мест в зале
2. Много интересных докладов в одно время - как-то бы разносить