Курсы онлайн обучения 1С

Автор: admin, 03.08.2010 рубрики: Изучаем программирование

ВременнаяТаблица.Сортировать(«+Субк1,ГруппаРасходов,Субк2»);
ВременнаяТаблица.ВыбратьСтроки();
ТекущаяГруппа = "";
НомерСтрокиГруппировки = 0;
ОценкаБУ = 0;
НПР = 0;
КВР = 0;
Пока ВременнаяТаблица.ПолучитьСтроку() = 1 Цикл
КлючГруппы = "«+ВременнаяТаблица.Субк1.Код+ВременнаяТаблица.Субк1.Наименование+» , "+Строка(ВременнаяТаблица.Субк2.ВидРасходовДляНалоговогоУчета);
Если СокрЛП(КлючГруппы)<>СокрЛП(ТекущаяГруппа) Тогда
Если НомерСтрокиГруппировки > 0 Тогда
ТаблицаДанных.ПолучитьСтрокуПоНомеру(НомерСтрокиГруппировки);
ТаблицаДанных.ОценкаБУ = ОценкаБУ;
ТаблицаДанных.НПР = НПР;
ТаблицаДанных.КВР = КВР;
ОценкаБУ = 0;
НПР = 0;
КВР = 0;
КонецЕсли;
ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = ВременнаяТаблица.Субк1;
ТаблицаДанных.Субк2 = ВременнаяТаблица.Субк2.ВидРасходовДляНалоговогоУчета;
ТаблицаДанных.Субк3 = "";
ТаблицаДанных.Группировка = 1;
ТаблицаДанных.ОценкаНУ = 0;

НомерСтрокиГруппировки = ТаблицаДанных.НомерСтроки;
ТекущаяГруппа = КлючГруппы;
КонецЕсли;
ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = ВременнаяТаблица.Субк1;
ТаблицаДанных.Субк2 = ВременнаяТаблица.Субк2;
ТаблицаДанных.Субк3 = ВременнаяТаблица.Субк3;
ТаблицаДанных.Группировка = -1;
ТаблицаДанных.Владелец = НомерСтрокиГруппировки;
ТаблицаДанных.МаскаСчета = «20»;
ТаблицаДанных.ОценкаБУ = ВременнаяТаблица.ОценкаБУ;
ТаблицаДанных.НПР = ВременнаяТаблица.НПР;
ТаблицаДанных.КВР = ВременнаяТаблица.КВР;
ТаблицаДанных.НПРсальдо = ТаблицаДанных.НПР;
ТаблицаДанных.КВРсальдо = ТаблицаДанных.КВР;
ОценкаБУ = ОценкаБУ + ТаблицаДанных.ОценкаБУ;
НПР = НПР + ТаблицаДанных.НПР;
КВР = КВР + ТаблицаДанных.КВР;
КонецЦикла;
Если НомерСтрокиГруппировки > 0 Тогда
ТаблицаДанных.ПолучитьСтрокуПоНомеру(НомерСтрокиГруппировки);
ТаблицаДанных.ОценкаБУ = ОценкаБУ;
ТаблицаДанных.НПР = НПР;
ТаблицаДанных.КВР = КВР;
КонецЕсли;

Связанные записи

• Нет связанных записей.