Имя: Пароль:
1C
1C 7.7
v7: При запросе к бухитогам по набору бухсчетов с чего начинается выборка?
0 Владимир1С
 
30.05.12
16:52
Прошу прощения за подобный вопрос, давно не занимался бухитогами.

   БухИтДоп = СоздатьОбъект("БухгалтерскиеИтоги");
   БухИтДоп.ИспользоватьСубконто(ВидыСубконто.Номенклатура, СписокТоваров,2);
   БухИтДоп.ИспользоватьСубконто(ВидыСубконто.МестаХранения,местоХранения,2);
   БухИтДоп.ВыполнитьЗапрос(ТекущийДокумент(),,"41.1,41.4",,,,,"4");
   
   ТБОст = СоздатьОбъект("ТаблицаЗначений");
   
   ТБОст.новаяКолонка("Ном"  ,"справочник.Номенклатура");
   ТБОст.новаяКолонка("КолВо","число");
   
   Если БухИтДоп.ВыбратьСубконто(1) = 1 тогда
       
       Пока БухИтДоп.получитьСубконто(1) = 1  Цикл
           если БухИтДоп.ВыбратьСчета()=1 тогда
               Пока БухИтДоп.ПолучитьСчет() = 1 цикл
                   
                   нс = "";нк = "";
                   
                   Если ТБОст.найтиЗначение(БухИтДоп.Субконто(1),нс,нк)=1 тогда
                       ТБОст.установитьЗначение(нс,"КолВо",ТБОст.получитьЗначение(нс,"КолВо")+БухИтДоп.СНД("К"));    
                   иначе    
                       ТБОст.новаяСтрока();
                       ТБОст.Ном   = БухИтДоп.Субконто(1);
                       ТБОст.КолВо = БухИтДоп.СНД("К");
                   конецЕсли;    
               КонецЦикла;
           конецЕсли;    
       КонецЦикла;
                 
   КонецЕсли;
1 chief accountant
 
30.05.12
16:53
Субконто(1)
2 Владимир1С
 
30.05.12
16:54
(1) ничего не выводит, хотя на 41.4 остатки есть.
3 viktor_vv
 
30.05.12
17:00
А отладчиком в циклы заходит ?
4 viktor_vv
 
30.05.12
17:02
И вставь

Пока БухИтДоп.ПолучитьСчет() = 1 цикл
    Сообщить(""+БухИтДоп.Счет);


Выведет что-то?
5 chief accountant
 
30.05.12
17:08
(2) попробуй так:
БухИтДоп.ИспользоватьСубконто(ВидыСубконто.Номенклатура);

работает?
6 АНДР
 
30.05.12
17:10
Проверьте период и , вроде, последня 4 должна быть без кавычек.
ЗЫ как всё быстро забывается...
7 Владимир1С
 
30.05.12
20:09
Всё в порядке - данные были, но в другом месте.
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс