Расширение для исключения из автоматической выгрузки конкретных документов и справочников
Интеграция - Перенос данных 1C
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Как пользоваться готовым расширением:
1. Скачиваете расширение, добавляете в вашу базу откуда необходимо запретить выгрузку нужного документа. Обязательно отключаете безопасный режим.
2. В нужный документ (справочники), например в Реализация товаров услуг, добавляете дополнительный реквизит типа Булево с именем ОтмОбм, наименование (на форме будет отображаться) указываете любое какой вам нужно. Например "Не выгружать" или "Упр". Главное чтобы имя было ОтмОбм.
3. Все, открываем документ, на вкладке дополнительно должен появиться наш новый реквизит, ставим его в Истина если не хотим чтобы документ выгружался.
Подробно как добавить реквизит:
Открываете нужный документ, например Реализация товаров услуг либо любой другой - > Еще - >Изменить состав дополнительных реквизитов
Добавить - >Новый
Заполняем поля:
Наименование - что хотите, по желанию, в примере "Не выгружать"
Тип значения: Булево
Для разработчиков - Имя: ОтмОбм
Всё! Нажимаем записать и закрыть.
Открываем документ, на вкладке дополнительно должен появиться наш реквизит. Ставим галочку и документ больше не будет выгружаться.
Для второго типа документа и для всех последующих: Еще - > Изменить состав дополнительных реквизитов - > Добавить - > Из другого набора.
Находите свой документ в который вы уже добавили ваш реквизит, в моем случае это Реализация товаров и услуг, реквизит называется "Не выгружать"
Далее - > Добавить реквизит как есть (Рекомендуется) - > Далее
Повторить для каждого документа где нужна опция - "Не выгружать".
Проверил на 1С:Комплексная автоматизация 2 (2.5.22.159), Управление торговлей для Казахстана, редакция 3, локализация для Казахстана: "1С-Рейтинг" (3.4.5.21)
Если у вас не работает, сначала проверьте, отключен ли безопасный режим в расширении?
Далее для тех кто не хочет скачивать или хочет сделать самостоятельно
Суть задачи - добавить расширение которое в событии регистрации объекта после вызова правил регистрации просто проверит реквизит документа в котором будет указано Выгружать или не выгружать данный документ (или справочник). И Не зарегистрирует изменения если будет нужно. Ниже описание как это сделано, вы сможете сделать сами. Кому лень могут скачать готовое расширение и пользоваться.
Нам понадобится общий модуль: ОбменДаннымиСобытия
Добавляем в расширении процедуру &После "ВыполнитьПравилаРегистрацииОбъектовДляПланаОбменаПопыткаИсключение"
&После("ВыполнитьПравилаРегистрацииОбъектовДляПланаОбменаПопыткаИсключение")
Процедура ОтмОбм_ВыполнитьПравилаРегистрацииОбъектовДляПланаОбменаПопыткаИсключение(МассивУзловРезультат, Объект, ИмяПланаОбмена, ДополнительныеПараметры)
ОтмОбм_ОбщийМодуль.ПроверитьРазрешениеНаВыгрузкуПоОбъектуИсключитьУзел(МассивУзловРезультат,Объект);
КонецПроцедуры
Добавляем в расширение свой общий модуль ОтмОбм_ОбщийМодуль
Пишем туда следующие процедуры:
Процедура ПроверитьРазрешениеНаВыгрузкуПоОбъектуИсключитьУзел(МассивУзлов, Объект) Экспорт
НеРазрешено = ПолучитьЗначениеДополнительногоРезквизитаОбъекта("ОтмОбм",Объект);
Если НеРазрешено Тогда
МассивУзловУдалить = Новый Массив;
МассивУзловОставить = Новый Массив;
Для Каждого ТекУзел Из МассивУзлов Цикл
Если ДляУзлаПроверять(ТекУзел) Тогда
МассивУзловУдалить.Добавить(ТекУзел);
Иначе
МассивУзловОставить.Добавить(ТекУзел);
КонецЕсли;
КонецЦикла;
Если МассивУзловУдалить.Количество()>0 Тогда
МассивУзлов = МассивУзловОставить;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Функция ДляУзлаПроверять(Узел)
Возврат Истина;
КонецФункции
Функция ПолучитьЗначениеДополнительногоРезквизитаОбъекта(ИмяРеквизита, Объект)
ОбъектМетаданных = Объект.Метаданные();
Если ОбщегоНазначения.ЭтоДокумент(ОбъектМетаданных) ИЛИ ОбщегоНазначения.ЭтоСправочник(ОбъектМетаданных) Тогда
Если ОбъектМетаданных.ТабличныеЧасти.Найти("ДополнительныеРеквизиты")<>Неопределено И ОбъектМетаданных.ТабличныеЧасти.ДополнительныеРеквизиты.Реквизиты.Найти("Значение")<>Неопределено Тогда
Для Каждого ТекРек ИЗ Объект.ДополнительныеРеквизиты Цикл
Если текРек.Свойство.Имя = ИмяРеквизита Тогда
Возврат ТекРек.Значение;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЕсли;
Возврат Ложь;
КонецФункции
Функция ДляУзлыПроверять - сюда можно добавить по каким планам обмена нужно исключать, например если вы хотите чтобы в Бухгалтерию не выгружалось, а в Розницу выгружалось или наоборот. Если оставить как есть, то для всех узлов действует галочка.
Все, будет работать.
Позже допилю функцию ДляУзлыПроверять, чтобы можно было выбирать для каких узлов не регистрировать изменения.
Проверено на следующих конфигурациях и релизах:
- Управление торговлей, редакция 11, релизы 11.5.22.186
- 1С:Комплексная автоматизация 2, релизы 2.5.22.159
- Бухгалтерия предприятия, редакция 3.0, релизы 3.0.201.24
Вступайте в нашу телеграмм-группу Инфостарт
