![]() |
![]() |
![]() |
|
Перестали срабатывать обработчики КД | ☑ | ||
---|---|---|---|---|
0
falselight
07.02.17
✎
12:24
|
При тестировании обмена по средством правил конвертации данных
для фильтрации выгружаемых объектов был сделан фильтр по подразделениям в зависимости от идентификатора реквизитов объектов в обработчиках ПередвыгрузкойОбъекта и ПередКонвертациейОбъекта. Все отрабатывало, выводились сообщения по сообщить. После были исключены из обмена ряд документов посредством проставления галки отключить в ПравилеВыгрузкиДанных. Что сейчас, при очередном тестировании видно что документы переносятся с ненужными подразделениями и не выводится сообщить заданные в обработчиках. От чего могли перестать срабатывать обработчики ПередвыгрузкойОбъекта и ПередКонвертациейОбъекта? Могли ли на это повлиять галки отключить в правилеВыгрузкиДанных. Хотя на тех объектах что переносятся галки отключить не ставились. Но фильтр не срабатывает ( |
|||
1
falselight
07.02.17
✎
12:58
|
почему может не срабатывать такое условие, в ПередВыгрузкойОбъекта?
ИначеЕсли Объект.Метаданные().Реквизиты.Найти("Подразделение") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.Подразделение) Тогда Если НЕ(Объект.Подразделение.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.Подразделение = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; |
|||
2
vicof
07.02.17
✎
13:01
|
Достал попкорн
|
|||
3
azt-yur
07.02.17
✎
13:01
|
возможно эти объекты по ссылке выгружаются
Надежнее условие проставить в обработчике ПередВыгрузкой ПКО |
|||
4
falselight
07.02.17
✎
13:04
|
(3) Проверяю выгрузку на ПриходномОрдере, у него есть реквизит Подразделение.
Я и в ПКО добавил для надежности тоже. |
|||
5
h-sp
07.02.17
✎
13:07
|
(4) попробуй всё-таки проверить не на ПриходномОрдере, там подразделения точно нет.
|
|||
6
vicof
07.02.17
✎
13:14
|
(4) ПКО - это не приходный кассовый ордер, а правило конвертации
|
|||
7
falselight
07.02.17
✎
13:16
|
как будто вот это не работает
ИначеЕсли Объект.Метаданные().Реквизиты.Найти("Подразделение") <> Неопределено Тогда ПриходныйОрдер не типовой документ, там есть подраздеоение 100% и оно не рано нужному, то есть фильтр не срабатывает, в отказ на этом документе не ставит истину не пойму почему |
|||
8
falselight
07.02.17
✎
13:17
|
добавил, фильтр (1) в обработчики и в ПВО и ПКО
в первом Объект, во втором Источник но в отказ истину не ставит ( |
|||
9
azt-yur
07.02.17
✎
13:17
|
(7) Поставь Сообщить до условий и удостоверься точно отрабатываются обработчики или нет?
|
|||
10
h-sp
07.02.17
✎
13:18
|
(7) во первых попробуй
ИначеЕсли Источник.Метаданные().Реквизиты.Найти("Подразделение") <> Неопределено Тогда откуда Объект ты откопал? НЕпонятно. |
|||
11
falselight
07.02.17
✎
13:21
|
(9) Поставил обрабатывает
Причем к привязанному ПриходномуОрдеру идет так же не нужнй РасходныйОрдер и вот он пропускается в обработчике ПКО, ставится отказ в истина, он имеет так же Подразделение, то есть на нем проверяется |
|||
12
falselight
07.02.17
✎
13:22
|
(10) Объект это в обработчике ПередВыгрузкойОбъекта
А Источник это в ПередКонвертациейДанных я и там и там условия проставляю |
|||
13
falselight
07.02.17
✎
13:23
|
вот так в ПКО, иначе же ошибка идет
ИначеЕсли Источник.Метаданные().Реквизиты.Найти("Подразделение") <> Неопределено Тогда Если ЗначениеЗаполнено(Источник.Подразделение) Тогда Если НЕ(Источник.Подразделение.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Источник.Подразделение = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПКО--Источник не выгружен " +СТРОКА(Источник)+"--ПКО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; |
|||
14
falselight
07.02.17
✎
13:24
|
сейчас ошибка, вопрос в том почему же ПриходныйОрдер то не ставится в отказ истина? условия же верные?!
|
|||
15
azt-yur
07.02.17
✎
13:26
|
(14) добавь Сообщить(Объект.Метаданные().Реквизиты.Найти("Подразделение"))
Может все таки реквизит в нем по другому называется или тип другой имеет? |
|||
16
h-sp
07.02.17
✎
13:27
|
(12) Источник надо
|
|||
17
falselight
07.02.17
✎
13:58
|
(15) попробую, но он иметт искомый тип, и идентификатор такой же, разбираюсь пока не понял в чем дело
|
|||
18
falselight
07.02.17
✎
13:59
|
(16) Источник нужно в перед конвертацией объекта
|
|||
19
falselight
07.02.17
✎
14:06
|
получается что приходный ордер можно проверить только в обработчике перед выгрузкой объекта, но там ему не ставится отказ истина
связанному же расходному ордеру по ссылке с ним, ставится отказ истина в перед конвертацией объекта что с этим делать? |
|||
20
falselight
07.02.17
✎
14:18
|
получается условие на первый объект не срабатывает
|
|||
21
h-sp
07.02.17
✎
14:30
|
(20) и не должног отработать. Всё правильно.
|
|||
22
falselight
07.02.17
✎
14:32
|
(21) как не должно? почему?
|
|||
23
falselight
07.02.17
✎
14:33
|
проверяю вот так вот
Сообщить("*** Идет на выгрузку, перед фильтром " + СТРОКА(Объект)+"--ПВО--"); Сообщить("У него реквизит подразделение " + Строка(Объект.Метаданные().Реквизиты.Найти("Подразделение"))); втрое сообщить выводит "У него реквизит подразделение " и пусто. Подскажите что не так, кому очевидно? |
|||
24
h-sp
07.02.17
✎
15:04
|
(23) потому что 10 лет уже вам талдычим. В Приходном ордере подразделение находится в табличной части РасшифровкаПлатежа. Проверяйте табчасть РасшифровкаПлатежа. Когда вы уже запомните?
|
|||
25
azt-yur
07.02.17
✎
15:09
|
(24) А вы не допускаете, что речь про документ Приходный ордер на товары, а не Приходный кассовый ордер?
К тому же в (7) ТС сказал, что док не типовой |
|||
26
falselight
07.02.17
✎
15:11
|
//
Сообщить("*** Идет на выгрузку, перед фильтром " + СТРОКА(Объект)+"--ПВО--"); Сообщить("У него реквизит подразделение " + Строка(Объект.Метаданные().Реквизиты.Найти("Подразделение"))); Сообщить("Значение реквизита подразделение " + Объект.Подразделение.Наименование); // *** Идет на выгрузку, перед фильтром Приходный ордер 010009623 от 23.12.2016 12:00:00--ПВО-- У него реквизит подразделение Подразделение Значение реквизита подразделение АММОК - из этого следует что у документа есть реквизит подразделение, и оно не то которое нужно, то есть документ должен пропуститься |
|||
27
falselight
07.02.17
✎
15:12
|
То есть я выяснил, так как там идет много условий
Если ИначеЕсли ИначеЕсли ИначеЕсли ... ИначеЕсли КонецЕсли По этому и не работает, нужно на каждый объект делать своё, если конец если. |
|||
28
h-sp
07.02.17
✎
15:13
|
(25) он всё равно ничего не слушает. Поэтому можно писать всё.
|
|||
29
h-sp
07.02.17
✎
15:17
|
(27) ну эта штука выходит?
Сообщить("--ПКО--Источник не выгружен " +СТРОКА(Источник)+"--ПКО--"); |
|||
30
azt-yur
07.02.17
✎
15:18
|
(27) т.е. он у тебя тупо не доходит до твоего ИначеЕсли Объект.Метаданные().Реквизиты.Найти("Подразделение") <> Неопределено Тогда... ? а находит подходящее условие раньше?
Ну тогда убери Иначе и сделай все условия в отдельных блоках |
|||
31
h-sp
07.02.17
✎
15:19
|
(27) весь обработчик кинь сюда
|
|||
32
falselight
07.02.17
✎
15:20
|
(24) да не типовой это документ, у него в шапке, среди реквизитов подразделение
|
|||
33
falselight
07.02.17
✎
15:21
|
(29)
--ПВО--Объект не выгружен Приходный ордер 010009623 от 23.12.2016 12:00:00--ПВО-- | --ПВО--ВЫГРУЖАЕТСЯ Приходный ордер 010009623 от 23.12.2016 12:00:00 СО СТАТУСОМ < Отказ = Да> --ПВО-- Окончание выгрузки: 07.02.2017 15:09:42 Выгружено объектов: 0 |
|||
34
falselight
07.02.17
✎
15:22
|
(30) ну я так и решил сделать
посмотрю, будет работать так уже или как |
|||
35
falselight
07.02.17
✎
15:24
|
(31) загружается пока правило в КД, оно длительно грузится
ну там идет проверка всех реквизитов имеющих тип справочника подразделение организации, поиск их у объекта, проверка на заполненность и сравнение с нужным подразделением |
|||
36
falselight
07.02.17
✎
15:57
|
(31)
// Сообщить("*** Идет на выгрузку, перед фильтром " + СТРОКА(Объект)+"--ПВО--"); Сообщить("У него реквизит подразделение " + Строка(Объект.Метаданные().Реквизиты.Найти("Подразделение"))); Сообщить("Значение реквизита подразделение " + Объект.Подразделение.Наименование); // ПодразделениеФильтр = Справочники.ПодразделенияОрганизаций.НайтиПоКоду("СВ0000028"); // КХМ ПОРТ САЛЕ // Если Объект.Метаданные().Реквизиты.Найти("Подразделение") <> Неопределено Тогда Сообщить("**"); Сообщить("--ПВО--Имет реквизит подразделение--ПВО--"); Сообщить("**"); Если ЗначениеЗаполнено(Объект.Подразделение) Тогда Сообщить("**"); Сообщить("--ПВО--Подразделение заполнено--ПВО--"); Сообщить("**"); Если НЕ(Объект.Подразделение.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.Подразделение = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; Иначе Сообщить("*"); Сообщить("--ПВО--Объект выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("--ПВО--Имеет подразделение " +СТРОКА(Объект.Подразделение)+"--ПВО--"); Сообщить("*"); КонецЕсли; КонецЕсли; КонецЕсли; // ФильтрНГ = Справочники.НоменклатурныеГруппы.НайтиПоКоду("СВ0000062"); // //ПОПЫТКА; // // 1. бит_ПодразделениеОрганизации // 2. бит_стр_ПодразделениеЗатратФЗЗ // 3. РК_Подразделение // 4. бит_Подразделение // 5. ТекущееПодразделениеОрганизации // 6. ПодразделениеОрганизации // 7. ПодразделениеДт // 8. ПодразделениеКт // 9. бит_мат_Подразделение // 10. Подразделение // 11. ПодразделениеЗатрат // 12. ПодразделениеРасчетов // 13. ПодразделениеКор // 14. Контрагент // 15. Местонахождение_старый // 16. Местонахождение // 17. ПодразделениеПолучатель // 18. ПодразделениеОтправитель // 19. Местонахождение_Новое // 20. ПодразделениеЗатратБаза // 21. бит_стр_ПодразделениеЗатрат // 22. МестонахождениеОС // 23. ПодразделениеОрганизацииПоАмортизационнойПремии // 24. бит_аэро_Подразделение // Если Объект.Метаданные().Реквизиты.Найти("бит_аэро_Подразделение") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.бит_аэро_Подразделение) Тогда Если НЕ(Объект.бит_аэро_Подразделение.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.бит_аэро_Подразделение = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("бит_ПодразделениеОрганизации") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.бит_ПодразделениеОрганизации) Тогда Если НЕ(Объект.бит_ПодразделениеОрганизации.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.бит_ПодразделениеОрганизации = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("бит_стр_ПодразделениеЗатратФЗЗ") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.бит_стр_ПодразделениеЗатратФЗЗ) Тогда Если НЕ(Объект.бит_стр_ПодразделениеЗатратФЗЗ.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.бит_стр_ПодразделениеЗатратФЗЗ = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("бит_Подразделение") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.бит_Подразделение) Тогда Если НЕ(Объект.бит_Подразделение.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.бит_Подразделение = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("ТекущееПодразделениеОрганизации") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.ТекущееПодразделениеОрганизации) Тогда Если НЕ(Объект.ТекущееПодразделениеОрганизации.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.ТекущееПодразделениеОрганизации = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("ПодразделениеКор") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.ПодразделениеКор) Тогда Если НЕ(Объект.ПодразделениеКор.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.ПодразделениеКор = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("Контрагент") <> Неопределено Тогда // проверять тип Объект.Контрагент на Справочник.ПодразделенияОрганизации Если ТипЗнч(Объект.Контрагент) = Тип("СправочникСсылка.ПодразделенияОрганизаций") Тогда Если ЗначениеЗаполнено(Объект.Контрагент) Тогда Если НЕ(Объект.Контрагент.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.Контрагент = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("Местонахождение_старый") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.Местонахождение_старый) Тогда Если НЕ(Объект.Местонахождение_старый.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.Местонахождение_старый = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("Местонахождение") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.Местонахождение) Тогда Если НЕ(Объект.Местонахождение.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.Местонахождение = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("ПодразделениеОтправитель") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.ПодразделениеОтправитель) Тогда Если НЕ(Объект.ПодразделениеОтправитель.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.ПодразделениеОтправитель = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("Местонахождение_Новое") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.Местонахождение_Новое) Тогда Если НЕ(Объект.Местонахождение_Новое.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.Местонахождение_Новое = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("бит_стр_ПодразделениеЗатрат") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.бит_стр_ПодразделениеЗатрат) Тогда Если НЕ(Объект.бит_стр_ПодразделениеЗатрат.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.бит_стр_ПодразделениеЗатрат = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("МестонахождениеОС") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.МестонахождениеОС) Тогда Если НЕ(Объект.МестонахождениеОС.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.МестонахождениеОС = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("ПодразделениеОрганизацииПоАмортизационнойПремии") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.ПодразделениеОрганизацииПоАмортизационнойПремии) Тогда Если НЕ(Объект.ПодразделениеОрганизацииПоАмортизационнойПремии.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.ПодразделениеОрганизацииПоАмортизационнойПремии = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("РК_ПодразделениеОрганизации") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.РК_ПодразделениеОрганизации) Тогда Если НЕ(Объект.РК_ПодразделениеОрганизации.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.РК_ПодразделениеОрганизации = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("бит_мат_Подразделение") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.бит_мат_Подразделение) Тогда Если НЕ(Объект.бит_мат_Подразделение.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.бит_мат_Подразделение = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("СтруктурноеПодразделение") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.СтруктурноеПодразделение) Тогда Если НЕ(Объект.СтруктурноеПодразделение.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.СтруктурноеПодразделение = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("Подразделение") <> Неопределено Тогда Сообщить("**"); Сообщить("--ПВО--Имет реквизит подразделение--ПВО--"); Сообщить("**"); Если ЗначениеЗаполнено(Объект.Подразделение) Тогда Сообщить("**"); Сообщить("--ПВО--Подразделение заполнено--ПВО--"); Сообщить("**"); Если НЕ(Объект.Подразделение.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.Подразделение = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; Иначе Сообщить("*"); Сообщить("--ПВО--Объект выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("--ПВО--Имеет подразделение " +СТРОКА(Объект.Подразделение)+"--ПВО--"); Сообщить("*"); КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("ПодразделениеОрганизации") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.ПодразделениеОрганизации) Тогда Если НЕ(Объект.ПодразделениеОрганизации.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.ПодразделениеОрганизации = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("ПодразделениеЗатрат") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.ПодразделениеЗатрат) Тогда Если НЕ(Объект.ПодразделениеЗатрат.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.ПодразделениеЗатрат = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("ПодразделениеЗатратБаза") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.ПодразделениеЗатратБаза) Тогда Если НЕ(Объект.ПодразделениеЗатратБаза.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.ПодразделениеЗатратБаза = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("ПодразделениеРасчетов") <> Неопределено Тогда Если ЗначениеЗаполнено(Объект.ПодразделениеРасчетов) Тогда Если НЕ(Объект.ПодразделениеРасчетов.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.ПодразделениеРасчетов = ПодразделениеФильтр) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; КонецЕсли; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("ПодразделениеДт") <> Неопределено И Объект.Метаданные().Реквизиты.Найти("ПодразделениеКт") <> Неопределено И (НЕ(Объект.ПодразделениеДт.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.ПодразделениеДт = ПодразделениеФильтр) И НЕ(Объект.ПодразделениеКт.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.ПодразделениеКт = ПодразделениеФильтр)) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("ПодразделениеПолучатель") <> Неопределено И Объект.Метаданные().Реквизиты.Найти("ПодразделениеОтправитель") <> Неопределено И (НЕ(Объект.ПодразделениеПолучатель.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.ПодразделениеПолучатель = ПодразделениеФильтр) И НЕ(Объект.ПодразделениеОтправитель.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.ПодразделениеОтправитель = ПодразделениеФильтр)) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; ИначеЕсли Объект.Метаданные().Реквизиты.Найти("Подразделение") <> Неопределено И Объект.Метаданные().Реквизиты.Найти("ПодразделениеОтправитель") <> Неопределено И (НЕ(Объект.Подразделение.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.Подразделение = ПодразделениеФильтр) И НЕ(Объект.ПодразделениеОтправитель.ПринадлежитЭлементу(ПодразделениеФильтр) ИЛИ Объект.ПодразделениеОтправитель = ПодразделениеФильтр)) Тогда Сообщить("|"); Сообщить("--ПВО--Объект не выгружен " +СТРОКА(Объект)+"--ПВО--"); Сообщить("|"); Отказ = Истина; КонецЕсли; // Сообщить("--ПВО--ВЫГРУЖАЕТСЯ " + СТРОКА(Объект)+" СО СТАТУСОМ < Отказ = " + СТРОКА(Отказ) +"> --ПВО--"); // //ИСКЛЮЧЕНИЕ; // СООБЩИТЬ("В --ПВО-- исключен " + СТРОКА(Объект)); //КОНЕЦПОПЫТКИ; // |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |