не поможете переделать функцию? хочется избавиться от константы и чтобы не переделать когда новый склад появиться. это в идеале :)

функция ОпределитьНомерМагазина(текСсылка) экспорт
   
   типДок = типЗнч(текСсылка);
   
   склад1 = "<не заполнено>";
   склад2 = "<не заполнено>";
   
   складМагазин1 = _допКонстантаПолучить("СкладМагазин1");
   складМагазин2 = _допКонстантаПолучить("СкладМагазин2");
   
   если тип("ДокументСсылка.ВозвратТоваровПоставщикуИзНТТ") = типДок или
        тип("ДокументСсылка.ПоступлениеТоваровУслугВНТТ")   = типДок или    
        тип("ДокументСсылка.СписаниеТоваров")               = типДок тогда    
       
       склад1 = текСсылка.Склад;
       склад2 = "<не заполнено>";
       
   иначеЕсли тип("ДокументСсылка.ПеремещениеТоваров") = типДок тогда    
       
       склад1 = текСсылка.СкладОтправитель;
       склад2 = текСсылка.СкладПолучатель;
       
   иначе      
       
       возврат 0;    
       
   конецЕсли;
   
   если складМагазин1 = склад1 или складМагазин1 = склад2 тогда
       
       возврат 1;    
       
   иначеЕсли складМагазин2 = склад1 или складМагазин2 = склад2 тогда    
       
       возврат 2;    
       
   иначе      
       
       возврат 0;    
       
   конецЕсли;    
   
конецФункции

за такие функции надо руки выдергивать и бить ими по щекам

(1) честно признаюсь что не моя.

(2) дада... доставайте вашего друга, показывайте

http://lurkmore.to/У_моей_подруги_с_её_парнем

(4) так и думал что кто-нибудь скинет эту ссылку :). но честное слово не я писал :)

склад с подразделением обычно связан. вот запросом выдёргивай по разным подразделениям склады например... я хз что тут вобще за логика. Всё переделать

надо у друга спросить, чего он хотел добиться данной функцией

сделайте у склада реквизит "НомерМагазина"

(6) вот и хочу полностью переделать
(8) регистр :)

реквизит НомерМагазина добавь в справочник склады в конце концов

(9) ну хочешь регистр, но ради этого заводить регистр сведений?

(10) у нас действует политика "девственная" конфигурация :)

а может быть для подразделение а не к складу?

>у нас действует политика "девственная" конфигурация

судя по коду вас давно пора ее лишить...

да ладно тебе Д'артаньян!

Ещё есть Свойства и Категории, дабы не лишать девственности...

(16) знаю знаю :)

+ (17) и скорее всего свойства и буду использовать дабы не добавить справочник только для этого.

что-то совсем непродуктивная неделя у меня.
вот что получилось. как-то смущяет конструкция когда тип документа ПеремещениеТоваров.

   Запрос = Новый Запрос;
   Запрос.Текст =
       "ВЫБРАТЬ
       |    ЗначенияСвойствОбъектов.Значение КАК КлючьНомерМагазина
       |ИЗ
       |    Документ." + СсылкаДокумента.Метаданные().Имя + " КАК ДокументРТ
       |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
       |        ПО ДокументРТ.Склад = ЗначенияСвойствОбъектов.Объект
       |            И (ЗначенияСвойствОбъектов.Свойство = &СвойствоСоответствиеРТиНомерМагазина)
       |ГДЕ
       |    ДокументРТ.Ссылка = &Ссылка
       |    И ЗначенияСвойствОбъектов.Значение ЕСТЬ НЕ NULL ";

   СвойствоСоответствиеРТиНомерМагазина = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Соответствие РТ и номер магазина");    
   Запрос.УстановитьПараметр("СвойствоСоответствиеРТиНомерМагазина", СвойствоСоответствиеРТиНомерМагазина);
   Запрос.УстановитьПараметр("Ссылка", СсылкаДокумента);
   
   //Меняем запрос если это ПеремешениеТоваров
   Если Тип("ДокументСсылка.ПеремещениеТоваров") = ТипЗнч(СсылкаДокумента) Тогда
       Запрос.Текст = СтрЗаменить(Запрос.Текст, "ПО ДокументРТ.Склад = ЗначенияСвойствОбъектов.Объект", "ПО ДокументРТ.СкладОтправитель = ЗначенияСвойствОбъектов.Объект");
       
       Если Запрос.Выполнить().Выбрать().Следующий() Тогда
           
           ВыборкаДетальныеЗаписи = Запрос.Выполнить().Выбрать();
           Возврат СокрЛП(ВыборкаДетальныеЗаписи.КлючьНомерМагазина);
       
       Иначе
           З = Новый Запрос;
           З.Текст =
           "ВЫБРАТЬ
           |    ЗначенияСвойствОбъектов.Значение КАК КлючьНомерМагазина
           |ИЗ
           |    Документ." + СсылкаДокумента.Метаданные().Имя + " КАК ДокументРТ
           |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
           |        ПО ДокументРТ.СкладПолучатель = ЗначенияСвойствОбъектов.Объект
           |            И (ЗначенияСвойствОбъектов.Свойство = &СвойствоСоответствиеРТиНомерМагазина)
           |ГДЕ
           |    ДокументРТ.Ссылка = &Ссылка
           |    И ЗначенияСвойствОбъектов.Значение ЕСТЬ НЕ NULL ";
           З.УстановитьПараметр("СвойствоСоответствиеРТиНомерМагазина", СвойствоСоответствиеРТиНомерМагазина);
           З.УстановитьПараметр("Ссылка", СсылкаДокумента);
           Результат = З.Выполнить();            
           ВыборкаДетальныеЗаписи = Результат.Выбрать();            
           Если ВыборкаДетальныеЗаписи.Следующий() Тогда
               
               Возврат СокрЛП(ВыборкаДетальныеЗаписи.КлючьНомерМагазина);
               
           Иначе
               
               Возврат "";
               
           КонецЕсли;
       КонецЕсли;
   КонецЕсли;

   Результат = Запрос.Выполнить();

   ВыборкаДетальныеЗаписи = Результат.Выбрать();

   Если ВыборкаДетальныеЗаписи.Следующий() Тогда
       Возврат СокрЛП(ВыборкаДетальныеЗаписи.КлючьНомерМагазина);
   Иначе
       Возврат ""; //Всегда проверить на пусту строку везде где используется функция!!        
   КонецЕсли;

надеюсь эта функция вызывается в цикле?

*смущает

причем тут вызов из цикла? :) из любой коллекции документов(да, тут цикл конечно) вызываеться это функция.

(22) ну хвост тебе в ж...
запрос в цикле тут не любят ))

))) у меня в конвертации есть массив документов которых нужно обработать/преобразовать для передачи в другой ИБ(это в общем :)) и там естественно нужно заполнить одно поле(служебное) документа. да, так получилось что циклом обхожу документы :)

возможно да, нужно пересмотреть эту обработку документов чтобы  запросы небыли в цикле :)

а так функция сгодится? :)