Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Сумма по подчиненным документам

russ1971
читатель
офлайн
Дата регистрации: 30.09.2005
Сообщений: 100
Пост №1
 
25.10.2006 11:55

Здравствуйте люди, помогите начинающему советом.(Бюджетка рел.605)<br>Справочник Санкционирование расходов бюджета. Как сделать так, чтобы при выводе подчиненных документов (например для документа Бюджетное обязательство) выводилась где-нибудь в отдельном поле сумма по всем этим документам.

Shwed
читатель
офлайн
Дата регистрации: 26.07.2006
Сообщений: 87
Пост №2
 
26.10.2006 13:47

"Легко. В общем, так:<br><br>В конфигураторе открываешь отчет "Дерево документов".<br><br>После этого в модуль отчета в самом начале (после объявления переменных) добавляешь:<br><br>Перем ИтоговаяСумма;<br>Функция ВернутьСуммуЧ(Д)<br> ВидД=Д.Вид();<br> Рез = 0;<br> Если глЕстьРеквизитШапки("СуммаДокумента",ВидД)=1 Тогда<br> Рез = Д.СуммаДокумента;<br> ИначеЕсли глЕстьРеквизитШапки("Всего",ВидД)=1 Тогда<br> Рез = Д.Всего;<br> ИначеЕсли глЕстьРеквизитМнЧ("Всего",ВидД)=1 Тогда<br> Рез = Д.Итог("Всего");<br> ИначеЕсли глЕстьРеквизитМнЧ("Сумма",ВидД)=1 Тогда<br> Рез = Д.Итог("Сумма");<br> КонецЕсли;              <br> <br> Возврат Рез;<br>КонецФункции // ВернутьСуммуЧ()<br><br>После этого ищешь строку типа<br>ПечДок = ПечДок+ВернутьСумму(Док);<br><br>после каждой такой строки добавляешь<br>ИтоговаяСумма = ИтоговаяСумма + ВернутьСуммуЧ(Док);<br><br>Вот. Если найдешь строку<br>ПечДок = ПечДок + ВернутьСумму(КореньДок);<br>и после нее добавишь<br>ИтоговаяСумма = ИтоговаяСумма + ВернутьСуммуЧ(КореньДок);<br>тогда у тебя в итоговую сумму попадет еще и сумма исходного документа.<br><br>Соответственно в начале процедуры Сформировать() пишешь<br>ИтоговаяСумма = 0;<br><br>После этого в таблицу добавляешь секцию с именем этой переменной, обзываешь ее, например, "Итого" и<br>перед строкой<br> Таб.ТолькоПросмотр(1);<br>пишешь<br> Таб.ВывестиСекцию("Итого");<br><br>Все."

russ1971
читатель
офлайн
Дата регистрации: 30.09.2005
Сообщений: 100
Пост №3
 
26.10.2006 14:41

Спасибо попробую

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация