Имя: Пароль:
1C
1C 7.7
v7: нужна помощь в создании отчета
Ø (Злопчинский 03.06.2015 23:11)
0 gnomich
 
03.06.15
09:54
Прошу сильно не пинать, это мои первые попытки кодить в 1с.
создал отчет по расходам вот код:
Процедура Сформировать()
перем кто;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.ДвиженияДенежныхСредств,, 1);
Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "50.1",,, 1, "Проводка", "С");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Ит.ВыбратьСубконто(ВидыСубконто.ДвиженияДенежныхСредств);
Пока Ит.ПолучитьСубконто(ВидыСубконто.ДвиженияДенежныхСредств) = 1 Цикл
Таб.ВывестиСекцию("Субконто1");

Ит.ВыбратьПериоды();
Пока Ит.ПолучитьПериод() = 1 Цикл
Док=Ит.Операция;
Если (Док.Документ.Вид()="РасходныйОрдер")или (Док.Документ.Вид()="ПриходныйОрдер")тогда
Если (Док.Документ.Вид()="РасходныйОрдер") тогда
кто=Док.Документ.Выдать; иначе
кто=Док.Документ.ПринятоОт;
КонецЕсли;
ВидЗатрат=Док.Документ.Субконто1;
Осн=Док.Документ.Основание;
Дат=Док.Документ.ДатаДок;
Ком=Док.Документ.Комментарий;

КонецЕсли;
Таб.ВывестиСекцию("Период");
КонецЦикла;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать","");
КонецПроцедуры
подскажите как мне добавить группировку с итого по колонке "кто"
1 2S
 
03.06.15
09:55
загоняй в таблицу значений, сворачивай по "кто"
2 gnomich
 
03.06.15
09:59
Можно пример, пока тяжело с общим пониманием
3 gnomich
 
03.06.15
10:16
(1) Поможете с примером?
4 Zhuravlik
 
03.06.15
10:54
(0) Скачай, посмотри http://catalog.mista.ru/public/121675/ - сделай по аналогии.
5 gnomich
 
03.06.15
10:58
(4) бесплатные аналоги? платить деньги за пример не хочу
6 Злопчинский
 
03.06.15
18:44
(5) а кто ж тебе бесплатно поможет если ты в самом начале уже зажлобился..???
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс