Не могу добраться до второго корсубконто
|
aladdin
29.01.2009 - 07:11
|
Подскажите плиз. Делаю что-то типа матер.отчета. По 10 счету по определенному складу перебираю все расходные операции - по корсчету,по первому корсубконто. А по 20 счету надо брать второе корсубконто(товары там). Не понимаю как это сделать. Что-то типа этого... Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,ВыбСубконто1, 2); Ит.ИспользоватьСубконто(ВидыСубконто.Материалы,, 1); Ит.ИспользоватьКорСубконто(,, 1); Ит.ИспользоватьКорСубконто(ВидыСубконто.Номенклатура,, 1);//Правильно? Ит.ВключатьСубсчета(, -1); Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "10",,, 3,"Операция", "СК"); Ит.ВыбратьПериоды(); Пока Ит.ПолучитьПериод()=1 Цикл Ит.ВыбратьСубконто(ВидыСубконто.Материалы); Пока Ит.ПолучитьСубконто(ВидыСубконто.Материалы) = 1 Цикл Ит.ВыбратьКорСчета(1, 2); Пока Ит.ПолучитьКорСчет() = 1 Цикл Если Ит.КорСчет.ПринадлежитГруппе(СчетПоКоду("20"))=1 Тогда //Тут вот пробую - чтобы ко второму корсубконто обращалось Ит.ВыбратьКорСубконто(2, -1, 2); Иначе Ит.ВыбратьКорСубконто(1, -1, 2); КонецЕсли; Пока Ит.ПолучитьКорСубконто(1) = 1 Цикл перем1=Ит.КорСубконто(1); и т.д. Подскажите - какие ошибки. |