Функции, таблицы значений
05.07.2009
18:41
#31
"Как Вы думаете я правильно написала запрос?
ТекстЗапроса = "ОсновноеСредство = Операция.Субконто.ОсновныеСредства.ТекущийЭлемент;
|ДтСч = Операция.Дебет.Счет;
|АмортизационнаяГруппа = Операция.Субконто.ОсновныеСредства.Группа.Родитель;
|Код = Операция.Субконто.ОсновныеСредства.Код;
|Условие(ДтСч = (СчетПоКоду(""""01"""")));
|Группировка АмортизационнаяГруппа;
|Группировка ОсновноеСредство упорядочить по ОсновноеСредство.Наименование;";"
ТекстЗапроса = "ОсновноеСредство = Операция.Субконто.ОсновныеСредства.ТекущийЭлемент;
|ДтСч = Операция.Дебет.Счет;
|АмортизационнаяГруппа = Операция.Субконто.ОсновныеСредства.Группа.Родитель;
|Код = Операция.Субконто.ОсновныеСредства.Код;
|Условие(ДтСч = (СчетПоКоду(""""01"""")));
|Группировка АмортизационнаяГруппа;
|Группировка ОсновноеСредство упорядочить по ОсновноеСредство.Наименование;";"
05.07.2009
19:53
#33
"Не, неправильно. Вы лучше запрос оставьте как был у меня, а вот уже потом при обработке результатов запроса напишите условие:
Если (БалансоваяСтоимость<>0) ИЛИ (Износ<>0) ИЛИ (Переоценка<>0) Тогда
Таб.ВывестиСекцию("СтрокаСведенийОбОС");
КонецЕсли;"
Если (БалансоваяСтоимость<>0) ИЛИ (Износ<>0) ИЛИ (Переоценка<>0) Тогда
Таб.ВывестиСекцию("СтрокаСведенийОбОС");
КонецЕсли;"
05.07.2009
20:02
#35
Надеюсь последний вопрос. Есть какая-нибудь быстрая функция, которая итоги по группам считает?
05.07.2009
20:32
#36
"добавляю в запрос дату ввода, выводит пустую ячейку, делаю в формате дата тоже не работает.
|ДатаВвода = Справочник.ОсновныеСредства.ДатаВводаВЭксплуатацию;"
|ДатаВвода = Справочник.ОсновныеСредства.ДатаВводаВЭксплуатацию;"
05.07.2009
20:37
#37
Дату ввода в эксплуатацию придумала как вводить, с итогами по группам пока не получается....
05.07.2009
20:51
#38
"Если описать функции внутри первого текстового запроса, то там расчет итогов по группам автоматом. Но если как получилось у нас с вами, то исскуственным образом. То есть, перед началом обхода цикла по группе пишем:
ИтБалансоваяСтоимость=0;
ИтИзнос=0;
ИтПереоценка=0;
Пока Запрос.Группировка("АмортизационнаяГруппа")=1 Цикл
...
ИтБалансоваяСтоимость=ИтБалансоваяСтоимость+Балансов аяСтоимость;
ИтИзнос=ИтИзнос+Износ;
ИтПереоценка=ИтПереоценка+Переоценка;
КонецЦикла;"
ИтБалансоваяСтоимость=0;
ИтИзнос=0;
ИтПереоценка=0;
Пока Запрос.Группировка("АмортизационнаяГруппа")=1 Цикл
...
ИтБалансоваяСтоимость=ИтБалансоваяСтоимость+Балансов
ИтИзнос=ИтИзнос+Износ;
ИтПереоценка=ИтПереоценка+Переоценка;
КонецЦикла;"
05.07.2009
21:09
#39
"ном = 0;
ИтБалансоваяСтоимость=0;
ИтИзнос=0;
ИтПереоценка=0;
Пока Запрос.Группировка("АмортизационнаяГруппа")=1 Цикл
ИтБалансоваяСтоимость=ИтБалансоваяСтоимость + БалансоваяСтоимость; //ругается на балансовую стоимость, если уношу ниже считает не все группы
Таб.ВывестиСекцию("СтрокаАмортизационнойГруппы");
Пока Запрос.Группировка("ОсновноеСредство")=1 Цикл
Если Запрос.ОсновноеСредство.ЭтоГруппа()=1 Тогда
Таб.ВывестиСекцию("СтрокаГруппыСправочникаОС");
Иначе
БалансоваяСтоимость=0;"
ИтБалансоваяСтоимость=0;
ИтИзнос=0;
ИтПереоценка=0;
Пока Запрос.Группировка("АмортизационнаяГруппа")=1 Цикл
ИтБалансоваяСтоимость=ИтБалансоваяСтоимость + БалансоваяСтоимость; //ругается на балансовую стоимость, если уношу ниже считает не все группы
Таб.ВывестиСекцию("СтрокаАмортизационнойГруппы");
Пока Запрос.Группировка("ОсновноеСредство")=1 Цикл
Если Запрос.ОсновноеСредство.ЭтоГруппа()=1 Тогда
Таб.ВывестиСекцию("СтрокаГруппыСправочникаОС");
Иначе
БалансоваяСтоимость=0;"
05.07.2009
21:25
#40
"ну дык... само собой!
ИтБалансоваяСтоимость=ИтБалансоваяСтоимость + БалансоваяСтоимость;
надо писать после того как это стоимость посчитана. То есть, рядышком с Таб.ВывестиСекцию("СтрокаСведенийОбОС");, конкретнее:
...
ИтБалансоваяСтоимость=ИтБалансоваяСтоимость+БалансоваяСт оимость;
ИтИзнос=ИтИзнос+Износ;
ИтПереоценка=ИтПереоценка+Переоценка;
Таб.ВывестиСекцию("СтрокаСведенийОбОС");
..."
ИтБалансоваяСтоимость=ИтБалансоваяСтоимость + БалансоваяСтоимость;
надо писать после того как это стоимость посчитана. То есть, рядышком с Таб.ВывестиСекцию("СтрокаСведенийОбОС");, конкретнее:
...
ИтБалансоваяСтоимость=ИтБалансоваяСтоимость+БалансоваяСт
ИтИзнос=ИтИзнос+Износ;
ИтПереоценка=ИтПереоценка+Переоценка;
Таб.ВывестиСекцию("СтрокаСведенийОбОС");
..."
УПП 1.2.19.1 заполнение документа "Регитстрация оплат от покупателей для НДС"Как обновить, не удаляя данные
Читают тему
(гостей: 1)