|
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; |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |