Всем доброго дня.

Почему то в отчет попадают только некоторые записи, хотя в справочнике они проставлены?

ОС.Подразделение.Получить( ТекущаяДата() )

Запрос плохо работает с периодикой.

(0) Не все элементы справочника ОС выводятся? Или не во всех, выведенных в отчет элементах, отображается подразделение?

В отчет выводятся все элементы справочника ОС. Но не все реквизиты <Подразделение> выводятся, хотя их значения установлены (в разные годы)

(3) Открой ту шмэл, у которой не выводится, и посмотри историю реквизитов.

Я в историю и смотрю. Там все проставлено

НачДата = "01.12.2018";
    КонДата = "31.12.2018";
                                
    БИ = СоздатьОбъект("БухгалтерскиеИтоги");  
    
    БИ.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства);
    
    // в запросе количество не берем
    Если БИ.ВыполнитьЗапрос(НачДата,КонДата,"Н05.01,Н05.02",,,1,,1) = 0 Тогда
        Предупреждение("Не удается выполнить запрос к бухгалтерским итогам!",60);
        Возврат;
    КонецЕсли;
    
    СпрОС     = СоздатьОбъект("Справочник.ОсновныеСредства");
    СпрОС.ИспользоватьДату(ТекущаяДата(),1);              
    СпрПодр = СоздатьОбъект("Справочник.Подразделения");  
    
    БИ.ВыбратьСубконто(1);
    Пока БИ.ПолучитьСубконто(1) = 1 Цикл  
        
                
        ТекОС=БИ.Субконто(1);
        ТекОС.ИспользоватьДату(ТекущаяДата(),1);              
        
        ОС = СпрОС.НайтиПоКоду(ТекОС.Код); // Найдем ОС по инв.номеру
        
        //Если Подр.НайтиПоКоду(Подр)=1 Тогда
            Сообщить("ОС = "+СпрОС.Код+"     ТекОС.Код = "+ТекОС.Код+"   СпрОС.Подразделение = "+СпрОС.Подразделение);
        //КонецЕсли;
        



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

(6) База файловая? индексный файл убей. Только из программы выйди.
Только индексный убей, а не рабочий

он заканчивается на cdx

(6) Не понял зачем брать ОС из итогов, потом его искать в справочнике, а потом подразделение брать уже из справочника?

СпрОС.НайтиПоКоду по ходу не всегда находит

(9) в нике ответ же

(10) Ему объект нужен, а не ссылка...

А подразделение ему нужно на дату...

А в семерке разве не было НайтиЭлемент? Маразм проклятый.

Маразм = склероз. Точно, это склероз называется...

(14) было
СпрОС.НайтиЭлемент(ТекОС)

Сообщить("ОС = "+СпрОС.Код+"     ТекОС.Код = "+ТекОС.Код+"   СпрОС.Подразделение = "+СпрОС.Подразделение);

СпрОС.Код и ТекОС.Код - выводят одинаковые значения во всех записях, а СпрОС.Подразделение - выводит всего несколько штук из 5 тысяч

(0) нахрена вообще там бух запрос... ну и ладно..

ТекОС=БИ.Субконто(1);
Сообщить("ОС = "+ТекОС+"     ТекОС.Код = "+ТекОС.Код+"   ТекОС.Подразделение = "+ТекОС.Подразделение.Получить(ТекущаяДата()));

+ 18 только убрать вот это ТекОС.ИспользоватьДату(ТекущаяДата(),1);

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

(20) для СпрОс он ттоже написал использоватьдату, до бух запроса

Несколько подразделений все таки выводятся, вот что удивляет

ОС = м860ах     ТекОС.Код = м860ах   СпрОС.Подразделение = Цех №32 (транспортный цех)

(0) СпрОС.Подразделение.Получить(ТекущаяДата()) - что показывает (СпрОС.ИспользоватьДату - надо закоментировать) ?

.Получить(<Дата>)
.....
Метод  можно использовать только для периодических реквизитов справочника и если для справочника еще не применялся метод ИспользоватьДату.

(23) пробуй как в (18) написано.
и не забудь (19)

и на всякий случай, ТекущаяДата() что возвращает?

текущая дата 25.01.2019

ОС = Винтовой компрессор SB 75-08 инв.№5290117     ТекОС.Код = 5290117   ТекОС.Подразделение = Цех №2 (литейный)

Сделано как в (18), только несколько записей из тысяч выдает

(29) весь код покажи

(29) А еще посмотреть бы скрин с историей того ОС, подразделение которого не попадает

Процедура Сформировать()        
                                                
    Если НачДата = Дата(0) Тогда
        НачДата = НачалоПериодаБИ();
    КонецЕсли;    
    
    Если КонДата = Дата(0) Тогда
        КонДата = КонецПериодаБИ();
    КонецЕсли;
    
    НачДата = "01.12.2018";
    КонДата = "31.12.2018";
                                
    БИ = СоздатьОбъект("БухгалтерскиеИтоги");  
    
    БИ.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства);
    
    // в запросе количество не берем
    Если БИ.ВыполнитьЗапрос(НачДата,КонДата,"Н05.01,Н05.02",,,1,,1) = 0 Тогда
        Предупреждение("Не удается выполнить запрос к бухгалтерским итогам!",60);
        Возврат;
    КонецЕсли;
    
    //Выбранные бухгалтерские итоги поместим в таблицу значений
    Результат = СоздатьОбъект("ТаблицаЗначений");
    Результат.НоваяКолонка("ОС");
    Результат.НоваяКолонка("Группа");
    Результат.НоваяКолонка("нБаланс", "Число");
    Результат.НоваяКолонка("оБаланс", "Число");
    Результат.НоваяКолонка("кБаланс", "Число");
    Результат.НоваяКолонка("нАмортизация", "Число");
    Результат.НоваяКолонка("оАмортизация", "Число");
    Результат.НоваяКолонка("кАмортизация", "Число");
    
    СпрОС     = СоздатьОбъект("Справочник.ОсновныеСредства");
    СпрОС.ИспользоватьДату(ТекущаяДата(),1);              
    СпрПодр = СоздатьОбъект("Справочник.Подразделения");  
    
    БИ.ВыбратьСубконто(1);
    Пока БИ.ПолучитьСубконто(1) = 1 Цикл  
        
                
        ТекОС=БИ.Субконто(1);
        //ТекОС.ИспользоватьДату(ТекущаяДата(),1);              
        
        ОС = СпрОС.НайтиПоКоду(ТекОС.Код); // Найдем ОС по инв.номеру
        
        Если ТекОС.Выбран()=0 Тогда
            Продолжить;
        КонецЕсли;
        
        
        Результат.НоваяСтрока();    
        Результат.ОС=ТекОС;
        Результат.Группа=ТекОС.СубСчет01;
        
        БИ.ВыбратьСчета();
        Если БИ.ПолучитьСчет(,СчетПоКоду("Н05.01"))=1 Тогда
            Результат.нБаланс = БИ.СНД(1);
            Результат.кБаланс = БИ.СКД(1);
            Результат.оБаланс = БИ.ДО(1) - БИ.КО(1);
        КонецЕсли;
        Если БИ.ПолучитьСчет(,СчетПоКоду("Н05.02"))=1 Тогда
            Результат.нАмортизация = Результат.нАмортизация + БИ.СНК(1);    
            Результат.кАмортизация = Результат.кАмортизация + БИ.СКК(1);
            Результат.оАмортизация = Результат.оАмортизация + БИ.КО(1)-БИ.ДО(1);
        КонецЕсли;
    КонецЦикла;
    
    Результат.Свернуть("ОС,Группа","нБаланс,кБаланс,оБаланс,нАмортизация,кАмортизация,оАмортизация");
    Результат.Сортировать("Группа,ОС");
    // Создадим еще три таблицы значений для итогов по счету, подразделению и участку
    ИтогоГруппа = СоздатьОбъект("ТаблицаЗначений");
    ИтогоГруппа.Загрузить(Результат);

    ИтогоГруппа.Свернуть("Группа","нБаланс,кБаланс,оБаланс,нАмортизация,кАмортизация,оАмортизация");
    
    
    Таблица = СоздатьОбъект("Таблица");
    Таблица.ИсходнаяТаблица( "Таблица" );
    Таблица.ВывестиСекцию("С1");
    Таблица.ВывестиСекцию("С2");
    

    Результат.ВыбратьСтроки();
    ПредыдущаяГруппа="";
    
    N = 1;          
    Пока Результат.ПолучитьСтроку()=1 Цикл
        Если ПредыдущаяГруппа<>Результат.Группа Тогда
            Группа="("+Результат.Группа+") "+Результат.Группа.Наименование;
            Стр="";
            нБалансИтогоГр=0;
            оБалансИтогоГр=0;
            кБалансИтогоГр=0;
            
            нАмортизацияИтогоГр=0;
            оАмортизацияИтогоГр=0;
            кАмортизацияИтогоГр=0;
            
            нОстатокИтогоГр=0;
            кОстатокИтогоГр=0;
            Если ИтогоГруппа.НайтиЗначение(Результат.Группа,Стр,1)=1 Тогда
                ИтогоГруппа.ПолучитьСтрокуПоНомеру(Стр);
                нБалансИтогоГр=ИтогоГруппа.нБаланс;
                оБалансИтогоГр=ИтогоГруппа.оБаланс;
                кБалансИтогоГр=ИтогоГруппа.кБаланс;
                
                нАмортизацияИтогоГр=ИтогоГруппа.нАмортизация;
                оАмортизацияИтогоГр=ИтогоГруппа.оАмортизация;
                кАмортизацияИтогоГр=ИтогоГруппа.кАмортизация;
                
                нОстатокИтогоГр=ИтогоГруппа.нБаланс-ИтогоГруппа.нАмортизация;
                кОстатокИтогоГр=ИтогоГруппа.кБаланс-ИтогоГруппа.кАмортизация;
            КонецЕсли;
            
        КонецЕсли;
        
        ОС=Результат.ОС;              
        
        ДатаКонцаАмортизации = ОС.ДатаВводаВЭксплуатацию;
        ДатаКонцаАмортизации = ДобавитьМесяц(ДатаКонцаАмортизации,ОС.СрокПолезногоИспользования);;
        
    
        нБаланс=Результат.нБаланс;
        оБаланс=Результат.оБаланс;
        кБаланс=Результат.кБаланс;
        
        нАмортизация=Результат.нАмортизация;
        оАмортизация=Результат.оАмортизация;
        кАмортизация=Результат.кАмортизация;
        
        нОстаток=нБаланс-нАмортизация;
        кОстаток=кБаланс-кАмортизация;
                                                 
        Таблица.ВывестиСекцию("С4");  
        N = N + 1;
        ПредыдущаяГруппа=Результат.Группа;
    КонецЦикла;
    
    нБалансИтого=Результат.Итог("нБаланс");
    оБалансИтого=Результат.Итог("оБаланс");
    кБалансИтого=Результат.Итог("кБаланс");
    нАмортизацияИтого=Результат.Итог("нАмортизация");
    оАмортизацияИтого=Результат.Итог("оАмортизация");
    кАмортизацияИтого=Результат.Итог("кАмортизация");
    нОстатокИтого=Результат.Итог("нБаланс")-Результат.Итог("нАмортизация");
    кОстатокИтого=Результат.Итог("кБаланс")-Результат.Итог("кАмортизация");
      
    Таблица.ВывестиСекцию("С5");
    Таблица.Опции(0,0,0,0,"ОпцииОтчетаПоОС");
    Таблица.ТолькоПросмотр(1);
    Таблица.Показать("Отчет по ОС");
КонецПроцедуры

(29) Код написан верно. Может там в истории на эту дату и правда нет значений подразделения?

(29)

Там в истории встречаются 2012, 2013, 2014 годы, а также 2018

Там индексы битые!!!!! Выйди из базы и удали все CDX. Очистил файлы CDX?
Потом тестирование и исправление запусти "Только тестировать"

(30) получи! ))

Вообще проще Выгрузка-Загрузка

ОС = СпрОС.НайтиПоКоду(ТекОС.Код);//
Замени на
СпрОС.НайтиЭлемент(ТекОС)

и ещё раз пробуй

(32) где тут вообще обращение к подразделению???

А вот это художество

        ОС = СпрОС.НайтиПоКоду(ТекОС.Код);// Найдем ОС по инв.номеру

        
        Если ТекОС.Выбран()=0 Тогда
            Продолжить;
        КонецЕсли;

не наоборот должно идти?

если в запросе при обращении к переодике значение одно, то выводить будет, если несколько значений то будет ПустоеЗначение
зы тема ж баян лет на 10 -15 с ней опоздал

грузи в тз и там с объектом работай как "периодический" при обработке значения

(39) В таблице печатной формы
И вообще ТС добавь колоку в ТЗ , запихни туда подразделения и в конце посмотри что и как заполнилось в ТЗ , через ТЗ.ВыбратьСтроку();

+1 Периодический всегда корректно дает

(41) Запрос-то тут при чем? У него не используется запрос для обращения к периодическому реквизиту.

(45) ты прочитал ветку! читер

(45) 0+1  = 41 )

ТекОС=БИ.Субконто(1);
                    
ОС = СпрОС.НайтиПоКоду(ТекОС.Код);// Найдем ОС по инв.номеру

Зачем по коду то?
Не легше сразу элемент искать?

ОС = СпрОС.НайтиЭлемент(ТекОС);

Может у вас там сто тыщ миллионов элементов с одинаковым кодом

(40) (48) т.е. то, что его в принципе искать не надо... вас не смущает?

(49) немножко )

(48) результат тот же самы - всего несколько подразделений

    СпрОС     = СоздатьОбъект("Справочник.ОсновныеСредства");
    СпрОС.ИспользоватьДату(ТекущаяДата(),1);              
    СпрПодр = СоздатьОбъект("Справочник.Подразделения");  
    
    БИ.ВыбратьСубконто(1);
    Пока БИ.ПолучитьСубконто(1) = 1 Цикл  
        
                
        ТекОС=БИ.Субконто(1);
        ТекОС.ИспользоватьДату(ТекущаяДата(),1);              
        
        //ОС = СпрОС.НайтиПоКоду(ТекОС.Код); // Найдем ОС по инв.номеру
        ОС = СпрОС.НайтиЭлемент(ТекОС);
        
        //Подр = СпрПодр.НайтиПоКоду(ОС.Подразделение.Код); //
                                                              
        
//ТекОС=БИ.Субконто(1);
//Сообщить("ОС = "+ТекОС+"     ТекОС.Код = "+ТекОС.Код+"   ТекОС.Подразделение = "+ТекОС.Подразделение.Получить(ТекущаяДата()));        
        
        //Если Подр.НайтиПоКоду(Подр)=1 Тогда
            Сообщить("ОС = "+СпрОС.Код+"     ТекОС.Код = "+ТекОС.Код+"   СпрОС.Подразделение = "+СпрОС.Подразделение+"  ОС = "+ОС);
        //КонецЕсли;
        
        //Сообщить("ТекОС= "+ТекОС+"     ТекОС.Код = "+ТекОС.Код);

        ////Если ТекОС.Выбран()=0 Тогда
        ////    Продолжить;
        ////КонецЕсли;
        
        //Если (ГруппаОС.Выбран()=1) и (ТекОС.АмортизационнаяГруппа<>ГруппаОС) Тогда
        //    Продолжить;
        //КонецЕсли;
        
        //Если ОбъектОС.ЭтоГруппа()=1 Тогда
        //    Если ТекОС.ПринадлежитГруппе(ОбъектОС)=0 Тогда
        //        Продолжить;
        //    КонецЕсли;
        //КонецЕсли;

проверка Выбран() тож так себе для ТекОС

(51)

   БИ.ВыбратьСубконто(1);
    Пока БИ.ПолучитьСубконто(1) = 1 Цикл  
        ТекОС=БИ.Субконто(1);
        Сообщить("ОС = "+ТекОС+"     ТекОС.Код = "+ТекОС.Код+"   ТекОС.Подразделение = "+ТекОС.Подразделение.Получить(ТекущаяДата()));  
    КонецЦикла;

(51) эээ
после ОС = СпрОС.НайтиЭлемент(ТекОС);
в ОС будет 1 или 0, все смешали в кучу.

верный ответ был в (18). Если после этого выводится что-то не то, то в периодике проблема. может там обнуляется какой-то датой значение.

выполни этот код и никакой отсебятинки

(51) Возьми код ОС, у которого ТОЧНО в истории есть значение реквизита подразделение на сегодняшнюю дату. и напиши простую обработку, что бы вывести его подразделение.

СпрОС     = СоздатьОбъект("Справочник.ОсновныеСредства");
СпрОС.НайтиПоКоду(Тут код ОС напиши);
Сообщить("ОС = "+СпрОС.Код+СпрОС.Наименование+"   СпрОС.Подразделение = "+СпрОС.Подразделение.Получить(ТекущаяДата()));

И ... нафига вообще тебе впёрлось это подразделение, если его в коде потом нет нигде и оно не используется

(57) телепаты говорят в таблице (43)

(54) таконо,
спрос.ТекущийЭлемент() надо присваивать то )
Ну и Ёпрст прав в 53

(57) Я делаю файл выгрузки по ОС, чтобы самопальной обработкой загрузить эти данные, создавая по ходу загрузки элементы справочника ОбъектыЭксплуатации в 1С ERP и тут же создание документов ввода начальных остатков по ним. Проставлять потом вручную подразделения - трудоемко...

(60) и ? как в (53) что хоть ?

(53)

Вот этот код выводит только некоторые подразделения из 5000


БИ.ВыбратьСубконто(1);
    Пока БИ.ПолучитьСубконто(1) = 1 Цикл  
        ТекОС=БИ.Субконто(1);
        Сообщить("ОС = "+ТекОС+"     ТекОС.Код = "+ТекОС.Код+"   ТекОС.Подразделение = "+ТекОС.Подразделение.Получить(ТекущаяДата()));  
    КонецЦикла;

(62) ну значит нет значений периодического реквизита у этих ОС на текущую дату.

(62) У меня прямо в отчете можно кликнуть по колонке Наименовании - открывается эта позиция в справочнике ОС, смотрю - там задано подразделение, а в отчете его нет. Нахожу строку, где подразделение вывелось, открываю эту позицию в справочнике ОС и никакой разницы в <истории> реквизитов я не вижу

(64) чудес не бывает, смотришь не то ОС.

или не тот реквизит

(64) Скриншот окошка с историей значения реквизита подразделение сделай, для ОС, у которого по твоему этот реквизит на текущую дату существует, но в отчет подразделение не выводится.

(66) да, может не тот реквизит..

(64) уверен, что это другое ОС?))

(66) Реквизит называется <Подразделение> и имеет тип Справочник.подразделения

Ну так тогда:

БИ.ВыбратьСубконто(1);
    Пока БИ.ПолучитьСубконто(1) = 1 Цикл  
        ТекОС=БИ.Субконто(1);
      Если ПустоеЗначение(ТекОС.Подразделение.Получить(ТекущаяДата())) = 1 Тогда
      ОткрытьФорму(Текос);
      Возврат;"
     КонецЕсли;

    КонецЦикла;

в открытой форме твоё подразделение есть ?

Короче, нашел ошибку. Оказалось, что в зависимости от вида ОС, подразделение может стоять в Субконто1, Субконто2, в Субконто3

Спасибо Коллеги, что простимулировали дополнительно пошевелить извилинами!:)