Имя: Пароль:
1C
1С v8
Запрет на миграцию документов
,
0 Algiz
 
18.01.12
23:19
Процедура ПриОтправкеДанныхПодчиненному(ЭлементДанных, ОтправкаЭлемента, СозданиеНачальногоОбраза)
   ТипДанных = ТипЗнч(ЭлементДанных);
   Если ТипДанных <> Тип("ДокументОбъект.Ссылка") Тогда
       ОтправкаЭлемента = ОтправкаЭлементаДанных.Авто;
   Иначе
       ОтправкаЭлемента = ОтправкаЭлементаДанных.Игнорировать;
       
   КонецЕсли;
КонецПроцедуры

Тип("ДокументОбъект.Ссылка") - Подскажите, что сюда подставить, что бы "одной строкой" запретить миграцию в подчиненный узел всех документов из главного? Не хочет прописывать каждый документ.
1 Aleksey
 
18.01.12
23:25
В типовой есть такой код

ИмяБазовогоТипа = мИнформацияОБазовыхТипах.Получить(ТипОбъекта);
...
Если ИмяБазовогоТипа = "Справочники" ИЛИ ИмяБазовогоТипа = "Документы" Тогда
2 Aleksey
 
18.01.12
23:26
Функция ПолучитьИмяБазовогоТипаПоТипуОбъекта(ТипОбъекта) Экспорт
   
   МетаданныеТипа = Метаданные.НайтиПоТипу(ТипОбъекта);
   
   Если МетаданныеТипа = Неопределено Тогда
       
       Возврат "УдалениеОбъекта";
       
   ИначеЕсли Метаданные.РегистрыСведений.Содержит(МетаданныеТипа) Тогда
       
       Возврат "РегистрыСведений";
       
   ИначеЕсли Метаданные.Документы.Содержит(МетаданныеТипа) Тогда
       
       Возврат "Документы";
       
   ИначеЕсли Метаданные.Справочники.Содержит(МетаданныеТипа) Тогда
       
       Возврат "Справочники";    
       
   ИначеЕсли Метаданные.РегистрыНакопления.Содержит(МетаданныеТипа) Тогда
   
       Возврат "РегистрыНакопления";    
       
   ИначеЕсли Метаданные.РегистрыБухгалтерии.Содержит(МетаданныеТипа) Тогда
   
       Возврат "РегистрыБухгалтерии";    
     
   Иначе
     
       Возврат "";
       
   КонецЕсли;
           
КонецФункции
3 Aleksey
 
18.01.12
23:27
Т.е.
ТипДанных = ТипЗнч(ЭлементДанных);
Если Метаданные.Документы.Содержит(ТипДанных) Тогда
// это документ
4 Algiz
 
18.01.12
23:33
спасибо, завтра буду пробовать
Программист всегда исправляет последнюю ошибку.