|
Как посчитать общую сумму в печатной форме | ☑ | ||
---|---|---|---|---|
0
dos
12.12.18
✎
09:40
|
Добрый день. Помогите плиз новечку. Нужно сделать печатную форму, чтобы, чтобы в печатной форме считалась общая сумма. Я не понимаю что и куда вставлять....На макете параметр создал...А вот как подсчет суммы сделать хз...Как только не пробывал
Функция Печать() Экспорт Запрос = Новый Запрос(); Запрос.УстановитьПараметр("Ссылка", СсылкаНаОбъект); Запрос.Текст = "ВЫБРАТЬ | КорректировкаДолга.Организация, | КорректировкаДолга.Номер, | КорректировкаДолга.Дата, | КорректировкаДолга.Комментарий |ИЗ | Документ.КорректировкаДолга КАК КорректировкаДолга |ГДЕ | КорректировкаДолга.Ссылка = &Ссылка"; Док = Запрос.Выполнить().Выбрать(); Док.Следующий(); Макет = ПолучитьМакет("БухгалтерскаяСправка"); ШапкаДокумента = Макет.ПолучитьОбласть("Шапка"); ЗаголовокТаблицы = Макет.ПолучитьОбласть("ЗаголовокТаблицы"); СтрокаТаблицы = Макет.ПолучитьОбласть("СтрокаТаблицы"); ПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы"); ПодвалДокумента = Макет.ПолучитьОбласть("Подвал"); ТабДокумент = Новый ТабличныйДокумент; Запрос = Новый Запрос(); Запрос.УстановитьПараметр("Регистратор", СсылкаНаОбъект); Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйДвиженияССубконто.НомерСтроки КАК НомерСтроки, | ХозрасчетныйДвиженияССубконто.СчетДт, | ХозрасчетныйДвиженияССубконто.ПодразделениеДт, | ХозрасчетныйДвиженияССубконто.СубконтоДт1, | ХозрасчетныйДвиженияССубконто.СубконтоДт2, | ХозрасчетныйДвиженияССубконто.СубконтоДт3, | ХозрасчетныйДвиженияССубконто.СчетКт, | ХозрасчетныйДвиженияССубконто.ПодразделениеКт, | ХозрасчетныйДвиженияССубконто.СубконтоКт1, | ХозрасчетныйДвиженияССубконто.СубконтоКт2, | ХозрасчетныйДвиженияССубконто.СубконтоКт3, | ХозрасчетныйДвиженияССубконто.Организация, | ХозрасчетныйДвиженияССубконто.Сумма, | ХозрасчетныйДвиженияССубконто.Содержание |ИЗ | РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто(, , Регистратор = &Регистратор, , ) КАК ХозрасчетныйДвиженияССубконто | |УПОРЯДОЧИТЬ ПО | НомерСтроки"; ВыборкаДвижений = Запрос.Выполнить().Выбрать(); ТабДокумент.ПолеСверху = 2; ТабДокумент.ПолеСлева = 0; ТабДокумент.ПолеСнизу = 0; ТабДокумент.ПолеСправа = 0; ТабДокумент.РазмерКолонтитулаСверху = 2; ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт; ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ОперацияБух_БухгалтерскаяСправка"; СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Док.Организация, Док.Дата); ШапкаДокумента.Параметры.Организация = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации); ШапкаДокумента.Параметры.НомерДокумента = ОбщегоНазначения.ПолучитьНомерНаПечать(Док); ШапкаДокумента.Параметры.ДатаДокумента = Формат(Док.Дата, "ДЛФ=D"); ШапкаДокумента.Параметры.Комментарий = Док.Комментарий; ТабДокумент.Вывести(ШапкаДокумента); ТабДокумент.Вывести(ЗаголовокТаблицы); ТабДокумент.Вывести(ПодвалТаблицы); Пока ВыборкаДвижений.Следующий() Цикл СтрокаТаблицы.Параметры.Заполнить(ВыборкаДвижений); АналитикаДт = Строка(ВыборкаДвижений.СубконтоДт1) + Символы.ПС + Строка(ВыборкаДвижений.СубконтоДт2) + Символы.ПС + Строка(ВыборкаДвижений.СубконтоДт3); АналитикаКт = Строка(ВыборкаДвижений.СубконтоКт1) + Символы.ПС + Строка(ВыборкаДвижений.СубконтоКт2) + Символы.ПС + Строка(ВыборкаДвижений.СубконтоКт3); СтрокаТаблицы.Параметры.АналитикаДт = АналитикаДт; СтрокаТаблицы.Параметры.АналитикаКт = АналитикаКт; СтрокаСПодвалом = Новый Массив; СтрокаСПодвалом.Добавить(СтрокаТаблицы); СтрокаСПодвалом.Добавить(ПодвалТаблицы); СтрокаСПодвалом.Добавить(ПодвалДокумента); Если ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, СтрокаСПодвалом) Тогда ТабДокумент.Вывести(ПодвалТаблицы); ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц(); ТабДокумент.Вывести(ЗаголовокТаблицы); КонецЕсли; ТабДокумент.Вывести(СтрокаТаблицы); КонецЦикла; ТабДокумент.Вывести(ПодвалТаблицы); ПодвалДокумента.Параметры.РасшифровкаПодписиИсполнителя = ?(НЕ ЗначениеЗаполнено(СсылкаНаОбъект.Ответственный), "", ОбщегоНазначения.ФамилияИнициалыФизЛица(СсылкаНаОбъект.Ответственный.ФизЛицо)); ТабДокумент.Вывести(ПодвалДокумента); Возврат ТабДокумент; КонецФункции |
|||
1
eklmn
гуру
12.12.18
✎
09:42
|
Ну это надо стать программистом.
|
|||
2
shadow_sw
12.12.18
✎
09:44
|
волшебное слово ИТОГИ!
|
|||
3
VladZ
12.12.18
✎
09:44
|
(0) "Я не понимаю что и куда вставлять. Как только не пробывал." - открой любую печ.форму, в которой есть вывод итога по сумме, и сделай так же.
|
|||
4
Галахад
гуру
12.12.18
✎
09:44
|
...
Сумма = 0; Пока ВыборкаДвижений.Следующий() Цикл Сумма = Сумма + ВыборкаДвижений.Сумма; ... |
|||
5
eklmn
гуру
12.12.18
✎
09:45
|
(3) И будет у нас еще один 1000000+1 быдлокодер-копипастер
|
|||
6
Гипервизор
12.12.18
✎
09:49
|
Общая сумма в бух.справке - это сильно.
|
|||
7
dos
12.12.18
✎
09:50
|
eklmm Ну чтож ты так прям....я же только учусь еще... ты же не сразу стал прогером как родился...
|
|||
8
eklmn
гуру
12.12.18
✎
09:52
|
(7) я в детстве чтоб научится, книжки умные читал.
|
|||
9
dos
12.12.18
✎
09:53
|
ну иногда проще спросить, чем искать в инете....время очень дорого
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |