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

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

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

БухИтНУ.ПолучитьСубконто(1,,"«);
БухИтНУ.ПолучитьСубконто(2,,»");

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

Если БухИтБУ.ПолучитьСчет(,СчетПоКоду(«20»)) = 1 Тогда
ВременнаяТаблица.ОценкаБУ = БухИтБУ.СКД(«С») — БухИтБУ.СКК(«С»);
КонецЕсли;

Если БухИтБУ.ПолучитьСчет(,СчетПоКоду(«НПР.20»)) = 1 Тогда
ВременнаяТаблица.НПР = БухИтБУ.СКД(«С») — БухИтБУ.СКК(«С»);
КонецЕсли;
Если БухИтБУ.ПолучитьСчет(,СчетПоКоду(«КВР.20»)) = 1 Тогда
ВременнаяТаблица.КВР = БухИтБУ.СКД(«С») — БухИтБУ.СКК(«С»);
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;

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

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