Имя: Пароль:
1C
1C 7.7
v7: Подскажите простейший вопрос по Бух.итогам
0 a237
 
16.05.12
10:19
Цель при формировании отчета- просматривается субконто "контрагенты" ищется то, которое указано в реквизитах отчета, затем смотрястя все договора данного контрагента (2-е субконто) и вывотся отчет

ДОГОВОР- ЗАДОЛЖЕННОСТЬ ПО ОДНОМУ СЧЕТУ, ЗАДОЛЖЕННОСТЬ ПО ДРУГОМУ

Но почему то запрос видит только суммы по контрагентам и не видит по договорам.


Процедура Сформировать()        
   
   Таб=СоздатьОбъект("Таблица");  
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");  
   БИ=СоздатьОбъект("БухгалтерскиеИтоги");
   БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты,РевизитКонкретныйКонтрагент,1,1);
   БИ.ИспользоватьСубконто(ВидыСубконто.Договора,1,1);
   БИ.ВключатьСубсчета(1);
   БИ.ВыполнитьЗапрос(ДатаОтчета,ДатаКонца,"62.9,76.11.0",,,3);
   
   ИТг1=0;  
   ИТоб2=0;  
   ИТоб3=0;
   ИТоб4=0;  
   ИТтоп5=0;
   ИТтоп6=0;  
   ИТтоп7=0;
   ИТчл8=0;
   ИТчл9=0;
   ИТчл10=0;
   ИТит1=0;
   ИТит2=0;
   ИТит3=0;
   

   БИ.ВыбратьСубконто(ВидыСубконто.Контрагенты);  
       Пока БИ.ПолучитьСубконто(ВидыСубконто.Контрагенты) = 1 Цикл
           БИ.ВыбратьСубконто(ВидыСубконто.Договора);  
       Пока БИ.ПолучитьСубконто(ВидыСубконто.Договора) = 1 Цикл    
       
       г1=0;   //данный печаной формы
       об2=0;  
       об3=0;
       об4=0;  
       топ5=0;
       топ6=0;  
       топ7=0;
       чл8=0;
       чл9=0;
       чл10=0;
       ит1=0;
       ит2=0;
       ит3=0;
       
   
       г1=БИ.Субконто(1);  
       БИ.ВыбратьСчета();  
       Пока БИ.ПолучитьСчет()=1 Цикл
           Счет=БИ.Счет;
           Если Счет=СчетПоКоду("62.9") Тогда
               об2=БИ.КО();    
           ИначеЕсли  Счет=СчетПоКоду("76.11.0")  Тогда
               топ5=БИ.КО();    
           //ИначеЕсли Счет=СчетПоКоду("86.1") Тогда
           //    чл8=БИ.ДО();
           КонецЕсли;
       КонецЦикла;
       
       КонецЦикла;
       
       об4= об3-об2;
       об3= г1.НорГР.СтоимОбучения;
       топ7=топ6-топ5;
       топ6= г1.СуммаГСМ1;
       //чл10=чл9-чл8;
       //чл9=
       ит1=об2+топ5+чл8;
       ит2=об3+топ6+чл9;
       ит3=об4+топ7+чл10;
       
           ИТг1=ИТг1+г1;  
           ИТоб2=ИТоб2+об2;  
           ИТоб3=ИТоб3+об3;
           ИТоб4=ИТоб4+об4;  
           ИТтоп5=ИТтоп5+топ5;
           ИТтоп6=ИТтоп6+топ6;  
           ИТтоп7=ИТтоп7+топ7;
           ИТчл8=ИТчл8+чл8;
           ИТчл9=ИТчл9+чл9;
           ИТчл10=ИТчл10+чл10;
           ИТит1=ИТит1+ит1;
           ИТит2=ИТит2+ит2;
           ИТит3=ИТит3+ит3;
       
       Таб.ВывестиСекцию("Строка");      
   КонецЦикла;  
   Таб.ВывестиСекцию("Подвал");  
   Таб.ПараметрыСтраницы(2,,,10,0,5,0,,,1,1);
   Таб.Опции(0,0,,2);
   Таб.ТолькоПросмотр(0);
   Таб.Показать("Анализ","");
КонецПроцедуры
1 a237
 
16.05.12
10:20
Ошибка где-то вначале, но где именно и в чем не пойму(((
или тут

БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты,РевизитКонкретныйКонтрагент,1,1);
   БИ.ИспользоватьСубконто(ВидыСубконто.Договора,1,1);
   БИ.ВключатьСубсчета(1);
   БИ.ВыполнитьЗапрос(ДатаОтчета,ДатаКонца,"62.9,76.11.0",,,3);

или тут

БИ.ВыбратьСубконто(ВидыСубконто.Контрагенты);  
       Пока БИ.ПолучитьСубконто(ВидыСубконто.Контрагенты) = 1 Цикл
            БИ.ВыбратьСубконто(ВидыСубконто.Договора);  
       Пока БИ.ПолучитьСубконто(ВидыСубконто.Договора) = 1 Цикл
2 BlackSeaCat
 
16.05.12
10:38
Субконто "ДоговорА", не "ДоговорЫ"? Аццкая нетленка?

А вообще, если заглянуть в СП:

БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты,РевизитКонкретныйКонтрагент,2);
   БИ.ИспользоватьСубконто(ВидыСубконто.Договора,1);

Целесообразность установки флага "По группам" - бааальшой вопрос.
3 a237
 
16.05.12
11:52
Не получается не видит БИ.ПолучитьСубконто(ВидыСубконто.Контрагенты).Хелллпппп

Процедура Сформировать()        
   
   Таб=СоздатьОбъект("Таблица");  
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");  
   //
   БИ=СоздатьОбъект("БухгалтерскиеИтоги");
   БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты,РевизитКонкретныйКонтрагент,2);
   БИ.ИспользоватьСубконто(ВидыСубконто.Договора,1);
   БИ.ВключатьСубсчета(1);
   БИ.ВыполнитьЗапрос(ДатаОтчета,ДатаКонца,"62.9,76.11.0",,,3);
   
   ИТг1=0;  
   ИТоб2=0;  
   ИТоб3=0;
   ИТоб4=0;  
   ИТтоп5=0;
   ИТтоп6=0;  
   ИТтоп7=0;
   ИТчл8=0;
   ИТчл9=0;
   ИТчл10=0;
   ИТит1=0;
   ИТит2=0;
   ИТит3=0;
   
         
   
   БИ.ВыбратьСубконто(ВидыСубконто.Контрагенты);  
   
   Пока БИ.ПолучитьСубконто(ВидыСубконто.Контрагенты) = 1 Цикл //??????????????/
   
       БИ.ВыбратьСубконто(ВидыСубконто.Договора);  
   
           Пока БИ.ПолучитьСубконто(ВидыСубконто.Договора) = 1 Цикл    
           
           г1=0;  
           об2=0;  
           об3=0;