Имя: Пароль:
1C
1C 7.7
v7: выполнить запрос
0 Hugy
 
22.11.12
15:58
Сч60 = СчетПоКоду("60");
Сч18 = СчетПоКоду("18.3");
       Ит=СоздатьОбъект("БухгалтерскиеИтоги");
   Ит.ИспользоватьСубконто("Контрагенты");
   Ит.ВыполнитьЗапрос (ДатаНач, ДатаКон, "60, 18.3",);    


   
Ит.ВыбратьСчета();
Пока Ит.ПолучитьСчет() = 1 Цикл
   Ит.ВыбратьСубконто(1);
   Пока Ит.ПолучитьСубконто(1) = 1 Цикл
       Если Ит.Счет.Код = Сч60.Код Тогда



Берёт только счёт 18.3. Пробовал в 2 запроса выдаёт ошибку  "Данная операция допустима только в режиме запроса по аналитике".
1 vladko
 
22.11.12
16:34
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,,1);
2 Hugy
 
22.11.12
16:45
Все равно выдаёт ошибку о запросе о аналитике.
3 Hugy
 
22.11.12
17:49
Ит=СоздатьОбъект("БухгалтерскиеИтоги");
   Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,1);
   Ит.ВыполнитьЗапрос (ДатаНач, ДатаКон, "60");    
   Ит.ВыполнитьЗапрос (ДатаНач, ДатаКон, "18.3");
   Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,1);

Ит.ВыбратьСчета();
Пока Ит.ПолучитьСчет() = 1 Цикл
   Ит.ВыбратьСубконто(1);
   Пока Ит.ПолучитьСубконто(1) = 1 Цикл
       Если Ит.Счет.Код = Сч60.Код Тогда            
       ТЗ.НоваяСтрока();
       ТЗ.Код = Ит.Субконто(1).Код;        
       ТЗ.ДЕБЕТ = Ит.СНД(Число(Сч60));
       ТЗ.КРЕДИТ = Ит.СНК(Число(Сч60));        
       КонецЕсли;    

   
       Если Ит.Счет.Код = Сч18.Код Тогда    
           ТЗ.ДЕБЕТНДС = Ит.СНД(Число(Сч18));
           ТЗ.КРЕДИТНДС = Ит.СНК(Число(Сч18));        
       КонецЕсли;
4 vladko
 
22.11.12
17:56
какая-то фигня, ты хоть отладчиком пройдись по коду хотя бы раз.
А вообще, в твоём случае надо воспользоваться конструктором бух.итогов. Как только добьёшься нужный тебе цифр на экране, уже переходи к заполнению ТЗ
5 zak555
 
22.11.12
17:56
что такое 18.3 ?
6 vladko
 
22.11.12
17:57
у белорусов вроде бы аналог нашего российского 19.3