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

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

ИначеЕсли ВидАктивов = Перечисление.ВидыАктивовИобязательств.ИздержкиОбращения Тогда
БухИтБУ.ИспользоватьСубконто();
БухИтБУ.Опции(1,);
БухИтБУ.ВыполнитьЗапрос(,ВыбДата — 1,"44.1, 44.2, 44.3, НПР.44.1, НПР.44.2, НПР.44.3, КВР.44.1, КВР.44.2, КВР.44.3");

БухИтНУ.Опции(1,);
БухИтНУ.ВыполнитьЗапрос(,ВыбДата — 1,"Н01.07");

ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = ВидАктивов;
ТаблицаДанных.Субк2 = "";
ТаблицаДанных.Субк3 = "";
ТаблицаДанных.Группировка = 1;
ТаблицаДанных.ОценкаНУ = БухИтНУ.СКД(«С») — БухИтНУ.СКК(«С»);

НомерСтрокиГруппировки = 1;
ОценкаБУ = 0;
НПР = 0;
КВР = 0;

БухИтБУ.ВыбратьСубконто();
Пока БухИтБУ.ПолучитьСубконто() = 1 Цикл
ТаблицаДанных.НоваяСтрока();
ТаблицаДанных.Субк1 = "";
ТаблицаДанных.Субк2 = БухИтБУ.Субконто(1);
ТаблицаДанных.Субк3 = "";
ТаблицаДанных.Группировка = -1;
ТаблицаДанных.Владелец = НомерСтрокиГруппировки;

Если БухИтБУ.Субконто(1).Вид() = «СтатьиИздержекОбращения» Тогда
ТаблицаДанных.МаскаСчета = «44.1»;
ИначеЕсли БухИтБУ.Субконто(1).Вид() = «СтатьиКоммерческихРасходов» Тогда
ТаблицаДанных.МаскаСчета = «44.2»;
ИначеЕсли БухИтБУ.Субконто(1).Вид() = «СтатьиРасходовНаПродажу» Тогда
ТаблицаДанных.МаскаСчета = «44.3»;
КонецЕсли;

ТаблицаДанных.ОценкаБУ = 0;
ТаблицаДанных.НПР = 0;
ТаблицаДанных.КВР = 0;

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

ТаблицаДанных.НПРсальдо = ТаблицаДанных.НПР;
ТаблицаДанных.КВРсальдо = ТаблицаДанных.КВР;

ОценкаБУ = ОценкаБУ + ТаблицаДанных.ОценкаБУ;
НПР = НПР + ТаблицаДанных.НПР;
КВР = КВР + ТаблицаДанных.КВР;
КонецЦикла;

ТаблицаДанных.ПолучитьСтрокуПоНомеру(НомерСтрокиГруппировки);
ТаблицаДанных.ОценкаБУ = ОценкаБУ;
ТаблицаДанных.НПР = НПР;
ТаблицаДанных.КВР = КВР;

ИначеЕсли ВидАктивов = Перечисление.ВидыАктивовИобязательств.ТоварыОтгруженные Тогда

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

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