Имя: Пароль:
1C
1C 7.7
v7: Как получить итоги по субконто ?
,
0 r1000
 
26.12.18
18:21
Добрый день. 7.7 и так не сильно знал, а сейчас вообще забыл. Прошу помощи.
Как получить итоги по субконто ?
Есть счет. На нем 2 субконто. Номенклатура и партия.
Задача в том, чтобы на определенную дату, в цикле, получить развертку по сумовому и количественному остатку в разрезе номенклатуры и партии.
И при получении эти цифр я уже буду их по своему обрабатывать.
пишу вот так, но понимаю что не то пишу:
                      
                            БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги");
                        БухИтоги.ИспользоватьСубконто(ВидыСубконто.Номенклатура, ТаблицаПроводок.СубконтоК1, 1);
                        БухИтоги.ИспользоватьСубконто(ВидыСубконто.ПартияПолучениеГотовойПродукции, , 1);
                        БухИтоги.ВыполнитьЗапрос(,ДатаЗапроса,"43");
                        БухИтоги.ВыбратьСубконто(1);        
                        Пока БухИтоги.ПолучитьСубконто(1) = 1 Цикл
                            БухИтоги.ВыбратьСубконто(2);        
                            Пока БухИтоги.ПолучитьСубконто(2) = 1 Цикл
                                Цена = ?(БухИтоги.СКД("К") = 0, 0, БухИтоги.СКД("С")/БухИтоги.СКД("К"));
                                Операция.Сумма      = Цена * количество;
                            КонецЦикла;
                        КонецЦикла;
1 r1000
 
26.12.18
18:22
т.е. вопрос в том, чтобы получить остаток стоимости и количественный остаток номенклатуры, по оставшимся партиям
2 r1000
 
26.12.18
18:25
На входе у меня есть только номенклатура и вот нужно все оставшиеся партии этой номенклатуры получить и понять остаток этих партий.
3 Провинциальный 1сник
 
26.12.18
18:55
На будущее. Забудьте про использование константного номера субконто, вместо него задавайте ВидСубконто.xxx - намного нагляднее и меньше сделаете ошибок.
А по теме. По номенклатуре делаете отбор, а не выборку. То есть, в методе ИспользоватьСубконто поставьте 2, а не 1. И не надо выбирать это субконто, сразу приступайте к выборке по партиям.
4 r1000
 
26.12.18
19:37
Сделал вот так. Ругается на число фильтров.
Как задать правильное число фильтров ?
                        БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги");
                        БухИтоги.ИспользоватьСубконто(ВидыСубконто.Номенклатура, ТаблицаПроводок.СубконтоК1 , 2);
                        БухИтоги.ВыполнитьЗапрос(,Операция.Документ.ДатаДок,"43");
                        
                        //БухИтоги.ВыбратьСубконто(1);        
                        //Пока БухИтоги.ПолучитьСубконто(1) = 1 Цикл
                            
                            БухИтоги.ВыбратьСубконто(ВидыСубконто.ПартияПолучениеГотовойПродукции);        
                            Пока БухИтоги.ПолучитьСубконто(ВидыСубконто.ПартияПолучениеГотовойПродукции) = 1 Цикл
5 r1000
 
26.12.18
19:37
БухИтоги.ВыбратьСубконто(ВидыСубконто.ПартияПолучениеГотовойПродукции);        
{Глобальный модуль(14655)}: Число фильтров субконто превысило допустимое значение!
6 Провинциальный 1сник
 
26.12.18
20:06
(5) Вы забыли  БухИтоги.ИспользоватьСубконто(ВидыСубконто.ПартияПолучениеГотовойПродукции);
7 r1000
 
26.12.18
20:38
Да. Спасибо. Получилось.
А как выборку партий отсортировать по дате документа ?
8 r1000
 
26.12.18
20:40
Нашел :)
9 Злопчинский
 
27.12.18
12:06
если нужно сальдо на дату то лучше бы огрничит бхзапрс слева и справа одинаковой даиотй
10 Провинциальный 1сник
 
28.12.18
02:41
(9) Не лучше, выгоды никакой это не дает. Проверял.
11 BruS
 
28.12.18
06:09
БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги");
БухИтоги.ИспользоватьСубконто(ВидыСубконто.Номенклатура, ТаблицаПроводок.СубконтоК1, 2);
БухИтоги.ИспользоватьСубконто(ВидыСубконто.ПартияПолучениеГотовойПродукции, , 1);
БухИтоги.ВыполнитьЗапрос(,ДатаЗапроса,"43");
БухИтоги.ВыбратьСубконто(2);        
Пока БухИтоги.ПолучитьСубконто(2) = 1 Цикл
    Цена = ?(БухИтоги.СКД("К") = 0, 0, БухИтоги.СКД("С")/БухИтоги.СКД("К"));
    Операция.Сумма      = Цена * количество;
КонецЦикла;