50
Рейтинг

h00k



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

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

Подписчики 11

Группы

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

Рейтинг 50

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

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

Обработка поиска и замены дублей с возможностью задать количество обрабатываемых элементов. Предназначена для конфигураций на базе БСП 2.2.4.45 и выше, работающих на платформе 1С: Предприятие 8.3.3 и выше.

1 стартмани

18.04.2015    7640    162    h00k    6       

11

Не управляемая консоль запросов

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

Консоль запросов под 8.2. Совсем простенькая, как пример создания управляемых форм и как бонус - выполняющая запросы...

1 стартмани

13.08.2009    14497    355    h00k    9       

25

Комментарии

Dev1С: Конвертация данных 3. Инструкции и примеры. EnterpriseData (универсальный формат обмена)#345 12.11.21 15:50
(344)
Цитата
Так и нужно делать. Текущая строка разобрана
Точно строка разобрана? Выделенный жирным фрагмент типового кода ни о чём Вам не говорит?
Код
      Если СтрНайти(ТекСтрока, ".ОбъектВыборкиМетаданные") > 0 Тогда
         ИмяОбъектаВыборки = ТекстПослеРавно(ТекСтрока);
         Если НЕ ЗначениеЗаполнено(ИмяОбъектаВыборки) Тогда
            Возврат;
         КонецЕсли;
         ПОДОбъект.ОбъектВыборки = ОбъектКонфигурацииПоСтроке(ИмяОбъектаВыборки, Конфигурация);
         Если НЕ ЗначениеЗаполнено(ПОДОбъект.ОбъектВыборки) Тогда
            Возврат;
         КонецЕсли;
[B]         ПОДОбъект.ИспользоватьДляОтправки = Истина;
         ПОДОбъект.ИспользоватьДляПолучения = Ложь;[/B]
      ИначеЕсли



(344)
Цитата
Если использовать Возврат как у Вас, то эта часть кода не будет выполнена
Ещё раз, какой "Возврат"?! Вы точно умеете читать и понимать написанный код? Ни разу не сталкивались с конструкцией "<>" в условиях? Не понимаете, что она обозначает и как выполняется обработка?


(344)
Цитата
если есть сомнения как делать правильно.
У меня то сомнений нет. Я лишь в мягкой форме Вам намекнул ещё раз перечитать типовой код.
Dev1С: Конвертация данных 3. Инструкции и примеры. EnterpriseData (универсальный формат обмена)#343 12.11.21 13:06
(341) а вот в этом случае
Код
Если ИмяОбъектаВыборки="Неопределено" Тогда //ED
       Продолжить;
КонецЕсли;

обработка строки прерывается и цикл переходит к разбору следующей строки файла.
Dev1С: Конвертация данных 3. Инструкции и примеры. EnterpriseData (универсальный формат обмена)#342 12.11.21 13:00
(341)Смотри, типовый кусок кода с ошибкой в логике

Код
Если НЕ ЗначениеЗаполнено(ПОДОбъект.ОбъектВыборки)  Тогда
    Возврат;
КонецЕсли;

выходит из процедуры, если не смог однозначно сопоставить объект выборки с метаданными конфигурации. Соответственно, в "пролёте" все правила, которые выбирают данные произвольным алгоритмом.

Моё исправление
Код
Если НЕ ЗначениеЗаполнено(ПОДОбъект.ОбъектВыборки) 
    И ИмяОбъектаВыборки <> Строка("Неопределено") Тогда
    Возврат;
КонецЕсли;

выходит из процедуры, если не смог однозначно сопоставить объект выборки с метаданными или имя объекта владельца не равно строке "Неопределено".

То есть, для ПОД выбирающих данные без привязки к конкретному объекту метаданных (ИмяОбъектаВыборки = "Неопределено" ) продолжает выполнятся алгоритм заполнения параметров.
Dev1С: Конвертация данных 3. Инструкции и примеры. EnterpriseData (универсальный формат обмена)#340 12.11.21 11:43
(339) В том, что "Продолжить" перекидывает на следующий шаг цикла, а в моём продолжает выполнение и устанавливает флаг "Отправка" для правила.
Dev1С: Конвертация данных 3. Инструкции и примеры. EnterpriseData (универсальный формат обмена)#338 11.11.21 22:27
(334)
Цитата
и ИмяОбъектаВыборки="Неопределено" Тогда //ED
Продолжить;
При таком "исправлении" загрузка правила же не корректно отработает.
Dev1С: Конвертация данных 3. Инструкции и примеры. EnterpriseData (универсальный формат обмена)#337 11.11.21 22:23
А смысл ждать то?
Обработки - ЗагрузкаМодуляМенеджера - МодульОбъекта в Процедура ЗагрузитьПОД заменить
Код
Если НЕ ЗначениеЗаполнено(ПОДОбъект.ОбъектВыборки)  Тогда
   Возврат;
КонецЕсли;


на
Код
Если НЕ ЗначениеЗаполнено(ПОДОбъект.ОбъектВыборки) 
   И ИмяОбъектаВыборки <> Строка("Неопределено") Тогда
   Возврат;
КонецЕсли;
ПубликацииДоговоры и соглашения в 1С:ERP#6 01.10.20 10:50
(4) Года 4 назад вроде как модераторы начали "выпиливать" подобные "статьи", но насколько успешно - не в курсе.
Мнусовать же - себе дороже. По крайней мере раньше установка минуса на "статью" так же добавляла её в избранное...
ПубликацииДоговоры и соглашения в 1С:ERP#3 01.10.20 10:12
(2) ошибочка, в "статье" тупо перечислены реквизиты формы, а какие поля и за что отвечают тут как раз не описано.

П.С.: А по главному вопросу, всё просто - ещё с тех пор как за статьи стали начислять СМ, так на ИС и начало развиваться "направление" копипасты с ИТС и других подобных ресурсов.
ПубликацииМонитор Задач - Канбан для 1С:Документооборот 2.1#2 07.09.20 10:21
(1) это был концепт и, к сожалению, он дальше в работу так и не пошел - вместо ДО решили использовать другую систему учёта задач. Так что могут встречаться недоработки, которых в активно эксплуатируемой системе не было бы.
ПубликацииМонитор Задач - Канбан для 1С:Документооборот 2.1#0 27.06.20 23:44
Внешний отчёт Канбан доска для конфигурации Документооборот 2.1.