Главбух - форум бухгалтеров, бухгалтерский форум про налоговый учет ОСНО, УСНО, ЕНВД, форум 1С. |
![]() |
#1 |
Начинающий программист
|
![]()
Народ, помогите (( я в отчаенье... я ток начала работать с 1с пишу первую базу..и вот никак не получается с отчетом.... в итоге мне надо вывести несколько полей из документов за определенный период....
вот код Процедура Сформировать() Перем Запрос,ТекстЗапроса,Таб,Док; Если (ПустоеЗначение(НачДата)=1) или (ПустоеЗначение(КонДата)=1) или (НачДата > КонДата) Тогда Предупреждение("Дата!"); СтатусВозврата(0); Возврат; КонецЕсли; Док=СоздатьОбъект("Документ"); Запрос=СоздатьОбъект("Запрос"); ТекстЗапроса= " |Период с НачДата по КонДата; |ОТДЕЛ=Документ.Претензии.Отделение; |СуммаСн=Документ.Претензии.СуммаУдер; |Возвр=Документ.Претензии.ВозвПрет; |Деф=Справочник.Дефекты.Код; |Группировка ОТДЕЛ; |Функция Возв=Сумма(Возвр); |"; Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда Возврат; КонецЕсли; Таб = создатьОбъект("Таблица"); Таб.ВывестиСекцию("Заголовок"); Док.ВыбратьДокументы(НачДата,КонДата); Пока Док.ПолучитьДокумент()=1 Цикл Сообщить(Док); КонецЦикла; Пока Запрос.Группировка("ОТДЕЛ")=1 Цикл СуммаС=Запрос.СуммаСн; Если Запрос.Отдел()=1 Тогда Таб.ВывестиСекцию("Строка"); КонецЕсли; КонецЦикла; Таб.ВывестиСекцию("Итог"); Таб.Опции(); Таб.Показать(); КонецПроцедуры ------------------ |
![]() |
![]() |
|
|