Имя: Пароль:
1C
1C 7.7
v7: Помогите.Бух итоги в колонках по группам субконто не верные ?
0 budnik
 
05.06.13
10:30
Если по строчкам делать ,то все верно.

Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   Ит = СоздатьОбъект("БухгалтерскиеИтоги");
   Ит.ИспользоватьСубконто(ВидыСубконто.Сотрудники,, 1);
   Ит.ИспользоватьСубконто(ВидыСубконто.ВидыРасчета,, 1, 1);
   Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "73",,, 1,, "С");
   Таб.ВывестиСекцию("Шапка");
   Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
   Ит.ВыбратьСубконто(ВидыСубконто.Сотрудники);
   Пока Ит.ПолучитьСубконто(ВидыСубконто.Сотрудники) = 1 Цикл
       Таб.ВывестиСекцию("Субконто1");
       Ит.ВыбратьСубконто(ВидыСубконто.ВидыРасчета);
       Пока Ит.ПолучитьСубконто(ВидыСубконто.ВидыРасчета) = 1 Цикл
           Таб.ВывестиСекцию("Субконто2");
       КонецЦикла;
   КонецЦикла;
   Таб.ВывестиСекцию("Подвал");
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать","");
КонецПроцедуры
1 budnik
 
05.06.13
10:32
Извиняюсь.Здесь не верно.
Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   Ит = СоздатьОбъект("БухгалтерскиеИтоги");
   Ит.ИспользоватьСубконто(ВидыСубконто.Сотрудники,, 1);
   Ит.ИспользоватьСубконто(ВидыСубконто.ВидыРасчета,, 1);
   Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "73",,, 1,, "С");
   Таб.ВывестиСекцию("Заголовок");
   Сформировать_Колонки(Ит, Таб, "Шапка");
   Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
   Ит.ВыбратьСубконто(ВидыСубконто.Сотрудники);
   Пока Ит.ПолучитьСубконто(ВидыСубконто.Сотрудники) = 1 Цикл
       Сформировать_Колонки(Ит, Таб, "Субконто2");
   КонецЦикла;
   Сформировать_Колонки(Ит, Таб, "Подвал");
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать","");
КонецПроцедуры
2 viktor_vv
 
05.06.13
10:35
Сформировать_Колонки(), что там ?
Скорее всего у тебя по сотрудникам разное количество видов расчетов. Надо в параметрах указать про все вошедшие .
3 viktor_vv
 
05.06.13
10:37
Для выборки видов расчетов
       Ит.ВыбратьСубконто(2,1);
       Пока Ит.ПолучитьСубконто(2) = 1 Цикл
           Таб.ВывестиСекцию("Субконто2");
       КонецЦикла;
4 viktor_vv
 
05.06.13
10:39
И на всякий случай, если СП нет
ВыбратьСубконто(<Индекс>,<ФлагВсе>,<ФлагДК>,<Номер>,<РазвСальдо>,<Сортировка>,<ОбратныйПорядок>)
)
Параметры:
<Индекс> - число: порядковый номер вызова метода ''ИспользоватьСубконто''.
<ФлагВсе> - число: 0 - отбирать те субконто, которые имели итоги на этом уровне обхода итогов запроса; 1 - включить в выборку все субконто, которые имели итоги в данном запросе; -1, -2 : включить в выборку субконто, которые имели итоги в группировке n-го вышестоящего уровня. По умолчанию - 0.
5 budnik
 
05.06.13
10:43
Виктор.Большое спасибо.А то уже начал таблицы делать.
6 zak555
 
05.06.13
10:43
ПрисоеденитьСекцию
7 budnik
 
05.06.13
10:52
нет не помогло

     Ит.ВыбратьСубконто(2,1);
       Пока Ит.ПолучитьСубконто(2) = 1 Цикл

Полностью текст из конструктора.

Процедура Сформировать_Колонки(Ит, Таб, Стр)
   Таб.ВывестиСекцию(Стр+"|Начало");
   Ит.ВыбратьСубконто(ВидыСубконто.ВидыРасчета, 1);
   Пока Ит.ПолучитьСубконто(ВидыСубконто.ВидыРасчета) = 1 Цикл
       Таб.ПрисоединитьСекцию(Стр+"|Субконто1");
   КонецЦикла;
   Таб.ПрисоединитьСекцию(Стр+"|Итог");
КонецПроцедуры

Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   Ит = СоздатьОбъект("БухгалтерскиеИтоги");
   Ит.ИспользоватьСубконто(ВидыСубконто.Сотрудники,, 1);
   Ит.ИспользоватьСубконто(ВидыСубконто.ВидыРасчета,, 1, 1);
   Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "73",,, 1,, "С");
   Таб.ВывестиСекцию("Заголовок");
   Сформировать_Колонки(Ит, Таб, "Шапка");
   Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
   Ит.ВыбратьСубконто(ВидыСубконто.Сотрудники);
   Пока Ит.ПолучитьСубконто(ВидыСубконто.Сотрудники) = 1 Цикл
       Сформировать_Колонки(Ит, Таб, "Субконто2");
   КонецЦикла;
   Сформировать_Колонки(Ит, Таб, "Подвал");
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать","");
КонецПроцедуры
//}}БУХГАЛТЕРСКИЙ ЗАПРОС
8 viktor_vv
 
05.06.13
10:56
Ну ХЗ тогда, как там с группами это работает.
Попробуй выведи по строчно, но с  Ит.ВыбратьСубконто(ВидыСубконто.ВидыРасчета, 1);
Посмотри что там выводится в группах.
9 budnik
 
05.06.13
11:00
По строчно все хорошо,проблема ФлагВсе.
ВыбратьСубконто(<Индекс>,<ФлагВсе>,<ФлагДК>,<Номер>,<РазвСальдо>,<Сортировка>,<ОбратныйПорядок>)